Nothing
VAR.resid <-
function(x,b,z,p)
{
n <- nrow(x)
k <- ncol(x)
y <- t(x[(p+1):n,])
e <- t(y - b%*%z)
tem <- colMeans(e)
es <- matrix(NA,nrow=nrow(e),ncol=ncol(e))
for( i in 1:k)
{
es[,i] <- matrix(e[,i] - mean(e[,i]))
}
return(es)
}
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.