Si vous souhaitez savoir dans quelle mesure les appareils maintiennent une température de 37 ° C, vous pouvez:
- Utilisez toutes les données disponibles de chaque personne telles quelles ou
- Estimer l'écart moyen par personne par rapport au 37C en utilisant les 36 essais de chaque personne.
Les données se prêtent naturellement à un traitement à mesures répétées. En traitant les essais intra-personne comme des grappes, vous réduirez la probabilité d'un intervalle de confiance faussement estimé autour de l'effet du dispositif. En outre, vous pouvez tester l'effet du temps entre les deux appareils ou en tant qu'interaction avec l'appareil pour déterminer si le maintien de la température dans le temps était bon. Trouver un moyen de visualiser tout cela est d'une importance capitale et peut suggérer une approche plutôt qu'une autre. Quelque chose dans le sens 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)