predict_r2_st function

Expected R2 for single trait prediction of a continuous trait