Running examples in ‘clustrd-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: clusmca
> ### Title: Joint dimension reduction and clustering of categorical data.
> ### Aliases: clusmca print.clusmca summary.clusmca fitted.clusmca
> 
> ### ** Examples
> 
> data(cmc)
> # Preprocessing: values of wife's age and number of children were categorized 
> # into three groups based on quartiles
> cmc$W_AGE = ordered(cut(cmc$W_AGE, c(16,26,39,49), include.lowest = TRUE))
> levels(cmc$W_AGE) = c("16-26","27-39","40-49") 
> cmc$NCHILD = ordered(cut(cmc$NCHILD, c(0,1,4,17), right = FALSE))
> levels(cmc$NCHILD) = c("0","1-4","5 and above")
> 
> #Cluster Correspondence Analysis solution with 3 clusters in 2 dimensions 
> #after 10 random starts
> outclusCA = clusmca(cmc, 3, 2, method = "clusCA", nstart = 10, seed = 1234)

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |=======                                                               |  10%
  |                                                                            
  |==============                                                        |  20%
  |                                                                            
  |=====================                                                 |  30%
  |                                                                            
  |============================                                          |  40%
  |                                                                            
  |===================================                                   |  50%
  |                                                                            
  |==========================================                            |  60%
  |                                                                            
  |=================================================                     |  70%
  |                                                                            
  |========================================================              |  80%
  |                                                                            
  |===============================================================       |  90%
  |                                                                            
  |======================================================================| 100%> outclusCA
Solution with 3 clusters of sizes 671 (45.6%), 610 (41.4%), 192 (13%) in 2 dimensions. 

Cluster centroids:
            Dim.1   Dim.2
Cluster 1 -0.0098 -0.0157
Cluster 2  0.0228  0.0081
Cluster 3 -0.0383  0.0294

Within cluster sum of squares by cluster:
[1] 0.1305 0.0994 0.0911
 (between_SS / total_SS =  76.33 %) 

Objective criterion value: 3.3107 

Available output:

[1] "obscoord"  "attcoord"  "centroid"  "cluster"   "criterion" "size"     
[7] "odata"     "nstart"   
> #Scatterplot (dimensions 1 and 2)
> plot(outclusCA)
Error in `levels<-.factor`(`*tmp*`, value = levels(group_df$gr)) : 
  number of levels differs
Calls: plot -> plot.clusmca -> levels<- -> levels<-.factor
Execution halted