FerreiraEx7.4.1: Avalia<c3><a7><c3><a3>o de Dieta em Animais

In pet-estatistica/labestData: Biblioteca de Dados para Aprendizado de Estatística

Description

Dados referentes a um estudo com animais avaliados antes e depois de terem sido submetidos a uma dieta balanceada. O interesse do estudo <c3><a9> avaliar se houve efeito significativo da dieta nas vari<c3><a1>veis peso e teor de prote<c3><ad>na.

Format

Um data.frame com 12 observa<c3><a7><c3><b5>es e 3 vari<c3><a1>veis.

fase

Fator que indica a qual fase do estudo a observa<c3><a7><c3><a3>o pertence. Antes ou depois da dieta.

peso

Peso do animal.

teor

Teor de prote<c3><ad>na.

Source

FERREIRA (2011), Exerc<c3><ad>cio 7.4.1 p<c3><a1>g. 328.

Examples

data(FerreiraEx7.4.1)
str(FerreiraEx7.4.1)

aggregate(peso ~ fase, data = FerreiraEx7.4.1, summary)
aggregate(teor ~ fase, data = FerreiraEx7.4.1, summary)

by(FerreiraEx7.4.1[2:3], FerreiraEx7.4.1[1], cov)

with(FerreiraEx7.4.1, {
     par(mar = c(4, 5, 4, 5))
     plot.default(y = peso, xlab = "", ylab = "",
                  x = jitter(as.numeric(fase), factor = 0.5) - 0.15,
                  xlim = c(0.5, 2.5),
                  col = 4,
                  axes = FALSE)
     box()
     axis(side = 2, col.axis = 4)
     mtext(side = 2, text = "Peso", line = 3, col = 4)
     par(new = TRUE, mar = c(4, 5, 4, 5))
     plot.default(y = teor, xlab = "", ylab = "",
                  x = jitter(as.numeric(fase), factor = 0.5) + 0.15,
                  xlim = c(0.5, 2.5),
                  col = 2,
                  axes = FALSE)
     axis(side = 4, col.axis = 2)
     axis(side = 1, at = 1:2, labels = c("antes", "depois"))
     mtext(side = 4, text = "Teor da prote<c3><ad>na",
           line = 3, col = 2)
})

pet-estatistica/labestData documentation built on May 25, 2019, 12:47 a.m.