tests/testthat/REF-5-piaac.R

## PIAAC ref

wt5REF <- c("Wald test:", "----------",
            "H0: ",                                     
            "i_q04jVERY LITTLE = 1 ", 
            "i_q04jTO SOME EXTENT = 1 ", 
            "i_q04jTO A HIGH EXTENT = 1 ", 
            "i_q04jTO A VERY HIGH EXTENT = 1 ", "", 
            "Chi-square test:",
            "X2 = 8.7e+28, df = 4, P(> X2) = 0.0", "",                                        
            "F test:",
            "W = 2e+28, df1 = 4, df2 = 42, P(> W) = 0")

wt6REF <- c("Wald test:", "----------",
            "H0: ",
            "i_q04jVERY LITTLE = 1 ",
            "i_q04jTO SOME EXTENT = 1 ",
            "i_q04jTO A HIGH EXTENT = 1 ",
            "i_q04jTO A VERY HIGH EXTENT = 1 ", "",
            "Chi-square test:",
            "X2 = 1.2e+28, df = 4, P(> X2) = 0.0", "",
            "F test:",
            "W = 2.9e+27, df1 = 4, df2 = 77, P(> W) = 0")

wt7REF <- c("Wald test:", "----------",
            "H0: ",
            "i_q04jVERY LITTLE = 1 ",
            "i_q04jTO SOME EXTENT = 1 ",
            "i_q04jTO A HIGH EXTENT = 1 ",
            "i_q04jTO A VERY HIGH EXTENT = 1 ", "",
            "Chi-square test:",
            "X2 = 1e+29, df = 4, P(> X2) = 0.0", "",
            "F test:",
            "W = 2.5e+28, df1 = 4, df2 = 4600, P(> W) = 0")

Try the EdSurvey package in your browser

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

EdSurvey documentation built on May 2, 2019, 7:30 a.m.