if (sits_run_examples()) {
# create a SAR data cube from cloud services
cube_s1_grd <- sits_cube(
source = "MPC",
collection = "SENTINEL-1-GRD",
bands = c("VV", "VH"),
orbit = "descending",
tiles = c("21LUJ"),
start_date = "2021-08-01",
end_date = "2021-09-30"
)
# plot VH band of the first date of the data cube
plot(cube_s1_grd, band = "VH")
}
Run the code above in your browser using DataLab