filename <- system.file("sample_vid/Walk3.mp4", package = "videoplayR")
vid <- readVid(filename)
imshow(getFrame(vid, 125))
bg <- backgrounder(vid, n = 100, method = "median", color = TRUE)
imshow(bg)
Run the code above in your browser using DataLab