R/profile_soilmthreshold_fvar.R

In stineb/fvar:

profile_soilmthreshold_fvar <- function(df_train,
                                        settings,
                                        weights = NA,
                                        len = 10,
                                        verbose = FALSE){
  
  ## profile threshold
  thresh_seq <- seq(from = 0, to = 1, length.out = len+2)
  thresh_seq <- thresh_seq[-1]
  thresh_seq <- thresh_seq[-length(thresh_seq)]
  
  list_eval <- purrr::map(
    as.list(thresh_seq),
    ~profile_soilmthreshold_fvar_bythreshold(
      .,
      df_train = df_train,
      settings = settings,
      weights = weights,
      verbose = verbose
      )
    )
  names(list_eval) <- as.character(thresh_seq)
  
  return(list_eval)
}

profile_soilmthreshold_fvar_bythreshold <- function(threshold,
                                                    df_train,
                                                    settings,
                                                    weights = NA,
                                                    verbose = FALSE){
  
  ## Train/predict
  df_nn <- train_predict_fvar( 
    df_train,
    settings,
    soilm_threshold    = threshold, 
    weights            = NA,
    verbose            = verbose
  )
  
  ## Performance evaluation
  list_eval <- test_performance_fvar(df_nn, settings)
  
  return(list_eval)
}