PaulaEx2.10.7: Resist<c3><aa>ncia de Vidros sob Efeito de Voltagem e...

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

Description

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.)

Format

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.

Source

PAULA (2004), Exerc<c3><ad>cio 2.10.7, p<c3><a1>g. 175.

References

Lawless, J. F. (1982). Statistical Models and Methods for Lifetime Data. John Wiley, New York.

Examples

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))
       })

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