R/Sub.S.R

Defines functions Sub.S

Sub.S <-
function(z, t, Mat, j){
index <- which(Mat[,j] == 1 & rowSums(Mat[, -j]) == 0)
Sj <- sum(z[index])
names(Sj) <- paste("S", j, sep="")
return(Sj)
}

Try the CARE1 package in your browser

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

CARE1 documentation built on May 30, 2017, 8:32 a.m.