\begin{Schunk}
\begin{Sinput}
 Y <- 30 + 2*X
 plot(Y ~ X)
 summary(lm(Y ~ X))
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = Y ~ X)

Residuals:
       Min         1Q     Median         3Q        Max 
-8.692e-15 -2.001e-15 -7.450e-16  1.730e-16  6.712e-14 

Coefficients:
             Estimate Std. Error   t value Pr(>|t|)    
(Intercept) 3.000e+01  8.808e-16 3.406e+16   <2e-16 ***
X           2.000e+00  8.724e-17 2.292e+16   <2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 8.8e-15 on 98 degrees of freedom
Multiple R-squared:      1,	Adjusted R-squared:      1 
F-statistic: 5.255e+32 on 1 and 98 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
