Description Format Source Examples
Dados provenientes de um experimento inteiramente casualizado onde expuseram explantes de abacaxis a diferentes doses de radia<c3><a7><c3><a3>o gama e, 45 dias ap<c3><b3>s a irradia<c3><a7><c3><a3>o, mensurou-se o peso destes explantes.
Um data.frame
de 70 linhas e 2 colunas, em que
dose
Dose de radia<c3><a7><c3><a3>o gama a qual os explantes de abacaxi foram expostos durante 45 dias.
absorv
Peso dos explantes de abacaxi ap<c3><b3>s a irradia<c3><a7><c3><a3>o, medido em gramas (g).
DEM<c3><89>TRIO; ZOCCHI (2011), Tabela 2.11 p<c3><a1>g. 66.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | data(DemetrioTb2.11)
str(DemetrioTb2.11)
library(lattice)
# Estat<c3><ad>sticas descritivas
with(DemetrioTb2.11, tapply(peso, dose, summary))
with(DemetrioTb2.11, {
mu <<- aggregate(peso, list(dose), mean)
des <<- aggregate(peso, list(dose), sd)
})
xyplot(peso ~ dose, data = DemetrioTb2.11,
type = c("p", "r"), grid = TRUE,
panel = function(x, y, ...) {
panel.points(x = mu$G - 1, y = mu$x, pch = 15, col = 1)
panel.arrows(x0 = mu$G - 1, y0 = mu$x - des$x,
x1 = mu$G - 1, y1 = mu$x + des$x,
code = 3, length = 0.05, angle = 90)
panel.xyplot(x, y, ...)
})
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.