Re: [R] Confusion Table
Ah yes - thank you -Original Message- From: Jeff Newmiller Sent: Wednesday, January 16, 2019 6:49 PM To: r-help@r-project.org; reichm...@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, reichm...@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 1852 > > > >Jeff > > > [[alternative HTML version deleted]] > >__ >R-help@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. __ R-help@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.
Re: [R] Confusion Table
That's easy enough Thanks -Original Message- From: Peter Langfelder Sent: Wednesday, January 16, 2019 6:48 PM To: reichm...@sbcglobal.net Cc: r-help 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 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 1852 > > > > Jeff > > > [[alternative HTML version deleted]] > > __ > R-help@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. __ R-help@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.
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, reichm...@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 1852 > > > >Jeff > > > [[alternative HTML version deleted]] > >__ >R-help@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. __ R-help@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.
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 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 1852 > > > > Jeff > > > [[alternative HTML version deleted]] > > __ > R-help@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. __ R-help@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.
[R] Confusion Table
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 1852 Jeff [[alternative HTML version deleted]] __ R-help@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.