corMatrix(object)
object
as.matrix.pdMat
pdMatrix
library(lme) pd1 <- pdSymm(diag(1:4)) corMatrix(pd1)