# Get data
data <- open.clean
# Organize group data
## Get group data
group <- open.group
## Low and high openness to experience groups
low <- data[which(group == "Low"),]
high <- data[which(group == "High"),]
if (FALSE) {
# Compute networks
low.net <- CN(low)
high.net <- CN(high)
}
Run the code above in your browser using DataLab