if (FALSE) {
library(GerminaR)
data <- prosopis
grt <- ger_intime(Factor = "temp"
, SeedN = "seeds"
, evalName = "D"
, method = "rel"
, data = data)
head(grt, 10)
fplot(data = grt
, type = "line"
, x = "evaluation"
, y = "mean"
, groups = "temp"
, sig = NULL)
}
Run the code above in your browser using DataLab