\HeaderA{daisy}{Dissimilarity Matrix Calculation}{daisy}
\keyword{cluster}{daisy}
\begin{Description}\relax
Compute all the pairwise dissimilarities (distances) between observations
in the dataset.  The original variables may be of mixed types.
\end{Description}
\begin{Usage}
\begin{verbatim}
daisy(x, metric = c("euclidean","manhattan"), stand = FALSE, type = list())
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{x}] numeric matrix or data frame.  Dissimilarities will be computed
between the rows of \code{x}.  Columns of mode \code{numeric}
(i.e. all columns when \code{x} is a matrix) will be recognized as
interval scaled variables, columns of class \code{factor} will be
recognized as nominal variables, and columns of class \code{ordered}
will be recognized as ordinal variables.  Other variable types
should be specified with the \code{type} argument.  Missing values
(\code{\LinkA{NA}{NA}}s) are allowed.

\item[\code{metric}] character string specifying the metric to be used.
The currently available options are \code{"euclidean"} (the default)
and \code{"manhattan"}.\\
Euclidean distances are root sum-of-squares of differences, and
manhattan distances are the sum of absolute differences.

If not all columns of \code{x} are numeric, then this argument
will be ignored.

\item[\code{stand}] logical flag: if TRUE, then the measurements in \code{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 mean absolute deviation.

If not all columns of
\code{x} are numeric, then this argument will be ignored.

\item[\code{type}] list for specifying some (or all) of the types of the
variables (columns) in \code{x}.  The list may contain the following
components: \code{"ordratio"} (ratio scaled variables to be treated as
ordinal variables), \code{"logratio"} (ratio scaled variables that
must be logarithmically transformed), \code{"asymm"} (asymmetric
binary) and \code{"symm"} (symmetric binary variables).  Each
component's value is a vector, containing the names or the numbers
of the corresponding columns of \code{x}.
Variables not mentioned in the \code{type} list are interpreted as
usual (see argument \code{x}).

\end{ldescription}
\end{Arguments}
\begin{Details}\relax
\code{daisy} is fully described in chapter 1 of Kaufman and Rousseeuw (1990).
Compared to \code{\LinkA{dist}{dist}} whose input must be numeric
variables, the main feature of \code{daisy} is its ability to handle
other variable types as well (e.g. nominal, ordinal, (a)symmetric
binary) even when different types occur in the same dataset.

Note that setting the type to \code{symm} (symmetric binary) gives the
same dissimilarities as using \emph{nominal} (which is chosen for
non-ordered factors) only when no missing values are present, and more
efficiently.

Note that \code{daisy} now gives a warning when 2-valued numerical
variables don't have an explicit \code{type} specified, because the
reference authors recommend to consider using \code{"asymm"}.

In the \code{daisy} algorithm, missing values in a row of x are not
included in the dissimilarities involving that row.  There are two
main cases,
\Enumerate{
\item If all variables are interval scaled,
the metric is "euclidean", and ng is the number of columns in which
neither row i and j have NAs, then the dissimilarity d(i,j) returned is
sqrt(ncol(x)/ng) times the Euclidean distance between the two vectors
of length ng shortened to exclude NAs.  The rule is similar for the
"manhattan" metric, except that the coefficient is ncol(x)/ng.
If ng is zero, the dissimilarity is NA.

\item When some variables have a type other than interval scaled, the
dissimilarity between two rows is the weighted sum of the contributions of
each variable.\\
The weight becomes zero when that variable is missing in either or both
rows, or when the variable is asymmetric binary and both values are
zero.  In all other situations, the weight of the variable is 1.

The contribution of a nominal or binary variable to the total
dissimilarity is 0 if both values are different, 1 otherwise.  The
contribution of other variables is the absolute difference of both
values, divided by the total range of that variable.  Ordinal
variables are first converted to ranks.

If \code{nok} is the number of nonzero weights, the dissimilarity is
multiplied by the factor \code{1/nok} and thus ranges between 0 and 1.
If \code{nok = 0}, the dissimilarity is set to \code{\LinkA{NA}{NA}}.
}
\end{Details}
\begin{Value}
an object of class \code{"dissimilarity"} containing the dissimilarities among
the rows of x.  This is typically the input for the functions \code{pam},
\code{fanny}, \code{agnes} or \code{diana}.  See
\code{\LinkA{dissimilarity.object}{dissimilarity.object}} for details.
\end{Value}
\begin{Section}{BACKGROUND}
Dissimilarities are used as inputs to cluster analysis and
multidimensional scaling.  The choice of metric may have a
large impact.
\end{Section}
\begin{References}\relax
Kaufman, L. and Rousseeuw, P.J. (1990).
\emph{Finding Groups in Data: An Introduction to Cluster Analysis. }
Wiley, New York.

Struyf, A., Hubert, M. and Rousseeuw, P.J. (1997). Integrating Robust
Clustering Techniques in S-PLUS,
\emph{Computational Statistics and Data Analysis, \bold{26}, 17-37.}
\end{References}
\begin{SeeAlso}\relax
\code{\LinkA{dissimilarity.object}{dissimilarity.object}}, \code{\LinkA{dist}{dist}},
\code{\LinkA{pam}{pam}}, \code{\LinkA{fanny}{fanny}}, \code{\LinkA{clara}{clara}},
\code{\LinkA{agnes}{agnes}}, \code{\LinkA{diana}{diana}}.
\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
data(agriculture)
## Example 1 in ref:
##  Dissimilarities using Euclidean metric and without standardization
d.agr <- daisy(agriculture, metric = "euclidean", stand = FALSE)
d.agr
as.matrix(d.agr)[,"DK"] # via as.matrix.dist(.)

data(flower)
## Example 2 in ref
summary(dfl1 <- daisy(flower, type = list(asymm = 3)))
summary(dfl2 <- daisy(flower, type = list(asymm = c(1, 3), ordratio = 7)))
## this failed earlier:
summary(dfl3 <- daisy(flower,
        type = list(asymm = c("V1", "V3"), symm= 2, ordratio= 7, logratio= 8)))
\end{ExampleCode}
\end{Examples}

