library(ctl)
data(ath.result) # Arabidopsis Thaliana results
#Phenotype to phenotype matrix
p2p_matrix <- image(ath.result, against="phenotypes")
#Phenotype to marker matrix
p2m_matrix <- image(ath.result, against="markers")
Run the code above in your browser using DataLab