# \donttest{
load(system.file("extdata", "toy_copynumber.RData",
package = "sigminer", mustWork = TRUE
))
show_cn_freq_circos(cn)
ss <- unique(cn@data$sample)
show_cn_freq_circos(cn, groups = list(a = ss[1:5], b = ss[6:10]), cols = c("red", "green"))
# }
Run the code above in your browser using DataLab