# A GLM example
data(rimov)
nsim <- 1000 # Number of simulations
nsim <- 20
res <- graph.flm(nsim=nsim,
formula.full = Y~Year,
formula.reduced = Y~1,
curve_sets = list(Y=rimov),
factors = data.frame(Year = 1979:2014),
GET.args = list(typeone = "fdr"))
plot(res)
Run the code above in your browser using DataLab