library(magrittr)
filtered.test <- ikeogu.2017 %>%
dplyr::select(-TCC) %>%
na.omit() %>%
filter_spectra(
df = .,
filter = TRUE,
return.distances = TRUE,
num.col.before.spectra = 5,
window.size = 15
)
filtered.test[1:5, c(1:5, (ncol(filtered.test) - 5):ncol(filtered.test))]
Run the code above in your browser using DataLab