Nothing
# list occurences of species in partitions
setGeneric("spread",
function (obj, condensed = FALSE)
standardGeneric("spread")
)
setMethod("spread",
signature(obj = "VegsoupPartition"),
function (obj, condensed = FALSE) {
part <- partitioning(obj)
X <- as.logical(obj)
if (getK(obj) == 1) {
stop("single partition is not meaningful for spread", call. = FALSE)
}
res <- apply(X, 2, function (y) {
sapply(rownames(X[ y > 0, , drop = FALSE ]),
function (z) {
part[ which(names(part) == z) ]
},
USE.NAMES = FALSE)
}
)
if (condensed) {
res <- sapply(res, function (x) sort(unique(x)), simplify = FALSE)
}
return(res)
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.