Remove tau plot and use summary instead of print

Co-authored-by: osorensen <21175639+osorensen@users.noreply.github.com>

Author: Copilot

README.Rmd

@@ -46,8 +46,8 @@ mod <- compute_sequentially(
   smc_options = set_smc_options(n_particles = 100, n_particle_filters = 1)
 )
 
-# Print model summary
-print(mod)
+# Show model summary
+summary(mod)
 ```
 
 ### Posterior Summaries
@@ -59,11 +59,6 @@ We can visualize the posterior distributions of the parameters:
 plot(mod, parameter = "alpha")
 ```
 
-```{r posterior-tau}
-# Posterior distribution of tau (precision parameter)
-plot(mod, parameter = "tau")
-```
-
 ```{r posterior-rho}
 # Posterior distribution of rho (ranking positions)
 plot(mod, parameter = "rho", items = c(1, 2, 3))

README.md

@@ -37,19 +37,23 @@ mod <- compute_sequentially(
   smc_options = set_smc_options(n_particles = 100, n_particle_filters = 1)
 )
 
-# Print model summary
-print(mod)
-#> BayesMallowsSMC2 Model
-#> ======================
-#> 
-#> Number of particles:      100
-#> Number of timepoints:     100
-#> Number of items:          5
-#> Number of clusters:       1
-#> 
-#> Log marginal likelihood:  -472.34
-#> Final ESS:                63.55
-#> Resampling events:        5/100
+# Show model summary
+summary(mod)
+#>                               Length Class  Mode   
+#> alpha                         100    -none- numeric
+#> rho                           500    -none- numeric
+#> tau                           100    -none- numeric
+#> cluster_probabilities           0    -none- numeric
+#> ESS                           100    -none- numeric
+#> resampling                    100    -none- numeric
+#> n_particle_filters            100    -none- numeric
+#> importance_weights            100    -none- numeric
+#> log_marginal_likelihood         1    -none- numeric
+#> alpha_traces                    0    -none- list   
+#> rho_traces                      0    -none- list   
+#> tau_traces                      0    -none- list   
+#> log_importance_weights_traces   0    -none- list   
+#> latent_rankings_traces          0    -none- list
 ```
 
 ### Posterior Summaries
@@ -63,13 +67,6 @@ plot(mod, parameter = "alpha")
 
 <img src="man/figures/README-posterior-alpha-1.png" width="100%" />
 
-``` r
-# Posterior distribution of tau (precision parameter)
-plot(mod, parameter = "tau")
-```
-
-<img src="man/figures/README-posterior-tau-1.png" width="100%" />
-
 ``` r
 # Posterior distribution of rho (ranking positions)
 plot(mod, parameter = "rho", items = c(1, 2, 3))