r i = {{i}}

{{i}}. Analysis for trait r traits[i]

if (model == 1) {
  ddd <- data.frame (
      set = data[, set],
      male = data[, male],
      female = data[, female],
      progeny = data[, progeny],
      rep = data[, rep],
      yield = data[, traits[i]])
}

if (model == 2 | model == 3) {
  ddd <- data.frame (
      set = data[, set],
      male = data[, male],
      female = data[, female],
      rep = data[, rep],
      yield = data[, traits[i]])
}

agricolae::carolina(model, ddd)


AGROFIMS/hagrofims documentation built on May 6, 2020, 7:43 p.m.