# NOT RUN {
set.seed(31109)
FIT1<-FDist(rnorm(1000,10),p.val_min=.03,crit=1,plot=TRUE)
#Random Variable
FIT1[[1]]
#Random numbers generator
FIT1[[2]]()
#Random sample
FIT1[[3]]
#Goodness of fit tests results
FIT1[[4]]
#Plot
FIT1[[5]]
#Functions r, p, d, q
FIT1[[6]]
# }
Run the code above in your browser using DataLab