Nothing
PsimNHPc <-
function(i,lambdaiM, fixed.seed)
{
if (!is.null(fixed.seed)) fixed.seed<-fixed.seed+i
aux<-simNHPc(lambda = lambdaiM[,i], fixed.seed = fixed.seed)$posNH
return(aux)
}
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.