In inbo/abvanalysis: Analysis of the Common Breeding Bird Survey

(PART) Indicatoren {-}

soortenlijst %>%
  transmute(
    .data$soort, indicator = .data$speciesgroup,
    ondergrens = round(exp(.data$drempel), 3),
    bovengrens = round(exp(-.data$drempel), 3)
  ) %>%
  write_vc(
    file = "samengesteld_soorten", root = output_dir, strict = strict,
    sorting = c("indicator", "soort"), optimize = FALSE
  ) -> samensteld_groep_vc
composite_index %>%
  inner_join(meta, by = "analysis") %>%
  transmute(
    indicator = factor(.data$speciesgroup),
    frequentie = factor(ifelse(.data$cycle, "driejaarlijks", "jaarlijks")),
    .data$referentie, naar = .data$periode,
    schatting = round(exp(.data$estimate), 3),
    lcl = round(exp(.data$lcl), 3),
    ucl = round(exp(.data$ucl), 3),
    klasse = .data$klasse, .data$interpretatie, .data$wijziging,
    analyse = .data$analysis, status = .data$status_fingerprint
  ) %>%
  write_vc(
    file = "samengesteld", root = output_dir, optimize = FALSE, strict = strict,
    sorting = c("indicator", "frequentie", "referentie", "naar")
  ) -> samengesteld_vc

meta %>%
  filter(.data$composite, .data$status == "converged") %>%
  arrange(.data$speciesgroup) %>%
  distinct(.data$hash) %>%
  pull(.data$hash) %>%
  sapply(
    function(id) {
      knit_expand("_samengesteld.Rmd", id = id)
    }
  ) %>%
  paste(collapse = "\n") -> rmd
knit(text = rmd, quiet = TRUE) %>%
  cat()

inbo/abvanalysis documentation built on April 6, 2023, 5:14 a.m.