Ejercicios

Con los siguientes datos de la base de datos implementada en R cars:

cars_original <- cars[1:30, ]  # 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 outliers para explicar la distancia (variable dist) con la velocidad (variable speed) y demuestra las diferencias mediante un gráfico.