# generate a synthetic dataset with known classes: 50 features, 18 samples (5+5+8)
n <- 50
counts <- c(5, 5, 8)
# no noise
V <- syntheticNMF(n, counts, noise=FALSE)
aheatmap(V)
# with noise
V <- syntheticNMF(n, counts)
aheatmap(V)
Run the code above in your browser using DataLab