Nothing
plot.ContObservHMM <-
function(x, Series=x$Observations, ylabel="Observation series", xlabel="Time", ...)
{
plot(Series, type = "l", col="dodgerblue4", ylab=ylabel, xlab=xlabel, lwd=1.5)
nq<-x$Viterbi
nq<-ifelse((x$Viterbi)==1, min(Series), max(Series))
lines(nq, col="firebrick", lwd=1.5)
}
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.