library(MLFS)
data(data_v6)
data(data_ingrowth)
data(ingrowth_table)
data(ingrowth_parameter_list)
ingrowth_outputs <- predict_ingrowth(
df_fit = data_ingrowth,
df_predict = data_v6,
site_vars = c("slope", "elevation", "northness", "siteIndex"),
include_climate = TRUE,
eval_model_ingrowth = FALSE,
rf_mtry = 3,
k = 10, blocked_cv = TRUE,
ingrowth_model = 'rf',
ingrowth_table = ingrowth_table,
DBH_distribution_parameters = ingrowth_parameter_list)
Run the code above in your browser using DataLab