ssw(data, id, method = c("euclidean", "maximum",
"manhattan", "canberra", "binary", "minkowski",
"mahalanobis"), p = 2, cov, inverted = FALSE)
method
is character, method must be "mahalanobis" or
"euclidean", "maximum", "manhattan", "canberra", "binary"
or "minkowisk".
If method
is one of "euclidean", id
of data
and the mean (scalar of vector) of
this observations.nbcost
data(USArrests)
n <- nrow(USArrests)
ssw(USArrests, 1:n)
ssw(USArrests, 1:(n/2))
ssw(USArrests, (n/2+1):n)
ssw(USArrests, 1:(n/2)) + ssw(USArrests, (n/2+1):n)
Run the code above in your browser using DataLab