আপনি যদি ডিভাইসগুলি 37 ডি তাপমাত্রা বজায় রাখার বিষয়ে আগ্রহী হন তবে আপনি তা করতে পারেন:
- প্রতিটি ব্যক্তির কাছ থেকে যেমন পাওয়া যায় তেমন সমস্ত ডেটা ব্যবহার করুন
- প্রতিটি ব্যক্তির 36 টি ট্রায়াল ব্যবহার করে 37C থেকে ব্যক্তির গড় বিচ্যুতি অনুমান করুন।
তথ্য প্রাকৃতিকভাবে পুনরাবৃত্তি ব্যবস্থা চিকিত্সার জন্য নিজেকে ধার দেয়। ব্যক্তির বিচারের ক্ষেত্রে ক্লাস্টার হিসাবে আচরণ করে, আপনি ডিভাইসের প্রভাবের আশেপাশে একটি মিথ্যা অনুমান করা আত্মবিশ্বাসের ব্যবধানের সম্ভাবনা হ্রাস করবেন। এছাড়াও, সময়ের সাথে সাথে তাপমাত্রা রক্ষণাবেক্ষণ করা ভাল ছিল কিনা তা নির্ধারণ করতে আপনি উভয় ডিভাইসের মধ্যে বা ডিভাইসের সাথে মিথস্ক্রিয়া হিসাবে সময়ের প্রভাব পরীক্ষা করতে পারেন। এই সমস্ত ভিজ্যুয়ালাইজ করার একটি উপায় সন্ধান করা অত্যন্ত গুরুত্বপূর্ণ এবং এটি একের পর এক পদ্ধতির পরামর্শ দিতে পারে। এর লাইন ধরে কিছু:
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)