data("pomegranate")
attach(pomegranate)
a=DIC(trat, WL, geom = "point", ylab = "WL")
b=DIC(trat, SS, geom = "point", ylab="SS")
c=DIC(trat, AT, geom = "point", ylab = "AT")
grid.onefactor(c(a,b),model = "type1")
grid.onefactor(c(a,b),model = "type2")
grid.onefactor(c(a,b,c),model = "type3")
grid.onefactor(c(a,b,c),model = "type4")
Run the code above in your browser using DataLab