Nothing
BaumWelch.mmglm0 <- function (object, control = bwcontrol(), ...){
object <- as.dthmm(object)
object <- BaumWelch.dthmm(object, control)
return(as.mmglm0(object))
}
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.