# NOT RUN {
## Load training data
data(rlogo)
train <- readRDS(system.file("external/trainingPoints.rds", package="RStoolbox"))
## Fit classifier
SC <- superClass(rlogo, trainData = train, responseCol = "class",
model = "rf", tuneLength = 1, predict = FALSE)
map <- predict(SC, rlogo)
# }
Run the code above in your browser using DataLab