Please start R, then copy and paste the following three lines into your R console:
require(stats)
lm_test <- lm(rating ~ complaints, data=attitude)
print(summary(lm_test))
print(hi)
Then hit enter. Please save the output as a txt file and upload to Stellar. The first two lines of your output should look like:
Call:
lm(formula = rating ~ complaints, data = attitude)