DemetrioTb2.11: Radia<c3><a7><c3><a3>o Gama em Explantes de Abacaxis

Description Format Source Examples

Description

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.

Format

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).

Source

DEM<c3><89>TRIO; ZOCCHI (2011), Tabela 2.11 p<c3><a1>g. 66.

Examples

 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, ...)
           })

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