Uniformity trial of grape — strickland.grape.uniformity • agridat

Uniformity trial of grape in Australia

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, Australia, 1930.

Certain sections were omitted because of missing vines.

Source

A. G. Strickland (1932). A vine uniformity trial. Journal of Agriculture, Victoria, 30, 584-593. https://handle.slv.vic.gov.au/10381/386462

References

None

Examples

# \dontrun{

library(agridat)

data(strickland.grape.uniformity)
dat <- strickland.grape.uniformity

  libs(desplot)
  desplot(dat, yield ~ col*row,
          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)
#> [1] 0.4348955
  
  # anova like Strickland, appendix 1
  anova(aov(yield ~ factor(row) + factor(col), data=dat))
#> Analysis of Variance Table
#> 
#> Response: yield
#>             Df Sum Sq Mean Sq F value    Pr(>F)    
#> factor(row) 24 130.71   5.446  1.3796    0.1383    
#> factor(col)  4 318.93  79.732 20.1975 4.281e-12 ***
#> Residuals   96 378.97   3.948                      
#> ---
#> Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

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

# }