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

```r}, echo=TRUE, message=FALSE, warning=FALSE, eval=FALSE}

library(dhcurve)

Eerst de gegevens uit de databank opladen (hier niet opgenomen)

Datalijst <- initiatie(Data)

Data.basis <- Datalijst[["Basis"]] Data.afgeleid <- Datalijst[["Afgeleid"]] Data.lokaal <- Datalijst[["Lokaal"]] Data.rest <- Datalijst[["Rest"]]

Basismodel <- fit.basis(Data.basis) AfwijkendeMetingen <- validatie.basis(Basismodel)

metingen nakijken en vlaggen in de databank vooraleer verder te gaan!

Afgeleidmodel <- fit.afgeleid(Data.afgeleid, Basismodel) AfwijkendeMetingen2 <- validatie.afgeleid(Basismodel, Afgeleidmodel)

metingen nakijken en vlaggen in de databank vooraleer verder te gaan!

Lokaalmodel <- fit.lokaal(Data.lokaal) AfwijkendeMetingen3 <- validatie.lokaal(Lokaalmodel, Data.lokaal)

metingen nakijken en vlaggen in de databank vooraleer verder te gaan!

om te gebruiken in IVANHO

OutputIvanho <- outputIVANHO(Basismodel, Afgeleidmodel, Lokaalmodel, Data.lokaal) write.csv2(OutputIvanho, "IVANHO.csv")

voor een lijst met de modelparameters en foutenmarge (RMSE):

Resultaat <- resultaat(Basismodel, Afgeleidmodel, Lokaalmodel, Data.lokaal) write.csv2(Resultaat, "DHcurves.csv")

Eventueel, bij voldoende metingen van hogere omtrekklassen

UitbreidingBasis <- validatie.uitbreiding(Basismodel, Data.basis) UitbreidingLokaal <- validatie.uitbreiding(Lokaalmodel, Data.lokaal) Uitbreiding <- rbind(UitbreidingBasis, UitbreidingLokaal) OutputIvanho <- outputIVANHO(Basismodel, Afgeleidmodel, Lokaalmodel, Data.lokaal, Uitbreiding = Uitbreiding) write.csv2(OutputIvanho, "IVANHO_uitbreiding.csv") ```

inbo/dhcurve documentation built on April 6, 2023, 5:17 a.m.