# \donttest{
data(mock_env_data)
split_data <- list(
train = mock_env_data[1:80, ],
apply = mock_env_data[81:100, ]
)
params <- load_params()
detrended_list <- detrend(split_data,
mode = "linear"
)
trend <- detrended_list$model
detrended_train <- detrended_list$train
detrended_apply <- detrended_list$apply
result <- run_lightgbm(
train = detrended_train,
test = detrended_apply,
model_params = params$lightgbm,
alpha = 0.9,
calc_shaps = FALSE
)
retrended_predictions <- retrend_predictions(result$dt_predictions, trend)
# }
Run the code above in your browser using DataLab