tests/testthat/REF-3-TIMSS.R

g3dREF <- c("Call: gap(variable = \"mmat\", data = fin4.11, groupA = asbg01 == \"BOY\", ", 
            "    achievementLevel = c(\"Intermediate International Benchmark\"), ", 
            "    achievementDiscrete = TRUE, returnVarEstInputs = TRUE)", 
            "", "labels:", " group      definition nFullData nUsed", "     A asbg01 == \"BOY\"      5201  2361", 
            "     B       \"default\"      5201  4603", "", "percentage:", 
            "     pctA    pctAse pctB pctBse    diffAB covAB  diffABse diffABpValue    dofAB", 
            " 51.31531 0.7879732  100      0 -48.68469     0 0.7879732            0 147.1725", 
            "", "results:", "                        achievementLevel estimateA estimateAse estimateB estimateBse    diffAB    covAB diffABse diffABpValue    dofAB", 
            " At Intermediate International Benchmark  32.68984       1.619  35.19088    1.167849 -2.501043 1.387219  1.10027   0.02635198 64.60927"
)

g2pREF <- c("gapList", "Call: gap(variable = \"mmat\", data = fin4.11, groupA = asbg01 == \"BOY\", ", 
            "    groupB = asbg01 == \"GIRL\", percentiles = c(50, 90))", 
            "", "labels:", " group       definition", "     A  asbg01 == \"BOY\"", 
            "     B asbg01 == \"GIRL\"", "", "percentage:", "     pctA    pctAse     pctB    pctBse   diffAB      covAB diffABse diffABpValue    dofAB", 
            " 51.31531 0.7879732 48.68469 0.7879732 2.630613 -0.6209017 1.575946   0.09719809 147.1725", 
            "", "results:", " percentiles estimateA estimateAse estimateB estimateBse    diffAB     covAB diffABse diffABpValue     dofAB", 
            "          50  554.1336    2.383995  544.5878    3.424345  9.545764 0.1790750 4.129337   0.02186066 191.11272", 
            "          90  637.2248    4.913971  624.2690    4.908854 12.955790 0.1585891 6.922917   0.06436247  94.98472"
)

g1alREF <- c("Call: gap(variable = \"mmat\", data = fin4.11, groupA = asbg01 == \"BOY\", ", 
             "    groupB = asbg01 == \"GIRL\", achievementLevel = \"Low International Benchmark\", ", 
             "    achievementDiscrete = TRUE)", "", "labels:", " group       definition nFullData nUsed", 
             "     A  asbg01 == \"BOY\"      5201  2361", "     B asbg01 == \"GIRL\"      5201  2242", 
             "", "percentage:", "     pctA    pctAse     pctB    pctBse   diffAB      covAB diffABse diffABpValue    dofAB", 
             " 51.31531 0.7879732 48.68469 0.7879732 2.630613 -0.6209017 1.575946   0.09719809 147.1725", 
             "", "results:", "               achievementLevel estimateA estimateAse estimateB estimateBse   diffAB     covAB diffABse diffABpValue    dofAB", 
             " At Low International Benchmark  12.60369     1.37976  13.96143    1.038967 -1.35774 0.2823037  1.55518    0.3896682 29.59355"
)

g1eqREF <- c("Call: gap(variable = \"asbg07d\", data = fin4.11, groupA = asbg01 == ", 
             "    \"BOY\", groupB = asbg01 == \"GIRL\", targetLevel = \"ONCE OR TWICE A WEEK\")", 
             "", "labels:", " group       definition nFullData nUsed", "     A  asbg01 == \"BOY\"      5201  2345", 
             "     B asbg01 == \"GIRL\"      5201  2231", "", "percentage:", 
             "     pctA    pctAse     pctB    pctBse   diffAB      covAB diffABse diffABpValue    dofAB", 
             " 51.26581 0.7926966 48.73419 0.7926966 2.531625 -0.6283679 1.585393    0.1124621 146.0453", 
             "", "results:", " estimateA estimateAse estimateB estimateBse    diffAB        covAB diffABse diffABpValue    dofAB", 
             "  20.82701    1.081211  22.47612     1.02339 -1.649111 2.639739e-05 1.488722     0.270299 114.4178"
)

swREF <- c("There are 4 full sample weight(s) in this edsurvey.data.frame",
           "  'totwgt' with 150 JK replicate weights (the default). Jackknife replicate weight variables:",
           "  [1] \"jk1\"   \"jk2\"   \"jk3\"   \"jk4\"   \"jk5\"   \"jk6\"   \"jk7\"   \"jk8\"   \"jk9\"   \"jk10\"  \"jk11\"  \"jk12\"  \"jk13\"  \"jk14\"  \"jk15\"  \"jk16\"  \"jk17\"  \"jk18\"  \"jk19\"  \"jk20\"  \"jk21\"  \"jk22\"  \"jk23\"  \"jk24\"  \"jk25\"  \"jk26\"  \"jk27\"  \"jk28\"  \"jk29\"  \"jk30\"  \"jk31\"  \"jk32\"  \"jk33\"  \"jk34\"  \"jk35\"  \"jk36\"  \"jk37\"  \"jk38\"  \"jk39\"  \"jk40\"  \"jk41\"  \"jk42\"  \"jk43\"  \"jk44\"  \"jk45\"  \"jk46\"  \"jk47\"  \"jk48\"  \"jk49\"  \"jk50\"  \"jk51\"  \"jk52\"  \"jk53\"  \"jk54\"  \"jk55\"  \"jk56\"  \"jk57\"  \"jk58\"  \"jk59\"  \"jk60\"  \"jk61\" ",
           " [62] \"jk62\"  \"jk63\"  \"jk64\"  \"jk65\"  \"jk66\"  \"jk67\"  \"jk68\"  \"jk69\"  \"jk70\"  \"jk71\"  \"jk72\"  \"jk73\"  \"jk74\"  \"jk75\"  \"jk76\"  \"jk77\"  \"jk78\"  \"jk79\"  \"jk80\"  \"jk81\"  \"jk82\"  \"jk83\"  \"jk84\"  \"jk85\"  \"jk86\"  \"jk87\"  \"jk88\"  \"jk89\"  \"jk90\"  \"jk91\"  \"jk92\"  \"jk93\"  \"jk94\"  \"jk95\"  \"jk96\"  \"jk97\"  \"jk98\"  \"jk99\"  \"jk100\" \"jk101\" \"jk102\" \"jk103\" \"jk104\" \"jk105\" \"jk106\" \"jk107\" \"jk108\" \"jk109\" \"jk110\" \"jk111\" \"jk112\" \"jk113\" \"jk114\" \"jk115\" \"jk116\" \"jk117\" \"jk118\" \"jk119\" \"jk120\" \"jk121\" \"jk122\"",
           "[123] \"jk123\" \"jk124\" \"jk125\" \"jk126\" \"jk127\" \"jk128\" \"jk129\" \"jk130\" \"jk131\" \"jk132\" \"jk133\" \"jk134\" \"jk135\" \"jk136\" \"jk137\" \"jk138\" \"jk139\" \"jk140\" \"jk141\" \"jk142\" \"jk143\" \"jk144\" \"jk145\" \"jk146\" \"jk147\" \"jk148\" \"jk149\" \"jk150\"",
           "",
           "  'tchwgt' with 150 JK replicate weights. Jackknife replicate weight variables:",
           "  [1] \"jk.tchwgt1\"   \"jk.tchwgt2\"   \"jk.tchwgt3\"   \"jk.tchwgt4\"   \"jk.tchwgt5\"   \"jk.tchwgt6\"   \"jk.tchwgt7\"   \"jk.tchwgt8\"   \"jk.tchwgt9\"   \"jk.tchwgt10\"  \"jk.tchwgt11\"  \"jk.tchwgt12\"  \"jk.tchwgt13\"  \"jk.tchwgt14\"  \"jk.tchwgt15\"  \"jk.tchwgt16\"  \"jk.tchwgt17\"  \"jk.tchwgt18\"  \"jk.tchwgt19\"  \"jk.tchwgt20\"  \"jk.tchwgt21\"  \"jk.tchwgt22\"  \"jk.tchwgt23\"  \"jk.tchwgt24\"  \"jk.tchwgt25\"  \"jk.tchwgt26\"  \"jk.tchwgt27\"  \"jk.tchwgt28\"  \"jk.tchwgt29\"  \"jk.tchwgt30\"  \"jk.tchwgt31\"  \"jk.tchwgt32\"  \"jk.tchwgt33\" ",
           " [34] \"jk.tchwgt34\"  \"jk.tchwgt35\"  \"jk.tchwgt36\"  \"jk.tchwgt37\"  \"jk.tchwgt38\"  \"jk.tchwgt39\"  \"jk.tchwgt40\"  \"jk.tchwgt41\"  \"jk.tchwgt42\"  \"jk.tchwgt43\"  \"jk.tchwgt44\"  \"jk.tchwgt45\"  \"jk.tchwgt46\"  \"jk.tchwgt47\"  \"jk.tchwgt48\"  \"jk.tchwgt49\"  \"jk.tchwgt50\"  \"jk.tchwgt51\"  \"jk.tchwgt52\"  \"jk.tchwgt53\"  \"jk.tchwgt54\"  \"jk.tchwgt55\"  \"jk.tchwgt56\"  \"jk.tchwgt57\"  \"jk.tchwgt58\"  \"jk.tchwgt59\"  \"jk.tchwgt60\"  \"jk.tchwgt61\"  \"jk.tchwgt62\"  \"jk.tchwgt63\"  \"jk.tchwgt64\"  \"jk.tchwgt65\"  \"jk.tchwgt66\" ",
           " [67] \"jk.tchwgt67\"  \"jk.tchwgt68\"  \"jk.tchwgt69\"  \"jk.tchwgt70\"  \"jk.tchwgt71\"  \"jk.tchwgt72\"  \"jk.tchwgt73\"  \"jk.tchwgt74\"  \"jk.tchwgt75\"  \"jk.tchwgt76\"  \"jk.tchwgt77\"  \"jk.tchwgt78\"  \"jk.tchwgt79\"  \"jk.tchwgt80\"  \"jk.tchwgt81\"  \"jk.tchwgt82\"  \"jk.tchwgt83\"  \"jk.tchwgt84\"  \"jk.tchwgt85\"  \"jk.tchwgt86\"  \"jk.tchwgt87\"  \"jk.tchwgt88\"  \"jk.tchwgt89\"  \"jk.tchwgt90\"  \"jk.tchwgt91\"  \"jk.tchwgt92\"  \"jk.tchwgt93\"  \"jk.tchwgt94\"  \"jk.tchwgt95\"  \"jk.tchwgt96\"  \"jk.tchwgt97\"  \"jk.tchwgt98\"  \"jk.tchwgt99\" ",
           "[100] \"jk.tchwgt100\" \"jk.tchwgt101\" \"jk.tchwgt102\" \"jk.tchwgt103\" \"jk.tchwgt104\" \"jk.tchwgt105\" \"jk.tchwgt106\" \"jk.tchwgt107\" \"jk.tchwgt108\" \"jk.tchwgt109\" \"jk.tchwgt110\" \"jk.tchwgt111\" \"jk.tchwgt112\" \"jk.tchwgt113\" \"jk.tchwgt114\" \"jk.tchwgt115\" \"jk.tchwgt116\" \"jk.tchwgt117\" \"jk.tchwgt118\" \"jk.tchwgt119\" \"jk.tchwgt120\" \"jk.tchwgt121\" \"jk.tchwgt122\" \"jk.tchwgt123\" \"jk.tchwgt124\" \"jk.tchwgt125\" \"jk.tchwgt126\" \"jk.tchwgt127\" \"jk.tchwgt128\" \"jk.tchwgt129\" \"jk.tchwgt130\" \"jk.tchwgt131\" \"jk.tchwgt132\"",
           "[133] \"jk.tchwgt133\" \"jk.tchwgt134\" \"jk.tchwgt135\" \"jk.tchwgt136\" \"jk.tchwgt137\" \"jk.tchwgt138\" \"jk.tchwgt139\" \"jk.tchwgt140\" \"jk.tchwgt141\" \"jk.tchwgt142\" \"jk.tchwgt143\" \"jk.tchwgt144\" \"jk.tchwgt145\" \"jk.tchwgt146\" \"jk.tchwgt147\" \"jk.tchwgt148\" \"jk.tchwgt149\" \"jk.tchwgt150\"",
           "",
           "  'matwgt' with 150 JK replicate weights. Jackknife replicate weight variables:",
           "  [1] \"jk.matwgt1\"   \"jk.matwgt2\"   \"jk.matwgt3\"   \"jk.matwgt4\"   \"jk.matwgt5\"   \"jk.matwgt6\"   \"jk.matwgt7\"   \"jk.matwgt8\"   \"jk.matwgt9\"   \"jk.matwgt10\"  \"jk.matwgt11\"  \"jk.matwgt12\"  \"jk.matwgt13\"  \"jk.matwgt14\"  \"jk.matwgt15\"  \"jk.matwgt16\"  \"jk.matwgt17\"  \"jk.matwgt18\"  \"jk.matwgt19\"  \"jk.matwgt20\"  \"jk.matwgt21\"  \"jk.matwgt22\"  \"jk.matwgt23\"  \"jk.matwgt24\"  \"jk.matwgt25\"  \"jk.matwgt26\"  \"jk.matwgt27\"  \"jk.matwgt28\"  \"jk.matwgt29\"  \"jk.matwgt30\"  \"jk.matwgt31\"  \"jk.matwgt32\"  \"jk.matwgt33\" ",
           " [34] \"jk.matwgt34\"  \"jk.matwgt35\"  \"jk.matwgt36\"  \"jk.matwgt37\"  \"jk.matwgt38\"  \"jk.matwgt39\"  \"jk.matwgt40\"  \"jk.matwgt41\"  \"jk.matwgt42\"  \"jk.matwgt43\"  \"jk.matwgt44\"  \"jk.matwgt45\"  \"jk.matwgt46\"  \"jk.matwgt47\"  \"jk.matwgt48\"  \"jk.matwgt49\"  \"jk.matwgt50\"  \"jk.matwgt51\"  \"jk.matwgt52\"  \"jk.matwgt53\"  \"jk.matwgt54\"  \"jk.matwgt55\"  \"jk.matwgt56\"  \"jk.matwgt57\"  \"jk.matwgt58\"  \"jk.matwgt59\"  \"jk.matwgt60\"  \"jk.matwgt61\"  \"jk.matwgt62\"  \"jk.matwgt63\"  \"jk.matwgt64\"  \"jk.matwgt65\"  \"jk.matwgt66\" ",
           " [67] \"jk.matwgt67\"  \"jk.matwgt68\"  \"jk.matwgt69\"  \"jk.matwgt70\"  \"jk.matwgt71\"  \"jk.matwgt72\"  \"jk.matwgt73\"  \"jk.matwgt74\"  \"jk.matwgt75\"  \"jk.matwgt76\"  \"jk.matwgt77\"  \"jk.matwgt78\"  \"jk.matwgt79\"  \"jk.matwgt80\"  \"jk.matwgt81\"  \"jk.matwgt82\"  \"jk.matwgt83\"  \"jk.matwgt84\"  \"jk.matwgt85\"  \"jk.matwgt86\"  \"jk.matwgt87\"  \"jk.matwgt88\"  \"jk.matwgt89\"  \"jk.matwgt90\"  \"jk.matwgt91\"  \"jk.matwgt92\"  \"jk.matwgt93\"  \"jk.matwgt94\"  \"jk.matwgt95\"  \"jk.matwgt96\"  \"jk.matwgt97\"  \"jk.matwgt98\"  \"jk.matwgt99\" ",
           "[100] \"jk.matwgt100\" \"jk.matwgt101\" \"jk.matwgt102\" \"jk.matwgt103\" \"jk.matwgt104\" \"jk.matwgt105\" \"jk.matwgt106\" \"jk.matwgt107\" \"jk.matwgt108\" \"jk.matwgt109\" \"jk.matwgt110\" \"jk.matwgt111\" \"jk.matwgt112\" \"jk.matwgt113\" \"jk.matwgt114\" \"jk.matwgt115\" \"jk.matwgt116\" \"jk.matwgt117\" \"jk.matwgt118\" \"jk.matwgt119\" \"jk.matwgt120\" \"jk.matwgt121\" \"jk.matwgt122\" \"jk.matwgt123\" \"jk.matwgt124\" \"jk.matwgt125\" \"jk.matwgt126\" \"jk.matwgt127\" \"jk.matwgt128\" \"jk.matwgt129\" \"jk.matwgt130\" \"jk.matwgt131\" \"jk.matwgt132\"",
           "[133] \"jk.matwgt133\" \"jk.matwgt134\" \"jk.matwgt135\" \"jk.matwgt136\" \"jk.matwgt137\" \"jk.matwgt138\" \"jk.matwgt139\" \"jk.matwgt140\" \"jk.matwgt141\" \"jk.matwgt142\" \"jk.matwgt143\" \"jk.matwgt144\" \"jk.matwgt145\" \"jk.matwgt146\" \"jk.matwgt147\" \"jk.matwgt148\" \"jk.matwgt149\" \"jk.matwgt150\"",
           "",
           "  'sciwgt' with 150 JK replicate weights. Jackknife replicate weight variables:",
           "  [1] \"jk.sciwgt1\"   \"jk.sciwgt2\"   \"jk.sciwgt3\"   \"jk.sciwgt4\"   \"jk.sciwgt5\"   \"jk.sciwgt6\"   \"jk.sciwgt7\"   \"jk.sciwgt8\"   \"jk.sciwgt9\"   \"jk.sciwgt10\"  \"jk.sciwgt11\"  \"jk.sciwgt12\"  \"jk.sciwgt13\"  \"jk.sciwgt14\"  \"jk.sciwgt15\"  \"jk.sciwgt16\"  \"jk.sciwgt17\"  \"jk.sciwgt18\"  \"jk.sciwgt19\"  \"jk.sciwgt20\"  \"jk.sciwgt21\"  \"jk.sciwgt22\"  \"jk.sciwgt23\"  \"jk.sciwgt24\"  \"jk.sciwgt25\"  \"jk.sciwgt26\"  \"jk.sciwgt27\"  \"jk.sciwgt28\"  \"jk.sciwgt29\"  \"jk.sciwgt30\"  \"jk.sciwgt31\"  \"jk.sciwgt32\"  \"jk.sciwgt33\" ",
           " [34] \"jk.sciwgt34\"  \"jk.sciwgt35\"  \"jk.sciwgt36\"  \"jk.sciwgt37\"  \"jk.sciwgt38\"  \"jk.sciwgt39\"  \"jk.sciwgt40\"  \"jk.sciwgt41\"  \"jk.sciwgt42\"  \"jk.sciwgt43\"  \"jk.sciwgt44\"  \"jk.sciwgt45\"  \"jk.sciwgt46\"  \"jk.sciwgt47\"  \"jk.sciwgt48\"  \"jk.sciwgt49\"  \"jk.sciwgt50\"  \"jk.sciwgt51\"  \"jk.sciwgt52\"  \"jk.sciwgt53\"  \"jk.sciwgt54\"  \"jk.sciwgt55\"  \"jk.sciwgt56\"  \"jk.sciwgt57\"  \"jk.sciwgt58\"  \"jk.sciwgt59\"  \"jk.sciwgt60\"  \"jk.sciwgt61\"  \"jk.sciwgt62\"  \"jk.sciwgt63\"  \"jk.sciwgt64\"  \"jk.sciwgt65\"  \"jk.sciwgt66\" ",
           " [67] \"jk.sciwgt67\"  \"jk.sciwgt68\"  \"jk.sciwgt69\"  \"jk.sciwgt70\"  \"jk.sciwgt71\"  \"jk.sciwgt72\"  \"jk.sciwgt73\"  \"jk.sciwgt74\"  \"jk.sciwgt75\"  \"jk.sciwgt76\"  \"jk.sciwgt77\"  \"jk.sciwgt78\"  \"jk.sciwgt79\"  \"jk.sciwgt80\"  \"jk.sciwgt81\"  \"jk.sciwgt82\"  \"jk.sciwgt83\"  \"jk.sciwgt84\"  \"jk.sciwgt85\"  \"jk.sciwgt86\"  \"jk.sciwgt87\"  \"jk.sciwgt88\"  \"jk.sciwgt89\"  \"jk.sciwgt90\"  \"jk.sciwgt91\"  \"jk.sciwgt92\"  \"jk.sciwgt93\"  \"jk.sciwgt94\"  \"jk.sciwgt95\"  \"jk.sciwgt96\"  \"jk.sciwgt97\"  \"jk.sciwgt98\"  \"jk.sciwgt99\" ",
           "[100] \"jk.sciwgt100\" \"jk.sciwgt101\" \"jk.sciwgt102\" \"jk.sciwgt103\" \"jk.sciwgt104\" \"jk.sciwgt105\" \"jk.sciwgt106\" \"jk.sciwgt107\" \"jk.sciwgt108\" \"jk.sciwgt109\" \"jk.sciwgt110\" \"jk.sciwgt111\" \"jk.sciwgt112\" \"jk.sciwgt113\" \"jk.sciwgt114\" \"jk.sciwgt115\" \"jk.sciwgt116\" \"jk.sciwgt117\" \"jk.sciwgt118\" \"jk.sciwgt119\" \"jk.sciwgt120\" \"jk.sciwgt121\" \"jk.sciwgt122\" \"jk.sciwgt123\" \"jk.sciwgt124\" \"jk.sciwgt125\" \"jk.sciwgt126\" \"jk.sciwgt127\" \"jk.sciwgt128\" \"jk.sciwgt129\" \"jk.sciwgt130\" \"jk.sciwgt131\" \"jk.sciwgt132\"",
           "[133] \"jk.sciwgt133\" \"jk.sciwgt134\" \"jk.sciwgt135\" \"jk.sciwgt136\" \"jk.sciwgt137\" \"jk.sciwgt138\" \"jk.sciwgt139\" \"jk.sciwgt140\" \"jk.sciwgt141\" \"jk.sciwgt142\" \"jk.sciwgt143\" \"jk.sciwgt144\" \"jk.sciwgt145\" \"jk.sciwgt146\" \"jk.sciwgt147\" \"jk.sciwgt148\" \"jk.sciwgt149\" \"jk.sciwgt150\"",
           "")

pctREF <- c("Percentile",
            "Call: percentile(variable = \"mmat\", percentiles = c(0, 1, 25, 50, 75, ", 
            "    99, 100), data = usa4.07)",
            "full data n: 12883",
            "n used: 7896", "",
            " percentile estimate      se      df confInt.ci_lower confInt.ci_upper nsmall", 
            "          0   248.67 14.4169  0.0000           248.67           251.41    0.0", 
            "          1   345.80  6.2339  6.4685           324.45           359.43   83.2", 
            "         25   479.14  2.3457 25.4166           471.34           486.58 1996.0", 
            "         50   530.75  2.5737 24.9473           523.52           537.93 3927.0", 
            "         75   581.47  2.9623 28.9851           574.03           588.96 1960.4", 
            "         99   692.15  4.1344  6.2152           684.42           707.23   79.0", 
            "        100   781.63 18.7631  0.0000           778.48           781.63    0.0")

logit1REF <- c("",
               "Formula: readSciOften ~ itsex + at4gsex",
               "Family: binomial (logit)", 
               "",
               "Weight variable: 'tchwgt'",
               "Variance method: jackknife", 
               "JK replicates: 150",
               "full data n: 12883",
               "n used: 11668",
               "", 
               "Coefficients:",
               "                 coef        se         t     dof Pr(>|t|)    ", 
               "(Intercept)  0.848121  0.038575 21.986264 148.760   <2e-16 ***", 
               "itsexBOY     0.082956  0.051089  1.623764 141.522   0.1067    ", 
               "at4gsexMALE  0.031276  0.113342  0.275942  67.495   0.7834    ", 
               "---",
               "Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1")

probit1REF <- c("",
                "Formula: readSciOften ~ itsex + at4gsex",
                "Family: binomial (probit)", 
                "",
                "Weight variable: 'tchwgt'",
                "Variance method: jackknife", 
                "JK replicates: 150",
                "full data n: 12883",
                "n used: 11668",
                "", 
                "Coefficients:",
                "                 coef        se         t     dof Pr(>|t|)    ", 
                "(Intercept)  0.524867  0.023313 22.514233 148.921   <2e-16 ***", 
                "itsexBOY     0.049938  0.030725  1.625314 142.079   0.1063    ", 
                "at4gsexMALE  0.018996  0.068057  0.279122  67.588   0.7810    ", 
                "---",
                "Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1")

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.