R/Sub.B.R

Defines functions Sub.B

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

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.