# NOT RUN {
# first standardizing conservatively by SD(Y)
data(lead)
ols = lm(age ~ income, data = lead)
# for a 1-unit increase in income
evalues.OLS(est = ols$coefficients[2],
se = summary(ols)$coefficients['income', 'Std. Error'],
sd = sd(lead$age))
# for a 0.5-unit increase in income
evalues.OLS(est = ols$coefficients[2],
se = summary(ols)$coefficients['income', 'Std. Error'],
sd = sd(lead$age),
delta = 0.5)
# now use residual SD to avoid conservatism
# here makes very little difference because income and age are
# not highly correlated
evalues.OLS(est = ols$coefficients[2],
se = summary(ols)$coefficients['income', 'Std. Error'],
sd = summary(ols)$sigma)
# }
Run the code above in your browser using DataLab