Si está interesado en qué tan bien los dispositivos mantienen una temperatura de 37 ° C, puede:
- Utilice todos los datos disponibles de cada persona tal cual o
- Estime la desviación media por persona de 37 ° C utilizando los 36 ensayos de cada persona.
Los datos se prestan naturalmente al tratamiento de medidas repetidas. Al tratar los ensayos dentro de la persona como grupos, reducirá la probabilidad de un intervalo de confianza falsamente estimado alrededor del efecto del dispositivo. Además, puede probar el efecto del tiempo entre ambos dispositivos o como una interacción con el dispositivo para determinar si el mantenimiento de la temperatura a lo largo del tiempo fue bueno. Encontrar una manera de visualizar todo esto es de importancia clave y puede sugerir un enfoque sobre otro. Algo en la línea de:
library(dplyr)
library(lme4)
set.seed(42)
id <- rep(1:500, each=36)
time <- rep(1:36,500)
temp <- c(rnorm(36*400, 38,0.5), rnorm(36*100,37.25,0.5))
temp <- temp + 1/time
prox_37 <- temp - 37
group <- c(rep("A",36*400), rep("B",36*100))
graph_t <- ifelse(group=="A", time-0.25, time+0.25)
df <- data.frame(id,time,temp,prox_37,group, graph_t)
id_means <- group_by(df, id) %>% summarize(mean_37 = mean(prox_37))
id_means$group <- c(rep("A",400), rep("B",100))
boxplot(id_means$mean_37 ~ id_means$group)
plot(graph_t, prox_37, col=as.factor(group))
loess_fit <- loess(prox_37 ~ time, data = df)
lines(c(1:36), predict(loess_fit, newdata= c(1:36)) , col = "blue")
summary(t.test(mean_37 ~group, data=id_means))
model1 <- glm(prox_37 ~ as.factor(group), family = "gaussian", data=df)
model2 <- lmer(prox_37 ~ as.factor(group) + (1 | id), data=df)
model3 <- lmer(prox_37 ~ as.factor(group) + time + (1 | id), data=df)
model4 <- lmer(prox_37 ~ as.factor(group) + time + time*as.factor(group) + (1 | id), data=df)
AIC(model1)
summary(model2)
summary(model3)
summary(model4)