library(magrittr)
aggregated.test <- ikeogu.2017 %>%
dplyr::select(-TCC) %>%
na.omit() %>%
aggregate_spectra(
grouping.colnames = c("study.name"),
reference.value.colname = "DMC.oven",
agg.function = "mean"
)
aggregated.test[1:5, 1:5]
Run the code above in your browser using DataLab