Nothing
Q2vector <- function(Q){
# map mmpp Q rate matrix to vector
# use log like constraints
m <- nrow(Q)
p <- log(as.vector(Q[as.logical(1-diag(m))]))
return(p)
}
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.