A time series of an unstable laser emission.

Format

The data set consists of 84 laser emission spectra measured during 95 min. Each spectrum has 36 data points in the range of 404.5 nm to 405.8 nm.

See also

Author

C. Beleites

Examples


laser
#> hyperSpec object
#>    84 spectra
#>    3 data columns
#>    36 data points / spectrum

cols <- c("black", "blue", "darkgreen", "red")
wl <- c(405.0, 405.1, 405.3, 405.4)
plot_spc(laser, axis.args = list(x = list(at = seq(404.5, 405.8, .1))))
for (i in seq_along(wl)) {
  abline(v = wl[i], col = cols[i], lwd = 2, lty = 2)
}


plot_c(laser[, , wl], spc ~ t,
  groups = .wavelength, type = "b",
  col = cols
)

if (FALSE) {
vignette("laser", package = "hyperSpec")
}