\(\sqrt{n}*mean(Y)/sd(Y)\) with \(Y=(X_i-mean(X_i))(X_j-mean(X_j))\)
vect
if TRUE returns a vector of TRUE/FALSE values, corresponding to vectorize(cor(data));
if FALSE, returns an array containing rows and columns of significative correlations
Value
Returns
a vector containing indexes \(\lbrace(i,j),\,i<j\rbrace\) for which correlation between variables \(i\) and \(j\) is significative, if vect=FALSE.
References
Roux, M. (2018). Graph inference by multiple testing with application to Neuroimaging, Ph.D., Universit<U+00E9> Grenoble Alpes, France, https://tel.archives-ouvertes.fr/tel-01971574v1.
<U+0160>id<U+00E1>k, Z. (1967). Rectangular confidence regions for the means of multivariate normal distributions. Journal of the American Statistical Association, 62(318), 626-633.
# NOT RUN {
n <- 100
p <- 10
corr_theo <- diag(1,p)
data <- MASS::mvrnorm(n,rep(0,p),corr_theo)
alpha <- 0.05
res <- SidakCor_SD(data,alpha,stat_test='empirical')
# }