trait_name<-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")
data("Results_full_rg_15D")
data("Rg_mat_z_15D")
Target_disease<-'401.1'
rg_threshold<-sqrt(0.3)
Rg_prune<-Prune_disease_selection_DTrgzscore(Target_disease, trait_name,
Results_full_rg_15D,Rg_mat_z_15D,rg_threshold)
Run the code above in your browser using DataLab