# NOT RUN {
spectralExample <- getSpectraInTimeExample()
mimMaxSpec <- spectralAnalysis:::extractSummarySpecs( spectralExample ,
c( "min" , "max" ) )
spectralExample <- getSpectraInTimeExample()
summarySpectra <- summary( spectralExample )
str( summarySpectra )
summarySpectra
## convert to data.frame
spectra <- getSpectraInTimeExample()
spectraFlat <- as.data.frame( spectra )
### visualization
# }
# NOT RUN {
data = getSpectraInTimeExample()
plot( x = data , type = "3D" , timeUnit = "hours" , timePointsAlt = FALSE )
plot( x = data[ , r(500, 350) ] , type = "3D" ,
timeUnit = "hours" , timePointsAlt = TRUE , colors = "B" )
plot( x = data[ e( 1 , 2 , 3) , , timeUnit = "hours" ] ,
type = "time" , timeUnit = "hours" , timePointsAlt = FALSE )
plot( x = data[ , e( seq( 200 , 400 , 50 ) ) ] ,
type = "wavelength" , timeUnit = "minutes" , timePointsAlt = TRUE , colors = "A" )
# }
# NOT RUN {
## plotting a list of spectra
listOfSpectra <- getListOfSpectraExample()
plot( listOfSpectra , times = 1 , timeUnit = "hours" )
plot( listOfSpectra , times = 1 , timeUnit = "hours" , timePointsAlt = TRUE )
plot( listOfSpectra , times = 1:3 , timeUnit = "hours" , colors = "B" )
# }
Run the code above in your browser using DataLab