Nothing
#' @title Insert Values
#' @description Inserts new values into a vector at
#' specified positions
#'
#' @param x A vector to insert values
#' @param value Values to insert into x
#' @param index Index position(s) to insert y values into x
#'
#' @details
#' This function inserts new values at specified positions in a vector. It
#' does not replace existing values. If a single value is provided for y
#' and l represents multiple positions y will be replicated for the length
#' of l. In this way you can insert the same value at multiple locations.
#'
#' @return
#' A vector with values of y inserted into x and the position(s)
#' defined by the index
#'
#' @author Jeffrey S. Evans <jeffrey_evans@@tnc.org>
#'
#' @examples
#' (x=1:10)
#'
#' # Insert single value in one location
#' insert.values(x, 100, 2)
#'
#' # Insert multiple values in multiple locations
#' insert.values(x, c(100,200), c(2,8))
#'
#' # Insert single value in multiple locations
#' insert.values(x, NA, c(2,8))
#'
#' @export
insert.values <- function(x, value, index) {
if(length(value) == 1) value = rep(value, length(index) )
if(length(value) < length(index) )
stop("length of replacement does not match index")
z <- numeric(length(x) + length(index))
z[index] <- value
z[-index] <- x
return(z)
}
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.