Description Format Source Examples
Experimento realizado em delineamento em blocos completos ao acaso, utilizando oito cultivares de arroz irrigado. Os dados s<c3><a3>o referentes ao n<c3><ba>mero de dias at<c3><a9> a flora<c3><a7><c3><a3>o das plantas de arroz, uma vari<c3><a1>vel do tipo tempo at<c3><a9> o evento/desfecho. S<c3><a3>o apresentados na tabela tamb<c3><a9>m os respectivos postos de cada dado, a fim de facilitar a aplica<c3><a7><c3><a3>o do teste de Friedman (teste n<c3><a3>o param<c3><a9>trico).
Um data.frame
com 24 observa<c3><a7><c3><b5>es e 4 vari<c3><a1>veis, em que
Fator categ<c3><b3>rico que indica o bloco.
Fator categ<c3><b3>rico que indica a cultivar.
N<c3><ba>mero total de dias at<c3><a9> a flora<c3><a7><c3><a3>o das plantas.
Posto corresponden ao n<c3><ba>mero de dias de cada cultivas
dentro de cada bloco. O posto pode ser calculado com a fun<c3><a7><c3><a3>o
rank
.
ZIMMERMANN (2004), Tabela 16.5, p<c3><a1>g 347.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | library(lattice)
data(ZimmermannTb16.5)
str(ZimmermannTb16.5)
# Como calcular o posto no R.
p <- by(data = ZimmermannTb16.5,
INDICES = ZimmermannTb16.5$bloco,
FUN = function(dataset) {
dataset$posto <- rank(dataset$dias)
return(dataset)
})
ZimmermannTb16.5 <- do.call(rbind, p)
rownames(ZimmermannTb16.5) <- NULL
xyplot(dias + posto ~ cult, outer = TRUE, groups = bloco,
data = ZimmermannTb16.5, jitter.x = TRUE,
scales = list(y = list(relation = "free"),
x = list(rot = 90)),
xlab = "Cultivares", ylab = "",
strip = strip.custom(factor.levels = c("Dias para flora<c3><a7><c3><a3>o",
"Posto")))
xyplot(posto ~ dias, data = ZimmermannTb16.5,
xlab = "Dias para flora<c3><a7><c3><a3>o", ylab = "Posto",
jitter.y = TRUE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.