Added lrt proportion to ROSALI aggregation
This commit is contained in:
@ -621,6 +621,7 @@ compile_simulation2_rosali <- function(scenario) {
|
||||
thay.fpr <- mean(sapply(1:1000,function(x) ifelse(sum(!is.na(s[x,paste0("dif_detect_",1:7)]))!=0,sum(!(unlist(s[x,paste0("dif_detect_",1:7)])%in%c(s[x,"real_dif_1"],s[x,"real_dif_2"],s[x,"real_dif_3"])),na.rm=F)/7,0) ))
|
||||
|
||||
}
|
||||
lrt.pass <- mean(s$lrt_passed)
|
||||
z <- data.frame(m.beta=mean(s$beta),
|
||||
se.empirical.beta=sd(s$beta),
|
||||
se.analytical.beta=mean(s$se_beta),
|
||||
@ -636,7 +637,8 @@ compile_simulation2_rosali <- function(scenario) {
|
||||
moreflexible.detect=moreflexible.detect,
|
||||
any.detect=any.detect,
|
||||
thay.tpr=thay.tpr,
|
||||
thay.fpr=thay.fpr
|
||||
thay.fpr=thay.fpr,
|
||||
lrt.pass=lrt.pass
|
||||
)
|
||||
d <- cbind(b,a,z)
|
||||
d$prop.
|
||||
|
Reference in New Issue
Block a user