ZimmermannTb9.22: Fungicidas e Pol<c3><ad>mero na Infec<c3><a7><c3><a3>o de...

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

Description

Resultados de um experimento fatorial com tratamentos adicionais 3 \times 3 + 2 que estudou o n<c3><ba>mero de sementes infectadas por fusaruim em fun<c3><a7><c3><a3>o aplica<c3><a7><c3><a3>o de fungicidas <c3><a0>s sementes e do uso associado de um pol<c3><ad>mero depois do fungicida ou misturado a ele. Os dois tratamentos adicionais era a aplica<c3><a7><c3><a3>o isolada do pol<c3><ad>mero e uma testemunha sem qualquer tratamento. O experimento foi instalado em delineamento inteiramente casualizado.

Format

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

trat

Fator ceteg<c3><b3>rico que identifica as celas experimentais do fatorial com tratamentos adicionais.

fung

Fator categ<c3><b3>rico que identifica os n<c3><ad>veis dos fungicidas aplicados <c3><a0>s sementes. Benlate, Captam e Derosal s<c3><a3>o os fungicidas. O pol<c3><ad>mero puro e uma testemunha tamb<c3><a9>m foram investigados.

aplic

Fator categ<c3><b3>rico que indica a forma de aplica<c3><a7><c3><a3>o do fungicida em rela<c3><a7><c3><a3>o ao pol<c3><ad>mero: antes do pol<c3><ad>mero, misturado com o pol<c3><ad>mero ou o fungic<c3><ad>da puro.

nsi

N<c3><ba>mero de sementes infectadas por fusarium de um total de 40 sementes.

Source

ZIMMERMANN (2004), Tabela 9.22, p<c3><a1>g. 188.

Examples

library(lattice)

data(ZimmermannTb9.22)
str(ZimmermannTb9.22)

xtabs(~fung + aplic, ZimmermannTb9.22)

xyplot(nsi/40 ~ trat, data = ZimmermannTb9.22,
       xlab = "Tratamentos",
       ylab = "Propor<c3><a7><c3><a3>o de sementes infectadas",
       scales = list(x = list(rot = 90)))

# Gr<c3><a1>fico da fun<c3><a7><c3><a3>o arco seno da ra<c3><ad>z.
curve(asin(sqrt(x)), from = 0, to = 1)

# Transforma<c3><a7><c3><a3>o arco seno da ra<c3><ad>z quadrada da propor<c3><a7><c3><a3>o.
asin(sqrt(ZimmermannTb9.22$nsi/40))

# A transforma<c3><a7><c3><a3>o n<c3><a3>o elimina os zeros.
xyplot(asin(sqrt(nsi/40)) ~ trat, data = ZimmermannTb9.22,
       xlab = "Tratamentos",
       ylab = "Arco seno da ra<c3><ad>z da propor<c3><a7><c3><a3>o",
       scales = list(x = list(rot = 90)))

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