install.packages("jpeg")
library(jpeg)
# install.packages("tiff")
# library(tiff)
imgjpg<-readJPEG("Oriental_Pied_Hornbill.jpg",native=TRUE)
par("mar")
plot(c(0, 3*22.56), c(0, 4*12.7), type = "n", xlab = "", ylab = "")
for(i in 1:3){
for(j in 1:4){
rasterImage(imgjpg, (i-1)*22.56, (j-1)*12.7, i*22.56, j*12.7)
}}