library(ebdbNet)
tmp <- runif(1) ## Initialize random number generator
set.seed(125214) ## Save seed
## Simulate autoregressive data
## 5 replicates, 10 time points, 10 genes
y <- simFunc(R = 5, T = 10, P = 10, v = rep(10,10), perc = 0.15)$y
## Create feedback profiles
u <- fdbkFunc(y)
Run the code above in your browser using DataLab