# NOT RUN {
data_dir <- system.file("extdata/raster/cbers", package = "sits")
cbers_022024 <- sits_cube(
source = "LOCAL",
name = "cbers_022024",
satellite = "CBERS-4",
band = "NDVI",
sensor = "AWFI",
data_dir = data_dir,
parse_info = c("X1", "X2", "tile", "band", "date")
)
cbers_022024_copy <- sits_cube_copy(cbers_022024,
name = "cb_022024_cp",
dest_dir = tempdir()
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab