merge with remote
[aggexp.git] / scripts / buildexp / plotPartials.R
... / ...
CommitLineData
1#models as returned by buildGAM():
2plotPartials2 = 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
16plotPartials = 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}