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
Confusion Table
5 messages · Peter Langfelder, Jeff Newmiller, reichm@@j m@iii@g oii sbcgiob@i@@et
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 at 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 at 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.
If you turn your character variable into a factor and specify the levels argument, you can control the sequence in which any discrete values are presented.
tst_pred <- factor( tst_pred, levels=c("No","Yes") )
On January 16, 2019 4:31:15 PM PST, reichmanj at 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 at 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.
Sent from my phone. Please excuse my brevity.
That's easy enough
Thanks
-----Original Message-----
From: Peter Langfelder <peter.langfelder at gmail.com>
Sent: Wednesday, January 16, 2019 6:48 PM
To: reichmanj at sbcglobal.net
Cc: r-help <r-help at 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 at 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 at 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.
Ah yes - thank you
-----Original Message-----
From: Jeff Newmiller <jdnewmil at dcn.davis.ca.us>
Sent: Wednesday, January 16, 2019 6:49 PM
To: r-help at r-project.org; reichmanj at sbcglobal.net
Subject: Re: [R] Confusion Table
If you turn your character variable into a factor and specify the levels argument, you can control the sequence in which any discrete values are presented.
tst_pred <- factor( tst_pred, levels=c("No","Yes") )
On January 16, 2019 4:31:15 PM PST, reichmanj at 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 at 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.
-- Sent from my phone. Please excuse my brevity.