var_error_mult_R function

Estimate the error variance of linear regression multiple R(-squared)