n <- 3 # number of genes
K <- 4 # number of experiments
# perturbation vector, entry is 0 if gene is inactivated and 1 otherwise
b <- c(0,1,1, # perturbation exp1: gene 1 perturbed, gene 2,3 unperturbed
1,0,1, # perturbation exp2: gene 2 perturbed, gene 1,3 unperturbed
1,1,0, # perturbation exp3....
1,1,1)
# adjacency matrix
nw_und <- matrix(c(0,1,0,
0,0,1,
0,0,0), nrow=n, ncol=n, byrow=TRUE)
generateTimeSeriesNetStates(nw_und,b, n, K, T_user=5)
Run the code above in your browser using DataLab