# NOT RUN {
# Read a set of samples with 2 classes ("Cerrado" and "Pasture")
data ("cerrado_2classes")
# Plot all the samples together
sits_plot (cerrado_2classes)
# Plot the first 20 samples (defaults to "allyears")
sits_plot (cerrado_2classes[1:20,])
# Plot the patterns
sits_plot (sits_patterns(cerrado_2classes))
# Retrieve the set of samples for the Mato Grosso region (provided by EMBRAPA)
data(samples_mt_ndvi)
# Retrieve a point
data(point_ndvi)
# classify the point
model_svm <- sits_train(samples_mt_ndvi, ml_method = sits_svm())
class_ndvi.tb <- sits_classify (point_ndvi, model_svm)
# plot the classification
sits_plot (class_ndvi.tb)
# }
Run the code above in your browser using DataLab