Nothing
VAR.modulP <-
function(b,p)
{k <- nrow(b)
if(p == 1) bmat <- b[,1:(k*p)]
if(p > 1) bmat <- rbind( b[,1:(k*p)], cbind(diag(k*(p-1)),matrix(0,nrow=k*(p-1),ncol=k)) )
modul <- Mod(eigen(bmat)$value)
return(modul)
}
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.