File:Ruspini.png: Revision history

Jump to navigation Jump to search

Diff selection: Mark the radio buttons of the revisions to compare and hit enter or the button at the bottom.
Legend: (cur) = difference with latest revision, (prev) = difference with preceding revision, m = minor edit.

10 August 2022

  • curprev 10:4110:41, 10 August 2022‎ Brb talk contribs‎ 474 bytes +51‎ →‎Summary
  • curprev 10:2110:21, 10 August 2022‎ Brb talk contribs‎ 423 bytes +423‎ library(cluster) # ruspini is 75 x 2 data(ruspini) hc <- hclust(dist(ruspini), "ave"); plot(hc) # si <- silhouette(groups, dist(ruspini)) # plot(si, main = paste("k = ", 4)) op <- par(mfrow= c(3,2), oma= c(0,0, 3, 0), mgp= c(1.6,.8,0), mar= .1+c(4,2,2,2)) plot(hc) for(k in 2:6) { groups<- cutree(hc, k=k) si <- silhouette(groups, dist(ruspini)) plot(si, main = paste("k = ", k)) } par(op)
Retrieved from "https://wiki.taichimd.us/view/File:Ruspini.png"