# Load the data
data(immdata)
imm_pr <- repClonality(immdata$data, .method = "clonal.prop")
vis(imm_pr)
imm_top <- repClonality(immdata$data, .method = "top", .head = c(10, 100, 1000, 3000, 10000))
vis(imm_top)
imm_rare <- repClonality(immdata$data, .method = "rare")
vis(imm_rare)
imm_hom <- repClonality(immdata$data, .method = "homeo")
vis(imm_hom)
Run the code above in your browser using DataLab