# NOT RUN {
suppressWarnings(RNGversion("3.5.0"))
set.seed(9)
A <- matrix(rnorm(300), nrow = 20)
pc.dat <- pcn_simulate(A, n.sim = 50)
cl <- sample(1:4, 20, replace = TRUE)
pc.select <- pcn_select(pc.dat, cl, "rep")
# }
Run the code above in your browser using DataLab