# data preparation
library(terra)
n1_small <- rast(system.file("input_maps/n1_small.tif", package = "rangr"))
K_small_changing <- rast(system.file("input_maps/K_small_changing.tif",
package = "rangr"))
K_interpolated_01 <- K_get_interpolation(
K_small_changing,
K_time_points = c(1, 10, 15)
)
K_two_layers <- subset(
K_small_changing,
c(1, 2)
)
K_interpolated_02 <- K_get_interpolation(
K_two_layers,
time = 15
)
Run the code above in your browser using DataLab