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
Branches
No related tags found
1 merge request!89Alessandra108 - Ex3.7.7a, Ex3.7.7b, Ex3.7.7c, Ex 3.7.8 e Tb3.21 do livro Gilberto de Paula
Pipeline #
Show whitespace changes
Inline Side-by-side
Showing
with 90 additions and 78 deletions
R/PaulaEx3.7.7a.R
+ 9
− 8
View file @ 86992751
......@@ -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,10 +27,11 @@
#'
#' library(lattice)
#'
#' xyplot(dose ~ cexp + cmort,
#' xyplot(PaulaEx3.7.7a$cmort/PaulaEx3.7.7a$cexp ~ dose,
#' data = PaulaEx3.7.7a,
#' xlab = "Caramujos expostos e mortos",
#' ylab = "Dose",
#' 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))
......
R/PaulaEx3.7.7b.R
+ 11
− 8
View file @ 86992751
......@@ -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,
#'
#' xyplot(PaulaEx3.7.7b$cmort/PaulaEx3.7.7b$cexp ~ dose,
#' data = PaulaEx3.7.7b,
#' xlab = "Caramujos expostos e mortos",
#' ylab = "Dose",
#' 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
R/PaulaEx3.7.7c.R
+ 10
− 8
View file @ 86992751
......@@ -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,
#' xyplot(PaulaEx3.7.7c$cmort/PaulaEx3.7.7c$cexp ~ dose,
#' data = PaulaEx3.7.7c,
#' xlab = "Caramujos expostos e mortos",
#' ylab = "Dose",
#' 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
R/PaulaEx3.7.8.R
+ 5
− 5
View file @ 86992751
#' @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)
#'
......
R/PaulaTb3.21.R
+ 11
− 11
View file @ 86992751
#' @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.
#' @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))
......
man/PaulaEx3.7.7a.Rd
+ 9
− 8
View file @ 86992751
......@@ -31,14 +31,15 @@ str(PaulaEx3.7.7a)
library(lattice)
xyplot(dose ~ cexp + cmort,
xyplot(PaulaEx3.7.7a$cmort/PaulaEx3.7.7a$cexp ~ dose,
data = PaulaEx3.7.7a,
xlab = "Caramujos expostos e mortos",
ylab = "Dose",
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}
man/PaulaEx3.7.7b.Rd
+ 11
− 8
View file @ 86992751
......@@ -30,14 +30,17 @@ data(PaulaEx3.7.7b)
str(PaulaEx3.7.7b)
library(lattice)
xyplot(dose ~ cexp + cmort,
xyplot(PaulaEx3.7.7b$cmort/PaulaEx3.7.7b$cexp ~ dose,
data = PaulaEx3.7.7b,
xlab = "Caramujos expostos e mortos",
ylab = "Dose",
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}
man/PaulaEx3.7.7c.Rd
+ 10
− 8
View file @ 86992751
......@@ -31,15 +31,17 @@ str(PaulaEx3.7.7c)
library(lattice)
xyplot(dose ~ cexp + cmort,
xyplot(PaulaEx3.7.7c$cmort/PaulaEx3.7.7c$cexp ~ dose,
data = PaulaEx3.7.7c,
xlab = "Caramujos expostos e mortos",
ylab = "Dose",
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}
man/PaulaEx3.7.8.Rd
+ 5
− 5
View file @ 86992751
......@@ -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}
man/PaulaTb3.21.Rd
+ 8
− 8
View file @ 86992751
......@@ -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}
man/labestData.Rd
+ 1
− 1
View file @ 86992751
% 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}
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment