# NOT RUN {
# Retrieve the set of samples for the Mato Grosso region
samples <- sits_select(samples_mt_6bands, bands = c("NDVI", "EVI"))
# get a point and classify the point with the ml_model
point <- sits_select(point_mt_6bands, bands = c("NDVI", "EVI"))
# plot the series
plot(point)
# obtain a set of patterns for these samples
patterns <- sits_patterns(samples)
plot(patterns)
# find the matches between the patterns and the time series
# using the TWDTW algorithm
# (uses the dtwSat R package)
matches <- sits_twdtw_classify(point, patterns,
bands = c("NDVI", "EVI"),
alpha = -0.1, beta = 100, theta = 0.5, keep = TRUE
)
# }
Run the code above in your browser using DataLab