data-raw/suggestedPhi.R

In mps9506/dartx: Applies Drainage Area Ratio Method With Correction Factors

library(dplyr)

suggestedPhi <- data.frame(
  min = c(0, 2, 4, 6, 8, 10, 12, 14,
          16, 18, 20, 22, 24, 26, 28,
          30, 32, 34, 36, 38, 40, 42,
          44, 46, 48, 50, 52, 54, 56,
          58, 60, 62, 64, 66, 68, 70,
          72, 74, 76, 78, 80, 82, 84,
          86, 88, 90, 92, 94, 95, 96,
          97, 98, 99, 100),
  max = c(2, 4, 6, 8, 10, 12, 14, 16,
          18, 20, 22, 24, 26, 28, 30,
          32, 34, 36, 38, 40, 42, 44,
          46, 48, 50, 52, 54, 56, 58,
          60, 62, 64, 66, 68, 70, 72,
          74, 76, 78, 80, 82, 84, 86,
          88, 90, 92, 94, 95, 96, 97,
          98, 99, 100, 101),
  exp = c(rep(0.885, 3), rep(0.886, 3),
          rep(0.887, 3), rep(0.888, 3),
          rep(0.889, 3), rep(0.890, 2),
          0.891, 0.892, 0.893, 0.894, 0.895,
          0.897, 0.899, 0.902, 0.905, 0.908,
          0.912, 0.916, 0.920, 0.924, 0.927,
          0.930, 0.932, 0.934, rep(0.935, 3),
          rep(0.934, 2), rep(0.933, 2),
          0.931, 0.927, 0.920, 0.906, 0.890,
          0.865, 0.850, 0.830, 0.806, 0.773,
          0.737, 0.700)
)

suggestedPhi <- suggestedPhi %>%
  mutate(min = min/100,
         max = max/100)

devtools::use_data(suggestedPhi, internal = TRUE, overwrite = TRUE)