# NOT RUN {
us <- USJudgeRatings
names(us)
lm1 <- lm ( CONT ~ INTG + DMNR + DILG, us)
lm.beta(lm1)
# Standardized data (using Make.Z())
usz <- data.frame (Make.Z (us))
lm1.z <- lm ( CONT ~ INTG + DMNR + DILG, usz)
# compare standardized data versus lm.beta
summary(lm1.z)
# }
Run the code above in your browser using DataLab