-
Notifications
You must be signed in to change notification settings - Fork 0
/
7) Filtering-for-nonsynonymous_africanum.R
1164 lines (1158 loc) · 62.9 KB
/
7) Filtering-for-nonsynonymous_africanum.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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
my_data <- read.csv("x_af_missense.csv")
my_data1=subset(my_data, my_data$EFFECT == "missense_variant c.1001A>G p.Asp334Gly")
my_data2=subset(my_data, my_data$EFFECT == "missense_variant c.1003A>G p.Thr335Ala")
my_data3=subset(my_data, my_data$EFFECT == "missense_variant c.100C>G p.Arg34Gly")
my_data4=subset(my_data, my_data$EFFECT == "missense_variant c.1018G>A p.Ala340Thr")
my_data5=subset(my_data, my_data$EFFECT == "missense_variant c.1021G>C p.Asp341His")
my_data6=subset(my_data, my_data$EFFECT == "missense_variant c.1024A>C p.Met342Leu")
my_data7=subset(my_data, my_data$EFFECT == "missense_variant c.1024T>C p.Phe342Leu")
my_data8=subset(my_data, my_data$EFFECT == "missense_variant c.1028T>C p.Leu343Pro")
my_data9=subset(my_data, my_data$EFFECT == "missense_variant c.103G>C p.Gly35Arg")
my_data10=subset(my_data, my_data$EFFECT == "missense_variant c.104A>G p.Asp35Gly")
my_data11=subset(my_data, my_data$EFFECT == "missense_variant c.1053G>T p.Glu351Asp")
my_data12=subset(my_data, my_data$EFFECT == "missense_variant c.1054G>A p.Ala352Thr")
my_data13=subset(my_data, my_data$EFFECT == "missense_variant c.1064A>T p.Asp355Val")
my_data14=subset(my_data, my_data$EFFECT == "missense_variant c.106A>G p.Thr36Ala")
my_data15=subset(my_data, my_data$EFFECT == "missense_variant c.106C>T p.Arg36Cys")
my_data16=subset(my_data, my_data$EFFECT == "missense_variant c.106G>T p.Ala36Ser")
my_data17=subset(my_data, my_data$EFFECT == "missense_variant c.1081C>A p.Pro361Thr")
my_data18=subset(my_data, my_data$EFFECT == "missense_variant c.1082G>A p.Ser361Asn")
my_data19=subset(my_data, my_data$EFFECT == "missense_variant c.1084G>A p.Glu362Lys")
my_data20=subset(my_data, my_data$EFFECT == "missense_variant c.1097C>T p.Ala366Val")
my_data21=subset(my_data, my_data$EFFECT == "missense_variant c.1109C>T p.Pro370Leu")
my_data22=subset(my_data, my_data$EFFECT == "missense_variant c.1125G>A p.Met375Ile")
my_data23=subset(my_data, my_data$EFFECT == "missense_variant c.112C>T p.Pro38Ser")
my_data24=subset(my_data, my_data$EFFECT == "missense_variant c.112G>C p.Val38Leu")
my_data25=subset(my_data, my_data$EFFECT == "missense_variant c.1132A>C p.Ile378Leu")
my_data26=subset(my_data, my_data$EFFECT == "missense_variant c.113C>T p.Ala38Val")
my_data27=subset(my_data, my_data$EFFECT == "missense_variant c.113T>G p.Val38Gly")
my_data28=subset(my_data, my_data$EFFECT == "missense_variant c.113T>G p.Val38Gly")
my_data29=subset(my_data, my_data$EFFECT == "missense_variant c.1142A>C p.Tyr381Ser")
my_data30=subset(my_data, my_data$EFFECT == "missense_variant c.1143A>C p.Glu381Asp")
my_data31=subset(my_data, my_data$EFFECT == "missense_variant c.1153G>A p.Val385Met")
my_data32=subset(my_data, my_data$EFFECT == "missense_variant c.1157C>T p.Ala386Val")
my_data33=subset(my_data, my_data$EFFECT == "missense_variant c.1159C>T p.Arg387Trp")
my_data34=subset(my_data, my_data$EFFECT == "missense_variant c.115T>C p.Phe39Leu")
my_data35=subset(my_data, my_data$EFFECT == "missense_variant c.1162A>C p.Lys388Gln")
my_data36=subset(my_data, my_data$EFFECT == "missense_variant c.1166G>T p.Cys389Phe")
my_data37=subset(my_data, my_data$EFFECT == "missense_variant c.1168G>C p.Asp390His")
my_data38=subset(my_data, my_data$EFFECT == "missense_variant c.1169G>T p.Arg390Leu")
my_data39=subset(my_data, my_data$EFFECT == "missense_variant c.116A>G p.Asn39Ser")
my_data40=subset(my_data, my_data$EFFECT == "missense_variant c.1171C>G p.Pro391Ala")
my_data41=subset(my_data, my_data$EFFECT == "missense_variant c.1172C>G p.Ala391Gly")
my_data42=subset(my_data, my_data$EFFECT == "missense_variant c.1178C>T p.Ala393Val")
my_data43=subset(my_data, my_data$EFFECT == "missense_variant c.1181C>T p.Pro394Leu")
my_data44=subset(my_data, my_data$EFFECT == "missense_variant c.118A>G p.Thr40Ala")
my_data45=subset(my_data, my_data$EFFECT == "missense_variant c.118C>A p.Leu40Met")
my_data46=subset(my_data, my_data$EFFECT == "missense_variant c.1195G>T p.Ala399Ser")
my_data47=subset(my_data, my_data$EFFECT == "missense_variant c.1199A>G p.Gln400Arg")
my_data48=subset(my_data, my_data$EFFECT == "missense_variant c.1199A>T p.Lys400Met")
my_data49=subset(my_data, my_data$EFFECT == "missense_variant c.119A>C p.Lys40Thr")
my_data50=subset(my_data, my_data$EFFECT == "missense_variant c.119A>G p.Asp40Gly")
my_data51=subset(my_data, my_data$EFFECT == "missense_variant c.119A>G p.Asp40Gly")
my_data52=subset(my_data, my_data$EFFECT == "missense_variant c.11C>G p.Thr4Ser")
my_data53=subset(my_data, my_data$EFFECT == "missense_variant c.1208C>G p.Pro403Arg")
my_data54=subset(my_data, my_data$EFFECT == "missense_variant c.1208T>C p.Val403Ala")
my_data55=subset(my_data, my_data$EFFECT == "missense_variant c.120G>T p.Met40Ile")
my_data56=subset(my_data, my_data$EFFECT == "missense_variant c.1211A>G p.Gln404Arg")
my_data57=subset(my_data, my_data$EFFECT == "missense_variant c.1216G>A p.Val406Met")
my_data58=subset(my_data, my_data$EFFECT == "missense_variant c.1217C>A p.Ala406Glu")
my_data59=subset(my_data, my_data$EFFECT == "missense_variant c.1218G>T p.Trp406Cys")
my_data60=subset(my_data, my_data$EFFECT == "missense_variant c.121G>C p.Ala41Pro")
my_data61=subset(my_data, my_data$EFFECT == "missense_variant c.1226C>T p.Thr409Ile")
my_data62=subset(my_data, my_data$EFFECT == "missense_variant c.1234A>G p.Met412Val")
my_data63=subset(my_data, my_data$EFFECT == "missense_variant c.1234G>A p.Gly412Ser")
my_data64=subset(my_data, my_data$EFFECT == "missense_variant c.1238T>A p.Phe413Tyr")
my_data65=subset(my_data, my_data$EFFECT == "missense_variant c.124A>G p.Lys42Glu")
my_data66=subset(my_data, my_data$EFFECT == "missense_variant c.1252T>C p.Phe418Leu")
my_data67=subset(my_data, my_data$EFFECT == "missense_variant c.1253G>A p.Gly418Asp")
my_data68=subset(my_data, my_data$EFFECT == "missense_variant c.1264C>G p.Leu422Val")
my_data69=subset(my_data, my_data$EFFECT == "missense_variant c.1264C>T p.Arg422Cys")
my_data70=subset(my_data, my_data$EFFECT == "missense_variant c.1272G>C p.Glu424Asp")
my_data71=subset(my_data, my_data$EFFECT == "missense_variant c.1289T>C p.Ile430Thr")
my_data72=subset(my_data, my_data$EFFECT == "missense_variant c.128C>T p.Ala43Val")
my_data73=subset(my_data, my_data$EFFECT == "missense_variant c.1309C>T p.Pro437Ser")
my_data74=subset(my_data, my_data$EFFECT == "missense_variant c.1312C>T p.Arg438Cys")
my_data75=subset(my_data, my_data$EFFECT == "missense_variant c.1319C>A p.Thr440Asn")
my_data76=subset(my_data, my_data$EFFECT == "missense_variant c.131A>G p.Gln44Arg")
my_data77=subset(my_data, my_data$EFFECT == "missense_variant c.131T>C p.Val44Ala")
my_data78=subset(my_data, my_data$EFFECT == "missense_variant c.1322C>T p.Thr441Met")
my_data79=subset(my_data, my_data$EFFECT == "missense_variant c.1333A>G p.Ile445Val")
my_data80=subset(my_data, my_data$EFFECT == "missense_variant c.133G>A p.Ala45Thr")
my_data81=subset(my_data, my_data$EFFECT == "missense_variant c.1340A>T p.Asn447Ile")
my_data82=subset(my_data, my_data$EFFECT == "missense_variant c.1342T>C p.Ser448Pro")
my_data83=subset(my_data, my_data$EFFECT == "missense_variant c.1349C>A p.Ala450Glu")
my_data84=subset(my_data, my_data$EFFECT == "missense_variant c.134A>G p.Gln45Arg")
my_data85=subset(my_data, my_data$EFFECT == "missense_variant c.1363A>C p.Lys455Gln")
my_data86=subset(my_data, my_data$EFFECT == "missense_variant c.1364G>A p.Arg455His")
my_data87=subset(my_data, my_data$EFFECT == "missense_variant c.136G>A p.Asp46Asn")
my_data88=subset(my_data, my_data$EFFECT == "missense_variant c.137T>C p.Leu46Ser")
my_data89=subset(my_data, my_data$EFFECT == "missense_variant c.137T>C p.Val46Ala")
my_data90=subset(my_data, my_data$EFFECT == "missense_variant c.13C>T p.His5Tyr")
my_data91=subset(my_data, my_data$EFFECT == "missense_variant c.1405G>C p.Val469Leu")
my_data92=subset(my_data, my_data$EFFECT == "missense_variant c.1411G>C p.Val471Leu")
my_data93=subset(my_data, my_data$EFFECT == "missense_variant c.1439T>C p.Val480Ala")
my_data94=subset(my_data, my_data$EFFECT == "missense_variant c.143C>T p.Ala48Val")
my_data95=subset(my_data, my_data$EFFECT == "missense_variant c.1442A>G p.Asn481Ser")
my_data96=subset(my_data, my_data$EFFECT == "missense_variant c.1449G>C p.Glu483Asp")
my_data97=subset(my_data, my_data$EFFECT == "missense_variant c.1457A>C p.Lys486Thr")
my_data98=subset(my_data, my_data$EFFECT == "missense_variant c.1460A>C p.Tyr487Ser")
my_data99=subset(my_data, my_data$EFFECT == "missense_variant c.146C>T p.Thr49Met")
my_data100=subset(my_data, my_data$EFFECT == "missense_variant c.1478T>C p.Ile493Thr")
my_data101=subset(my_data, my_data$EFFECT == "missense_variant c.148A>G p.Ile50Val")
my_data102=subset(my_data, my_data$EFFECT == "missense_variant c.148C>T p.Leu50Phe")
my_data103=subset(my_data, my_data$EFFECT == "missense_variant c.1519G>A p.Val507Ile")
my_data104=subset(my_data, my_data$EFFECT == "missense_variant c.151C>A p.Leu51Ile")
my_data105=subset(my_data, my_data$EFFECT == "missense_variant c.151G>A p.Ala51Thr")
my_data106=subset(my_data, my_data$EFFECT == "missense_variant c.1526A>C p.Glu509Ala")
my_data107=subset(my_data, my_data$EFFECT == "missense_variant c.152C>T p.Thr51Met")
my_data108=subset(my_data, my_data$EFFECT == "missense_variant c.1533C>A p.Asp511Glu")
my_data109=subset(my_data, my_data$EFFECT == "missense_variant c.1544C>G p.Thr515Arg")
my_data110=subset(my_data, my_data$EFFECT == "missense_variant c.154G>C p.Glu52Gln")
my_data111=subset(my_data, my_data$EFFECT == "missense_variant c.1550T>C p.Val517Ala")
my_data112=subset(my_data, my_data$EFFECT == "missense_variant c.1566G>C p.Glu522Asp")
my_data113=subset(my_data, my_data$EFFECT == "missense_variant c.158T>G p.Leu53Arg")
my_data114=subset(my_data, my_data$EFFECT == "missense_variant c.160A>G p.Thr54Ala")
my_data115=subset(my_data, my_data$EFFECT == "missense_variant c.1612G>C p.Val538Leu")
my_data116=subset(my_data, my_data$EFFECT == "missense_variant c.1613C>T p.Ala538Val")
my_data117=subset(my_data, my_data$EFFECT == "missense_variant c.1627T>G p.Phe543Val")
my_data118=subset(my_data, my_data$EFFECT == "missense_variant c.162T>G p.Asn54Lys")
my_data119=subset(my_data, my_data$EFFECT == "missense_variant c.163C>T p.Pro55Ser")
my_data120=subset(my_data, my_data$EFFECT == "missense_variant c.163G>T p.Ala55Ser")
my_data121=subset(my_data, my_data$EFFECT == "missense_variant c.164A>G p.Asn55Ser")
my_data122=subset(my_data, my_data$EFFECT == "missense_variant c.164C>T p.Ser55Phe")
my_data123=subset(my_data, my_data$EFFECT == "missense_variant c.164C>T p.Thr55Met")
my_data124=subset(my_data, my_data$EFFECT == "missense_variant c.1658C>A p.Thr553Lys")
my_data125=subset(my_data, my_data$EFFECT == "missense_variant c.165T>G p.Ser55Arg")
my_data126=subset(my_data, my_data$EFFECT == "missense_variant c.1672T>C p.Trp558Arg")
my_data127=subset(my_data, my_data$EFFECT == "missense_variant c.1691G>C p.Arg564Pro")
my_data128=subset(my_data, my_data$EFFECT == "missense_variant c.1694G>C p.Trp565Ser")
my_data129=subset(my_data, my_data$EFFECT == "missense_variant c.16A>C p.Ser6Arg")
my_data130=subset(my_data, my_data$EFFECT == "missense_variant c.16C>T p.Leu6Phe")
my_data131=subset(my_data, my_data$EFFECT == "missense_variant c.170C>T p.Ala57Val")
my_data132=subset(my_data, my_data$EFFECT == "missense_variant c.1717T>C p.Phe573Leu")
my_data133=subset(my_data, my_data$EFFECT == "missense_variant c.172A>G p.Met58Val")
my_data134=subset(my_data, my_data$EFFECT == "missense_variant c.173G>A p.Arg58Lys")
my_data135=subset(my_data, my_data$EFFECT == "missense_variant c.1753C>T p.Pro585Ser")
my_data136=subset(my_data, my_data$EFFECT == "missense_variant c.1782C>G p.Phe594Leu")
my_data137=subset(my_data, my_data$EFFECT == "missense_variant c.17T>C p.Val6Ala")
my_data138=subset(my_data, my_data$EFFECT == "missense_variant c.182A>G p.Gln61Arg")
my_data139=subset(my_data, my_data$EFFECT == "missense_variant c.1832A>G p.Gln611Arg")
my_data140=subset(my_data, my_data$EFFECT == "missense_variant c.1835C>T p.Ala612Val")
my_data141=subset(my_data, my_data$EFFECT == "missense_variant c.184G>A p.Glu62Lys")
my_data142=subset(my_data, my_data$EFFECT == "missense_variant c.184T>G p.Leu62Val")
my_data143=subset(my_data, my_data$EFFECT == "missense_variant c.1855T>C p.Ser619Pro")
my_data144=subset(my_data, my_data$EFFECT == "missense_variant c.185A>G p.Asn62Ser")
my_data145=subset(my_data, my_data$EFFECT == "missense_variant c.1878G>C p.Glu626Asp")
my_data146=subset(my_data, my_data$EFFECT == "missense_variant c.187G>A p.Gly63Ser")
my_data147=subset(my_data, my_data$EFFECT == "missense_variant c.1885G>A p.Gly629Ser")
my_data148=subset(my_data, my_data$EFFECT == "missense_variant c.188C>T p.Ser63Leu")
my_data149=subset(my_data, my_data$EFFECT == "missense_variant c.188T>C p.Val63Ala")
my_data150=subset(my_data, my_data$EFFECT == "missense_variant c.18C>A p.Asp6Glu")
my_data151=subset(my_data, my_data$EFFECT == "missense_variant c.1901T>A p.Val634Glu")
my_data152=subset(my_data, my_data$EFFECT == "missense_variant c.190A>G p.Ser64Gly")
my_data153=subset(my_data, my_data$EFFECT == "missense_variant c.190A>G p.Thr64Ala")
my_data154=subset(my_data, my_data$EFFECT == "missense_variant c.191A>G p.His64Arg")
my_data155=subset(my_data, my_data$EFFECT == "missense_variant c.1930A>G p.Thr644Ala")
my_data156=subset(my_data, my_data$EFFECT == "missense_variant c.1934A>G p.Glu645Gly")
my_data157=subset(my_data, my_data$EFFECT == "missense_variant c.194C>T p.Ala65Val")
my_data158=subset(my_data, my_data$EFFECT == "missense_variant c.1969G>A p.Ala657Thr")
my_data159=subset(my_data, my_data$EFFECT == "missense_variant c.196A>G p.Asn66Asp")
my_data160=subset(my_data, my_data$EFFECT == "missense_variant c.196A>G p.Ser66Gly")
my_data161=subset(my_data, my_data$EFFECT == "missense_variant c.1980G>A p.Met660Ile")
my_data162=subset(my_data, my_data$EFFECT == "missense_variant c.198A>C p.Arg66Ser")
my_data163=subset(my_data, my_data$EFFECT == "missense_variant c.199C>T p.Arg67Cys")
my_data164=subset(my_data, my_data$EFFECT == "missense_variant c.199T>C p.Phe67Leu")
my_data165=subset(my_data, my_data$EFFECT == "missense_variant c.199T>C p.Ser67Pro")
my_data166=subset(my_data, my_data$EFFECT == "missense_variant c.19G>A p.Ala7Thr")
my_data167=subset(my_data, my_data$EFFECT == "missense_variant c.19G>A p.Ala7Thr")
my_data168=subset(my_data, my_data$EFFECT == "missense_variant c.202T>G p.Tyr68Asp")
my_data169=subset(my_data, my_data$EFFECT == "missense_variant c.206G>A p.Ser69Asn")
my_data170=subset(my_data, my_data$EFFECT == "missense_variant c.2070G>T p.Met690Ile")
my_data171=subset(my_data, my_data$EFFECT == "missense_variant c.2074A>G p.Lys692Glu")
my_data172=subset(my_data, my_data$EFFECT == "missense_variant c.2074C>T p.Pro692Ser")
my_data173=subset(my_data, my_data$EFFECT == "missense_variant c.2074G>C p.Gly692Arg")
my_data174=subset(my_data, my_data$EFFECT == "missense_variant c.211C>T p.Pro71Ser")
my_data175=subset(my_data, my_data$EFFECT == "missense_variant c.215A>G p.Lys72Arg")
my_data176=subset(my_data, my_data$EFFECT == "missense_variant c.2173G>C p.Glu725Gln")
my_data177=subset(my_data, my_data$EFFECT == "missense_variant c.218C>T p.Ala73Val")
my_data178=subset(my_data, my_data$EFFECT == "missense_variant c.218T>G p.Leu73Arg")
my_data179=subset(my_data, my_data$EFFECT == "missense_variant c.220G>T p.Val74Leu")
my_data180=subset(my_data, my_data$EFFECT == "missense_variant c.220T>A p.Phe74Ile")
my_data181=subset(my_data, my_data$EFFECT == "missense_variant c.220T>G p.Ser74Ala")
my_data182=subset(my_data, my_data$EFFECT == "missense_variant c.223C>A p.Gln75Lys")
my_data183=subset(my_data, my_data$EFFECT == "missense_variant c.223T>G p.Tyr75Asp")
my_data184=subset(my_data, my_data$EFFECT == "missense_variant c.2248T>A p.Ser750Thr")
my_data185=subset(my_data, my_data$EFFECT == "missense_variant c.2260A>G p.Thr754Ala")
my_data186=subset(my_data, my_data$EFFECT == "missense_variant c.2263G>C p.Glu755Gln")
my_data187=subset(my_data, my_data$EFFECT == "missense_variant c.227C>T p.Pro76Leu")
my_data188=subset(my_data, my_data$EFFECT == "missense_variant c.227T>C p.Leu76Ser")
my_data189=subset(my_data, my_data$EFFECT == "missense_variant c.229C>A p.Leu77Ile")
my_data190=subset(my_data, my_data$EFFECT == "missense_variant c.230T>A p.Phe77Tyr")
my_data191=subset(my_data, my_data$EFFECT == "missense_variant c.232A>G p.Ile78Val")
my_data192=subset(my_data, my_data$EFFECT == "missense_variant c.236C>T p.Ala79Val")
my_data193=subset(my_data, my_data$EFFECT == "missense_variant c.239A>G p.Tyr80Cys")
my_data194=subset(my_data, my_data$EFFECT == "missense_variant c.239G>A p.Arg80His")
my_data195=subset(my_data, my_data$EFFECT == "missense_variant c.241C>G p.Pro81Ala")
my_data196=subset(my_data, my_data$EFFECT == "missense_variant c.2422C>T p.Pro808Ser")
my_data197=subset(my_data, my_data$EFFECT == "missense_variant c.2428G>T p.Gly810Cys")
my_data198=subset(my_data, my_data$EFFECT == "missense_variant c.242T>C p.Leu81Pro")
my_data199=subset(my_data, my_data$EFFECT == "missense_variant c.244T>C p.Ser82Pro")
my_data200=subset(my_data, my_data$EFFECT == "missense_variant c.248A>C p.Glu83Ala")
my_data201=subset(my_data, my_data$EFFECT == "missense_variant c.249C>A p.Asp83Glu")
my_data202=subset(my_data, my_data$EFFECT == "missense_variant c.250A>G p.Ile84Val")
my_data203=subset(my_data, my_data$EFFECT == "missense_variant c.251A>C p.Asp84Ala")
my_data204=subset(my_data, my_data$EFFECT == "missense_variant c.251G>C p.Trp84Ser")
my_data205=subset(my_data, my_data$EFFECT == "missense_variant c.251T>C p.Val84Ala")
my_data206=subset(my_data, my_data$EFFECT == "missense_variant c.2539C>T p.Arg847Cys")
my_data207=subset(my_data, my_data$EFFECT == "missense_variant c.253G>A p.Gly85Ser")
my_data208=subset(my_data, my_data$EFFECT == "missense_variant c.253G>A p.Val85Ile")
my_data209=subset(my_data, my_data$EFFECT == "missense_variant c.254T>C p.Leu85Pro")
my_data210=subset(my_data, my_data$EFFECT == "missense_variant c.254T>C p.Leu85Pro")
my_data211=subset(my_data, my_data$EFFECT == "missense_variant c.256C>A p.Arg86Ser")
my_data212=subset(my_data, my_data$EFFECT == "missense_variant c.257C>T p.Ala86Val")
my_data213=subset(my_data, my_data$EFFECT == "missense_variant c.2596G>A p.Ala866Thr")
my_data214=subset(my_data, my_data$EFFECT == "missense_variant c.259G>T p.Asp87Tyr")
my_data215=subset(my_data, my_data$EFFECT == "missense_variant c.25C>G p.Leu9Val")
my_data216=subset(my_data, my_data$EFFECT == "missense_variant c.25G>A p.Val9Ile")
my_data217=subset(my_data, my_data$EFFECT == "missense_variant c.260C>T p.Ala87Val")
my_data218=subset(my_data, my_data$EFFECT == "missense_variant c.260C>T p.Thr87Met")
my_data219=subset(my_data, my_data$EFFECT == "missense_variant c.262A>G p.Thr88Ala")
my_data220=subset(my_data, my_data$EFFECT == "missense_variant c.263A>C p.Asn88Thr")
my_data221=subset(my_data, my_data$EFFECT == "missense_variant c.263C>T p.Pro88Leu")
my_data222=subset(my_data, my_data$EFFECT == "missense_variant c.2646G>T p.Lys882Asn")
my_data223=subset(my_data, my_data$EFFECT == "missense_variant c.266T>C p.Val89Ala")
my_data224=subset(my_data, my_data$EFFECT == "missense_variant c.2680C>T p.Arg894Cys")
my_data225=subset(my_data, my_data$EFFECT == "missense_variant c.268A>G p.Thr90Ala")
my_data226=subset(my_data, my_data$EFFECT == "missense_variant c.269C>A p.Thr90Asn")
my_data227=subset(my_data, my_data$EFFECT == "missense_variant c.26A>G p.Lys9Arg")
my_data228=subset(my_data, my_data$EFFECT == "missense_variant c.26A>T p.Asp9Val")
my_data229=subset(my_data, my_data$EFFECT == "missense_variant c.271T>G p.Tyr91Asp")
my_data230=subset(my_data, my_data$EFFECT == "missense_variant c.273G>A p.Met91Ile")
my_data231=subset(my_data, my_data$EFFECT == "missense_variant c.2767A>G p.Asn923Asp")
my_data232=subset(my_data, my_data$EFFECT == "missense_variant c.277A>G p.Ile93Val")
my_data233=subset(my_data, my_data$EFFECT == "missense_variant c.277G>A p.Gly93Arg")
my_data234=subset(my_data, my_data$EFFECT == "missense_variant c.2786G>C p.Gly929Ala")
my_data235=subset(my_data, my_data$EFFECT == "missense_variant c.280G>A p.Ala94Thr")
my_data236=subset(my_data, my_data$EFFECT == "missense_variant c.280G>A p.Val94Ile")
my_data237=subset(my_data, my_data$EFFECT == "missense_variant c.280G>A p.Val94Ile")
my_data238=subset(my_data, my_data$EFFECT == "missense_variant c.2816A>G p.Gln939Arg")
my_data239=subset(my_data, my_data$EFFECT == "missense_variant c.2822A>G p.Glu941Gly")
my_data240=subset(my_data, my_data$EFFECT == "missense_variant c.284T>C p.Met95Thr")
my_data241=subset(my_data, my_data$EFFECT == "missense_variant c.287T>A p.Val96Glu")
my_data242=subset(my_data, my_data$EFFECT == "missense_variant c.289C>T p.Arg97Trp")
my_data243=subset(my_data, my_data$EFFECT == "missense_variant c.289G>C p.Ala97Pro")
my_data244=subset(my_data, my_data$EFFECT == "missense_variant c.290C>A p.Ala97Glu")
my_data245=subset(my_data, my_data$EFFECT == "missense_variant c.291C>A p.Asp97Glu")
my_data246=subset(my_data, my_data$EFFECT == "missense_variant c.2921T>C p.Ile974Thr")
my_data247=subset(my_data, my_data$EFFECT == "missense_variant c.293A>G p.Asp98Gly")
my_data248=subset(my_data, my_data$EFFECT == "missense_variant c.293C>T p.Ala98Val")
my_data249=subset(my_data, my_data$EFFECT == "missense_variant c.294C>A p.Asn98Lys")
my_data250=subset(my_data, my_data$EFFECT == "missense_variant c.295A>C p.Asn99His")
my_data251=subset(my_data, my_data$EFFECT == "missense_variant c.295C>T p.Arg99Cys")
my_data252=subset(my_data, my_data$EFFECT == "missense_variant c.2969A>C p.Tyr990Ser")
my_data253=subset(my_data, my_data$EFFECT == "missense_variant c.298A>G p.Asn100Asp")
my_data254=subset(my_data, my_data$EFFECT == "missense_variant c.298C>T p.Pro100Ser")
my_data255=subset(my_data, my_data$EFFECT == "missense_variant c.299C>T p.Ala100Val")
my_data256=subset(my_data, my_data$EFFECT == "missense_variant c.301G>C p.Val101Leu")
my_data257=subset(my_data, my_data$EFFECT == "missense_variant c.301T>C p.Ser101Pro")
my_data258=subset(my_data, my_data$EFFECT == "missense_variant c.302C>T p.Ala101Val")
my_data259=subset(my_data, my_data$EFFECT == "missense_variant c.304G>A p.Val102Met")
my_data260=subset(my_data, my_data$EFFECT == "missense_variant c.313G>A p.Val105Ile")
my_data261=subset(my_data, my_data$EFFECT == "missense_variant c.3145G>A p.Asp1049Asn")
my_data262=subset(my_data, my_data$EFFECT == "missense_variant c.316A>G p.Ile106Val")
my_data263=subset(my_data, my_data$EFFECT == "missense_variant c.316G>A p.Gly106Ser")
my_data264=subset(my_data, my_data$EFFECT == "missense_variant c.319A>C p.Thr107Pro")
my_data265=subset(my_data, my_data$EFFECT == "missense_variant c.3224C>T p.Ala1075Val")
my_data266=subset(my_data, my_data$EFFECT == "missense_variant c.323G>A p.Arg108Gln")
my_data267=subset(my_data, my_data$EFFECT == "missense_variant c.323T>C p.Val108Ala")
my_data268=subset(my_data, my_data$EFFECT == "missense_variant c.3245T>C p.Phe1082Ser")
my_data269=subset(my_data, my_data$EFFECT == "missense_variant c.325C>T p.Pro109Ser")
my_data270=subset(my_data, my_data$EFFECT == "missense_variant c.328C>T p.Pro110Ser")
my_data271=subset(my_data, my_data$EFFECT == "missense_variant c.3310C>G p.Gln1104Glu")
my_data272=subset(my_data, my_data$EFFECT == "missense_variant c.331G>A p.Ala111Thr")
my_data273=subset(my_data, my_data$EFFECT == "missense_variant c.334G>A p.Gly112Ser")
my_data274=subset(my_data, my_data$EFFECT == "missense_variant c.335T>A p.Leu112Gln")
my_data275=subset(my_data, my_data$EFFECT == "missense_variant c.335T>C p.Val112Ala")
my_data276=subset(my_data, my_data$EFFECT == "missense_variant c.336G>T p.Met112Ile")
my_data277=subset(my_data, my_data$EFFECT == "missense_variant c.337A>G p.Ile113Val")
my_data278=subset(my_data, my_data$EFFECT == "missense_variant c.341T>C p.Val114Ala")
my_data279=subset(my_data, my_data$EFFECT == "missense_variant c.343C>A p.Pro115Thr")
my_data280=subset(my_data, my_data$EFFECT == "missense_variant c.346G>A p.Gly116Ser")
my_data281=subset(my_data, my_data$EFFECT == "missense_variant c.3472G>A p.Ala1158Thr")
my_data282=subset(my_data, my_data$EFFECT == "missense_variant c.347T>C p.Val116Ala")
my_data283=subset(my_data, my_data$EFFECT == "missense_variant c.349A>G p.Thr117Ala")
my_data284=subset(my_data, my_data$EFFECT == "missense_variant c.349G>C p.Val117Leu")
my_data285=subset(my_data, my_data$EFFECT == "missense_variant c.351C>G p.Asp117Glu")
my_data286=subset(my_data, my_data$EFFECT == "missense_variant c.356T>C p.Ile119Thr")
my_data287=subset(my_data, my_data$EFFECT == "missense_variant c.358G>T p.Ala120Ser")
my_data288=subset(my_data, my_data$EFFECT == "missense_variant c.361A>G p.Thr121Ala")
my_data289=subset(my_data, my_data$EFFECT == "missense_variant c.362G>C p.Arg121Pro")
my_data290=subset(my_data, my_data$EFFECT == "missense_variant c.365T>C p.Leu122Ser")
my_data291=subset(my_data, my_data$EFFECT == "missense_variant c.366C>A p.Asn122Lys")
my_data292=subset(my_data, my_data$EFFECT == "missense_variant c.367G>A p.Ala123Thr")
my_data293=subset(my_data, my_data$EFFECT == "missense_variant c.367G>A p.Val123Ile")
my_data294=subset(my_data, my_data$EFFECT == "missense_variant c.371G>A p.Ser124Asn")
my_data295=subset(my_data, my_data$EFFECT == "missense_variant c.371T>G p.Val124Gly")
my_data296=subset(my_data, my_data$EFFECT == "missense_variant c.374G>T p.Gly125Val")
my_data297=subset(my_data, my_data$EFFECT == "missense_variant c.377A>G p.Asn126Ser")
my_data298=subset(my_data, my_data$EFFECT == "missense_variant c.3784G>T p.Ala1262Ser")
my_data299=subset(my_data, my_data$EFFECT == "missense_variant c.379G>T p.Ala127Ser")
my_data300=subset(my_data, my_data$EFFECT == "missense_variant c.37G>A p.Gly13Arg")
my_data301=subset(my_data, my_data$EFFECT == "missense_variant c.37G>T p.Gly13Cys")
my_data302=subset(my_data, my_data$EFFECT == "missense_variant c.380A>G p.His127Arg")
my_data303=subset(my_data, my_data$EFFECT == "missense_variant c.383C>T p.Ala128Val")
my_data304=subset(my_data, my_data$EFFECT == "missense_variant c.383T>C p.Val128Ala")
my_data305=subset(my_data, my_data$EFFECT == "missense_variant c.385G>A p.Gly129Ser")
my_data306=subset(my_data, my_data$EFFECT == "missense_variant c.388G>T p.Asp130Tyr")
my_data307=subset(my_data, my_data$EFFECT == "missense_variant c.389T>C p.Leu130Pro")
my_data308=subset(my_data, my_data$EFFECT == "missense_variant c.38G>A p.Gly13Glu")
my_data309=subset(my_data, my_data$EFFECT == "missense_variant c.3938A>G p.Asp1313Gly")
my_data310=subset(my_data, my_data$EFFECT == "missense_variant c.3943G>A p.Val1315Ile")
my_data311=subset(my_data, my_data$EFFECT == "missense_variant c.395T>C p.Ile132Thr")
my_data312=subset(my_data, my_data$EFFECT == "missense_variant c.3979G>T p.Ala1327Ser")
my_data313=subset(my_data, my_data$EFFECT == "missense_variant c.400A>G p.Ile134Val")
my_data314=subset(my_data, my_data$EFFECT == "missense_variant c.401T>C p.Leu134Pro")
my_data315=subset(my_data, my_data$EFFECT == "missense_variant c.406A>G p.Thr136Ala")
my_data316=subset(my_data, my_data$EFFECT == "missense_variant c.4073A>G p.Asp1358Gly")
my_data317=subset(my_data, my_data$EFFECT == "missense_variant c.407A>G p.Gln136Arg")
my_data318=subset(my_data, my_data$EFFECT == "missense_variant c.407A>T p.Asn136Ile")
my_data319=subset(my_data, my_data$EFFECT == "missense_variant c.407T>C p.Ile136Thr")
my_data320=subset(my_data, my_data$EFFECT == "missense_variant c.409G>A p.Ala137Thr")
my_data321=subset(my_data, my_data$EFFECT == "missense_variant c.409G>C p.Glu137Gln")
my_data322=subset(my_data, my_data$EFFECT == "missense_variant c.410T>A p.Leu137Gln")
my_data323=subset(my_data, my_data$EFFECT == "missense_variant c.410T>A p.Met137Lys")
my_data324=subset(my_data, my_data$EFFECT == "missense_variant c.410T>C p.Leu137Ser")
my_data325=subset(my_data, my_data$EFFECT == "missense_variant c.413A>G p.Asp138Gly")
my_data326=subset(my_data, my_data$EFFECT == "missense_variant c.413G>A p.Arg138His")
my_data327=subset(my_data, my_data$EFFECT == "missense_variant c.413T>C p.Leu138Pro")
my_data328=subset(my_data, my_data$EFFECT == "missense_variant c.413T>C p.Leu138Pro")
my_data329=subset(my_data, my_data$EFFECT == "missense_variant c.416C>T p.Ala139Val")
my_data330=subset(my_data, my_data$EFFECT == "missense_variant c.419A>C p.Asp140Ala")
my_data331=subset(my_data, my_data$EFFECT == "missense_variant c.419C>T p.Ser140Leu")
my_data332=subset(my_data, my_data$EFFECT == "missense_variant c.421C>G p.Pro141Ala")
my_data333=subset(my_data, my_data$EFFECT == "missense_variant c.422G>A p.Gly141Glu")
my_data334=subset(my_data, my_data$EFFECT == "missense_variant c.424G>A p.Ala142Thr")
my_data335=subset(my_data, my_data$EFFECT == "missense_variant c.424G>A p.Gly142Ser")
my_data336=subset(my_data, my_data$EFFECT == "missense_variant c.427A>G p.Met143Val")
my_data337=subset(my_data, my_data$EFFECT == "missense_variant c.427A>G p.Met143Val")
my_data338=subset(my_data, my_data$EFFECT == "missense_variant c.427C>T p.Pro143Ser")
my_data339=subset(my_data, my_data$EFFECT == "missense_variant c.4282A>G p.Ser1428Gly")
my_data340=subset(my_data, my_data$EFFECT == "missense_variant c.428T>G p.Leu143Arg")
my_data341=subset(my_data, my_data$EFFECT == "missense_variant c.4318G>A p.Asp1440Asn")
my_data342=subset(my_data, my_data$EFFECT == "missense_variant c.431T>C p.Val144Ala")
my_data343=subset(my_data, my_data$EFFECT == "missense_variant c.433A>G p.Ser145Gly")
my_data344=subset(my_data, my_data$EFFECT == "missense_variant c.433G>C p.Glu145Gln")
my_data345=subset(my_data, my_data$EFFECT == "missense_variant c.434T>C p.Leu145Pro")
my_data346=subset(my_data, my_data$EFFECT == "missense_variant c.435G>T p.Leu145Phe")
my_data347=subset(my_data, my_data$EFFECT == "missense_variant c.437G>A p.Arg146His")
my_data348=subset(my_data, my_data$EFFECT == "missense_variant c.43C>T p.Arg15Cys")
my_data349=subset(my_data, my_data$EFFECT == "missense_variant c.43G>A p.Ala15Thr")
my_data350=subset(my_data, my_data$EFFECT == "missense_variant c.445A>G p.Ile149Val")
my_data351=subset(my_data, my_data$EFFECT == "missense_variant c.445G>A p.Gly149Ser")
my_data352=subset(my_data, my_data$EFFECT == "missense_variant c.4469T>C p.Val1490Ala")
my_data353=subset(my_data, my_data$EFFECT == "missense_variant c.449C>T p.Pro150Leu")
my_data354=subset(my_data, my_data$EFFECT == "missense_variant c.449C>T p.Pro150Leu")
my_data355=subset(my_data, my_data$EFFECT == "missense_variant c.451T>A p.Leu151Met")
my_data356=subset(my_data, my_data$EFFECT == "missense_variant c.452G>A p.Gly151Glu")
my_data357=subset(my_data, my_data$EFFECT == "missense_variant c.458C>T p.Ala153Val")
my_data358=subset(my_data, my_data$EFFECT == "missense_variant c.458T>G p.Val153Gly")
my_data359=subset(my_data, my_data$EFFECT == "missense_variant c.45T>G p.Asp15Glu")
my_data360=subset(my_data, my_data$EFFECT == "missense_variant c.460C>T p.Arg154Cys")
my_data361=subset(my_data, my_data$EFFECT == "missense_variant c.461G>A p.Arg154Gln")
my_data362=subset(my_data, my_data$EFFECT == "missense_variant c.463G>T p.Ala155Ser")
my_data363=subset(my_data, my_data$EFFECT == "missense_variant c.464T>C p.Met155Thr")
my_data364=subset(my_data, my_data$EFFECT == "missense_variant c.46A>G p.Lys16Glu")
my_data365=subset(my_data, my_data$EFFECT == "missense_variant c.472C>G p.Arg158Gly")
my_data366=subset(my_data, my_data$EFFECT == "missense_variant c.472T>G p.Leu158Val")
my_data367=subset(my_data, my_data$EFFECT == "missense_variant c.473A>C p.Asn158Thr")
my_data368=subset(my_data, my_data$EFFECT == "missense_variant c.473C>T p.Ala158Val")
my_data369=subset(my_data, my_data$EFFECT == "missense_variant c.473T>C p.Val158Ala")
my_data370=subset(my_data, my_data$EFFECT == "missense_variant c.474G>A p.Met158Ile")
my_data371=subset(my_data, my_data$EFFECT == "missense_variant c.478A>G p.Thr160Ala")
my_data372=subset(my_data, my_data$EFFECT == "missense_variant c.478C>G p.Leu160Val")
my_data373=subset(my_data, my_data$EFFECT == "missense_variant c.4790G>C p.Ser1597Thr")
my_data374=subset(my_data, my_data$EFFECT == "missense_variant c.481G>C p.Ala161Pro")
my_data375=subset(my_data, my_data$EFFECT == "missense_variant c.482A>C p.Gln161Pro")
my_data376=subset(my_data, my_data$EFFECT == "missense_variant c.484T>C p.Phe162Leu")
my_data377=subset(my_data, my_data$EFFECT == "missense_variant c.485G>C p.Gly162Ala")
my_data378=subset(my_data, my_data$EFFECT == "missense_variant c.491T>C p.Val164Ala")
my_data379=subset(my_data, my_data$EFFECT == "missense_variant c.491T>C p.Val164Ala")
my_data380=subset(my_data, my_data$EFFECT == "missense_variant c.499G>A p.Gly167Ser")
my_data381=subset(my_data, my_data$EFFECT == "missense_variant c.499T>C p.Phe167Leu")
my_data382=subset(my_data, my_data$EFFECT == "missense_variant c.499T>G p.Ser167Ala")
my_data383=subset(my_data, my_data$EFFECT == "missense_variant c.49A>G p.Lys17Glu")
my_data384=subset(my_data, my_data$EFFECT == "missense_variant c.49G>A p.Gly17Arg")
my_data385=subset(my_data, my_data$EFFECT == "missense_variant c.49G>A p.Val17Ile")
my_data386=subset(my_data, my_data$EFFECT == "missense_variant c.4G>A p.Asp2Asn")
my_data387=subset(my_data, my_data$EFFECT == "missense_variant c.4G>C p.Ala2Pro")
my_data388=subset(my_data, my_data$EFFECT == "missense_variant c.502A>G p.Lys168Glu")
my_data389=subset(my_data, my_data$EFFECT == "missense_variant c.506A>G p.Asp169Gly")
my_data390=subset(my_data, my_data$EFFECT == "missense_variant c.506C>T p.Thr169Met")
my_data391=subset(my_data, my_data$EFFECT == "missense_variant c.50C>T p.Pro17Leu")
my_data392=subset(my_data, my_data$EFFECT == "missense_variant c.50C>T p.Pro17Leu")
my_data393=subset(my_data, my_data$EFFECT == "missense_variant c.50T>C p.Val17Ala")
my_data394=subset(my_data, my_data$EFFECT == "missense_variant c.50T>C p.Val17Ala")
my_data395=subset(my_data, my_data$EFFECT == "missense_variant c.511A>T p.Arg171Trp")
my_data396=subset(my_data, my_data$EFFECT == "missense_variant c.5126T>G p.Val1709Gly")
my_data397=subset(my_data, my_data$EFFECT == "missense_variant c.518A>G p.Asn173Ser")
my_data398=subset(my_data, my_data$EFFECT == "missense_variant c.521A>C p.Glu174Ala")
my_data399=subset(my_data, my_data$EFFECT == "missense_variant c.521A>C p.Glu174Ala")
my_data400=subset(my_data, my_data$EFFECT == "missense_variant c.5282T>C p.Val1761Ala")
my_data401=subset(my_data, my_data$EFFECT == "missense_variant c.52C>T p.His18Tyr")
my_data402=subset(my_data, my_data$EFFECT == "missense_variant c.52G>C p.Ala18Pro")
my_data403=subset(my_data, my_data$EFFECT == "missense_variant c.532G>A p.Gly178Arg")
my_data404=subset(my_data, my_data$EFFECT == "missense_variant c.533A>C p.Glu178Ala")
my_data405=subset(my_data, my_data$EFFECT == "missense_variant c.533C>T p.Ala178Val")
my_data406=subset(my_data, my_data$EFFECT == "missense_variant c.533C>T p.Thr178Met")
my_data407=subset(my_data, my_data$EFFECT == "missense_variant c.533C>T p.Thr178Met")
my_data408=subset(my_data, my_data$EFFECT == "missense_variant c.534G>T p.Lys178Asn")
my_data409=subset(my_data, my_data$EFFECT == "missense_variant c.536A>G p.Asn179Ser")
my_data410=subset(my_data, my_data$EFFECT == "missense_variant c.536C>T p.Ala179Val")
my_data411=subset(my_data, my_data$EFFECT == "missense_variant c.539A>G p.Glu180Gly")
my_data412=subset(my_data, my_data$EFFECT == "missense_variant c.544G>A p.Asp182Asn")
my_data413=subset(my_data, my_data$EFFECT == "missense_variant c.545C>T p.Thr182Met")
my_data414=subset(my_data, my_data$EFFECT == "missense_variant c.548A>G p.Tyr183Cys")
my_data415=subset(my_data, my_data$EFFECT == "missense_variant c.553G>A p.Ala185Thr")
my_data416=subset(my_data, my_data$EFFECT == "missense_variant c.554A>G p.Asp185Gly")
my_data417=subset(my_data, my_data$EFFECT == "missense_variant c.554C>A p.Ala185Glu")
my_data418=subset(my_data, my_data$EFFECT == "missense_variant c.562C>G p.Leu188Val")
my_data419=subset(my_data, my_data$EFFECT == "missense_variant c.56G>C p.Gly19Ala")
my_data420=subset(my_data, my_data$EFFECT == "missense_variant c.571C>T p.Arg191Trp")
my_data421=subset(my_data, my_data$EFFECT == "missense_variant c.571C>T p.Pro191Ser")
my_data422=subset(my_data, my_data$EFFECT == "missense_variant c.575T>G p.Val192Gly")
my_data423=subset(my_data, my_data$EFFECT == "missense_variant c.578C>T p.Ala193Val")
my_data424=subset(my_data, my_data$EFFECT == "missense_variant c.57G>C p.Glu19Asp")
my_data425=subset(my_data, my_data$EFFECT == "missense_variant c.580C>T p.Arg194Cys")
my_data426=subset(my_data, my_data$EFFECT == "missense_variant c.583G>C p.Val195Leu")
my_data427=subset(my_data, my_data$EFFECT == "missense_variant c.584A>G p.Tyr195Cys")
my_data428=subset(my_data, my_data$EFFECT == "missense_variant c.584C>A p.Ala195Asp")
my_data429=subset(my_data, my_data$EFFECT == "missense_variant c.589G>A p.Ala197Thr")
my_data430=subset(my_data, my_data$EFFECT == "missense_variant c.592G>A p.Gly198Ser")
my_data431=subset(my_data, my_data$EFFECT == "missense_variant c.593C>G p.Pro198Arg")
my_data432=subset(my_data, my_data$EFFECT == "missense_variant c.595A>G p.Ile199Val")
my_data433=subset(my_data, my_data$EFFECT == "missense_variant c.596C>A p.Ala199Glu")
my_data434=subset(my_data, my_data$EFFECT == "missense_variant c.59G>A p.Arg20Gln")
my_data435=subset(my_data, my_data$EFFECT == "missense_variant c.602C>G p.Pro201Arg")
my_data436=subset(my_data, my_data$EFFECT == "missense_variant c.604A>G p.Met202Val")
my_data437=subset(my_data, my_data$EFFECT == "missense_variant c.604G>C p.Glu202Gln")
my_data438=subset(my_data, my_data$EFFECT == "missense_variant c.605A>C p.Glu202Ala")
my_data439=subset(my_data, my_data$EFFECT == "missense_variant c.610G>A p.Ala204Thr")
my_data440=subset(my_data, my_data$EFFECT == "missense_variant c.613C>T p.His205Tyr")
my_data441=subset(my_data, my_data$EFFECT == "missense_variant c.613C>T p.Pro205Ser")
my_data442=subset(my_data, my_data$EFFECT == "missense_variant c.619A>G p.Asn207Asp")
my_data443=subset(my_data, my_data$EFFECT == "missense_variant c.621G>C p.Glu207Asp")
my_data444=subset(my_data, my_data$EFFECT == "missense_variant c.626A>G p.Glu209Gly")
my_data445=subset(my_data, my_data$EFFECT == "missense_variant c.62T>G p.Ile21Ser")
my_data446=subset(my_data, my_data$EFFECT == "missense_variant c.632C>A p.Thr211Lys")
my_data447=subset(my_data, my_data$EFFECT == "missense_variant c.641G>A p.Gly214Glu")
my_data448=subset(my_data, my_data$EFFECT == "missense_variant c.646T>C p.Ser216Pro")
my_data449=subset(my_data, my_data$EFFECT == "missense_variant c.649A>G p.Met217Val")
my_data450=subset(my_data, my_data$EFFECT == "missense_variant c.64A>G p.Ile22Val")
my_data451=subset(my_data, my_data$EFFECT == "missense_variant c.650C>T p.Ala217Val")
my_data452=subset(my_data, my_data$EFFECT == "missense_variant c.653A>G p.Asp218Gly")
my_data453=subset(my_data, my_data$EFFECT == "missense_variant c.655A>C p.Thr219Pro")
my_data454=subset(my_data, my_data$EFFECT == "missense_variant c.655A>G p.Ile219Val")
my_data455=subset(my_data, my_data$EFFECT == "missense_variant c.657C>G p.Asp219Glu")
my_data456=subset(my_data, my_data$EFFECT == "missense_variant c.658G>A p.Glu220Lys")
my_data457=subset(my_data, my_data$EFFECT == "missense_variant c.65G>C p.Ser22Thr")
my_data458=subset(my_data, my_data$EFFECT == "missense_variant c.665C>T p.Ala222Val")
my_data459=subset(my_data, my_data$EFFECT == "missense_variant c.668T>G p.Ile223Ser")
my_data460=subset(my_data, my_data$EFFECT == "missense_variant c.670T>C p.Tyr224His")
my_data461=subset(my_data, my_data$EFFECT == "missense_variant c.674T>C p.Val225Ala")
my_data462=subset(my_data, my_data$EFFECT == "missense_variant c.677A>T p.Gln226Leu")
my_data463=subset(my_data, my_data$EFFECT == "missense_variant c.67G>A p.Ala23Thr")
my_data464=subset(my_data, my_data$EFFECT == "missense_variant c.680C>T p.Ala227Val")
my_data465=subset(my_data, my_data$EFFECT == "missense_variant c.683G>A p.Gly228Asp")
my_data466=subset(my_data, my_data$EFFECT == "missense_variant c.683T>C p.Val228Ala")
my_data467=subset(my_data, my_data$EFFECT == "missense_variant c.688C>G p.Leu230Val")
my_data468=subset(my_data, my_data$EFFECT == "missense_variant c.691C>T p.Arg231Trp")
my_data469=subset(my_data, my_data$EFFECT == "missense_variant c.694G>A p.Asp232Asn")
my_data470=subset(my_data, my_data$EFFECT == "missense_variant c.695A>G p.Asp232Gly")
my_data471=subset(my_data, my_data$EFFECT == "missense_variant c.695T>C p.Phe232Ser")
my_data472=subset(my_data, my_data$EFFECT == "missense_variant c.710T>C p.Ile237Thr")
my_data473=subset(my_data, my_data$EFFECT == "missense_variant c.71C>T p.Thr24Ile")
my_data474=subset(my_data, my_data$EFFECT == "missense_variant c.728A>C p.Asp243Ala")
my_data475=subset(my_data, my_data$EFFECT == "missense_variant c.728G>A p.Cys243Tyr")
my_data476=subset(my_data, my_data$EFFECT == "missense_variant c.736T>C p.Cys246Arg")
my_data477=subset(my_data, my_data$EFFECT == "missense_variant c.737T>C p.Phe246Ser")
my_data478=subset(my_data, my_data$EFFECT == "missense_variant c.739G>A p.Val247Met")
my_data479=subset(my_data, my_data$EFFECT == "missense_variant c.73A>G p.Ile25Val")
my_data480=subset(my_data, my_data$EFFECT == "missense_variant c.746C>T p.Ala249Val")
my_data481=subset(my_data, my_data$EFFECT == "missense_variant c.748G>A p.Glu250Lys")
my_data482=subset(my_data, my_data$EFFECT == "missense_variant c.74A>G p.Asp25Gly")
my_data483=subset(my_data, my_data$EFFECT == "missense_variant c.74A>G p.Asp25Gly")
my_data484=subset(my_data, my_data$EFFECT == "missense_variant c.74G>A p.Arg25His")
my_data485=subset(my_data, my_data$EFFECT == "missense_variant c.752T>A p.Ile251Asn")
my_data486=subset(my_data, my_data$EFFECT == "missense_variant c.754C>G p.Arg252Gly")
my_data487=subset(my_data, my_data$EFFECT == "missense_variant c.755C>T p.Pro252Leu")
my_data488=subset(my_data, my_data$EFFECT == "missense_variant c.757G>A p.Val253Ile")
my_data489=subset(my_data, my_data$EFFECT == "missense_variant c.761T>G p.Val254Gly")
my_data490=subset(my_data, my_data$EFFECT == "missense_variant c.766G>A p.Asp256Asn")
my_data491=subset(my_data, my_data$EFFECT == "missense_variant c.767A>G p.Glu256Gly")
my_data492=subset(my_data, my_data$EFFECT == "missense_variant c.76G>A p.Asp26Asn")
my_data493=subset(my_data, my_data$EFFECT == "missense_variant c.775A>G p.Thr259Ala")
my_data494=subset(my_data, my_data$EFFECT == "missense_variant c.775G>A p.Asp259Asn")
my_data495=subset(my_data, my_data$EFFECT == "missense_variant c.781C>G p.Gln261Glu")
my_data496=subset(my_data, my_data$EFFECT == "missense_variant c.781C>T p.Arg261Cys")
my_data497=subset(my_data, my_data$EFFECT == "missense_variant c.784A>G p.Ile262Val")
my_data498=subset(my_data, my_data$EFFECT == "missense_variant c.788A>G p.Lys263Arg")
my_data499=subset(my_data, my_data$EFFECT == "missense_variant c.789G>C p.Lys263Asn")
my_data500=subset(my_data, my_data$EFFECT == "missense_variant c.790C>T p.Arg264Cys")
my_data501=subset(my_data, my_data$EFFECT == "missense_variant c.796G>A p.Val266Met")
my_data502=subset(my_data, my_data$EFFECT == "missense_variant c.796G>C p.Ala266Pro")
my_data503=subset(my_data, my_data$EFFECT == "missense_variant c.799G>C p.Val267Leu")
my_data504=subset(my_data, my_data$EFFECT == "missense_variant c.7C>G p.Leu3Val")
my_data505=subset(my_data, my_data$EFFECT == "missense_variant c.80C>T p.Ala27Val")
my_data506=subset(my_data, my_data$EFFECT == "missense_variant c.80C>T p.Thr27Ile")
my_data507=subset(my_data, my_data$EFFECT == "missense_variant c.813C>A p.Asp271Glu")
my_data508=subset(my_data, my_data$EFFECT == "missense_variant c.815T>G p.Leu272Trp")
my_data509=subset(my_data, my_data$EFFECT == "missense_variant c.819A>G p.Ile273Met")
my_data510=subset(my_data, my_data$EFFECT == "missense_variant c.81G>T p.Glu27Asp")
my_data511=subset(my_data, my_data$EFFECT == "missense_variant c.81G>T p.Met27Ile")
my_data512=subset(my_data, my_data$EFFECT == "missense_variant c.820G>A p.Ala274Thr")
my_data513=subset(my_data, my_data$EFFECT == "missense_variant c.829T>G p.Ser277Ala")
my_data514=subset(my_data, my_data$EFFECT == "missense_variant c.82G>A p.Ala28Thr")
my_data515=subset(my_data, my_data$EFFECT == "missense_variant c.831A>T p.Gln277His")
my_data516=subset(my_data, my_data$EFFECT == "missense_variant c.835A>G p.Lys279Glu")
my_data517=subset(my_data, my_data$EFFECT == "missense_variant c.836G>A p.Ser279Asn")
my_data518=subset(my_data, my_data$EFFECT == "missense_variant c.83C>T p.Pro28Leu")
my_data519=subset(my_data, my_data$EFFECT == "missense_variant c.844G>A p.Val282Met")
my_data520=subset(my_data, my_data$EFFECT == "missense_variant c.848C>A p.Ser283Tyr")
my_data521=subset(my_data, my_data$EFFECT == "missense_variant c.859A>G p.Ile287Val")
my_data522=subset(my_data, my_data$EFFECT == "missense_variant c.859G>A p.Gly287Ser")
my_data523=subset(my_data, my_data$EFFECT == "missense_variant c.859G>A p.Val287Ile")
my_data524=subset(my_data, my_data$EFFECT == "missense_variant c.85A>C p.Thr29Pro")
my_data525=subset(my_data, my_data$EFFECT == "missense_variant c.86A>G p.Asp29Gly")
my_data526=subset(my_data, my_data$EFFECT == "missense_variant c.875G>A p.Arg292His")
my_data527=subset(my_data, my_data$EFFECT == "missense_variant c.878A>T p.Gln293Leu")
my_data528=subset(my_data, my_data$EFFECT == "missense_variant c.881A>C p.Asp294Ala")
my_data529=subset(my_data, my_data$EFFECT == "missense_variant c.886A>G p.Thr296Ala")
my_data530=subset(my_data, my_data$EFFECT == "missense_variant c.886G>C p.Asp296His")
my_data531=subset(my_data, my_data$EFFECT == "missense_variant c.893A>G p.Asp298Gly")
my_data532=subset(my_data, my_data$EFFECT == "missense_variant c.902G>A p.Arg301Gln")
my_data533=subset(my_data, my_data$EFFECT == "missense_variant c.902G>A p.Arg301His")
my_data534=subset(my_data, my_data$EFFECT == "missense_variant c.907G>A p.Gly303Arg")
my_data535=subset(my_data, my_data$EFFECT == "missense_variant c.913G>A p.Ala305Thr")
my_data536=subset(my_data, my_data$EFFECT == "missense_variant c.914T>A p.Phe305Tyr")
my_data537=subset(my_data, my_data$EFFECT == "missense_variant c.922A>G p.Ile308Val")
my_data538=subset(my_data, my_data$EFFECT == "missense_variant c.922A>G p.Thr308Ala")
my_data539=subset(my_data, my_data$EFFECT == "missense_variant c.926C>T p.Ser309Leu")
my_data540=subset(my_data, my_data$EFFECT == "missense_variant c.929A>G p.Asn310Ser")
my_data541=subset(my_data, my_data$EFFECT == "missense_variant c.929C>T p.Ala310Val")
my_data542=subset(my_data, my_data$EFFECT == "missense_variant c.92C>T p.Pro31Leu")
my_data543=subset(my_data, my_data$EFFECT == "missense_variant c.941C>G p.Ser314Cys")
my_data544=subset(my_data, my_data$EFFECT == "missense_variant c.941T>C p.Val314Ala")
my_data545=subset(my_data, my_data$EFFECT == "missense_variant c.943G>C p.Gly315Arg")
my_data546=subset(my_data, my_data$EFFECT == "missense_variant c.944C>G p.Ala315Gly")
my_data547=subset(my_data, my_data$EFFECT == "missense_variant c.94A>G p.Ser32Gly")
my_data548=subset(my_data, my_data$EFFECT == "missense_variant c.952A>G p.Thr318Ala")
my_data549=subset(my_data, my_data$EFFECT == "missense_variant c.958A>G p.Thr320Ala")
my_data550=subset(my_data, my_data$EFFECT == "missense_variant c.961G>T p.Ala321Ser")
my_data551=subset(my_data, my_data$EFFECT == "missense_variant c.967C>T p.Leu323Phe")
my_data552=subset(my_data, my_data$EFFECT == "missense_variant c.971C>T p.Ala324Val")
my_data553=subset(my_data, my_data$EFFECT == "missense_variant c.976C>T p.His326Tyr")
my_data554=subset(my_data, my_data$EFFECT == "missense_variant c.977T>C p.Val326Ala")
my_data555=subset(my_data, my_data$EFFECT == "missense_variant c.983C>T p.Pro328Leu")
my_data556=subset(my_data, my_data$EFFECT == "missense_variant c.9878T>C p.Val3293Ala")
my_data557=subset(my_data, my_data$EFFECT == "missense_variant c.990G>T p.Glu330Asp")
my_data558=subset(my_data, my_data$EFFECT == "non_coding_transcript_variant")
my_data559=subset(my_data, my_data$EFFECT == "non_coding_transcript_variant")
my_data560=subset(my_data, my_data$EFFECT == "start_lost c.3G>A p.Val1?")
my_data561=subset(my_data, my_data$EFFECT == "stop_gained c.1207C>T p.Gln403*")
my_data562=subset(my_data, my_data$EFFECT == "stop_gained c.128C>A p.Ser43*")
my_data563=subset(my_data, my_data$EFFECT == "stop_gained c.168C>G p.Tyr56*")
my_data564=subset(my_data, my_data$EFFECT == "stop_gained c.2039C>A p.Ser680*")
my_data565=subset(my_data, my_data$EFFECT == "stop_gained c.248G>A p.Trp83*")
my_data566=subset(my_data, my_data$EFFECT == "stop_gained c.268C>T p.Arg90*")
my_data567=subset(my_data, my_data$EFFECT == "stop_gained c.324G>A p.Trp108*")
my_data568=subset(my_data, my_data$EFFECT == "stop_gained c.331C>T p.Gln111*")
my_data569=subset(my_data, my_data$EFFECT == "stop_gained c.537G>A p.Trp179*")
my_data570=subset(my_data, my_data$EFFECT == "stop_gained c.545G>A p.Trp182*")
my_data571=subset(my_data, my_data$EFFECT == "stop_gained c.731G>A p.Trp244*")
my_data572=subset(my_data, my_data$EFFECT == "stop_gained c.742C>T p.Gln248*")
my_data573=subset(my_data, my_data$EFFECT == "stop_gained c.742C>T p.Gln248*")
my_data574=subset(my_data, my_data$EFFECT == "stop_gained c.829C>T p.Gln277*")
my_data575=subset(my_data, my_data$EFFECT == "stop_gained c.842G>A p.Trp281*")
my_data576=subset(my_data, my_data$EFFECT == "stop_lost&splice_region_variant c.698G>C p.Ter233Serext*?")
my_data577=subset(my_data, my_data$EFFECT == "stop_lost&splice_region_variant c.856T>C p.Ter286Glnext*?")
my_data578=subset(my_data, my_data$EFFECT == "stop_lost&splice_region_variant c.910T>C p.Ter304Argext*?")
x_af <- rbind(my_data1
,my_data2
,my_data3
,my_data4
,my_data5
,my_data6
,my_data7
,my_data8
,my_data9
,my_data10
,my_data11
,my_data12
,my_data13
,my_data14
,my_data15
,my_data16
,my_data17
,my_data18
,my_data19
,my_data20
,my_data21
,my_data22
,my_data23
,my_data24
,my_data25
,my_data26
,my_data27
,my_data28
,my_data29
,my_data30
,my_data31
,my_data32
,my_data33
,my_data34
,my_data35
,my_data36
,my_data37
,my_data38
,my_data39
,my_data40
,my_data41
,my_data42
,my_data43
,my_data44
,my_data45
,my_data46
,my_data47
,my_data48
,my_data49
,my_data50
,my_data51
,my_data52
,my_data53
,my_data54
,my_data55
,my_data56
,my_data57
,my_data58
,my_data59
,my_data60
,my_data61
,my_data62
,my_data63
,my_data64
,my_data65
,my_data66
,my_data67
,my_data68
,my_data69
,my_data70
,my_data71
,my_data72
,my_data73
,my_data74
,my_data75
,my_data76
,my_data77
,my_data78
,my_data79
,my_data80
,my_data81
,my_data82
,my_data83
,my_data84
,my_data85
,my_data86
,my_data87
,my_data88
,my_data89
,my_data90
,my_data91
,my_data92
,my_data93
,my_data94
,my_data95
,my_data96
,my_data97
,my_data98
,my_data99
,my_data100
,my_data101
,my_data102
,my_data103
,my_data104
,my_data105
,my_data106
,my_data107
,my_data108
,my_data109
,my_data110
,my_data111
,my_data112
,my_data113
,my_data114
,my_data115
,my_data116
,my_data117
,my_data118
,my_data119
,my_data120
,my_data121
,my_data122
,my_data123
,my_data124
,my_data125
,my_data126
,my_data127
,my_data128
,my_data129
,my_data130
,my_data131
,my_data132
,my_data133
,my_data134
,my_data135
,my_data136
,my_data137
,my_data138
,my_data139
,my_data140
,my_data141
,my_data142
,my_data143
,my_data144
,my_data145
,my_data146
,my_data147
,my_data148
,my_data149
,my_data150
,my_data151
,my_data152
,my_data153
,my_data154
,my_data155
,my_data156
,my_data157
,my_data158
,my_data159
,my_data160
,my_data161
,my_data162
,my_data163
,my_data164
,my_data165
,my_data166
,my_data167
,my_data168
,my_data169
,my_data170
,my_data171
,my_data172
,my_data173
,my_data174
,my_data175
,my_data176
,my_data177
,my_data178
,my_data179
,my_data180
,my_data181
,my_data182
,my_data183
,my_data184
,my_data185
,my_data186
,my_data187
,my_data188
,my_data189
,my_data190
,my_data191
,my_data192
,my_data193
,my_data194
,my_data195
,my_data196
,my_data197
,my_data198
,my_data199
,my_data200
,my_data201
,my_data202
,my_data203
,my_data204
,my_data205
,my_data206
,my_data207
,my_data208
,my_data209
,my_data210
,my_data211
,my_data212
,my_data213
,my_data214
,my_data215
,my_data216
,my_data217
,my_data218
,my_data219
,my_data220
,my_data221
,my_data222
,my_data223
,my_data224
,my_data225
,my_data226
,my_data227
,my_data228
,my_data229
,my_data230
,my_data231
,my_data232
,my_data233
,my_data234
,my_data235
,my_data236
,my_data237
,my_data238
,my_data239
,my_data240
,my_data241
,my_data242
,my_data243
,my_data244
,my_data245
,my_data246
,my_data247
,my_data248
,my_data249
,my_data250
,my_data251
,my_data252
,my_data253
,my_data254
,my_data255
,my_data256
,my_data257
,my_data258
,my_data259
,my_data260
,my_data261
,my_data262
,my_data263
,my_data264
,my_data265
,my_data266
,my_data267
,my_data268
,my_data269
,my_data270
,my_data271
,my_data272
,my_data273
,my_data274
,my_data275
,my_data276
,my_data277
,my_data278
,my_data279
,my_data280
,my_data281
,my_data282
,my_data283
,my_data284
,my_data285
,my_data286
,my_data287
,my_data288
,my_data289
,my_data290
,my_data291
,my_data292
,my_data293
,my_data294
,my_data295
,my_data296
,my_data297
,my_data298
,my_data299
,my_data300
,my_data301
,my_data302
,my_data303
,my_data304
,my_data305
,my_data306
,my_data307
,my_data308
,my_data309
,my_data310
,my_data311
,my_data312
,my_data313
,my_data314
,my_data315
,my_data316
,my_data317
,my_data318
,my_data319
,my_data320
,my_data321
,my_data322
,my_data323
,my_data324
,my_data325
,my_data326
,my_data327
,my_data328
,my_data329
,my_data330
,my_data331
,my_data332
,my_data333
,my_data334
,my_data335
,my_data336
,my_data337
,my_data338
,my_data339
,my_data340
,my_data341
,my_data342
,my_data343
,my_data344
,my_data345
,my_data346
,my_data347
,my_data348
,my_data349
,my_data350
,my_data351
,my_data352
,my_data353
,my_data354
,my_data355
,my_data356
,my_data357
,my_data358
,my_data359
,my_data360
,my_data361
,my_data362
,my_data363
,my_data364
,my_data365
,my_data366
,my_data367
,my_data368
,my_data369
,my_data370
,my_data371
,my_data372
,my_data373
,my_data374
,my_data375
,my_data376
,my_data377
,my_data378
,my_data379
,my_data380
,my_data381
,my_data382
,my_data383
,my_data384
,my_data385
,my_data386
,my_data387
,my_data388
,my_data389
,my_data390
,my_data391
,my_data392
,my_data393
,my_data394
,my_data395
,my_data396
,my_data397
,my_data398
,my_data399
,my_data400
,my_data401
,my_data402
,my_data403
,my_data404
,my_data405
,my_data406
,my_data407
,my_data408
,my_data409
,my_data410
,my_data411
,my_data412
,my_data413
,my_data414
,my_data415
,my_data416
,my_data417
,my_data418