data(flood)
est_BiGam <- MLEce(flood, "BiGam")
confCI(est_BiGam)
datt = rBiWei(n=50, c(4,3,3,4,0.6))
est_BiWei <-MLEce(datt, "BiWei")
confCI(est_BiWei)
data_Diri <- LaplacesDemon::rdirichlet(n=60, c(3,1,2,4))
est_Diri <- MLEce(data_Diri, "Dirichlet")
confCI(est_Diri)
Run the code above in your browser using DataLab