# bottling: A Three Factorial Experiment for Bottling Data In ACSWR: A Companion Package for the Book "A Course in Statistics with R"

## Description

The height of the fills in the soft drink bottle is required to be as consistent as possible and it is controlled through three factors: (i) the percent carbonation of the drink, (ii) the operating pressure in the filler, and (iii) the line speed which is the number of bottles filled per minute. The first factor variable of the percent of carbonation is available at three levels of 10, 12, and 14, the operating pressure is at 25 and 30 psi units, while the line speed are at 200 and 250 bottles per minute. Two complete replicates are available for each combination of the three factor levels, that is, 24 total number of observations. In this experiment, the deviation from the required height level is measured.

## Usage

 `1` ```data(bottling) ```

## Format

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

`Deviation`

deviation from required height level

`Carbonation`

the percent carbonation of the drink

`Pressure`

the operating pressure in the filler

`Speed`

the number of bottles filled per minute

## Source

Montgomery, D. C. (1976-2012). Design and Analysis of Experiments, 8e. J.Wiley.

## Examples

 ```1 2 3 4 5``` ```data(bottling) summary(bottling.aov <- aov(Deviation~.^3,bottling)) # Equivalent way summary(aov(Deviation~ Carbonation + Pressure + Speed+ (Carbonation*Pressure)+ (Carbonation*Speed)+(Pressure*Speed)+(Carbonation*Speed*Pressure),data=bottling)) ```

### Example output

```                           Df Sum Sq Mean Sq F value   Pr(>F)
Carbonation                 2 252.75  126.37 178.412 1.19e-09 ***
Pressure                    1  45.37   45.37  64.059 3.74e-06 ***
Speed                       1  22.04   22.04  31.118  0.00012 ***
Carbonation:Pressure        2   5.25    2.63   3.706  0.05581 .
Carbonation:Speed           2   0.58    0.29   0.412  0.67149
Pressure:Speed              1   1.04    1.04   1.471  0.24859
Carbonation:Pressure:Speed  2   1.08    0.54   0.765  0.48687
Residuals                  12   8.50    0.71
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Df Sum Sq Mean Sq F value   Pr(>F)
Carbonation                 2 252.75  126.37 178.412 1.19e-09 ***
Pressure                    1  45.37   45.37  64.059 3.74e-06 ***
Speed                       1  22.04   22.04  31.118  0.00012 ***
Carbonation:Pressure        2   5.25    2.63   3.706  0.05581 .
Carbonation:Speed           2   0.58    0.29   0.412  0.67149
Pressure:Speed              1   1.04    1.04   1.471  0.24859
Carbonation:Pressure:Speed  2   1.08    0.54   0.765  0.48687
Residuals                  12   8.50    0.71
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
```

ACSWR documentation built on May 2, 2019, 6:53 a.m.