R whiteside 房屋隔热：怀特塞德的数据

说明

英国建筑研究站的 Derek Whiteside 先生记录了他位于英格兰东南部的房屋在两个供暖季的每周燃气消耗量和平均外部温度，其中一个是在安装空心墙隔热材料之前的 26 周，另一个是在安装空心墙隔热材料之后的 30 周。练习的目的是评估绝缘对气体消耗的影响。

用法

whiteside

格式

whiteside DataFrame 有56行3列：

Insul

绝缘之前或之后的一个因子。

Temp

据称以摄氏度为单位的平均室外温度。 (对于 1960 年代英格兰东南部的任何 56 周时期来说，这些值都太低了。这可能是每日最低值的周平均值。)

Gas

每周天然气消耗量(数千立方英尺)。

例子

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))

来源

英国建筑研究站的 Derek Whiteside 先生于 20 世纪 60 年代收集的数据集。报道者

Hand, D. J.、Daly, F.、McConway, K.、Lunn, D. 和 Ostrowski, E. 编辑 (1993) 小数据集手册。查普曼和霍尔，p。 69.

参考

Venables, W. N. and Ripley, B. D. (2002) Modern Applied Statistics with S. Fourth edition. Springer.