R para Data Science

370 | Capítulo 18: O Básico de Modelos com modelr

Vou ajustar cinco modelos nestes dados:

mod1 <- lm( y ~ ns( x, 1 ), data = sim5 )

mod2

<- lm( y ~ ns( x, 2 ), data = sim5 )

mod3

<- lm( y ~ ns( x, 3 ), data = sim5 )

mod4

<- lm( y ~ ns( x, 4 ), data = sim5 )

mod5

<- lm( y ~ ns( x, 5 ), data = sim5 )

grid

<- sim5 %>%

data_grid( x = seq_range( x, n = 50, expand = 0.1 )) %>%

gather_predictions( mod1, mod2, mod3, mod4, mod5, .pred = "y"

)

ggplo

t( sim5, aes( x, y )) +

geom_point() +

geom_line( data= grid, color = "red" ) +

facet_wrap( ~

model

)

CG_RforData_Book.indb 370 18/01/2019 16:25:39

Valores Faltantes | 371

Note ...