R Under development (unstable) (2024-03-07 r86063 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(MixAll)
Loading required package: rtkore
Loading required package: Rcpp

Attaching package: 'rtkore'

The following object is masked from 'package:Rcpp':

    LdFlags

> 
> data(DebTrivedi)
> dt <- DebTrivedi[1:500, c(1, 6,8, 15)]
> 
> model <- clusterPoisson( data=dt, nbCluster=2
+                        , models=clusterPoissonNames(prop = "equal")
+                        , strategy = clusterFastStrategy())
> 
> model
****************************************
* model name     = poisson_p_lk 
* data (limited to 10 samples and 10 variables) =
   ofp hosp numchron school
1   5   1    2        6    
2   1   0    2       10    
3  13   3    4       10    
4  16   1    2        3    
5   3   0    2        6    
6  17   0    5        7    
7   9   0    0        8    
8   3   0    0        8    
9   1   0    0        8    
10  0   0    0        8    
* ... ...
* nbSample       =  500 
* nbCluster      =  2 
* lnLikelihood   =  -17128.45 
* nbFreeParameter=  17 
* criterion name =  ICL 
* criterion value=  34407.46 
****************************************
*** Cluster:  1 
* Proportion =  0.5 
* lambda     =  3.389726 3.389726 3.389726 3.389726 
****************************************
*** Cluster:  2 
* Proportion =  0.5 
* lambda     =  6.882614 6.882614 6.882614 6.882614 
****************************************
> 
> proc.time()
   user  system elapsed 
   1.40    0.12    1.51