SHARE
TWEET

Untitled

a guest Jun 15th, 2019 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. data(Seatbelts)
  2. SeatBelts.p <- pdata.frame(SealtBelts, index = c("state", "year"))
  3.  
  4. myols_plm.pool <- plm(formula = fatalityrate ~ sb_useage + speed65 + speed70 + ba08 + drinkage21 + log(income) + age, data = SeatBelts.p, model = "pooling")
  5. myols_lm <- lm(formula = fatalityrate ~ sb_useage + speed65 + speed70 + ba08 + drinkage21 + log(income) + age, data = SeatBelts.p)
  6.      
  7. myols_plm.pool.individual <- plm(formula = fatalityrate ~ sb_useage + speed65 + speed70 + ba08 + drinkage21 + log(income) + age + factor(state) - 1, data = SeatBelts.p, effect = "individual", model = "pooling")
  8. myols_lm.individual <- lm(formula = fatalityrate ~ sb_useage + speed65 + speed70 + ba08 + drinkage21 + log(income) + age + factor(state) - 1, data = SeatBelts.p)
  9. myols_plm.within.individual <- plm(formula = fatalityrate ~ sb_useage + speed65 + speed70 + ba08 + drinkage21 + log(income) + age, data = SeatBelts.p, model = "within")
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top