data(mock_env_data)
detrended_list <- list(
train = mock_env_data[1:80, ],
apply = mock_env_data[81:100, ]
)
scale_result <- scale_data(
train_data = detrended_list$train,
apply_data = detrended_list$apply
)
scaled_train <- scale_result$train
scaled_apply <- scale_result$apply
Run the code above in your browser using DataLab