R codes and sample data for "Inferring Causal Direction Between Two Traits in the Presence of Horizontal Pleiotropy with GWAS Summary Data" has been summarized as an R package MRCD at: https://github.com/xue-hr/MRCD.
Please email xuexx268@umn.edu for any questions and comments.