9) Filtering-for-nonsynonymous_tuberculosis.R

my_data <- read.csv("x_tb_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
              ,my_data419
              ,my_data420
              ,my_data421
              ,my_data422
              ,my_data423
              ,my_data424
              ,my_data425
              ,my_data426
              ,my_data427
              ,my_data428
              ,my_data429
              ,my_data430
              ,my_data431
              ,my_data432
              ,my_data433
              ,my_data434
              ,my_data435
              ,my_data436
              ,my_data437
              ,my_data438
              ,my_data439
              ,my_data440
              ,my_data441
              ,my_data442
              ,my_data443
              ,my_data444
              ,my_data445
              ,my_data446
              ,my_data447
              ,my_data448
              ,my_data449
              ,my_data450
              ,my_data451
              ,my_data452
              ,my_data453
              ,my_data454
              ,my_data455
              ,my_data456
              ,my_data457
              ,my_data458
              ,my_data459
              ,my_data460
              ,my_data461
              ,my_data462
              ,my_data463
              ,my_data464
              ,my_data465
              ,my_data466
              ,my_data467
              ,my_data468
              ,my_data469
              ,my_data470
              ,my_data471
              ,my_data472
              ,my_data473
              ,my_data474
              ,my_data475
              ,my_data476
              ,my_data477
              ,my_data478
              ,my_data479
              ,my_data480
              ,my_data481
              ,my_data482
              ,my_data483
              ,my_data484
              ,my_data485
              ,my_data486
              ,my_data487
              ,my_data488
              ,my_data489
              ,my_data490
              ,my_data491
              ,my_data492
              ,my_data493
              ,my_data494
              ,my_data495
              ,my_data496
              ,my_data497
              ,my_data498
              ,my_data499
              ,my_data500
              ,my_data501
              ,my_data502
              ,my_data503
              ,my_data504
              ,my_data505
              ,my_data506
              ,my_data507
              ,my_data508
              ,my_data509
              ,my_data510
              ,my_data511
              ,my_data512
              ,my_data513
              ,my_data514
              ,my_data515
              ,my_data516
              ,my_data517
              ,my_data518
              ,my_data519
              ,my_data520
              ,my_data521
              ,my_data522
              ,my_data523
              ,my_data524
              ,my_data525
              ,my_data526
              ,my_data527
              ,my_data528
              ,my_data529
              ,my_data530
              ,my_data531
              ,my_data532
              ,my_data533
              ,my_data534
              ,my_data535
              ,my_data536
              ,my_data537
              ,my_data538
              ,my_data539
              ,my_data540
              ,my_data541
              ,my_data542
              ,my_data543
              ,my_data544
              ,my_data545
              ,my_data546
              ,my_data547
              ,my_data548
              ,my_data549
              ,my_data550
              ,my_data551
              ,my_data552
              ,my_data553
              ,my_data554
              ,my_data555
              ,my_data556
              ,my_data557
              ,my_data558
              ,my_data559
              ,my_data560
              ,my_data561
              ,my_data562
              ,my_data563
              ,my_data564
              ,my_data565
              ,my_data566
              ,my_data567
              ,my_data568
              ,my_data569
              ,my_data570
              ,my_data571
              ,my_data572
              ,my_data573
              ,my_data574
              ,my_data575
              ,my_data576
              ,my_data577
              ,my_data578)

write.csv(x_af,'x_tb_missense_products.csv')