### 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 - desviacion
nc<-0.95 #Nivel de confianza
sqrt(sigma.test(x)$conf.int)
