tests/testthat/REF-7-ELS.R

dat1Summary.Ref <- c(
  "     stu_id          bysex                                           byrace    ",
  " Min.   :101101   MALE  :7578   AMER. INDIAN/ALASKA NATIVE, NON-HISPANIC: 130  ",
  " 1st Qu.:188119   FEMALE:7666   ASIAN, HAWAII/PAC. ISLANDER,NON-HISPANIC:1460  ",
  " Median :279116                 BLACK OR AFRICAN AMERICAN, NON-HISPANIC :2020  ",
  " Mean   :279163                 HISPANIC, NO RACE SPECIFIED             : 996  ",
  " 3rd Qu.:370205                 HISPANIC, RACE SPECIFIED                :1221  ",
  " Max.   :461234                 MORE THAN ONE RACE, NON-HISPANIC        : 735  ",
  "                                WHITE, NON-HISPANIC                     :8682  "
)

dat2Summary.Ref <- c(
  "     sch_id          byregion       byurban    ",
  " Min.   :1011   MISSING  :  8   MISSING :   8  ",
  " 1st Qu.:3391   NORTHEAST:283   URBAN   :1374  ",
  " Median :5398   MIDWEST  :468   SUBURBAN: 400  ",
  " Mean   :4833   SOUTH    :758   RURAL   : 172  ",
  " 3rd Qu.:6273   WEST     :437                  ",
  " Max.   :9999                                  "
)

dat3Summary.Ref <- c(
  "     stu_id           f1ses1                     f1ses1qu        f1ses2                     f1ses2qu   ",
  " Min.   :101101   Min.   :-2.12000   LOWEST QUARTILE :3875   Min.   :-2.12000   LOWEST QUARTILE :3860  ",
  " 1st Qu.:190180   1st Qu.:-0.51000   SECOND QUARTILE :3853   1st Qu.:-0.52000   SECOND QUARTILE :3826  ",
  " Median :281129   Median : 0.03000   THIRD QUARTILE  :3925   Median :-0.02000   THIRD QUARTILE  :3991  ",
  " Mean   :279662   Mean   : 0.03343   HIGHEST QUARTILE:4507   Mean   : 0.03608   HIGHEST QUARTILE:4483  ",
  " 3rd Qu.:369213   3rd Qu.: 0.59000                           3rd Qu.: 0.57000                          ",
  " Max.   :461234   Max.   : 1.87000                           Max.   : 1.97000                          "
)

wgtNames.Ref <- c(
  "bystuwt", "f1qwt", "f1pnlwt", "f1trscwt", "f2qwt", "f2qtscwt", "f2bywt", "f2f1wt", "f3qwt", "f3bypnlwt", "f3f1pnlwt",
  "f3qtscwt", "f3bytscwt", "f3f1tscwt", "pswt", "f3bypnlpswt", "f3bytscpswt", "f3f1pnlpswt", "f3f1tscpswt", "f3qpswt", "f3qtscpswt", "pstscwt"
)

Try the EdSurvey package in your browser

Any scripts or data that you put into this service are public.

EdSurvey documentation built on June 27, 2024, 5:10 p.m.