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