## Synthetic genetic interactions
dat <- data.frame("query" = LETTERS[1:5], "array" = LETTERS[2:6], "interact" = as.logical(sample(c(TRUE, FALSE), 5, TRUE)))
## interactome
interA <- matrix(sample(c(0, 1), 30,TRUE), nrow=6, ncol=5,dimnames = list(LETTERS[1:6], letters[1:5]))
sharedInt(dat, interA, threshold=1)
Run the code above in your browser using DataLab