\begin{Schunk}
\begin{Sinput}
 library(datasets)
 library(help=datasets)
 ?Orange
 m1 <- lm( circumference ~ age, data = Orange)
 summary(m1)
 ?cars
 m2 <- lm(dist ~ speed, data=cars) 
 summary(m2)
\end{Sinput}
\end{Schunk}
