# NOT RUN {
jen <- make.hierarchical() #make up a correlation matrix
lowerMat(jen[1:5,1:5])
par.r <- partial.r(jen,c(1,3,5),c(2,4))
lowerMat(par.r)
cp <- corr.p(par.r,n=98) #assumes the jen data based upon n =100.
print(cp,short=FALSE) #show the confidence intervals as well
#partial all from all correlations.
lowerMat(partial.r(jen))
# }
Run the code above in your browser using DataLab