"mdsform"<- function(x, scale = TRUE) { if(scale) x <- scaleto1(x) x <- x/apply(x, 1, sum) x }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.