path = "GMPD/" GMPD_main_2017_02_06 = read.csv(paste0(path,"GMPD_main_2017-02-06.csv")) # summary(GMPD_main_2017_02_06) dim(GMPD_main_2017_02_06) GMPD <- GMPD_main_2017_02_06 save(GMPD, file = "GMPD.Rdata" ) #compare two data files # GMPD_main_zeroPrevIncluded_2016_12_01 = read.csv(paste0(path, "GMPD_main_zeroPrevIncluded_2016-12-01.csv")) # dim(GMPD_main_zeroPrevIncluded_2016_12_01) # summary(GMPD_main_zeroPrevIncluded_2016_12_01) GMPD_parasite_taxonomy_2016_02_06 = read.csv(paste0(path, "GMPD_parasite_taxonomy_2016-02-06.csv")) # summary(GMPD_parasite_taxonomy_2016_02_06) intersect(names(GMPD), names(GMPD_parasite_taxonomy_2016_02_06))