PISA_okreslamyDesign

badanie <- studenci %>%
  select(CNT, ## kraj
         SCHOOLID, ## identyfikator szkoły
         ST04Q01, ## płeć
         PV1MATH:PV5MATH, ## wartości PV
         W_FSTR1:W_FSTR80, ## wagi replikacyjne
         W_FSTUWT ## wagi ostateczne
         ) %>%
  group_by(CNT) %>% 
  do(schemat = svrepdesign(ids= ~SCHOOLID,
              type = 'Fay',
              weight = ~ W_FSTUWT,
              repweight = 'W_FSTR[1-80]+',
              data = .,
              rho = 0.5))

### podgląd obiektu
badanie