## Function to compute standardized alpha
Alphaz <- function(Rxx){
k <- ncol(Rxx)
k/(k-1) * (1 - (k/sum(Rxx)) )
}# END Alphaz
## Example 1
## Generate 25 6 x 6 R matrices with a standardized alpha of .85
alpha = .85
k = 6
Nmats = 25
SEED = 1
out = alphaR(alpha, k , Nmats, SEED)
Alphaz(out$Rlist[[1]])
## Example 2
## Generate 25 6 x 6 R matrices with a standardized alpha of -5
alpha = -5
k = 6
Nmats = 25
SEED = 1
out = alphaR(alpha, k , Nmats, SEED)
Alphaz(out$Rlist[[5]])
Run the code above in your browser using DataLab