## Not run:
# X <- datgen(n=100,m=80,m0=20,sigeff=1,Sigma = 0.25*diag(80))
# porder <- pboot.1sample(X=X,B=100,ncpus = 1)
# porder.tr <- ptrans(porder,trans="normal")
# plotpboot(porder.tr)
# ## End(Not run)
Run the code above in your browser using DataLab