Last data update: 2014.03.03

R: Volume of injected waste water from Rocky Mountain Arsenal...
WastewatR Documentation

Volume of injected waste water from Rocky Mountain Arsenal and number of earthquakes near Denver

Description

Data for Exercise 9.18

Usage

Wastewat

Format

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

gallons

a numeric vector

number

a numeric vector

ln.no.

a numeric vector

index

a numeric vector

Source

Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Duxbury

Examples

str(Wastewat)
attach(Wastewat)
model <- lm(number~gallons)
summary(model)
detach(Wastewat)
remove(model)

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(BSDA)
Loading required package: e1071
Loading required package: lattice

Attaching package: 'BSDA'

The following object is masked from 'package:datasets':

    Orange

> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/BSDA/Wastewat.Rd_%03d_medium.png", width=480, height=480)
> ### Name: Wastewat
> ### Title: Volume of injected waste water from Rocky Mountain Arsenal and
> ###   number of earthquakes near Denver
> ### Aliases: Wastewat
> ### Keywords: datasets
> 
> ### ** Examples
> 
> str(Wastewat)
'data.frame':	44 obs. of  4 variables:
 $ gallons: num  4.2 7.2 8.4 8 5.2 6 5 5.6 4 3.6 ...
 $ number : int  NA 2 12 35 23 29 24 8 6 20 ...
 $ ln.no. : num  NA 0.693 2.485 3.555 3.135 ...
 $ index  : int  1 2 3 4 5 6 7 8 9 10 ...
> attach(Wastewat)
> model <- lm(number~gallons)
> summary(model)

Call:
lm(formula = number ~ gallons)

Residuals:
    Min      1Q  Median      3Q     Max 
-28.881  -8.961  -0.300   3.176  59.151 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)   3.5895     3.4834   1.030    0.309    
gallons       3.7905     0.7843   4.833 1.91e-05 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 14.33 on 41 degrees of freedom
  (1 observation deleted due to missingness)
Multiple R-squared:  0.363,	Adjusted R-squared:  0.3474 
F-statistic: 23.36 on 1 and 41 DF,  p-value: 1.915e-05

> detach(Wastewat)
> remove(model)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>