data-raw/create_rules.R

# Create Rule files to include as examples
arule <- dplyr::tribble(
  ~SORTORDER, ~FILE_IN, ~ATTR_IN, ~CLASS_OUT, ~MODEL_NO, ~B, ~B_LOW, ~B_HI, ~B1, ~B2, ~D,
  1, "formfile", "PROF", "CONVEX_D", 4, 5, 0, 0, 2.5, 0, 2.5,
  2, "formfile", "PROF", "CONCAVE_D", 5, -5, 0, 0, 0, -2.5, 2.5,
  3, "formfile", "PROF", "PLANAR_D", 1, 0, 0, 0, -2.5, 2.5, 2.5,
  4, "formfile", "PLAN", "CONVEX_A", 4, 5, 0, 0, 2.5, 0, 2.5,
  5, "formfile", "PLAN", "CONCAVE_A", 5, -5, 0, 0, 0, -2.5, 2.5,
  6, "formfile", "PLAN", "PLANAR_A", 1, 0, 0, 0, -2.5, 2.5, 2.5,
  7, "formfile", "QWETI", "HIGH_WI", 4, 7, 0, 0, 3.5, 0, 3,
  8, "formfile", "QWETI", "LOW_WI", 5, 0.5, 0, 0, 0, 3.5, 3,
  9, "formfile", "SLOPE", "NEAR_LEVEL", 5, 0.5, 0, 0, 0, 1, 0.5,
  10, "formfile", "SLOPE", "REL_STEEP", 4, 2, 0, 0, 1, 0, 1,
  11, "relzfile", "PCTZ2ST", "NEAR_DIV", 4, 90, 0, 0, 75, 0, 15,
  12, "relzfile", "PCTZ2ST", "NEAR_HALF", 1, 50, 50, 50, 25, 75, 25,
  13, "relzfile", "PCTZ2ST", "NEAR_CHAN", 5, 10, 0, 0, 0, 25, 15,
  14, "relzfile", "PCTZ2PIT", "NEAR_PEAK", 4, 90, 0, 0, 75, 0, 15,
  15, "relzfile", "PCTZ2PIT", "NEAR_MID", 1, 50, 50, 50, 25, 75, 25,
  16, "relzfile", "PCTZ2PIT", "NEAR_PIT", 5, 5, 0, 0, 0, 10, 5,
  17, "relzfile", "Z2PIT", "HI_ABOVE", 4, 2, 0, 0, 1, 0, 1)

foreign::write.dbf(as.data.frame(arule), "./inst/extdata/arule.dbf")

crule <- dplyr::tribble(
~F_NAME, ~FUZATTR, ~ATTRWT, ~FACET_NO, ~F_CODE,
"LCR", "NEAR_PEAK", 30, 11, 1,
"LCR", "NEAR_DIV", 20, 11, 1,
"LCR", "HI_ABOVE", 10, 11, 1,
"LCR", "NEAR_LEVEL", 20, 11, 1,
"LCR", "PLANAR_D", 10, 11, 1,
"LCR", "PLANAR_A", 5, 11, 1,
"LCR", "LOW_WI", 5, 11, 1,
"DSH", "NEAR_PEAK", 30, 12, 2,
"DSH", "NEAR_DIV", 20, 12, 2,
"DSH", "HI_ABOVE", 10, 12, 2,
"DSH", "CONVEX_D", 20, 12, 2,
"DSH", "CONVEX_A", 10, 12, 2,
"DSH", "LOW_WI", 10, 12, 2,
"UDE", "NEAR_PEAK", 30, 13, 3,
"UDE", "NEAR_DIV", 20, 13, 3,
"UDE", "HI_ABOVE", 10, 13, 3,
"UDE", "NEAR_LEVEL", 10, 13, 3,
"UDE", "CONCAVE_D", 10, 13, 3,
"UDE", "CONCAVE_A", 10, 13, 3,
"UDE", "HIGH_WI", 10, 13, 3,
"BSL", "NEAR_HALF", 20, 21, 4,
"BSL", "NEAR_MID", 10, 21, 4,
"BSL", "HI_ABOVE", 5, 21, 4,
"BSL", "REL_STEEP", 20, 21, 4,
"BSL", "PLANAR_D", 15, 21, 4,
"BSL", "PLANAR_A", 25, 21, 4,
"BSL", "LOW_WI", 5, 21, 4,
"DBS", "NEAR_HALF", 20, 22, 5,
"DBS", "NEAR_MID", 10, 22, 5,
"DBS", "HI_ABOVE", 5, 22, 5,
"DBS", "REL_STEEP", 20, 22, 5,
"DBS", "CONVEX_A", 20, 22, 5,
"DBS", "PLANAR_D", 15, 22, 5,
"DBS", "LOW_WI", 10, 22, 5,
"CBS", "NEAR_HALF", 20, 23, 6,
"CBS", "NEAR_MID", 10, 23, 6,
"CBS", "HI_ABOVE", 5, 23, 6,
"CBS", "REL_STEEP", 20, 23, 6,
"CBS", "CONCAVE_A", 20, 23, 6,
"CBS", "PLANAR_D", 15, 23, 6,
"CBS", "HIGH_WI", 10, 23, 6,
"TER", "NEAR_HALF", 20, 24, 7,
"TER", "NEAR_MID", 10, 24, 7,
"TER", "HI_ABOVE", 5, 24, 7,
"TER", "NEAR_LEVEL", 30, 24, 7,
"TER", "PLANAR_D", 15, 24, 7,
"TER", "PLANAR_A", 20, 24, 7,
"SAD", "NEAR_HALF", 20, 25, 8,
"SAD", "NEAR_MID", 10, 25, 8,
"SAD", "HI_ABOVE", 5, 25, 8,
"SAD", "NEAR_LEVEL", 20, 25, 8,
"SAD", "CONCAVE_D", 20, 25, 8,
"SAD", "CONVEX_A", 20, 25, 8,
"MDE", "NEAR_HALF", 20, 26, 9,
"MDE", "NEAR_MID", 10, 26, 9,
"MDE", "HI_ABOVE", 5, 26, 9,
"MDE", "NEAR_LEVEL", 25, 26, 9,
"MDE", "CONCAVE_D", 10, 26, 9,
"MDE", "CONCAVE_A", 10, 26, 9,
"MDE", "HIGH_WI", 20, 26, 9,
"FSL", "NEAR_CHAN", 20, 31, 10,
"FSL", "NEAR_PIT", 10, 31, 10,
"FSL", "REL_STEEP", 10, 31, 10,
"FSL", "CONCAVE_D", 20, 31, 10,
"FSL", "CONCAVE_A", 20, 31, 10,
"FSL", "PLANAR_A", 10, 31, 10,
"FSL", "HIGH_WI", 20, 31, 10,
"TSL", "NEAR_CHAN", 20, 32, 11,
"TSL", "NEAR_PIT", 10, 32, 11,
"TSL", "REL_STEEP", 10, 32, 11,
"TSL", "PLANAR_D", 25, 32, 11,
"TSL", "PLANAR_A", 25, 32, 11,
"TSL", "HIGH_WI", 10, 32, 11,
"FAN", "NEAR_CHAN", 20, 33, 12,
"FAN", "NEAR_PIT", 10, 33, 12,
"FAN", "REL_STEEP", 10, 33, 12,
"FAN", "CONVEX_A", 25, 33, 12,
"FAN", "PLANAR_D", 25, 33, 12,
"FAN", "LOW_WI", 10, 33, 12,
"LSM", "NEAR_DIV", 10, 41, 13,
"LSM", "NEAR_CHAN", 20, 41, 13,
"LSM", "NEAR_PIT", 10, 41, 13,
"LSM", "NEAR_PEAK", 10, 41, 13,
"LSM", "REL_STEEP", 10, 41, 13,
"LSM", "CONVEX_D", 15, 41, 13,
"LSM", "CONVEX_A", 15, 41, 13,
"LSM", "LOW_WI", 10, 41, 13,
"LLS", "NEAR_CHAN", 20, 42, 14,
"LLS", "NEAR_PIT", 20, 42, 14,
"LLS", "NEAR_LEVEL", 40, 42, 14,
"LLS", "PLANAR_D", 5, 42, 14,
"LLS", "PLANAR_A", 5, 42, 14,
"LLS", "HIGH_WI", 10, 42, 14,
"DEP", "NEAR_CHAN", 20, 43, 15,
"DEP", "NEAR_PIT", 30, 43, 15,
"DEP", "NEAR_LEVEL", 20, 43, 15,
"DEP", "CONCAVE_A", 10, 43, 15,
"DEP", "CONCAVE_D", 10, 43, 15,
"DEP", "HIGH_WI", 10, 43, 15)
foreign::write.dbf(as.data.frame(crule), "./inst/extdata/crule.dbf")


# foreign::read.dbf("../Docs/C7rule.dbf") %>%
#   datapasta::tribble_paste()
# Identical to ~/Dropbox/LITAP files/LandMapR_BR3Raw_20210427/LandMapR_Files/C7rule.dbf"
tibble::tribble(
  ~F_NAME,     ~FUZATTR, ~ATTRWT, ~FACET_NO, ~F_CODE,
    "CST",   "CONVEX_D",     15L,       11L,      1L,
    "CST",  "CONCAVE_D",      0L,       11L,      1L,
    "CST",   "PLANAR_D",     15L,       11L,      1L,
    "CST",   "CONVEX_A",     10L,       11L,      1L,
    "CST",  "CONCAVE_A",      0L,       11L,      1L,
    "CST",   "PLANAR_A",      0L,       11L,      1L,
    "CST",    "HIGH_WI",      0L,       11L,      1L,
    "CST",     "LOW_WI",     20L,       11L,      1L,
    "CST", "NEAR_LEVEL",     10L,       11L,      1L,
    "CST",  "REL_STEEP",      0L,       11L,      1L,
    "CST",   "NEAR_DIV",     10L,       11L,      1L,
    "CST",  "NEAR_HALF",      0L,       11L,      1L,
    "CST",  "NEAR_CHAN",      0L,       11L,      1L,
    "CST",  "NEAR_PEAK",     20L,       11L,      1L,
    "CST",   "NEAR_MID",      0L,       11L,      1L,
    "CST",   "NEAR_PIT",      0L,       11L,      1L,
    "CST",   "HI_ABOVE",      0L,       11L,      1L,
    "UPS",   "CONVEX_D",     20L,       21L,      2L,
    "UPS",  "CONCAVE_D",      0L,       21L,      2L,
    "UPS",   "PLANAR_D",      0L,       21L,      2L,
    "UPS",   "CONVEX_A",      0L,       21L,      2L,
    "UPS",  "CONCAVE_A",      0L,       21L,      2L,
    "UPS",   "PLANAR_A",      0L,       21L,      2L,
    "UPS",    "HIGH_WI",      0L,       21L,      2L,
    "UPS",     "LOW_WI",     20L,       21L,      2L,
    "UPS", "NEAR_LEVEL",      0L,       21L,      2L,
    "UPS",  "REL_STEEP",     20L,       21L,      2L,
    "UPS",   "NEAR_DIV",     30L,       21L,      2L,
    "UPS",  "NEAR_HALF",     10L,       21L,      2L,
    "UPS",  "NEAR_CHAN",      0L,       21L,      2L,
    "UPS",  "NEAR_PEAK",      0L,       21L,      2L,
    "UPS",   "NEAR_MID",      0L,       21L,      2L,
    "UPS",   "NEAR_PIT",      0L,       21L,      2L,
    "UPS",   "HI_ABOVE",      0L,       21L,      2L,
    "MID",   "CONVEX_D",      0L,       31L,      3L,
    "MID",  "CONCAVE_D",      0L,       31L,      3L,
    "MID",   "PLANAR_D",     25L,       31L,      3L,
    "MID",   "CONVEX_A",      0L,       31L,      3L,
    "MID",  "CONCAVE_A",      0L,       31L,      3L,
    "MID",   "PLANAR_A",     10L,       31L,      3L,
    "MID",    "HIGH_WI",      0L,       31L,      3L,
    "MID",     "LOW_WI",      0L,       31L,      3L,
    "MID", "NEAR_LEVEL",      0L,       31L,      3L,
    "MID",  "REL_STEEP",     30L,       31L,      3L,
    "MID",   "NEAR_DIV",      0L,       31L,      3L,
    "MID",  "NEAR_HALF",     25L,       31L,      3L,
    "MID",  "NEAR_CHAN",      0L,       31L,      3L,
    "MID",  "NEAR_PEAK",      0L,       31L,      3L,
    "MID",   "NEAR_MID",     10L,       31L,      3L,
    "MID",   "NEAR_PIT",      0L,       31L,      3L,
    "MID",   "HI_ABOVE",      0L,       31L,      3L,
    "LOW",   "CONVEX_D",      0L,       41L,      4L,
    "LOW",  "CONCAVE_D",     20L,       41L,      4L,
    "LOW",   "PLANAR_D",      0L,       41L,      4L,
    "LOW",   "CONVEX_A",      0L,       41L,      4L,
    "LOW",  "CONCAVE_A",      0L,       41L,      4L,
    "LOW",   "PLANAR_A",      0L,       41L,      4L,
    "LOW",    "HIGH_WI",     20L,       41L,      4L,
    "LOW",     "LOW_WI",      0L,       41L,      4L,
    "LOW", "NEAR_LEVEL",      0L,       41L,      4L,
    "LOW",  "REL_STEEP",     20L,       41L,      4L,
    "LOW",   "NEAR_DIV",      0L,       41L,      4L,
    "LOW",  "NEAR_HALF",     10L,       41L,      4L,
    "LOW",  "NEAR_CHAN",     30L,       41L,      4L,
    "LOW",  "NEAR_PEAK",      0L,       41L,      4L,
    "LOW",   "NEAR_MID",      0L,       41L,      4L,
    "LOW",   "NEAR_PIT",      0L,       41L,      4L,
    "LOW",   "HI_ABOVE",      0L,       41L,      4L,
    "DEP",   "CONVEX_D",      0L,       51L,      5L,
    "DEP",  "CONCAVE_D",     15L,       51L,      5L,
    "DEP",   "PLANAR_D",     15L,       51L,      5L,
    "DEP",   "CONVEX_A",      0L,       51L,      5L,
    "DEP",  "CONCAVE_A",     10L,       51L,      5L,
    "DEP",   "PLANAR_A",      0L,       51L,      5L,
    "DEP",    "HIGH_WI",     20L,       51L,      5L,
    "DEP",     "LOW_WI",      0L,       51L,      5L,
    "DEP", "NEAR_LEVEL",     10L,       51L,      5L,
    "DEP",  "REL_STEEP",      0L,       51L,      5L,
    "DEP",   "NEAR_DIV",      0L,       51L,      5L,
    "DEP",  "NEAR_HALF",      0L,       51L,      5L,
    "DEP",  "NEAR_CHAN",     10L,       51L,      5L,
    "DEP",  "NEAR_PEAK",      0L,       51L,      5L,
    "DEP",   "NEAR_MID",      0L,       51L,      5L,
    "DEP",   "NEAR_PIT",     20L,       51L,      5L,
    "DEP",   "HI_ABOVE",      0L,       51L,      5L
  ) %>%
  as.data.frame() %>%
  foreign::write.dbf("./inst/extdata/c7rule.dbf")
FRDC-SHL/LITAP documentation built on April 14, 2025, 9:35 a.m.