Stat 597 Bioinformatics Project (Hannier Pulido and Yong Jung). R code