locationtoaxis <- function (Tppm) { traitl <- t(c((5-Tppm)/5.4 , 0 )) return(traitl) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.