require(ggplot2)
require(plotly)
require(datarium)

data("marketing")
head(marketing)
youtube facebook newspaper sales
276.12 45.36 83.04 26.52
53.40 47.16 54.12 12.48
20.64 55.08 83.16 11.16
181.80 49.56 70.20 22.20
216.96 12.96 70.08 15.48
10.44 58.68 90.00 8.64

interpretación: jdfhdfhdiflsdifh

##Exploración de las ventas (sales)

promedio=mean(marketing$sales) #promedio / media
desviación=sd(marketing$sales) #desviación estandar

data.frame(promedio,desviación)
promedio desviación
16.827 6.260948