variables <- function(winners, losers, margin, data){
list(
model.frame(winners, data, na.action = na.pass)[,1],
model.frame(losers, data, na.action = na.pass)[,1],
model.frame(margin, data, na.action = na.pass)[,1]
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.