Ejemplo

Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Está en la página 1de 3

Objetivo de la investigación: Evaluar la eficacia de un fármaco para reducir la ansiedad, en los pacientes que acuden a un hospital

de la ciudad.

Estructura del tratamiento:

 Factores: Dosis del fármaco


 Niveles:
1. 10mg
2. 20mg
3. 30mg
 Tratamientos
1. 10mg
2. 20mg
3. 30mg

 Variable respuesta: El nivel de ansiedad medida en una escala del 1 al 9


 Unidades experimentales: 15 pacientes

a. ANÁLISIS ESTADÍSTICO
b. Un psicólogo clínico desea evaluar la eficacia de un fármaco para reducir la ansiedad, en los pacientes que acuden a un
hospital de la ciudad. Para ello selecciona al azar a 15 pacientes de su consulta que sufren este problema y forma
aleatoria tres grupos del mismo tamaño. A cada grupo le administra aleatoriamente una dosis del fármaco (10
miligramos, 20 miligramos y 30 miligramos). Al cabo de un tiempo les mide su nivel de ansiedad. Los resultados de la
experimentación se presentan en la siguiente tabla:

 Modelo

𝑦𝑖𝑗 = 𝜇 + 𝜏𝑖 + 𝜀𝑖𝑗
𝒚𝒊𝒋 = El nivel de ansiedad promedio del j-ésimo paciente que recibió la i-ésima dosis de fármaco.

𝝁 = El nivel de ansiedad promedio

𝝉𝒊 = Efecto de la i-ésima dosis del fármaco

𝜺𝒊𝒋 = Error aleatorio 𝜀𝑖𝑗 ∼𝑁 𝐼(0,𝜎2 )

 ANOVA

1. Establecer regla de decisión


 Teórica:
H0: El nivel de ansiedad promedio de las tres dosis de fármacos son iguales.
Ha: El nivel de ansiedad promedio es diferente en al menos una de las dosis del fármaco.

 Estadística:
H0 = 𝜇10𝑚𝑔 = 𝜇20𝑚𝑔 = 𝜇30𝑚𝑔
Ha = 𝜇10𝑚𝑔 ≠ 𝜇20𝑚𝑔 ≠ 𝜇30𝑚𝑔

2. Nivel de significancia
α = 0.05

3. Estadístico de prueba
 EXCEL
𝑇2
𝑺𝑪 = ∑ ∑ 𝑦𝑖𝑗 2 − = 473 − 375 = 98
𝑁
𝑖 𝑖
𝑇𝑗 2 𝑇 2
𝑺𝑪𝑻 = ∑ − = 465 − 375 = 90
𝑛𝑗 𝑁
𝑖
𝑴𝑪 = 𝑆𝐶 − 𝑆𝐶𝑇 = 98 − 90 = 8

𝑆𝐶𝑇 90
𝑴𝑪 = = = 45
𝐾−1 2
𝑆𝐶𝐸 8
𝑴𝑪𝑬 = = = 0.66
𝑁 − 𝐾 12
𝑀𝐶 45
𝑭= = = 67.50
𝑀𝐶𝐸 0.66

FUENTE DE VARIACIÓN SUMA DE CUADRADOS G.L CM Fc P

Tratamientos 90,00 2 45,00 67,50 2,96E-07


Error 8,00 12 0,67
Total 98,00 14
 R

Df Sum Sq Mean Sq F value Pr(>F)


Dosis 2 90 45.00 67.5 2.96e-07 ***
Residuals 12 8 0.67
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘
4. ’Regla
1 de decisión

P < 0.05  Ho se rechaza


2,96E-07 < 0.05

5. Toma de la decisión

Dado que el valor p es menor que 0.05 rechazaos la hipótesis nula, es decir, el nivel de ansiedad promedio es diferente en al
menos una de las dosis del fármaco con un 95% de confiabilidad. La dosis del fármaco afecta al nivel de ansiedad.

getwd()

dir()

#Lectura de datos

Datos <- read.table("datos.txt" , header = TRUE, dec = ",")

Datos

View(Datos)

fix(Datos)

attach(Datos)

#Descripción de datos

mean(Ansiedad) # 5

sd(Ansiedad) # 2.645751

hist(Ansiedad)

#Las hipótesis a contrastar son:

#H0: El nivel de ansiedad promedio de las tres dosis de fármacos son iguales.

#Ha: El nivel de ansiedad promedio es diferente en al menos una de las dosis del

#fármaco.
#Análisis de Varianza

anova <- aov(Ansiedad ~ Dosis)

anova

summary(anova)

#Toma de desición:

#Dado que el valor p es menor que 0.05 rechazaos la hipótesis nula, es decir, la

#ansiedad promedio es diferente en al menos una de las dosis del fármaco con un

#95% de confiabilidad. La dosis del fármaco afecta al nivel de ansiedad.

También podría gustarte