diff --git a/animation/animation.Rmd b/animation/animation.Rmd
new file mode 100644
index 0000000000000000000000000000000000000000..0d6871658da80f05e6ef1f01326837b011307e0b
--- /dev/null
+++ b/animation/animation.Rmd
@@ -0,0 +1,255 @@
+---
+title: IGUIR2 - Galeria Animation
+author: Eduardo E. Ribeiro Jr \& Walmes M. Zeviani
+output:
+    html_document:
+      css: ../galery.css
+      toc: yes
+---
+
+```{r setup, include=FALSE}
+library(animation)
+library(knitr)
+```
+
+> Galeria de animações em estatística e utilitários para a criação de animações em R  
+> (Yihui Xie)
+
+## Instalação
+
+[http://cran.r-project.org/web/packages/animation](http://cran.r-project.org/web/packages/animation)  
+[https://github.com/yihui/animation](https://github.com/yihui/animation)
+
+```{r, eval=FALSE}
+install.packages("animation")
+require(animation)
+```
+
+## Animações disponíveis
+
+* `bisection.method()`
+* `boot.iid()`
+* `boot.lowess()`
+* `brownian.motion()`
+* `BM.circle()`
+* `g.brownian.motion()`
+* `buffon.needle()`
+* `clt.ani()`
+* `conf.int()`
+* `cv.ani()`
+* `flip.coin()`
+* `grad.desc()`
+* `kmeans.ani()`
+* `knn.ani()`
+* `least.squares()`
+* `lln.ani()`
+* `MC.hitormiss()`
+* `MC.samplemean()`
+* `mwar.ani()`
+* `newton.method()`
+* `price.ani()`
+* `quincunx()`
+* `sample.cluster()`
+* `sample.simple()`
+* `sample.strat()`
+* `sample.system()`
+* `sample.ratio()`
+* `sim.qqnorm()`
+
+## Exemplos
+
+### Intervalos de Confiança
+```{r, eval=TRUE, echo=TRUE, message=FALSE}
+## Demonstração do conceito de intervalos de confiança
+saveHTML(conf.int(),
+         autobrowse = FALSE,
+         img.name = "confint",
+         imgdir = "confint",
+         interval = 0.1,
+         htmlfile = "confint.html",
+         verbose = FALSE)
+```
+<center>
+<iframe src="confint.html" width=100% height = 700 frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> </iframe>
+</center>
+
+### Lançamento de uma moeda
+```{r, eval=TRUE, echo=TRUE, message=FALSE}
+## Demonstração a convergência do lançamento de uma moeda
+saveHTML(flip.coin(),
+         autobrowse = FALSE,
+         img.name = "flipcoin",
+         imgdir = "flipcoin",
+         interval = 0.1,
+         htmlfile = "flipcoin.html",
+         verbose = FALSE)
+```
+<center>
+<iframe src="flipcoin.html" width=100% height = 700 frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> </iframe>
+</center>
+
+### Algoritmo de agrupamento K-Means
+```{r, eval=TRUE, echo=TRUE, message=FALSE}
+## Demonstração do conceito do algoritmo de agrupamento K-means 
+saveHTML(kmeans.ani(),
+         autobrowse = FALSE,
+         img.name = "kmeans",
+         imgdir = "kmeans",
+         interval = 0.1,
+         htmlfile = "kmeans.html",
+         verbose = FALSE)
+```
+<center>
+<iframe src="kmeans.html" width=100% height = 700 frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> </iframe>
+</center>
+
+### Método de mínimos quadrados
+```{r, eval=TRUE, echo=TRUE, message=FALSE}
+## Demonstração do método de mínimos quadrados
+saveHTML(least.squares(),
+         autobrowse = FALSE,
+         img.name = "leastsquares",
+         imgdir = "leastsquares",
+         interval = 0.1,
+         htmlfile = "leastsquares.html",
+         verbose = FALSE)
+```
+<center>
+<iframe src="leastsquares.html" width=100% height = 700 frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> </iframe>
+</center>
+
+### Tábua de Galton (quincunx)
+```{r, eval=TRUE, echo=TRUE, message=FALSE}
+## Demonstração da tábua de galton (Binomial -> Normal)
+saveHTML(quincunx(),
+         autobrowse = FALSE,
+         img.name = "quincunx",
+         imgdir = "quincunx",
+         interval = 0.1,
+         nmax = 200 + 15 -2,
+         htmlfile = "quincunx.html",
+         verbose = FALSE)
+```
+<center>
+<iframe src="quincunx.html" width=100% height = 700 frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> </iframe>
+</center>
+
+### Integração via _Sample Mean Monte Carlo_
+```{r, eval=TRUE, echo=TRUE, message=FALSE}
+## Demonstração do método de integração numérica via simulação Monte Carlo
+saveHTML(MC.samplemean(),
+         autobrowse = FALSE,
+         img.name = "mcsample",
+         imgdir = "mcsample",
+         interval = 0.1,
+         htmlfile = "mcsample.html",
+         verbose = FALSE)
+```
+<center>
+<iframe src="mcsample.html" width=100% height = 700 frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> </iframe>
+</center>
+
+### Método de _Newton-Raphson_
+```{r, eval=TRUE, echo=TRUE, message=FALSE, warning=FALSE}
+f <- quote(sin(x)-x^2/16)        # expressão da função, queremos obter a raíz
+fx0 <- function(x){ eval(f) }    # função
+f1 <- D(f,"x")                   # expressão da derivada
+fx1 <- function(x){ eval(f1) }   # função
+
+i <- 1       # valor inicial para o passo
+dif <- 10    # valor inical para a diferença entre duas avaliações
+tol <- 10^-9 # diferência mínima entre duas avaliações (tolerância)
+dif <- 100   # número máximo de passos
+x <- -7      # valor inicial para a raiz
+
+while(i<100 & dif>tol){
+  x[i+1] <- x[i]-fx0(x[i])/fx1(x[i])
+  dif <- abs(x[i+1]-x[i])
+  i <- i+1
+}
+
+## Demostração do algoritmo Newton-Raphson para otimização de função 
+saveHTML({
+  for(j in 2:i){
+    curve(fx0, -10, 10, main=paste("passo ", j-1, ", (x = ",
+                                   round(x[j],2), ")", sep=""))
+    abline(h=0, lty=2)
+    arrows(x[j-1], fx0(x[j-1]), x[j], fx0(x[j]), length=0.1, col=3, lwd=2)
+    abline(v=x[j], h=fx0(x[j]), lty=3, col=2)
+  }
+  abline(v=x[i], h=fx0(x[i]), col=2, lwd=2)
+  text(0, -3, label="CONVERGIU!", cex=2)
+  ani.pause() },
+  autobrowse = FALSE,
+  img.name = "newton",
+  imgdir = "newton",
+  interval = 0.1,
+  htmlfile = "newton.html",
+  verbose = FALSE)
+```
+<center>
+<iframe src="newton.html" width=100% height = 700 frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> </iframe>
+</center>
+
+### Regressão Segmentada
+```{r, eval=TRUE, echo=TRUE, message=FALSE, warning=FALSE}
+
+df02 <- structure(list( x = c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8,
+    0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2), Y1 = c(5.5,
+    7.2, 10.4, 7.4, 7.2, 9.1, 15.9, 12.7, 11.3, 14.4, 14.8, 17.1, 31.4,
+    17.5, 27.6, 19.6, 27.1, 21, 33.8, 30.2, 45.1), Y2 = c(0.8, 1.5, 2.6,
+    1.5, 1.4, 2.1, 3.9, 3.3, 3, 3.9, 4.2, 4.8, 6.9, 5.5, 7.3, 6.7, 8.2,
+    8.1, 10.2, 10.7, 12.8)), .Names = c("x", "Y1", "Y2"), class =
+    "data.frame", row.names = c(NA, -21L))
+
+newdata <- seq(0, 2, len = 1000)
+seq.b <- seq(0, 2, 0.05)
+desvios <- rep(NA, length(seq.b))
+
+## Demostração de uma regressão segmentada com diferentes pontos de
+## quebra 
+saveHTML(
+    for(i in 1:length(seq.b)){
+        b <- seq.b[i]
+        m0 <- lm(Y1 ~ x + I(pmax(x - b, 0)), data = df02)
+        beta <- coefficients(m0)
+
+        desvios[i] <- sum(residuals(m0)^2)
+        
+        cols <- c(rep(3, sum(df02$x < seq.b[i])),
+                  rep(4, sum(df02$x > seq.b[i] | df02$x == seq.b[i])))
+        
+        par(mfrow = c(1, 2))
+        plot(Y1 ~ x, data = df02, pch = 19, col = cols); grid()
+
+        if(b == 0){
+            abline(a = coef(m0)[1], b = coef(m0)[2], col = 4, lwd = 2)
+        }
+        if(b == 2){
+            abline(a = coef(m0)[1], b = coef(m0)[2], col = 3, lwd = 2)
+        }
+        if(b != 0 & b != 2){
+            curve(beta[1] + beta[2] * x, from = 0, to = b,
+                  col = 3, add = TRUE)
+        
+            curve(beta[1] + beta[2] * b + (beta[3] + beta[2]) * (x - b),
+                  from = b, to = 2,
+                  col = 4, lwd = 2, add = TRUE)
+        }
+        
+        plot(seq.b, desvios, type = "o", pch = 19, xlab = "Pontos de Quebra"); grid()
+        ani.pause()
+    },
+    autobrowse = FALSE,
+    img.name = "piecewise",
+    imgdir = "piecewise",
+    interval = 0.1,
+    htmlfile = "piecewise.html",
+    verbose = FALSE)
+```
+
+<iframe src="piecewise.html" width=100% height = 700 frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> </iframe>
+
+## Referências
+1. [http://vis.supstat.com/](http://vis.supstat.com/categories.html#animation-ref)
+2. [http://www.jstatsoft.org/v53/i01/paper](http://www.jstatsoft.org/v53/i01/paper)
diff --git a/gWidgets/gWidgets.Rmd b/gWidgets/gWidgets.Rmd
new file mode 100644
index 0000000000000000000000000000000000000000..49bcb3faa6004aa080b20d7093dd1f5e4d4833df
--- /dev/null
+++ b/gWidgets/gWidgets.Rmd
@@ -0,0 +1,300 @@
+---
+title: IGUIR2 - Galeria gWidgets
+author: Eduardo E. Ribeiro Jr \& Walmes M. Zeviani
+output:
+    html_document:
+      css: ../galery.css
+      toc: yes
+---
+
+> Ferramentas para criação de GUIs interativas no R  
+> (John Verzani)  
+
+## Instalação
+
+[http://cran.r-project.org/web/packages/gWidgets/](http://cran.r-project.org/web/packages/gWidgets/)  
+[https://github.com/jverzani/gWidgets2](https://github.com/jverzani/gWidgets2)
+
+```{r, eval=FALSE,  bootstrap.show.code=FALSE}
+install.packages("gWidgets")
+require(gWidgets)
+options(guiToolkit = "tcltk") ## RGtk2
+```
+
+## Exemplos
+
+### Botão de ação (gbutton)
+
+```{r, eval=FALSE}
+
+require(gWidgets)
+options(guiToolkit="tcltk")
+
+x <- precip
+ht <- hist(x)
+
+hist.reactive <- function(...){
+    col <- sample(colors(), size=1)
+    plot(ht, main=NULL,
+         ylab="Frequência absoluta", xlab="Precipitação",
+         col=col, sub=col)
+}
+
+w <- gwindow("Histograma")
+gbutton(text="Nova cor!", container=w, handler=hist.reactive)
+
+```
+
+![](./gifs/hist_Button.gif)
+
+### Caixa de seleção (gcheckbox)
+
+```{r, eval=FALSE}
+
+require(gWidgets)
+options(guiToolkit="tcltk")
+
+x <- precip
+ht <- hist(x)
+col <- rep("#3366CC", length(ht$counts))
+
+hist.reactive <- function(...){
+    if(svalue(modal)){
+        col[which.max(ht$counts)] <- "#142952"
+    }
+    plot(ht, col=col, main=NULL,
+         ylab="Frequência absoluta",
+         xlab="Precipitação")
+    if(svalue(rg)){
+        rug(x)
+    }
+}
+
+w <- gwindow("Histograma")
+rg <- gcheckbox(text="Marcar sobre eixo com os valores?",
+                checked=FALSE, container=w, handler=hist.reactive)
+modal <- gcheckbox(text="Destacal a classe modal?",
+                   checked=FALSE, container=w, handler=hist.reactive)
+
+```
+
+![](./gifs/hist_Checkbox.gif)
+
+### Caixas de seleção múltipla (gcheckboxgroup)
+
+```{r, eval=FALSE}
+
+require(gWidgets)
+options(guiToolkit="tcltk")
+
+x <- precip
+ht <- hist(x)
+nc <- length(ht$counts)
+
+cols <- c(Vermelho="#F81D54", Amarelo="#FF9F1E", Azul="#2791E1", Verde="#72F51D")
+cols2 <- c(cols, rev(cols))
+
+hist.reactive <- function(...){
+    seqcol <- colorRampPalette(cols2[svalue(colors)])
+    plot(ht, col=seqcol(nc),
+         main=NULL,
+         ylab="Frequência absoluta",
+         xlab="Precipitação")
+}
+
+w <- gwindow("Histograma")
+g <- gframe(text="Escolha as cores para interpolar:", container=w)
+colors <- gcheckboxgroup(items=names(cols2),
+                         checked=c(TRUE, is.na(cols2)[-1]),
+                         container=g, handler=hist.reactive)
+
+```
+
+![](./gifs/hist_Checkboxgroup.gif)
+
+### Botões de incremento (gspimbutton)
+
+```{r, eval=FALSE}
+
+require(gWidgets)
+options(guiToolkit="tcltk")
+
+x <- precip
+ht <- hist(x)
+
+hist.reactive <- function(...){
+    m <- svalue(mar)
+    par(mar=c(m, m, 1, 1))
+    plot(ht, col="#660066",
+         main=NULL, axes=FALSE, ann=FALSE,
+         xaxt="n", yaxt="n")
+    box(bty="L")
+    axis(side=1, cex.axis=svalue(cexaxis))
+    axis(side=2, cex.axis=svalue(cexaxis))
+    title(ylab="Frequência absoluta",
+          xlab="Precipitação",
+          line=svalue(line))
+}
+
+w <- gwindow("Histograma")
+g <- gframe(text="Tamanho do texto dos eixos:", container=w)
+mar <- gspinbutton(from=3, to=7, by=0.5, value=5,
+                    container=g, handler=hist.reactive)
+svalue(mar) <- 5
+g <- gframe(text="Tamanho do texto dos eixos:", container=w)
+cexaxis <- gspinbutton(from=0.5, to=2, by=0.1, value=1,
+                       container=g, handler=hist.reactive)
+svalue(cexaxis) <- 1
+g <- gframe(text="Distância dos rótulos dos eixos:", container=w)
+line <- gspinbutton(from=1, to=4, by=0.1, value=3,
+                    container=g, handler=hist.reactive)
+svalue(line) <- 3
+
+```
+
+![](./gifs/hist_Numeric.gif)
+
+### Múltipla escolha (gradio)
+
+```{r, eval=FALSE}
+
+require(gWidgets)
+options(guiToolkit="tcltk")
+
+x <- precip
+ht <- hist(x)
+
+choices <- c(Turquesa="#00CC99",
+             Azul="#0066FF",
+             Rosa="#FF3399",
+             Laranja="#FF6600",
+             Roxo="#660066",
+             "Verde limão"="#99FF33")
+
+hist.reactive <- function(...){
+    plot(ht,
+         col=choices[svalue(col)],
+         main=NULL,
+         ylab="Frequência absoluta",
+         xlab="Precipitação")
+}
+
+w <- gwindow("Histograma")
+g <- gframe(text="Escolha a cor para as barras:", container=w)
+col <- gradio(items=names(choices),
+              selected=1,
+              container=g, handler=hist.reactive)
+
+```
+
+![](./gifs/hist_Radio.gif)
+
+### Caixas de seleção (gcombobox)
+
+```{r, eval=FALSE}
+
+require(gWidgets)
+options(guiToolkit="tcltk")
+
+Nclass <- c("Sturges", "Scott", "Freedman-Diaconis")
+Obj <- c("precip","rivers","islands")
+
+hist.reactive <- function(...){
+    L <- switch(svalue(obj),
+                precip=list(x=precip, xlab="Precipitação anual média (polegadas)"),
+                rivers=list(x=rivers, xlab="Comprimento dos rios (milhas)"),
+                islands=list(x=islands, xlab="Área de ilhas (1000 milhas quadradas)"))
+    hist(L$x,
+         breaks=svalue(nclass),
+         col="#8F0047",
+         main=NULL,
+         ylab="Frequência absoluta",
+         xlab=L$xlab)
+    rug(L$x)
+}
+
+w <- gwindow("Histograma")
+glabel(text="Escolha o conjunto de dados:", container=w)
+obj <- gcombobox(items=Obj, selected=1, container=w,
+                 handler=hist.reactive)
+glabel(text="Escolha a regra para número de classes:", container=w)
+nclass <- gcombobox(items=Nclass, selected=1, container=w,
+                    handler=hist.reactive)
+
+w <- gwindow("Histograma")
+g <- gframe(text="Escolha o conjunto de dados:", container=w)
+obj <- gcombobox(items=Obj, selected=1, container=g,
+                 handler=hist.reactive)
+g <- gframe(text="Escolha a regra para número de classes:", container=w)
+nclass <- gcombobox(items=Nclass, selected=1, container=g,
+                    handler=hist.reactive)
+
+```
+
+![](./gifs/hist_Select.gif)
+
+### Deslizador (gslider)
+
+```{r, eval=FALSE}
+
+require(gWidgets)
+options(guiToolkit="tcltk")
+
+x <- precip
+
+## Extremos com amplitude estendida em 5%.
+a <- extendrange(x, f=0.05)
+
+hist.reactive <- function(...){
+    bks <- seq(a[1], a[2], length.out=svalue(nclass)+1)
+    hist(x,
+         breaks=bks,
+         main=NULL,
+         col="#008A8A",
+         ylab="Frequência absoluta",
+         xlab="Precipitação")
+}
+
+w <- gwindow("Histograma")
+g <- gframe(text="Escolha o número de classes:", container=w)
+nclass <- gslider(from=1, to=30, by=1, value=10,
+                  container=g, handler=hist.reactive)
+
+```
+
+![](./gifs/hist_Slider.gif)
+
+### Entrada de texto (gedit)
+
+```{r, eval=FALSE}
+
+require(gWidgets)
+options(guiToolkit="tcltk")
+
+x <- precip
+ht <- hist(x)
+
+hist.reactive <- function(...){
+    plot(ht, col="#006666",
+         ylab="Frequência absoluta",
+         xlab="Precipitação",
+         main=svalue(main),
+         sub=svalue(sub))
+}
+
+w <- gwindow("Histograma")
+g <- gframe(text="Texto para o título:", container=w)
+main <- gedit(text=NULL,
+              initial.msg="Insira e pressione Enter",
+              coerce.with="as.character",
+              container=g, handler=hist.reactive)
+g <- gframe(text="Texto para o subtítulo:", container=w)
+sub <- gedit(text=NULL,
+             initial.msg="Insira e pressione Enter",
+             coerce.with="as.character",
+             container=g, handler=hist.reactive)
+
+```
+
+![](./gifs/hist_Text.gif)
+
diff --git a/gWidgets/gifs/hist_Button.gif b/gWidgets/gifs/hist_Button.gif
new file mode 100644
index 0000000000000000000000000000000000000000..88b03248430f781e8649b5838f9c5d02d7a77813
Binary files /dev/null and b/gWidgets/gifs/hist_Button.gif differ
diff --git a/gWidgets/gifs/hist_Checkbox.gif b/gWidgets/gifs/hist_Checkbox.gif
new file mode 100644
index 0000000000000000000000000000000000000000..201e00be028d8ec8a24464bda6f3712bf97908c4
Binary files /dev/null and b/gWidgets/gifs/hist_Checkbox.gif differ
diff --git a/gWidgets/gifs/hist_Checkboxgroup.gif b/gWidgets/gifs/hist_Checkboxgroup.gif
new file mode 100644
index 0000000000000000000000000000000000000000..cd483ea80773614d3c392ab1b5066cdb09d5fbfb
Binary files /dev/null and b/gWidgets/gifs/hist_Checkboxgroup.gif differ
diff --git a/gWidgets/gifs/hist_Numeric.gif b/gWidgets/gifs/hist_Numeric.gif
new file mode 100644
index 0000000000000000000000000000000000000000..5c067205e75a6fd3d96f54ce5681f18c638e7f35
Binary files /dev/null and b/gWidgets/gifs/hist_Numeric.gif differ
diff --git a/gWidgets/gifs/hist_Radio.gif b/gWidgets/gifs/hist_Radio.gif
new file mode 100644
index 0000000000000000000000000000000000000000..0a78b3e601088c8a301dda0a280e68096f5217ce
Binary files /dev/null and b/gWidgets/gifs/hist_Radio.gif differ
diff --git a/gWidgets/gifs/hist_Select.gif b/gWidgets/gifs/hist_Select.gif
new file mode 100644
index 0000000000000000000000000000000000000000..bf2e22ca611442a76fe53e2dc37f23e12128cefd
Binary files /dev/null and b/gWidgets/gifs/hist_Select.gif differ
diff --git a/gWidgets/gifs/hist_Slider.gif b/gWidgets/gifs/hist_Slider.gif
new file mode 100644
index 0000000000000000000000000000000000000000..d49873a8d6908d78f101146498184ed0505d6202
Binary files /dev/null and b/gWidgets/gifs/hist_Slider.gif differ
diff --git a/gWidgets/gifs/hist_Text.gif b/gWidgets/gifs/hist_Text.gif
new file mode 100644
index 0000000000000000000000000000000000000000..3f27cbc811ba59055caf3e42b81e6f5ee958755e
Binary files /dev/null and b/gWidgets/gifs/hist_Text.gif differ
diff --git a/galery.css b/galery.css
new file mode 100644
index 0000000000000000000000000000000000000000..915c8b7b3faf747035eadbe3c311c21ab0502e70
--- /dev/null
+++ b/galery.css
@@ -0,0 +1,90 @@
+
+/* Tamanho de fonte do texto */
+
+body, td, caption {
+    font-family: "Palatino Linotype","Book Antiqua",Palatino,serif;
+    background-color: #FFF;
+    font-size: 20px;
+}
+
+p {
+    margin: 0px 10px 10px;
+}
+
+/* Configura o estilo do título */
+
+#header {
+    /* background-color: #F6F6F6; */
+    border-top: 2px solid #A96CBA;
+    border-right: 0px solid black;
+    border-bottom: 2px solid #A96CBA;
+    border-left: 0px solid black;
+    padding: 10px;
+    margin: 20px;
+}
+
+h1.title {
+    text-align: center
+}
+
+h4.author {
+    text-align: center
+}
+
+h4.date {
+    text-align: center
+}
+
+h4 {
+    text-align: center
+}
+
+/* Configura a tabela de conteúdo */
+
+#TOC {
+    clear: both;
+    margin: 10px 0px 0px 30px;
+    padding: 10px;
+    width: 400px;
+    border: 1px solid #CCC;
+    border-radius: 0px;
+    background-color: #F6F6F6;
+    font-size: 15px;
+    line-height: 1.5;
+}
+
+/* Configura a formatação dos capitulos (headers) */
+
+h2, .h2 {
+    font-size: 30px;
+    border-top: 0px solid black;
+    border-right: 0px solid black;
+    border-bottom: 2px solid #A96CBA;
+    border-left: 0px solid black;
+    width: 40%
+}
+
+/* Customização do ambiente de código */
+
+tt, code, pre {
+    font-family: "Ubuntu Mono","DejaVu Sans Mono",monospace;
+}
+
+pre {
+    display: block;
+    padding: 9.5px;
+    margin: 0px 0px 10px;
+    font-size: 20px;
+    line-height: 22px;
+    word-break: break-all;
+    word-wrap: break-word;
+    white-space: pre-wrap;
+    background-color: rgba(195, 132, 109, 0.11);
+    border: 3px solid #CCC;
+    border-radius: 0px;
+}
+
+pre .comment {
+    color: #7B7B05;
+    font-style: italic;
+}
diff --git a/others/pajero-dakar.csv b/others/pajero-dakar.csv
new file mode 100644
index 0000000000000000000000000000000000000000..2635a71a0a64ed5098418896acce8d2c4038784f
--- /dev/null
+++ b/others/pajero-dakar.csv
@@ -0,0 +1,669 @@
+valor;nfotos;cilindradas;cor;km;cambio;ano;anuncio;cidade;estado
+73900;8;3.5;Prata;92000;Automática;2012;Veículo de loja;Ribeirão Preto;SP
+78990;6;3.5;Branco;50451;Automática;2012;Veículo de loja;Rio de Janeiro;RJ
+82780;8;3.2;Preto;125000;Automática;2010;Veículo de loja;Campinas;SP
+87900;8;3.2;Branco;96000;Automática;2010;Veículo de loja;Salvador;BA
+87990;8;3.2;Prata;84900;Manual;2009;Veículo de loja;Osasco;SP
+88790;8;3.2;Prata;114000;Automática;2010;Veículo de loja;Santo André;SP
+89500;8;3.5;Preto;70000;Automática;2012;Veículo de loja;São José dos Campos;SP
+89900;8;3.5;Branco;70000;Automática;2011;Veículo de loja;São Paulo;SP
+89999;8;3.2;Branco;112000;Automática;2010;Veículo de loja;São Paulo;SP
+95900;8;3.2;Prata;94000;Automática;2010;Veículo de loja;Bragança Paulista;SP
+98000;8;3.2;Preto;72000;Automática;2009;Veículo de loja;São Paulo;SP
+98500;7;3.5;Preto;67000;Automática;2011;Veículo de loja;Juiz de Fora;MG
+108850;8;3.2;Preto;62785;Automática;2010;Veículo de loja;São Bernardo do Campo;SP
+109800;8;3.2;Cinza;80000;Automática;2011;Veículo de loja;São Paulo;SP
+109900;8;3.2;Prata;56000;Automática;2011;Veículo de loja;Belo Horizonte;MG
+109900;8;3.2;Prata;67000;Automática;2011;Veículo de loja;Belo Horizonte;MG
+112900;8;3.2;Prata;62000;Automática;2012;Veículo de loja;Limeira;SP
+118850;8;3.2;Branco;28983;Automática;2012;Veículo de loja;São Bernardo do Campo;SP
+119900;8;3.2;Branco;54000;Automática;2012;Veículo de loja;São Paulo;SP
+128000;7;3.5;Branco;3800;Automática;2015;Veículo de loja;Uberlândia;MG
+128800;8;3.2;Cinza;49216;Automática Sequencial;2013;Veículo de loja;São Paulo;SP
+129980;8;3.2;Prata;22000;Automática;2013;Veículo de loja;Campinas;SP
+77000;8;3.2;Preto;149258;Automática;2009;Veículo de concessionária;São Paulo;SP
+142990;8;3.2;Indefinida;0;Automática;2015;Veículo de loja;São Paulo;SP
+144990;8;3.2;Prata;21000;Automática;2014;Veículo de loja;Rio de Janeiro;RJ
+155000;8;3.2;Cinza;9900;Automática;2014;Veículo de loja;Contagem;MG
+168990;8;3.2;Indefinida;0;Automática;2015;Veículo de loja;São Paulo;SP
+85000;8;3.5;Prata;45183;Automática;2011;Veículo de concessionária;São Paulo;SP
+86900;6;3.5;Preto;51000;Automática;2011;Veículo de concessionária;Belo Horizonte;MG
+89900;8;3.5;Prata;30000;Automática;2011;Veículo de concessionária;Guarulhos;SP
+92900;6;3.5;Prata;29000;Automática;2013;Veículo de concessionária;Natal;RN
+94790;8;3.2;Preto;71000;Automática;2010;Veículo de concessionária;Santos;SP
+94900;8;3.2;Prata;1e+05;Automática;2011;Veículo de concessionária;São José do Rio Preto;SP
+98890;7;3.2;Prata;1e+05;Automática;2012;Veículo de concessionária;São José do Rio Preto;SP
+98900;8;3.2;Preto;73000;Automática;2011;Veículo de concessionária;São Paulo;SP
+99900;8;3.5;Prata;38000;Automática;2012;Veículo de concessionária;Belo Horizonte;MG
+103890;8;3.5;Prata;27390;Automática;2013;Veículo de concessionária;Americana;SP
+106500;8;3.5;Prata;30000;Automática;2013;Veículo de concessionária;Belo Horizonte;MG
+109900;6;3.2;Branco;89000;Automática;2011;Veículo de concessionária;Curitiba;PR
+110900;8;3.2;Cinza;69768;Automática;2013;Veículo de concessionária;Guarulhos;SP
+111990;8;3.2;Branco;83700;Automática;2012;Veículo de concessionária;São Paulo;SP
+113990;7;3.2;Prata;34120;Automática;2013;Veículo de concessionária;Ipatinga;MG
+116990;8;3.2;Cinza;40000;Automática;2014;Veículo de concessionária;Goiânia;GO
+117000;8;3.5;Branco;27753;Automática;2014;Veículo de concessionária;Guarulhos;SP
+117000;8;3.2;Preto;33000;Automática;2013;Veículo de concessionária;Belo Horizonte;MG
+117900;8;3.5;Preto;17000;Automática;2014;Veículo de concessionária;Santos;SP
+119900;8;3.5;Preto;16500;Automática;2014;Veículo de concessionária;Praia Grande;SP
+139900;7;3.2;Preto;22000;Automática;2013;Veículo de concessionária;Uberlândia;MG
+144900;8;3.2;Prata;25000;Automática;2014;Veículo de concessionária;Jundiaí;SP
+146000;8;3.2;Marrom;48000;Automática;2014;Veículo de concessionária;Franca;SP
+147720;8;3.5;Marrom;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+147720;8;3.2;Preto;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+150890;7;3.2;Preto;8000;Automática;2014;Veículo de concessionária;São Paulo;SP
+155490;6;3.5;Branco;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+155490;6;3.5;Branco;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+155490;6;3.5;Prata;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+172890;8;3.2;Preto;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+181990;6;3.2;Branco;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+81900;8;3.2;Preto;87000;Automática;2009;Veículo de particular;Paulínia;SP
+83200;6;3.5;Preto;58000;Automática;2011;Veículo de particular;Rio de Janeiro;RJ
+84900;8;3.2;Preto;98000;Automática;2009;Veículo de particular;Rio de Janeiro;RJ
+85000;8;3.5;Preto;59000;Automática;2012;Veículo de particular;São Paulo;SP
+85900;8;3.5;Prata;46000;Automática;2011;Veículo de particular;Imbituva;PR
+86000;8;3.2;Cinza;86178;Automática;2010;Veículo de particular;Campo Limpo Paulista;SP
+87500;8;3.5;Preto;32000;Automática;2013;Veículo de particular;Santo André;SP
+88000;7;3.2;Preto;84000;Automática;2012;Veículo de particular;Itu;SP
+88700;8;3.2;Branco;110000;Automática;2010;Veículo de particular;São Paulo;SP
+89000;7;3.5;Branco;30000;Automática;2013;Veículo de particular;Rio de Janeiro;RJ
+89500;8;3.2;Prata;119000;Automática;2009;Veículo de particular;Campos dos Goytacazes;RJ
+89900;8;3.5;Verde;49600;Automática Sequencial;2010;Veículo de particular;São Paulo;SP
+92000;7;3.2;Prata;75111;Automática;2010;Veículo de particular;Jacarezinho;PR
+92000;8;3.5;Prata;35000;Automática;2011;Veículo de particular;São Paulo;SP
+92900;8;3.2;Prata;120000;Automática;2009;Veículo de particular;Fortaleza;CE
+92900;8;3.2;Prata;116000;Automática;2010;Veículo de particular;Londrina;PR
+93000;6;3.2;Preto;90000;Automática;2010;Veículo de particular;São Caetano do Sul;SP
+93600;8;3.2;Prata;68320;Automática;2009;Veículo de particular;São Paulo;SP
+94000;6;3.2;Cinza;91000;Automática;2011;Veículo de particular;São Paulo;SP
+95000;8;3.2;Cinza;180000;Automática;2011;Veículo de particular;São Luís;MA
+95000;8;3.5;Branco;36000;Automática;2012;Veículo de particular;São Paulo;SP
+95000;8;3.5;Cinza;33000;Automática;2011;Veículo de particular;Cotia;SP
+95000;8;3.2;Preto;68000;Automática;2009;Veículo de particular;São Paulo;SP
+95500;7;3.2;Preto;85000;Automática Sequencial;2011;Veículo de particular;São Paulo;SP
+95500;8;3.2;Cinza;103100;Automática;2011;Veículo de particular;São Paulo;SP
+95500;7;3.2;Prata;81200;Automática;2011;Veículo de particular;Rio de Janeiro;RJ
+95800;8;3.5;Branco;78500;Automática;2012;Veículo de particular;Pato Branco;PR
+96000;8;3.5;Preto;23000;Automática;2012;Veículo de particular;São Paulo;SP
+96500;8;3.5;Prata;83458;Automática;2011;Veículo de particular;Campinas;SP
+97400;7;3.5;Branco;48000;Automática;2013;Veículo de particular;Jundiaí;SP
+98000;7;3.2;Prata;57000;Automática;2010;Veículo de particular;São Paulo;SP
+98900;6;3.2;Preto;32000;Automática;2011;Veículo de particular;São Paulo;SP
+99000;6;3.5;Cinza;30000;Automática;2013;Veículo de particular;São Paulo;SP
+99500;6;3.2;Branco;70000;Automática;2011;Veículo de particular;Limeira;SP
+99900;8;3.5;Prata;31000;Automática;2013;Veículo de particular;Jundiaí;SP
+100500;8;3.2;Preto;44000;Automática;2013;Veículo de particular;Rio de Janeiro;RJ
+101500;8;3.2;Preto;80600;Automática;2011;Veículo de particular;Catanduva;SP
+103000;8;3.5;Preto;19400;Automática;2013;Veículo de particular;São Paulo;SP
+103000;7;3.2;Cinza;64000;Automática;2012;Veículo de particular;São Paulo;SP
+104799;7;3.2;Branco;94000;Automática;2012;Veículo de particular;São Joaquim da Barra;SP
+104800;8;3.2;Cinza;63000;Automática;2012;Veículo de particular;São Paulo;SP
+105000;6;3.2;Verde;47600;Automática;2011;Veículo de particular;Rio de Janeiro;RJ
+105000;8;3.2;Branco;51324;Automática;2012;Veículo de particular;Santo André;SP
+105000;7;3.5;Preto;30300;Automática;2012;Veículo de particular;São Paulo;SP
+105000;8;3.2;Preto;120000;Automática;2010;Veículo de particular;São José do Rio Preto;SP
+105000;8;3.2;Branco;52000;Automática;2013;Veículo de particular;Três Rios;RJ
+105000;8;3.5;Branco;30000;Automática;2013;Veículo de particular;Santana de Parnaíba;SP
+106000;6;3.5;Prata;11000;Automática;2013;Veículo de particular;Botucatu;SP
+106900;8;3.2;Branco;49529;Automática;2011;Veículo de particular;Governador Valadares;MG
+108000;8;3.2;Cinza;58000;Automática;2012;Veículo de particular;Rio de Janeiro;RJ
+109000;8;3.2;Prata;51000;Automática;2013;Veículo de particular;São Paulo;SP
+109990;8;3.2;Prata;90000;Automática;2011;Veículo de particular;Petrópolis;RJ
+110000;8;3.2;Prata;52000;Automática Sequencial;2011;Veículo de particular;Atibaia;SP
+110000;8;3.2;Preto;78000;Automática;2012;Veículo de particular;Pouso Alegre;MG
+110500;8;3.2;Branco;13395;Automática;2013;Veículo de particular;São Paulo;SP
+113000;8;3.2;Branco;38500;Automática;2013;Veículo de particular;Rio de Janeiro;RJ
+113500;8;3.2;Branco;26500;Automática;2013;Veículo de particular;Campos dos Goytacazes;RJ
+115000;8;3.2;Preto;55000;Automática;2012;Veículo de particular;Rio de Janeiro;RJ
+120999;8;3.2;Prata;43000;Automática;2013;Veículo de particular;Suzano;SP
+122000;8;3.2;Prata;55000;Automática;2012;Veículo de particular;Jundiaí;SP
+130000;8;3.2;Prata;48000;Automática;2014;Veículo de particular;Guarulhos;SP
+135990;8;3.5;Branco;4980;Automática;2014;Veículo de particular;São Paulo;SP
+138900;8;3.2;Prata;24000;Automática;2014;Veículo de particular;Salvador;BA
+145900;6;3.2;Prata;26000;Automática;2013;Veículo de particular;Rio de Janeiro;RJ
+155000;8;3.2;Prata;34000;Automática;2012;Veículo de particular;São Paulo;SP
+156900;8;3.2;Branco;17000;Automática;2014;Veículo de particular;São Paulo;SP
+159000;8;3.2;Prata;111111;Automática;2015;Veículo de particular;Belo Horizonte;MG
+170000;8;3.5;Cinza;5000;Automática;2015;Veículo de particular;São Paulo;SP
+180000;7;3.2;Preto;17500;Automática;2012;Veículo de particular;São Paulo;SP
+137990;8;3.5;Marrom;NA;Automática;2014;Veículo de loja;Itajaí;SC
+99900;8;3.5;Prata;NA;Automática;2011;Veículo de concessionária;Caxias do Sul;RS
+101890;6;3.2;Preto;NA;Automática;2011;Veículo de concessionária;Rio de Janeiro;RJ
+92990;5;3.2;Prata;108000;Automática;2010;Veículo de loja;Osasco;SP
+99900;5;3.2;Preto;92000;Automática;2010;Veículo de loja;Bento Gonçalves;RS
+105900;4;3.5;Preto;21800;Automática;2012;Veículo de loja;Jundiaí;SP
+95900;5;3.2;Prata;63000;Automática;2011;Veículo de concessionária;Maceió;AL
+107500;4;3.2;Prata;82000;Automática;2013;Veículo de concessionária;Guarulhos;SP
+140300;5;3.2;Preto;26900;Automática;2013;Veículo de concessionária;Rio Verde;GO
+155490;4;3.5;Preto;0;Automática;2015;Veículo de concessionária;Santos;SP
+155490;4;3.2;Preto;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+181990;5;3.2;Branco;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+77900;4;3.2;Preto;101457;Automática;2009;Veículo de particular;São Paulo;SP
+87000;4;3.5;Prata;36000;Automática;2013;Veículo de particular;São José dos Campos;SP
+89000;5;3.5;Prata;43000;Automática;2012;Veículo de particular;São Paulo;SP
+89000;4;3.2;Prata;144000;Automática;2009;Veículo de particular;Chapecó;SC
+90000;5;3.5;Preto;14550;Automática;2013;Veículo de particular;Rio de Janeiro;RJ
+92000;5;3.5;Preto;60500;Automática;2012;Veículo de particular;São Paulo;SP
+95000;5;3.2;Branco;83000;Automática;2009;Veículo de particular;São Paulo;SP
+95500;5;3.2;Branco;101000;Automática;2011;Veículo de particular;São Paulo;SP
+99000;5;3.2;Prata;51000;Manual;2012;Veículo de particular;Catalão;GO
+1e+05;3;3.5;Marrom;43000;Automática;2012;Veículo de particular;São Bernardo do Campo;SP
+103000;3;3.2;Branco;42600;Automática;2011;Veículo de particular;Recife;PE
+103000;4;3.2;Prata;1e+05;Automática;2011;Veículo de particular;São Paulo;SP
+105000;5;3.2;Branco;106000;Automática;2012;Veículo de particular;João Pessoa;PB
+107000;5;3.2;Cinza;90000;Automática;2010;Veículo de particular;São Paulo;SP
+110000;5;3.2;Prata;60000;Automática;2011;Veículo de particular;Fortaleza;CE
+110000;5;3.5;Cinza;34000;Automática;2012;Veículo de particular;São Paulo;SP
+135000;5;3.2;Preto;93000;Automática;2013;Veículo de particular;Goiânia;GO
+135000;5;3.2;Branco;77000;Automática;2011;Veículo de particular;Curitiba;PR
+140000;4;3.2;Cinza;25000;Automática;2014;Veículo de particular;São Paulo;SP
+143900;4;3.2;Preto;8000;Automática;2014;Veículo de particular;São Paulo;SP
+84999;4;3.2;Preto;NA;Automática;2009;Veículo de loja;Santo Antônio de Jesus;BA
+112900;3;3.2;Prata;NA;Automática;2012;Veículo de concessionária;Rio de Janeiro;RJ
+119900;1;3.2;Preto;30000;Automática;2012;Veículo de concessionária;Passos;MG
+105900;2;3.2;Prata;73000;Automática;2012;Veículo de particular;Jaguariúna;SP
+115000;1;3.5;Preto;11000;Automática;2014;Veículo de particular;Jundiaí;SP
+115900;2;3.5;Branco;21809;Automática;2014;Veículo de particular;São Paulo;SP
+125000;2;3.2;Branco;42000;Automática;2013;Veículo de particular;Jaraguá do Sul;SC
+112900;1;3.2;Preto;NA;Automática;2012;Veículo de concessionária;Rio de Janeiro;RJ
+99900;0;3.2;Preto;76000;Automática;2012;Veículo de loja;Florianópolis;SC
+155490;0;3.2;Branco;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+98000;0;3.2;Preto;60000;Manual;2010;Veículo de particular;Jaboatão dos Guararapes;PE
+117000;9;3.2;Prata;74000;Automática;2012;Veículo de particular;Mirassol;SP
+76780;8;3.2;Preto;1e+05;Automática;2009;Veículo de loja;Campinas;SP
+78000;8;3.2;Preto;120000;Automática;2009;Veículo de loja;São Paulo;SP
+81000;7;3.2;Prata;112000;Automática;2009;Veículo de loja;Florianópolis;SC
+83900;8;3.5;Preto;46769;Automática;2011;Veículo de loja;Vinhedo;SP
+85000;8;3.2;Branco;150000;Automática;2010;Veículo de loja;São Paulo;SP
+86900;7;3.2;Prata;94000;Manual;2011;Veículo de loja;Recife;PE
+92900;8;3.2;Prata;80000;Automática;2009;Veículo de loja;Curitiba;PR
+92900;8;3.2;Preto;99000;Automática;2009;Veículo de loja;Serra;ES
+92900;8;3.2;Prata;75000;Automática;2011;Veículo de loja;Rio de Janeiro;RJ
+94000;7;3.2;Prata;95300;Automática;2010;Veículo de loja;São Carlos;SP
+98900;8;3.5;Branco;30000;Automática;2013;Veículo de loja;Recife;PE
+99900;8;3.2;Prata;66000;Automática;2010;Veículo de loja;Belém;PA
+99900;7;3.2;Verde;122000;Manual;2011;Veículo de loja;Irati;PR
+99900;8;3.2;Branco;114034;Automática;2012;Veículo de loja;Ribeirão Preto;SP
+99900;8;3.2;Prata;92400;Automática;2012;Veículo de loja;Petrópolis;RJ
+103890;8;3.5;Prata;27390;Automática;2013;Veículo de loja;Americana;SP
+105000;6;3.5;Prata;30000;Automática;2013;Veículo de loja;Itatiba;SP
+108000;7;3.2;Cinza;62000;Automática;2011;Veículo de loja;Belo Horizonte;MG
+109800;8;3.2;Cinza;80000;Automática;2011;Veículo de loja;São Paulo;SP
+109900;8;3.2;Branco;19916;Automática;2012;Veículo de loja;Belo Horizonte;MG
+109990;8;3.2;Preto;28000;Automática;2013;Veículo de loja;São Paulo;SP
+110000;8;3.2;Prata;40570;Manual;2013;Veículo de loja;Curitiba;PR
+110000;8;3.2;Branco;75000;Automática;2012;Veículo de loja;Macaé;RJ
+115100;8;3.2;Branco;42000;Automática Sequencial;2013;Veículo de loja;Goiânia;GO
+119888;6;3.2;Branco;29000;Automática;2012;Veículo de loja;Joinville;SC
+119900;8;3.2;Prata;18724;Automática;2013;Veículo de loja;Recife;PE
+119900;6;3.2;Prata;67000;Automática;2012;Veículo de loja;Mossoró;RN
+123000;8;3.2;Branco;32500;Automática;2013;Veículo de loja;Taubaté;SP
+123900;7;3.5;Branco;15640;Automática;2014;Veículo de loja;Jundiaí;SP
+124900;7;3.2;Prata;19500;Automática;2012;Veículo de loja;Recife;PE
+124900;7;3.2;Preto;70000;Automática;2011;Veículo de loja;Rio de Janeiro;RJ
+131999;8;3.2;Branco;64000;Automática;2013;Veículo de loja;Goiânia;GO
+132900;8;3.2;Branco;32700;Automática;2013;Veículo de loja;Sorocaba;SP
+139800;8;3.2;Branco;29000;Automática;2014;Veículo de loja;Goiânia;GO
+139990;7;3.2;Prata;9000;Automática;2013;Veículo de loja;Jaraguá do Sul;SC
+142900;8;3.2;Branco;39600;Automática;2014;Veículo de loja;Campinas;SP
+158900;7;3.2;Marrom;23000;Automática;2014;Veículo de loja;Recife;PE
+165000;6;3.2;Preto;37000;Automática;2013;Veículo de loja;Belém;PA
+73200;6;3.5;Preto;103000;Automática;2012;Veículo de concessionária;Barueri;SP
+79900;8;3.2;Preto;105273;Automática;2009;Veículo de concessionária;Sorocaba;SP
+80000;8;3.5;Branco;94000;Automática;2011;Veículo de concessionária;São Paulo;SP
+82900;7;3.2;Prata;1e+05;Automática;2010;Veículo de concessionária;Salvador;BA
+84000;8;3.5;Branco;44000;Automática;2011;Veículo de concessionária;São Paulo;SP
+87900;6;3.5;Prata;84232;Automática;2011;Veículo de concessionária;Curitiba;PR
+95500;8;3.2;Preto;90000;Automática;2011;Veículo de concessionária;Fortaleza;CE
+95800;8;3.5;Preto;45000;Automática;2012;Veículo de concessionária;São Bernardo do Campo;SP
+95900;8;3.2;Prata;90000;Automática;2010;Veículo de concessionária;Salvador;BA
+97900;8;3.5;Cinza;29730;Automática;2013;Veículo de concessionária;São Paulo;SP
+99800;8;3.2;Prata;66000;Manual;2012;Veículo de concessionária;São José;SC
+99990;6;3.5;Prata;42000;Automática;2012;Veículo de concessionária;Limeira;SP
+99990;8;3.2;Preto;39600;Automática;2013;Veículo de concessionária;São Paulo;SP
+1e+05;8;3.2;Prata;84000;Automática Sequencial;2011;Veículo de concessionária;Patos de Minas;MG
+103900;8;3.2;Branco;24882;Automática;2013;Veículo de concessionária;São Paulo;SP
+103990;8;3.5;Prata;41363;Automática;2012;Veículo de concessionária;São Paulo;SP
+104800;8;3.2;Preto;87000;Automática Sequencial;2010;Veículo de concessionária;São José;SC
+104900;8;3.2;Branco;90000;Automática;2012;Veículo de concessionária;Salvador;BA
+105000;8;3.2;Branco;170000;Automática;2012;Veículo de concessionária;Patos de Minas;MG
+105990;8;3.2;Branco;75618;Automática;2012;Veículo de concessionária;São Paulo;SP
+109990;8;3.2;Prata;52222;Automática;2011;Veículo de concessionária;Juiz de Fora;MG
+115840;8;3.5;Prata;27200;Automática;2011;Veículo de concessionária;São Paulo;SP
+117800;8;3.2;Preto;70000;Automática;2012;Veículo de concessionária;São José;SC
+127840;8;3.5;Marrom;12500;Automática;2014;Veículo de concessionária;São Paulo;SP
+135900;6;3.5;Prata;6002;Automática;2014;Veículo de concessionária;Curitiba;PR
+155490;8;3.5;Preto;0;Automática;2015;Veículo de concessionária;Americana;SP
+155490;6;3.2;Branco;0;Automática;2015;Veículo de concessionária;Americana;SP
+155490;8;3.2;Cinza;0;Automática;2015;Veículo de concessionária;Rio de Janeiro;RJ
+155900;8;3.2;Branco;23500;Automática;2014;Veículo de concessionária;Curitiba;PR
+181990;8;3.2;Preto;0;Automática;2015;Veículo de concessionária;Americana;SP
+181990;8;3.2;Prata;0;Automática;2015;Veículo de concessionária;Rio de Janeiro;RJ
+183990;8;3.2;Branco;0;Automática;2015;Veículo de concessionária;Americana;SP
+183990;6;3.2;Preto;0;Automática;2015;Veículo de concessionária;Rio de Janeiro;RJ
+75000;8;3.5;Prata;67000;Automática;2011;Veículo de particular;Caxias do Sul;RS
+80000;6;3.2;Prata;63000;Automática;2009;Veículo de particular;Rio de Janeiro;RJ
+85000;8;3.2;Preto;115000;Manual;2009;Veículo de particular;Fraiburgo;SC
+89000;7;3.2;Preto;1e+05;Automática;2009;Veículo de particular;Santa Cruz;RN
+94900;8;3.2;Preto;65000;Automática;2009;Veículo de particular;São Paulo;SP
+99800;7;3.2;Preto;69000;Automática;2010;Veículo de particular;São Caetano do Sul;SP
+105000;6;3.2;Prata;67707;Automática;2011;Veículo de particular;Vitória da Conquista;BA
+106000;8;3.2;Prata;16500;Automática Sequencial;2013;Veículo de particular;São Bernardo do Campo;SP
+108000;7;3.2;Preto;55000;Automática;2011;Veículo de particular;Contagem;MG
+150000;8;3.2;Preto;13000;Automática Sequencial;2014;Veículo de particular;Cotia;SP
+106900;8;3.2;Prata;NA;Automática;2011;Veículo de loja;Fortaleza;CE
+119900;8;3.2;Prata;NA;Automática;2013;Veículo de loja;Cocal do Sul;SC
+94900;7;3.5;Branco;NA;Automática;2012;Veículo de concessionária;Uberaba;MG
+110000;8;3.2;Preto;NA;Automática;2013;Veículo de particular;São José do Rio Preto;SP
+99900;4;3.2;Preto;74000;Automática;2012;Veículo de loja;Sumaré;SP
+110000;5;3.2;Prata;126000;Automática;2011;Veículo de loja;São Paulo;SP
+119900;5;3.2;Preto;46000;Automática;2012;Veículo de loja;Ponta Grossa;PR
+151490;5;3.2;Branco;0;Automática;2015;Veículo de loja;Sinop;MT
+90000;5;3.2;Preto;93488;Automática;2010;Veículo de concessionária;Teresina;PI
+83900;5;3.5;Branco;120000;Automática;2011;Veículo de concessionária;Jundiaí;SP
+1e+05;5;3.2;Cinza;108025;Automática;2011;Veículo de concessionária;Teresina;PI
+94990;5;3.2;Prata;82218;Automática;2010;Veículo de concessionária;Limeira;SP
+115000;5;3.2;Prata;35853;Automática;2012;Veículo de concessionária;Maceió;AL
+149900;4;3.2;Preto;29000;Automática;2014;Veículo de concessionária;Jundiaí;SP
+155490;4;3.5;Prata;0;Automática;2015;Veículo de concessionária;Rio de Janeiro;RJ
+77500;4;3.2;Prata;155000;Automática;2009;Veículo de particular;São Bernardo do Campo;SP
+104700;5;3.5;Prata;12000;Automática;2012;Veículo de particular;São Paulo;SP
+108500;4;3.2;Prata;43000;Automática;2012;Veículo de particular;São Paulo;SP
+125990;5;3.2;Branco;107000;Automática;2013;Veículo de particular;Brasília;DF
+127900;4;3.2;Prata;19500;Automática;2013;Veículo de particular;Campinas;SP
+105000;5;3.2;Branco;NA;Automática;2012;Veículo de loja;Lucas do Rio Verde;MT
+134800;3;3.2;Branco;NA;Automática;2014;Veículo de loja;Goiânia;GO
+109990;5;3.2;Prata;NA;Automática;2012;Veículo de concessionária;Passos;MG
+146000;1;3.2;Prata;51000;Automática;2014;Veículo de concessionária;Franca;SP
+83000;1;3.2;Preto;1e+05;Automática;2009;Veículo de particular;São Paulo;SP
+104990;0;3.2;Branco;120633;Automática;2011;Veículo de loja;Americana;SP
+109900;0;3.2;Prata;40000;Automática;2013;Veículo de loja;Rio de Janeiro;RJ
+154990;0;3.2;Branco;7000;Automática;2014;Veículo de concessionária;Limeira;SP
+104900;0;3.2;Prata;100;Automática;2011;Veículo de concessionária;Joinville;SC
+144990;0;3.2;Branco;0;Automática;2015;Veículo de concessionária;Recife;PE
+126800;0;3.2;Preto;39500;Automática;2013;Veículo de particular;Rio de Janeiro;RJ
+117000;0;3.2;Preto;35000;Automática;2013;Veículo de concessionária;São Paulo;SP
+109000;0;3.2;Cinza;NA;Automática;2012;Veículo de loja;São José;SC
+135000;0;3.2;Prata;NA;Automática;2013;Veículo de loja;Mossoró;RN
+77900;6;3.5;Prata;61773;Automática;2011;Veículo de particular;São Paulo;SP
+76000;6;3.2;Preto;149000;Automática;2009;Veículo de particular;Contagem;MG
+79800;7;3.2;Branco;90000;Manual;2012;Veículo de particular;Uberaba;MG
+85000;8;3.5;Branco;37500;Automática;2011;Veículo de particular;São Paulo;SP
+89900;7;3.5;Prata;60000;Automática;2011;Veículo de particular;São Paulo;SP
+91000;8;3.2;Preto;69000;Automática;2011;Veículo de particular;Natal;RN
+94700;7;3.5;Branco;31000;Automática;2013;Veículo de particular;São Paulo;SP
+95000;8;3.2;Prata;103000;Automática;2010;Veículo de particular;Belo Horizonte;MG
+95000;8;3.2;Prata;100;Automática;2010;Veículo de particular;Belo Horizonte;MG
+96000;8;3.2;Preto;64278;Automática;2011;Veículo de particular;Natal;RN
+99000;8;3.5;Branco;52700;Automática;2012;Veículo de particular;São José do Rio Preto;SP
+105000;6;3.2;Prata;21000;Automática;2013;Veículo de particular;São Paulo;SP
+109990;6;3.2;Preto;78000;Automática;2011;Veículo de particular;Florianópolis;SC
+116000;8;3.2;Prata;125000;Automática;2012;Veículo de particular;Rio de Janeiro;RJ
+116000;8;3.2;Branco;23000;Automática;2013;Veículo de particular;Rio de Janeiro;RJ
+119900;8;3.2;Preto;31700;Automática;2012;Veículo de particular;Rio de Janeiro;RJ
+75900;8;3.5;Prata;98000;Automática;2011;Veículo de concessionária;Jundiaí;SP
+78000;6;3.2;Branco;86959;Automática;2010;Veículo de concessionária;Maceió;AL
+79990;8;3.2;Cinza;133700;Automática;2009;Veículo de concessionária;São Paulo;SP
+87990;8;3.2;Preto;92375;Automática;2009;Veículo de concessionária;Porto Alegre;RS
+89900;8;3.5;Branco;42000;Automática;2012;Veículo de concessionária;Rio de Janeiro;RJ
+92800;6;3.2;Prata;110000;Automática;2010;Veículo de concessionária;Guarulhos;SP
+94900;8;3.5;Prata;35500;Automática;2012;Veículo de concessionária;Maringá;PR
+96990;8;3.2;Prata;73236;Automática;2009;Veículo de concessionária;São Paulo;SP
+1e+05;6;3.2;Cinza;62000;Automática;2011;Veículo de concessionária;Fortaleza;CE
+105000;8;3.2;Prata;52000;Automática;2011;Veículo de concessionária;Fortaleza;CE
+105900;7;3.2;Preto;55000;Automática;2012;Veículo de concessionária;Salvador;BA
+108900;7;3.2;Branco;100;Automática;2012;Veículo de concessionária;Uberlândia;MG
+109000;8;3.2;Prata;68243;Automática;2013;Veículo de concessionária;Linhares;ES
+114900;7;3.2;Preto;100;Automática;2012;Veículo de concessionária;Uberlândia;MG
+114900;7;3.2;Preto;100;Automática;2013;Veículo de concessionária;Uberlândia;MG
+123990;8;3.2;Prata;0;Manual;2014;Veículo de concessionária;Cascavel;PR
+120000;7;3.2;Preto;54002;Automática;2012;Veículo de concessionária;Garanhuns;PE
+124800;8;3.2;Preto;40188;Automática;2012;Veículo de concessionária;Brasília;DF
+125990;6;3.2;Branco;63000;Automática;2013;Veículo de concessionária;Palmas;TO
+128490;8;3.2;Prata;36823;Automática;2013;Veículo de concessionária;Guarulhos;SP
+129990;6;3.2;Prata;36000;Automática;2013;Veículo de concessionária;Guarulhos;SP
+137800;8;3.2;Prata;30000;Automática;2014;Veículo de concessionária;Salvador;BA
+134990;8;3.5;Branco;10000;Automática;2014;Veículo de concessionária;Vitória;ES
+139990;7;3.2;Prata;84828;Automática;2012;Veículo de concessionária;Palmas;TO
+142900;7;3.2;Preto;22000;Automática;2013;Veículo de concessionária;Uberlândia;MG
+141900;6;3.2;Prata;100;Automática;2013;Veículo de concessionária;Uberaba;MG
+146900;8;3.2;Preto;50380;Automática;2012;Veículo de concessionária;São Paulo;SP
+155490;8;3.5;Branco;0;Automática;2015;Veículo de concessionária;São José do Rio Preto;SP
+155490;8;3.2;Prata;0;Automática;2015;Veículo de concessionária;São José do Rio Preto;SP
+155900;7;3.2;Marrom;13000;Automática;2014;Veículo de concessionária;Uberlândia;MG
+152000;6;3.2;Prata;24866;Automática;2014;Veículo de concessionária;Maceió;AL
+160990;7;3.2;Branco;30000;Automática;2014;Veículo de concessionária;Goiânia;GO
+155490;8;3.5;Preto;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+168840;8;3.5;Marrom;12000;Automática;2014;Veículo de concessionária;São Paulo;SP
+172990;8;3.2;Indefinida;0;Automática;2015;Veículo de concessionária;Campinas;SP
+179990;7;3.2;Cinza;0;Automática;2015;Veículo de concessionária;Uberlândia;MG
+176840;8;3.5;Marrom;12000;Automática;2014;Veículo de concessionária;São Paulo;SP
+183990;8;3.2;Cinza;0;Automática;2015;Veículo de concessionária;São José do Rio Preto;SP
+181990;8;3.2;Marrom;0;Automática;2015;Veículo de concessionária;Juiz de Fora;MG
+181990;7;3.2;Prata;0;Automática;2015;Veículo de concessionária;São Paulo;SP
+74000;6;3.5;Cinza;62900;Automática;2011;Veículo de loja;Sete Lagoas;MG
+76700;6;3.2;Preto;127000;Automática;2009;Veículo de loja;Patos de Minas;MG
+76800;8;3.2;Preto;79173;Automática;2009;Veículo de loja;Ribeirão Preto;SP
+76900;8;3.2;Branco;132000;Automática;2009;Veículo de loja;Cuiabá;MT
+77800;8;3.5;Verde;70000;Automática;2011;Veículo de loja;São Paulo;SP
+77800;8;3.5;Verde;70000;Automática;2011;Veículo de loja;São Paulo;SP
+78500;8;3.5;Prata;59000;Automática;2012;Veículo de loja;Niterói;RJ
+79900;8;3.5;Prata;84000;Automática;2011;Veículo de loja;Olímpia;SP
+79999;8;3.2;Preto;98000;Automática;2009;Veículo de loja;São Bernardo do Campo;SP
+81900;7;3.2;Preto;145000;Automática;2009;Veículo de loja;Rio de Janeiro;RJ
+83900;8;3.2;Preto;70326;Automática;2009;Veículo de loja;Goiânia;GO
+84600;8;3.2;Branco;104000;Manual;2012;Veículo de loja;São Paulo;SP
+84900;7;3.2;Preto;160000;Automática Sequencial;2009;Veículo de loja;Rio das Ostras;RJ
+84990;6;3.5;Cinza;106524;Automática;2011;Veículo de loja;Poços de Caldas;MG
+84990;8;3.5;Preto;63900;Automática;2011;Veículo de loja;Curitiba;PR
+85900;8;3.2;Prata;116000;Automática;2009;Veículo de loja;Brasília;DF
+86700;8;3.5;Azul;41000;Automática;2013;Veículo de loja;Rio de Janeiro;RJ
+86900;8;3.2;Prata;99000;Manual;2010;Veículo de loja;Curitiba;PR
+86900;8;3.5;Branco;55000;Automática;2012;Veículo de loja;São Paulo;SP
+86990;8;3.5;Preto;42001;Automática;2012;Veículo de loja;Piracicaba;SP
+87900;6;3.5;Prata;44000;Automática;2012;Veículo de loja;Rio de Janeiro;RJ
+87990;7;3.2;Preto;86521;Automática;2010;Veículo de loja;Porto Alegre;RS
+88000;6;3.5;Prata;63993;Automática;2012;Veículo de loja;São Paulo;SP
+88900;8;3.5;Branco;37443;Automática;2011;Veículo de loja;Salvador;BA
+88900;8;3.2;Preto;120000;Automática;2010;Veículo de loja;Juiz de Fora;MG
+89000;8;3.2;Preto;70326;Automática;2009;Veículo de loja;Goiânia;GO
+89900;8;3.2;Preto;153000;Automática;2009;Veículo de loja;Boituva;SP
+89900;8;3.5;Cinza;65000;Automática;2011;Veículo de loja;Belo Horizonte;MG
+89900;8;3.5;Prata;60376;Automática;2013;Veículo de loja;Manaus;AM
+89900;8;3.2;Preto;80000;Automática;2009;Veículo de loja;Santo André;SP
+90000;8;3.2;Preto;131263;Automática;2009;Veículo de loja;Garanhuns;PE
+90000;7;3.2;Prata;1e+05;Automática;2009;Veículo de loja;Rio Claro;SP
+90000;8;3.5;Prata;57000;Automática;2011;Veículo de loja;São Paulo;SP
+91900;8;3.5;Preto;31216;Automática;2013;Veículo de loja;São Paulo;SP
+91890;8;3.2;Cinza;110000;Automática;2010;Veículo de loja;Guarulhos;SP
+91900;8;3.5;Branco;32000;Automática;2012;Veículo de loja;Porto Alegre;RS
+92900;7;3.2;Prata;118214;Automática;2010;Veículo de loja;Osasco;SP
+92500;8;3.5;Prata;30600;Automática;2013;Veículo de loja;Belo Horizonte;MG
+92800;8;3.2;Prata;85000;Automática;2010;Veículo de loja;Curitiba;PR
+92900;8;3.2;Preto;1111;Automática;2009;Veículo de loja;Fortaleza;CE
+92900;7;3.5;Preto;24000;Automática;2011;Veículo de loja;Curitiba;PR
+92900;8;3.2;Branco;102000;Automática;2010;Veículo de loja;Belo Horizonte;MG
+93990;8;3.2;Preto;62300;Automática;2011;Veículo de loja;Curitiba;PR
+94900;8;3.2;Preto;67000;Automática;2011;Veículo de loja;Volta Redonda;RJ
+95000;6;3.2;Preto;85000;Automática;2010;Veículo de loja;Salto;SP
+95000;7;3.2;Preto;148000;Automática;2010;Veículo de loja;Ituverava;SP
+95000;7;3.2;Cinza;64000;Automática;2012;Veículo de loja;Campo Grande;MS
+95800;8;3.2;Prata;117735;Manual;2011;Veículo de loja;Porto Velho;RO
+95000;6;3.2;Preto;87000;Automática;2010;Veículo de loja;Dourados;MS
+95000;7;3.2;Branco;1e+05;Automática;2011;Veículo de loja;São José do Rio Preto;SP
+96900;8;3.2;Vinho;74000;Automática;2011;Veículo de loja;Goiânia;GO
+96000;6;3.2;Branco;56000;Automática;2011;Veículo de loja;Campinas;SP
+96800;8;3.2;Preto;85000;Automática;2009;Veículo de loja;Araucária;PR
+96900;8;3.2;Branco;88000;Manual;2012;Veículo de loja;Belo Horizonte;MG
+97000;8;3.5;Branco;63000;Automática;2011;Veículo de loja;Fortaleza;CE
+97000;7;3.2;Cinza;68300;Automática;2011;Veículo de loja;Belo Horizonte;MG
+97000;8;3.2;Prata;99200;Automática;2010;Veículo de loja;Taubaté;SP
+97800;8;3.2;Preto;126000;Automática;2010;Veículo de loja;Araraquara;SP
+97900;7;3.2;Preto;67800;Automática;2011;Veículo de loja;Vitória;ES
+97900;7;3.5;Prata;101000;Automática;2011;Veículo de loja;Blumenau;SC
+97900;8;3.2;Branco;121000;Automática;2010;Veículo de loja;Curitiba;PR
+98000;8;3.2;Branco;154700;Automática;2010;Veículo de loja;Birigui;SP
+96000;8;3.5;Preto;102000;Automática;2011;Veículo de loja;Mogi das Cruzes;SP
+98900;8;3.2;Branco;52000;Automática;2011;Veículo de loja;Goiânia;GO
+98900;8;3.5;Preto;27954;Automática;2012;Veículo de loja;Osasco;SP
+99000;8;3.2;Preto;1e+05;Automática;2013;Veículo de loja;Caxias do Sul;RS
+99000;7;3.2;Branco;152300;Automática;2012;Veículo de loja;Fernandópolis;SP
+98990;6;3.2;Preto;138000;Automática;2011;Veículo de loja;Cachoeirinha;RS
+99000;6;3.2;Branco;94000;Automática;2011;Veículo de loja;Niterói;RJ
+99000;8;3.2;Branco;50000;Automática;2011;Veículo de loja;Recife;PE
+99000;7;3.2;Preto;95000;Automática;2009;Veículo de loja;União da Vitória;PR
+99000;7;3.2;Prata;130000;Automática;2012;Veículo de loja;Porto Alegre;RS
+97500;8;3.5;Prata;54000;Automática;2012;Veículo de loja;Curitiba;PR
+99000;7;3.2;Branco;68000;Automática;2012;Veículo de loja;Campo Grande;MS
+99900;6;3.2;Branco;41000;Automática;2012;Veículo de loja;Niterói;RJ
+99800;8;3.2;Prata;129000;Automática;2010;Veículo de loja;Piracicaba;SP
+99900;7;3.2;Branco;54000;Automática;2013;Veículo de loja;Rio de Janeiro;RJ
+99900;8;3.2;Preto;92000;Automática Sequencial;2010;Veículo de loja;São José dos Pinhais;PR
+99900;7;3.2;Branco;54000;Manual;2013;Veículo de loja;Rio de Janeiro;RJ
+99990;8;3.2;Preto;96000;Automática;2010;Veículo de loja;Blumenau;SC
+1e+05;8;3.2;Prata;71000;Automática;2009;Veículo de loja;Belém;PA
+100990;8;3.5;Prata;27000;Automática;2013;Veículo de loja;São Paulo;SP
+101900;7;3.2;Prata;94000;Automática;2009;Veículo de loja;Jundiaí;SP
+103900;8;3.2;Prata;66261;Automática;2011;Veículo de loja;Uberlândia;MG
+104000;8;3.2;Prata;72000;Automática;2011;Veículo de loja;São Paulo;SP
+104800;8;3.2;Prata;113000;Automática;2013;Veículo de loja;São Paulo;SP
+104900;8;3.2;Prata;44303;Automática;2012;Veículo de loja;Vila Velha;ES
+104990;8;3.5;Branco;61535;Automática;2012;Veículo de loja;São José dos Campos;SP
+105000;7;3.2;Branco;121400;Automática;2010;Veículo de loja;Itápolis;SP
+105000;7;3.2;Cinza;81900;Automática;2011;Veículo de loja;Jundiaí;SP
+105000;6;3.2;Branco;83500;Manual;2010;Veículo de loja;Ponta Grossa;PR
+105000;8;3.2;Prata;43000;Automática;2012;Veículo de loja;Divinópolis;MG
+106900;8;3.2;Prata;138000;Automática;2012;Veículo de loja;Bragança Paulista;SP
+106900;8;3.2;Preto;87313;Automática;2012;Veículo de loja;São Paulo;SP
+106999;7;3.2;Cinza;60000;Automática;2013;Veículo de loja;Atibaia;SP
+107000;8;3.2;Preto;84700;Automática;2011;Veículo de loja;Sinop;MT
+108000;6;3.5;Branco;100;Automática;2011;Veículo de loja;Panambi;RS
+107990;8;3.2;Preto;38136;Automática;2011;Veículo de loja;Recife;PE
+108000;7;3.2;Prata;100;Automática;2010;Veículo de loja;Jales;SP
+108000;8;3.2;Cinza;70000;Automática;2012;Veículo de loja;Belém;PA
+108790;8;3.2;Preto;53455;Automática;2012;Veículo de loja;Rio de Janeiro;RJ
+108900;7;3.2;Prata;61000;Automática;2013;Veículo de loja;São José do Rio Preto;SP
+109900;8;3.2;Branco;42653;Automática;2013;Veículo de loja;Goiânia;GO
+109890;8;3.2;Preto;87272;Automática;2011;Veículo de loja;Brasília;DF
+109900;8;3.2;Preto;108000;Automática;2011;Veículo de loja;Ponta Grossa;PR
+109900;8;3.2;Preto;73720;Automática;2013;Veículo de loja;Rio Verde;GO
+109900;6;3.2;Prata;94000;Automática;2010;Veículo de loja;Blumenau;SC
+109900;8;3.2;Prata;61164;Automática;2013;Veículo de loja;São José do Rio Preto;SP
+109990;8;3.2;Prata;29000;Automática;2012;Veículo de loja;São Paulo;SP
+109990;8;3.2;Prata;67000;Automática;2011;Veículo de loja;Campinas;SP
+110000;8;3.2;Preto;98000;Automática;2012;Veículo de loja;Serra;ES
+110000;8;3.2;Preto;42000;Automática;2012;Veículo de loja;Barretos;SP
+112000;8;3.2;Prata;63000;Automática;2011;Veículo de loja;Indaial;SC
+113000;8;3.2;Cinza;71000;Automática;2012;Veículo de loja;Ponta Grossa;PR
+114900;8;3.2;Preto;45600;Automática;2013;Veículo de loja;Rio de Janeiro;RJ
+114900;8;3.2;Branco;96196;Automática;2011;Veículo de loja;Blumenau;SC
+114900;8;3.2;Preto;57900;Automática;2012;Veículo de loja;Curitiba;PR
+115000;7;3.2;Branco;59000;Automática;2013;Veículo de loja;Paraíso do Tocantins;TO
+115000;6;3.2;Prata;58350;Automática;2011;Veículo de loja;Nova Petrópolis;RS
+115900;8;3.2;Preto;40000;Automática;2013;Veículo de loja;Niterói;RJ
+115900;8;3.2;Preto;90000;Automática;2011;Veículo de loja;Pato Branco;PR
+115900;8;3.2;Preto;71250;Automática;2012;Veículo de loja;Curitiba;PR
+116500;8;3.2;Prata;37000;Automática;2013;Veículo de loja;São Paulo;SP
+116900;8;3.2;Preto;67000;Automática;2011;Veículo de loja;Uberaba;MG
+116900;8;3.2;Prata;37000;Manual;2013;Veículo de loja;Belo Horizonte;MG
+117900;8;3.2;Preto;29000;Automática;2013;Veículo de loja;Rio de Janeiro;RJ
+118890;8;3.2;Branco;64515;Automática;2013;Veículo de loja;São Paulo;SP
+119000;8;3.2;Branco;43000;Automática;2012;Veículo de loja;Sorocaba;SP
+119890;8;3.2;Preto;40181;Automática;2012;Veículo de loja;Brasília;DF
+119900;8;3.2;Prata;39500;Automática;2013;Veículo de loja;Boituva;SP
+119900;6;3.2;Prata;40000;Automática;2013;Veículo de loja;Boituva;SP
+119999;8;3.2;Prata;51220;Automática;2013;Veículo de loja;São Paulo;SP
+119990;7;3.2;Branco;48000;Automática;2012;Veículo de loja;Salvador;BA
+119999;8;3.2;Prata;48400;Automática;2012;Veículo de loja;José Bonifácio;SP
+120000;8;3.2;Cinza;5000;Manual;2014;Veículo de loja;Itu;SP
+122000;8;3.2;Cinza;45000;Automática;2013;Veículo de loja;Itapema;SC
+122300;8;3.2;Branco;66000;Automática;2013;Veículo de loja;Goiânia;GO
+124000;6;3.2;Branco;40000;Automática;2013;Veículo de loja;Fortaleza;CE
+125000;8;3.2;Branco;3230;Manual;2013;Veículo de loja;Goiânia;GO
+125000;8;3.5;Cinza;15000;Automática;2014;Veículo de loja;São Paulo;SP
+125900;8;3.2;Prata;21000;Automática;2014;Veículo de loja;Curitiba;PR
+128990;8;3.2;Branco;62000;Automática;2013;Veículo de loja;Belo Horizonte;MG
+129000;6;3.2;Prata;19000;Automática;2014;Veículo de loja;Natal;RN
+129900;8;3.2;Branco;48000;Automática;2012;Veículo de loja;Francisco Beltrão;PR
+132990;7;3.2;Branco;21366;Automática;2014;Veículo de loja;Amparo;SP
+133500;8;3.2;Branco;16769;Automática;2014;Veículo de loja;Pouso Alegre;MG
+133900;8;3.2;Branco;17000;Automática;2014;Veículo de loja;Ribeirão Preto;SP
+135999;8;3.2;Branco;26000;Automática;2013;Veículo de loja;São José do Rio Preto;SP
+138900;8;3.2;Prata;34000;Automática Sequencial;2012;Veículo de loja;Porto Alegre;RS
+139900;8;3.2;Preto;33023;Automática;2014;Veículo de loja;Arapiraca;AL
+140000;8;3.2;Branco;20559;Automática;2012;Veículo de loja;Jaraguá do Sul;SC
+141000;7;3.2;Prata;26000;Automática;2013;Veículo de loja;Rio de Janeiro;RJ
+143900;6;3.2;Preto;26000;Automática;2013;Veículo de loja;Teresópolis;RJ
+149900;7;3.2;Branco;10000;Automática;2014;Veículo de loja;Jundiaí;SP
+146900;6;3.2;Preto;21000;Automática;2014;Veículo de loja;Rio de Janeiro;RJ
+155000;8;3.2;Preto;12500;Automática;2014;Veículo de loja;Itu;SP
+155000;6;3.2;Preto;10000;Automática;2014;Veículo de loja;Fortaleza;CE
+155000;8;3.2;Branco;8700;Automática;2014;Veículo de loja;Miguel Pereira;RJ
+155900;7;3.2;Prata;3000;Automática;2014;Veículo de loja;Fortaleza;CE
+159990;6;3.2;Preto;0;Manual;2015;Veículo de loja;Recife;PE
+160500;8;3.2;Prata;20000;Automática;2014;Veículo de loja;Nhandeara;SP
+168500;6;3.2;Indefinida;0;Automática;2015;Veículo de loja;Araruama;RJ
+172000;8;3.2;Prata;31000;Automática;2013;Veículo de loja;São Paulo;SP
+177990;6;3.2;Branco;0;Automática Sequencial;2015;Veículo de loja;Sinop;MT
+181990;8;3.2;Indefinida;0;Automática;2015;Veículo de loja;Dourados;MS
+220000;8;3.2;Cinza;8000;Automática;2015;Veículo de loja;Curitiba;PR
+240000;6;3.2;Preto;0;Automática Sequencial;2014;Veículo de loja;São Paulo;SP
+205000;7;3.2;Cinza;0;Automática;2015;Veículo de loja;São Paulo;SP
+214999;8;3.2;Preto;0;Automática;2014;Veículo de loja;São Paulo;SP
+75900;6;3.2;Prata;90000;Automática;2009;Veículo de loja;São Paulo;SP
+205000;7;3.2;Cinza;0;Automática;2015;Veículo de loja;São Paulo;SP
+78999;8;3.2;Branco;85000;Manual;2012;Veículo de particular;Niterói;RJ
+125000;8;3.2;Branco;53000;Automática;2013;Veículo de loja;Curitiba;PR
+92800;7;3.2;Preto;154000;Automática;2010;Veículo de loja;São José do Rio Preto;SP
+96900;7;3.2;Preto;NA;Automática;2010;Veículo de concessionária;Uberaba;MG
+99900;6;3.2;Branco;NA;Automática;2011;Veículo de concessionária;Goiânia;GO
+99900;6;3.2;Preto;NA;Automática;2013;Veículo de concessionária;Rio de Janeiro;RJ
+104900;8;3.2;Prata;NA;Automática;2010;Veículo de concessionária;Caxias do Sul;RS
+104990;8;3.2;Prata;NA;Automática;2012;Veículo de concessionária;Goiânia;GO
+110900;8;3.2;Verde;NA;Automática;2011;Veículo de concessionária;Caxias do Sul;RS
+114900;8;3.2;Prata;NA;Automática;2011;Veículo de concessionária;Caxias do Sul;RS
+79900;6;3.2;Prata;NA;Automática;2009;Veículo de loja;São Gonçalo;RJ
+87500;8;3.2;Branco;NA;Manual;2012;Veículo de loja;Belo Horizonte;MG
+88890;8;3.2;Cinza;NA;Automática;2009;Veículo de loja;Curitiba;PR
+89900;8;3.2;Branco;NA;Automática;2009;Veículo de loja;Porto Alegre;RS
+90000;6;3.2;Prata;NA;Automática;2009;Veículo de loja;Uberlândia;MG
+91500;8;3.5;Branco;NA;Automática;2011;Veículo de loja;Fazenda Rio Grande;PR
+92900;8;3.2;Branco;NA;Manual;2012;Veículo de loja;Belo Horizonte;MG
+95000;8;3.2;Branco;NA;Manual;2012;Veículo de loja;Belo Horizonte;MG
+105000;8;3.2;Prata;NA;Automática Sequencial;2010;Veículo de loja;Itajaí;SC
+105000;8;3.2;Branco;NA;Automática;2011;Veículo de loja;Porto Alegre;RS
+110000;8;3.2;Prata;NA;Automática;2012;Veículo de loja;Rio de Janeiro;RJ
+115000;8;3.2;Prata;NA;Automática;2013;Veículo de loja;São Paulo;SP
+115000;7;3.2;Branco;NA;Automática;2011;Veículo de loja;Içara;SC
+121900;6;3.2;prata;NA;Manual;2012;Veículo de loja;João Pessoa;PB
+137990;8;3.5;Marrom;NA;Automática;2014;Veículo de loja;Itajaí;SC
+162000;8;3.2;Prata;NA;Automática;2014;Veículo de loja;Guaíba;RS
+97000;4;3.2;Prata;102000;Automática;2010;Veículo de particular;Taubaté;SP
+120000;5;3.2;Preto;20000;Automática;2013;Veículo de particular;São José do Rio Preto;SP
+76900;4;3.5;Prata;79000;Automática;2012;Veículo de concessionária;Barueri;SP
+83900;5;3.5;Branco;120000;Automática;2012;Veículo de concessionária;Vinhedo;SP
+85900;5;3.2;Preto;107346;Automática;2009;Veículo de concessionária;Montes Claros;MG
+91900;3;3.2;Prata;91710;Automática;2009;Veículo de concessionária;Jundiaí;SP
+94790;4;3.5;Branco;45000;Automática;2012;Veículo de concessionária;Taubaté;SP
+94790;3;3.2;Preto;188000;Automática;2011;Veículo de concessionária;São José dos Campos;SP
+103900;5;3.5;Prata;34000;Automática;2013;Veículo de concessionária;Vinhedo;SP
+108900;5;3.2;Branco;47000;Automática;2012;Veículo de concessionária;Jundiaí;SP
+109500;4;3.2;Prata;98000;Automática;2012;Veículo de concessionária;São José dos Campos;SP
+129990;5;3.2;Prata;0;Manual;2014;Veículo de concessionária;Maringá;PR
+129990;3;3.2;Prata;0;Manual;2014;Veículo de concessionária;Volta Redonda;RJ
+139790;4;3.2;Preto;7000;Automática;2015;Veículo de concessionária;São José dos Campos;SP
+155490;4;3.5;Preto;0;Automática;2015;Veículo de concessionária;Jundiaí;SP
+155990;5;3.2;Branco;0;Automática;2015;Veículo de concessionária;Vila Velha;ES
+168990;4;3.2;Branco;2514;Automática;2015;Veículo de concessionária;São José dos Campos;SP
+181990;4;3.2;Preto;0;Automática;2015;Veículo de concessionária;Jundiaí;SP
+183990;3;3.2;Prata;0;Automática;2015;Veículo de concessionária;Jundiaí;SP
+187990;5;3.2;Branco;0;Automática;2015;Veículo de concessionária;Vila Velha;ES
+73800;5;3.5;Prata;135000;Automática;2011;Veículo de loja;Rio de Janeiro;RJ
+79900;4;3.2;Prata;120000;Automática;2009;Veículo de loja;Niterói;RJ
+80000;5;3.5;Branco;79000;Automática Sequencial;2011;Veículo de loja;Campo Grande;MS
+85900;5;3.5;Cinza;31900;Automática;2011;Veículo de loja;São Paulo;SP
+86900;4;3.2;Branco;66915;Manual;2012;Veículo de loja;Santo André;SP
+89000;5;3.2;Prata;90000;Automática;2010;Veículo de loja;João Pessoa;PB
+89000;4;3.2;Prata;100;Automática;2010;Veículo de loja;Taubaté;SP
+89000;4;3.2;Preto;90000;Automática;2009;Veículo de loja;Campinas;SP
+89000;5;3.2;Prata;89000;Automática;2009;Veículo de loja;São Paulo;SP
+89800;4;3.2;Preto;96000;Automática;2010;Veículo de loja;Jaraguá do Sul;SC
+89900;4;3.5;Preto;27000;Automática;2012;Veículo de loja;São Paulo;SP
+92500;5;3.5;Prata;40000;Automática;2013;Veículo de loja;Santos;SP
+93000;5;3.5;Branco;60000;Automática;2012;Veículo de loja;Nova Odessa;SP
+95900;5;3.5;Prata;1000;Automática;2011;Veículo de loja;Caxias do Sul;RS
+95900;5;3.2;Branco;110000;Automática;2010;Veículo de loja;Goiânia;GO
+97000;5;3.5;Branco;26000;Automática;2013;Veículo de loja;Piracicaba;SP
+98900;5;3.2;Preto;50000;Automática;2012;Veículo de loja;Natal;RN
+99000;5;3.2;Prata;65000;Automática;2011;Veículo de loja;Aracaju;SE
+99000;5;3.5;Cinza;29000;Automática;2012;Veículo de loja;Jundiaí;SP
+100900;5;3.2;Prata;73255;Automática;2011;Veículo de loja;Cuiabá;MT
+99800;5;3.2;Branco;95000;Automática;2011;Veículo de loja;Jaraguá do Sul;SC
+99890;3;3.2;Preto;59000;Automática;2011;Veículo de loja;João Pessoa;PB
+108000;5;3.2;Cinza;62000;Automática;2011;Veículo de loja;Uberaba;MG
+113000;5;3.2;Preto;1e+05;Automática;2011;Veículo de loja;Campos dos Goytacazes;RJ
+112900;5;3.2;Cinza;39000;Automática;2013;Veículo de loja;Guarulhos;SP
+115000;5;3.2;Prata;107000;Automática;2013;Veículo de loja;Aparecida de Goiânia;GO
+118900;5;3.2;Prata;50254;Automática;2011;Veículo de loja;Fortaleza;CE
+116000;5;3.2;Prata;78000;Automática;2012;Veículo de loja;Natal;RN
+118800;5;3.2;Prata;37000;Automática;2012;Veículo de loja;Fortaleza;CE
+119999;4;3.2;Cinza;50000;Automática;2010;Veículo de loja;São Paulo;SP
+125900;5;3.2;Prata;40000;Automática;2012;Veículo de loja;Santa Cruz do Sul;RS
+129000;5;3.2;Preto;49000;Automática;2013;Veículo de loja;Curitibanos;SC
+132000;5;3.5;Dourado;11000;Automática;2014;Veículo de loja;Farroupilha;RS
+144000;5;3.2;Prata;0;Automática;2014;Veículo de loja;Petrolina;PE
+145477;5;3.2;Branco;0;Automática;2015;Veículo de loja;São Paulo;SP
+145990;5;3.2;Branco;0;Automática;2014;Veículo de loja;Petrolina;PE
+149500;4;3.2;Prata;15600;Automática;2014;Veículo de loja;Fortaleza;CE
+149900;5;3.2;Branco;29000;Automática;2014;Veículo de loja;Porto Alegre;RS
+162500;5;3.2;Cinza;4200;Automática;2015;Veículo de loja;São Paulo;SP
+167977;5;3.2;Branco;0;Automática;2015;Veículo de loja;São Paulo;SP
+169890;4;3.5;Branco;0;Automática;2015;Veículo de loja;Brasília;DF
+169990;4;3.2;Prata;0;Automática Sequencial;2014;Veículo de loja;Divinópolis;MG
+97900;5;3.2;Preto;NA;Automática;2010;Veículo de concessionária;Montes Claros;MG
+96000;3;3.2;Prata;NA;Automática;2010;Veículo de concessionária;Novo Hamburgo;RS
+87990;5;3.2;Preto;NA;Automática;2009;Veículo de loja;Natal;RN
+88000;5;3.2;Preto;NA;Automática;2010;Veículo de loja;Porto Velho;RO
+95500;5;3.2;Branco;NA;Manual;2010;Veículo de loja;Cafelândia;PR
+98990;4;3.2;Preto;NA;Automática;2012;Veículo de loja;Mossoró;RN
+126800;3;3.2;Preto;NA;Automática;2012;Veículo de loja;Novo Hamburgo;RS
+85000;1;3.5;Prata;57000;Automática;2011;Veículo de particular;São Paulo;SP
+84900;1;3.5;Cinza;100;Automática;2011;Veículo de concessionária;Uberlândia;MG
+112900;1;3.2;Prata;100;Automática;2013;Veículo de concessionária;Uberlândia;MG
+96700;2;3.2;Preto;59717;Automática;2011;Veículo de concessionária;Rio Branco;AC
+168000;1;3.2;Branco;0;Automática;2015;Veículo de concessionária;Patos de Minas;MG
+151490;1;3.5;Preto;0;Automática;2015;Veículo de concessionária;Barueri;SP
+151490;1;3.2;Cinza;0;Automática;2016;Veículo de concessionária;Barueri;SP
+155490;1;3.2;Prata;0;Automática;2015;Veículo de concessionária;Barueri;SP
+159900;1;3.2;Branco;0;Automática;2015;Veículo de concessionária;Manaus;AM
+177900;1;3.2;Branco;0;Automática;2015;Veículo de concessionária;Barueri;SP
+177990;1;3.2;Prata;0;Automática;2015;Veículo de concessionária;Fortaleza;CE
+179900;1;3.2;Preto;0;Automática;2015;Veículo de concessionária;Manaus;AM
+181900;1;3.2;Preto;0;Automática;2015;Veículo de concessionária;Barueri;SP
+79900;1;3.2;Prata;90000;Automática;2010;Veículo de loja;São Paulo;SP
+82900;1;3.2;Prata;99000;Automática;2009;Veículo de loja;Belo Horizonte;MG
+83890;1;3.2;Preto;97000;Automática;2009;Veículo de loja;Vassouras;RJ
+84890;1;3.5;Branco;100;Automática;2011;Veículo de loja;Brasília;DF
+89900;1;3.2;Prata;85000;Automática;2010;Veículo de loja;Salvador;BA
+92900;2;3.2;Preto;92447;Automática;2010;Veículo de loja;Natal;RN
+99900;2;3.2;Branco;100;Automática;2010;Veículo de loja;João Pessoa;PB
+116900;2;3.2;Preto;0;Manual;2014;Veículo de loja;São Paulo;SP
+120000;1;3.2;Branco;49749;Automática;2012;Veículo de loja;São José do Vale do Rio Preto;RJ
+129000;1;3.2;Branco;60243;Automática;2012;Veículo de loja;São Paulo;SP
+155900;1;3.2;Preto;13300;Automática;2014;Veículo de concessionária;Rio de Janeiro;RJ
+131990;2;3.2;Prata;NA;Automática;2012;Veículo de loja;Piracicaba;SP
+85000;0;3.5;Preto;70000;Automática;2011;Veículo de particular;São Paulo;SP
+111900;14;3.2;Prata;49000;Automática;2012;Veículo de particular;Novo Horizonte;SP
+103900;0;3.5;Prata;34000;Automática;2012;Veículo de concessionária;Jundiaí;SP
+104900;0;3.2;Preto;46000;Automática;2011;Veículo de concessionária;Rio de Janeiro;RJ
+155490;0;3.2;Branco;0;Automática;2015;Veículo de concessionária;Brasília;DF
+155490;0;3.2;Preto;0;Automática;2015;Veículo de concessionária;Jundiaí;SP
+181990;0;3.2;Branco;0;Automática;2015;Veículo de concessionária;Brasília;DF
+123900;0;3.2;Branco;15796;Automática;2013;Veículo de concessionária;Guarulhos;SP
+83990;0;3.2;Preto;77000;Automática;2009;Veículo de loja;Recife;PE
+86990;0;3.2;Prata;93500;Automática;2009;Veículo de loja;Natal;RN
+99000;0;3.2;Prata;102000;Automática;2011;Veículo de loja;Meleiro;SC
+163900;0;3.2;Branco;0;Automática;2014;Veículo de loja;São Paulo;SP
+125990;0;3.2;Preto;79000;Automática;2012;Veículo de concessionária;São Paulo;SP
+104900;0;3.2;Vermelho;NA;Automática;2011;Veículo de concessionária;Goiânia;GO
+181990;0;3.2;Branco;NA;Automática;2015;Veículo de concessionária;Feira de Santana;BA
+104800;0;3.2;Prata;NA;Automática;2011;Veículo de loja;Londrina;PR
+84999;0;3.2;Preto;NA;Automática;2012;Veículo de loja;Curitiba;PR
+135000;0;3.5;Prata;NA;Automática;2013;Veículo de loja;Campo Bom;RS
+105000;0;3.2;Branco;NA;Automática;2012;Veículo de loja;Fortaleza;CE
+118000;0;3.2;Prata;NA;Automática;2012;Veículo de loja;São Luís;MA
+148900;0;3.2;Preto;NA;Automática;2014;Veículo de loja;Ananindeua;PA
+85990;8;3.2;Branco;76000;Manual;2012;Veículo de loja;Rio de Janeiro;RJ
+87000;8;3.5;Prata;16040;Automática;2013;Veículo de loja;Campinas;SP
+104500;8;3.2;Branco;60000;Automática;2012;Veículo de loja;Osasco;SP
+108000;7;3.2;Prata;102000;Automática;2012;Veículo de loja;Vitória da Conquista;BA
+117900;8;3.2;Preto;145000;Automática;2013;Veículo de loja;Belo Horizonte;MG
+119990;4;3.2;Branco;0;Manual;2014;Veículo de concessionária;Presidente Prudente;SP
+177990;3;3.2;Prata;0;Automática;2015;Veículo de concessionária;Presidente Prudente;SP
+86900;5;3.5;Branco;38000;Automática;2012;Veículo de loja;Porto Feliz;SP
+89000;5;3.2;Branco;65000;Manual;2013;Veículo de loja;São Caetano do Sul;SP
+89000;4;3.5;Branco;75000;Automática;2012;Veículo de loja;Campinas;SP
+155490;2;3.2;Branco;0;Automática;2015;Veículo de concessionária;Presidente Prudente;SP
+155490;0;3.5;Branco;0;Automática;2015;Veículo de concessionária;Presidente Prudente;SP
+139990;0;3.2;Branco;0;Automática Sequencial;2014;Veículo de loja;Amparo;SP
+164990;0;3.2;Branco;0;Automática Sequencial;2014;Veículo de loja;Amparo;SP
diff --git a/others/rCharts.Rmd b/others/rCharts.Rmd
new file mode 100644
index 0000000000000000000000000000000000000000..eebd1be620735998bc204d1d25076353ac355adf
--- /dev/null
+++ b/others/rCharts.Rmd
@@ -0,0 +1,166 @@
+---
+title: IGUIR2 - Galeria rCharts
+author: Eduardo E. Ribeiro Jr \& Walmes M. Zeviani
+output:
+    html_document:
+      css: ../galery.css
+      toc: yes
+---
+
+```{r setup, include = FALSE}
+##-------------------------------------------
+## Do documento
+library(knitr)
+opts_chunk$set(
+    echo = TRUE,
+    message = FALSE,
+    warning = FALSE,
+    results = "asis",
+    tidy = FALSE)
+
+library(rCharts)
+## Para renderização rCharts
+options(
+  rcharts.mode = 'iframesrc', 
+  rcharts.cdn = TRUE,
+  RCHART_WIDTH = 800,
+  RCHART_HEIGHT = 400
+)
+```
+> Criar, customizar e publicar visulizações interativas _JavaScript_
+com o R, utilizando a sintaxe _lattice_
+> (R)
+
+## Instalação ##
+
+https://github.com/ramnathv/rCharts  
+http://ramnathv.github.io/rCharts/
+
+```{r, eval=FALSE}
+library(devtools)
+install_github('rCharts', 'ramnathv')
+library(rCharts)
+```
+
+## Exemplos ##
+
+```{r, results = "markup"}
+## Conjunto de dados utilizado, obtido via webScraping
+da <- read.table("pajero-dakar.csv", header = TRUE, sep = ";")
+da$lvalor <- log10(da$valor)
+da$cor <- tolower(da$cor)
+da$motor <- as.factor(paste0("v", da$cilindradas * 1000))
+str(da)
+
+```
+
+### Gráfico de setores (_pieChart_) ###
+
+```{r, fig.height = 8, fig.width = 8}
+##-------------------------------------------
+rp <- nPlot(~ cor, data = da[order(da$cor),], type = 'pieChart')
+rp$chart(color = c("blue", "#D0D0D0", "#5C5C5C", "gold", "orange",
+                   "brown", "#949494", "black", "green", "red",
+                   "#6B1010"))
+rp
+```
+
+
+```{r, echo = TRUE}
+##-------------------------------------------
+## Recategorizando as cores
+da$cor[!(da$cor %in% c("branco", "preto", "prata"))] <- "vários"
+```
+
+### Gráfico de barras (_BarChart_) ###
+
+```{r, include = FALSE}
+da[da$ano == 2016, ]$ano <- 2015
+da$cor[!(da$cor %in% c("branco", "preto", "prata"))] <- "vários"
+```
+
+```{r}
+##-------------------------------------------
+resumo <- with(da, aggregate(lvalor, by = list(anuncio, cor),
+                             FUN = function(x) length(x)))
+rp <- nPlot(x ~ Group.1, group = "Group.2",
+            data = resumo, type = "multiBarChart")
+rp$chart(color = c("#D0D0D0", "#5C5C5C", "black", "#1F77B4"))
+rp
+```
+
+### Gráfico de área (_AreaChart_) ###
+
+```{r}
+##-------------------------------------------
+dn <- density(da$lvalor)
+rp <- nPlot(y ~ x, data = data.frame(x = dn$x, y = dn$y), 
+            type = 'stackedAreaChart')
+rp$xAxis(axisLabel = "Logaritmo dos valores (R$) dos veículos")
+rp
+```
+
+### Gráfico de dispersão (_rPlot_) ###
+
+```{r}
+##-------------------------------------------
+rp <- rPlot(lvalor ~ km | anuncio, data = da,
+            type = "point", color = "motor")
+rp$guides(
+    x = list(title = "Quilômetros rodados" ),
+    y = list(title = "Logaritmo de base 10 dos valores dos veículos (R$)"),
+    color = list(
+        scale = "#! function(value){
+                color_mapping = {v3200: 'black', v3500:'#949494'}
+                return color_mapping[value];
+                } !#", title = "Motor"))
+rp$set(title = paste("Dispersão dos logaritmo dos preços com relação",
+                      "aos quilômetros rodados"))
+rp
+```
+
+### Adicionando Controladores (_addControls_) ###
+
+```{r}
+##-------------------------------------------
+rp <- rPlot(lvalor ~ km, data = da,
+            type = "point", color = "motor")
+rp$addControls("x", value = "km",
+               values = c("km", "ano"))
+rp$addControls("y", value = "lvalor",
+               values = c("lvalor", "valor", "nfotos"))
+rp$addControls("color", value = "motor",
+               values = c("motor", "cambio", "anuncio", "cor", "estado"))
+rp$set(dom = 'chartcontrols')
+rp
+```
+<style>#iframe-chartcontrols{height: 400px; width: 1000px}</style>
+
+```{r}
+##-------------------------------------------
+da$lvalorCateg <- cut(da$lvalor, 5)
+resumo <- with(da,
+               aggregate(
+                   lvalor,
+                   by = list(lvalorCateg, cambio, anuncio),
+                   FUN = function(x) length(x)))
+names(resumo) <- c("lvalorCateg", "Cambio", "Anunciante", "Freq")
+
+rp <- nPlot(Freq ~ lvalorCateg, group = "Cambio", data = resumo,
+      type = "multiBarChart", id = 'chartfilter')
+rp$addFilters("Anunciante")
+rp$set(dom = 'chartfilter')
+rp
+```
+<style>#iframe-chartfilter{height: 700px;  width:900px}</style>
+
+## Referências ##
+
+*  [*Web Scraping* Corrida São Silveste](http://blog.leg.ufpr.br/archives/250)
+Tutorial de *Web Scraping* pelo Blog do LEG
+* [*Web Scraping* em cifras de música](http://blog.leg.ufpr.br/archives/195)
+Tutorial de *Web Scraping* pelo Blog do LEG
+* [rCharts.io](http://ramnathv.github.io/rCharts/)
+Página do pacote **rCharts**
+* [NVD3 with rCharts](http://ramnathv.github.io/posts/rcharts-nvd3/)
+Post com exemplos NVD3 do **rCharts** (função `nPlot(...)`)
diff --git a/rgl/rgl.Rmd b/rgl/rgl.Rmd
new file mode 100644
index 0000000000000000000000000000000000000000..78d66ca57964b609e6f261fe1a055270fdc27a35
--- /dev/null
+++ b/rgl/rgl.Rmd
@@ -0,0 +1,183 @@
+---
+title: IGUIR2 - Galeria rgl
+author: Eduardo E. Ribeiro Jr \& Walmes M. Zeviani
+output:
+    html_document:
+      css: ../galery.css
+      toc: yes
+---
+
+```{r setup, include=FALSE}
+require(knitr)
+source("setup.R")
+knit_hooks$set(webgl = hook_webgl)
+```
+
+> Visualização 3D interativas utilizando _OpenGL_  
+> (Duncan Murdoch)  
+
+## Instalação
+
+[http://cran.r-project.org/web/packages/rgl/](http://cran.r-project.org/web/packages/rgl/)  
+[https://github.com/trestletech/rgl](https://github.com/trestletech/rgl)
+
+```{r, eval=FALSE}
+install.packages("rgl")
+require(rgl)
+```
+
+## Exemplos
+
+### Gráfico de dispersão
+
+```{r, rgl = TRUE, fig.width=10}
+##--------------------------------------------
+x <- sort(rnorm(100))
+y <- rnorm(100)
+z <- rnorm(100) + atan2(x,y)
+
+mfrow3d(2, 2)
+plot3d(x, y, z, col=rainbow(100),
+       type = "p",
+       main = "Pontos")
+
+next3d()
+plot3d(x, y, z, col=rainbow(100),
+       type = "l",
+       main = "Linhas")
+
+next3d()
+plot3d(x, y, z, col=rainbow(100),
+       type = "s",
+       main = "Esferas")
+
+next3d()
+plot3d(x, y, z, col=rainbow(100),
+       type = "h",
+       main = "Segmentos")
+```
+
+### Superfícies
+
+```{r, rgl = TRUE, fig.width=10}
+dnorm2d <- function(x, y){
+     mvtnorm::dmvnorm(x = cbind(x, y), sigma = diag(2))
+}
+
+X <- seq(-4, 4, length = 20)
+Y <- seq(-4, 4, length = 20)
+fxy <- outer(X, Y, dnorm2d)
+
+persp3d(X, Y, fxy, col = "red", alpha = 0.7, aspect = c(1, 1, 0.5),
+        axes = T, xlab = "X", ylab = "Y", zlab = "fXY",
+        color = "seagreen")
+box3d()
+```
+
+### Elementos adicionais
+
+```{r, rgl = TRUE, fig.width=10}
+##--------------------------------------------
+mfrow3d(2, 2)
+
+##--------------------------------------------
+## Pontos
+xy <- mvtnorm::rmvnorm(300, sigma = diag(2))
+x <- xy[ ,1]; y <- xy[ ,2]
+
+persp3d(X, Y, fxy, col = "red", alpha = 0.7, aspect = c(1, 1, 0.5),
+        axes = T, xlab = "X", ylab = "Y", zlab = "fXY",
+        color = "seagreen", main = "Pontos")
+points3d(xy[, 1], xy[, 2], 0, col = 1, cex = 2)
+next3d()
+
+##--------------------------------------------
+## Planos
+quantil <- mvtnorm::qmvnorm(0.80, sigma = diag(2))$quantile
+
+persp3d(X, Y, fxy, col = "red", alpha = 0.7, aspect = c(1, 1, 0.5),
+        axes = T, xlab = "X", ylab = "Y", zlab = "fXY",
+        color = "seagreen", main = "Planos")
+planes3d(0, 0, -1, d = dnorm2d(quantil, quantil),
+         color = "gray70")
+planes3d(0, 1, 0, d = 0, color = "gray90")
+planes3d(1, 0, 0, d = 0, color = "gray90")
+next3d()
+
+##--------------------------------------------
+## Segmentos
+persp3d(X, Y, fxy, col = "red", alpha = 0.7, aspect = c(1, 1, 0.5),
+        axes = T, xlab = "X", ylab = "Y", zlab = "fXY",
+        color = "seagreen", main = "Segmentos")
+segments3d(x, y, 0)
+next3d()
+
+##--------------------------------------------
+## Adicionando texto
+persp3d(X, Y, fxy, col = "red", alpha = 0.7, aspect = c(1, 1, 0.5),
+        axes = T, xlab = "X", ylab = "Y", zlab = "fXY",
+        color = "seagreen", main = "Texto")
+text3d(-2, 2, 0.1, "Distribuição Normal Bivariada")
+```
+
+### Regressão Múltipla
+
+```{r, rgl = TRUE, fig.width=10}
+x <- rnorm(100)
+y <- rnorm(100)
+z <- 0.2*x - 0.3*y + rnorm(100, sd = 0.3)
+fit <- lm(z ~ x + y)
+plot3d(x, y, z, type = "s", col = "red", size = 1)
+coefs <- coef(fit)
+a <- coefs["x"]
+b <- coefs["y"]
+c <- -1
+d <- coefs["(Intercept)"]
+planes3d(a, b, c, d, alpha = 0.5)
+```
+
+### Controladores Web
+Em páginas html ainda se pode adicionar controladores para os gráficos exibidos em _WebGL_. As funções que permitem a inclusão de controladores são:
+
+* `propertySlider()`:	Deslizador numérico
+* `clipplaneSlider()`	Deslizador para um plano de corte
+* `subsetSlider()`	Deslizador de seleção
+* `toggleButton()`	Botão de alteração de itens
+* `propertySetter()`	Botão de alteração de propriedades
+
+
+
+```{r toggle, rgl = TRUE, rgl.keepopen = TRUE}
+sphereid <- with(subset(iris, Species == "setosa"), 
+     spheres3d(Sepal.Length, Sepal.Width, Petal.Length, 
+                  col=as.numeric(Species),
+                  radius = 0.211))
+with(subset(iris, Species == "versicolor"), 
+     spheres3d(Sepal.Length, Sepal.Width, Petal.Length, 
+               col=as.numeric(Species),
+     	       radius = 0.211))
+with(subset(iris, Species == "virginica"), 
+     spheres3d(Sepal.Length, Sepal.Width, Petal.Length, 
+               col=as.numeric(Species),
+     	       radius = 0.211))
+aspect3d(1,1,1)
+decorate3d()
+subid <- currentSubscene3d()
+```
+
+```{r results="asis", echo=TRUE, eval=FALSE}
+toggleButton(sphereid, label = "setosa", prefix = "toggle", subscene = subid)
+toggleButton(sphereid+1, label = "versicolor", prefix = "toggle", subscene = subid)
+toggleButton(sphereid+2, label = "virginica", prefix = "toggle", subscene = subid)
+```
+
+```{r results="asis", echo=FALSE}
+toggleButton(sphereid, label = "setosa", prefix = "toggle", subscene = subid)
+toggleButton(sphereid+1, label = "versicolor", prefix = "toggle", subscene = subid)
+toggleButton(sphereid+2, label = "virginica", prefix = "toggle", subscene = subid)
+```
+
+## Referências
+
+1. [http://cran.r-project.org/web/packages/rgl/vignettes/rgl.html](http://cran.r-project.org/web/packages/rgl/vignettes/rgl.html)
+
diff --git a/rgl/setup.R b/rgl/setup.R
new file mode 100644
index 0000000000000000000000000000000000000000..77de792d69f695fe39064aabf5aa565b0f326168
--- /dev/null
+++ b/rgl/setup.R
@@ -0,0 +1,107 @@
+options(rgl.useNULL=TRUE)
+library(rgl)
+
+hook_webgl <- local({
+  commonParts <- TRUE
+  reuse <- TRUE
+  function (before, options, envir) 
+  {
+    if (before || rgl::rgl.cur() == 0 || !requireNamespace("knitr")) 
+      return()
+    out_type <- knitr::opts_knit$get("out.format")
+    if (!length(intersect(out_type, c("markdown", "html"))))       
+      stop("hook_webgl is for HTML only.  Use knitr::hook_rgl instead.")
+    
+    name <- tempfile("webgl", tmpdir = ".", fileext = ".html")
+    on.exit(unlink(name))
+    dpi <- 96 # was options$dpi
+    rgl::par3d(windowRect = dpi * c(0, 0, options$fig.width, 
+                                            options$fig.height))
+    Sys.sleep(0.1)
+    prefix = gsub("[^[:alnum:]]", "_", options$label)
+    prefix = sub("^([^[:alpha:]])", "_\\1", prefix)
+    res <- rgl::writeWebGL(dir = dirname(name), 
+                    filename = name, 
+                    snapshot = !rgl.useNULL(),
+                    template = NULL, 
+                    prefix = prefix, 
+                    commonParts = commonParts,
+                    reuse = reuse)
+    if (!isTRUE(options$rgl.keepopen) && rgl.cur())
+      rgl.close()
+    commonParts <<- FALSE
+    reuse <<- attr(res, "reuse")
+    res <- readLines(name)
+    res <- res[!grepl("^\\s*$", res)]
+    paste(gsub("^\\s+", "", res), collapse = "\n")
+  }
+})
+
+knitr::knit_hooks$set(rgl = hook_webgl)
+
+documentedfns <- c()
+indexfns <- function(fns, text = paste0("`", fns, "`"), show = TRUE) {
+  documentedfns <<- c(documentedfns, fns)
+  anchors <- paste0('<a name="', fns, '">', 
+                    if (show) linkfn(fns, text, pkg = "rgl"), 
+                    '</a>')
+  paste(anchors, collapse=if (show) ", " else "")
+}
+
+indexclass <- 
+indexproperties <- function(fns, text = paste0("`", fns, "`"), show = TRUE) {
+	documentedfns <<- c(documentedfns, fns)
+	anchors <- paste0('<a name="', fns, '">', 
+			  if (show) text, 
+			  '</a>')
+	paste(anchors, collapse=if (show) ", " else "")
+}
+
+indexmethods <- function(fns, text = paste0("`", fns, "()`"), show = TRUE) {
+	documentedfns <<- c(documentedfns, fns)
+	anchors <- paste0('<a name="', fns, '">', 
+			  if (show) text, 
+			  '</a>')
+	paste(anchors, collapse=if (show) ", " else "")
+}
+
+linkfn <- function(fn, text = paste0("`", fn, "`"), pkg = NA) {
+  if (is.na(pkg))
+    paste0('<a href="#', fn, '">', text, '</a>')
+  else
+    paste0('<a href="../../', pkg, '/help/', fn, '">', text, 
+           '</a>')
+}
+
+# Write this once at the start of the document.
+
+cat('<style>
+.nostripes tr.even {background-color: white;}
+table {border-style: none;}
+table th {border-style: none;}
+table td {border-style: none;}
+a[href^=".."] {text-decoration: underline;}
+</style>
+')  
+
+writeIndex <- function(cols = 4) {
+  documentedfns <- sort(documentedfns)
+  entries <- paste0('<a href="#', documentedfns, '">', documentedfns, '</a>&nbsp;&nbsp;')
+  len <- length(entries)
+  padding <- ((len + cols - 1) %/% cols) * cols - len
+  if (padding)
+    entries <- c(entries, rep("", length.out=padding))
+  cat('\n<div class="nostripes">\n')
+  print(knitr::kable(matrix(entries, ncol=cols), format="pandoc"))
+  cat("</div>\n")
+}
+
+# This displays the string code as `r code` when entered
+# as `r rinline(code)`.  Due to Stephane Laurent
+rinline <- function(code, script = FALSE){
+  if (script)
+    html <- "`r CODE`"
+  else
+    html <- '<code  class="r">``` `r CODE` ```</code>'
+  sub("CODE", code, html)
+}
diff --git a/rpanel/gifs/hist_button.gif b/rpanel/gifs/hist_button.gif
new file mode 100644
index 0000000000000000000000000000000000000000..e4036099cb3b36cf691ec983b24ba6e45cf5aa28
Binary files /dev/null and b/rpanel/gifs/hist_button.gif differ
diff --git a/rpanel/gifs/hist_checkbox.gif b/rpanel/gifs/hist_checkbox.gif
new file mode 100644
index 0000000000000000000000000000000000000000..ba98b98cd8781fe9d3480472e8c01d628052851f
Binary files /dev/null and b/rpanel/gifs/hist_checkbox.gif differ
diff --git a/rpanel/gifs/hist_checkboxgroup.gif b/rpanel/gifs/hist_checkboxgroup.gif
new file mode 100644
index 0000000000000000000000000000000000000000..b393512494530ede568b632368c8942d53d8a6af
Binary files /dev/null and b/rpanel/gifs/hist_checkboxgroup.gif differ
diff --git a/rpanel/gifs/hist_numeric.gif b/rpanel/gifs/hist_numeric.gif
new file mode 100644
index 0000000000000000000000000000000000000000..ea558f25350d526873642f958bbcbc56d8774c67
Binary files /dev/null and b/rpanel/gifs/hist_numeric.gif differ
diff --git a/rpanel/gifs/hist_radio.gif b/rpanel/gifs/hist_radio.gif
new file mode 100644
index 0000000000000000000000000000000000000000..93467479a0d6817348d577f6d4dd0126b19f40f7
Binary files /dev/null and b/rpanel/gifs/hist_radio.gif differ
diff --git a/rpanel/gifs/hist_select.gif b/rpanel/gifs/hist_select.gif
new file mode 100644
index 0000000000000000000000000000000000000000..5a4f841af273a1612252d00df5431c129f8865f1
Binary files /dev/null and b/rpanel/gifs/hist_select.gif differ
diff --git a/rpanel/gifs/hist_select2.gif b/rpanel/gifs/hist_select2.gif
new file mode 100644
index 0000000000000000000000000000000000000000..9cfce5b4a60b5ed9437a399a6f5d96e1e1a9a777
Binary files /dev/null and b/rpanel/gifs/hist_select2.gif differ
diff --git a/rpanel/gifs/hist_slider.gif b/rpanel/gifs/hist_slider.gif
new file mode 100644
index 0000000000000000000000000000000000000000..97b5081dd47cdf8a059172120abd4c69ae65bc45
Binary files /dev/null and b/rpanel/gifs/hist_slider.gif differ
diff --git a/rpanel/gifs/hist_text.gif b/rpanel/gifs/hist_text.gif
new file mode 100644
index 0000000000000000000000000000000000000000..7a0f85fff9fe9e99a9f90f2a335cddca87f2e95c
Binary files /dev/null and b/rpanel/gifs/hist_text.gif differ
diff --git a/rpanel/rpanel.Rmd b/rpanel/rpanel.Rmd
new file mode 100644
index 0000000000000000000000000000000000000000..45137dd413c9de27df25965b9cf5bc26e55d05ab
--- /dev/null
+++ b/rpanel/rpanel.Rmd
@@ -0,0 +1,340 @@
+---
+title: IGUIR2 - Galeria rpanel
+author: Eduardo E. Ribeiro Jr \& Walmes M. Zeviani
+output:
+    html_document:
+      css: ../galery.css
+      toc: yes
+---
+
+```{r setup, include=FALSE}
+library(knitr)
+library(rmarkdown)
+```
+
+> Controles interativos simples para R utilizando a biblioteca tcltk    
+> (Adrian Bowman) 
+
+## Instalação
+[http://cran.r-project.org/web/packages/rpanel/](http://cran.r-project.org/web/packages/rpanel/)  
+
+```{r, eval=FALSE}
+install.packages("rpanel")
+require(rpanel)
+```
+## Exemplos
+
+### Botão de ação (rp.button)
+
+```{r, eval=FALSE}
+
+x <- precip
+ht <- hist(x)
+
+hist.reactive <- function(input){
+    col <- sample(colors(), size=1)
+    plot(ht, main=NULL,
+         ylab="Frequência absoluta", xlab="Precipitação",
+         col=col, sub=col)
+    return(input)
+}
+
+panel <- rp.control(title="Histograma")
+rp.button(panel=panel, 
+          title="Nova cor!",
+          action=hist.reactive)
+
+```
+
+![](./gifs/hist_button.gif)
+
+### Caixa de seleção múltipla (rp.checkbox)
+
+```{r, eval=FALSE}
+
+x <- precip
+ht <- hist(x)
+nc <- length(ht$counts)
+
+cols <- c(Vermelho="#F81D54", Amarelo="#FF9F1E",
+          Azul="#2791E1", Verde="#72F51D")
+cols2 <- c(cols, rev(cols))
+
+hist.reactive <- function(input){
+    seqcol <- colorRampPalette(cols2[input$colors])
+    plot(ht, col=seqcol(nc),
+         main=NULL,
+         ylab="Frequência absoluta",
+         xlab="Precipitação")
+    return(input)
+}
+
+panel <- rp.control(title="Histograma")
+rp.checkbox(panel=panel, variable=colors,
+            title="Escolha as cores para interpolar:",
+            labels=names(cols2),
+            initval=c(TRUE, is.na(cols2)[-1]),
+            action=hist.reactive)
+
+```
+
+![](./gifs/hist_checkboxgroup.gif)
+
+### Caixa de seleção (rp.checkbox)
+
+```{r, eval=FALSE}
+
+x <- precip
+ht <- hist(x)
+col <- rep("#3366CC", length(ht$counts))
+
+hist.reactive <- function(input){
+    if(input$modal){
+        col[which.max(ht$counts)] <- "#142952"
+    }
+    plot(ht, col=col, main=NULL,
+         ylab="Frequência absoluta",
+         xlab="Precipitação")
+    if(input$rg){
+        rug(x)
+    }
+    return(input)
+}
+
+panel <- rp.control(title="Histograma")
+rp.checkbox(panel=panel, variable=rg,
+            title="Marcar sobre eixo com os valores?",
+            initval=FALSE,
+            action=hist.reactive)
+rp.checkbox(panel=panel, variable=modal,
+            title="Destacal a classe modal?",
+            initval=FALSE,
+            action=hist.reactive)
+
+```
+
+![](./gifs/hist_checkbox.gif)
+
+### Entrada numérica (rp.numeric)
+
+```{r, eval=FALSE}
+
+x <- precip
+ht <- hist(x)
+
+hist.reactive <- function(input){
+    m <- input$mar
+    par(mar=c(m, m, 1, 1))
+    plot(ht, col="#660066",
+         main=NULL, axes=FALSE, ann=FALSE,
+         xaxt="n", yaxt="n")
+    box(bty="L")
+    axis(side=1, cex.axis=input$cexaxis)
+    axis(side=2, cex.axis=input$cexaxis)
+    title(ylab="Frequência absoluta",
+          xlab="Precipitação",
+          line=input$line)
+    return(input)
+}
+
+panel <- rp.control(title="Histograma")
+rp.doublebutton(panel=panel, variable=mar,
+                title="Tamanho das margens:",
+                initval=5, range=c(3, 7), step=0.5,
+                action=hist.reactive)
+rp.doublebutton(panel=panel, variable=cexaxis,
+                title="Tamanho do texto dos eixos:",
+                initval=1, range=c(0.5, 2), step=0.1,
+                action=hist.reactive)
+rp.doublebutton(panel=panel, variable=line,
+                title="Distância dos rótulos dos eixos:",
+                initval=3, range=c(1, 4), step=0.1,
+                action=hist.reactive)
+
+```
+
+![](./gifs/hist_numeric.gif)
+
+### Múltipla escolha (rp.radiogroup)
+
+```{r, eval=FALSE}
+
+x <- precip
+ht <- hist(x)
+
+hist.reactive <- function(input){
+    plot(ht,
+         col=input$col,
+         main=NULL,
+         ylab="Frequência absoluta",
+         xlab="Precipitação")
+    return(input)
+}
+
+choices <- c(Turquesa="#00CC99",
+             Azul="#0066FF",
+             Rosa="#FF3399",
+             Laranja="#FF6600",
+             Roxo="#660066",
+             "Verde limão"="#99FF33")
+
+panel <- rp.control(title="Histograma")
+rp.radiogroup(panel=panel, variable=col,
+              title="Escolha a cor para as barras:",
+              vals=choices, labels=names(choices),
+              action=hist.reactive)
+
+
+```
+
+![](./gifs/hist_radio.gif)
+
+### Caixas de seleção (rp.listbox e rp.radiogroup)
+
+```{r, eval=FALSE}
+
+fml <- names(X11Fonts())
+fnt <- c("plain"=1, "bold"=2, "italic"=3, "bold-italic"=4)
+
+x <- precip
+ht <- hist(x)
+
+hist.reactive <- function(input){
+    f <- as.integer(input$fnt)
+    plot(ht,
+         family=input$fml,
+         font=as.integer(input$fnt),
+         col="#FF9200",
+         main=NULL,
+         ylab="Frequência absoluta",
+         xlab="Precipitação")
+         return(input)
+}
+
+panel <- rp.control(title="Histograma")
+rp.listbox(panel=panel, variable=fml,
+           title="Escolha o tipo de fonte:",
+           vals=fml, initval=fml[1],
+           action=hist.reactive)
+rp.radiogroup(panel=panel, variable=fnt,
+           title="Escolha o estilo de fonte:",
+           vals=fnt, initval=fnt[1],
+           labels=names(fnt),
+           action=hist.reactive)
+
+```
+
+![](./gifs/hist_select2.gif)
+
+### Caixa de seleção (rp.listbox)
+
+```{r, eval=FALSE}
+
+nclass <- c("Sturges", "Scott", "Freedman-Diaconis")
+obj <- c("precip","rivers","islands")
+
+hist.reactive <- function(input){
+    L <- switch(input$obj,
+                precip=list(x=precip,
+                    xlab="Precipitação anual média (polegadas)"),
+                rivers=list(x=rivers,
+                    xlab="Comprimento dos rios (milhas)"),
+                islands=list(x=islands,
+                    xlab="Área de ilhas (1000 milhas quadradas)"))
+    hist(L$x,
+         breaks=input$nclass,
+         col="#8F0047",
+         main=NULL,
+         ylab="Frequência absoluta",
+         xlab=L$xlab)
+    rug(L$x)
+    return(input)
+}
+
+panel <- rp.control(title="Histograma")
+rp.combo(panel=panel, variable=obj,
+         prompt="Escolha o conjunto de dados:",
+         vals=obj, initval=obj[1],
+         action=hist.reactive)
+rp.combo(panel=panel, variable=nclass,
+         prompt="Escolha a regra para número de classes:",
+         vals=nclass, initval=nclass[1],
+         action=hist.reactive)
+
+panel <- rp.control(title="Histograma")
+rp.listbox(panel=panel, variable=obj,
+           title="Escolha o conjunto de dados:",
+           vals=obj, initval=obj[1],
+           action=hist.reactive)
+rp.listbox(panel=panel, variable=nclass,
+           title="Escolha a regra para número de classes:",
+           vals=nclass, initval=nclass[1],
+           action=hist.reactive)
+
+```
+
+![](./gifs/hist_select.gif)
+
+### Deslizador (rp.slider)
+
+```{r, eval=FALSE}
+
+x <- precip
+
+## Extremos com amplitude estendida em 5%.
+a <- extendrange(x, f=0.05)
+
+hist.reactive <- function(input){
+    bks <- seq(a[1], a[2], length.out=input$nclass+1)
+    hist(x,
+         breaks=bks,
+         main=NULL,
+         col="#008A8A",
+         ylab="Frequência absoluta",
+         xlab="Precipitação")
+    return(input)
+}
+
+panel <- rp.control(title="Histograma")
+rp.slider(panel=panel, variable=nclass,
+          title="Escolha o número de classes:",
+          from=1, to=30, resolution=1, initval=10,
+          action=hist.reactive)
+
+```
+
+![](./gifs/hist_slider.gif)
+
+### Entrada de texto (rp.textentry)
+
+```{r, eval=FALSE}
+
+x <- precip
+ht <- hist(x)
+
+hist.reactive <- function(input){
+    plot(ht, col="#006666",
+         ylab="Frequência absoluta",
+         xlab="Precipitação",
+         main=input$main,
+         sub=input$sub)
+    return(input)
+}
+
+panel <- rp.control(title="Histograma")
+rp.textentry(panel=panel, variable=main,
+             labels="Texto para o título:",
+             initval="",
+             action=hist.reactive)
+rp.textentry(panel=panel, variable=sub,
+             labels="Texto para o subtítulo:",
+             initval="",
+             action=hist.reactive)
+
+```
+
+![](./gifs/hist_text.gif)
+
+## Referências
+
+1. http://www.stats.gla.ac.uk/~adrian/rpanel/