## load dataset with no weight value
data(dataEB)
temp = pcapdir(dataEB[,-c(3)])
## estimates alpha and beta parameter
## in EB estimate with Moment method by J.N.K.Rao
alphabetaEB(data.dir = temp$direst ,pcap = temp$pcap,
method = "rao", opt = "moment",maxiter = 100,tol = 0.00001)
##load dataset with weight value
data(dataEB)
temp = pcapdir(dataEB)
## estimates alpha and beta parameter
## in EB estimate with Moment method by Claire E.B.O.
alphabetaEB(data.dir = temp$direst ,pcap = temp$pcap,
method = "claire", opt = "moment",maxiter = 100,tol = 0.00001)
Run the code above in your browser using DataLab