# NOT RUN {
## FALSE
is.binary_tree(empty_tree())
## FALSE
tr = r_(s = list(r_("toto"), r_("tata")))
is.binary_tree(tr) # unrooted tree
## TRUE
tr = r_("titi", s = list(r_("toto"), r_("tata")))
is.binary_tree(tr)
# }
Run the code above in your browser using DataLab