scripts/buildexp/plotPartials.R

   1 #models as returned by buildGAM():
   2 plotPartials2 = function(models, index)
   3 {
   4     model1 = unserialize(models[[index]])
   5     model2 = unserialize(models[[index+1]])
   6     par(las=1, mfrow=c(2,3))
   7     for (i in 1:6)
   8     {
   9         #TODO: yRange = ...
  10         plot(model1, select = i, col=2, col.axis=2)#, ylim=yRange)
  11         par(new=TRUE)
  12         plot(model2, select = i)#, ylim=yRange)
  13     }
  14 }
  15
  16 plotPartials = function(models, index)
  17 {
  18     model = unserialize(models[[index]])
  19     par(las=1, mfrow=c(2,3))
  20     for (i in 1:6)
  21         plot(model, select = i)
  22 }