whiteside(MASS)
whiteside()所属R语言包：MASS
House Insulation: Whiteside's Data
房子保温隔热：怀特塞德的数据
译者：生物统计家园网 机器人LoveR
描述----------Description----------
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.
英国建筑研究站录得的议员德里克·怀特塞德每周在他自己的房子在英格兰东南部的天然气消费量和平均外部温度为两个采暖季，前26周，30周后腔墙体保温安装。此次演习的目的是评估天然气消费量的绝缘效果。
用法----------Usage----------
whiteside
格式----------Format----------
The whiteside data frame has 56 rows and 3 columns.:
whiteside数据框有56行，3列。
A factor, before or after insulation.
一个因素，之前或之后的绝缘。
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.)
据称平均摄氏度的室外温度。 （这些值太低，任何在20世纪60年代在英格兰东南部的56个星期的期间。这可能是每周平均每日最低。）
The weekly gas consumption in 1000s of cubic feet.
每周1000立方英尺的天然气消费量。
源----------Source----------
A data set collected in the 1960s by Mr Derek Whiteside of the UK Building Research Station. Reported by
一个数据集收集了在20世纪60年代由英国建筑研究站的议员德里克·怀特塞德。报告
Hand, D. J., Daly, F., McConway, K., Lunn, D. and Ostrowski, E. eds (1993) A Handbook of Small Data Sets. Chapman & Hall, p. 69.
手，DJ，达利，楼，McConway，K.，伦恩，奥斯特洛夫斯基，E. EDS（1993）小数据集手册。查普曼和霍尔，P。 69。
参考文献----------References----------
Modern Applied Statistics with S. Fourth edition. Springer.
举例----------Examples----------
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))
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。
|
发表于 2012-2-17 09:51:01
