set.seed(123)
##Create the interactome
cInt <- sample(c(0,1),30, TRUE)
interactome <- matrix(cInt, nrow=6, ncol=5,dimnames=list(letters[2:7],LETTERS[1:5]))
## Create cellular organizational units interaction matrix
gInt <- sample(c(1:8), 25, TRUE)
gInt <- matrix(gInt, nrow=5, ncol=5, dimnames=list(LETTERS[1:5],LETTERS[1:5]))
## All interactome tested
gTest <- matrix(sample(c(0:3), 25, TRUE), nrow=5, ncol=5)
gTested <- gInt+gTest
val <- test2Interact(iMat=gInt, tMat=gTested, interactome=interactome)
Run the code above in your browser using DataLab