Nothing
#' Create ordered factor with order inferred from order given
#'
#' The order of the resulting factor is determined by the order in which unique labels first
#' appear in the vector or factor \code{x}.
#' @param x a vector or factor to be converted into an ordered factor.
#' @export
#' @examples
#' givenOrder(c("First", "Second", "Third", "Fourth", "Fifth", "Sixth"))
givenOrder <-
function (x)
{
ordered(x, unique(x))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.