labestData: Biblioteca de Dados para Aprendizado de Estatística

Description Format Source Examples

Estudo no qual avaliou-se a produ<c3><a7><c3><a3>o de cana-de-a<c3><a7><c3><ba>car considerando duas variedades distintas a fim de compara<c3><a7><c3><a3>o.

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

varied: Fator de 2 n<c3><ad>veis que representa as variedades de cana-de-a<c3><a7><c3><ba>car consideradas.
prod: Produ<c3><a7><c3><a3>o de cana-de-a<c3><a7><c3><ba>car, em toneladas por hectare.

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.44, p<c3><a1>g. 147)

data(AndradeTb2.44)
str(AndradeTb2.44)

# Box-plots
boxplot(prod ~ varied,
        data = AndradeTb2.44,
        xlab = "Variedade",
        ylab = expression(Produ<c3><a7><c3><a3>o~(em~t~ha^-1)))

# Gr<c3><a1>ficos de densidades
dens <- with(AndradeTb2.44, tapply(prod, varied, density))
plot(x = 0, y = 0, type = "n",
     xlim = range(sapply(dens, function(d) range(d$x))),
     ylim = range(sapply(dens, function(d) range(d$y))),
     xlab = expression(Produ<c3><a7><c3><a3>o~(em~t~ha^-1)),
     ylab = "Densidade estimada")
lapply(1:length(dens), function(i) lines(dens[[i]], col = i))
legend("topleft", title = "Variedade",
       legend = unique(AndradeTb2.44$varied),
       lwd = 1, col = 1:2, bty = "n")