if (FALSE) {
## How this Cat object was created
data(polknowMT)
tpm_cat <- tpmCat(polknowMT[,1:20], quadraturePoints = 100, start.val = "random")
}
## How to load this Cat object for usage
data(tpm_cat)
Run the code above in your browser using DataLab