if(Sys.getenv("ImageMagick")==""){
cat("Please install ImageMagick
")
} else {
img <- read.image(system.file("img/wias.ppm",package="adimpro"))
X11(height=5,width=10)
par(mfrow=c(1,2))
show.image(img,main="Original Image")
img.rot <- rotate.image(img)
show.image(img.rot,main="Rotated Image")
}Run the code above in your browser using DataLab