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