data-raw/rounded_wavenumbers.R

In sds270-s22/ftirsr: Easily Load FTIR Spectroscopy Data for a Partial Least Squares Regression Model

## code to prepare `rounded_wavenumbers` vector (wavenumbers to interpolate onto, `out_vec` in function) for interpolation goes here
library(dplyr)
library(readr)
library(magrittr)

wavenumbers <- read_csv("~/ftirsr/data-raw/AS-01\ (8_24_16).0.csv")
## This "rounds" the absorbance column to zero, but this column is just a filler
## in order to include as a dataset
rounded_wavenumbers <- round(wavenumbers, digits = 0) %>%
  select(-1) %>%
  rename(dummy_absorbance = absorbance) %>%
  filter(wavenumber != 368)

usethis::use_data(rounded_wavenumbers, internal = TRUE, overwrite = TRUE)