data-raw/simu_sens_IC.R

In MartinSchobben/point: Reading, Processing, and Analysing Raw Ion Count Data

## code to prepare `sim_IC` dataset

#-------------------------------------------------------------------------------
# Sensitivity of intra variability test
#-------------------------------------------------------------------------------
# repetition
reps <- 3

# Types of R variation
var_R <- c("symmetric", "asymmetric", "ideal")

# Execute
simu_IC <- purrr::map2_dfr(
  var_R,
  seq_along(var_R),
  ~simu_R(
    .sys = 120,
    .type = .x,
    .ion1 = "13C",
    .ion2 = "12C",
    .reference = "VPDB",
    .seed = .y,
    .reps = reps,
    .devR = -60
    )
  ) %>%
# rename to make examples clearer
  rename(Xt.pr = Xt.sm, N.pr = N.sm)

# Save small data-set for package
usethis::use_data(simu_IC, overwrite = TRUE, compress = "xz")