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

Corrected RESALI bug

Browse Source
This commit is contained in:
Corentin Choisy
2024-04-23 14:24:34 +02:00
parent 338495f87a
commit 1ffe8f126b
4 changed files with 337 additions and 341 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
RProject/Scripts/functions/resali.R
View File

@ -61,6 +61,14 @@ resali <- function(df=NULL,items=NULL,group=NULL,verbose=T) {
pval[i] <- res.anova[[i]][1,"Pr(>F)"]
fval[i] <- res.anova[[i]][1,'F value']
}
zz <- 0
for (name_i in items_n) {
zz <- zz+1
if (grepl("TT",name_i)) {
pval[zz] <- 1
fval[zz] <- 0
}
}
if (verbose) {
cat('DONE\n')
cat('-----------------------------------------------------------\n')

16
RProject/Scripts/resali_generate_newdata.R
View File

@ -120,14 +120,7 @@ for (r in results) {
names(analyse)[names(analyse)=="dif.detect.unif.2"] <- "dif_detect_unif_2"
names(analyse)[names(analyse)=="dif.detect.unif.3"] <- "dif_detect_unif_3"
names(analyse)[names(analyse)=="dif.detect.unif.4"] <- "dif_detect_unif_4"
analyse[analyse$dif_detect_1==999,"dif_detect_1"] <- ""
analyse[analyse$dif_detect_2==999,"dif_detect_2"] <- ""
analyse[analyse$dif_detect_3==999,"dif_detect_3"] <- ""
analyse[analyse$dif_detect_4==999,"dif_detect_4"] <- ""
analyse[analyse$dif_detect_unif_1==999,"dif_detect_unif_1"] <- ""
analyse[analyse$dif_detect_unif_2==999,"dif_detect_unif_2"] <- ""
analyse[analyse$dif_detect_unif_3==999,"dif_detect_unif_3"] <- ""
analyse[analyse$dif_detect_unif_4==999,"dif_detect_unif_4"] <- ""
if (scen==3 | scen==4 | scen>=13) {
names(analyse)[names(analyse)=="dif.detect.5"] <- "dif_detect_5"
@ -136,12 +129,7 @@ for (r in results) {
names(analyse)[names(analyse)=="dif.detect.unif.5"] <- "dif_detect_unif_5"
names(analyse)[names(analyse)=="dif.detect.unif.6"] <- "dif_detect_unif_6"
names(analyse)[names(analyse)=="dif.detect.unif.7"] <- "dif_detect_unif_7"
analyse[analyse$dif_detect_5==999,"dif_detect_5"] <- ""
analyse[analyse$dif_detect_6==999,"dif_detect_6"] <- ""
analyse[analyse$dif_detect_7==999,"dif_detect_7"] <- ""
analyse[analyse$dif_detect_unif_5==999,"dif_detect_unif_5"] <- ""
analyse[analyse$dif_detect_unif_6==999,"dif_detect_unif_6"] <- ""
analyse[analyse$dif_detect_unif_7==999,"dif_detect_unif_7"] <- ""
}
analyse <- analyse[,!names(analyse) %in% c("X","X.1","X.2")]
write.csv(analyse,paste0("/home/corentin/Documents/These/Recherche/Simulations/Analysis/RESALI/Detection_data/",r,".csv"))