R ethanol 燃燒乙醇時發動機排出的廢氣

說明

乙醇燃料在 single-cylinder 發動機中燃燒。對於發動機壓縮和當量比的各種設置，記錄氮氧化物的排放量。

用法

ethanol

格式

包含以下 3 個變量的 88 個觀測值的 DataFrame 。

氮氧化物

氮氧化物(NO 和 NO2)濃度，單位為微克/J。

C

發動機的壓縮比。

E

等效ratio-a 衡量空氣和乙醇燃料混合物的豐富度。

例子

## 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, grid = FALSE)
           panel.loess(x, y, span = 1)
       },
       aspect = "xy")

# Wireframe loess surface fit.  See Figure 4.61 from Cleveland.
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")
})

作者

Documentation contributed by Kevin Wright.

來源

Brinkman, N.D. (1981) 乙醇燃料 — Single-Cylinder 發動機效率和廢氣排放研究。 SAE 交易，90，1410-1424。

參考

Cleveland, William S. (1993) Visualizing Data. Hobart Press, Summit, New Jersey.