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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.