aln_dir <- system.file("extdata/rasters_aligned",
package = "TemporalModelR")
params_file <- system.file(
"extdata/points/extracted_seasonal_Scaling_Parameters.csv",
package = "TemporalModelR"
)
out_dir <- file.path(tempdir(), "scaled")
scale_rasters(
input_dir = aln_dir,
output_dir = out_dir,
scaling_params_file = params_file,
variable_patterns = c(
"elevation" = "elevation",
"forest_cover" = "forest_cover_YEAR",
"prseas" = "prseas_YEAR_SEASON"
),
time_cols = c("year", "season"),
overwrite = TRUE,
verbose = FALSE
)
Run the code above in your browser using DataLab