showClass("mRMRe.Network")
set.thread.count(2)
## load data
data(cgps)
## build an mRMRe.Data object
ge <- mRMR.data(data = data.frame(cgps.ge[ , 1:100, drop=FALSE]))
## build a network object with the 10 first genes and their children,
## 8 distinct mRMR feature selections of 5 genes for each gene
exect <- system.time(netw <- new("mRMRe.Network", data = ge, target_indices = 1:10,
levels = c(8, 1, 1, 1, 1), layers = 2))
print(exect)
## plot network using igraph
if (FALSE) visualize(netw)
Run the code above in your browser using DataLab