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

Created ROSALI screening version

Browse Source
This commit is contained in:
Corentin Choisy
2025-02-13 15:24:10 +01:00
parent 7712f8396f
commit f04322a9db
8 changed files with 3751 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
RProject/Scripts/Analysis/resali_analysis.R
View File

@ -113,15 +113,18 @@ generate_resali <- function(scenario=NULL,grp=NULL) {
return(df_res)
}
#results <- c(sapply(1:4,function(x) paste0(x,c('A','B','C','D','E'))),sapply(5:9,function(x) paste0(x,c('A','B','C','D','E','F','G'))))
#results2 <- c(sapply(10:20,function(x) paste0(x,c('A','B','C','D','E','F','G'))))
#results <- c(sapply(c(50,100,200,300),function(x) paste0(results,'_',x)))
#results2 <- c(sapply(c(50,100,200,300),function(x) paste0(results2,'_',x)))
results <- c(sapply(c(2:4),function(x) paste0(x,c('A','B','C'))),sapply(c(6,8),function(x) paste0(x,c('A','B','C','D','E'))))
results <- c(sapply(1:4,function(x) paste0(x,c('A','B','C','D','E'))),sapply(5:9,function(x) paste0(x,c('A','B','C','D','E','F','G'))))
results2 <- c(sapply(seq(10,20,2),function(x) paste0(x,c('A','B','C','D','E'))))
results2 <- c(sapply(10:20,function(x) paste0(x,c('A','B','C','D','E','F','G'))))
results <- c(sapply(c(50,100,300),function(x) paste0(results,'_',x)))
results <- c(sapply(c(50,100,200,300),function(x) paste0(results,'_',x)))
results2 <- c(sapply(c(50,100,200,300),function(x) paste0(results2,'_',x)))
results2 <- c(sapply(c(50,100,300),function(x) paste0(results2,'_',x)))
results <- sort(results)
@ -144,13 +147,27 @@ for (r in results) {
## Liste des scenarios
results <- c(sapply(1:4,function(x) paste0(x,c('A','B','C','D','E'))),sapply(5:9,function(x) paste0(x,c('A','B','C','D','E','F','G'))))
#results <- c(sapply(1:4,function(x) paste0(x,c('A','B','C','D','E'))),sapply(5:9,function(x) paste0(x,c('A','B','C','D','E','F','G'))))
results2 <- c(sapply(10:20,function(x) paste0(x,c('A','B','C','D','E','F','G'))))
#results2 <- c(sapply(10:20,function(x) paste0(x,c('A','B','C','D','E','F','G'))))
results <- c(sapply(c(50,100,200,300),function(x) paste0(results,'_',x)))
#results <- c(sapply(c(50,100,200,300),function(x) paste0(results,'_',x)))
results2 <- c(sapply(c(50,100,200,300),function(x) paste0(results2,'_',x)))
#results2 <- c(sapply(c(50,100,200,300),function(x) paste0(results2,'_',x)))
#results <- sort(results)
#results2 <- sort(results2)
#results <- c(results,results2)
results <- c(sapply(c(2:4),function(x) paste0(x,c('A','B','C'))),sapply(c(6,8),function(x) paste0(x,c('A','B','C','D','E'))))
results2 <- c(sapply(seq(10,20,2),function(x) paste0(x,c('A','B','C','D','E'))))
results <- c(sapply(c(50,100,300),function(x) paste0(results,'_',x)))
results2 <- c(sapply(c(50,100,300),function(x) paste0(results2,'_',x)))
results <- sort(results)