# NOT RUN {
library(dplyr)
expression_vector_receiver = rnorm(n = 10000, mean = 6, sd = 3)
names(expression_vector_receiver) = sample(x = geneinfo_human$symbol,size = 10000,replace = FALSE)
receiver_sig_network = get_active_signaling_network(expression_vector_receiver,sig_network,expression_cutoff_receiver = 4)
# }
Run the code above in your browser using DataLab