powered by
addChildToRoot(current, child)
data(lupin) current <- lupin$roots[[1]] child <- current$children[[1]] current <- addChildToRoot(current, child)
Run the code above in your browser using DataLab