Merge branch 'issue#1' into 'master'

Issue#1

Esse ramo traz:
  - Capítulo com a estrutura do pacote R;
  - Modificações no style.css para centralizar o cabeçalho;
  - Correções ortográficas no CONTRIBUTING;
  - Arquivos Rmd para os capítulos de 04 à 07 com YAML e chunk de setup;

É necessário fazer antes do MR:
  - Leitura de todo o texto para verificar a fluidez;
  - Correções ortográficas;
  - Aprimorar onde julgar necessário;

Faça as modificações no ramo issue#1. Ao aplicar o MR, feche o issue correspondente.

See merge request !1

CONTRIBUTING.md

@@ -3,17 +3,17 @@ Guia de Colaboração
 
 Nos códigos R deve ser usado o padrão de estilo definido em
 
-Advanced R: [Style guide] por Hadley Wickham
+> Advanced R: [Style guide] por Hadley Wickham.
 
 Para controlar a renderização dos arquivos `Rmd`, edite o
 `_output.yaml`. Para modificar propriedades do resultado `html`, edite
-`\tyle.css`. Para modificar propriedades do resultado `pdf`, edite
+`style.css`. Para modificar propriedades do resultado `pdf`, edite
 `template.tex`.
 
 Ao indicar url no meio do texto use
 
 ```
-## Para fazer: texto\footnote\url{http://a.url.com}
+## Para fazer: texto\footnote{\url{http://a.url.com}}
 `r renderUrl(text = "texto", url = "http://a.url.com", output = "tex")`
 
 ## Para fazer: [texto](http://a.url.com)
@@ -21,6 +21,6 @@ Ao indicar url no meio do texto use
 ```
 
 Essa função, e outras, estão definidas em `config.R`. Esse *script* deve
-ser carregado, `source()` no primeiro *chunk* de cada documento.
+ser carregado via `source()` no primeiro *chunk* de cada documento.
 
 [Style guide]: http://adv-r.had.co.nz/Style.html

aux/pitagoras.R

+##----------------------------------------------------------------------
+#' @title Hipotenusa de Triângulo Retângulo
+#' @name pitagoras
+#'
+#' @description Dados os catetos de um triângulo retângulo, essa função
+#'     obtém a hipótenusa.
+#'
+#' @param a,b Vetores numéricos com valores dos catetos do triângulo.
+#'
+#' @details Essa função é baseada no teorema de Pitágoras
+#'     \url{https://pt.wikipedia.org/wiki/Teorema_de_Pitágoras}.
+#'
+#' @return Um vetor com a hipotenusa calculada.
+#'
+#' @author Walmes Zeviani
+#'
+#' @examples
+#'
+#' ## Triangulo pitagórico.
+#' pitagoras(a = 3, b = 4)
+#'
+#' @export
+pitagoras <- function(a, b){
+    h <- sqrt(a^2 + b^2)
+    return(h)
+}

aux/plotTriRet.R

+#' @title Desenha um Triângulo Retângulo
+#' @name plotTriRet
+#' @export
+#'
+#' @description Exibe um triângulo retângulo a partir dos valores dos
+#'     catetos.
+#'
+#' @param a primeiro cateto.
+#' @param b segundo cateto.
+#' @param ... argumentos passados para a função
+#'     \code{\link[lattice]{xyplot}}
+#'
+#' @return Um grafico xyplot do pacote lattice.
+#'
+#' @seealso \code{\link[lattice]{xyplot}}.
+#'
+#' @importFrom lattice xyplot
+#'
+#' @examples
+#'
+#' plotTriRet(a=3, b=4)
+#'
+plotTriRet <- function(a, b, ...){
+    x <- c(0, a, 0, 0)
+    y <- c(0, 0, b, 0)
+    xyplot(y ~ x, type = c("l", "g"), aspect = "iso",
+           xlab = NULL, ylab = NULL, col = 1, ...)
+}

cap04.Rmd

+---
+title: "Pacote com dados"
+author: "Fernando Mayer & Walmes Zeviani"
+---
+
+```{r setup, include=FALSE}
+library(knitr)
+
+opts_chunk$set(
+    dev.args=list(family = "Palatino"))
+
+options(width = 68)
+
+## Carrega as definições de sessão.
+source("config.R")
+rty <- "md"
+```
+

cap05.Rmd

+---
+title: "Métodos e Funções Genéricas"
+author: "Fernando Mayer & Walmes Zeviani"
+---
+
+```{r setup, include=FALSE}
+library(knitr)
+
+opts_chunk$set(
+    dev.args=list(family = "Palatino"))
+
+options(width = 68)
+
+## Carrega as definições de sessão.
+source("config.R")
+rty <- "md"
+```
+

cap06.Rmd

+---
+title: "Vinhetas"
+author: "Fernando Mayer & Walmes Zeviani"
+---
+
+```{r setup, include=FALSE}
+library(knitr)
+
+opts_chunk$set(
+    dev.args=list(family = "Palatino"))
+
+options(width = 68)
+
+## Carrega as definições de sessão.
+source("config.R")
+rty <- "md"
+```
+

cap07.Rmd

+---
+title: "Testes"
+author: "Fernando Mayer & Walmes Zeviani"
+---
+
+```{r setup, include=FALSE}
+library(knitr)
+
+opts_chunk$set(
+    dev.args=list(family = "Palatino"))
+
+options(width = 68)
+
+## Carrega as definições de sessão.
+source("config.R")
+rty <- "md"
+```
+

style.css

@@ -8,9 +8,18 @@ tt, code, pre {
     font-family: "Inconsolata", "Andale Mono", monospace;
 }
 
-code {
-    font-size: 16px;
-}
+/* Controla o título. */
+#header {
+    text-align: center;
+    border-bottom: 1px solid black;
+    margin-bottom: 20px;
+}
+
+/* Controla o sumário. */
+/* #TOC { display: block; } */
+/* h1.title {} */
+/* h4.author {} */
+/* code { font-size: 16px; } */
 
 pre code {
     font-size: 14px;