Rxxa <- function(ux, rxxi){ rxxa = 1-ux^2*(1-rxxi) return(rxxa) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.