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

knitr::opts_chunk$set(echo = FALSE)

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

Uitvoer <- NULL

  for (Boomsoort in unique(Dataset$BMS)) {
    DataSoort <- Dataset %>%
      filter(BMS == Boomsoort)
    for (Domein in unique(DataSoort$DOMEIN_ID)) {
      DataModel <- DataSoort %>%
        filter(DOMEIN_ID == Domein)
      Uitvoer <- c(Uitvoer, knit_child("dhcurve.Rmd"))
    }
  }