## Not run:
# n = 50;m = 250;m0 = 20;
# sigeff = 1;
# Sigma <- 0.25*diag(m)
# X <- datgen(n,m,m0,sigeff,Sigma = Sigma)
# porder <- pboot.1sample(X=X,B=100,ncpus = 1)
# plotchange(porder[1,])
# ## End(Not run)
Run the code above in your browser using DataLab