# \donttest{
#it will take some times
data(imputedData)
data <- imputedData
logD <- data$log2_value
rownames(logD) <- data$inf$ori.ID
if (requireNamespace("WGCNA", quietly = TRUE))
sft <- SoftThresholdScaleGraph(t(logD))
# }
Run the code above in your browser using DataLab