r i = {{i}}
r traits[i]
y <- dfr[, traits[i]] if (is.null(sspf)) { model <- agricolae::sp.plot(rep, mpf, spf, y) } else { model <- agricolae::ssp.plot(rep, mpf, spf, sspf, y) }
model$ANOVA
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.