run_MW_ratio <-
function(datt, ntag, nsim)
{ combos = unique(datt$simN)
res_MW = sapply(combos, run_MW_ratio_one, datt)
return(data.frame(simN=combos, res_MW = res_MW))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.