{
        attach.targets()
	T
}
{
	attach(air)
	T
}
testfit(air.m)
# bug 1872 forced Statsci to group the predictors into an intermediate
# component preddata.  I unlist things. -silvia
{
air.ssi <- preplot(air.m, given = 5, confidence = 7, ranges =
	air.ranges, which.plots = "radiation")
air.ssi <- c(air.ssi[names(air.ssi)!="preddata"],c(air.ssi[["preddata"]]))
air.ssi$temperature <- NULL
air.ssi$wind <- NULL
attr(air.ssi,"class") <- "preplot.loess"  #somehow this attribute gets lost
all.equal(air.m.pp, air.ssi)
}
{rm(air.ssi);T}
{
air.ssi <- preplot(air.m, given = 5, ranges = air.ranges2, which.plots = 
	"radiation")
air.ssi <- c(air.ssi[names(air.ssi)!="preddata"],c(air.ssi[["preddata"]]))
air.ssi$temperature <- NULL
air.ssi$wind <- NULL
attr(air.ssi,"class") <- "preplot.loess"  #somehow this attribute gets lost
all.equal(air.m.pp2, air.ssi)
}
#all.equal(air.m.pp2, preplot(air.m, given = 5, ranges = air.ranges2, 
#	which.plots = "radiation"))
{rm(air.ssi) ; T}
{
	detach()
	T
}
{
	attach(ethanol)
	T
}
all.equal(ethanol.intervals, co.intervals(E, number = 9, overlap = 1/4))
testfit(ethanol.first)
all.equal(ethanol.m, update(ethanol.first, span = 1/4))
testfit(ethanol.cp)
testfit(ethanol.cp2)