Soap scrap as a function of production line speed (Neter et al. 1989)

Description

Soap scrap as a function of production line speed for two different production lines.

Usage

data(neter365)

Format

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

soap

Soap scrap.

speed

Line speed.

line.n

An indicator of the production line.

lxs

Product of production line indicator and speed for their interaction.

Source

Neter, J., W. Wasserman, and M.H. Kutner. 1989. Applied Linear Regression Models. Richard S. Irwin, Inc., Homewood, Illinois. pp. 365–369.

References

Cade, B.S., and J.D. Richards. 1996. Permutation tests for least absolute deviation regression. Biometrics 52, 886–902.

Examples

plot(neter365$speed,neter365$soap,col = c("red","blue")[unclass(neter365$line.n)+1],
  pch = c(17,19)[unclass(neter365$line.n)+1],ylab = "Soap scrap",
  xlab = "Production speed")
  
legend(x = 280,y = 220,pch = c(17,19),legend = c("line 0", "line 1"),col = c("red","blue"))

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(Blossom)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/Blossom/neter365.Rd_%03d_medium.png", width=480, height=480)
> ### Name: neter365
> ### Title: Soap scrap as a function of production line speed (Neter et al.
> ###   1989)
> ### Aliases: neter365
> ### Keywords: datasets
> 
> ### ** Examples
> 
> plot(neter365$speed,neter365$soap,col = c("red","blue")[unclass(neter365$line.n)+1],
+   pch = c(17,19)[unclass(neter365$line.n)+1],ylab = "Soap scrap",
+   xlab = "Production speed")
>   
> legend(x = 280,y = 220,pch = c(17,19),legend = c("line 0", "line 1"),col = c("red","blue"))
> 
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>