# Create an instance
# composed by 5 subpopulations of clones
# and 4 samples
instance <- create_instance(
n = 5,
m = 4,
k = 1,
selection = "neutral")
# Extract its associated B matrix
B <- instance$B
# Create a new 'Phylotree' object
# on the basis of the B matrix
phylotree <- B_to_phylotree(B = B)
# Generate the tags for the genes of
# the phyogenetic tree
tags <- LETTERS[1:nrow(B)]
# Plot the phylogenetic tree taking
# into account the proportions of the
# previously generated instance
plot_proportions(phylotree, instance$U, labels=TRUE)
Run the code above in your browser using DataLab