if (FALSE) {
IDlist <- c('BC0077','BC0071','BC0050','BC0049','BC0004')
prepath <- system.file("extdata", package = 'patternize')
extension <- '.jpg'
imageList <- makeList(IDlist, 'image', prepath, extension)
target <- imageList[[1]]
HSV <- c(0.025,1,0.45)
# Note that this example only aligns one image with the target,
# remove [2] to run a full examples.
rasterList_regHSV <- patRegRGB(imageList[2], target, HSV,
colOffset= 0.15, crop = c(100,400,40,250), removebgR = 100, plot = 'stack')
}
Run the code above in your browser using DataLab