# \donttest{
spectralEx <- getSpectraInTimeExample()
smoothDefault <- smooth( spectralEx )
timeRange <- range( getTimePoints( spectralEx ))
timesToSelect <- e( seq( timeRange[1] , timeRange[2] , length.out = 5 ) )
smoothALot <- smooth( spectralEx , order = 2 , window = 301 )
derivative1 <- smooth( spectralEx , derivative = 1 )
derivative2 <- smooth( spectralEx , derivative = 2 )
# }
Run the code above in your browser using DataLab