strickland.grape.uniformity.Rd
Uniformity trial of grape in Australia
data("strickland.grape.uniformity")
A data frame with 155 observations on the following 3 variables.
row
row
col
column
yield
yield per vine, pounds
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.
A. G. Strickland (1932). A vine uniformity trial. Journal of Agriculture, Victoria, 30, 584-593. https://handle.slv.vic.gov.au/10381/386462
None
# \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) )#> [1] 0.4348955#> 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 # }