Nothing
dim.thetaMSAR <-
function(x) {
thetadim=list()
if(!is.thetaMSAR(x)){thetadim=NULL}
else{thetadim[[1]]=attributes(x)$n_par
thetadim[[2]]=attributes(x)$order
thetadim[[3]]=attributes(x)$NbRegimes
thetadim[[4]]=attributes(x)$NbComp
names(thetadim)=c("Parameters","Order","NbRegimes","Dimension")
for(i in 1:4){
names(thetadim[[i]])=""}
}
return(thetadim)
}
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.