SndT_Fra <- read.table(system.file("extdata", "SndT_Fra.txt", package = "svs"),
header = TRUE, sep = "\t", quote = "\"", encoding = "UTF-8")
nmf.SndT_Fra <- fast_nmf(SndT_Fra, k = 7)
nmf.SndT_Fra
}
references{
Lee, D. D. and H. S. Seung (1999) Learning the parts of objects by non-negative matrix factorization. emph{Nature} strong{401}, 788--791.
Lee, D. D. and H. S. Seung (2001) Algorithms for non-negative matrix factorization. emph{Advances in neural information processing systems}
strong{13}, 556--562.
}Run the code above in your browser using DataLab