# NOT RUN {
# Split data (only for example)
split1 <- neoOpen[c(1:401),]
split2 <- neoOpen[c(402:802),]
# }
# NOT RUN {
# Perform permutation test
perm.str <- network.permutation(split1, split2, iter = 1000, network = "glasso",
measure = "strength", alternative = "two.tailed", ncores = 2)
# Check results
perm.str$result
# Permutation to check other measures (using networks from previous result)
perm.aspl <- network.permutation(prev.perm = perm.str, measure = "ASPL", ncores = 2)
# Check results
perm.aspl$result
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab