data-raw/normalized_OTUs.R

In EDUCE-UBC/educer: A Collection of Tutorials on Using R in Data Science

normalized_OTUs <- readr::read_tsv("data-raw/Saanich_OTU.txt") %>%
  tidyr::separate(Sample, into = c(NA, "Depth"), sep = "_", convert = TRUE) %>%
  tidyr::pivot_longer(-Depth, names_to = "OTU", names_prefix = "Otu",
                      values_to = "Count") %>%
  dplyr::mutate(Cruise = 72) %>%
  dplyr::select(Cruise, Depth, OTU, Count)

usethis::use_data(normalized_OTUs, overwrite = TRUE, compress = "bzip2")