# NOT RUN {
#-------------------------------------------------------------------
# Checker for Two Types of Inputs
#
# 5 observations; empirical correlation of normal observations.
#-------------------------------------------------------------------
# Data Generation
d1 = array(0,c(3,3,5))
d2 = list()
for (i in 1:5){
dat = matrix(rnorm(10*3),ncol=3)
d1[,,i] = stats::cor(dat)
d2[[i]] = d1[,,i]
}
# Run
test1 = wrap.correlation(d1)
test2 = wrap.correlation(d2)
# }
Run the code above in your browser using DataLab