📄 whiteside.html

📁 本程序是基于linux系统下c++代码
💻 HTML
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><title>R: House Insulation: Whiteside's Data</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<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 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.:
<dl>
<dt><code>Insul</code></dt><dd>A factor, before or after insulation.
</dd>
<dt><code>Temp</code></dt><dd>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.)
</dd>
<dt><code>Gas</code></dt><dd>The weekly gas consumption in 1000s of cubic feet.
</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 &amp; 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 &lt;- lm(Gas ~ Temp, whiteside, subset = Insul=="Before")
gasA &lt;- update(gasB, subset = Insul=="After")
summary(gasB)
summary(gasA)
gasBA &lt;- lm(Gas ~ Insul/Temp - 1, whiteside)
summary(gasBA)

gasQ &lt;- lm(Gas ~ Insul/(Temp + I(Temp^2)) - 1, whiteside)
coef(summary(gasQ))

gasPR &lt;- lm(Gas ~ Insul + Temp, whiteside)
anova(gasPR, gasBA)
options(contrasts = c("contr.treatment", "contr.poly"))
gasBA1 &lt;- lm(Gas ~ Insul*Temp, whiteside)
coef(summary(gasBA1))
</pre>



<hr><div align="center">[Package <em>MASS</em> version 7.2-44 <a href="00Index.html">Index]</a></div>

</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -