Internal function

Share:

Description

This is an internal function. The user should not use the function directly.

Usage

1
designCount(array, design)

Arguments

array

Data matrix

design

Design matrix

Author(s)

Alberto Cassese, Marta Blangiardo

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
## 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)
  }