Applicability helpers for AMS-III.A

Helpers that evaluate AMS-III.A applicability conditions covering legume area shares, inoculant registration, and monitoring sufficiency.

check_applicability_legume_share_iiia(data,
  legume_area_col = "legume_area_ha",
  total_area_col = "total_area_ha",
  min_legume_share = 0.2,
  group_cols = NULL)

check_applicability_inoculant_registration_iiia(data,
  registration_col = "inoculant_registered",
  group_cols = NULL)

check_applicability_monitoring_practices_iiia(data,
  monitoring_unit_cols,
  min_periods = 3)

Arguments

data

Tibble containing monitoring records.

legume_area_col

Column storing legume area (ha).

total_area_col

Column storing total cropped area (ha).

min_legume_share

Minimum allowable legume area share.

group_cols

Optional grouping columns identifying management units.

registration_col

Column storing logical inoculant registration flags.

monitoring_unit_cols

Character vector identifying monitoring unit columns.

min_periods

Minimum number of monitoring periods per unit.

Value

Tibbles indicating whether each applicability condition is satisfied.

Examples

library(tibble)
fields <- tibble(
  farm_id = c("A", "B"),
  legume_area_ha = c(24, 6),
  total_area_ha = c(30, 40)
)
check_applicability_legume_share_iiia(fields, "legume_area_ha", "total_area_ha")
#> # A tibble: 2 × 2
#>   legume_share legume_share_applicable
#>          <dbl> <lgl>                  
#> 1         0.8  TRUE                   
#> 2         0.15 FALSE                  

records <- tibble(
  farm_id = c("A", "A", "B"),
  monitoring_period = c(1, 2, 1),
  inoculant_registered = c(TRUE, TRUE, FALSE)
)
check_applicability_inoculant_registration_iiia(records, "inoculant_registered", "farm_id")
#> # A tibble: 2 × 2
#>   farm_id inoculant_registration_applicable
#>   <chr>   <lgl>                            
#> 1 A       TRUE                             
#> 2 B       FALSE                            

monitoring <- tibble(
  farm_id = c("A", "A", "A", "B"),
  season = c(1, 2, 3, 1)
)
check_applicability_monitoring_practices_iiia(monitoring, "farm_id")
#> # A tibble: 2 × 3
#>   farm_id monitoring_periods_observed monitoring_practices_applicable
#>   <chr>                         <int> <lgl>                          
#> 1 A                                 3 TRUE                           
#> 2 B                                 1 FALSE