# NOT RUN {
library(ctl)
data(ath.result)
all_interactions <- CTLsignificant(ath.result)
all_interactions[1:10, ]
trait1_interactions <- CTLsignificant(ath.result[[1]])
trait1_interactions
# }
Run the code above in your browser using DataLab