R/create_biomod_model_list.R

In Vizzuality/species-distribution-modelling: Vizzuality tools for species distribution modelling

#' Create biomod model list
#'
#' @param biomod_data_package_list List of biomod2 data package objects
#' @param biomod_model_options Biomod2 model options object
#'
#' @return
#' List of biomod2 model objects
#' @export
#'
#' @examples
create_biomod_model_list <- function(biomod_data_package_list, biomod_model_options){
  return(
    lapply(biomod_data_package_list,
         function(x){
           spp_name <- names(x)
           return(
             biomod2::BIOMOD_Modeling(data =  x,
                                      models = c('CTA', 'RF','GLM'),
                                      models.options = biomod_model_options,
                                      DataSplit = 60,
                                      NbRunEval = 10,
                                      Yweights = NULL,
                                      VarImport = 3,
                                      models.eval.meth = c('KAPPA', 'TSS','ROC'),
                                      SaveObj = T,
                                      rescal.all.models = T,
                                      do.full.models = T,
                                      modeling.id = paste(spp_name, x@PA.strategy, as.character(format(Sys.time(), '%y%m%d')), sep="_"))

           )
         })
  )
}