r i = {{i}}
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.