Nothing
library(fMarkovSwitching) # Assuming library is installed
data(indep) # data from package
data(dep) # data from package
S=c(1,0,0)
distrib<-"t"
k<-2
myModel<-MS_Regress_Fit(dep,indep,S,k,distrib)
print(myModel)
plot(myModel)
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.