flat_eff <- function(dx, dy, marks) { # Constant efficiency function (= 1) rep(1, length(dx)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.