# Calibration matrix example
calib <- matrix(1:12, ncol=3, dimnames = list(400:403, c("R", "G", "B")))
# Named vector input
spectral_reconstruction(c(R=1, G=2, B=3), calib)
# Dataframe input
df <- data.frame(R=1, G=2, B=3, other_col=10)
spectral_reconstruction(dplyr::select(df, R:B), calib)
# Multiple spectra: as list columns
df <- data.frame(Measurement = c(1,2), R=c(1,2), G=c(2,4), B=c(3,6))
df <-
df |>
dplyr::mutate(
Spectrum = spectral_reconstruction(dplyr::pick(R:B), calib)
)
df |> tidyr::unnest(Spectrum)
# Multiple spectra: as extended dataframes
df |>
dplyr::mutate(
Spectrum = spectral_reconstruction(dplyr::pick(R:B), calib, "wide"))
Run the code above in your browser using DataLab