## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) library(ppitables) ## ----naming, eval = FALSE----------------------------------------------------- # ppiXXXYYYY ## ----eval = TRUE-------------------------------------------------------------- find_table() ## ----eval = TRUE-------------------------------------------------------------- find_table(region = "Africa") ## ----eval = TRUE-------------------------------------------------------------- find_table(country = "Zambia") ## ----eval = TRUE-------------------------------------------------------------- get_table() ## ----eval = TRUE-------------------------------------------------------------- get_table(region = "Africa") ## ----ppi-example1------------------------------------------------------------- ppiCOL2012$ppp250[ppiCOL2018$score == 30] ## ----ppi-example2------------------------------------------------------------- ppi_scores <- c("25", "26", "25", "27", "26", "29", "28", "29", "25", "28") poverty_prob <- lapply( X = ppi_scores, FUN = function(x) ppiCOL2012$ppp250[ppiCOL2018$score == x] ) poverty_prob <- unlist(poverty_prob) mean(poverty_prob)