load("./projects/xiaNetworkCca/sCCA/aim1/result/201701/pwr_med_n_trait_rgr.RData") load("./projects/xiaNetworkCca/sCCA/aim1/result/201701/pwr_net_n_trait_rgr.RData ...
rho.null.xy[r] = cor(x.perm[,r],y,method=corr.type,use='pairwise.complete') rho.null.yx[r] = cor(y.perm[,r],x,method=corr.type, use='pairwise.complete') r_sphere ...