tests/testthat/REF-6-ECLS_K.R

In EdSurvey: Analysis of NCES Education Survey and Assessment Data

dat1Summary.Ref <- c(
  "   childid             gender                                           race      ",
  " Length:21357       MALE  :10927   WHITE, NON-HISPANIC                    :11788  ",
  " Class :character   FEMALE:10430   BLACK OR AFRICAN AMERICAN, NON-HISPANIC: 3224  ",
  " Mode  :character                  HISPANIC, RACE NOT SPECIFIED           : 1987  ",
  "                                   HISPANIC, RACE SPECIFIED               : 1839  ",
  "                                   ASIAN                                  : 1365  ",
  "                                   MORE THAN ONE RACE, NON HISPANIC       :  549  ",
  "                                   (Other)                                :  605  "
)

dat2Summary.Ref <- c(
  "   childid             c1height        c2height        c3height        c4height        c5height        c6height        c7height    ",
  " Length:21409       Min.   :35.00   Min.   :35.00   Min.   :35.00   Min.   :35.00   Min.   :45.00   Min.   :45.00   Min.   :24.00  ",
  " Class :character   1st Qu.:43.13   1st Qu.:44.50   1st Qu.:45.50   1st Qu.:46.76   1st Qu.:51.25   1st Qu.:55.50   1st Qu.:62.00  ",
  " Mode  :character   Median :44.50   Median :46.00   Median :47.00   Median :48.38   Median :53.00   Median :57.50   Median :64.25  ",
  "                    Mean   :44.64   Mean   :45.94   Mean   :46.99   Mean   :48.41   Mean   :53.05   Mean   :57.63   Mean   :64.37  ",
  "                    3rd Qu.:46.00   3rd Qu.:47.50   3rd Qu.:48.50   3rd Qu.:50.00   3rd Qu.:54.75   3rd Qu.:59.50   3rd Qu.:66.75  ",
  "                    Max.   :60.00   Max.   :60.00   Max.   :60.00   Max.   :60.00   Max.   :66.00   Max.   :73.00   Max.   :76.25  ",
  "                    NA's   :2374    NA's   :1599    NA's   :16317   NA's   :5425    NA's   :7513    NA's   :10329   NA's   :12443  "
)

wgt.Ref <- c(
  "There are 71 full sample weight(s) in this edsurvey.data.frame",
  "  'c1cw0' with 90 JK replicate weights.",
  "  'c1pw0' with 90 JK replicate weights.",
  "  'c1cptw0' with 90 JK replicate weights.",
  "  'c2cw0' with 90 JK replicate weights.",
  "  'c2pw0' with 90 JK replicate weights.",
  "  'c2cptw0' with 90 JK replicate weights.",
  "  'bycw0' with 90 JK replicate weights.",
  "  'bypw0' with 90 JK replicate weights.",
  "  'bycptw0' with 90 JK replicate weights.",
  "  'bycomw0' with 90 JK replicate weights.",
  "  'c3cw0' with 40 JK replicate weights.",
  "  'c4cw0' with 90 JK replicate weights.",
  "  'c34cw0' with 40 JK replicate weights.",
  "  'c3pw0' with 40 JK replicate weights.",
  "  'c4pw0' with 90 JK replicate weights.",
  "  'c34pw0' with 40 JK replicate weights.",
  "  'c4cptw0' with 90 JK replicate weights.",
  "  'c5cw0' with 90 JK replicate weights.",
  "  'c5pw0' with 90 JK replicate weights.",
  "  'c5cptw0' with 90 JK replicate weights.",
  "  'c6cw0' with 90 JK replicate weights.",
  "  'c6pw0' with 90 JK replicate weights.",
  "  'c23cw0' with 40 JK replicate weights.",
  "  'c123cw0' with 40 JK replicate weights.",
  "  'c24cw0' with 90 JK replicate weights.",
  "  'c124cw0' with 90 JK replicate weights.",
  "  'c1_4cw0' with 40 JK replicate weights.",
  "  'c23pw0' with 40 JK replicate weights.",
  "  'c123pw0' with 40 JK replicate weights.",
  "  'c24pw0' with 90 JK replicate weights.",
  "  'c124pw0' with 90 JK replicate weights.",
  "  'c1_4pw0' with 40 JK replicate weights.",
  "  'y2comw0' with 90 JK replicate weights.",
  "  'c245cw0' with 90 JK replicate weights.",
  "  'c45cw0' with 90 JK replicate weights.",
  "  'c1_5fc0' with 90 JK replicate weights.",
  "  'c1_5sc0' with 40 JK replicate weights.",
  "  'c245pw0' with 90 JK replicate weights.",
  "  'c45pw0' with 90 JK replicate weights.",
  "  'c1_5fp0' with 90 JK replicate weights.",
  "  'c1_5sp0' with 40 JK replicate weights.",
  "  'c56cw0' with 90 JK replicate weights.",
  "  'c456cw0' with 90 JK replicate weights.",
  "  'c2_6fc0' with 90 JK replicate weights.",
  "  'c1_6fc0' with 90 JK replicate weights.",
  "  'c1_6sc0' with 40 JK replicate weights.",
  "  'c56pw0' with 90 JK replicate weights.",
  "  'c456pw0' with 90 JK replicate weights.",
  "  'c2_6fp0' with 90 JK replicate weights.",
  "  'c1_6fp0' with 90 JK replicate weights.",
  "  'c1_6sp0' with 40 JK replicate weights.",
  "  'c6cptr0' with 90 JK replicate weights.",
  "  'c6cptm0' with 90 JK replicate weights.",
  "  'c6cpts0' with 90 JK replicate weights.",
  "  'c7cw0' with 90 JK replicate weights.",
  "  'c67cw0' with 90 JK replicate weights.",
  "  'c567cw0' with 90 JK replicate weights.",
  "  'c4_7cw0' with 90 JK replicate weights.",
  "  'c2_7fc0' with 90 JK replicate weights.",
  "  'c1_7fc0' with 90 JK replicate weights.",
  "  'c1_7sc0' with 40 JK replicate weights.",
  "  'c7pw0' with 90 JK replicate weights.",
  "  'c67pw0' with 90 JK replicate weights.",
  "  'c567pw0' with 90 JK replicate weights.",
  "  'c4_7pw0' with 90 JK replicate weights.",
  "  'c2_7fp0' with 90 JK replicate weights.",
  "  'c1_7fp0' with 90 JK replicate weights.",
  "  'c1_7sp0' with 40 JK replicate weights.",
  "  'c7cpte0' with 90 JK replicate weights.",
  "  'c7cptm0' with 90 JK replicate weights.",
  "  'c7cpts0' with 90 JK replicate weights."
)

lmTaylorREF <- c(
  "",
  "Formula: x8mscalk5 ~ x12sesl",
  "",
  "Weight variable: 'w8c28p_8t280'",
  "Variance method: Taylor series",
  "full data n: 18174",
  "n used: 6460",
  "",
  "Coefficients:",
  "                 coef        se       t    dof  Pr(>|t|)    ",
  "(Intercept) 113.97299   0.50535 225.532 26.076 < 2.2e-16 ***",
  "x12sesl       8.65869   0.34313  25.234 35.977 < 2.2e-16 ***",
  "---",
  "Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1",
  "",
  "Multiple R-squared: 0.1506",
  ""
)


ecls_sumREF <- c(
  "Estimates are not weighted.",
  "  Variable     N  Min. 1st Qu. Median     Mean 3rd Qu.  Max.       SD  NA's",
  "1 c7r4mscl 21409 66.17  129.25 146.33 142.2209  160.18 172.2 22.00873 12124"
)

ecls_sum_wREF <- c(
  "Estimates are weighted using the weight variable 'c7cpts0'",
  "  Variable     N Weighted N  Min.  1st Qu. Median     Mean  3rd Qu.  Max.       SD  NA's Zero weights",
  "1 c7r4mscl 21409    3941257 66.26 125.8508  144.3 139.9674 158.9715 172.2 23.62027 12124         5561"
)

ecls_rebind_lmRef <- c(
  "", "Formula: x9rscalk5 ~ x_chsex_r + p9hlphwk", "", "Weight variable: 'w9c29p_9t90'",
  "Variance method: jackknife", "JK replicates: 80", "full data n: 18174",
  "n used: 7906", "", "Coefficients:", "                        coef        se        t    dof  Pr(>|t|)    ",
  "(Intercept)        142.46410   0.74660 190.8168 67.852 < 2.2e-16 ***",
  "x_chsex_r2: FEMALE   1.44536   0.38854   3.7200 46.223 0.0005384 ***",
  "p9hlphwk            -2.11562   0.21672  -9.7619 54.904 1.338e-13 ***",
  "---", "Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1",
  "", "Multiple R-squared: 0.0284", ""
)