dosci <- function(x,l=4){ #x = .00359 if(abs(log10(abs(x)))>l){ x <- format(x, scientific = TRUE, digits = l) } x }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.