In inbo/dhcurve: Automated Modelling of Diameter Height Curves for Trees

knitr::opts_chunk$set(echo = FALSE)

library(dplyr)
library(dhcurve)
library(knitr)

#sortering maken volgens aandeel outliers in curve

#curves met enkel gevlagde outliers verwijderen

Uitvoer <- NULL

for (Poutliers in unique(Selectie$maxResid)) { #nolint: cyclocomp_linter
  SelectieOutliers <- Selectie %>%
    filter(maxResid == Poutliers)
  for (Boomsoort in unique(SelectieOutliers$BMS)) {
    SelectieSoort <- SelectieOutliers %>%
      filter(BMS == Boomsoort)
    for (Domein in unique(SelectieSoort$DOMEIN_ID)) {
      SelectieModel <- SelectieSoort %>%
        filter(DOMEIN_ID == Domein)
      #print(unique(SelectieModel$Reden))  #nolint
      #print(maakGrafiek(SelectieModel))  #nolint
      if (TypeRapport == "dynamisch") {
        if (Uitbreidingsrapport) {
          Uitvoer <- c(Uitvoer, knit_child("UitbreidingscurveDynamisch.Rmd"))
        } else {
          Uitvoer <- c(Uitvoer, knit_child("DomeincurveDynamisch.Rmd"))
        }
      } else {
        if (Uitbreidingsrapport) {
          Uitvoer <- c(Uitvoer, knit_child("Uitbreidingscurve.Rmd"))
        } else {
          Uitvoer <- c(Uitvoer, knit_child("Domeincurve.Rmd"))
        }
      }
    }
  }
}