R Dataset / Package lattice / ethanol


On this Picostat.com statistics page, you will find information about the ethanol data set which pertains to Engine exhaust fumes from burning ethanol . The ethanol data set is found in the lattice R package. You can load the ethanol data set in R by issuing the following command at the console data("ethanol"). This will load the data into a variable called ethanol. If R says the ethanol data set is not found, you can try installing the package by issuing this command install.packages("lattice") and then attempt to reload the data. If you need to download R, you can go to the R project website. You can download a CSV (comma separated values) version of the ethanol R data set. The size of this file is about 1,315 bytes.

Engine exhaust fumes from burning ethanol


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.




A data frame with 88 observations on the following 3 variables.


Concentration of nitrogen oxides (NO and NO2) in micrograms/J.


Compression ratio of the engine.


Equivalence ratio–a measure of the richness of the air and ethanol fuel mixture.


Documentation contributed by Kevin Wright.


Brinkman, N.D. (1981) Ethanol Fuel—A Single-Cylinder Engine Study of Efficiency and Exhaust Emissions. SAE transactions, 90, 1410–1424.


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


## 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.
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,
	    screen = list(z = 40, x = -60, y=0),
	    distance = .1,
	    xlab = "C", ylab = "E", zlab = "NOx")

Dataset imported from https://www.r-project.org.

Title Authored on Content type
R Dataset / Package psych / bfi March 9, 2018 - 1:06 PM Dataset
OpenIntro Statistics Dataset - scotus_healthcare August 9, 2020 - 2:38 PM Dataset
R Dataset / Package psych / withinBetween March 9, 2018 - 1:06 PM Dataset
R Dataset / Package Stat2Data / Kids198 March 9, 2018 - 1:06 PM Dataset
R Dataset / Package Ecdat / Wages1 March 9, 2018 - 1:06 PM Dataset
Attachment Size
dataset-39476.csv 1.28 KB
Dataset License
GNU General Public License v2.0
Documentation License
GNU General Public License v2.0