corrected r sqaured value