This helper function provides a simple way to retrieve the
widened data from a fitted dpm::dpm() object.
get_wide_data(model)
| model | A |
|---|
data("WageData", package = "panelr") wages <- panel_data(WageData, id = id, wave = t) fit <- dpm(wks ~ pre(lag(union)) + lag(lwage), data = wages) get_wide_data(fit)#> # A tibble: 595 x 22 #> id union_1 wks_1 lwage_1 union_2 wks_2 lwage_2 union_3 wks_3 lwage_3 #> <fct> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 1 0 32 5.56 0 43 5.72 0 40 6.00 #> 2 2 0 34 6.16 0 27 6.21 1 33 6.26 #> 3 3 1 50 5.65 1 51 6.44 1 50 6.55 #> 4 4 0 52 6.16 0 46 6.24 0 46 6.30 #> 5 5 1 50 6.44 1 46 6.62 1 40 6.63 #> 6 6 0 44 6.91 0 47 6.91 0 47 6.91 #> 7 7 1 46 6.13 1 48 6.17 1 49 6.21 #> 8 8 1 51 6.33 1 50 6.40 1 50 6.54 #> 9 9 0 50 6.55 0 48 6.55 0 50 6.80 #> 10 10 0 49 6.40 0 47 6.44 0 46 6.44 #> # … with 585 more rows, and 12 more variables: union_4 <dbl>, wks_4 <dbl>, #> # lwage_4 <dbl>, union_5 <dbl>, wks_5 <dbl>, lwage_5 <dbl>, union_6 <dbl>, #> # wks_6 <dbl>, lwage_6 <dbl>, union_7 <dbl>, wks_7 <dbl>, lwage_7 <dbl>