Nothing
"fitted.vec2var" <-
function(object, ...){
if (!is(object, "vec2var")) {
stop("\nPlease, provide object of class 'vec2var' as 'object'.\n")
}
resids <- resid(object)
fitted <- object$datamat[, colnames(object$y)] - resids
colnames(fitted) <- paste("fit of", colnames(object$y))
return(fitted)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.