traits <- params$traits geno <- params$geno env <- params$env rep <- params$rep dfr <- params$dfr means <- params$means lb <- params$lb eindex <- elston(traits, geno, env, rep, dfr, means, lb)
The Elston index for each genotype is shown below. As you see, genotype r (eindex[sort(eindex$E.Index, decreasing = T, index.return = T)$ix, ])[1,1]
is the one with the highest value.
eindex[sort(eindex$E.Index, decreasing = T, index.return = T)$ix, ]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.