#Carrega a base de dados cars
{r}
datasets::cars
#Cria gráficos de distribuição e boxplots
{r}
par(mfrow=c(1,2))
hist(cars$speed, main = "velocidade")
hist(cars$dist, main = "distancia")
boxplot(cars$speed, main = "velocidade")
boxplot(cars$dist, main = "distancia")
O exercício pergunta se há ponto discrepante (outliers). A resposta do exercício foi a letra C mas, quando rodo o código o ponto discrepante é 120. A resposta seria A. A resposta do exercicio está correta?
