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