[R] Confusion Table

[reichm@@j m@iii@g oii sbcgiob@i@@et]

That's easy enough 

Thanks

-----Original Message-----
From: Peter Langfelder <peter.langfelder using gmail.com> 
Sent: Wednesday, January 16, 2019 6:48 PM
To: reichmanj using sbcglobal.net
Cc: r-help <r-help using r-project.org>
Subject: Re: [R] Confusion Table

The lazy way is to do

tst_tab = tst_tab[c(2,1), c(2,1)]

The less lazy way is something like

tst_tab <- table(predicted = factor(tst_pred, levels = c("Yes", "No")),  actual = factor(default_tst$default, levels = c("Yes",
"No")))

Peter

On Wed, Jan 16, 2019 at 4:39 PM <reichmanj using sbcglobal.net> wrote:
>
> R-Help
>
>
>
> R-Help community is there an simple straight forward way  of changing 
> my confusion table output to list "Yes" before "No" rather than "No" 
> before "Yes" - R default.
>
>
>
> # Making predictions on the test set.
>
> tst_pred <- ifelse(predict(model_glm, newdata = default_tst, type =
> "response") > 0.5, "Yes", "No")
>
> tst_tab <- table(predicted = tst_pred, actual = default_tst$default)
>
> tst_tab
>
>
>
> ##                    actual
>
> ## predicted   No  Yes
>
> ##          No  4817  113
>
> ##          Yes      18    52
>
>
>
> Jeff
>
>
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see 
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide 
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.