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