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.