spectralEx <- getSpectraInTimeExample()
timeRange <- range( getTimePoints( spectralEx ))
timesToSelect <- e( seq( timeRange[1] , timeRange[2] , length.out = 5 ) )
# \donttest{
plot( spectralEx )
plot( spectralEx[ timesToSelect , ] , type = "time" )
# }
normalizePeak <- normalize( spectralEx , method = "peak" , spectralAxisVal = 400 )
getPreprocessing( normalizePeak )
# \donttest{
plot( normalizePeak[ timesToSelect , ] , type = "time" )
plot( normalizePeak )
# }
normalizeIntegration <- normalize( spectralEx , method = "integration" )
# \donttest{
plot( normalizeIntegration[ timesToSelect , ] , type = "time" )
# }
normalizedUser <- normalize( spectralEx , method = "normalize" , mean = "median" , scale = "sd" )
# \donttest{
plot( normalizedUser[ timesToSelect , ] , type = "time" )
# }
Run the code above in your browser using DataLab