if (FALSE) {
dir <- "images"
allFullImages <- loadImages (dirPictures=dir,nImages=1:30)
stillBack <- createBackground(allFullImages)
allImages <- subtractBackground(stillBack)
findPixelRange(allFullImages,frame=10)
}
Run the code above in your browser using DataLab