#*********************************************
#*********************************************
#' Returning TRUE at all even or odd values.
#'
#' @param x is the R-object to be checked for even or odd values.
#'
#' @return
#'
#' @examples
#' \dontrun{}
#'
#' @export
#' @rdname even
#'
even <- function(x){
# Start: 2008-11-14 - Clean version.
!as.logical(x%%2)
}
#'
#' @export
#' @rdname even
#'
odd <- function(x){
# Start: 2008-11-14 - Clean version.
as.logical(x%%2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.