R/rcens.R

In genSurv: Generating Multi-State Survival Data

Defines functions rexpcens runifcens

runifcens <- function(n, cens.par) {
	return( runif(n=n, min=0, max=cens.par) )
}

rexpcens <- function(n, cens.par) {
	return( rexp(n=n, rate=1/cens.par) )
}

Try the genSurv package in your browser