Thank you for your reply! Although I don't really understand how to use hard Threshold. I plotted raw correlations and kept the most correlated features, then i do a standard hard threshold:
ht <- pickHardThreshold(filtered, RsquaredCut = 0.85, cutVector = seq(0.1, 0.9, by = 0.05), moreNetworkConcepts = FALSE, removeFirst = FALSE, nBreaks = 10, corFnc = "cor", corOptions = "use = 'p'")
I get this table, then i try sprintf("Optimal hard-power = %d", ht$cutEstimate)
Result --> "Optimal hard-power = NA"
How do I continue the analysis?