data(testdata)
spmatrix <- data2mat(testdata)
result <- sp.pair(spmatrix)
plotnetwork(result$Pearson)
plotnetwork(result$Pearson, linecol = c("orange", "blue"),
number.label = FALSE)
title("Pearson Correlation Network")
Run the code above in your browser using DataLab