Nothing
setGeneric("constancy",
function (obj, percentage = TRUE, ...)
standardGeneric("constancy")
)
setMethod("constancy",
signature(obj = "Vegsoup"),
function (obj, percentage = TRUE, ...) {
r <- contingency(obj) / nrow(obj)
if (percentage) {
r <- round(r * 100, ...)
}
return(r)
}
)
setMethod("constancy",
signature(obj = "VegsoupPartition"),
function (obj, percentage = TRUE, ...) {
r1 <- contingency(obj)
r2 <- matrix(partitions(obj),
nrow = ncol(obj), ncol = getK(obj), byrow = TRUE)
r <- r1 / r2
if (percentage) {
r <- round(r * 100, ...)
}
return(r)
}
)
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.