# run default NMF algorithm on a random matrix
n <- 50; r <- 3; p <- 20
V <- matrix(runif(n*p), n, p)
res <- nmf(V, r)
# result class is NMFfit
class(res)
# show result
res
# compute summary measures
summary(res)
Run the code above in your browser using DataLab