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