R/sumSet.R

Defines functions `sumSet`

`sumSet` <-
function(g,n,p,y,set) {
  z<-array(0.0,c(n,p))
  for (j in set) {
  	    gg<-g[,j]; ii<-which(!is.na(gg))
  		z[ii,]<-z[ii,]+y[[j]][gg[ii],]
        }
  return(z)
}

Try the aspect package in your browser

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

aspect documentation built on May 4, 2022, 3 a.m.