# NOT RUN {
# get a timeline for MODIS data
data("timeline_2000_2017")
# get a set of subsets for a period of 10 years
ref_start_date <- lubridate::ymd("2000-08-28")
ref_end_date <- lubridate::ymd("2000-08-13")
nsamples <- 23
dates <- sits:::.sits_timeline_match(timeline_2000_2017,
ref_start_date, ref_end_date, nsamples)
# }
Run the code above in your browser using DataLab