R Under development (unstable) (2025-02-26 r87830 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 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("flexclust")
> 
> pdf("plots.pdf")
> p05 <- bundestag(2005)
> 
> c6 <- cclust(p05, k=6, save.data=TRUE)
> 
> plot(c6)
> plot(c6, hull="ell")
> 
> image(c6)
> 
> barplot(c6)
> barplot(c6, bycluster=FALSE)
> barplot(c6, oneplot=FALSE)
> 
> barchart(c6)
> barchart(c6, shade=TRUE)
> 
> flexclust:::stripes(c6)
> flexclust:::stripes(c6, type="second")
> flexclust:::stripes(c6, type="all")
> flexclust:::stripes(c6, type="all", beside=TRUE)
> 
> plot(flexclust:::shadow(c6))
> plot(flexclust:::Silhouette(c6))
> 
> shadowStars(c6)
> shadowStars(c6, varwidth=TRUE)
> shadowStars(c6, varwidth=TRUE,
+             panel=flexclust:::panelShadowSkeleton)
> shadowStars(c6, varwidth=TRUE,
+             panel=flexclust:::panelShadowViolin)
> shadowStars(c6, varwidth=TRUE,
+             panel=flexclust:::panelShadowBP)
> 
> dev.off()
null device 
          1 
> 
> proc.time()
   user  system elapsed 
   0.95    0.10    1.07