datos<-read.table("http://math.uprag.edu/area-precio.dat",header=T)<br>
attach(datos)<br>
plot(area,precio)<br>
fit1<-coef(lm(precio~area,data=datos))<br>
<br>
library(MASS)<br>
fit2<-coef(rlm(precio~area,data=datos))<br>
<br>
abline(fit1,col=""blue""�)<br>
abline(fit2,col=""red""�)<br>
legend(locator(1),legend=c('lm azul','rlm rojo'),lty=1:2)<br>
<br>
r1<-(lm(precio~area,data=datos))<br>
r2<-(rlm(precio~area,data=datos))<br>
resid(r1)<br>
<br>
hist(resid(r1))<br>



library(UsingR)<br>
Warning message:<br>
package 'UsingR' was built under R version 2.7.2 <br>
?simple.lm<br>
simple.lm(area,precio,show.ci=TRUE,conf.level=.90)<br>
<br>
<A href="https://stat.ethz.ch/pipermail/r-help/2006-April/103153.html">https://stat.ethz.ch/pipermail/r-help/2006-April/103153.html</A><br>