SHARE
TWEET

Untitled

a guest Jun 17th, 2019 49 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. efun <- model.matrix(m1) * resid(m1,"response")
  2. infl <- efun %*% m1$naive.cov/mean(weights(design_1))
  3. design_2 <- svydesign(id=~cntry, weights=~dweight, data=ESS)
  4. svytotal(infl, design_2)
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top