## load dataset with no weight value
data(dataEB)
## Calculates EB estimator with its
## RRMSE value by Bootstrap method.
## Its alpha and beta estimator obtained
## by Moment method by J.N.K.Rao
bootstrapEB(data = dataEB[,-c(3)], method = "rao",
opt = "moment", maxiter = 20, tol = 1e-5,B=20,seed=0)
##load dataset with weight value
data(dataEB)
## Calculates EB estimator with its
## RRMSE value by Bootstrap method.
## Its alpha and beta estimator obtained
## by Moment method by Claire E.B.O.
bootstrapEB(data = dataEB, method = "rao",
opt = "moment", maxiter = 20, tol = 1e-5,B=20,seed=0)
Run the code above in your browser using DataLab