---------------------------------------------------------------
# Cargar el dataset "cars"
data("cars")

# Crear un histograma para la variable "speed"
hist(cars$speed)

# Agregar un título al gráfico
title("Histograma de la variable speed")

# Crear un histograma para la variable "dist"
hist(cars$dist)

# Agregar un título al gráfico
title("Histograma de la variable dist")

# Mostrar ambos histogramas al mismo tiempo
par(mfrow=c(1,2))
hist(cars$speed)
title("Histograma de la variable speed")
hist(cars$dist)
title("Histograma de la variable dist")
----------------------------------------------------------------------------------
Este código carga el conjunto de datos "cars", luego crea un histograma para cada una de las variables "speed" y "dist". También agrega un título a cada gráfico para identificar la variable correspondiente. Finalmente, muestra ambos histogramas al mismo tiempo utilizando el comando par.
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence