data/popTMprojMed.R

In PPgp/wpp2015plusMig: Modified World Population Prospects 2015 Generated Using Probabilistic Migration

# This dataset is created on the fly as a sum of the age-specific population median projections popMprojMed

popTMprojMed <- local({
	library(plyr)
	source('popMprojMed.R')
	
	sum.by.country <- function(dataset) {
		year.cols.idx <- grep('^[0-9]{4}', colnames(dataset))
		ddply(dataset[,c(which(colnames(dataset)=='country_code'), year.cols.idx)], "country_code", .fun=colwise(sum))
	}
	tpop <- sum.by.country(popMprojMed)
	cols.to.use <- colnames(tpop)[-match('country_code', colnames(tpop))]
	name.col <- grep('^name$|^country$', colnames(popMprojMed), value=TRUE)
	cbind(country_code=tpop$country_code, 
				 name=popMprojMed[,name.col][match(tpop$country_code, popMprojMed$country_code)], 
				 tpop[,cols.to.use])
})