R/rcens.R

Defines functions rexpcens runifcens

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
arturstat/genSurv documentation built on Dec. 19, 2021, 4:43 a.m.