# NOT RUN {
# Read a set of time series with information on deforestation
data(samples_mt_4bands)
# Print the labels
sits_labels(samples_mt_4bands)
# Create a conversion list.
# Three classes will be converted to "Cropland".
conv_lst <- list(
Soy_Corn = "Cropland",
Soy_Cotton = "Cropland",
Soy_Fallow = "Cropland",
Soy_Millet = "Cropland",
Soy_Sunflower = "Cropland",
Fallow_Cotton = "Cropland"
)
# relabel the data
new_data <- sits_relabel(samples_mt_4bands, conv_lst)
# show the new labels
sits_labels(new_data)
# }
Run the code above in your browser using DataLab