#
# Assume we have a variable model which has been learned with
# CCAexperiment() or CCA().
#
# output <- CCAcorr(model)
#
# print(output$r) # Print the correlations
# print(output$r[which(output$active==1)]) # Only the shared components
#
Run the code above in your browser using DataLab