Displaying 1 result from an estimated 1 matches for "cdata6".
Did you mean:
cdata
2011 Feb 01
1
using SNOW and clusterApplyLB to run jobs parallel
...clapply(cData, plotGraph)) #each cData contains 100X6000
doubles
system.time(out <- mclapply(cData2, plotGraph))
system.time(out <- mclapply(cData3, plotGraph))
system.time(out <- mclapply(cData4, plotGraph))
system.time(out <- mclapply(cData5, plotGraph))
system.time(out <- mclapply(cData6, plotGraph))
plotGraph() <- function(cData)
{
cl = unname(cor(cData))
result = cbind(as.vector(row(cl)),as.vector(col(cl)),as.vector(cl))
result = result[result[,1] != result[,2],]
corm = result
corm =corm[abs(corm[,3]) >= CORRELATION, ]
# remove low cor pairs
library(network); library(sn...