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