Updated README and descriptive analysis

This commit is contained in:
2024-02-02 16:30:57 +01:00
parent 7220b3f1c9
commit 2082f4efa3
3 changed files with 100 additions and 1 deletions

View File

@ -2134,7 +2134,8 @@ compile_simulation <- function(scenario) {
m.high.ci.beta=mean(s$high.ci.beta),
true.value.in.ci.p=mean(s$true.value.in.ci),
h0.rejected.p=mean(s$h0.rejected),
beta.same.sign.truebeta.p=mean(s$beta.same.sign.truebeta,na.rm=T))
beta.same.sign.truebeta.p=mean(s$beta.same.sign.truebeta,na.rm=T),
beta.same.sign.truebeta.signif.p=mean(s[s$h0.rejected==1,]$beta.same.sign.truebeta,na.rm=T))
d <- cbind(b,a,z)
d$prop.
return(d)