tests/gains.R

library(gains)

data(ciaScores)
g1<-gains(actual=ciaScores$CellPhonesPP[ciaScores$train==1],predicted=ciaScores$PredOLS[ciaScores$train==1],
      optimal=TRUE)
g2<-gains(actual=ciaScores$CellPhonesPP[ciaScores$train==0],predicted=ciaScores$PredOLS[ciaScores$train==0],
      conf="t")
print(g1)
print(g2)

Try the gains package in your browser

Any scripts or data that you put into this service are public.

gains documentation built on May 2, 2019, 3:25 a.m.