labestData: Biblioteca de Dados para Aprendizado de Estatística

Description Format Source Examples

Ensaio de alimenta<c3><a7><c3><a3>o de su<c3><ad>nos, no qual foi usado um quadrado latino de 4 x 4, com os resultados referentes aos ganhos de peso ao fim de 252 dias.

Um data.frame com 16 observa<c3><a7><c3><b5>es e 4 vari<c3><a1>veis, em que

leitegada: Fator de 4 n<c3><ad>veis qualitativos, usado para identificar as 4 diferentes ninhadas de leit<c3><b5>es, cada leitegada representa uma linha do quadrado latino de 4 x 4.
coluna: Fator de 4 n<c3><ad>veis qualitativos, usado para identificar as colunas do quadrado latino de 4 x 4, essas colunas objetivam controlar a varia<c3><a7><c3><a3>o de peso dos leit<c3><b5>es dentro de cada leitegada.
castracao: Fator de 4 n<c3><ad>veis qualitativos, que s<c3><a3>o os diferentes tipos de tratamento, s<c3><a3>o eles: castra<c3><a7><c3><a3>o aos 7, 21 e 56 dias de idade e a testemunha, que s<c3><a3>o animais n<c3><a3>o castrados.
peso: Ganho de peso, em kg, ao fim de 252 dias.

PIMENTEL-GOMES (2009), Exerc<c3><ad>cio 6.6.3, p<c3><a1>gina 110.

data(PimentelEx6.6.3)
str(PimentelEx6.6.3)

library(lattice)

xyplot(peso ~ castracao,
       jitter.x = TRUE,
       data = PimentelEx6.6.3,
       xlab = "Castra<c3><a7><c3><a3>o",
       ylab = "Ganho de peso (kg)")

levelplot(peso ~ leitegada + coluna,
          data = PimentelEx6.6.3, aspect = "iso",
          panel = function(x, y, z, subscripts, ...) {
              panel.levelplot(x, y, z, subscripts = subscripts, ...)
              panel.text(x, y,
                         PimentelEx6.6.3$castracao[subscripts],
                         cex = 0.8)
              panel.text(x, y, z, pos = 1)
          })