From 869927511de9b1bd594a2a6e56353b7a5aa5133d Mon Sep 17 00:00:00 2001
From: Alessandra <alessandra.zeizer@gmail.com>
Date: Tue, 21 Jun 2016 19:09:42 -0300
Subject: [PATCH] =?UTF-8?q?Corre=C3=A7=C3=A3o=20Gilberto=20de=20Paula=20pa?=
=?UTF-8?q?rte=202?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/PaulaEx3.7.7a.R | 17 +++++++++--------
R/PaulaEx3.7.7b.R | 19 +++++++++++--------
R/PaulaEx3.7.7c.R | 18 ++++++++++--------
R/PaulaEx3.7.8.R | 10 +++++-----
R/PaulaTb3.21.R | 22 +++++++++++-----------
man/PaulaEx3.7.7a.Rd | 17 +++++++++--------
man/PaulaEx3.7.7b.Rd | 19 +++++++++++--------
man/PaulaEx3.7.7c.Rd | 18 ++++++++++--------
man/PaulaEx3.7.8.Rd | 10 +++++-----
man/PaulaTb3.21.Rd | 16 ++++++++--------
man/labestData.Rd | 2 +-
11 files changed, 90 insertions(+), 78 deletions(-)
diff --git a/R/PaulaEx3.7.7a.R b/R/PaulaEx3.7.7a.R
index 1a12a7c8..9602ef69 100644
--- a/R/PaulaEx3.7.7a.R
+++ b/R/PaulaEx3.7.7a.R
@@ -15,7 +15,7 @@
#' \item{\code{cmort}}{Caramujos mortos.}
#'
#' }
-#' @keywords binários
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Ex 3.7.7a, pág. 269)
#'
@@ -27,12 +27,13 @@
#'
#' library(lattice)
#'
-#' xyplot(dose ~ cexp + cmort,
-#' data = PaulaEx3.7.7a,
-#' xlab = "Caramujos expostos e mortos",
-#' ylab = "Dose",
-#' auto.key = list(space="top", columns=2,
-#' title="Caramujos", cex.title=1,
-#' lines=TRUE, points=FALSE))
+#' xyplot(PaulaEx3.7.7a$cmort/PaulaEx3.7.7a$cexp ~ dose,
+#' data = PaulaEx3.7.7a,
+#' xlab = "Dose",
+#' type = c("o"),
+#' ylab = "Proporção de mortos",
+#' auto.key = list(space="top", columns=2,
+#' title="Caramujos", cex.title=1,
+#' lines=TRUE, points=FALSE))
#'
NULL
\ No newline at end of file
diff --git a/R/PaulaEx3.7.7b.R b/R/PaulaEx3.7.7b.R
index 8eaf07b0..21960f8e 100644
--- a/R/PaulaEx3.7.7b.R
+++ b/R/PaulaEx3.7.7b.R
@@ -15,7 +15,7 @@
#' \item{\code{cmort}}{Caramujos mortos.}
#'
#' }
-#' @keywords binários
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Ex 3.7.7b, pág. 269)
#'
@@ -26,12 +26,15 @@
#' str(PaulaEx3.7.7b)
#'
#' library(lattice)
-#' xyplot(dose ~ cexp + cmort,
-#' data = PaulaEx3.7.7b,
-#' xlab = "Caramujos expostos e mortos",
-#' ylab = "Dose",
-#' auto.key = list(space="top", columns=2,
-#' title="Caramujos", cex.title=1,
-#' lines=TRUE, points=FALSE))
+#'
+#' xyplot(PaulaEx3.7.7b$cmort/PaulaEx3.7.7b$cexp ~ dose,
+#' data = PaulaEx3.7.7b,
+#' xlab = "Dose",
+#' type = c("o"),
+#' ylab = "Proporção de mortos",
+#' auto.key = list(space="top", columns=2,
+#' title="Caramujos", cex.title=1,
+#' lines=TRUE, points=FALSE))
+#'
#'
NULL
\ No newline at end of file
diff --git a/R/PaulaEx3.7.7c.R b/R/PaulaEx3.7.7c.R
index 6a4e4962..6174f7fc 100644
--- a/R/PaulaEx3.7.7c.R
+++ b/R/PaulaEx3.7.7c.R
@@ -15,7 +15,7 @@
#' \item{\code{cmort}}{Caramujos mortos.}
#'
#' }
-#' @keywords binários
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Ex 3.7.7c, pág. 269)
#'
@@ -27,13 +27,15 @@
#'
#' library(lattice)
#'
-#' xyplot(dose ~ cexp + cmort,
-#' data = PaulaEx3.7.7c,
-#' xlab = "Caramujos expostos e mortos",
-#' ylab = "Dose",
-#' auto.key = list(space="top", columns=2,
-#' title="Caramujos", cex.title=1,
-#' lines=TRUE, points=FALSE))
+#' xyplot(PaulaEx3.7.7c$cmort/PaulaEx3.7.7c$cexp ~ dose,
+#' data = PaulaEx3.7.7c,
+#' xlab = "Dose",
+#' type = c("o"),
+#' ylab = "Proporção de mortos",
+#' auto.key = list(space="top", columns=2,
+#' title="Caramujos", cex.title=1,
+#' lines=TRUE, points=FALSE))
+#'
#'
#'
NULL
\ No newline at end of file
diff --git a/R/PaulaEx3.7.8.R b/R/PaulaEx3.7.8.R
index ea7af379..b11fc7be 100644
--- a/R/PaulaEx3.7.8.R
+++ b/R/PaulaEx3.7.8.R
@@ -1,9 +1,9 @@
#' @name PaulaEx3.7.8
#' @title Salário de Executivos
-#' @description Dados referentes ao salário anual de uma
-#' amostra aleatória de 220 executivos (145 homens e 75 mulheres). O
-#' salário será relacionado com as variáveis: sexo, anos de experiência
-#' no cargo e posição na empresa.
+#' @description Dados referentes a um experimento desenvolvido para avaliar
+#' a germinação de um determinado tipo de semente. A tabela abaixo
+#' apresenta o número de sementes que germinaram após cinco dias para
+#' cada 100 sementes submetidas a cada condição experimental.
#'
#' @format Um \code{data.frame} com 18 observações e 4 variáveis.
#' \describe{
@@ -18,7 +18,7 @@
#'
#'
#' }
-#' @keywords aplicações
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Ex 3.7.8, pág. 270)
#'
diff --git a/R/PaulaTb3.21.R b/R/PaulaTb3.21.R
index 92e47586..de84f129 100644
--- a/R/PaulaTb3.21.R
+++ b/R/PaulaTb3.21.R
@@ -1,10 +1,9 @@
-#' @name PaulaTb3.21
-#' @title Distribuição de Rotifers de duas espécies
-#' @description Experimento com duas espécies de *rotifers*, um tipo
-#' microscópio de invertebrado aquático, para determinar a densidade
-#' relativa para cada uma das espécies. São apresentados pra cada espécie
-#' a densidade relativa da substância, o número de *rotifers* expostos
-#' e o número de *rotifers* em suspensão.
+#' @name PaulaTb3.21
+#' @title Distribuição de Rotifers das Duas Espécies
+#' @description Experimentos com duas espécies de *rotifers*, um tipo
+#' microscópio de invertebrado aquático. São apresentados pra cada
+#' espécie a densidade relativa da substância, o número de *rotifers*
+#' expostos e o número de *rotifers* em suspensão.
#'
#' @format Um \code{data.frame} com 40 observações e 4 variáveis.
#' \describe{
@@ -18,7 +17,7 @@
#' \item{\code{esp}}{Espécie (Polyarthra, Keratella).}
#'
#' }
-#' @keywords binários
+#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Tb 3.21, pág. 257)
#'
@@ -30,11 +29,12 @@
#'
#' library(lattice)
#'
-#' xyplot(dens ~ susp + exp,
+#' xyplot(PaulaTb3.21$susp/PaulaTb3.21$exp ~ dens,
#' groups = esp,
#' data = PaulaTb3.21,
-#' xlab = " ",
-#' ylab = "Densidade",
+#' xlab = "Densidade",
+#' ylab = "Proporção de rotifers suspensos",
+#' type = c("o"),
#' auto.key = list(space="top", columns=2,
#' title="Espécie", cex.title=1,
#' lines=TRUE, points=FALSE))
diff --git a/man/PaulaEx3.7.7a.Rd b/man/PaulaEx3.7.7a.Rd
index 90d3c3e8..4afc2d91 100644
--- a/man/PaulaEx3.7.7a.Rd
+++ b/man/PaulaEx3.7.7a.Rd
@@ -31,14 +31,15 @@ str(PaulaEx3.7.7a)
library(lattice)
-xyplot(dose ~ cexp + cmort,
- data = PaulaEx3.7.7a,
- xlab = "Caramujos expostos e mortos",
- ylab = "Dose",
- auto.key = list(space="top", columns=2,
- title="Caramujos", cex.title=1,
- lines=TRUE, points=FALSE))
+xyplot(PaulaEx3.7.7a$cmort/PaulaEx3.7.7a$cexp ~ dose,
+data = PaulaEx3.7.7a,
+xlab = "Dose",
+type = c("o"),
+ylab = "Proporção de mortos",
+auto.key = list(space="top", columns=2,
+ title="Caramujos", cex.title=1,
+ lines=TRUE, points=FALSE))
}
-\keyword{binários}
+\keyword{MLG}
diff --git a/man/PaulaEx3.7.7b.Rd b/man/PaulaEx3.7.7b.Rd
index 6fc5a3cd..b0c1060a 100644
--- a/man/PaulaEx3.7.7b.Rd
+++ b/man/PaulaEx3.7.7b.Rd
@@ -30,14 +30,17 @@ data(PaulaEx3.7.7b)
str(PaulaEx3.7.7b)
library(lattice)
-xyplot(dose ~ cexp + cmort,
- data = PaulaEx3.7.7b,
- xlab = "Caramujos expostos e mortos",
- ylab = "Dose",
- auto.key = list(space="top", columns=2,
- title="Caramujos", cex.title=1,
- lines=TRUE, points=FALSE))
+
+xyplot(PaulaEx3.7.7b$cmort/PaulaEx3.7.7b$cexp ~ dose,
+ data = PaulaEx3.7.7b,
+ xlab = "Dose",
+ type = c("o"),
+ ylab = "Proporção de mortos",
+ auto.key = list(space="top", columns=2,
+ title="Caramujos", cex.title=1,
+ lines=TRUE, points=FALSE))
+
}
-\keyword{binários}
+\keyword{MLG}
diff --git a/man/PaulaEx3.7.7c.Rd b/man/PaulaEx3.7.7c.Rd
index fd88c760..0b4952c3 100644
--- a/man/PaulaEx3.7.7c.Rd
+++ b/man/PaulaEx3.7.7c.Rd
@@ -31,15 +31,17 @@ str(PaulaEx3.7.7c)
library(lattice)
-xyplot(dose ~ cexp + cmort,
- data = PaulaEx3.7.7c,
- xlab = "Caramujos expostos e mortos",
- ylab = "Dose",
- auto.key = list(space="top", columns=2,
- title="Caramujos", cex.title=1,
- lines=TRUE, points=FALSE))
+xyplot(PaulaEx3.7.7c$cmort/PaulaEx3.7.7c$cexp ~ dose,
+ data = PaulaEx3.7.7c,
+ xlab = "Dose",
+ type = c("o"),
+ ylab = "Proporção de mortos",
+ auto.key = list(space="top", columns=2,
+ title="Caramujos", cex.title=1,
+ lines=TRUE, points=FALSE))
+
}
-\keyword{binários}
+\keyword{MLG}
diff --git a/man/PaulaEx3.7.8.Rd b/man/PaulaEx3.7.8.Rd
index e6d64aa6..3427ba9c 100644
--- a/man/PaulaEx3.7.8.Rd
+++ b/man/PaulaEx3.7.8.Rd
@@ -21,10 +21,10 @@ Paula, G. A. (2004). Modelos de regressão: com apoio
computacional. São Paulo, SP: IME-USP. (Ex 3.7.8, pág. 270)
}
\description{
-Dados referentes ao salário anual de uma
- amostra aleatória de 220 executivos (145 homens e 75 mulheres). O
- salário será relacionado com as variáveis: sexo, anos de experiência
- no cargo e posição na empresa.
+Dados referentes a um experimento desenvolvido para avaliar
+ a germinação de um determinado tipo de semente. A tabela abaixo
+ apresenta o número de sementes que germinaram após cinco dias para
+ cada 100 sementes submetidas a cada condição experimental.
}
\examples{
@@ -46,5 +46,5 @@ xyplot(temp ~ numid + ntemp,
lines=TRUE, points=FALSE))
}
-\keyword{aplicações}
+\keyword{MLG}
diff --git a/man/PaulaTb3.21.Rd b/man/PaulaTb3.21.Rd
index 5bc5e8e2..129588f0 100644
--- a/man/PaulaTb3.21.Rd
+++ b/man/PaulaTb3.21.Rd
@@ -21,10 +21,9 @@ Paula, G. A. (2004). Modelos de regressão: com apoio
}
\description{
Experimentos com duas espécies de *rotifers*, um tipo
- microscópio de invertebrado aquático, para determinar a densidade
- relativa para cada uma das espécies. São apresentados pra cada espécie
- a densidade relativa da substância, o número de *rotifers* expostos
- e o número de *rotifers* em suspensão.
+ microscópio de invertebrado aquático. São apresentados pra cada
+ espécie a densidade relativa da substância, o número de *rotifers*
+ expostos e o número de *rotifers* em suspensão.
}
\examples{
@@ -34,15 +33,16 @@ str(PaulaTb3.21)
library(lattice)
-xyplot(dens ~ susp + exp,
+xyplot(PaulaTb3.21$susp/PaulaTb3.21$exp ~ dens,
groups = esp,
data = PaulaTb3.21,
- xlab = " ",
- ylab = "Densidade",
+ xlab = "Densidade",
+ ylab = "Proporção de rotifers suspensos",
+ type = c("o"),
auto.key = list(space="top", columns=2,
title="Espécie", cex.title=1,
lines=TRUE, points=FALSE))
}
-\keyword{binários}
+\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