Description Format Source Examples
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.
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.
FERREIRA (2011), Exerc<c3><ad>cio 7.4.1 p<c3><a1>g. 328.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | 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)
})
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.