## Para encontrar el estimador de la pendiente, probamos con 50
##   candidatos, uno a uno, y calculamos SR.
library(animation)
library(mosaic)
library(mosaicData)
library(car)
library(ggplot2)
library(lattice)
library(dplyr)
library(slidify)
library(ISLR)
ani.options(interval = 0.3, nmax = ifelse(interactive(), 
    50, 2))
par(mar = c(4, 4, 0.5, 0.1), mgp = c(2, 0.5, 0), tcl = -0.3)
least.squares()
## R version 3.2.3 (2015-12-10)
## Platform: i386-w64-mingw32/i386 (32-bit)
## Other packages: animation 2.3, mosaic 0.13.0, mosaicData 0.13.0, car 2.0-25,
## ggplot2 2.0.0, lattice 0.20-31, dplyr 0.4.3, slidify 0.5, ISLR 1.0