df <- data.frame(
c130 = c(145, 156, 234, 233),
hdom = c(25, 23, 45, 34),
species_code = c("PINUS_SYLVESTRIS", "QUERCUS_RUBRA",
"QUERCUS_SP", "FAGUS_SYLVATICA")
)
dagnelie_vc22_1g(data = df)
Run the code above in your browser using DataLab