"maggiore.n" <- function(x) { mx <- x[1] for (i in 2:length(x)) { if (x[i]>mx) mx <- x[i] } return(mx) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.