From 7f07cffe1a7817ce89b53585e0a545718977851e Mon Sep 17 00:00:00 2001
From: Alessandra <alessandra.zeizer@gmail.com>
Date: Tue, 21 Jun 2016 18:50:32 -0300
Subject: [PATCH] =?UTF-8?q?Corre=C3=A7=C3=B5es=20do=20livro=20Gilberto=20d?=
=?UTF-8?q?e=20Paula?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/PaulaEg1.12.2.R | 29 +++++++++++++++++------------
R/PaulaEg1.12.4.R | 2 +-
R/PaulaEg1.12.5.R | 15 ++++++---------
R/PaulaEg1.12.6.R | 13 +++----------
R/PaulaEx1.13.19.R | 19 +++++++------------
R/PaulaTb1.6.R | 4 ++--
R/PaulaTb1.9.R | 7 ++++---
man/PaulaEg1.12.2.Rd | 13 +++++++++----
man/PaulaEg1.12.4.Rd | 6 +++---
man/PaulaEg1.12.5.Rd | 11 +++++------
man/PaulaEg1.12.6.Rd | 9 ++-------
man/PaulaEx1.13.19.Rd | 16 ++++++----------
man/PaulaTb1.6.Rd | 4 ++--
man/PaulaTb1.9.Rd | 6 +++---
man/labestData.Rd | 2 +-
15 files changed, 71 insertions(+), 85 deletions(-)
diff --git a/R/PaulaEg1.12.2.R b/R/PaulaEg1.12.2.R
index 8027483f..e896c2d4 100644
--- a/R/PaulaEg1.12.2.R
+++ b/R/PaulaEg1.12.2.R
@@ -1,28 +1,28 @@
#' @name PaulaEg1.12.2
-#' @title Pacientes com Processo Infeccioso Pulmonar
-#' @description Dados referentes a 175 pacientes com processo infeccioso
-#' pulmonar atendidos no Hospital Heliópolis, em São Paulo, no período
-#' de 1970 a 1986.
+#' @title Pacientes com Processo Infecioso Pulmonar
+#' @description Um total de 175 pacientes com processo infecioso
+#' pulmonar atendidos no hospital no período acima foram classificados
+#' por algumas variáveis.
#'
#' @format Um \code{data.frame} com 175 observações e 5 variáveis.
#' \describe{
#'
-#' \item{\code{tipo}}{Tipo de tumor (maligno ou benigno).}
+#' \item{\code{tipo}}{Tipo de tumor (maligno, benigno).}
#'
#' \item{\code{idade}}{Idade do paciente (em anos).}
#'
-#' \item{\code{sexo}}{Sexo do paciente (masculino ou feminino).}
+#' \item{\code{sexo}}{Sexo do paciente (masculino, feminino).}
#'
#' \item{\code{hl}}{Intensidade da célula histiócitos-linfócitos (ausente,
-#' discreta, moderada ou intensa).}
+#' discreta, moderada, intensa).}
#'
#' \item{\code{ff}}{Intensidade da célula fibrose-frouxa (ausente,
-#' discreta, moderada ou intensa).}
+#' discreta, moderada, intensa).}
#'
#' }
-#' @keywords aplicações
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (Eg 1.12.2, pág. 85)
+#' computacional. São Paulo, SP: IME-USP. (Eg 1.12.2, p?g. 85)
#'
#' @examples
#'
@@ -31,7 +31,6 @@
#' str(PaulaEg1.12.2)
#'
#' library(lattice)
-#'
#' bwplot(idade ~ hl | tipo,
#' data = PaulaEg1.12.2,
#' ylab = "Idade",
@@ -40,6 +39,12 @@
#' bwplot(idade ~ ff | tipo,
#' data = PaulaEg1.12.2,
#' ylab = "Idade",
-#' xlab = "Intensidade da célula fibrose-frouxa")
+#' xlab = "Intensidade da c?lula fibrose-frouxa")
+#'
+#' barchart(table(PaulaEg1.12.2$tipo,PaulaEg1.12.2$hl),
+#' auto.key=list(space="top", columns=2,
+#' cex.title=1,
+#' rectangles = TRUE,
+#' points=FALSE))
#'
NULL
\ No newline at end of file
diff --git a/R/PaulaEg1.12.4.R b/R/PaulaEg1.12.4.R
index e004626c..0368be56 100644
--- a/R/PaulaEg1.12.4.R
+++ b/R/PaulaEg1.12.4.R
@@ -19,7 +19,7 @@
#' \item{\code{tempo}}{Tempo de sobrevivência (em dias).}
#'
#' }
-#' @keywords aplicações
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Eg 1.12.4, pág. 90)
#'
diff --git a/R/PaulaEg1.12.5.R b/R/PaulaEg1.12.5.R
index eae40051..05308652 100644
--- a/R/PaulaEg1.12.5.R
+++ b/R/PaulaEg1.12.5.R
@@ -1,10 +1,9 @@
#' @name PaulaEg1.12.5
#' @title Consumo de Combustível
#' @description Dados referentes ao consumo de combustível em 48 estados
-#' norte-americanos contíguos juntamente com as seguintes variáveis:
-#' taxa do combustível no estado, proporção de motoristas licenciados,
-#' renda percapita, ajuda federal para as estradas e consumo de
-#' combustível por habitante.
+#' norte-americanos. O interesse nesse estudo é tentar explicar o
+#' consumo de combustível pelas Variáveis taxa, licença, renda e
+#' estradas.
#'
#' @format Um \code{data.frame} com 48 observações e 6 variáveis.
#' \describe{
@@ -22,9 +21,9 @@
#' \item{\code{cons}}{Consumo de combustível por habitante.}
#'
#' }
-#' @keywords aplicações
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (Eg 1.12.5, pág. 94)
+#' computacional. São Paulo, SP: IME-USP. (Eg 1.12.5, p?g. 94)
#'
#' @examples
#'
@@ -46,6 +45,4 @@
#' main = "Consumo por Habitante em cada Estado",
#' grid = TRUE)
#'
-NULL
-
-
+NULL
\ No newline at end of file
diff --git a/R/PaulaEg1.12.6.R b/R/PaulaEg1.12.6.R
index ef608d31..7fa0e94c 100644
--- a/R/PaulaEg1.12.6.R
+++ b/R/PaulaEg1.12.6.R
@@ -18,9 +18,9 @@
#'
#'
#' }
-#' @keywords aplicações
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (Eg 1.12.6, pág. 97)
+#' computacional. São Paulo, SP: IME-USP. (Eg 1.12.6, p?g. 97)
#'
#' @examples
#'
@@ -30,11 +30,6 @@
#'
#' library(lattice)
#'
-#' bwplot(sal ~ sexo,
-#' data = PaulaEg1.12.6,
-#' ylab = "Salário",
-#' main = "Bwplot de Salário por Sexo")
-#'
#' xyplot(sal ~ aexp | sexo,
#' data = PaulaEg1.12.6,
#' type = c("p", "smooth"),
@@ -42,6 +37,4 @@
#' ylab = "Salário",
#' main = "Dispersão de Salário por Anos de Experiência")
#'
-NULL
-
-
+NULL
\ No newline at end of file
diff --git a/R/PaulaEx1.13.19.R b/R/PaulaEx1.13.19.R
index 50626965..89ca8f20 100644
--- a/R/PaulaEx1.13.19.R
+++ b/R/PaulaEx1.13.19.R
@@ -1,12 +1,8 @@
#' @name PaulaEx1.13.19
#' @title Expectativa de Vida de Estados Norte-americanos
-#' @description Dados referentes a 50 estados norte-americanos descritos
-#' com as seguintes variáveis: população estimada em julho de 1975,
-#' renda percapita em 1974, proporção de analfabetos em 1970, expectativa
-#' de vida em 1969-1970, taxa de criminalidade em 1976, porcentagem de
-#' estudantes que concluem o segundo grau em 1970, número de dias do
-#' ano com temperatura abaixo de zero graus Celsus na cidade mais
-#' importante do estado, e área do estado.
+#' @description Dados referentes a 50 estados norte-americanos com o
+#' objetivo de tentar explicar a variável expectativa de vida usando um
+#' modelo de regressão normal linear.
#'
#' @format Um \code{data.frame} com 50 observações e 9 variáveis.
#' \describe{
@@ -15,7 +11,7 @@
#'
#' \item{\code{pop}}{População estimada em julho de 1975.}
#'
-#' \item{\code{rendapc}}{Renda percapita em 1974 (em USD).}
+#' \item{\code{rendapc}}{Renda per capita em 1974 (em USD).}
#'
#' \item{\code{analf}}{Proporção de analfabetos em 1970.}
#'
@@ -33,9 +29,9 @@
#' \item{\code{area}}{Área do estado (em milhas quadradas).}
#'
#' }
-#' @keywords aplicações
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (Eg 1.13.19, pág. 109)
+#' computacional. São Paulo, SP: IME-USP. (Eg 1.13.19, p?g. 109)
#'
#' @examples
#'
@@ -50,5 +46,4 @@
#' data = PaulaEx1.13.19)
#'
#'
-NULL
-
+NULL
\ No newline at end of file
diff --git a/R/PaulaTb1.6.R b/R/PaulaTb1.6.R
index e58f6bbe..df6f4104 100644
--- a/R/PaulaTb1.6.R
+++ b/R/PaulaTb1.6.R
@@ -14,9 +14,9 @@
#' \item{\code{rendm}}{Renda média mensal (em reais).}
#'
#' }
-#' @keywords aplicações
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (Tabela 1.6, pág. 80)
+#' computacional. São Paulo, SP: IME-USP. (Tabela 1.6, p?g. 80)
#'
#' @examples
#'
diff --git a/R/PaulaTb1.9.R b/R/PaulaTb1.9.R
index 95607995..2d29a4aa 100644
--- a/R/PaulaTb1.9.R
+++ b/R/PaulaTb1.9.R
@@ -2,7 +2,7 @@
#' @title Bactérias Sobreviventes em Amostras
#' @description Número de bactérias sobreviventes em amostras de um
#' produto alimentício segundo o tempo de exposição do produto a uma
-#' temperatura de 300ºF.
+#' temperatura de 300°F.
#'
#' @format Um \code{data.frame} com 12 observações e 2 variáveis.
#' \describe{
@@ -12,7 +12,7 @@
#' \item{\code{temp}}{Tempo de exposição (em minutos).}
#'
#' }
-#' @keywords aplicações
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Tabela 1.9, pág. 88)
#'
@@ -28,7 +28,8 @@
#' ylab = "Número de bactérias",
#' xlab = "Tempo de exposição",
#' data = PaulaTb1.9,
-#' type = c("p", "smooth"),
+#' type = c("o"),
#' main = "Número de Bactérias Sobreviventes por Tempo de Exposição")
+
#'
NULL
\ No newline at end of file
diff --git a/man/PaulaEg1.12.2.Rd b/man/PaulaEg1.12.2.Rd
index 141ef6b0..55dae6b1 100644
--- a/man/PaulaEg1.12.2.Rd
+++ b/man/PaulaEg1.12.2.Rd
@@ -21,7 +21,7 @@
}}
\source{
Paula, G. A. (2004). Modelos de regressão: com apoio
- computacional. São Paulo, SP: IME-USP. (Eg 1.12.2, pág. 85)
+ computacional. São Paulo, SP: IME-USP. (Eg 1.12.2, p?g. 85)
}
\description{
Um total de 175 pacientes com processo infecioso
@@ -35,7 +35,6 @@ data(PaulaEg1.12.2)
str(PaulaEg1.12.2)
library(lattice)
-
bwplot(idade ~ hl | tipo,
data = PaulaEg1.12.2,
ylab = "Idade",
@@ -44,8 +43,14 @@ bwplot(idade ~ hl | tipo,
bwplot(idade ~ ff | tipo,
data = PaulaEg1.12.2,
ylab = "Idade",
- xlab = "Intensidade da célula fibrose-frouxa")
+ xlab = "Intensidade da c?lula fibrose-frouxa")
+
+barchart(table(PaulaEg1.12.2$tipo,PaulaEg1.12.2$hl),
+auto.key=list(space="top", columns=2,
+ cex.title=1,
+ rectangles = TRUE,
+ points=FALSE))
}
-\keyword{aplicações}
+\keyword{MLG}
diff --git a/man/PaulaEg1.12.4.Rd b/man/PaulaEg1.12.4.Rd
index 5b0e89b0..2814b7d0 100644
--- a/man/PaulaEg1.12.4.Rd
+++ b/man/PaulaEg1.12.4.Rd
@@ -8,9 +8,9 @@
\item{\code{grupo}}{Grupo de passagem (0 a 28).}
-\item{\code{massat}}{Presença de massa tumoral (sim, não).}
+\item{\code{massat}}{Presença de massa tumoral (sim ou não).}
-\item{\code{caq}}{Caquexia (sim, não).}
+\item{\code{caq}}{Caquexia (sim ou não).}
\item{\code{tempo}}{Tempo de sobrevivência (em dias).}
@@ -53,5 +53,5 @@ bwplot(tempo ~ massat | caq,
main = "Bwplot para Caquexia não Presente (à esquerda) ou Presente (à direita)")
}
-\keyword{aplicações}
+\keyword{MLG}
diff --git a/man/PaulaEg1.12.5.Rd b/man/PaulaEg1.12.5.Rd
index c9618108..ff0d4822 100644
--- a/man/PaulaEg1.12.5.Rd
+++ b/man/PaulaEg1.12.5.Rd
@@ -21,14 +21,13 @@
}}
\source{
Paula, G. A. (2004). Modelos de regressão: com apoio
- computacional. São Paulo, SP: IME-USP. (Eg 1.12.5, pág. 94)
+ computacional. São Paulo, SP: IME-USP. (Eg 1.12.5, p?g. 94)
}
\description{
Dados referentes ao consumo de combustível em 48 estados
- norte-americanos contíguos juntamente com as seguintes variáveis:
- taxa do combustível no estado, proporção de motoristas licenciados,
- renda percapita, ajuda federal para as estradas e consumo de
- combustível por habitante.
+ norte-americanos. O interesse nesse estudo é tentar explicar o
+ consumo de combustível pelas Variáveis taxa, licença, renda e
+ estradas.
}
\examples{
@@ -51,5 +50,5 @@ xyplot(cons ~ est,
grid = TRUE)
}
-\keyword{aplicações}
+\keyword{MLG}
diff --git a/man/PaulaEg1.12.6.Rd b/man/PaulaEg1.12.6.Rd
index ed3f22c4..1042a3f0 100644
--- a/man/PaulaEg1.12.6.Rd
+++ b/man/PaulaEg1.12.6.Rd
@@ -18,7 +18,7 @@
}}
\source{
Paula, G. A. (2004). Modelos de regressão: com apoio
- computacional. São Paulo, SP: IME-USP. (Eg 1.12.6, pág. 97)
+ computacional. São Paulo, SP: IME-USP. (Eg 1.12.6, p?g. 97)
}
\description{
Dados referentes ao salário anual de uma
@@ -34,11 +34,6 @@ str(PaulaEg1.12.6)
library(lattice)
-bwplot(sal ~ sexo,
- data = PaulaEg1.12.6,
- ylab = "Salário",
- main = "Bwplot de Salário por Sexo")
-
xyplot(sal ~ aexp | sexo,
data = PaulaEg1.12.6,
type = c("p", "smooth"),
@@ -47,5 +42,5 @@ xyplot(sal ~ aexp | sexo,
main = "Dispersão de Salário por Anos de Experiência")
}
-\keyword{aplicações}
+\keyword{MLG}
diff --git a/man/PaulaEx1.13.19.Rd b/man/PaulaEx1.13.19.Rd
index 744c420d..f06d85e8 100644
--- a/man/PaulaEx1.13.19.Rd
+++ b/man/PaulaEx1.13.19.Rd
@@ -10,7 +10,7 @@
\item{\code{pop}}{População estimada em julho de 1975.}
-\item{\code{rendapc}}{Renda percapita em 1974 (em USD).}
+\item{\code{rendapc}}{Renda per capita em 1974 (em USD).}
\item{\code{analf}}{Proporção de analfabetos em 1970.}
@@ -30,16 +30,12 @@
}}
\source{
Paula, G. A. (2004). Modelos de regressão: com apoio
- computacional. São Paulo, SP: IME-USP. (Eg 1.13.19, pág. 109)
+ computacional. São Paulo, SP: IME-USP. (Eg 1.13.19, p?g. 109)
}
\description{
-Dados referentes a 50 estados norte-americanos descritos
- com as seguintes variáveis: população estimada em julho de 1975,
- renda percapita em 1974, proporção de analfabetos em 1970, expectativa
- de vida em 1969-1970, taxa de criminalidade em 1976, porcentagem de
- estudantes que concluem o segundo grau em 1970, número de dias do
- ano com temperatura abaixo de zero graus Celsus na cidade mais
- importante do estado, e área do estado.
+Dados referentes a 50 estados norte-americanos com o
+ objetivo de tentar explicar a variável expectativa de vida usando um
+ modelo de regressão normal linear.
}
\examples{
@@ -55,5 +51,5 @@ scatterplotMatrix( ~ expvida + analf + crime + estud + ndias + dens,
}
-\keyword{aplicações}
+\keyword{MLG}
diff --git a/man/PaulaTb1.6.Rd b/man/PaulaTb1.6.Rd
index 94cc8240..a5fe577a 100644
--- a/man/PaulaTb1.6.Rd
+++ b/man/PaulaTb1.6.Rd
@@ -15,7 +15,7 @@
}}
\source{
Paula, G. A. (2004). Modelos de regressão: com apoio
- computacional. São Paulo, SP: IME-USP. (Tabela 1.6, pág. 80)
+ computacional. São Paulo, SP: IME-USP. (Tabela 1.6, p?g. 80)
}
\description{
Conjunto de dados que apresenta para cada unidade da
@@ -45,5 +45,5 @@ xyplot(rendm ~ esc,
main = "Renda Média Mensal por Anos de Estudo")
}
-\keyword{aplicações}
+\keyword{MLG}
diff --git a/man/PaulaTb1.9.Rd b/man/PaulaTb1.9.Rd
index 99970e57..d572066d 100644
--- a/man/PaulaTb1.9.Rd
+++ b/man/PaulaTb1.9.Rd
@@ -18,7 +18,7 @@ Paula, G. A. (2004). Modelos de regressão: com apoio
\description{
Número de bactérias sobreviventes em amostras de um
produto alimentício segundo o tempo de exposição do produto a uma
- temperatura de 300ºF.
+ temperatura de 300°F.
}
\examples{
@@ -32,9 +32,9 @@ xyplot(num ~ temp,
ylab = "Número de bactérias",
xlab = "Tempo de exposição",
data = PaulaTb1.9,
- type = c("p", "smooth"),
+ type = c("o"),
main = "Número de Bactérias Sobreviventes por Tempo de Exposição")
}
-\keyword{aplicações}
+\keyword{MLG}
diff --git a/man/labestData.Rd b/man/labestData.Rd
index 24932f76..8a8c53af 100644
--- a/man/labestData.Rd
+++ b/man/labestData.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.1): do not edit by hand
+% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/labestData.R
\docType{package}
\name{labestData}
--
GitLab