Ejercicio 2

En una investigación de niños maltratados en pacientes psiquiátricos, Brown y Anderson (A-IS) encontraron \(166\) pacientes en una muestra de \(947\), con antecedentes de abuso sexual y maltrato físico. Construya un intervalo de confianza de \(95\%\) para la proporción de la población.

n<- 947
alfa<- 0.05
propp<- 166/n
critico<- qnorm(1- (alfa/2))
ds_e<- sqrt(propp*(1-propp)/n)
l_i<-propp-critico*ds_e
l_s<-propp+critico*ds_e
l_i
## [1] 0.1510744
l_s
## [1] 0.1995064

CONCLUSIONES

El intervalo de confianza del 95% nos muestra que la probabilidad de que los pacientes vistos en la muestra que hayan sido victimas de maltrato físico y abuso sexual está entre 0.151 y 0.199

Ejercicio 8

  1. En una muestra aleatoria simple de \(125\) varones desempleados, quienes desertaron de la escuela preparatoria entre las edades de \(16\) y \(21\) años inclusive, \(88\) declararon que eran consumidores regulares de bebidas alcohólicas. Construya un intervalo de confianza de \(99\%\) para la proporción de la población.
n<- 125
alfa<- 0.01
propp<- 88/n
critico<- qnorm(1- (alfa/2))
ds_e<- sqrt(propp*(1-propp)/n)
l_i<-propp-critico*ds_e
l_s<-propp+critico*ds_e
l_i
## [1] 0.5988294
l_s
## [1] 0.8091706

CONCLUSIONES

El intervalo de confianza del 99% nos muestra que la probabilidad de que las personas estudiadas en la muestra hayan sido consumidores regulares de bebidas alcohólicas está entre 0.598 y 0.809

#Ultimo ejercicio Kubic et al. (A- 23) evaluaron los parámetros hematológicos de 11 pacientes con la infección , documentada , de Bordetella pertussis. Los individuos estudiados son niños infectados , con edades entre un mes y 4.5 años. La cuenta de glóbulos blancos ( WBC) ( ) en los sujetos de estudio son 20.2, 15.4, 8.4, 29.8, 40.9, 19.7, 49.5, 12.1, 32.0 , 72.9, 13.5 ( Fuente: Virginia L. Kubic, Paul T. Kubic y Richard D. Brunning, “The Morphologic and Immunophenotypic Assessment of the Lymphocytosis Accompanying Bordetella pertussis Infection”, American Journal of Clinical Pathology, 95, 809-815). Describa la población de la que podrán tomarse los datos para hacer inferencias. Construya un intervalo de confianza de 90 por ciento para la variancia de la cuenta de glóbulos blancos para esta población.

v<-c(20.2, 15.4, 8.4, 29.8, 40.9, 19.7, 49.5, 12.1, 32.0 , 72.9, 13.5)
cuasivar <- var(v)
n <- length(v)
conf <- 0.9
alfa <- 1 - conf
cuantil.izda <- qchisq(1 - alfa/2, lower.tail = FALSE, df = n - 1)
cuantil.dcha <- qchisq(alfa/2, lower.tail = FALSE, df = n - 1)
extinf <- (n - 1) * cuasivar / cuantil.dcha
extsup <- (n - 1) *cuasivar / cuantil.izda
icvar <- c(extinf, extsup)
icvar
## [1] 207.3463 963.3523

##conclusion La variazan de los datos se dan en un rango de 207.34 y 963.35.