55555

data("CO2")
datos<-CO2$uptake

#media
mean(datos)

## [1] 27.2131

sd(datos)

## [1] 10.81441

#¿Cuántas plantas hay por tipo?
table(CO2$uptake)

## 
##  7.7  9.3 10.5 10.6 11.3 11.4   12 12.3 12.5   13 13.6 13.7 14.2 14.4 14.9 15.1 
##    1    1    1    2    1    1    1    1    1    1    1    1    1    1    1    1 
##   16 16.2 17.9   18 18.1 18.9 19.2 19.4 19.5 19.9   21 21.9   22 22.2 24.1 25.8 
##    1    1    3    1    1    2    1    1    1    1    1    1    1    1    1    1 
## 26.2 27.3 27.8 27.9 28.1 28.5   30 30.3 30.4 30.6 30.9 31.1 31.5 31.8 32.4 32.5 
##    1    2    1    1    1    1    1    1    1    1    1    1    1    1    3    1 
##   34 34.6 34.8   35 35.3 35.4 35.5 37.1 37.2 37.5 38.1 38.6 38.7 38.8 38.9 39.2 
##    1    1    1    1    1    1    1    1    1    1    1    1    1    1    1    1 
## 39.6 39.7 40.3 40.6 41.4 41.8 42.1 42.4 42.9 43.9 44.3 45.5 
##    1    1    1    1    2    1    1    1    1    1    1    1

table(CO2$Treatment)

## 
## nonchilled    chilled 
##         42         42

sd(CO2$uptake)

## [1] 10.81441

#histigrama 
hist(datos)

#boxplot
boxplot(CO2$uptake)

#barras
barplot(table(datos))