Description Format References Examples

As described in Nelson, Coffin and Copeland (2003), “The application of powder coating (a type of paint used on appliances and, in limited settings, cars) is done by spraying the material through a ‘gun’ that has an electrical charge on it. There are three factors to consider in setting up the application booth: the gun distance from the target item, the charge and the pressure (flow rate) of the material through the gun. This data set contains data from 18 runs.” Note that there is no data for the high flow rate, high charges, and low distance as these combinations were infeasible from an operations standpoint (they were such that too much paint would be applied to the target).

A data frame with 18 observations on the following 4 variables.

`distance`

distance of the gun from the target (inches) - an ordered factor with levels

`11`

<`13`

<`15`

`charge`

charge used (kvolts) - an ordered factor with levels

`35`

<`45`

<`55`

`flowrate`

flow rate in gm/min. - an ordered factor with levels

`94`

<`124`

`gloss`

a measure of the resulting gloss

Peter R. Nelson, Marie Coffin and Karen A. F. Copeland (2003),
*Introductory Statistics for Engineering Experimentation*,
Elsevier. (Appendix A)

1 2 3 4 5 6 7 8 9 10 11 12 13 | ```
str(applicat)
dotplot(distance ~ gloss|flowrate, applicat, groups = charge,
type = c("p","a"), layout = c(1,2),
ylab = "Gun distance from target (in.)",
strip = FALSE, strip.left = TRUE,
auto.key = list(columns = 3, lines = TRUE), xlab =
"Gloss for two flow rates (gm/min) and three charges (kvolts)")
dotplot(charge ~ gloss|flowrate, applicat, groups = distance,
type = c("p","a"), layout = c(1,2),
ylab = "Charge (kvolts)",
strip = FALSE, strip.left = TRUE,
auto.key = list(columns = 3, lines = TRUE), xlab =
"Gloss for two flow rates (gm/min) and three distances from target (in)")
``` |

```
Loading required package: lattice
'data.frame': 18 obs. of 4 variables:
$ distance: Ord.factor w/ 3 levels "11"<"13"<"15": 2 2 2 1 1 1 3 3 3 2 ...
$ charge : Ord.factor w/ 3 levels "35"<"45"<"55": 2 1 3 1 2 3 1 2 3 2 ...
$ flowrate: Ord.factor w/ 2 levels "94"<"124": 1 1 1 1 1 1 1 1 1 1 ...
$ gloss : num 63 62.3 69.1 64.2 69 71.6 58.4 61.1 62.8 70.3 ...
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.