n <- 8 ; p <- 3
X <- matrix(rnorm(n * p, mean = 10), ncol = p, byrow = TRUE)
y <- rnorm(n)
Y <- cbind(y, rnorm(n))
Xtrain <- X[1:6, ] ; Ytrain <- Y[1:6, ]
Xtest <- X[7:8, ] ; Ytest <- Y[7:8, ]
fm <- lmr(Xtrain, Ytrain)
coef(fm)
predict(fm, Xtest)
pred <- predict(fm, Xtest)$pred
msep(pred, Ytest)
Run the code above in your browser using DataLab