### Name: formula.pdMat
### Title: Extract pdMat Formula
### Aliases: formula.pdMat
### Keywords: models

### ** Examples

pd1 <- pdSymm(~Sex*age)
formula(pd1)