set.seed(32342)
x <- rnorm(1000) * 100
x <- x[ 0 < x & x < 100 ]
fit <- F.dfunc.estim(x, w.lo=0, w.hi=100)
AIC(fit) # AICc
AIC(fit, k=2, n=Inf) # AIC
AIC(fit, k=log(length(fit$dist)), n=Inf) # BICRun the code above in your browser using DataLab