R para Data Science

Fórmulas e Famílias de Modelos | 365

grid <- sim4 %>%

data_grid(

x1 = seq_range( x1, 5 ),

x2 = seq_range( x2, 5 )

) %>%

gather_predictions( mod1, mod2

)

grid

#> # A tibble: 50 ×

4

#> model x1 x2 pred

#> <chr> <dbl> <dbl> <dbl>

#> 1 mod1 -1.0 -1.0 0.996

#> 2 mod1 -1.0 -0.5 -0.395

#> 3 mod1 -1.0 0.0 -1.786

#> 4 mod1 -1.0 0.5 -3.177

#> 5 mod1 -1.0 1.0 -4.569

#> 6 mod1 -0.5 -1.0 1.907

#> # ... with 44 more rows

Note a aplicação de seq_range() dentro de data_grid(). Em vez de utilizar cada valor

único de x, usarei uma grade regularmente espaçada de cinco valores entre os números

mínimo e máximo. Provavelmente isso não é superimportante aqui, ma ...