set.seed(123)
X <- cbind(runif(100), runif(100), sort(runif(100)))
# Pure permutation
sims_pure <- sim.procedures(X, nperm = 10, method = "pure")
head(sims_pure[[1]])
# Block permutation
sims_block <- sim.procedures(X, nperm = 10, nblocks = 5, method = "block")
# Visualize the first result from block permutation
plot_stpp(sims_block[[1]], type = "3D")
Run the code above in your browser using DataLab