[aggexp.git] / scripts / buildexp / plotPartials.R

#models as returned by buildGAM():
plotPartials2 = function(models, index)
{
	model1 = unserialize(models[[index]])
	model2 = unserialize(models[[index+1]])
	par(las=1, mfrow=c(2,3))
	for (i in 1:6)
	{
		#TODO: yRange = ...
		plot(model1, select = i, col=2, col.axis=2)#, ylim=yRange)
		par(new=TRUE)
		plot(model2, select = i)#, ylim=yRange)
	}
}

plotPartials = function(models, index)
{
	model = unserialize(models[[index]])
	par(las=1, mfrow=c(2,3))
	for (i in 1:6)
		plot(model, select = i)
}
Commit	Line	Data
	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	}