spectralExample <- getSpectraInTimeExample()
summarySpectra <- summary( spectralExample )
str( summarySpectra )
summarySpectra
## convert to data.frame
spectra <- getSpectraInTimeExample()
spectraFlat <- as.data.frame( spectra )
### visualization
# \donttest{
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 = "spectralAxis" , timeUnit = "minutes" , timePointsAlt = TRUE , colors = "A" )
plot( x = data , type = "contour" , nColors = 200 ,
colors = "C" , timeUnit = "seconds", timePointsAlt = TRUE)
# }
## 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" )
# \donttest{
plot( listOfSpectra , timeUnit = "hours" , colors = "C" , type = "contour" )
# }
Run the code above in your browser using DataLab