\documentclass{article}

\usepackage[utf8]{inputenc}
%\usepackage[latin1]{inputenc}
\usepackage[brazil]{babel}
\usepackage[T1]{fontenc}
\usepackage{graphicx}
\usepackage{wrapfig}
\usepackage{color, colortbl}
\usepackage[table,usenames,dvipsnames]{xcolor}
\usepackage{longtable}
\usepackage{lscape}
\usepackage{natbib} 

\title{Minha primeira sessão com Swaeve}
\author{Walmes Zeviani}
\date{}

\usepackage{Sweave}
\begin{document}

Nesse documento será feito a análise dos dados de renda e alfabetismo no Brasil no ano de
2000. Os dados foram obtidos do site do ipeadata (\texttt{www.ipeadata.org.br}).

\section{Gerando números aleatórios}

No código abaixo estamos gerando 100 números da distribuição normal padrão.

% echo={TRUE, FALSE}, results={verbatim,tex,hide}, eval={TRUE,FALSE}, fig={TRUE,FALSE}

A média da amostra gerada foi 100.090405908636 enquanto que a media foi 100.061756309078.

\section{Exportando tabelas}

\begin{Schunk}
\begin{Sinput}
> ra <- read.table("renalf.csv", header=TRUE, sep=";", dec=",",
+                  quote="", fileEncoding="utf-8", stringsAsFactors=FALSE)
> names(ra) <- c("estado","cod","mun","renda","alfab","x")
> nrow(ra)
\end{Sinput}
\begin{Soutput}
[1] 5592
\end{Soutput}
\end{Schunk}

Agora eu vou ler dados de albatismo e renda do Brasil. O arquivo lido tem 5592 linhas e 6 colunas.


% latex table generated in R 2.15.0 by xtable 1.7-0 package
% Thu Jun 21 17:04:00 2012
\begin{table}[ht]
\begin{center}
\caption{Tabela de médias}
\label{tbm}
\begin{tabular}{lrr}
  \hline
estado & alfab & renda \\ 
  \hline
AC & 63.064 & 107.61295 \\ 
  AL & 56.791 & 75.56631 \\ 
  AM & 71.068 & 83.00503 \\ 
  AP & 81.986 & 133.52094 \\ 
  BA & 68.516 & 93.22665 \\ 
  CE & 63.444 & 82.43356 \\ 
  DF & 94.321 & 605.40600 \\ 
  ES & 84.911 & 212.13275 \\ 
  GO & 82.589 & 197.88495 \\ 
  MA & 64.612 & 69.80522 \\ 
  MG & 81.775 & 177.84552 \\ 
  MS & 84.035 & 211.62913 \\ 
  MT & 83.863 & 226.14854 \\ 
  PA & 75.949 & 116.64120 \\ 
  PB & 61.699 & 82.33660 \\ 
  PE & 64.147 & 100.15450 \\ 
  PI & 61.150 & 73.21127 \\ 
  PR & 85.162 & 202.02694 \\ 
  RJ & 88.195 & 260.79775 \\ 
  RN & 65.313 & 93.82917 \\ 
  RO & 83.995 & 185.99188 \\ 
  RR & 78.449 & 133.73853 \\ 
  RS & 90.836 & 246.46254 \\ 
  SC & 90.864 & 256.46360 \\ 
  SE & 67.922 & 92.04288 \\ 
  SP & 88.820 & 276.73322 \\ 
  TO & 76.354 & 115.69989 \\ 
   \hline
\end{tabular}
\end{center}
\end{table}
% latex table generated in R 2.15.0 by xtable 1.7-0 package
% Thu Jun 21 17:04:00 2012
\begin{table}[ht]
\begin{center}
\caption{Tabela de médias}
\label{tbm}
\begin{tabular}{ccc}
  \hline
estado & alfab & renda \\ 
  \hline
\rowcolor[gray]{0.9} AC & 63.064 & 107.61295 \\ 
  \rowcolor[gray]{0.75} AL & 56.791 & 75.56631 \\ 
  \rowcolor[gray]{0.9} AM & 71.068 & 83.00503 \\ 
  \rowcolor[gray]{0.75} AP & 81.986 & 133.52094 \\ 
  \rowcolor[gray]{0.9} BA & 68.516 & 93.22665 \\ 
  \rowcolor[gray]{0.75} CE & 63.444 & 82.43356 \\ 
  \rowcolor[gray]{0.9} DF & 94.321 & 605.40600 \\ 
  \rowcolor[gray]{0.75} ES & 84.911 & 212.13275 \\ 
  \rowcolor[gray]{0.9} GO & 82.589 & 197.88495 \\ 
  \rowcolor[gray]{0.75} MA & 64.612 & 69.80522 \\ 
  \rowcolor[gray]{0.9} MG & 81.775 & 177.84552 \\ 
  \rowcolor[gray]{0.75} MS & 84.035 & 211.62913 \\ 
  \rowcolor[gray]{0.9} MT & 83.863 & 226.14854 \\ 
  \rowcolor[gray]{0.75} PA & 75.949 & 116.64120 \\ 
  \rowcolor[gray]{0.9} PB & 61.699 & 82.33660 \\ 
  \rowcolor[gray]{0.75} PE & 64.147 & 100.15450 \\ 
  \rowcolor[gray]{0.9} PI & 61.150 & 73.21127 \\ 
  \rowcolor[gray]{0.75} PR & 85.162 & 202.02694 \\ 
  \rowcolor[gray]{0.9} RJ & 88.195 & 260.79775 \\ 
  \rowcolor[gray]{0.75} RN & 65.313 & 93.82917 \\ 
  \rowcolor[gray]{0.9} RO & 83.995 & 185.99188 \\ 
  \rowcolor[gray]{0.75} RR & 78.449 & 133.73853 \\ 
  \rowcolor[gray]{0.9} RS & 90.836 & 246.46254 \\ 
  \rowcolor[gray]{0.75} SC & 90.864 & 256.46360 \\ 
  \rowcolor[gray]{0.9} SE & 67.922 & 92.04288 \\ 
  \rowcolor[gray]{0.75} SP & 88.820 & 276.73322 \\ 
  \rowcolor[gray]{0.9} TO & 76.354 & 115.69989 \\ 
   \hline
\end{tabular}
\end{center}
\end{table}
\section{Fazendo figuras}

\begin{figure}[h]
\begin{center}
\includegraphics{docsweave-histograma}
\end{center}
  \caption{Histograma do alfabetismo.}
\end{figure}

\setkeys{Gin}{width=0.95\textwidth}
\begin{figure}[h]
\begin{center}
\includegraphics{docsweave-barplot}
\end{center}
  \caption{Gráfico de barras do número de municípios por estado.}
\end{figure}

\setkeys{Gin}{width=1\textwidth}
\begin{figure}[h]
\begin{center}
\includegraphics{docsweave-barplot}
\end{center}
  \caption{Gráfico de barras do número de municípios por estado.}
\end{figure}

\begin{figure}[h]
\begin{center}
\includegraphics{docsweave-histogramalattice}
\end{center}
  \caption{Histograma do alfabetismo.}
\end{figure}

\begin{figure}[h]
\begin{center}
\includegraphics{docsweave-histogramalattice}
\end{center}
  \caption{Diagrama de dispersão do alfabetismo em função da renda.}
\end{figure}




\end{document}
