### R code from vignette source 'bcellViper.Rnw'

###################################################
### code chunk number 1: bcellViper.Rnw:22-25
###################################################
library(bcellViper)
data(bcellViper)
print(dset)


###################################################
### code chunk number 2: bcellViper.Rnw:32-35
###################################################
targets <- unlist(lapply(regulon, function(x) names(x$tfmode)), use.names = FALSE)
cat("Regulators: ", length(regulon), "\nTargets: ", length(unique(targets)),
    "\nInteractions: ", length(targets), "\n", sep="")