solution to par(mfrow=c(1,2))