World Population Predictor

This is a very simple application which displays the actual and projected total population (in Million) of the world by country or region. Here is the link to app. https://sukhenc.shinyapps.io/populationpredictor/.

1. Navigation Panel The left-hand navigation panel has three input boxes and one link to the help web page.
2. Main Panel The right-hand main panel has three sections as following from top to bottom. Country Profile, Plot and Projected Population
3. Link to help page This webpage has additional information about this Shiny Aapp.

1. Source Data http://databank.worldbank.org/data/source/health-nutrition-and-population-statistics/
2. Source Code https://github.com/sukhenc/worldpopulationpredictor/

source("loaddata.R")
kable(summary(subset(populationdataset, countryname == "United Kingdom")[,6:7]), row.names = FALSE)

profile <- subset(populationdataset, countryname == "United Kingdom" & year == "2010") 
profile <- profile[,c("countrycode","countryname", "year", "population")]
profile$projectedpopulation <- round(predict(predmodel, newdata = data.frame(year = 2010)),2)
kable(profile, row.names = FALSE)