Running examples in ‘spectralAnalysis-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: SpectraInTime-class
> ### Title: SpectraInTime-class (time resolved spectra ) wavelength-time
> ###   data for 1 experiment
> ### Aliases: SpectraInTime-class SpectraInTime spectraInTime spectraintime
> ###   dim,SpectraInTime-method extractSummarySpecs
> ###   summary,SpectraInTime-method show,SummaryByWavelengths-method
> ###   as.data.frame,SpectraInTime-method plot,SpectraInTime,missing-method
> ###   plot plot.list
> ### Keywords: internal
> 
> ### ** Examples
> 
>   spectralExample   <-  getSpectraInTimeExample()
>   mimMaxSpec        <-  spectralAnalysis:::extractSummarySpecs( spectralExample ,
+  c( "min" , "max" ) )
> 
>  spectralExample  <-  getSpectraInTimeExample() 
>  summarySpectra   <-  summary( spectralExample )
>  str( summarySpectra )
Formal class 'SummaryByWavelengths' [package "spectralAnalysis"] with 6 slots
  ..@ experimentName: chr "ABLOMMAERT-01-00376"
  ..@ timeRange     : num [1:2] 0 36000
  ..@ timeRangeAlt  : num [1:2] -10800 25200
  ..@ spectralRange : num [1:2] 100 500
  ..@ spectra       :'data.frame':	801 obs. of  6 variables:
  .. ..$ wavelengths  : num [1:801] 100 100 101 102 102 ...
  .. ..$ firstSpectrum: num [1:801] 1.92e-24 2.47e-24 3.17e-24 4.06e-24 5.20e-24 ...
  .. ..$ lastSpectrum : num [1:801] 1.58e-25 2.03e-25 2.60e-25 3.33e-25 4.27e-25 ...
  .. ..$ mean         : num [1:801] 7.10e-25 9.11e-25 1.17e-24 1.50e-24 1.92e-24 ...
  .. ..$ median       : num [1:801] 5.51e-25 7.07e-25 9.08e-25 1.16e-24 1.49e-24 ...
  .. ..$ sd           : num [1:801] 4.95e-25 6.36e-25 8.15e-25 1.05e-24 1.34e-24 ...
  ..@ units         :List of 4
  .. ..$ wavelength: chr "expression(tilde(nu)/cm^-1)"
  .. ..$ spc       : chr "expression('A')"
  .. ..$ z         : chr "expression(t/s)"
  .. ..$ z.end     : chr "expression(t/s)"
>  summarySpectra
Experiment name = ABLOMMAERT-01-00376 
Time range =  0 36000 
Wavelength range = 100 500 
[1] "Summary specs:"
units =$wavelength
[1] "expression(tilde(nu)/cm^-1)"

$spc
[1] "expression('A')"

$z
[1] "expression(t/s)"

$z.end
[1] "expression(t/s)"

  wavelengths firstSpectrum lastSpectrum         mean       median           sd
1       100.0  1.923650e-24 1.579028e-25 7.096468e-25 5.511349e-25 4.952214e-25
2       100.5  2.469243e-24 2.026878e-25 9.109199e-25 7.074500e-25 6.356782e-25
3       101.0  3.167600e-24 2.600125e-25 1.168548e-24 9.075326e-25 8.154622e-25
4       101.5  4.060929e-24 3.333413e-25 1.498103e-24 1.163476e-24 1.045439e-24
5       102.0  5.202942e-24 4.270835e-25 1.919399e-24 1.490668e-24 1.339437e-24
6       102.5  6.661947e-24 5.468459e-25 2.457635e-24 1.908680e-24 1.715041e-24
... 
... 
... 
    wavelengths firstSpectrum lastSpectrum         mean       median
796       497.5  6.661947e-24 1.823488e-06 1.253702e-06 1.417397e-06
797       498.0  5.202942e-24 1.686325e-06 1.159398e-06 1.310780e-06
798       498.5  4.060929e-24 1.558855e-06 1.071758e-06 1.211698e-06
799       499.0  3.167600e-24 1.440444e-06 9.903475e-07 1.119657e-06
800       499.5  2.469243e-24 1.330495e-06 9.147547e-07 1.034194e-06
801       500.0  1.923650e-24 1.228448e-06 8.445939e-07 9.548722e-07
              sd
796 5.114156e-07
797 4.729467e-07
798 4.371964e-07
799 4.039870e-07
800 3.731508e-07
801 3.445305e-07
> 
> ## convert to data.frame
> spectra                 <-  getSpectraInTimeExample()
> spectraFlat             <-  as.data.frame( spectra )
> 
> 
> ### visualization 
>   ## Not run: 
> ##D   data = getSpectraInTimeExample()
> ##D   plot( x =  data , type = "3D" , timeUnit = "hours" , timePointsAlt = FALSE )
> ##D   plot( x =  data[  , r(500, 350) ] , type = "3D" ,
> ##D       timeUnit = "hours" , timePointsAlt = TRUE , colors = "B"  )
> ##D   plot( x =  data[ e( 1 , 2 , 3) , , timeUnit = "hours" ] ,
> ##D       type = "time" , timeUnit = "hours" , timePointsAlt = FALSE ) 
> ##D   plot( x =  data[ , e( seq( 200 , 400 , 50 ) ) ] , 
> ##D      type = "wavelength" , timeUnit = "minutes" , timePointsAlt = TRUE , colors = "A" )
> ## End(Not run)
> 
>   
>  ## plotting a list of spectra
>     
>  listOfSpectra     <-  getListOfSpectraExample()
>  plot( listOfSpectra , times = 1 , timeUnit = "hours" )
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... push.vp.vpTree -> push.vp -> push.vp.viewport -> grid.Call.graphics
Execution halted