Nothing
EPPMprob <-
function (vlambda) {
vwork <- vlambda[1:(length(vlambda)-1)]
tran <- cbind(rbind(diag(-vlambda, length(vlambda)))) +
cbind(0,rbind(diag(vwork, (length(vlambda)-1)),0))
tran <- expm(tran)
prob <- round(tran[1,], digits=20)
return(prob) }
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.