R/laser.R

In r-hyperspec/hyperSpec: Work with Hyperspectral Data, i.e. Spectra + Meta Information (Spatial, Time, Concentration, ...)

#' Laser emission dataset
#'
#' A time series of an unstable laser emission.
#'
#' @seealso
#' See the vignette `vignette("laser", package = "hyperSpec")`.
#'
#' @name laser
#' @docType data
#' @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.
#' @author C. Beleites
#' @keywords datasets
#' @concept datasets
#' @examples
#'
#' laser
#'
#' 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
#' )
#' \dontrun{
#' vignette("laser", package = "hyperSpec")
#' }
#'
NULL