data-raw/purees.R

## code to prepare `purees` dataset goes here
data_mat = read.csv("data-raw/purees_data.csv")
data_mat = data_mat[,-1]
wavelengths <- read.csv("data-raw/wavelengths.csv", sep="")

purees = list("data" = data_mat, "wavelengths" = wavelengths)
usethis::use_data(purees, overwrite = TRUE)
alessandrocolombi/ACutils documentation built on March 3, 2023, 4:06 a.m.