corentinchoisy/simul_these
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added lrt proportion to ROSALI aggregation

Browse Source
This commit is contained in:
Corentin Choisy
2024-05-16 11:16:45 +02:00
parent 9c0d4cde9f
commit 922f42cf76
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
RProject/Scripts/aggregation.R
View File

@ -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) )) 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), z <- data.frame(m.beta=mean(s$beta),
se.empirical.beta=sd(s$beta), se.empirical.beta=sd(s$beta),
se.analytical.beta=mean(s$se_beta), se.analytical.beta=mean(s$se_beta),
@ -636,7 +637,8 @@ compile_simulation2_rosali <- function(scenario) {
moreflexible.detect=moreflexible.detect, moreflexible.detect=moreflexible.detect,
any.detect=any.detect, any.detect=any.detect,
thay.tpr=thay.tpr, thay.tpr=thay.tpr,
thay.fpr=thay.fpr thay.fpr=thay.fpr,
lrt.pass=lrt.pass
) )
d <- cbind(b,a,z) d <- cbind(b,a,z)
d$prop. d$prop.