Searched refs:pThreshG (Results 1 – 2 of 2) sorted by relevance
/dports/science/afni/afni-AFNI_21.3.16/src/R_scripts/ |
H A D | 1dSVAR.R | 1066 pThreshG <- as.numeric(readline("p-threshold for group analysis (e.g., 0.05)? ")) globalVar 1067 surviveR <- as.numeric(grpP<=pThreshG)*grpR # for network plotting 1284 pThreshG <- as.numeric(readline("Two-tailed p-threshold for group analysis (e.g., 0.05)? ")) globalVar 1285 surviveR <- as.numeric(grpP<=pThreshG)*grpR # for plotting 1286 showSigR <- matrix(mapply(function(x,y) ifelse(x, y, NA), grpP<=pThreshG, grpR), nrow=nROIsG[1], 1288 showSigP <- matrix(mapply(function(x,y) ifelse(x, y, NA), grpP<=pThreshG, grpP), nrow=nROIsG[1], 1291 survive1R <- as.numeric(grp1P<=pThreshG)*grp1R 1292 survive2R <- as.numeric(grp2P<=pThreshG)*grp2R 1293 …showSig1R <- matrix(mapply(function(x,y) ifelse(x, y, NA), grp1P<=pThreshG, grp1R), nrow=nROIsG[1]… 1295 …showSig2R <- matrix(mapply(function(x,y) ifelse(x, y, NA), grp2P<=pThreshG, grp2R), nrow=nROIsG[1]… [all …]
|
H A D | 1dGC.R | 979 pThreshG <- as.numeric(readline("p-threshold for group analysis (e.g., 0.05)? ")) globalVar 980 surviveR <- as.numeric(grpP<=pThreshG)*grpR # for network plotting 1192 pThreshG <- as.numeric(readline("Two-tailed p-threshold for group analysis (e.g., 0.05)? ")) globalVar 1193 surviveR <- as.numeric(grpP<=pThreshG)*grpR # for plotting 1194 showSigR <- matrix(mapply(function(x,y) ifelse(x, y, NA), grpP<=pThreshG, grpR), nrow=nROIsG[1], 1196 showSigP <- matrix(mapply(function(x,y) ifelse(x, y, NA), grpP<=pThreshG, grpP), nrow=nROIsG[1], 1199 survive1R <- as.numeric(grp1P<=pThreshG)*grp1R 1200 survive2R <- as.numeric(grp2P<=pThreshG)*grp2R 1201 …showSig1R <- matrix(mapply(function(x,y) ifelse(x, y, NA), grp1P<=pThreshG, grp1R), nrow=nROIsG[1]… 1203 …showSig2R <- matrix(mapply(function(x,y) ifelse(x, y, NA), grp2P<=pThreshG, grp2R), nrow=nROIsG[1]… [all …]
|