# NOT RUN {
if (require(EBImage)) {
img <- read_tif(system.file("img", "Rlogo.tif", package = "ijtiff"))
str(img)
str(as_EBImage(img))
img <- read_tif(system.file("img", "2ch_ij.tif", package = "ijtiff"))
str(img)
str(as_EBImage(img))
}
# }
Run the code above in your browser using DataCamp Workspace