### Name: corMatrix.pdMat
### Title: Extract Correlation Matrix from a pdMat Object
### Aliases: corMatrix.pdBlocked corMatrix.pdCompSymm corMatrix.pdDiag
###   corMatrix.pdIdent corMatrix.pdMat corMatrix.pdSymm
### Keywords: models

### ** Examples

pd1 <- pdSymm(diag(1:4))
corMatrix(pd1)