X <- rBeta_ab(30, a = 0, b = 1, shape1 = 2, shape2 = 10 )
DistSelCriteriaValues(X, candDist = c("Beta_ab","Laplace","Normal"),
criteria = c("logLik","AIC","AICc","BIC","MDL"))
w <- c(0.32, 1.77, 1.22, 0.64, 0.38, 0.93, 1.63, 1.34, 0.57, 1.73, 1.67, 0.67,
0.09, 1, 1.55, 0.53, 0.76, 1.06, 1.13, 1.31, 1.18, 1.64, 0.07, 1.41, 1.18,
0.69, 0.28, 1.27, 0.9, 1.08)
DistSelCriteriaValues(X, w, candDist = c("Beta_ab","Laplace","Normal"),
criteria = c("logLik","AIC","AICc","BIC","MDL"))
Run the code above in your browser using DataLab