50.tif
is a TIFF file which is a stack of 50 images of a
bit of a cell taken over a short space of time (i.e. it’s a video).
img <- ijtiff::read_tif(system.file("extdata", "50.tif",
package = "autothresholdr"
))
#> Reading 50.tif: an 8-bit, 100x100 pixel image of unsigned
#> integer type. Reading 1 channel and 50 frames . . .
#> Done.
dim(img)
#> [1] 100 100 1 50
Let’s display the first 3 frames:
and the last 3 frames: