### Analisis descriptivo en R ###
### Version 2.0 ###

### Nombre de datos: "x"
x <- na.omit(x) #comando para eliminar vacios

### Analisis descriptivo
summary(x)                      #Resumen del analisis descriptivo
length(x)                       #Numero de datos
n<-length(x)                    #Asignacinn de n=numero de datos
mean(x)                         #Promedio
median(x)                       #Mediana
var(x)                          #Varianza muestral (dividida por n-1)
var(x)*(n-1)/n                  #Varianza poblacional o de datos (dividida por n)
sd(x)                           #Desviacion estandar muestral(dividida por n-1)
((sd(x)^2)*((200-1)/200))^(1/2) #Desviacion estandar poblacional (dividida por n)
(sd(x)/mean(x))*100             #Coeficiente de variacion
max(x)-min(x)                   #Rango  
quantile(x)                     #Muestra todos los cuantiles
quantile(x, c(.35, .60, .98))   #Muestra  los cuantiles seleccionados
sd(x)/(n^(1/2))                 #Error tipico    
sum(x)                          #Total

### Cargar e intalar los siguientes paquetes
install.packages("TeachingDemos") 
library(TeachingDemos)

### Intervalo de confianza - media
nc<-0.95     #Nivel de confianza
t.test(x, conf.level = nc)$conf.int

### Intervalo de confianza - varianza
nc<-0.95     #Nivel de confianza
sigma.test(x)$conf.int

### Intervalo de confianza - desviación
nc<-0.95     #Nivel de confianza
sqrt(sigma.test(x)$conf.int)