# NOT RUN {
X<-c(rnorm(73,189,12),rweibull(82,401,87),rgamma(90,40,19))
A_X<-FDistUlt(X,plot=TRUE,subplot=TRUE)
#A_X[[1]][[1]]()
#A_X[[2]]
#A_X[[3]]
#x11();A_X[[4]][[1]]
#x11();A_X[[4]][[2]]
#A_X[[5]][[1]]()
# }
Run the code above in your browser using DataLab