R/add_1.R

In hlennon/copulaIVTS: Dependence modelling of a digitised Gaussian ARMA(p,q) copula model for Integer-Valued Time Series

Defines functions add_1

Documented in add_1

#' @export
add_1 <-
function(j) {
  m <- length(j)
  if (!j[1]) 	j[1] <- 1
  else {
    j[1] <- 0
    j[2:m] <- add_1(j[2:m])
  }
  return(j)
}