# NOT RUN {
set.seed(31109)
X<-c(rnorm(193,189,12),rweibull(182,401,87),rgamma(190,40,19))
A_X<-FDistUlt(X,plot=TRUE,subplot=TRUE)
A_X<-FDistUlt(X,plot=TRUE,subplot=TRUE,p.val_min=.005)
# Functions generated
A_X[[1]][[1]]()
# Random sample
A_X[[2]]
#Distributions
A_X[[3]]
# Plots
par(mfrow=c(1,2))
A_X[[4]][[1]]
A_X[[4]][[2]]
# More functions
A_X[[5]][[1]]()
# }
Run the code above in your browser using DataLab