#To get the transformed R2
output=cc_trf(0.06, 0.002, 0.05, 0.05)
output
#output$R2l (transformed R2 on the liability scale)
#0.2679337
#output$sel (transformed se on the liability scale)
#0.008931123
#output$R2O (transformed R2 on the observed scale)
#0.01343616
#output$seO (transformed se on the observed scale)
#0.000447872
Run the code above in your browser using DataLab