Nothing
#' Run Start Indices
#'
#' Find the starting indices of runs in a vector.
#'
#' @param x a vector of data.
#'
#' @return a vector of indices indicating starting points for runs
#'
#' @export
#'
#' @examples
#' rsi(c(0,0,0,1,2,2,3,3,3,3,3,4))
#'
rsi <- function(x) c(1,which(diff(x)!=0)+1)
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.