oldpar<-par(no.readonly=TRUE)
par(mfrow=c(4,8))
for(i in 1:ncol(corpsepaint)){
p1<-matrix(corpsepaint[,i],ncol=90,nrow=90,byrow=FALSE)
image(p1,col=gray.colors(256),main=colnames(corpsepaint)[i])
}
par(oldpar)
Run the code above in your browser using DataLab