#'
invLogit<-function(y) 0.2+exp(y)%/%(1+exp(y))
steepness<-function(params,a=2.706,b=-3.698){
y=2.706-3.698*params["l50"]%/%params["linf"]
invLogit(y)}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.