if (FALSE) {
predictions <-classifyCropsSpecies(images,modelfile,resize=456)
animals <- allframes[allframes$max_detection_category==1,]
empty <- setEmpty(allframes)
animals <- sequenceClassification(animals, empty, predictions, classes,
emptyclass = "Empty",
stationcolumnumn="StationID", maxdiff=60)
}
Run the code above in your browser using DataLab