Wenn Sie daran interessiert sind, wie gut Geräte eine Temperatur von 37 ° C halten, können Sie entweder:
- Verwenden Sie alle verfügbaren Daten von jeder Person wie sie sind oder
- Schätzen Sie die mittlere Abweichung pro Person von 37 ° C anhand der 36 Versuche jeder Person.
Die Daten eignen sich natürlich für die Behandlung mit wiederholten Messungen. Indem Sie Versuche innerhalb der Person als Cluster behandeln, verringern Sie die Wahrscheinlichkeit eines falsch geschätzten Konfidenzintervalls für die Auswirkung des Geräts. Darüber hinaus können Sie den Effekt der Zeit zwischen beiden Geräten oder als Interaktion mit dem Gerät testen, um festzustellen, ob die Aufrechterhaltung der Temperatur über die Zeit gut war. Die Suche nach einer Möglichkeit, all dies zu visualisieren, ist von zentraler Bedeutung und kann einen Ansatz über einen anderen vorschlagen. Etwas in der Art von:
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)