smith.beans.uniformity {agridat} | R Documentation

## Uniformity trials of beans, 2 species in 2 years

### Description

Uniformity trials of beans at California, 1954-1955, 2 species in 2 years

### Usage

    data("smith.beans.uniformity")

### Format

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

`expt`

  experiment

`row`

  row

`col`

  column

`yield`

  yield, kg

### Details

Trials were conducted in California. In 1955 plots were twice as wide and twice as long as in 1954. Red Kidney is a bush variety bean, Standard Pink is a viny variety.

Smith randomly assigned A,B,C,D to plots and used these as 'varieties' for calculating ANOVA tables. Plots were combined side-by-side and end-to-end to make larger plots. Decreasing LSDs were observed for increases in plot sizes. LSDs were seldom above 200, which was considered to be a noticeable difference for the farmers.

There are four datasets:

1954

Experiment 1: Red Kidney. Experiment 2: Standard Pink

Field width: 18 plots * 30 inches = 45 ft

Field length: 12 plots * 15 ft = 180 ft

1955

Experiment 3: Red Kidney. Experiment 4: Standard Pink

Field width: 16 plots * 2 rows * 30 in = 80 ft

Field length: 15 plots * 30 ft = 450 ft

### Source

Francis L. Smith, 1958. Effects of plot size, plot shape, and number of replications on the efficacy of bean yield trials. Hilgardia, 28, 43-63. http://doi.org/10.3733/hilg.v28n02p043

### References

None.

### Examples

    ## Not run:

      data(smith.beans.uniformity)
      dat1 <- subset(smith.beans.uniformity, expt=="E1")
      dat2 <- subset(smith.beans.uniformity, expt=="E2")
      dat3 <- subset(smith.beans.uniformity, expt=="E3")
      dat4 <- subset(smith.beans.uniformity, expt=="E4")

      cv <- function(x) { sd(x)/mean(x) }
      cv(dat1$yield)
      cv(dat2$yield) # Does not match Smith. Checked all values by hand.
      cv(dat3$yield)
      cv(dat4$yield)

      require("desplot")
      desplot(yield ~ col*row, dat1,
              aspect=180/45, flip=TRUE, # true aspect
              main="smith.beans.uniformity, expt 1 (true aspect)")

      desplot(yield ~ col*row, dat2,
              aspect=180/45, flip=TRUE, # true aspect
              main="smith.beans.uniformity, expt 2 (true aspect)")

      desplot(yield ~ col*row, dat3,
              aspect=450/80, flip=TRUE, # true aspect
              main="smith.beans.uniformity, expt 3 (true aspect)")

      desplot(yield ~ col*row, dat4,
              aspect=450/80, flip=TRUE, # true aspect
              main="smith.beans.uniformity expt 4, (true aspect)")

    ## End(Not run)

[Package agridat version 1.16 Index]