R/holdout.Mean.default.R

`holdout.Mean.default` <-
function(object, test.Frame, test.Vector, ...){
  tmp <- predict(object, n.ahead = length(test.Vector), se.fit = FALSE, 
  newdata = test.Frame) - test.Vector
  mean(abs(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.