Nothing
#' @title Create a chart of the Economically Active Population time series
#'
#' @description Creates a plot of series 10810
#'
#' @importFrom grDevices dev.new dev.off pdf png
#' @importFrom utils read.csv2
#' @importFrom stats ts plot.ts
#' @importFrom graphics axis text points mtext arrows
#'
#' @return An image file is saved in the 'graphs' folder, under the BETS installation directory.
#' @author Talitha Speranza \email{talitha.speranza@fgv.br}
draw.eap = function(){
eap = (BETSget(10810)/BETSget(10800))*100
start = c(2006,1)
if(!is.null(start)){
eap = window(eap, start = start)
}
lims = chart.add_basic(ts = eap, title = "Economically Active Population", subtitle = "Percentage of Population in Active Age", col = "royalblue", arr.pos = "h", leg.pos = "bottom")
chart.add_notes(eap, ylim = lims[3:4], xlim = lims[1:2])
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.