\fontfamily{lmss}\selectfont
library(BETS)
knitr::opts_chunk$set(warning=FALSE, message=FALSE)
\fancypagestyle{plain}{
\fancyhf{}%
\setlength{\headheight}{40pt}
\fancyhead[L]{
\includegraphics[width=\linewidth,height=35pt]{logo_business} }
\fancyfoot[L]{
{\fontfamily{lmss}\selectfont
{\small Charts generated by the \textbf{BETS R Package} on r Sys.Date()
$\diamond$ \textbf{\url{https://github.com/pedrocostaferreira/BETS}}}}
}
\fancyfoot[R]{
\thepage\ / \pageref{LastPage} }
}
\pagestyle{plain}
dir.create("graphs") chart(ts = "sent_ind", open = F, file = "sent_ind") chart(ts = "conf_lvl", open = F, file = "conf_lvl") chart(ts = "iie_br", open = F, file = "iie_br") chart(ts = "transf_ind", open = F, file = "transf_ind")
\begin{figure}[h] \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/sent_ind} \label{ipca} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/conf_lvl} \label{cut} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/iie_br} \label{cut} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/transf_ind} \label{cut} \end{subfigure} \end{figure}
chart(ts = "servc", open = F, file = "servc") chart(ts = "retail", open = F, file = "retail") chart(ts = "constr", open = F, file = "constr") chart(ts = "consm", open = F, file = "consm")
\begin{figure}[h] \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/servc} \label{ipca} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/retail} \label{cut} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/constr} \label{cut} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/consm} \label{cut} \end{subfigure} \end{figure}
chart(ts = "gdp_vars", open = F, file = "gdp_vars") chart(ts = "gdp_comps", open = F, file = "gdp_comps") chart(ts = "cap_utl", open = F, file = "cap_utl") chart(ts = "gdp_mon", open = F, file = "gdp_mon")
\begin{figure}[h] \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/gdp_vars} \label{ipca} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/gdp_comps} \label{cut} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/cap_utl} \label{cut} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/gdp_mon} \label{cut} \end{subfigure} \end{figure}
chart(ts = "gdp_unemp", open = F, file = "gdp_unemp") chart(ts = "misery_index", open = F, file = "misery_index") chart(ts = "lab_coin", open = F, file = "lab_lead") chart(ts = "lab_lead", open = F, file = "lab_coin")
\begin{figure}[h] \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/gdp_unemp} \label{ipca} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/lab_lead} \label{cut} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/misery_index} \label{cut} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/lab_coin} \label{cut} \end{subfigure} \end{figure}
chart(ts = "lei", open = F, file = "lei") chart(ts = "cei", open = F, file = "cei") chart(ts = "ei_vars", open = F, file = "ei_vars") chart(ts = "ei_comps", open = F, file = "ei_comps")
\begin{figure}[h] \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/lei} \label{ipca} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/cei} \label{cut} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/ei_vars} \label{cut} \end{subfigure} ~ \begin{subfigure}{.5\textwidth} \centering \includegraphics[width=11.5cm,keepaspectratio]{graphs/ei_comps} \label{cut} \end{subfigure} \end{figure}
Shaded areas represent recessions, as dated by CODACE (FGV/IBRE).
Definition: Average between industry, services, construction, retail and consumer confidence indexes. Source: FGV/IBRE
Definition: Inflation rate (IPCA) plus Unemployment Rate (from PNAD-C) Source: IBGE
Definition: Average between industry, services, construction and retail confidence indexes. Source: FGV/IBRE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.