#' genevec
#'
#' @param one Sequence one
#' @param two Sequence two
#'
#' @noRd
#'
genevec <- function(one, two) {
Nx <- length(one)
Ny <- length(two)
if (Nx != Ny) stop("Sequences must be the same length.")
sum(duplicated(c(one, two)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.