library(ctl)
data(ath.result) # Arabidopsis Thaliana results
data(ath.metabolites) # Arabidopsis Thaliana data set
ctls <- CTLnetwork(ath.result, significance = 0.1)
op <- par(mfrow = c(2,1))
plot(ctls)
ctl.lineplot(ath.result, ath.metab$map, significance=0.1)
Run the code above in your browser using DataLab