#' @title first element of a vector
#' @param x a vector
#' @return first element of X
#' @author Thomas Laepple
#' @export
FirstElement<-function (x)
{
return(x[1])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.