data('Prestige', package='car')
linReg(data = Prestige, dep = 'income',
blocks = list(c('education', 'prestige', 'women')))
#
# Model Fit Measures
# ---------------------------
# Model R R<U+00B2>
# ---------------------------
# 1 0.802 0.643
# ---------------------------
#
#
#
# Model Coefficients
# -----------------------------------------------------------------
# Model Predictor Estimate SE t p
# -----------------------------------------------------------------
# 1 Intercept -253.8 1086.16 -0.234 0.816
# education 177.2 187.63 0.944 0.347
# prestige 141.4 29.91 4.729 < .001
# women -50.9 8.56 -5.948 < .001
# -----------------------------------------------------------------
#
Run the code above in your browser using DataLab