# NOT RUN {
{
require(fieldRS)
# read reference profiles
data(referenceProfiles)
# target time series
x <- c(2200, 4500, 4600, 6400, 1600)
y <- referenceProfiles[,2:6]
# Perform classification
c <-phenoCropClass(x, y)
head(c)
}
# }
Run the code above in your browser using DataLab