data(dream4)
network <- 1
Time <- as.numeric(dream4ts100[[network]]$time)
xIndex <- which(Time != max(Time))
yIndex <- which(Time != min(Time))
gene <- "G1"
x <- dream4ts100[[network]][xIndex,-(1:2)]
y <- dream4ts100[[network]][yIndex,gene]
nvar <- 50
ord <- varord( x, y, ordering = "bic1")[1:nvar]
## Not run:
# result <- iterateBMAlm( x = x[,ord], y = y)
# ## End(Not run)
Run the code above in your browser using DataLab