# NOT RUN {
library(EBImage)
img <- ReadImageData(system.file('extdata', '50.tif', package = 'nandb'))
display(normalize(img[, , 1]), method = 'raster')
brightness <- Brightness(img, tau = NA, mst = "Huang")
MatrixRasterPlot(brightness, scale.name = 'brightness')
MatrixRasterPlot(brightness, scale.name = 'brightness', log.trans = TRUE)
MatrixRasterPlot(brightness, scale.name = 'brightness', log.trans = TRUE,
include.breaks = 1.35)
MatrixRasterPlot(brightness, scale.name = 'brightness', log.trans = TRUE,
breaks = 1:3)
MatrixRasterPlot(brightness, scale.name = 'brightness',
ranges = seq(0.5, 3, length.out = 6), range.names = paste0(1:5, 'mer'))
MatrixRasterPlot(brightness, scale.name = "brightness",
ranges = seq(0.5, 3, length.out = 6),
range.names = paste0(1:5, "mer"), log.trans = TRUE)
MatrixRasterPlot(brightness, scale.name = "brightness",
include.breaks = 1.25, range.names = NULL, log.trans = FALSE)
MatrixRasterPlot(brightness, scale.name = "brightness",
include.breaks = 1.25, log.trans = TRUE)
MatrixRasterPlot(brightness, scale.name = "brightness",
limits = c(1, 1.25), clip = TRUE)
MatrixRasterPlot(brightness, scale.name = "brightness",
include.breaks = 1.25)
# }
Run the code above in your browser using DataLab