# NOT RUN {
library(magrittr)
ikeogu.2017 %>%
dplyr::rename(unique.id = sample.id) %>%
dplyr::select(unique.id, dplyr::everything(), -TCC) %>%
na.omit() %>%
PlotSpectra(input.df = .,
wavelengths = 350:2500,
num.col.before.spectra = 5,
window.size = 15)
# }
Run the code above in your browser using DataLab