data_test_vc22 <- data.frame(
species_code = c("PICEA_ABIES", "FAGUS_SYLVATICA", "UNKNOWN_SPECIES", "QUERCUS_ROBUR"),
dbh = c(19.1, 25.5, 15.9, 6.4),
htot = c(25, 18, 20, 22)
)
results_console <- vallet_vc22(data_test_vc22)
print(results_console)
Run the code above in your browser using DataLab