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