### Cargar e intalar los siguientes paquetes
library(readxl)
library(TeachingDemos)
### Importar y asignar datos
# NOTA: Si se van a realizar comparaciones entre dos grupos cargar los datos como x y y, así:
x<-mod2_data$bas_1
y<-mod2_data$bas_2
### 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)
### Intervalo de confianza - proporcion
nc<-0.95 #Nivel de confianza
n<-500 #Tamaño del muestra
x<-275 #Número de defectuosos
prop.test(x,n, conf.level = nc)$conf.int