set.seed(882)
atree <- raphylo(5)
write_pli(
family_id = "a family",
protein_name = atree$tree$tip.label,
protein_number = 1:Ntip(atree),
go_number = "GO:123123123123"
)
# Possible outcome:
#
#
# a family
#
# 1
# 1
# [GO:123123123123]
# [EXP]
#
#
# 2
# 2
# [GO:123123123123]
# [EXP]
#
#
# 3
# 3
# [GO:123123123123]
# [EXP]
#
#
# 4
# 4
# [GO:123123123123]
# [EXP]
#
#
# 5
# 5
# [GO:123123123123]
# [EXP]
#
#
Run the code above in your browser using DataLab