# \dontshow{
if(require(pixmap)){
# }
library(pixmap)
imagelocation <- system.file("extdata", "image.pgm", package="image.ContourDetector")
image <- read.pnm(file = imagelocation, cellres = 1)
contourlines <- image_contour_detector(image@grey * 255)
plot(image)
plot(contourlines, add = TRUE, col = "red")
# \dontshow{
} # End of main if statement running only if the required packages are installed
# }
Run the code above in your browser using DataLab