designCount {BGcom}R Documentation

Internal function

Description

Usage

designCount(array, design)

Arguments

array Data matrix
design Design matrix

Details

Value

Author(s)

M. Blangiardo

References

Examples


## The function is currently defined as
function(array,design) {

sum1intersects <- function(c1,c2) return(all(c1 == c2))
res <- vector(mode="numeric",length=(nrow(design)-1))

for(i in 2:nrow(design)){
res[i-1] <- sum(apply(array,1,sum1intersects,design[i,]))
}
return(res)
}

[Package BGcom version 1.0 Index]