# NOT RUN {
library(EBImage)
library(magrittr)
img <- ReadImageData(system.file('extdata', '50.tif', package = 'nandb'))
display(normalize(img[, , 1]), method = 'raster')
mean.intensity <- MeanIntensity(img, mst = 'Huang', filt = 'median')
display(normalize(mean.intensity), method = 'r')
two.channel.img <- abind::abind(img, img, along = 4) %>% aperm(c(1, 2, 4, 3))
mint.2ch <- MeanIntensity(two.channel.img, mst = "h", filt = "med", n.ch = 2)
setwd(tempdir())
img <- ReadImageData(system.file('extdata', '50.tif', package = 'nandb'))
WriteIntImage(img, '50.tif')
WriteIntImage(img, '50again.tif')
MeanIntensityTxtFolder(mcc = 2)
img.paths <- rep(system.file('extdata', '50.tif', package = 'nandb'), 2)
mean.intensities <- MeanIntensities(img.paths, mst = 'Huang', mcc = 2)
# }
Run the code above in your browser using DataLab