During my first pass at grading the homework, only one person's worked.
summary(lm(trial[[1]] ., data = trial[-1])
Common issues:
Good idea:
http://www-stat.wharton.upenn.edu/ haipeng/Stat540s99/homework06/interface.html