# Rscript ./Pipelines/reportPipe/Components/calculate/script.R 
# Work in local environment so that functions are saved with env 
local({ 
# Load module input 
assign("nonvoters", readRDS("/home/staff/paul/Research/IPC/Examples/InternetParty/Pipelines/reportPipe/Components/tidy/nonvoters.rds")) 
assign("pop2013", readRDS("/home/staff/paul/Research/IPC/Examples/InternetParty/Pipelines/reportPipe/Components/tidy/pop2013.rds")) 
# Set working directory 
oldwd <- setwd("./Pipelines/reportPipe/Components/calculate") 
# Module source 

youngNonvoters <- nonvoters$X2011[nonvoters$AgeGroup == "18 to 24"]

youngPop <- sum(pop2013$Value[pop2013$numericAge >= 18 &
                              pop2013$numericAge <= 24])
votePop <- sum(pop2013$Value[pop2013$numericAge >= 18])

youngPopNonvoters <- youngNonvoters/100*youngPop
youngNonvotersPercent <- 100*youngPopNonvoters/votePop 
# Reset working directory 
setwd(oldwd) 
# Save module output 
saveRDS(youngNonvotersPercent, "./Pipelines/reportPipe/Components/calculate/youngNonvotersPercent.rds") 
}) # End local()