# generate a random 50 x 10 matrix
V <- rmatrix(50, 10)
# single run
res <- nmf(V, 3)
isNMFfit(res)
# multiple runs - keeping single fit
resm <- nmf(V, 3, nrun=3)
isNMFfit(resm)
# multiple runs - keeping all fits
resM <- nmf(V, 3, nrun=3, .opt='k')
isNMFfit(resM)
# with a list of results
isNMFfit(list(res, resm, resM, 'not a result'))
isNMFfit(list(res, list(resm, resM), 'not a result')) # list of list
isNMFfit(list(res, resm, resM, 'not a result'), recursive=FALSE)
Run the code above in your browser using DataLab