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]]
outline_BC0077 <- read.table(paste(system.file("extdata", package = 'patternize'),
'/BC0077_outline.txt', sep=''), header = FALSE)
rasterList_regW <- patRegW(imageList, target, plotTransformed = FALSE, cartoonID = 'BC0077',
correct = TRUE, plotCorrect = FALSE, blur = FALSE, sigma = 2,
bucketfill = FALSE, cleanP = 0, splitC = 10, plotPriority = TRUE,
plotWS = FALSE, plotBF = FALSE, plotFinal = TRUE, removebgR = 100,
maskOutline = outline_BC0077)
}
Run the code above in your browser using DataLab