Prueba de titulo 1
texto
Prueba de titulo 2
Más texto
n_train <- 50
n_test <- 300
# Predictores
x1_tr <- runif(n_train, -3, 3)
x2_tr <- runif(n_train, -3, 3)
x3_tr <- runif(n_train, -3, 3)
x1_te <- runif(n_test, -3, 3)
x2_te <- runif(n_test, -3, 3)
x3_te <- runif(n_test, -3, 3)
# Coeficientes reales
b1 <- 0.8
b2 <- -0.6
b3 <- 0.5