2020-08-17 学习心得1
2020-08-17 本文已影响0人
whykm
library(tidyverse)
AllScoreData=read_tsv("AllScoreData.txt")
AllScoreData <- AllScoreData %>% separate(ID, into = c("ID", "b"),sep = 12) %>% select(-b)
ClinicalData=read_tsv("ClinicalData.txt")
ClinicalData <- ClinicalData %>% rename(ID = Id)
SameSample <- inner_join(AllScoreData, ClinicalData, by="ID")
