if (FALSE) {
ikeogu.2017 %>%
dplyr::select(sample.id, dplyr::starts_with("X")) %>%
predict_spectra(
input.data = .,
model.stats.location = paste0(
getwd(),
"/my_model_stats.csv"
),
model.location = paste0(getwd(), "/my_model.Rds")
)
}
Run the code above in your browser using DataLab