xuanlongma

# Script for question posted on Stack Overflow
#	Load relevant libraries
library(ggplot2)
library(raster)
library(gridExtra)


vplayout <- function(x, y) {
	viewport(layout.pos.row = x, layout.pos.col = y)
	}