if (sits_run_examples()) {
# show accuracy for a set of samples
train_data <- sits_sample(samples_modis_ndvi, frac = 0.5)
test_data <- sits_sample(samples_modis_ndvi, frac = 0.5)
# compute a random forest model
rfor_model <- sits_train(train_data, sits_rfor())
# classify training points
points_class <- sits_classify(
data = test_data, ml_model = rfor_model
)
# calculate accuracy
acc <- sits_accuracy(points_class)
# plot accuracy
plot(acc)
}
Run the code above in your browser using DataLab