R/product_mat.R
In survELtest: Comparing Multiple Survival Functions with Crossing Hazards

product_mat <- function(x, y) {
    out <- x*y
    for (i in 1:dim(x)[1]) {
        out[i, (x[i, ] == 0 | y[i, ] == 0)] <- 0
    }
    return (out)
}

Any scripts or data that you put into this service are public.

survELtest documentation built on Jan. 14, 2020, 1:07 a.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the survELtest package in your browser