# NOT RUN {
data(PID)
PID$TVnews <- scale(PID$TVnews)
PID$Income <- scale(PID$Income)
PID$Age <- scale(PID$Age)
PID$Population <- scale(PID$Population)
star.nominal(PID ~ TVnews + Income + Population + Age + Education, data = PID)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab