Description Format Source References Examples
Resultados de um experimento em que a resist<c3><aa>ncia de um determinado tipo de vidro foi avaliada segundo quatro n<c3><ad>veis de voltagem e duas temperaturas. Foram 32 avalia<c3><a7><c3><b5>es referentes a 4 repeti<c3><a7><c3><b5>es de cada tratamento (combina<c3><a7><c3><a3>o dos n<c3><ad>veis de voltagem e temperatura.)
Um data.frame
com 32 observa<c3><a7><c3><b5>es e 3 vari<c3><a1>veis.
tempo
Tempo de resist<c3><aa>ncia do vidro, mensurado em horas.
volt
Fator com quatro n<c3><ad>veis de voltagem considerados, valores em quilovolts (kV).
temp
Fator com dois n<c3><ad>veis de temperatura considerados, valores em graus Celsius.
PAULA (2004), Exerc<c3><ad>cio 2.10.7, p<c3><a1>g. 175.
Lawless, J. F. (1982). Statistical Models and Methods for Lifetime Data. John Wiley, New York.
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 27 28 29 30 31 32 33 34 35 36 37 38 | data(PaulaEx2.10.7)
str(PaulaEx2.10.7)
xtabs(~volt + temp, data = PaulaEx2.10.7)
library(lattice)
xyplot(tempo ~ volt,
groups = temp,
data = PaulaEx2.10.7,
type = c("p", "g", "a"),
auto.key = list(
corner = c(0.9, 0.9),
lines = TRUE,
cex.title = 1,
title = "Temperatura"
))
resumo <- aggregate(tempo ~ temp + volt,
data = PaulaEx2.10.7,
FUN = function(x) {
c("M<c3><a9>dia" = mean(x),
"D.Padr<c3><a3>o" = sd(x),
"C.Varia<c3><a7><c3><a3>o" = sd(x)/mean(x),
"n" = length(x))
})
ftable(xtabs(tempo ~ temp + volt, data = resumo))
trat <- with(resumo, paste(temp, volt, sep = "-"))
xyplot(tempo[, "C.Varia<c3><a7><c3><a3>o"] ~ factor(trat),
data = resumo,
ylab = "Coeficiente de Varia<c3><a7><c3><a3>o",
grid = TRUE,
scales = list(x = list(rot = 45)),
panel = function(x, y, ...) {
panel.xyplot(x, y, ...)
panel.abline(h = mean(y))
})
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.