library(CrossClustering)
data(toy)
### toy is transposed as we want to cluster samples (columns of the
### original matrix)
toy_dist <- t(toy) |>
dist(method = "euclidean")
### Run CrossClustering
toyres <- cc_crossclustering(
toy_dist,
k_w_min = 2,
k_w_max = 5,
k2_max = 6,
out = TRUE
)
### cc_get_cluster
cc_get_cluster(toyres[], 7)
### cc_get_cluster directly from a crossclustering object
cc_get_cluster(toyres)
Run the code above in your browser using DataLab