# Create a B matrix instance
# composed by 10 subpopulations of
# clones
B <- create_instance(
n = 10,
m = 4,
k = 1,
selection = "neutral")$B
# Create a new 'Phylotree' object
# on the basis of the B matrix
phylotree1 <- B_to_phylotree(B = B)
# Create a new 'Phylotree' object
# with the general constructor of
# the class
phylotree2 <- create_phylotree(
B = B,
clones = phylotree1@clones,
genes = phylotree1@genes,
parents = phylotree1@parents,
tree = phylotree1@tree)
# Generate the tags for the genes of
# the phyogenetic tree
tags <- LETTERS[1:nrow(B)]
# Create a new 'Phylotree' object
# with the general constructor of
# the class using tags
phylotree_tags <- create_phylotree(
B = B,
clones = phylotree1@clones,
genes = phylotree1@genes,
parents = phylotree1@parents,
tree = phylotree1@tree,
labels = tags)
Run the code above in your browser using DataLab