runifcens <- function(n, cens.par) {
return( runif(n=n, min=0, max=cens.par) );
} # runifcens
rexpcens <- function(n, cens.par) {
return( rexp(n=n, rate=1/cens.par) );
} # rexpcens
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.