d = 3
SigmaS=list() #Random 2x2 correlation matrices (necessarily consistent)
for(j in 1:d){
x=runif(2,min=-1,max=1); y=runif(2,min=-1,max=1)
SigmaS[[j]]=cov2cor(x%*%t(x) + y%*%t(y))
}
result = computeR(list(c(1,2),c(2,3), c(1,3)), SigmaS = SigmaS)
result$R
Run the code above in your browser using DataLab