### Name: pdIdent
### Title: Multiple of the Identity Positive-Definite Matrix
### Aliases: pdIdent
### Keywords: models

### ** Examples

pd1 <- pdIdent(4 * diag(3), nam = c("A","B","C"))
pd1