powered by
A random sample of 50 students gift aid for students at Elmhurst College.
data("elmhurst")
A data frame with 50 observations on the following 3 variables.
family_income
Family income of the student.
gift_aid
Gift aid, in $1000s.
price_paid
Price paid by the student (tuition - gift aid).
# NOT RUN { data(elmhurst) plot(elmhurst$family_income, elmhurst$gift_aid) m <- lm(gift_aid ~ family_income, data = elmhurst) abline(m) summary(m) # }
Run the code above in your browser using DataLab