DemetrioEx2.12.5: Dados Gen<c3><a9>ricos para Regress<c3><a3>o Segmentada

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

Description

Dados para exerc<c3><ad>cio anal<c3><ad>tico, com o objetivo de obter as estimativas de m<c3><ad>nimos quadrados dos par<c3><a2>metros de um modelo de regress<c3><a3>o linear segmentada.

Format

Um data.frame de 5 linhas e 2 colunas, em que

x

Vari<c3><a1>vel independente, sem interpreta<c3><a7><c3><a3>o.

y

Vari<c3><a1>vel dependente, sem interpreta<c3><a7><c3><a3>o.

Source

DEM<c3><89>TRIO; ZOCCHI (2011), Exerc<c3><ad>cio 2.12.5 p<c3><a1>g. 60.

Examples

data(DemetrioEx2.12.5)
str(DemetrioEx2.12.5)

library(lattice)

xyplot(y ~ x, data = DemetrioEx2.12.5,
       cex = 1.1, pch = 19,
       main = 'Regress<c3><a3>o Segmentada',
       grid = TRUE,
       panel = function(x, y, ...) {
           # Regress<c3><a3>o Segmentada com ponto de corte conhecido
           b <- DemetrioEx2.12.5$x[3]
           m0 <- lm(y ~ x + I(pmax(x - b, 0)),
                    data = DemetrioEx2.12.5)
           # Pontos que definem os dois segmentos
           cx <- c(0, b, 8)
           cy <- predict(m0, newdata = data.frame(x = cx))
           panel.xyplot(x, y, ...)
           panel.segments(cx[1], cy[1], cx[2], cy[2])
           panel.segments(cx[2], cy[2], cx[3], cy[3])
       })

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