stickler.sorghum.uniformity {agridat} | R Documentation

## Uniformity trial of sorghum

### Description

Uniformity trial of sorghum in at Manhattan, Kansas, 1958-1959.

### Usage

    data("stickler.sorghum.uniformity")

### Format

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

`expt`

  experiment

`row`

  row

`col`

  col

`yield`

  yield

### Details

Four sorghum experiments at the Agronomy Farm at Manhattan, Kansas. Experiments E1,E2 grown in 1958. Expts E3,E5 grown in 1959.

Experiment E1.

Field width = 20 units * 14 inches = 23.3 ft.

Field length = 20 units * 10 feet = 200 feet.

Experiment E2-E3.

Field width = 20 units * 44 inches = 73 feet

Field length = 20 units * 5 ft = 100 feet.

### Source

F. C. Stickler (1960). Estimates of Optimum Plot Size from Grain Sorghum Uniformity Trial Data. Technical bulletin, Kansas Agricultural Experiment Station.

### References

None.

### Examples

    ## Not run:

      data(stickler.sorghum.uniformity)
      dat <- stickler.sorghum.uniformity

      dat1 <- subset(dat, expt=="E1")
      dat2 <- subset(dat, expt!="E1")

      require(desplot)
      desplot(yield ~ col*row|expt, data=dat,
              subset=expt=="E1",
              #cex=1,text=yield, shorten="none",
              xlab="row",ylab="range",
              flip=TRUE, tick=TRUE, aspect=(20*10)/(20*14/12), # true aspect
              main="stickler.sorghum.uniformity: expt E1")

      desplot(yield ~ col*row|expt, data=dat,
              subset=expt!="E1",
              xlab="row",ylab="range",
              flip=TRUE, tick=TRUE, aspect=(20*5)/(20*44/12), # true aspect
              main="stickler.sorghum.uniformity: expt E2,E3,E4")

      # Stickler, p. 10-11 has
      #    E1    E2    E3    E4
      # 34.81 11.53 11.97 14.10
      cv <- function(x) 100*sd(x)/mean(x)
      tapply(dat$yield, dat$expt, cv)
      # 35.74653 11.55062 11.97011 14.11389

    ## End(Not run)

[Package agridat version 1.16 Index]