R/makeArray.R

In ChemoSpec2D: Exploratory Chemometrics for 2D Spectroscopy

#'
#' Make an Array/Data Cube from a Spectra2D Object
#'
#' @noRd
#'

.makeArray <- function(spectra) {
  nF1 <- length(spectra$F1)
  nF2 <- length(spectra$F2)
  nS <- length(spectra$names)
  A <- array(NA_real_,
    dim = c(nF1, nF2, nS),
    dimnames = list(rep("I", nF1), rep("J", nF2), rep("K", nS))
  ) # rows x cols x samples
  for (k in 1:nS) A[, , k] <- spectra$data[[k]]
  return(A)
}