Completed DIF analysis stata scripts

2024-02-02 14:42:19 +01:00
parent 9ede7e1316
commit 47e96e95ca
2 changed files with 483 additions and 12 deletions
--- a/RProject/pcm.R
+++ b/RProject/pcm.R
@ -2128,6 +2128,8 @@ compile_simulation <- function(scenario) {
                  dif.size=unique(s$dif.size)
                  )
  z <- data.frame(m.beta=mean(s$beta),
+                  se.empirical.beta=sd(s$beta),
+                  se.analytical.beta=mean(s$se.beta),
                  m.low.ci.beta=mean(s$low.ci.beta),
                  m.high.ci.beta=mean(s$high.ci.beta),
                  true.value.in.ci.p=mean(s$true.value.in.ci),