# NOT RUN {
data("imageset2")
# Testing discrete factor group
res.g <- graph.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 discrete factor group with contrasts
res.gc <- graph.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),
summaryfun = "contrasts")
plot(res.gc)
# Testing continuous factor z
res.z <- graph.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