tests/testthat/REF-1-lesdf.R

In EdSurvey: Analysis of NCES Education Survey and Assessment Data

es10REF <- c(
  "", "Formula: composite ~ dsex + b017451 ", "", "Plausible values: 5",
  "jrrIMax: 1", "Weight variable: 'origwt'", "Variance method: jackknife",
  "JK replicates: 62", "full data n: 17606", "n used: 16331", "",
  "", "Summary Table:", "   dsex              b017451    N    WTD_N      PCT   SE(PCT)     MEAN SE(MEAN)",
  "   Male Never or hardly ever 2350 2434.844 29.00978 0.6959418 270.8243 1.057078",
  "   Male Once every few weeks 1603 1638.745 19.52472 0.5020657 275.0807 1.305922",
  "   Male    About once a week 1384 1423.312 16.95795 0.5057265 281.5612 1.409587",
  "   Male  2 or 3 times a week 1535 1563.393 18.62694 0.4811497 284.9066 1.546072",
  "   Male            Every day 1291 1332.890 15.88062 0.5872731 277.2597 1.795784",
  " Female Never or hardly ever 1487 1517.609 18.20203 0.5078805 266.7897 1.519020",
  " Female Once every few weeks 1544 1552.149 18.61630 0.4892491 271.2255 1.205528",
  " Female    About once a week 1469 1514.403 18.16358 0.5782966 278.7502 1.719778",
  " Female  2 or 3 times a week 1827 1862.502 22.33864 0.4844840 282.7765 1.404107",
  " Female            Every day 1841 1890.918 22.67945 0.6553039 275.4628 1.219439"
)

es11REF2 <- c(
  "", "Formula: composite ~ dsex + b017451 ", "", "Plausible values: 5",
  "jrrIMax: 1", "Weight variable: 'origwt'", "Variance method: jackknife",
  "JK replicates: 62", "full data n: 17606", "n used: 16331", "",
  "", "Summary Table:", "   dsex              b017451    N    WTD_N      PCT   SE(PCT)     MEAN SE(MEAN)",
  "   Male Never or hardly ever 2350 2434.844 29.00978 0.6959418 270.8243 1.057078",
  "   Male Once every few weeks 1603 1638.745 19.52472 0.5020657 275.0807 1.305922",
  "   Male    About once a week 1384 1423.312 16.95795 0.5057265 281.5612 1.409587",
  "   Male  2 or 3 times a week 1535 1563.393 18.62694 0.4811497 284.9066 1.546072",
  "   Male            Every day 1291 1332.890 15.88062 0.5872731 277.2597 1.795784",
  " Female Never or hardly ever 1487 1517.609 18.20203 0.5078805 266.7897 1.519020",
  " Female Once every few weeks 1544 1552.149 18.61630 0.4892491 271.2255 1.205528",
  " Female    About once a week 1469 1514.403 18.16358 0.5782966 278.7502 1.719778",
  " Female  2 or 3 times a week 1827 1862.502 22.33864 0.4844840 282.7765 1.404107",
  " Female            Every day 1841 1890.918 22.67945 0.6553039 275.4628 1.219439"
)

es2lREF <- c(
  "", "Formula: composite ~ dsex + b017451 ", "", "Plausible values: 5",
  "jrrIMax: 5", "Weight variable: 'origwt'", "Variance method: jackknife",
  "JK replicates: 62", "full data n: 17606", "n used: 8163", "",
  "", "Summary Table:", " dsex              b017451    N    WTD_N      PCT   SE(PCT)     MEAN SE(MEAN)",
  " Male Never or hardly ever 2350 2434.844 29.00978 0.6959418 270.8243 1.063871",
  " Male Once every few weeks 1603 1638.745 19.52472 0.5020657 275.0807 1.364160",
  " Male    About once a week 1384 1423.312 16.95795 0.5057265 281.5612 1.418074",
  " Male  2 or 3 times a week 1535 1563.393 18.62694 0.4811497 284.9066 1.516851",
  " Male            Every day 1291 1332.890 15.88062 0.5872731 277.2597 1.787613"
)

es2lbREF <- c(
  "", "Formula: composite ~ dsex + b017451 ", "", "Plausible values: 5",
  "jrrIMax: 5", "Weight variable: 'origwt'", "Variance method: jackknife",
  "JK replicates: 62", "full data n: 17606", "n used: 8163", "",
  "", "Summary Table:", " dsex              b017451    N    WTD_N      PCT   SE(PCT)     MEAN SE(MEAN)",
  " Male Never or hardly ever 2350 2434.844 29.00978 0.6959418 270.8243 1.063871",
  " Male Once every few weeks 1603 1638.745 19.52472 0.5020657 275.0807 1.364160",
  " Male    About once a week 1384 1423.312 16.95795 0.5057265 281.5612 1.418074",
  " Male  2 or 3 times a week 1535 1563.393 18.62694 0.4811497 284.9066 1.516851",
  " Male            Every day 1291 1332.890 15.88062 0.5872731 277.2597 1.787613"
)