# NOT RUN {
sumadj <- nams(neoOpen, adjusted = "sum")
knownfactors <- nams(neoOpen, method = "threshold",
factors = c(rep(1,6),rep(2,6),rep(3,6),rep(4,6),rep(5,6),rep(6,6)))
walkadj <- nams(neoOpen, method="threshold", factors = "walktrap")
# }
Run the code above in your browser using DataLab