Atualiza arquivos Rd.

man/PaulaEg1.12.2.Rd

@@ -43,7 +43,7 @@ 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, 

man/PaulaEg1.12.4.Rd

@@ -21,7 +21,7 @@ Paula, G. A. (2004). Modelos de regressão: com apoio
 }
 \description{
 Estudo realizado para avaliar a influência da série
-    (passagem do tumor) na morte (caquexia) de um certo tipo de rato.
+    (passagem do tumor) na morte (caquexia) de certa espécie de rato.
     Um total de 204 animais teve tumor inoculado num determinado
     momento da série. Para cada animal, além do grupo de passagem,
     foram observadas as variáveis presença de massa tumoral, caquexia
@@ -30,18 +30,18 @@ Estudo realizado para avaliar a influência da série
 \examples{
 
 data(PaulaEg1.12.4)
-
 str(PaulaEg1.12.4)
 
 library(lattice)
 
-xyplot(grupo ~ tempo | massat,
+xyplot(tempo ~ grupo | massat,
        groups = caq,
        data = PaulaEg1.12.4,
        type = c("p", "smooth"),
-       xlab = "Tempo",
-       ylab = "Grupo",
-       main = "Dispersão para Massa Tumoral não Presente (à esquerda) ou Presente (à direita)", 
+       xlab = "Grupo",
+       ylab = "Tempo",
+       main = paste("Tempo de sobrevivência vs grupo de passagem\\n",
+                    "(segundo caquexia e presença de massa tumoral)"),
        auto.key = list(space = "top", columns = 2,
                        title = "Presença de caquexia", cex.title = 1,
                        lines = TRUE, points = FALSE))
@@ -50,7 +50,8 @@ bwplot(tempo ~ massat | caq,
        data = PaulaEg1.12.4,
        ylab = "Tempo",
        xlab = "Presença de massa tumoral",
-       main = "Bwplot para Caquexia não Presente (à esquerda) ou Presente (à direita)")
+       main = paste("Bwplot para Caquexia não Presente\\n",
+                    "(à esquerda) ou Presente (à direita)"))
 
 }
 \keyword{MLG}

man/PaulaEg1.12.5.Rd

@@ -26,8 +26,7 @@ Paula, G. A. (2004). Modelos de regressão: com apoio
 \description{
 Dados referentes ao consumo de combustível em 48 estados 
     norte-americanos. O interesse nesse estudo é tentar explicar o 
-    consumo de combustível pelas Variáveis taxa, licença, renda e 
-    estradas.
+    consumo de combustível com base em variáveis econômicas.
 }
 \examples{
 
@@ -46,6 +45,7 @@ xyplot(cons ~ est,
        ylab = "Consumo",
        xlab = "Estados",
        data = PaulaEg1.12.5,
+       type = 'h',
        main = "Consumo por Habitante em cada Estado",
        grid = TRUE)
 

man/PaulaEx1.13.19.Rd

@@ -21,7 +21,7 @@
     grau em 1970.}
 
 \item{\code{ndias}}{Número de dias do ano com temperatura abaixo de
-    0ºC na cidade mais importante do estado.}
+    0\eqn{^\circ C} na cidade mais importante do estado.}
 
 \item{\code{area}}{Área do estado (em milhas quadradas).}
 
@@ -42,25 +42,17 @@ Dados referentes a um estudo demográfico sobre os 50
     informações.
 }
 \examples{
-data(PaulaEx1.13.19)
 
+data(PaulaEx1.13.19)
 str(PaulaEx1.13.19)
 
-library(lattice)
-splom(PaulaEx1.13.19[, -1],
-      type = c("p", "g", "smooth"),
-      col.line = 1)
-
-# Distribuição marginal das variáveis
-par(mfrow = c(3, 3))
-vn <- colnames(PaulaEx1.13.19)
-sapply(1:8, function(x) {
-    hist(PaulaEx1.13.19[, x+1], prob = TRUE, main = vn[x+1])
-    lines(density(PaulaEx1.13.19[, x+1]), col = 4)
-    rug(PaulaEx1.13.19[, x+1])
-    invisible(x)
-})
+library(car)
+
+PaulaEx1.13.19$dens <- PaulaEx1.13.19$pop/PaulaEx1.13.19$area
+scatterplotMatrix(~expvi + analf + crime + estud + ndias + dens,
+                  data = PaulaEx1.13.19)
+
 
 }
-\keyword{TODO}
+\keyword{MLG}
 

man/PaulaEx3.7.8.Rd

@@ -36,14 +36,11 @@ library(lattice)
 
 PaulaEx3.7.8$ntemp <- as.factor(PaulaEx3.7.8$ntemp)
 
-xyplot(temp ~ numid + ntemp,
-       groups = sgerm,
+PaulaEx3.7.8$numid <- as.factor(PaulaEx3.7.8$numid)
+xyplot(sgerm ~ numid | ntemp,
        data = PaulaEx3.7.8,
-       xlab = " ",
-       ylab = "Densidade",
-       auto.key = list(space="top", columns=2, 
-                       title="Espécie", cex.title=1,
-                       lines=TRUE, points=FALSE))
+       xlab = "Nível de temperatura",
+       ylab = "Número de sementes germinadas")
 
 }
 \keyword{MLG}

man/PaulaTb1.6.Rd

@@ -34,6 +34,7 @@ xyplot(rendm ~ est,
         ylab = "Renda",
         xlab = "Estados",
         data = PaulaTb1.6,
+        type = 'h',
         main = "Renda Média Mensal em Estado",
         grid = TRUE)
 

man/PaulaTb3.21.Rd

@@ -20,7 +20,7 @@ Paula, G. A. (2004). Modelos de regressão: com apoio
     computacional. São Paulo, SP: IME-USP. (Tb 3.21, pág. 257)
 }
 \description{
-Experimentos com duas espécies de *rotifers*, um tipo  
+Experimento 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.
@@ -38,10 +38,8 @@ xyplot(PaulaTb3.21$susp/PaulaTb3.21$exp ~ dens,
        data = PaulaTb3.21,
        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))
+       type = c("p"),
+       auto.key = TRUE)
 
 }
 \keyword{MLG}