## ----eval = F-----------------------------------------------------------------
# lm.beta(lm(y ~ x, data = dat))

## ----eval = F-----------------------------------------------------------------
# lm(y ~ x, data = scale(dat))

## ----eval = F-----------------------------------------------------------------
# lm.beta(lm(y ~ 0 + x, data = dat))

## ----eval = F-----------------------------------------------------------------
# lm(y ~ 0 + x, data = scale(dat, center = F))

## ----eval = F-----------------------------------------------------------------
# lm.beta(lm(y ~ 0 + x, data = dat), complete.standardization = T)

## ----eval = F-----------------------------------------------------------------
# lm(y ~ 0 + x, data = scale(dat))