AndradeTb2.25: Experimento de Germina<c3><a7><c3><a3>o de Cultivares de...

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

Description

Experimento com o objetivo de avaliar o poder germinativo de duas cultivares de cebola. Foram utilizadas, para o teste de germina<c3><a7><c3><a3>o, quatro repeti<c3><a7><c3><b5>es de cem sementes totalizando quatrocentas sementes para cada cultivar. Nesse experimento mensurou-se apenas a frequ<c3><aa>ncia das sementes que germinaram, ou n<c3><a3>o, dentre as repeti<c3><a7><c3><b5>es de cada cultivar.

Format

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

cult

Cultivares de cebola avaliadas (Bola Precoce-EMPASC 352, Bola 352 e Norte 14, Norte 14).

germ

Identifica se houve, ou n<c3><a3>o, a germina<c3><a7><c3><a3>o da semente.

freq

N<c3><ba>mero de sementes, no cruzamento de cult e germ.

Source

Andrade, D. F., Ogliari, P. J. (2010). Estat<c3><ad>stica para as ci<c3><aa>ncias agr<c3><a1>rias e biol<c3><b3>gicas com no<c3><a7><c3><b5>es de experimenta<c3><a7><c3><a3>o (2nd ed.). Florian<c3><b3>polis, SC. Editora da UFSC. (Tabela 2.25, p<c3><a1>g. 107)

Examples

data(AndradeTb2.25)
str(AndradeTb2.25)

xt <- xtabs(freq ~ ., data = AndradeTb2.25)
xt

mosaicplot(t(xt), col = c("darkturquoise", "lawngreen"),
           cex.axis = 0.8, las = 2, main = "")

library(lattice)
barchart(t(xt),
         horizontal = FALSE,
         stack = FALSE,
         auto.key = list(
             corner= c(0.9, 0.9),
             title = "Cultivar",
             cex.title = 1.1),
         xlab = "Ado<c3><a7><c3><a3>o da nova variedade",
         ylab = "N<c3><ba>mero de sementes")

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