Ejercicio 2.1:

Con los siguientes datos de la base de datos implementada en R cars: donde medimos dos variables speed (velocidad) y dist (distancia) obtenemos dos bases de datos, una original y una a la que le introducimos unos datos atípicos a la variable dist:

cars_original <- cars # original data
outliers <- data.frame(speed=c(19,19,20,20,20), dist=c(190, 186, 210, 220, 218))  # introduce outliers.
cars_outliers <- rbind(cars_original, outliers)  # data with outliers.

Ajusta una recta de regresión para los datos originales y los datos después de introducir los datos atípicos para explicar la distancia (variable dist) con la velocidad (variable speed) y demuestra las diferencias mediante un gráfico.

Después realiza un diagrama de cajas para las variables en ambas bases de datos. ¿Podemos ver datos atípicos en estas dos bases de datos?