library(ReadImages)

jpeg <- read.jpeg("Kofteridis_Page_4_Image_0001.jpg")

plot(jpeg)