Respuestas taller en R
Enviado por Duglas Andres Tabares • 26 de Agosto de 2015 • Tarea • 493 Palabras (2 Páginas) • 147 Visitas
RESPUESTAS TALLER 3 DUBLAS TABARES
1. a) > 1-pnorm(650,560,57)
[1] 0.05717406
5.7%
b) > 1-pnorm (650, 630,61)
[1] 0.3715054
37.15%
c) > 560+qt(0.90,8-1)*57/sqrt(8)
[1] 588.5143
> 560-qt(0.90,8-1)*57/sqrt(8)
[1] 531.4857
d) > 630-qt(0.90,9-1)*57/sqrt(9)
[1] 603.4605
> 630+qt(0.90,9-1)*57/sqrt(9)
[1] 656.5395
2. a) > mean(change[active==1])
[1] 5.241379
> mean(change[active==2])
[1] 1.095238
b) > boxplot(main="Variable change para los dos tipos de pacientes", change[active==1], change[active==2])
Mi observación de la gráfica fue que los pacientes que recibieron el tratamiento activo tuvieron mejor resultado para combatir el síndrome, mientras que en los que se utilizó el placebo no hubo mucha diferencia mostrando una cantidad de valores bajos.
3. > n=16
> med=37.9
> ds=7.3
#Para el 95%
> med+qt(0.975,n-1)/sqrt(n)
[1] 38.43286
> med-qt(0.975,n-1)/sqrt(n)
[1] 37.36714
#Para el 90%
> med-qt(0.95,n-1)/sqrt(n)
[1] 37.46174
> med+qt(0.95,n-1)/sqrt(n)
[1] 38.33826
4. ------------------0--------------------------
5. > n = 400
> p = 320/n
> qnorm = qnorm(0.9)
> c(p - qnorm * sqrt(p * (1 - p)/n), p + qnorm * sqrt(p * (1 - p)/n))
[1] 0.774369 0.825631
RESPUESTAS TALLER 3 DUBLAS TABARES
1. a) > 1-pnorm(650,560,57)
[1] 0.05717406
5.7%
b) > 1-pnorm (650, 630,61)
[1] 0.3715054
37.15%
c) > 560+qt(0.90,8-1)*57/sqrt(8)
[1] 588.5143
> 560-qt(0.90,8-1)*57/sqrt(8)
[1] 531.4857
d) > 630-qt(0.90,9-1)*57/sqrt(9)
[1] 603.4605
> 630+qt(0.90,9-1)*57/sqrt(9)
[1] 656.5395
2. a) > mean(change[active==1])
[1] 5.241379
> mean(change[active==2])
[1] 1.095238
b) > boxplot(main="Variable change para los dos tipos de pacientes", change[active==1], change[active==2])
Mi observación de la gráfica fue que los pacientes que recibieron el tratamiento activo tuvieron mejor resultado para combatir el síndrome, mientras que en los que se utilizó el placebo no hubo mucha diferencia mostrando una cantidad de valores bajos.
3. > n=16
> med=37.9
> ds=7.3
#Para el 95%
> med+qt(0.975,n-1)/sqrt(n)
[1] 38.43286
> med-qt(0.975,n-1)/sqrt(n)
[1] 37.36714
#Para el 90%
> med-qt(0.95,n-1)/sqrt(n)
[1] 37.46174
> med+qt(0.95,n-1)/sqrt(n)
[1] 38.33826
4. ------------------0--------------------------
5. > n = 400
> p = 320/n
> qnorm = qnorm(0.9)
> c(p - qnorm * sqrt(p * (1 - p)/n), p + qnorm * sqrt(p * (1 - p)/n))
[1] 0.774369 0.825631
RESPUESTAS
...