restrshapeGPCM produces the restricted shape matrix for the 14 GPCM

`GAMc=restrshapeGPCM(lmd, Omega, SigmaB, niini, pa)`

example

The purpose of this routine is to produce the constrained shape matrix $\Gamma$.

This routine copes with the second of the 3 letters of modeltype. It deals with the cases in which the second letter is E, or I or V. If the second letter is V procedure restrshapecore is invoked and both (within groups) cshw, and (between groups) cshb constraints are imposed. If the second letter of modeltype is E just cshw is used. If the second letter is I, GAMc becomes a matrix of ones.

Garcia-Escudero, L.A., Mayo-Iscar, A. and Riani M. (2020), Robust parsimonious clustering models. Submitted.