Resolving Mismatch Between Descriptive Analysis and Slope Estimation in Linear Model Regression in R