# NOT RUN {
y = AM_sample_unipois()$y
fit = AM_mcmc_fit( y ,
AM_mix_hyperparams_unipois (alpha0=2, beta0=0.2),
mcmc_parameters = AM_mcmc_parameters(niter=20, burnin=0, thin=1, verbose=0))
eam = AM_coclustering(fit)
cluster = AM_salso(eam, "binder")
refit = AM_mcmc_refit(y , fit, cluster,
mcmc_parameters = AM_mcmc_parameters(niter=20, burnin=0, thin=1, verbose=0));
# }
Run the code above in your browser using DataLab