powered by
meanInterbranch(obj, allroot = F)
data(lupin) r <- lupin$roots[[1]] meanInterbranch(r)
Run the code above in your browser using DataLab