library(seedreg)
data("aristolochia")
attach(aristolochia)
#================================
# Germination
#================================
LM_model(trat,germ, grau=3)
#================================
# Germination speed
#================================
LM_model(trat, vel, grau=3,
ylab=expression("v"~(dias^-1)))
Run the code above in your browser using DataLab