# applicat: Application of powder coating In EngrExpt: Data sets from "Introductory Statistics for Engineering Experimentation"

## Description

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).

## Format

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

## References

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

## Examples

 ``` 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)") ```

### Example output

```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 ...
```

EngrExpt documentation built on May 31, 2017, 4:13 a.m.