Nothing
rhmm <- function(model,...,nsim,verbose=FALSE){
#
# Generic function rhmm (r for random) to simulate data from a
# hidden Markov model with discrete emissions the probabilities
# of which are specified non-parametrically (i.e. by means of a
# table or tables).
#
UseMethod("rhmm")
}
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.