library(ctl) # Load CTL library
data(ath.result) # Arabidopsis Thaliana results
p2m_matrix <- CTLprofiles(ath.result, against="markers")
p2p_matrix <- CTLprofiles(ath.result, against="phenotypes")
Run the code above in your browser using DataLab