Skip to content
Snippets Groups Projects
Commit 86992751 authored by Paula Alessandra Zeizer Dimas's avatar Paula Alessandra Zeizer Dimas
Browse files

Correção Gilberto de Paula parte 2

parent a147ecdb
No related branches found
No related tags found
No related merge requests found
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
#' \item{\code{cmort}}{Caramujos mortos.} #' \item{\code{cmort}}{Caramujos mortos.}
#' #'
#' } #' }
#' @keywords binários #' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio #' @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) #' computacional. São Paulo, SP: IME-USP. (Ex 3.7.7a, pág. 269)
#' #'
...@@ -27,10 +27,11 @@ ...@@ -27,10 +27,11 @@
#' #'
#' library(lattice) #' library(lattice)
#' #'
#' xyplot(dose ~ cexp + cmort, #' xyplot(PaulaEx3.7.7a$cmort/PaulaEx3.7.7a$cexp ~ dose,
#' data = PaulaEx3.7.7a, #' data = PaulaEx3.7.7a,
#' xlab = "Caramujos expostos e mortos", #' xlab = "Dose",
#' ylab = "Dose", #' type = c("o"),
#' ylab = "Proporção de mortos",
#' auto.key = list(space="top", columns=2, #' auto.key = list(space="top", columns=2,
#' title="Caramujos", cex.title=1, #' title="Caramujos", cex.title=1,
#' lines=TRUE, points=FALSE)) #' lines=TRUE, points=FALSE))
......
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
#' \item{\code{cmort}}{Caramujos mortos.} #' \item{\code{cmort}}{Caramujos mortos.}
#' #'
#' } #' }
#' @keywords binários #' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio #' @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) #' computacional. São Paulo, SP: IME-USP. (Ex 3.7.7b, pág. 269)
#' #'
...@@ -26,12 +26,15 @@ ...@@ -26,12 +26,15 @@
#' str(PaulaEx3.7.7b) #' str(PaulaEx3.7.7b)
#' #'
#' library(lattice) #' library(lattice)
#' xyplot(dose ~ cexp + cmort, #'
#' xyplot(PaulaEx3.7.7b$cmort/PaulaEx3.7.7b$cexp ~ dose,
#' data = PaulaEx3.7.7b, #' data = PaulaEx3.7.7b,
#' xlab = "Caramujos expostos e mortos", #' xlab = "Dose",
#' ylab = "Dose", #' type = c("o"),
#' ylab = "Proporção de mortos",
#' auto.key = list(space="top", columns=2, #' auto.key = list(space="top", columns=2,
#' title="Caramujos", cex.title=1, #' title="Caramujos", cex.title=1,
#' lines=TRUE, points=FALSE)) #' lines=TRUE, points=FALSE))
#' #'
#'
NULL NULL
\ No newline at end of file
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
#' \item{\code{cmort}}{Caramujos mortos.} #' \item{\code{cmort}}{Caramujos mortos.}
#' #'
#' } #' }
#' @keywords binários #' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio #' @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) #' computacional. São Paulo, SP: IME-USP. (Ex 3.7.7c, pág. 269)
#' #'
...@@ -27,13 +27,15 @@ ...@@ -27,13 +27,15 @@
#' #'
#' library(lattice) #' library(lattice)
#' #'
#' xyplot(dose ~ cexp + cmort, #' xyplot(PaulaEx3.7.7c$cmort/PaulaEx3.7.7c$cexp ~ dose,
#' data = PaulaEx3.7.7c, #' data = PaulaEx3.7.7c,
#' xlab = "Caramujos expostos e mortos", #' xlab = "Dose",
#' ylab = "Dose", #' type = c("o"),
#' ylab = "Proporção de mortos",
#' auto.key = list(space="top", columns=2, #' auto.key = list(space="top", columns=2,
#' title="Caramujos", cex.title=1, #' title="Caramujos", cex.title=1,
#' lines=TRUE, points=FALSE)) #' lines=TRUE, points=FALSE))
#' #'
#' #'
#'
NULL NULL
\ No newline at end of file
#' @name PaulaEx3.7.8 #' @name PaulaEx3.7.8
#' @title Salário de Executivos #' @title Salário de Executivos
#' @description Dados referentes ao salário anual de uma #' @description Dados referentes a um experimento desenvolvido para avaliar
#' amostra aleatória de 220 executivos (145 homens e 75 mulheres). O #' a germinação de um determinado tipo de semente. A tabela abaixo
#' salário será relacionado com as variáveis: sexo, anos de experiência #' apresenta o número de sementes que germinaram após cinco dias para
#' no cargo e posição na empresa. #' cada 100 sementes submetidas a cada condição experimental.
#' #'
#' @format Um \code{data.frame} com 18 observações e 4 variáveis. #' @format Um \code{data.frame} com 18 observações e 4 variáveis.
#' \describe{ #' \describe{
...@@ -18,7 +18,7 @@ ...@@ -18,7 +18,7 @@
#' #'
#' #'
#' } #' }
#' @keywords aplicações #' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio #' @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) #' computacional. São Paulo, SP: IME-USP. (Ex 3.7.8, pág. 270)
#' #'
......
#' @name PaulaTb3.21 #' @name PaulaTb3.21
#' @title Distribuição de Rotifers de duas espécies #' @title Distribuição de Rotifers das Duas Espécies
#' @description Experimento com duas espécies de *rotifers*, um tipo #' @description Experimentos com duas espécies de *rotifers*, um tipo
#' microscópio de invertebrado aquático, para determinar a densidade #' microscópio de invertebrado aquático. São apresentados pra cada
#' relativa para cada uma das espécies. São apresentados pra cada espécie #' espécie a densidade relativa da substância, o número de *rotifers*
#' a densidade relativa da substância, o número de *rotifers* expostos #' expostos e o número de *rotifers* em suspensão.
#' e o número de *rotifers* em suspensão.
#' #'
#' @format Um \code{data.frame} com 40 observações e 4 variáveis. #' @format Um \code{data.frame} com 40 observações e 4 variáveis.
#' \describe{ #' \describe{
...@@ -18,7 +17,7 @@ ...@@ -18,7 +17,7 @@
#' \item{\code{esp}}{Espécie (Polyarthra, Keratella).} #' \item{\code{esp}}{Espécie (Polyarthra, Keratella).}
#' #'
#' } #' }
#' @keywords binários #' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Tb 3.21, pág. 257) #' computacional. São Paulo, SP: IME-USP. (Tb 3.21, pág. 257)
#' #'
...@@ -30,11 +29,12 @@ ...@@ -30,11 +29,12 @@
#' #'
#' library(lattice) #' library(lattice)
#' #'
#' xyplot(dens ~ susp + exp, #' xyplot(PaulaTb3.21$susp/PaulaTb3.21$exp ~ dens,
#' groups = esp, #' groups = esp,
#' data = PaulaTb3.21, #' data = PaulaTb3.21,
#' xlab = " ", #' xlab = "Densidade",
#' ylab = "Densidade", #' ylab = "Proporção de rotifers suspensos",
#' type = c("o"),
#' auto.key = list(space="top", columns=2, #' auto.key = list(space="top", columns=2,
#' title="Espécie", cex.title=1, #' title="Espécie", cex.title=1,
#' lines=TRUE, points=FALSE)) #' lines=TRUE, points=FALSE))
......
...@@ -31,14 +31,15 @@ str(PaulaEx3.7.7a) ...@@ -31,14 +31,15 @@ str(PaulaEx3.7.7a)
library(lattice) library(lattice)
xyplot(dose ~ cexp + cmort, xyplot(PaulaEx3.7.7a$cmort/PaulaEx3.7.7a$cexp ~ dose,
data = PaulaEx3.7.7a, data = PaulaEx3.7.7a,
xlab = "Caramujos expostos e mortos", xlab = "Dose",
ylab = "Dose", type = c("o"),
ylab = "Proporção de mortos",
auto.key = list(space="top", columns=2, auto.key = list(space="top", columns=2,
title="Caramujos", cex.title=1, title="Caramujos", cex.title=1,
lines=TRUE, points=FALSE)) lines=TRUE, points=FALSE))
} }
\keyword{binários} \keyword{MLG}
...@@ -30,14 +30,17 @@ data(PaulaEx3.7.7b) ...@@ -30,14 +30,17 @@ data(PaulaEx3.7.7b)
str(PaulaEx3.7.7b) str(PaulaEx3.7.7b)
library(lattice) library(lattice)
xyplot(dose ~ cexp + cmort,
xyplot(PaulaEx3.7.7b$cmort/PaulaEx3.7.7b$cexp ~ dose,
data = PaulaEx3.7.7b, data = PaulaEx3.7.7b,
xlab = "Caramujos expostos e mortos", xlab = "Dose",
ylab = "Dose", type = c("o"),
ylab = "Proporção de mortos",
auto.key = list(space="top", columns=2, auto.key = list(space="top", columns=2,
title="Caramujos", cex.title=1, title="Caramujos", cex.title=1,
lines=TRUE, points=FALSE)) lines=TRUE, points=FALSE))
} }
\keyword{binários} \keyword{MLG}
...@@ -31,15 +31,17 @@ str(PaulaEx3.7.7c) ...@@ -31,15 +31,17 @@ str(PaulaEx3.7.7c)
library(lattice) library(lattice)
xyplot(dose ~ cexp + cmort, xyplot(PaulaEx3.7.7c$cmort/PaulaEx3.7.7c$cexp ~ dose,
data = PaulaEx3.7.7c, data = PaulaEx3.7.7c,
xlab = "Caramujos expostos e mortos", xlab = "Dose",
ylab = "Dose", type = c("o"),
ylab = "Proporção de mortos",
auto.key = list(space="top", columns=2, auto.key = list(space="top", columns=2,
title="Caramujos", cex.title=1, title="Caramujos", cex.title=1,
lines=TRUE, points=FALSE)) lines=TRUE, points=FALSE))
} }
\keyword{binários} \keyword{MLG}
...@@ -21,10 +21,10 @@ Paula, G. A. (2004). Modelos de regressão: com apoio ...@@ -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) computacional. São Paulo, SP: IME-USP. (Ex 3.7.8, pág. 270)
} }
\description{ \description{
Dados referentes ao salário anual de uma Dados referentes a um experimento desenvolvido para avaliar
amostra aleatória de 220 executivos (145 homens e 75 mulheres). O a germinação de um determinado tipo de semente. A tabela abaixo
salário será relacionado com as variáveis: sexo, anos de experiência apresenta o número de sementes que germinaram após cinco dias para
no cargo e posição na empresa. cada 100 sementes submetidas a cada condição experimental.
} }
\examples{ \examples{
...@@ -46,5 +46,5 @@ xyplot(temp ~ numid + ntemp, ...@@ -46,5 +46,5 @@ xyplot(temp ~ numid + ntemp,
lines=TRUE, points=FALSE)) lines=TRUE, points=FALSE))
} }
\keyword{aplicações} \keyword{MLG}
...@@ -21,10 +21,9 @@ Paula, G. A. (2004). Modelos de regressão: com apoio ...@@ -21,10 +21,9 @@ Paula, G. A. (2004). Modelos de regressão: com apoio
} }
\description{ \description{
Experimentos com duas espécies de *rotifers*, um tipo Experimentos com duas espécies de *rotifers*, um tipo
microscópio de invertebrado aquático, para determinar a densidade microscópio de invertebrado aquático. São apresentados pra cada
relativa para cada uma das espécies. São apresentados pra cada espécie espécie a densidade relativa da substância, o número de *rotifers*
a densidade relativa da substância, o número de *rotifers* expostos expostos e o número de *rotifers* em suspensão.
e o número de *rotifers* em suspensão.
} }
\examples{ \examples{
...@@ -34,15 +33,16 @@ str(PaulaTb3.21) ...@@ -34,15 +33,16 @@ str(PaulaTb3.21)
library(lattice) library(lattice)
xyplot(dens ~ susp + exp, xyplot(PaulaTb3.21$susp/PaulaTb3.21$exp ~ dens,
groups = esp, groups = esp,
data = PaulaTb3.21, data = PaulaTb3.21,
xlab = " ", xlab = "Densidade",
ylab = "Densidade", ylab = "Proporção de rotifers suspensos",
type = c("o"),
auto.key = list(space="top", columns=2, auto.key = list(space="top", columns=2,
title="Espécie", cex.title=1, title="Espécie", cex.title=1,
lines=TRUE, points=FALSE)) lines=TRUE, points=FALSE))
} }
\keyword{binários} \keyword{MLG}
% 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 % Please edit documentation in R/labestData.R
\docType{package} \docType{package}
\name{labestData} \name{labestData}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment