powered by
Returns the theoretical covariance of empirical correlations.
covD2nd(r)
a correlation matrix
Returns the theoretical covariance of 2nd order statistics, \(\sqrt{n}*mean(Y)/sd(Y)\) with \(Y=(X_i-mean(X_i))(X_j-mean(X_j))\).
covDcor
# NOT RUN { p <- 10 corr_theo <- diag(1,p) corr_theo[2:p,] <- 0.3 corr_theo[,2:p] <- 0.3 covD2nd(corr_theo) # }
Run the code above in your browser using DataLab