R/projcsp.r

Defines functions projcsp

projcsp <- function(xstar, yhat) {
    theta = solve(t(xstar) %*% xstar) %*% t(xstar) %*% yhat
    new = xstar %*% theta
    list(betahat = theta, yhat = new)
}
herbps10/rlme documentation built on Nov. 25, 2022, 1:38 p.m.