G <- 1
data(Results_full_rg_15D)
data(Results_full_rg_array_15D)
data(h2_vector_15D)
data(h2_vector_mat_15D)
phenotype<-c("401.1","244.5","318","735.3","411.4",
"427.2","454.1","278.1","250.2","550.1","530.11",
"296.22","519.8","562.1","763")
sample_rep<-20
post_corrrresults_prune<-pleiotropyh2_cor_computing_single(G,phenotype,h2_vector_15D,
h2_vector_mat_15D,Results_full_rg_15D,Results_full_rg_array_15D, sample_rep)
Run the code above in your browser using DataLab