# NOT RUN {
n <- 20
R <- c(9, rep(0, 10) )
param <- c("alpha","beta")
mle <- c(0.80, 12)
cdf <- quote( 1-exp( beta*(1-exp( x^alpha )) ) )
lb <- 0
ub <- Inf
rtype2(n = n, R = R, param = param, mle = mle, cdf = cdf, lb = lb, ub = ub)
# }
Run the code above in your browser using DataLab