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