agridat (version 1.16)

talbot.potato: Multi-environment trial of potato in UK, yields and trait scores at 12 locations

Description

Yield and 14 trait scores for each of 9 potato varieties at 12 locations in UK.

Usage

data("talbot.potato.traits")
data("talbot.potato.yield")

Arguments

Format

The talbot.potato.yield dataframe has 126 observations on the following 3 variables.

gen

genotype/variety

trait

trait

score

trait score, 1-9

The talbot.potato.yield dataframe has 108 observations on the following 3 variables.

gen

genotype/variety

loc

location/center

yield

yield, t/ha

Details

The talbot.potato.yield dataframe contains mean tuber yields (t/ha) of 9 varieties of potato at 12 centers in the United Kingdom over five years 1983-1987. The following abbreviations are used for the centers.

BU Bush
CA Cambridge
CB Conon Bridge
CC Crossacreevy
CP Cockle Park
CR Craibstone
GR Greenmount
HA Harper Adams
MO Morley
RO Rosemaund
SB Sutton Bonnington
TE Terrington

Examples

Run this code
# NOT RUN {
if(require(pls) & require(reshape2)){

  data(talbot.potato.traits)
  datt <- talbot.potato.traits
  data(talbot.potato.yield)
  daty <- talbot.potato.yield

  datt <- acast(datt, gen ~ trait, value.var='score')
  daty <- acast(daty, gen ~ loc, value.var='yield')  
  
  # Transform columns to zero mean and unit variance
  datt <- scale(datt)
  daty <- scale(daty)

  m1 <- plsr(daty ~ datt, ncomp=3)
  summary(m1)

  # Loadings factor 1
  lo <- loadings(m1)[,1,drop=FALSE]
  round(-1*lo[order(-1*lo),1,drop=FALSE],2)

  biplot(m1, main="talbot.potato - biplot")

}

# }

Run the code above in your browser using DataCamp Workspace