#' H
#'
#' Transform logical input to a vector of numbers.
#'
#' @param x Vector of numbers
#' @return A vector of 0 and 1s
#' @author Renata Retkute, \email{r.retkute@@yahoo.com}
#' @export
#'
H <-function(x) as.numeric(x>0)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.