R/projcsp.r

projcsp <- function(xstar, yhat) {
    theta = solve(t(xstar) %*% xstar) %*% t(xstar) %*% yhat
    new = xstar %*% theta
    list(betahat = theta, yhat = new)
}

Try the rlme package in your browser

Any scripts or data that you put into this service are public.

rlme documentation built on May 2, 2019, 3:47 p.m.