# NOT RUN {
if(interactive()){
# Test data
matdata <- toyModel(model = "NMF")
# Simple usage
out <- NMF(matdata, J=5)
# Rank estimation mode (single method)
out2 <- NMF(matdata, J=2:10, rank.method="ccc", runtime=3)
plot(out2)
# Rank estimation mode (all method)
out3 <- NMF(matdata, J=2:10, rank.method="all", runtime=10)
plot(out3)
}
# }
Run the code above in your browser using DataLab