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