{
        attach.targets()
	T
}
{
	Tfit <- update(fuel.fit)
	all.equal(fuel.fit, Tfit)
}
all.equal(formula(Fuel ~ Weight + Disp.), formula(fuel.fit))
all.equal(Fuel ~ Weight + Disp., formula(fuel.fit))
# ATT: all.equal(fuel.summary, summary(Tfit))
# Statsci adds a column of P-values to summary(Tfit)$coefficients
{	summ.Tfit.ssi <- summary(Tfit)
	summ.Tfit.ssi$coefficients <- summ.Tfit.ssi$coefficients[,-4]
	T
}
# Statsci also added a component : fstatistic, remove before testing
{summ.Tfit.ssi$fstatistic <- NULL ; T}
all.equal(fuel.summary, summ.Tfit.ssi)
{rm(summ.Tfit.ssi) ; T }
testfit(fuel.not.van)
testfit(fuel.fit.singular)
#testfit(fuel.parl)
all.equal(fuel.drop1, drop1(fuel.fit))