# NOT RUN {
data(gifted)
histPlot(gifted$count)
histPlot(gifted$fatheriq)
histPlot(gifted$motheriq)
histPlot(gifted$motheriq - gifted$fatheriq)
plot(gifted$score ~ gifted$motheriq)
lm(gifted$score ~ gifted$motheriq + gifted$fatheriq + gifted$speak +
gifted$count + gifted$read +
gifted$edutv + gifted$cartoons)
# }
Run the code above in your browser using DataCamp Workspace