EVOLUTION-MANAGER
Edit File: whiteside.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>R: House Insulation: Whiteside's Data</title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <link rel="stylesheet" type="text/css" href="R.css" /> </head><body> <table width="100%" summary="page for whiteside {MASS}"><tr><td>whiteside {MASS}</td><td style="text-align: right;">R Documentation</td></tr></table> <h2> House Insulation: Whiteside's Data </h2> <h3>Description</h3> <p>Mr Derek Whiteside of the UK Building Research Station recorded the weekly gas consumption and average external temperature at his own house in south-east England for two heating seasons, one of 26 weeks before, and one of 30 weeks after cavity-wall insulation was installed. The object of the exercise was to assess the effect of the insulation on gas consumption. </p> <h3>Usage</h3> <pre> whiteside </pre> <h3>Format</h3> <p>The <code>whiteside</code> data frame has 56 rows and 3 columns.: </p> <dl> <dt><code>Insul</code></dt><dd> <p>A factor, before or after insulation. </p> </dd> <dt><code>Temp</code></dt><dd> <p>Purportedly the average outside temperature in degrees Celsius. (These values is far too low for any 56-week period in the 1960s in South-East England. It might be the weekly average of daily minima.) </p> </dd> <dt><code>Gas</code></dt><dd> <p>The weekly gas consumption in 1000s of cubic feet. </p> </dd></dl> <h3>Source</h3> <p>A data set collected in the 1960s by Mr Derek Whiteside of the UK Building Research Station. Reported by </p> <p>Hand, D. J., Daly, F., McConway, K., Lunn, D. and Ostrowski, E. eds (1993) <em>A Handbook of Small Data Sets.</em> Chapman & Hall, p. 69. </p> <h3>References</h3> <p>Venables, W. N. and Ripley, B. D. (2002) <em>Modern Applied Statistics with S.</em> Fourth edition. Springer. </p> <h3>Examples</h3> <pre> require(lattice) xyplot(Gas ~ Temp | Insul, whiteside, panel = function(x, y, ...) { panel.xyplot(x, y, ...) panel.lmline(x, y, ...) }, xlab = "Average external temperature (deg. C)", ylab = "Gas consumption (1000 cubic feet)", aspect = "xy", strip = function(...) strip.default(..., style = 1)) gasB <- lm(Gas ~ Temp, whiteside, subset = Insul=="Before") gasA <- update(gasB, subset = Insul=="After") summary(gasB) summary(gasA) gasBA <- lm(Gas ~ Insul/Temp - 1, whiteside) summary(gasBA) gasQ <- lm(Gas ~ Insul/(Temp + I(Temp^2)) - 1, whiteside) coef(summary(gasQ)) gasPR <- lm(Gas ~ Insul + Temp, whiteside) anova(gasPR, gasBA) options(contrasts = c("contr.treatment", "contr.poly")) gasBA1 <- lm(Gas ~ Insul*Temp, whiteside) coef(summary(gasBA1)) </pre> <hr /><div style="text-align: center;">[Package <em>MASS</em> version 7.3-51.4 <a href="00Index.html">Index</a>]</div> </body></html>