data(juniperus)
cosa <- with(juniperus,
standz.all(traq=width.um, series=traqueidogram,
wl=lumen.wall, w.char="w", G=20)
)
plot(cosa, type="l")
Run the code above in your browser using DataLab