# NOT RUN {
data_dir <- system.file("extdata/raster/cbers", package = "sits")
cbers_022024 <- sits_cube(
source = "LOCAL",
name = "cbers_022024",
satellite = "CBERS-4",
sensor = "AWFI",
resolution = 64,
data_dir = data_dir,
parse_info = c("X1", "X2", "tile", "band", "date")
)
# plot the data cube
sits_view(cbers_022024, red = "B15", green = "B16", blue = "B13", time = 1)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab