# Get data
data <- open.clean
# Organize group data
group <- open.group
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