R/Sub.n.R

Defines functions Sub.n

Sub.n <-
function(z, t, Mat, j){
index <- which(Mat[,j] == 1)
nj <- sum(z[index])
names(nj) <- paste("n", j, sep="")
return(nj)
}

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.