Nothing
fsIndependent <- function(mts, max.lag) {
k<-ncol(mts)
res<-data.frame()
for (l in 1:max.lag){
res<-rbind(res,diag(k))
}
r<-as.matrix(res)
r <- fsNames(r, mts, max.lag)
return (r)
}
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.