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")) } } } } }
cat(Uitvoer, sep = "\n")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.