From 666354c7c152d45d3a9edf6a387e851642957c75 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Wed, 7 Sep 2016 20:33:34 -0300
Subject: [PATCH] Encurta referencia, tiny a documentacao.

---
 R/Ramos.R | 293 +++++++++++++++++++++++-------------------------------
 1 file changed, 127 insertions(+), 166 deletions(-)

diff --git a/R/Ramos.R b/R/Ramos.R
index 845fafc2..d1fd3d98 100644
--- a/R/Ramos.R
+++ b/R/Ramos.R
@@ -1,54 +1,51 @@
 #' @name RamosAnC1
-#' @title Temperatura do \enc{ó}{o}leo de misturadores
-#' @description Conjunto de dados da temperatura do óleo de misturadores,  
-#'    com 25 amostras de tamanho 8 de um processo metalúrgico.
-#'
-#' @format Um \code{data.frame} com 200 observações e 2 variáveis, em que
+#' @title Temperatura do \enc{Ó}{O}leo de Misturadores
+#' @description Conjunto de dados da temperatura do óleo de
+#'     misturadores, com 25 amostras de tamanho 8 de um processo
+#'     metalúrgico.
+#' @format Um \code{data.frame} com 200 observações e 2 variáveis, em
+#'     que
 #'
 #' \describe{
 #'
 #' \item{\code{amostra}}{Número da amostra.}
 #'
-#' \item{\code{oleo}}{Temperatura ddo óleo (em °C ).}
-#'     
+#' \item{\code{oleo}}{Temperatura ddo óleo (em \eqn{^\circ}C).}
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 133).
-#'      
+#' @source RAMOS et al. (2013), pág. 133.
 #' @examples
 #'
 #' data(RamosAnC1)
+#' str(RamosAnC1)
 #'
 #' library(qcc)
 #'
 #' obj <- qcc.groups(RamosAnC1$oleo, RamosAnC1$amostra)
-#' 
-#' qcc(obj, type = "xbar", nsigmas = 3, xlab = "Amostra", ylab = 
-#'      "Temperatura média", title = " ")
+#'
+#' qcc(obj, type = "xbar", nsigmas = 3,
+#'     xlab = "Amostra", ylab = "Temperatura média",
+#'     title = "")
 #'
 NULL
 
 #' @name RamosAnC2
-#' @title Teor de s\enc{ó}{o}dio em um processo qu\enc{í}{i}mico 
-#' @description Conjunto de dados do teor de sódio (Na)  
-#'     em 25 amostras de tamanho 5 de um processo químico.
-#'
-#' @format Um \code{data.frame} com 125 observações e 2 variáveis, em que
+#' @title Teor de S\enc{ó}{o}dio em um Processo Qu\enc{í}{i}mico
+#' @description Conjunto de dados do teor de sódio (Na) em 25 amostras
+#'     de tamanho 5 de um processo químico.
+#' @format Um \code{data.frame} com 125 observações e 2 variáveis, em
+#'     que
 #'
 #' \describe{
 #'
 #' \item{\code{amostra}}{Número da amostra.}
 #'
 #' \item{\code{sodio}}{Teor do sódio.}
-#'     
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 134).
-#'      
+#' @source RAMOS et al. (2013), pág. 134.
 #' @examples
 #'
 #' data(RamosAnC2)
@@ -57,16 +54,15 @@ NULL
 #'
 #' obj <- qcc.groups(RamosAnC2$sodio, RamosAnC2$amostra)
 #'
-#' qcc(obj, type = "xbar", nsigmas = 3, ylab = "Média amostral", xlab = 
-#'      "Amostra", title = "")
+#' qcc(obj, type = "xbar", nsigmas = 3,
+#'     ylab = "Média amostral", xlab = "Amostra", title = "")
 #'
 NULL
 
 #' @name RamosAnC4
-#' @title Processo produtivo de canetas
-#' @description Conjunto de dados de um processo produtivo  
+#' @title Processo Produtivo de Canetas
+#' @description Conjunto de dados de um processo produtivo
 #'     de canetas, com 34 amostras de tamanhos diferentes.
-#'
 #' @format Um \code{data.frame} com 34 observações e 3 variáveis, em que
 #'
 #' \describe{
@@ -76,29 +72,29 @@ NULL
 #' \item{\code{tamamostra}}{Tamanho da amostra.}
 #'
 #' \item{\code{naoconf}}{Número de canetas não conformes na amostra.}
-#'     
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 135).
-#'      
+#' @source RAMOS et al. (2013), pág. 135.
 #' @examples
 #'
 #' data(RamosAnC4)
 #'
 #' library(qcc)
 #'
-#' qcc(RamosAnC4$naoconf, sizes = RamosAnC4$tamamostra, type = "p",
-#'    xlab = "Amostra", ylab = "Número de canetas não conformes", title = "")
+#' qcc(RamosAnC4$naoconf,
+#'     sizes = RamosAnC4$tamamostra,
+#'     type = "p",
+#'     xlab = "Amostra",
+#'     ylab = "Número de canetas não conformes",
+#'     title = "")
 #'
 NULL
 
 #' @name RamosAnC6
-#' @title Processo de fabrica\enc{çã}{ca}o de panelas
-#' @description Conjunto de dados de um processo de fabricação  
-#'     de panelas, com 30 amostras com tamanhos diferentes.
-#'
+#' @title Processo de Fabrica\enc{çã}{ca}o de Panelas
+#' @description Conjunto de dados de um processo de fabricação de
+#'     panelas, com 30 amostras com tamanhos diferentes.
 #' @format Um \code{data.frame} com 30 observações e 3 variáveis, em que
 #'
 #' \describe{
@@ -108,32 +104,27 @@ NULL
 #' \item{\code{tamamostra}}{Tamanho da amostra de panelas avaliadas.}
 #'
 #' \item{\code{naoconf}}{Número de não conformidades nas panelas.}
-#'     
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 136).
-#'      
+#' @source RAMOS et al. (2013), pág. 136.
 #' @examples
 #'
 #' data(RamosAnC6)
 #'
 #' library(qcc)
 #'
-#' qcc(RamosAnC6$naoconf, sizes = RamosAnC6$tamamostra, type = "u", 
-#'    ylim = c(0,2.5), xlab = "Amostra", ylab = "Número de não 
-#'    conformidades em panelas", title = "")
-#'   
+#' qcc(RamosAnC6$naoconf, sizes = RamosAnC6$tamamostra, type = "u",
+#'     ylim = c(0,2.5), xlab = "Amostra", ylab = "Número de não
+#'     conformidades em panelas", title = "")
+#'
 #'
 NULL
 
 #' @name RamosAnC7
-#' @title Processo qu\enc{í}{i}mico
-#' @description Conjunto de dados de um processo químico com  
-#'     o pH da água, e pH do cloreto de potássio em 30 amostras
-#'     de tamanho 1.
-#'
+#' @title Processo Qu\enc{í}{i}mico
+#' @description Conjunto de dados de um processo químico com o pH da
+#'     água, e pH do cloreto de potássio em 30 amostras de tamanho 1.
 #' @format Um \code{data.frame} com 30 observações e 3 variáveis, em que
 #'
 #' \describe{
@@ -143,13 +134,10 @@ NULL
 #' \item{\code{phagua}}{pH da água.}
 #'
 #' \item{\code{phclore}}{pH do cloreto de potássio.}
-#'     
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 137).
-#'      
+#' @source RAMOS et al. (2013), pág. 137.
 #' @examples
 #'
 #' data(RamosAnC7)
@@ -157,20 +145,19 @@ NULL
 #' library(qcc)
 #'
 #' qcc(RamosAnC7$phagua, type="xbar.one",
-#'   xlab = "Amostra", ylab = "Ph da água", 
-#'   title = "")
+#'     xlab = "Amostra", ylab = "Ph da água",
+#'     title = "")
+#'
 #' qcc(RamosAnC7$phclore, type="xbar.one",
-#'   xlab = "Amostra", ylab = "Ph do cloreto", 
-#'   title = "")
+#'     xlab = "Amostra", ylab = "Ph do cloreto",
+#'     title = "")
 #'
 NULL
 
 #' @name RamosAnC8
-#' @title Teor de elementos qu\enc{í}{i}micos
-#' @description Conjunto de dados de teor de elementos químicos  
-#'     resultantes de análises de laboratório em 30 amostras 
-#'     unitárias.
-#'
+#' @title Teor de Elementos Qu\enc{í}{i}micos
+#' @description Conjunto de dados de teor de elementos químicos
+#'     resultantes de análises de laboratório em 30 amostras unitárias.
 #' @format Um \code{data.frame} com 30 observações e 8 variáveis, em que
 #'
 #' \describe{
@@ -190,35 +177,30 @@ NULL
 #' \item{\code{aluminio}}{Teor do alumínio.}
 #'
 #' \item{\code{vanad}}{Teor do vanádio.}
-#'     
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 138).
-#'      
+#' @source RAMOS et al. (2013), pág. 138.
 #' @examples
 #'
 #' data(RamosAnC8)
 #'
 #' library(qcc)
 #'
-#' qcc(RamosAnC8$magnes, type="xbar.one",
-#'   xlab = "Amostras", ylab = "Teor do magnésio",
-#'   title = "")
-#' 
-#' qcc(RamosAnC8$ferro, type="xbar.one",
-#'    xlab = "Amostras", ylab = "Teor do ferro",
-#'    title = "")
+#' qcc(RamosAnC8$magnes, type = "xbar.one",
+#'     xlab = "Amostras", ylab = "Teor do magnésio",
+#'     title = "")
+#'
+#' qcc(RamosAnC8$ferro, type = "xbar.one",
+#'     xlab = "Amostras", ylab = "Teor do ferro",
+#'     title = "")
 #'
 NULL
 
 #' @name RamosTb2.5
-#' @title Resist\enc{ê}{e}ncia \enc{à}{a} ruptura de garrafas
-#' @description Distribuição de frequências para as 
-#'     resistências à  ruptura de 100 garrafas de 
-#'     refrigerante de um litro.
-#'
+#' @title Resist\enc{ê}{e}ncia \enc{à}{a} Ruptura de Garrafas
+#' @description Distribuição de frequências para as resistências à
+#'     ruptura de 100 garrafas de refrigerante de um litro.
 #' @format Um \code{data.frame} com 9 observações e 2 variáveis, em que
 #'
 #' \describe{
@@ -229,39 +211,35 @@ NULL
 #'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 29).
-#'      
+#' @source RAMOS et al. (2013), pág. 29.
 #' @examples
 #'
 #' data(RamosTb2.5)
+#' str(RamosTb2.5)
 #'
-#' barplot(RamosTb2.5$freq, names=RamosTb2.5$forca, 
-#'       xlab = 'Resistência', ylab = 'Frequência')
-#'
+#' barplot(RamosTb2.5$freq, names = RamosTb2.5$forca,
+#'         xlab = "Resistência", ylab = "Frequência")
 #'
 NULL
 
 #' @name RamosTb2.6
-#' @title Resist\enc{ê}{e}ncia \enc{à}{a} ruptura e peso de garrafas
-#' @description Resistência e peso de 25 garrafas.     
+#' @title Resist\enc{ê}{e}ncia \enc{à}{a} Ruptura e Peso de Garrafas
+#' @description Resistência e peso de 25 garrafas.
 #' @format Um \code{data.frame} com 25 observações e 2 variáveis, em que
 #'
 #' \describe{
-#' 
+#'
 #' \item{\code{forca}}{Força de resistência à ruptura.}
 #'
 #' \item{\code{peso}}{Peso da garrafa (em gramas).}
 #'
 #' }
-#' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pág. 30).
+#' @keywords CEQ RL
+#' @source RAMOS et al. (2013), pág. 30.
 #' @examples
 #'
 #' data(RamosTb2.6)
+#' str(RamosTb2.6)
 #'
 #' library(lattice)
 #'
@@ -271,10 +249,10 @@ NULL
 NULL
 
 #' @name RamosTb2.7
-#' @title Processo de fundi\enc{çã}{ca}o de magn\enc{é}{e}sio
-#' @description Dados referente a um processo de fundição
-#'     de magnésio, compreendendo a recuperação do metal 
-#'     e os valores do fluxo de regeneração adicionada.
+#' @title Processo de Fundi\enc{çã}{ca}o de Magn\enc{é}{e}sio
+#' @description Dados referente a um processo de fundição de magnésio,
+#'     compreendendo a recuperação do metal e os valores do fluxo de
+#'     regeneração adicionada.
 #' @format Um \code{data.frame} com 7 observações e 2 variáveis, em que
 #'
 #' \describe{
@@ -285,10 +263,8 @@ NULL
 #' \item{\code{recupe}}{Recuperação do metal.}
 #'
 #' }
-#' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pág. 30).
+#' @keywords CEQ RL
+#' @source RAMOS et al. (2013), pág. 30.
 #' @examples
 #'
 #' data(RamosTb2.7)
@@ -301,10 +277,9 @@ NULL
 NULL
 
 #' @name RamosTb3.1
-#' @title Teor de fl\enc{ú}{u}or de um processo qu\enc{í}{i}mico
-#' @description Conjunto de dados sobre teor de flúor com 15 
-#'     amostras de tamanho 5 de um processo químico.
-#'
+#' @title Teor de Fl\enc{ú}{u}or de um Processo Qu\enc{í}{i}mico
+#' @description Conjunto de dados sobre teor de flúor com 15 amostras de
+#'     tamanho 5 de um processo químico.
 #' @format Um \code{data.frame} com 75 observações e 2 variáveis, em que
 #'
 #' \describe{
@@ -312,46 +287,41 @@ NULL
 #' \item{\code{amostra}}{Número da amostra.}
 #'
 #' \item{\code{fluor}}{Teor de flúor.}
-#'     
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 38).
-#'      
+#' @source RAMOS et al. (2013), pág. 38.
 #' @examples
 #'
 #' data(RamosTb3.1)
+#' str(RamosTb3.1)
 #'
 #' library(qcc)
 #'
 #' obj <- qcc.groups(RamosTb3.1$fluor, RamosTb3.1$amostra)
 #'
-#' qcc(obj, type = "xbar", nsigmas = 3, xlab = 
-#'      "Amostra", ylab = "Teor médio de fluor", title = "")
+#' qcc(obj, type = "xbar", nsigmas = 3,
+#'     xlab = "Amostra", ylab = "Teor médio de fluor", title = "")
 #'
 NULL
 
 #' @name RamosTb4.1
-#' @title Temperatura de eletrodos de carbono 
-#' @description Conjunto de dados referente às temperaturas de eletrodos  
-#'     de carbono, com 25 amostras de tamanho 8, em um processo 
-#'     de fabricação de alumínio.
-#'
+#' @title Temperatura de Eletrodos de Carbono
+#' @description Conjunto de dados referente às temperaturas de eletrodos
+#'     de carbono, com 25 amostras de tamanho 8, em um processo de
+#'     fabricação de alumínio.
 #' @format Um \code{data.frame} com 75 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
 #' \item{\code{amostra}}{Número da amostra.}
 #'
-#' \item{\code{temperat}}{Temperatura dos eletrodos de carbono (em °C ).}
-#'     
+#' \item{\code{temperat}}{Temperatura dos eletrodos de carbono (em
+#'     \eqn{^\circ}C).}
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 56).
-#'      
+#' @source RAMOS et al. (2013), pág. 56.
 #' @examples
 #'
 #' data(RamosTb4.1)
@@ -360,17 +330,16 @@ NULL
 #'
 #' obj <- qcc.groups(RamosTb4.1$temperat, RamosTb4.1$amostra)
 #'
-#' qcc(obj, type = "xbar", nsigmas = 3, xlab = "Amostra", ylab = 
+#' qcc(obj, type = "xbar", nsigmas = 3, xlab = "Amostra", ylab =
 #'      "Temperatura média", title = " ")
 #'
 NULL
 
 #' @name RamosTb5.2
-#' @title Itens n\enc{ã}{a}o conformes no processo produtivo de ovos de galinha
-#' @description Número de ovos não conformes de um processo  
-#'     produtivo de ovos de galinha, com 30 amostras de 
-#'     tamanhos diferentes. 
-#'
+#' @title Itens n\enc{ã}{a}o Conformes no Processo Produtivo de Ovos de
+#'     Galinha
+#' @description Número de ovos não conformes de um processo produtivo de
+#'     ovos de galinha, com 30 amostras de tamanhos diferentes.
 #' @format Um \code{data.frame} com 30 observações e 3 variáveis, em que
 #'
 #' \describe{
@@ -380,30 +349,26 @@ NULL
 #' \item{\code{tamamostra}}{Número de unidades amostradas.}
 #'
 #' \item{\code{naoconf}}{Número de ovos não conformes na amostra.}
-#'     
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 79).
-#'      
+#' @source RAMOS et al. (2013), pág. 79.
 #' @examples
-#' 
+#'
 #' data(RamosTb5.2)
-#' 
+#'
 #' library(qcc)
 #'
 #' qcc(RamosTb5.2$naoconf, sizes = RamosTb5.2$tamamostra, type = "p",
-#'      xlab = "Amostra", ylab = "Fração de ovos não conformes", title =
-#'       "")
+#'     xlab = "Amostra", ylab = "Fração de ovos não conformes",
+#'     title = "")
 #'
 NULL
 
 #' @name RamosTb5.8
-#' @title Taxa de defeitos na fabrica\enc{çã}{ca}o de copos de cristal
+#' @title Taxa de Defeitos na Fabrica\enc{çã}{ca}o de Copos de Cristal
 #' @description Número de não conformidades em um processo de fabricação
 #'     de copos de cristal, com amostras de tamanhos diferentes.
-#'
 #' @format Um \code{data.frame} com 26 observações e 3 variáveis, em que
 #'
 #' \describe{
@@ -413,29 +378,28 @@ NULL
 #' \item{\code{tamamostra}}{Número de unidades amostradas.}
 #'
 #' \item{\code{naoconf}}{Número de não conformidades na amostra.}
-#'     
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 96).
-#'      
+#' @source RAMOS et al. (2013), pág. 96.
+#'
 #' @examples
 #'
 #' data(RamosTb5.8)
+#' str(RamosTb5.8)
 #'
 #' library(qcc)
 #'
-#' qcc(RamosTb5.8$naoconf, sizes = RamosTb5.8$tamamostra, type = "u", 
-#'      xlab = "Amostra", ylab = "Taxa de não conformidades", title = "")
+#' qcc(RamosTb5.8$naoconf, sizes = RamosTb5.8$tamamostra, type = "u",
+#'     xlab = "Amostra", ylab = "Taxa de não conformidades",
+#'     title = "")
 #'
 NULL
 
 #' @name RamosTb6.1
-#' @title Densidade aparente de um processo de eletrodos
-#' @description Dados da densidade aparente de um processo de produtivo  
-#'     de eletrodos de carbono. 
-#'
+#' @title Densidade Aparente de um Processo de Eletrodos
+#' @description Dados da densidade aparente de um processo de produtivo
+#'     de eletrodos de carbono.
 #' @format Um \code{data.frame} com 30 observações e 2 variáveis, em que
 #'
 #' \describe{
@@ -443,22 +407,19 @@ NULL
 #' \item{\code{amostra}}{Número da amostra.}
 #'
 #' \item{\code{densi}}{Densidade aparente (em g/cm^{3} do eletrodo).}
-#'  
+#'
 #' }
 #' @keywords CEQ
-#' @source Ramos, E. M. L. S., et al.(2013). 
-#'     Controle Estatístico da Qualidade (1th ed.). 
-#'     Porto Alegre, RS: Bookman. (pg 106).
-#'      
+#' @source RAMOS et al. (2013), pág. 106.
 #' @examples
 #'
 #' data(RamosTb6.1)
 #'
 #' library(qcc)
 #'
-#' qcc(RamosTb6.1$densi, type = "xbar.one", 
-#'      std.dev = "SD", nsigmas = 3, xlab = "Amostra", ylab = "Densidade",
-#'      title = "")
+#' qcc(RamosTb6.1$densi, type = "xbar.one",
+#'     std.dev = "SD", nsigmas = 3,
+#'     xlab = "Amostra", ylab = "Densidade",
+#'     title = "")
 #'
 NULL
-
-- 
GitLab