Medidas de tendencia central y discretización de variables

#Tablas de frec y medidas de tendencia central
x<-c(1,1,2,2,2,3,3,3,4,4)
table(x)#ni

## x
## 1 2 3 4 
## 2 3 3 2

cumsum(table(x))#Ni

##  1  2  3  4 
##  2  5  8 10

table(x)/10#fi

## x
##   1   2   3   4 
## 0.2 0.3 0.3 0.2

cumsum(table(x))/10#Fi

##   1   2   3   4 
## 0.2 0.5 0.8 1.0

mean(x)

## [1] 2.5

sum(x)/10

## [1] 2.5

median(x)

## [1] 2.5

#Moda se requiere paquete
# Intervalos
x<-rnorm(100,30,2)
mean(x)

## [1] 30.25519

sd(x)

## [1] 2.000818

hist(x)

n<-length(x)
sqrt(n)

## [1] 10

dis<-cut(x,breaks = 10)
d<-data.frame(x,dis)
View(d)
table(d$dis)

## 
## (25.9,26.7] (26.7,27.5] (27.5,28.3] (28.3,29.1] (29.1,29.9] (29.9,30.7] 
##           4           7           8          10          14          15 
## (30.7,31.5] (31.5,32.4] (32.4,33.2]   (33.2,34] 
##          16          12           4          10

barplot(table(d$dis))