1 |
set |
|
k |
|
plot |
|
method |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (set, k, plot = TRUE, method = "average")
{
d <- adist(set)
rownames(d) <- set
hc <- hclust(as.dist(d), method = method)
c.ex <- ifelse(length(set) < 70, 30/length(set), 40/length(set))
if (plot == TRUE)
plot(hc, xlab = "motifs", cex = c.ex)
rect.hclust(hc, k = k)
return(data.frame(cutree(hc, k = k)))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.