tests/testthat/test-multinomiallogittable.R

In Displayr/flipFormat: Formatting of R outputs

context("MultinomialLogitTable")

coefs <- structure(c(-10.6371839874366, -21.1473318227408, -40.0140995611364,
                     -74.695349220646, -57.6752798567143, 1.52718318989332, 0.858985224894962,
                     2.81843793160434, 7.04141583103933, 0.842202071143059, 0.926581550504429,
                     0.330358728189027, 1.86632091433232, 5.73666075042118, 1.48240972244652,
                     -0.0380536240462086, 0.531480181032015, 1.33076970241132, 1.58909612769266,
                     0.867452249752845, -0.117522190226239, 0.327246488579742, 0.0304685388803084,
                     -0.682428625740876, 0.319194606715998, 0.883445607309021, 1.70071237678837,
                     2.67467047070647, 3.31942068061851, 4.30705724014769, 0.313706348250227,
                     1.2227135159878, 1.80010030083648, 2.94900554311516, 3.80147955100473,
                     0.492294067689104, 1.13912010215798, 1.22067130846136, 1.95861693311849,
                     1.88923220899687), .Dim = c(5L, 8L), .Dimnames = list(c("3",
                                                                             "4", "5", "6", "7"), c("(Intercept)", "Fees", "Interest", "ATM",
                                                                                                    "FeesAndInterest", "Phone", "Branch", "Online")))

zs <- structure(c(-1.99843371422913, -3.61980107155239, -5.59275682486655,
                  -4.38332920234099, -1.68094033796382, 1.00126522230451, 0.533023002265875,
                  1.58564865345634, 2.05831931121549, 0.0991038221791613, 0.721412015393277,
                  0.242101392772374, 1.20960275209779, 1.95102057285594, 0.195235262135944,
                  -0.124253642326754, 1.61076884865786, 3.51959103445268, 2.49848649581781,
                  0.639481328254579, -0.259835687599358, 0.689906302812269, 0.0601050192589996,
                  -0.867928529734137, 0.150022133356155, 2.40148753334963, 4.25984490356148,
                  5.783124359084, 4.18456720052142, 2.09054940146202, 1.12742880866694,
                  3.94183325197558, 4.90438484328479, 4.56089110209482, 2.33757083938644,
                  1.4402842577306, 3.076085324397, 3.0128623804422, 2.91732459618397,
                  1.29527274724345), .Dim = c(5L, 8L), .Dimnames = list(c("3",
                                                                          "4", "5", "6", "7"), c("(Intercept)", "Fees", "Interest", "ATM",
                                                                                                 "FeesAndInterest", "Phone", "Branch", "Online")))

ps <- structure(c(0.0456696595758803, 0.000294829589271073, 2.23492209183718e-08,
                  0.000011687928882731, 0.0927745037705139, 0.316698601691119,
                  0.59401765752769, 0.112819032891404, 0.0395594916245483, 0.921055837370237,
                  0.470656056188995, 0.808701599024693, 0.226431361612534, 0.051054598545756,
                  0.845208774983861, 0.901114450838454, 0.107230113163785, 0.000432212682056177,
                  0.0124724894501418, 0.522509856567519, 0.79499052142386, 0.490253111977276,
                  0.952071992402297, 0.385433459502803, 0.88074715298545, 0.0163285654396561,
                  0.0000204568804234029, 7.33258143092996e-09, 0.0000285709920411215,
                  0.0365684755462583, 0.259561224455931, 0.0000808611865912301,
                  0.000000937205840711997, 0.0000050936993813977, 0.0194095221331052,
                  0.14978699334977, 0.00209737816571343, 0.00258796248098569, 0.00353048155361635,
                  0.195226157049067), .Dim = c(5L, 8L), .Dimnames = list(c("3",
                                                                           "4", "5", "6", "7"), c("(Intercept)", "Fees", "Interest", "ATM",
                                                                                                  "FeesAndInterest", "Phone", "Branch", "Online")))

ft <- "Yo! This footer specifically designed
    to communicate important information.
    Since it is so important, it will of course
    extend over many lines.  In fact, on narrow tables,
    it might take >3.  On wide tables, it might only
    require one.  Feel free to adjust the width,
    and the importance and significance does not
    go away."

expect_error(MultinomialLogitTable(coefs, zs, ps, title = "My awesome regression",
                                   subtitle = "Big brown dog", footer = ft), NA)