R语言:ethanol()函数中文帮助文档(中英文对照)

loveR

ethanol(lattice)
ethanol()所属R语言包：lattice

                                         Engine exhaust fumes from burning ethanol
                                         从燃烧的乙醇发动机废气

                                         译者：生物统计家园网 机器人LoveR

描述----------Description----------

Ethanol fuel was burned in a single-cylinder engine.  For various settings of the engine compression and equivalence ratio, the emissions of nitrogen oxides were recorded.
乙醇燃料在单缸发动机被烧毁。对于发动机的压缩和量比的各种设置，氮氧化物的排放量进行了记录。


用法----------Usage----------





格式----------Format----------

A data frame with 88 observations on the following 3 variables.
与88以下3个变量的观测数据框。




NOx Concentration of nitrogen oxides (NO and NO2) in
NOx浓度的氮氧化物（NO和NO2）




C Compression ratio of the engine.
C的发动机的压缩比。




E Equivalence ratio–a measure of the richness of the air and
é等价比例的措施和丰富的空气


作者（S）----------Author(s)----------



Documentation contributed by Kevin Wright.




源----------Source----------

Brinkman, N.D. (1981) Ethanol Fuel—A Single-Cylinder Engine Study of Efficiency and Exhaust Emissions. SAE transactions, 90, 1410–1424.
布林克曼，ND（1981）燃料乙醇的效率和废气排放的单缸发动机研究。 SAE的交易，90，1410至1424年。


参考文献----------References----------

Summit, New Jersey.

举例----------Examples----------


## Constructing panel functions on the fly[＃构建动态面板功能]
EE <- equal.count(ethanol$E, number=9, overlap=1/4)
xyplot(NOx ~ C | EE, data = ethanol,
       prepanel = function(x, y) prepanel.loess(x, y, span = 1),
       xlab = "Compression ratio", ylab = "NOx (micrograms/J)",
       panel = function(x, y) {
           panel.grid(h=-1, v= 2)
           panel.xyplot(x, y)
           panel.loess(x,y, span=1)
       },
       aspect = "xy")

# Wireframe loess surface fit.  See Figure 4.61 from Cleveland.[线框黄土表面适合。见图4.61克利夫兰。]
require(stats)
with(ethanol, {
  eth.lo <- loess(NOx ~ C * E, span = 1/3, parametric = "C",
                  drop.square = "C", family="symmetric")
  eth.marginal <- list(C = seq(min(C), max(C), length.out = 25),
                       E = seq(min(E), max(E), length.out = 25))
  eth.grid <- expand.grid(eth.marginal)
  eth.fit <- predict(eth.lo, eth.grid)
  wireframe(eth.fit ~ eth.grid$C * eth.grid$E,
            shade=TRUE,
            screen = list(z = 40, x = -60, y=0),
            distance = .1,
            xlab = "C", ylab = "E", zlab = "NOx")
})

转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。


注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。