Nothing
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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.