xy2uv <- function(xy) { u = 4 * xy[1]/(-2 * xy[1] + 12 * xy[2] + 3) v = 9 * xy[2]/(-2 * xy[1] + 12 * xy[2] + 3) c(u, v) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.