This function uses ggplot to produce a themed Receiver Operator Curve and calculates a Gini coefficient based on it.

giniChart(pred, act)

pred | Logit/scores/probabilities to be compared against actuals |
---|---|

act | This should be a column containing outcomes in a boolean form either as a factor or number |

`AUC`

`roc`

`giniCoef`

Other creditrisk: `giniCoef`

,
`logit.odd`

, `logit.prob`

,
`odd.logit`

, `odd.prob`

,
`prob.logit`

, `prob.odd`

,
`scaledScore`

sampledata<- data.frame(val= rnorm(100) , outcome=rbinom(100,1,.8)) giniChart(sampledata$val,sampledata$outcome)