R_Project 源码

第一部分:数据检查 加载(tidyverse)包: 图书馆(tidyverse) 下载文件 从github下载文件到Assignment2文件夹 genotypes_data <-read_tsv(“ fang_et_al_genotypes.txt”) snp_data <-read_tsv(“ snp_position.txt”) 资料检查 加载数据: str(基因型数据)str(snp_data)唯一(genotypes_data $ Group)唯一(snp_data $ Chromosome)nrow(基因型_数据)nrow(snp_data)ncol(dgenotypes_data)ncol(snp_data)dim(基因型_数据)dim(snp_data) 数据处理 #重新排列snp_data文件,以使“染色体”列紧跟着位置,然后是转置 snp_data <-snp_da