packages.R

# CHECK PACKGES are install and load
check_packages <- function(packages=c("data.table", "dismo", "doParallel", "foreign", "knitr", "maptools", "markdown", "MASS", "mvoutlier", "pander", "quantreg", "RColorBrewer", "reshape", "rgdal", "rjson", "rworldmap", "sp")){
	

	#install if needed
	new.packages <- packages[!(packages %in% installed.packages()[,"Package"])]
	if(length(new.packages)) install.packages(new.packages)	
	#load
	for(p in packages)
		library(p, quietly=TRUE, character.only =TRUE)		
}