labestData: Biblioteca de Dados para Aprendizado de Estatística

Description Format Source Examples

Experimento estudar o efeito de datas de plantio, <c3><a9>pocas de colheita e aplica<c3><a7><c3><a3>o de inseticidas na produ<c3><a7><c3><a3>o de beterraba. Os tratamentos foi arranjados em parcelas sub-subdivididas no delineamento de blocos casualizados.

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

data: Fator de n<c3><ad>veis ordinais que representa as datas de plantio de beterraba. Os n<c3><ad>veis do fator data foram casualizados nas parcelas.
inset: Vari<c3><a1>vel bin<c3><a1>ria que representa a aplica<c3><a7><c3><a3>o de inseticida (1) ou n<c3><a3>o (0). Este fator foi casualizado as subparcelas.
epoc: Fator de n<c3><ad>veis ordinais que representa a <c3><a9>poca de colheita das beterrabas. Esse fator foi casualizado nas sub-subparcelas.
bloco: Fator de n<c3><ad>veis nominais que presenta os blocos do experimento.
prod: Produ<c3><a7><c3><a3>o de beterraba. A unidade de medida n<c3><a3>o foi informada.

BANZATTO; KRONKA (2013), Quadro 6.3.4, p<c3><a1>g. 156.

library(lattice)

data(BanzattoQd6.3.4)

str(BanzattoQd6.3.4)

ftable(with(BanzattoQd6.3.4,
            tapply(prod,
                   list(data = data,
                        inset = inset,
                        epoc = epoc,
                        bloco = bloco),
                   FUN = mean)))

xyplot(prod ~ epoc | data, groups = inset, data = BanzattoQd6.3.4,
       as.table = TRUE, layout = c(NA, 1),
       jitter.x = TRUE, type = c("p", "a"),
       auto.key = list(title = "Aplica<c3><a7><c3><a3>o de inseticida",
                       cex.title = 1, columns = 2),
       strip = strip.custom(var.name = "<c3><89>poca", strip.names = TRUE),
       xlab = "Ordem das datas de plantio",
       ylab = "Produ<c3><a7><c3><a3>o de beterraba")