Last chance! 50% off unlimited learning
Sale ends in
k
clusters.fanny(x, k, diss = inherits(x, "dist"),
memb.exp = 2, metric = "euclidean", stand = FALSE,
maxit = 500, tol = 1e-15)
diss
argument.In case of a matrix or data frame, each row corresponds to an observation, and each column corresponds to a variable. All variables
dist
or
dissimilarity
objects), then x
is assumed to be a
dissimilarity matrix. If FALSE, then x
is treated as
a matrix of observations by variables.2
which used to be hardwired
inside FANNY.x
are
standardized before calculating the dissimilarities. Measurements
are standardized for each variable (column), by subtracting the
variable's mean value and dividing by the variable's memaxit = 500
and tol =
1e-15
used to be hardwired inside the algor"fanny"
representing the clustering.
See fanny.object
for details. The memberships are nonnegative, and for a fixed observation i they sum to 1.
The particular method fanny
stems from chapter 4 of
Kaufman and Rousseeuw (1990) (see the references in
daisy
) and has been extended to allow user specified
memb.exp
.
Fanny aims to minimize the objective function
memb.exp
and
$d(i,j)$ is the dissimilarity between observations $i$ and $j$.
Note that $r \to 1$ gives increasingly crisper
clusterings whereas $r \to \infty$ leads to complete
fuzzyness. K&R(1990), p.191 note that values too close to 1 can lead
to slow convergence.
Compared to other fuzzy clustering methods, fanny
has the following
features: (a) it also accepts a dissimilarity matrix; (b) it is
more robust to the spherical cluster
assumption; (c) it provides
a novel graphical display, the silhouette plot (see
plot.partition
).
agnes
for background and references;
fanny.object
, partition.object
,
plot.partition
, daisy
, dist
.## generate 10+15 objects in two clusters, plus 3 objects lying
## between those clusters.
x <- rbind(cbind(rnorm(10, 0, 0.5), rnorm(10, 0, 0.5)),
cbind(rnorm(15, 5, 0.5), rnorm(15, 5, 0.5)),
cbind(rnorm( 3,3.2,0.5), rnorm( 3,3.2,0.5)))
fannyx <- fanny(x, 2)
## Note that observations 26:28 are "fuzzy" (closer to # 2):
fannyx
summary(fannyx)
plot(fannyx)
(fan.x.15 <- fanny(x, 2, memb.exp = 1.5)) # 'crispier' for obs. 26:28
(fanny(x, 2, memb.exp = 3)) # more fuzzy in general
data(ruspini)
## Plot similar to Figure 6 in Stryuf et al (1996)
plot(fanny(ruspini, 5))
Run the code above in your browser using DataLab