#' @keywords internal
funcrank <-
function(x)
{
n <- length(x)
rr <- rep(0,n)
for(ii in 1:n) rr[ii] <- n - sum(ifelse((x[ii] > x),1,0))
return(rr)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.