R/holdout.SS.lm.R

`holdout.SS.lm` <-
function(object, test.Frame, test.Vector, ...){
    tmp <- predict(object, newdata = test.Frame) - test.Vector
    crossprod(tmp, tmp) 
}

Try the CombMSC package in your browser

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

CombMSC documentation built on May 2, 2019, 2:32 p.m.