# Get openness data
one <- open.clean[which(open.group == "Low"),]
two <- open.clean[which(open.group == "High"),]
# Compute networks
net.one <- CN(one)
net.two <- CN(two)
# Perform random networks test
randnet.test(net.one, net.two, iter = 100, cores = 2)
Run the code above in your browser using DataLab