R/rightShiftGroup.R

In kjetilroysland/ahw: Re-weighting marked point processes based on additive hazard models

rightShiftGroup <- function(x, group, initVal) {
  if (length(x) != length(group))
    stop('Length of x and group differs')
  r <- .C('rightShiftGroup', w = as.double(x), as.integer(length(x)),
          as.integer(group), as.double(initVal), as.integer(length(initVal)))
  return(r$w)
}