if (FALSE) {
outline_BC0077 <- read.table(paste(system.file("extdata", package = 'patternize'),
'/BC0077_outline.txt', sep=''), header = FALSE)
data(imageList)
target <- createTarget(outline_BC0077, imageList[[1]], plot = TRUE)
}
Run the code above in your browser using DataLab