data-raw/example_wcont.R

In evanmascitti/soiltestr: Functions for Laboratory Soil Testing

## code to prepare `example_wcont-raw-data` data set goes here

# fix random number generator, strip off extraneous columns,
# remove missing observations, then select 5 rows from the data set to use. Return
# the random number generator to its initial state.

set.seed(10)

example_wcont <- readr::read_csv(
  'inst/extdata/example_wcont-raw-data.csv',
  lazy = FALSE) %>%
  tibble::as_tibble() %>%
  dplyr::select(tin_w_wet_sample, tin_w_OD_sample, tin_tare) %>%
  tidyr::drop_na() %>%
  dplyr::slice(sample(132, size=5, replace = FALSE))

set.seed(NULL)

example_wcont

usethis::use_data(example_wcont, overwrite = TRUE)