-
Notifications
You must be signed in to change notification settings - Fork 0
/
New_v_Old_genes.R
37 lines (32 loc) · 3.41 KB
/
New_v_Old_genes.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#Find genes needed to BLAST
N_G_100060 <- c("249173_01879", "047117_02378", "228006_01743", "148769_00831", "047117_02380", "148794_01632", "047117_02376", "047117_02377", "041746_02389", "108348_02595", "192308_01194", "000216_02074", "210755_00357", "152466_01649" , "055467_01854" , "047117_02383" , "047117_02382" , "181581_00481" , "239171_01612", "032185_00468" , "108323_00300" , "030659_00967" , "001288_02675" , "041746_02388" , "033855_01832" , "063307_00097" , "047117_02379" , "152430_02393" , "038364_02001" , "210793_02030" , "235946_01311" , "041746_02390" , "047117_02375", "047117_02381" , "000216_02420" , "057388_00211" , "083468_01778" , "230652_00809" , "051001_01727" , "033855_01831" , "036212_01418" , "052248_01872" , "258864_02598" , "029873_02068" , "210928_01151" , "011927_00007") %>% as.data.frame()
O_G_100060 <- c("047117_02378", "228006_01743", "047117_02380", "148794_01632", "047117_02376", "041746_02389", "047117_02377", "192308_01194", "000216_02074", "152466_01649", "055467_01854", "047117_02383", "047117_02382", "181581_00481" , "032185_00468" , "041746_02388" , "063307_00097" , "047117_02379" ,"210793_02030" , "041746_02390" , "047117_02375" , "047117_02381" , "258864_02598" , "029873_02068" , "210928_01151" ) %>% as.data.frame()
New_100060_Genes <- anti_join(N_G_100060, O_G_100060)
# "249173_01879" "148769_00831" "108348_02595" "210755_00357" "239171_01612" "108323_00300" "030659_00967" "001288_02675"
# "033855_01832" "152430_02393" "038364_02001" "235946_01311" "000216_02420" "057388_00211" "083468_01778" "230652_00809"
# "051001_01727" "033855_01831" "036212_01418" "052248_01872" "011927_00007"
Remove_100060_Genes <- anti_join(O_G_100060, N_G_100060)
#None
N_G_100078 <- c("064037_00369" , "154988_02076" , "016431_01839" , "108644_01598" ,"109369_01803", "063379_01966" , "188302_00118" , "151972_01002" , "195023_01285" ) %>% as.data.frame()
O_G_100078 <- c("108644_01598" , "064037_00369", "154988_02076" , "016431_01839" , "063379_01966" , "188302_00118" , "151972_01002" , "195023_01285" ) %>% as.data.frame()
New_100078_Genes <- anti_join(N_G_100078, O_G_100078)
#"109369_01803"
Remove_100078_Genes <- anti_join(O_G_100078, N_G_100078)
#None
N_G_100271 <- c("000117_02863" , "001770_01542" , "200056_01835", "032492_02428" , "155662_03708" , "200056_01834" , "200056_01833" , "004804_02592" , "198550_01569" , "000355_03097" , "027032_02679", "083479_02753", "137889_03520", "000117_00039" ,"200056_01832", "155662_03633" , "155662_03778" , "006614_00504" , "115855_01382" , "155827_01231" , "125279_02764" , "000117_03451") %>% as.data.frame()
O_G_100271 <- c("200056_01835" , "032492_02428" , "200056_01833" , "200056_01834", "200056_01832" , "155662_03633" , "155662_03778") %>% as.data.frame()
New_100271_Genes <- anti_join(N_G_100271, O_G_100271)
# "000117_02863" "001770_01542" "155662_03708" "004804_02592" "198550_01569" "000355_03097" "027032_02679" "083479_02753"
# "137889_03520" "000117_00039" "006614_00504" "115855_01382" "155827_01231" "125279_02764" "000117_03451"
Remove_100271_Genes <- anti_join(O_G_100271, N_G_100271)
#None
#G_102528
#Same
#"064838_00419"
#"064838_00419"
#G_101380
#All New
#"000135_01093" "005482_00240" "187977_00187" "076937_00800" "169515_01624"
#G_100217
#All_New
#"047729_02814" "031386_02238" "046826_00950"