plotting with a function factory

gistfile1.txt

rmax <- function(rm, baserate){
  force(rm)
  force(baserate)
  function(x) {
    rm * x / (
      (rm / baserate) + x
    )
  }
}

library(dplyr)
library(ggplot2)

data_frame(x = 0:90,
           y = 0, 1) %>% 
  ggplot(aes(x = x, y = y)) + 
  stat_function(fun = rmax(0.7, 0.3))