docs(readme): show some actually output

Author: m-muecke

DESCRIPTION

@@ -38,6 +38,7 @@ Suggests:
     LPCM,
     mclust,
     mlbench,
+    mlr3viz,
     RWeka,
     stream,
     testthat (>= 3.0.0)

R/MeasureClustInternal.R

@@ -2,6 +2,7 @@
 #' @include MeasureClust.R
 MeasureClustFPC = R6Class("MeasureClustFPC",
   inherit = MeasureClust,
+  cloneable = FALSE,
   public = list(
     crit = NULL,
     initialize = function(name, label) {
@@ -29,6 +30,7 @@ MeasureClustFPC = R6Class("MeasureClustFPC",
 
 MeasureClustSil = R6Class("MeasureClustSil",
   inherit = MeasureClust,
+  cloneable = FALSE,
   public = list(
     crit = NULL,
     initialize = function(name, label) {

README.Rmd

@@ -94,14 +94,18 @@ knitr::kable(msr_clust, format = "markdown", col.names = tools::toTitleCase(name
 
 ## Example
 
-```{r, eval = FALSE}
+```{r}
 library(mlr3)
+library(mlr3viz)
 library(mlr3cluster)
 
 task = tsk("usarrests")
+task
+
 learner = lrn("clust.kmeans")
-learner$train(task)
-prediction = learner$predict(task = task)
+prediction = learner$train(task)$predict(task)
+measures = msrs(c("clust.wss", "clust.silhouette"))
+prediction$score(measures, task)
 ```
 
 ## More Resources

README.md

@@ -94,12 +94,25 @@ create great visualizations with just one line of code!
 
 ``` r
 library(mlr3)
+library(mlr3viz)
 library(mlr3cluster)
 
 task = tsk("usarrests")
+task
+#> 
+#> ── <TaskClust> (50x4): US Arrests ──────────────────────────────────────────────
+#> • Target:
+#> • Properties: -
+#> • Features (4):
+#>   • int (2): Assault, UrbanPop
+#>   • dbl (2): Murder, Rape
+
 learner = lrn("clust.kmeans")
-learner$train(task)
-prediction = learner$predict(task = task)
+prediction = learner$train(task)$predict(task)
+measures = msrs(c("clust.wss", "clust.silhouette"))
+prediction$score(measures, task)
+#>        clust.wss clust.silhouette 
+#>     9.639903e+04     5.926554e-01
 ```
 
 ## More Resources