R/cumSumGroup.R
In kjetilroysland/ahw: Re-weighting marked point processes based on additive hazard models
cumSumGroup <- function(x,group) {
if (length(x) != length(group))
stop('Length of x and group differs')
r <- .C('cumSumGroup', w = as.double(x), as.integer(length(x)), as.integer(group))
return(r$w)
}
kjetilroysland/ahw documentation built on May 20, 2019, 10:25 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
cumSumGroup <- function(x,group) {
if (length(x) != length(group))
stop('Length of x and group differs')
r <- .C('cumSumGroup', w = as.double(x), as.integer(length(x)), as.integer(group))
return(r$w)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.