# \donttest{
spectralExample <- getSpectraInTimeExample()
nmfResult <- spectralNMF( spectralExample , rank = 2 , subsamplingFactor = 5 )
nmfObject <- getDimensionReduction( nmfResult , type = "NMF")$NMF
nmfTrends <- t( NMF::coef( nmfObject ) )
matplot( nmfTrends , type = "l" , x = getTimePoints( spectralExample , timeUnit = "hours" ),
xlab = "time in hours" )
# }
Run the code above in your browser using DataLab