data(expdata)
expdata <- copula(expdata)
mim <- makemim(expdata)
Ic <- mean(mim[upper.tri(mim)]) #Example cut-off for the first step of C3NET
# Ic <- 2 can be set for the example.
mim[mim < Ic] <-0 #nonsignificant values eliminated wrt C3NET step 1.
net <- c3(mim) # regulatory network inferred (non zero elements stand for links of
#the predicted network)
Run the code above in your browser using DataLab