Displaying 1 result from an estimated 1 matches for "braycurtis".
2011 May 17
1
simprof test using jaccard distance
...0)
{
if (!is.matrix(data))
data <- as.matrix(data)
rawdata <- data
if (sample.orientation == "column")
rawdata <- t(rawdata)
if (is.function(method.distance))
rawdata.dist <- method.distance(rawdata)
else if (method.distance == "braycurtis") {
rawdata.dist <- braycurtis(rawdata, const)
if (!is.null(rownames(rawdata)))
attr(rawdata.dist, "Labels") <- rownames(rawdata)
}
else rawdata.dist <- dist(rawdata, method = method.distance)
if (!method.transform == "identity&qu...