From caed061eea5cef205f52f44ef47fca142aa23039 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Tue, 5 Jan 2016 14:52:45 -0200
Subject: [PATCH] =?UTF-8?q?Conclui=20se=C3=A7=C3=A3o=20de=20consultar=20as?=
=?UTF-8?q?=20vinhetas.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
cap06.Rmd | 79 ++++++++++++++++++++++++++++++++++++++++++++++++++-----
1 file changed, 73 insertions(+), 6 deletions(-)
diff --git a/cap06.Rmd b/cap06.Rmd
index 014fc91..d9062c4 100644
--- a/cap06.Rmd
+++ b/cap06.Rmd
@@ -89,7 +89,7 @@ estudo de caso; detalhamento de algoritimos;
# Consultar vinhetas #
-#### Vinhetas dos pacotes instalados ####
+## Pacotes instalados ##
Certamente alguns dos pacotes que você tem instalado no seu SO possuem
vinheta. Se você está reproduzindo o código desse tutorial, então você
@@ -99,12 +99,10 @@ você pode usar as opções ilustradas abaixo.
```{r, eval=FALSE}
## Exibe todas as vinhetas disponíveis no console.
vignette()
-```
-```{r}
+
## Exibe as vinhetas de um único pacote no console.
vignette(package = "roxygen2")
-```
-```{r, eval=FALSE}
+
## Abre uma vinheta pelo nome (essa é do pacote roxygen2).
vignette(topic = "rd")
vignette(topic = "rd", package = "roxygen2")
@@ -116,7 +114,74 @@ browseVignettes()
browseVignettes(package = "roxygen2")
```
-#### Vinhetas dos pacotes no CRAN ####
+```{r, include=FALSE}
+cap <-
+"Distribuição do número de vinhetas por pacote nos pacotes oficiais do R
+disponíveis no CRAN."
+
+if (ishtml) {
+ cap <- fig$cap("vin", cap)
+}
+
+tb <- structure(
+ c(0.774686165394073, 0.171735473016695, 0.0535783615892326),
+ class = "table",
+ .Dim = 3L,
+ .Dimnames = structure(list(y = c("0", "1", ">1")),
+ .Names = "y"))
+
+tbl <- structure(
+ list(px = c(5986L, 1327L, 235L, 85L, 34L, 29L, 11L, 4L, 3L, 4L, 2L,
+ 1L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 1L, 1L, 0L, 1L, 0L, 0L,
+ 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
+ 0L, 0L, 0L, 0L, 0L, 0L, 1L),
+ x = 0:45),
+ .Names = c("px", "x"),
+ row.names = c(NA, -46L),
+ class = "data.frame")
+
+totPack <- sum(tbl$px)
+totVin <- sum(tbl$px * tbl$x)
+m <- totVin / totPack
+
+```
+
+## Pacotes oficiais no CRAN ##
+
+Para os pacotes que são oficiais (que estão no CRAN), você pode
+consultar as vinhetas, bem a documentação, online. Os pacotes estão no
+endereço `https://cran.r-project.org/web/packages/<pacote>/index.html`,
+em que `<pacote>` é um nome. Nessas páginas existe uma seção com URLs
+para as vinhetas, quando disponíveis, logo abaixo da documentação em
+PDF.
+
+Nós fizemos um *web scraping* no site do CRAN e verificamos que 22.5%
+dos pacotes oficiais do R tem pelo menos uma vinheta, sendo que 17.2%
+tem apenas uma e 5.4% tem mais que uma, conforme a Figura
+`r fig$ref("vin")`.
+
+Existe um total de `r totVin` distribuídas em `r totPack` pacotes, o que
+dá uma média de `r round(m, 2)` vinhetas por pacote. Esse *web scrap*
+levou 150 minutos e foi feito no dia 04 de Janeiro de 2016.
+
+```{r, echo=FALSE, results="hide", fig.cap=cap}
+plot(px ~ x, data = tbl, type = "h", lwd = 4,
+ xlab = "Número de vinhetas no pacote",
+ ylab = "Número de pacotes")
+par(fig = c(0.15, 0.95, 0.15, 1), new = TRUE)
+pie(tb,
+ col = c("red", "orange", "yellow"),
+ labels = sprintf(fmt = "%s (%0.1f%s)",
+ c(0, 1, ">1"), 100*tb, "%"))
+text(x = 0, y = 0.9, labels = "Frequência relativa", cex = 1.2)
+```
+
+Além dos pacotes oficiais existem pacotes em desenvolvimento no GitHub,
+por exemplo, cuja vinheta pode também estar disponível. Esse é o caso do
+pacote [breedR].
+
+Fica aqui aquela pergunta tipo Tostines: um pacote tem mais vinhetas
+por que é mais usado ou é mais usado por que tem mais vinhetas?
# Adicionando vinheta #
@@ -295,3 +360,5 @@ output em PDF.
Por fim, basta executar `check()` e `build()` mais uma vez para incluir
as vinhetas no `.tar.gz` do seu pacote.
+
+[breedR]: https://github.com/famuvie/breedR/tree/master/inst/doc
--
GitLab