# NOT RUN {
data("imageset2")
# Testing discrete factor group
res.g <- frank.fglm2d(nsim = 19, # Increase nsim for serious analysis!
formula.full = Y ~ group + z,
formula.reduced = Y ~ z,
image_sets = list(Y = imageset2$image_set),
factors = data.frame(group = imageset2$Group,
z = imageset2$z))
plot(res.g)
# Testing continuous factor z
res.z <- frank.fglm2d(nsim = 19, # Increase nsim for serious analysis!
formula.full = Y ~ group + z,
formula.reduced = Y ~ group,
image_sets = list(Y = imageset2$image_set),
factors = data.frame(group = imageset2$Group,
z = imageset2$z))
plot(res.z)
# }
Run the code above in your browser using DataLab