agridat (version 1.16)

strickland.grape.uniformity: Uniformity trial of grape

Description

Uniformity trial of grape in Australia

Usage

data("strickland.grape.uniformity")

Format

A data frame with 155 observations on the following 3 variables.

row

row

col

column

yield

yield per vine, pounds

Details

Yields of individual grape vines, planted 8 feet apart in rows 10 feet apart. Grown in Rutherglen, North-East Victoria, Australiaj, 1930.

Certain sections were omitted because of missing vines.

References

None

Examples

# NOT RUN {
data(strickland.grape.uniformity)
dat <- strickland.grape.uniformity

  require(desplot)
  desplot(yield ~ col*row, dat,
          main="strickland.grape.uniformity",
          flip=TRUE, aspect=(31*8)/(5*10) )
  
  # CV 43.4<!-- % -->
  sd(dat$yield, na.rm=TRUE)/mean(dat$yield, na.rm=TRUE)
  
  # anova like Strickland, appendix 1
  anova(aov(yield ~ factor(row) + factor(col), data=dat))

  # numbers ending in .5 much more common than .0
  # table(substring(format(na.omit(dat$yield)),4,4))
  #  0   5 
  # 25 100 

# }