Last data update: 2014.03.03

R: Efficiency of pit crews for three major NASCAR teams
NascarR Documentation

Efficiency of pit crews for three major NASCAR teams

Description

Data for Example 10.53

Usage

Nascar

Format

A data frame with 36 observations on the following 6 variables.

TeamA

a numeric vector

TeamB

a numeric vector

TeamC

a numeric vector

Time

a numeric vector

Team

a numeric vector

Ranks

a numeric vector

Source

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

Examples

str(Nascar)
attach(Nascar)
boxplot(Time~Team)
anova(lm(Time~as.factor(Team)))
detach(Nascar)

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/Nascar.Rd_%03d_medium.png", width=480, height=480)
> ### Name: Nascar
> ### Title: Efficiency of pit crews for three major NASCAR teams
> ### Aliases: Nascar
> ### Keywords: datasets
> 
> ### ** Examples
> 
> str(Nascar)
'data.frame':	36 obs. of  6 variables:
 $ TeamA: int  25 22 18 30 24 15 29 23 10 20 ...
 $ TeamB: int  25 30 24 26 22 15 32 36 20 28 ...
 $ TeamC: int  30 35 32 26 37 43 36 40 35 25 ...
 $ Time : int  25 22 18 30 24 15 29 23 10 20 ...
 $ Team : int  1 1 1 1 1 1 1 1 1 1 ...
 $ Ranks: num  14 7.5 4 22 10.5 2.5 20 9 1 5.5 ...
> attach(Nascar)
> boxplot(Time~Team)
> anova(lm(Time~as.factor(Team)))
Analysis of Variance Table

Response: Time
                Df Sum Sq Mean Sq F value    Pr(>F)    
as.factor(Team)  2  873.5  436.75  10.826 0.0002426 ***
Residuals       33 1331.2   40.34                      
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
> detach(Nascar)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>