This does not work:

m<-read.table("C:/backup/Rfiles/sym_matrix_cos.csv", header=T)
index<-c("X12002","X12027","X12054","X12084","X12085","X12115","X12129","X12139","X12195","X12223","X12295","X12327","X12356","X12474","X12487","X12491","X12520","X12570","X12600","X12616","X12626","X12629","X12634","X12669","X12685","X12748","X12759","X12766","X12789","X12793","X12814","X12824","X12892","X12897","X12909","X12932","X12959","X12995","X13018","X13039","X13134","X13138","X13162","X13173","X13236","X13243","X13351","X13410","X13452","X13474","X13475","X13486","X13518","X13574","X13586","X13588","X13606","X13755","X13765","X13779","X13884","X13897","X13908","X13944","X13997","X14001","X14006","X14008","X14009","X14020","X14033","X14047","X14095","X14119","X14135","X14211","X14214","X14217","X14281","X14291","X14301","X14332","X14402","X14403","X14459","X14497","X14529","X14552","X14564","X14577","X14578","X14607","X14622","X14667","X14686","X14716","X14717","X14724","X14760","X14766","X14768","X14769","X14780","X14789","X14817","X14973","X14997","X15015","X15033","X15089","X15100","X15103","X15118","X15166","X15183","X15244","X15246","X15268","X15275","X15278","X15281","X15285","X15288","X15302","X15311","X15321","X15324","X15347","X15367","X15387","X15391","X15429","X15435","X15436","X15466","X15493","X15540","X15556","X15558","X15568","X15601","X15640","X15647","X15649","X15671","X15675","X15692","X15693","X15709","X15725","X15726","X15731","X15732","X15735","X15760","X15776","X15788","X15860","X15864","X15865","X15883","X15886","X15887","X15889","X15909","X15913","X15916","X15930","X15963","X15964","X15967","X15976","X15990","X16030","X16056","X16060","X16084","X16096","X16106","X16121","X16149","X16151","X16155","X16162","X16164","X16175","X16190","X16254","X16258","X16297","X16298","X16312","X16323","X16355","X16376","X16383","X16401","X16433","X16445","X16446","X16498","X16504","X16536","X16546","X16555","X16566","X16608","X16661","X16739","X16772","X16777","X16805","X16838","X16858","X16882","X16884","X16903","X16909","X16911","X16921","X16923","X16931","X16955","X16960","X16968","X16981","X16992","X17006","X17020","X17022","X17032","X17072","X17086","X17090","X17101","X17105","X17118","X17142","X17166","X17171","X17200","X17206","X17287","X17315","X17323","X17363","X17371","X17434","X17449","X17465","X17479","X17502","X17507","X17514","X17522","X17568","X17575","X17585","X17588","X17591","X17670","X17678","X17714","X17774","X17795","X17831","X17832","X17845","X17850","X17856","X17867","X17968","X17995","X18032","X18112","X18142","X18165","X18166","X18192","X18215","X18217","X18225","X18268","X18269","X18341","X18346","X18365","X18388","X18414","X18418","X18513","X18536","X18542","X18544","X18568","X18599","X18615","X18620","X18625","X18626","X18659","X18675","X18683","X18703","X18723","X18733","X18735","X18754","X18773","X18775","X18783","X18818","X18880","X18881","X18898","X18899","X18909","X18955","X18959","X18979","X18980","X18981","X18993","X19061","X19079","X19125","X19137","X19174","X19177","X19207","X19231","X19281","X19285","X19296","X19306","X19321","X19327","X19329","X19335","X19339","X19372","X19391","X19404","X19406","X19455","X19457","X19462","X19523","X19594","X19737","X19812","X19836","X19846","X19847","X19866","X19870","X19878","X19911","X19921","X19924","X19941","X19955","X19976","X19980","X20118","X20119","X20126","X20142","X20144","X20159","X20177","X20188","X20194","X20195","X20203","X20208","X20224","X20252","X20286","X20331","X20341","X20353","X20446","X20469","X20494","X20496","X20499","X20537","X20563","X20564","X20572","X20574","X20595","X20625","X20657","X20675","X20699","X20701","X20715","X20726","X20763","X20804","X20824","X20835","X20848","X20885","X20895","X20934","X20960","X20993","X20995","X21004","X21008","X21023","X21042","X21071","X21078","X21147","X21213","X21233","X21235","X21246","X21276","X21292","X21300","X21339","X21406","X21412","X21424","X21435","X21454","X21472","X21496","X21499","X21503","X21506","X21508","X21515","X21546","X21597","X21613","X21617","X21716","X21718","X21733","X21760","X21795","X21810","X21853","X21973","X22058","X22076","X22090","X22106","X22110","X22166","X22176","X22219","X22222","X22227","X22255","X22325","X22347","X22351","X22370","X22371","X22374","X22412","X22455","X22476","X22495","X22523","X22550","X22635","X22645","X22677","X22681","X22691","X22738","X22751","X22766","X22771","X22809","X22863","X22868","X22885","X22888","X22917","X22932","X22942","X22945","X22962","X22963","X22977","X23005","X23030","X23045","X23052","X23075","X23101","X23113","X23175","X23224","X23257","X23285","X23323","X23347","X23369","X23370","X23403","X23421","X23434","X23442","X23473","X23509","X23539","X23540","X23587","X23590","X23636","X23641","X23650","X23651","X23656","X23662","X23676","X23692","X23702","X23715","X23717","X23719","X23724","X23733","X23817","X23824","X23839","X23859","X23937","X23940","X23951","X23953","X23971","X23977","X24017","X24027","X24052","X24053","X24119","X24129","X24130","X24187","X24200","X24214","X24253","X24262","X24263","X24281","X24328","X24331","X24350","X24351","X24377","X24448","X24465","X24471","X24474","X24493","X24501","X24706","X24735","X24762","X24784","X24796","X24798","X24829","X24832","X24834","X24844","X24846","X24848","X24888","X24895","X24906","X24934","X24949","X24983","X25013","X25016","X25021","X25049","X25069","X25074","X25100","X25102","X25193","X25201","X25202","X25237","X25243","X25257","X25304","X25340","X25445","X25477","X25497","X25558","X25616","X25642","X25649","X25657","X25662","X25679","X25719","X25732","X25764","X25775","X25795","X25798","X25818","X25868","X25922","X25953","X25961","X25974","X25985","X25988","X25990","X26001","X26029","X26041","X26077","X26089","X26094","X26096","X26097","X26139","X26168","X26181","X26190","X26216","X26237","X26245","X26288","X26291","X26307","X26331","X26332","X26333","X26341","X26363","X26372","X26392","X26481","X26510","X26548","X26550","X26596","X26605","X26609","X26671","X26690","X26692","X26731","X26733","X26755","X26757","X26775","X26780","X26797","X26800","X26804","X26917","X26918","X26962","X27005","X27067","X27099","X27100","X27106","X27138","X27142","X27159","X27163","X27208","X27248","X27327","X27333","X27347","X27371","X27395","X27464","X27490","X27640","X27649","X27661","X27760","X27789","X27801","X27815","X27833","X27852","X27860","X27875","X27876","X27877","X27880","X27887","X27945","X27949","X27958","X28054","X28082","X28087","X28104","X28109","X28156","X28320","X28334","X28336","X28355","X28381","X28388","X28396","X28400","X28401","X28404","X28408","X28419","X28420","X28466","X28482","X28495","X28520","X28524","X28528","X28600","X28625","X28629","X28674","X28717","X28739","X28756","X28757","X28758","X28776","X28831","X28857","X28860","X28865","X28883","X28889","X28894","X28895","X28900","X28910","X28911","X28917","X28919","X28925","X28956","X28979","X28997","X28998","X29005","X29098","X29126","X29139","X29154","X29172","X29176","X29205","X29219","X29238","X29239","X29257","X29272","X29274","X29275","X29293","X29346","X29376","X29442","X29449","X29461","X29496","X29518","X29523","X29553","X29554","X29572","X29598","X29613","X29662","X29721","X29759","X29797","X29867","X29909","X29928","X29985","X30013","X30046","X30049","X30091","X30232","X30408","X30441","X31872","X31877","X32257","X32733","X32824","X33094","X33587","X33982","X34132","X35154","X35683","X36276","X36291","X37485","X38604","X39166","X39287","X40068","X50047","X50094","X50124","X51313","X51335","X51851","X52733","X53499","X54337","X54666","X55949","X56053","X56315","X56321","X56359","X56455","X57103","X57806","X58622","X58724","X59863","X59917","X60332","X61068","X61490","X62499","X62985","X63434","X65017","X65672","X68194","X68289","X70192","X70540","X70627","X70943","X71051","X73135","X74390","X75950","X76311","X76514","X76575","X76747","X78798","X79082","X79405","X79939","X80396","X82109","X83082","X85449","X85519","X85637","X86017","X86049","X86245","X86811","X87584","X87661","X89410","X90456","X91247","X93035","X93144","X93599","X94558","X95079","X95143","X95484","X96239","X96562","X97855","X98013","X98085","X99172","X99599","X100437","X100906","X110036","X110097","X110123","X110577","X110646","X130011","X130031","X130102","X130122","X130151","X130158","X130187","X144621","X144667","X144678","X144698","X144700","X144733","X144737","X144739","X144743","X144769","X144784","X144785","X144809","X144810","X144820","X144824","X144826","X144832","X144890","X144960","X144966","X144976","X144979","X144983","X144984","X145018","X145159","X145183","X145202","X145207","X145237","X145294","X145349","X145365","X145383","X145393","X145406","X145456","X145469","X145484","X145503","X145526","X145560","X145571","X145588","X145594","X145599","X145621","X145624","X145648","X145657","X145675","X145677","X145688","X145698","X145705","X145726","X145731","X145735","X145757","X147221","X147231","X100147319","X100147325","X200147103","X200147124","X200147136","X200147137","X300147003","X1100147103","X1200147101","X1800147104","X2100147401","X3100147503","X3200147814","X3300147401","X3300147413","X3300148002","X3500148027","X3900148210","X3900148214","X3900148513","X4000148017","X4000148109","X4000148309","X4000149407","X4000149603","X4000149610","X4000151713","X4000151817","X4000151910","X4000152133","X4100151704","X4100151709","X4200151401","X4400151519","X4400151601","X4400151708","X4600151402","X4700151608","X4700151732","X4700151916","X4700152225","X4700152236","X4700152246","X4700152250","X4700152269","X4700152285","X4700152295","X4700152302","X4700152404","X4700152413","X4700152418","X4700152608","X4700152616","X4700152619","X4700152620","X4700152623","X4700152634","X4700152636","X4700152719","X4700152725","X4700152751","X4700152760","X4700152762","X4700152766","X4700152784","X4700152811","X4700152837","X4700152859","X4700152866","X4700153002","X4700153009","X4700153010","X4700153513","X4800152302","X4800152308","X4800156106","X4800156204","X4900152302","X4900153227","X5000153401","X5000153602","X5000153902","X5000154001","X5000154002","X5000154003","X5000154201","X5000154402","X5000154503","X5000154505","X5000157103","X5000157201","X5000158301","X5000158304","X5000158306","X5000158703","X5000160208","X5000160401","X5100152301","X5100154504","X5100154603","X5100155034","X5100155040","X5100155099","X5100155100","X5200152619","X5200152633","X5200152634","X5200153101","X5300152205","X5300152518","X5300152522","X5300152523","X5300152529","X5300152610","X5300152718","X5300152723","X5400152620","X5400152621","X5400152635","X5400152637","X5400152653","X5400152708","X5400152709","X5400152710","X5600152701","X5600152864","X5600152865","X5600152867","X5600152870","X5600152872","X5600152907","X5600152919","X5600152922","X5600152978","X5600153105","X5600153192","X5600153382","X5600153391","X5600153821","X5600153995","X5600154152","X5600154423","X5600155004","X5600155075","X5600155080","X5600155082","X5600155088","X5600155187","X5600155201","X5600155214","X5600155405","X5600155441","X5600155520","X5600155553","X5600155625","X5600155637","X5600156543","X5600156595","X5600157617","X5700152725","X5700152915","X5700153194","X5700153364","X5700153667","X5700153725","X5700153771","X5700153823","X5700154126","X5700154181","X5700154545","X5700155559","X5700156078","X5700156387","X5700156985","X5700157507","X5700159284","X5700160310","X5700160560","X5700160619","X5700160810","X5700161893","X5700162050","X5700162095","X5700162123","X5700162683","X5700163096","X5700163255","X5700163444","X5700163831","X5700163865","X5700163963","X5700164067","X5700164241","X5700164242","X5700164244","X5700164250","X5700164339","X5700165146","X5700165150","X5700165168","X5700165173","X5700165201","X5700165656","X5700168382","X5700168554","X5700169125","X5700169459","X5700173874","X5700175216","X5700176055","X5700177049","X5700178130","X5700181592","X5700181944","X5700183126","X5700183838","X5700188557","X5700191202","X5700191216","X5700191217","X5700191221","X5800162102","X5800162233","X5800169162","X5800169479","X5800170390","X5800170566","X5800170866","X5800173388","X5800179588","X5800179596","X5800179600","X5800179610","X5800179619","X5800196259","X5800207368","X5800207373","X5800207502","X5800207537","X5800207561","X5800207564","X5800207608","X5800207676","X5800207702","X5800207714","X5800207727","X5800207744","X5800207761","X5800207780","X5800207808","X5800207863","X5800207868","X5800207887","X5800207893","X5800207900","X5800208085","X5800208228","X5800208299","X5800208320","X5800208548","X5800209455","X5800209484","X5800211823","X5800212586","X5800224528","X5800227547","X5800228211","X5800228216","X5900152815","X5900152885","X5900152888","X5900152896","X5900153309","X5900153313","X5900153340","X6000152706","X6000152718","X6000152763","X6000152817","X6000152898","X6000152912","X6000160211","X6000161368","X6000169412","X6000170740","X6100152801","X6100152807","X6100153027","X6100153108","X6200180164","X6200180168","X6300153114","X6400153166","X6400153168","X6400153175","X6400153190","X6400153199","X6500153101","X6500153105","X6500153126","X6500153128","X6500153131","X6500153132","X6500153137","X6500153146","X6500153152","X6500153158","X6500153160","X6500153163","X6500153167","X6500153174","X6500153175","X6500153189","X6500153192","X6500153197","X6500153246","X6500153247","X6700153127","X6700153261","X7000153201","X7000153207","X7000153254","X7000153282","X7100153115","X7100153124","X7100153139","X7100153141","X7100153148","X7200153102","X7200153124","X7200153126","X7200153129","X7200153131","X7200153149","X7200153155","X7200153172","X7400153103","X7600153122","X7700153109","X7700153224","X7900153132","X8000153137","X8000153140","X8500153124","X9100153105","X9100153107","X9100153108","X9400153141","X9500154032","X9500154115","X10100153322","X10100153327","X10300153302","X10300153365","X10400153305","X10600153312","X10600153319","X10600153338","X10600153341","X10900153305","X10900153330","X11000153739","X11200153508","X11200153526","X11200153529","X11200153559","X11300153601","X11300153737","X11300153738","X11400153311","X11400153312","X11400153336","X11400153337","X11500153307","X11500153514","X11600153421","X11600153424","X11600153441","X11600153664","X11600154147","X11600154151","X11600154161","X11700154305","X11700154320","X11700154366","X11700154394","X11700154396","X11700154397","X11700154717","X11700154719","X11800154541","X11800154572","X11800154595","X11900154312","X11900154330","X12000154520","X12000154533","X12000154541","X12100154402","X12100154706","X12100154806","X12100154834","X12100154936","X12100155412","X12100155517","X12100155621","X12100155654","X12100155990","X12100156090","X12100156297","X12100156480","X12100156709","X12100156731","X12100156754","X12100157006","X12100157102","X12100157222","X12100157240","X12200154705","X12300154710","X12300154711","X12300154712","X12300154905","X12300154906","X12300154909","X12400154701","X12400154721","X12400154723","X12400154740","X12600154705","X12600154734","X12600154757","X12600154771","X12700154743","X13300154705","X14000155239","X14000155248","X14000155249","X14000155925","X14000155926","X14000156149","X14000156200","X14000156253","X14200154737","X14300154709","X14500154748","X15300154827","X15500154701","X15500154703","X15500154706","X15600154707","X15600154711","X15900154750","X15900154751","X16000154704","X16000154717","X16000154720","X16000154723","X16000154724","X16000154727","X16000154730","X16000154736","X16000154737","X16000154738","X16000154742","X16000154750","X16000154752","X16000154758","X16000154770","X16000154784","X16000154787","X16000154789","X16000154791","X16000154793","X16000154798","X16100154705","X16100154710","X16100154737","X16100154742","X16100154743","X16100154748","X16100154749","X16100154754","X16100154758","X16100154759","X16100154760","X16100154766","X16100154767","X16100154768","X16100154770","X16100154773","X16100154777","X16100154780","X16100154782","X16100154785","X16100154786","X16100154791","X16100154792","X16100154793","X16200154702","X16200154704","X16200154705","X16200154706","X16200154711","X16200154712","X16200154713","X16200154714","X16200154720","X16200154721","X16200154722","X16200154725","X16200154727","X16200154735","X16200154737","X16200154748","X16200154749","X16200154754","X16200154760","X16200154762","X16200154763","X16200154766","X16200154767","X16200154775","X16200154794","X16200154795","X16200154798","X16300154701","X16300154706","X16300154718","X16300154721","X16300154722","X16300154723","X16300154732","X16300154751","X16300154757","X16300154759","X16300154786","X16300154787","X16400154700","X16400154711","X16400154714","X16400154726","X16400154727","X16400154733","X16400154737","X16400154741","X16400154753","X16400154757","X16400154759","X16400154760","X16400154761","X16400154764","X16400154765","X16400154766","X16400154774","X16500154702","X16500154705","X16500154712","X16600154703","X16600154708","X16800154727","X16800154730","X16800154732","X16800154736","X16800154740","X16800154741","X16800154742","X16800154745","X16800154751","X16800154752","X16800154754","X16800154757","X17100154753","X17200154703","X17200154707","X17300154720","X17300154814","X17300154913","X17300154920","X17300154921","X17300154942","X17300154984","X17500154715","X17500154724","X17500155015","X17500155110","X17600154901","X17600154903","X17600155034","X17600155045","X17600155046","X17600155048","X17600155101","X17600155103","X17600155109","X17600155119","X17600155124","X17600155129","X17600155136","X17600155218","X17600155220","X17600155224","X17700154906","X17700155038","X17700155302","X17700155408","X17700155707","X17700155712","X17700155814","X17700156005","X17700156007","X17700156010","X17700156014","X17700156215","X17700156218","X17700156323","X17700156447","X17700156502","X17700156513","X17700156736","X17700156740","X17700156744","X17700156748","X17700156757","X17700156758","X17700156766","X17700156767","X17700156774","X17700156775","X17800156732","X17900156714","X17900156716","X17900156719","X17900156725","X17900156729","X17900156737","X18000156702","X18000156705","X18000156707","X18200156709","X18300156702","X18300156708","X18300156716","X18300156729","X18300156730","X18400156722","X18500158900","X18500161200","X18500167900","X18700156715","X18700156718","X18700156728","X18800156721","X18800156737","X19200156708","X19200156908","X19200156921","X19200156941","X19200156950","X19200156956","X19200156958","X19200157023","X19200157024","X19200157025","X19200157026","X19200157038","X19200157109","X19200157111","X19300156808","X19300156812","X19300156901","X19300156908","X19300156919","X19300156920","X19300157017","X19300157032","X19300157101","X19400156804","X19400157005","X19400157006","X19400157124","X19400157156","X19400157157","X19400157227","X19400157248","X19400157255","X19400157274","X19400157517","X19400157518","X19400158321","X19400158329","X19400158357","X19400158376","X19400158378","X19400158466","X19400158481","X19400158604","X19400158619","X19400158712","X19400158816","X19400158819","X19500156811","X19500156812","X19500156814","X19500157012","X19500157549","X19500157802","X19500157812","X19600156802","X19600156812","X19600156908","X19600157209","X19600157303","X19600157792","X19600157915","X19600157924","X19600161813","X19600161828","X19600162011","X19600162144","X19600162167","X19600163000","X19600165500","X19600166322","X19600166401","X19600166404","X19700166522","X19700166610","X19700166901","X19700167024","X19700167102","X19700168716","X19700169827","X19700169884","X19700170614","X19700170811","X19700170812","X19700170905","X19700171102","X19700172222","X19700172903","X19700174611","X19700174617","X19700174629","X19700174650","X19700174657","X19700174668","X19700174682","X19700174711","X19700174712","X19700174720","X19700174723","X19700174724","X19700174730","X19700174752","X19700174886","X19700174891","X19700174908","X19700174915","X19700174930","X19700174949","X19700174964","X19700174965","X19700174982","X19700174991","X19700174995","X19700174999","X19700175003","X19700175011","X19700175061","X19700175087","X19700175096","X19700175114","X19700175152","X19700175211","X19700175249","X19700175458","X19700175460","X19700176047","X19700176902","X19700177035","X19700177102","X19700177107","X19700177700","X19700181106","X19700181204","X19700181207","X19700181302","X19700181316","X19700181401","X19700182111","X19700182306","X19700182323","X19700182336","X19700182411","X19700182698","X19700182728","X19700183006","X19700184800","X19700186703","X19700186738","X19700186826","X19700186856","X19700186880","X19700186898","X19700186904","X19700186911","X19700187614","X19700188900","X19700201900")
n<-m[index, index]


This works (long code splited in 7 parts):

m<-read.table("C:/backup/Rfiles/sym_matrix_cos.csv", header=T)

index1<-c("X12002","X12027","X12054","X12084","X12085","X12115","X12129","X12139","X12195","X12223","X12295","X12327","X12356","X12474","X12487","X12491","X12520","X12570","X12600","X12616","X12626","X12629","X12634","X12669","X12685","X12748","X12759","X12766","X12789","X12793","X12814","X12824","X12892","X12897","X12909","X12932","X12959","X12995","X13018","X13039","X13134","X13138","X13162","X13173","X13236","X13243","X13351","X13410","X13452","X13474","X13475","X13486","X13518","X13574","X13586","X13588","X13606","X13755","X13765","X13779","X13884","X13897","X13908","X13944","X13997","X14001","X14006","X14008","X14009","X14020","X14033","X14047","X14095","X14119","X14135","X14211","X14214","X14217","X14281","X14291","X14301","X14332","X14402","X14403","X14459","X14497","X14529","X14552","X14564","X14577","X14578","X14607","X14622","X14667","X14686","X14716","X14717","X14724","X14760","X14766","X14768","X14769","X14780","X14789","X14817","X14973","X14997","X15015","X15033","X15089","X15100","X15103","X15118","X15166","X15183","X15244","X15246","X15268","X15275","X15278","X15281","X15285","X15288","X15302","X15311","X15321","X15324","X15347","X15367","X15387","X15391","X15429","X15435","X15436","X15466","X15493","X15540","X15556","X15558","X15568","X15601","X15640","X15647","X15649","X15671","X15675","X15692","X15693","X15709","X15725","X15726","X15731","X15732","X15735","X15760","X15776","X15788","X15860","X15864","X15865","X15883","X15886","X15887","X15889","X15909","X15913","X15916","X15930","X15963","X15964","X15967","X15976","X15990","X16030","X16056","X16060","X16084","X16096","X16106","X16121","X16149","X16151","X16155","X16162","X16164","X16175","X16190","X16254","X16258","X16297","X16298","X16312","X16323","X16355","X16376","X16383","X16401","X16433","X16445","X16446","X16498","X16504","X16536","X16546","X16555","X16566","X16608","X16661","X16739","X16772","X16777","X16805","X16838","X16858","X16882","X16884","X16903","X16909","X16911","X16921","X16923","X16931","X16955","X16960","X16968","X16981","X16992","X17006","X17020","X17022","X17032","X17072","X17086","X17090","X17101","X17105","X17118","X17142","X17166","X17171","X17200","X17206","X17287","X17315","X17323","X17363","X17371","X17434","X17449","X17465","X17479","X17502","X17507","X17514","X17522","X17568","X17575","X17585","X17588","X17591","X17670","X17678","X17714","X17774","X17795","X17831","X17832","X17845","X17850","X17856","X17867","X17968","X17995","X18032","X18112","X18142","X18165","X18166","X18192","X18215","X18217","X18225","X18268","X18269","X18341","X18346","X18365","X18388","X18414","X18418","X18513","X18536","X18542","X18544","X18568","X18599","X18615","X18620","X18625","X18626","X18659")
n<-m[index1, index1]

index2<-c("X18675","X18683","X18703","X18723","X18733","X18735","X18754","X18773","X18775","X18783","X18818","X18880","X18881","X18898","X18899","X18909","X18955","X18959","X18979","X18980","X18981","X18993","X19061","X19079","X19125","X19137","X19174","X19177","X19207","X19231","X19281","X19285","X19296","X19306","X19321","X19327","X19329","X19335","X19339","X19372","X19391","X19404","X19406","X19455","X19457","X19462","X19523","X19594","X19737","X19812","X19836","X19846","X19847","X19866","X19870","X19878","X19911","X19921","X19924","X19941","X19955","X19976","X19980","X20118","X20119","X20126","X20142","X20144","X20159","X20177","X20188","X20194","X20195","X20203","X20208","X20224","X20252","X20286","X20331","X20341","X20353","X20446","X20469","X20494","X20496","X20499","X20537","X20563","X20564","X20572","X20574","X20595","X20625","X20657","X20675","X20699","X20701","X20715","X20726","X20763","X20804","X20824","X20835","X20848","X20885","X20895","X20934","X20960","X20993","X20995","X21004","X21008","X21023","X21042","X21071","X21078","X21147","X21213","X21233","X21235","X21246","X21276","X21292","X21300","X21339","X21406","X21412","X21424","X21435","X21454","X21472","X21496","X21499","X21503","X21506","X21508","X21515","X21546","X21597","X21613","X21617","X21716","X21718","X21733","X21760","X21795","X21810","X21853","X21973","X22058","X22076","X22090","X22106","X22110","X22166","X22176","X22219","X22222","X22227","X22255","X22325","X22347","X22351","X22370","X22371","X22374","X22412","X22455","X22476","X22495","X22523","X22550","X22635","X22645","X22677","X22681","X22691","X22738","X22751","X22766","X22771","X22809","X22863","X22868","X22885","X22888","X22917","X22932","X22942","X22945","X22962","X22963","X22977","X23005","X23030","X23045","X23052","X23075","X23101","X23113","X23175","X23224","X23257","X23285","X23323","X23347","X23369","X23370","X23403","X23421","X23434","X23442","X23473","X23509","X23539","X23540","X23587","X23590","X23636","X23641","X23650","X23651","X23656","X23662","X23676","X23692","X23702","X23715","X23717","X23719","X23724","X23733","X23817","X23824","X23839","X23859","X23937","X23940","X23951","X23953","X23971","X23977","X24017","X24027","X24052","X24053","X24119","X24129","X24130","X24187","X24200","X24214","X24253","X24262","X24263","X24281","X24328","X24331","X24350","X24351","X24377","X24448","X24465","X24471","X24474","X24493","X24501","X24706","X24735","X24762","X24784","X24796","X24798","X24829","X24832","X24834","X24844","X24846","X24848","X24888","X24895","X24906","X24934","X24949","X24983","X25013","X25016","X25021","X25049","X25069","X25074","X25100","X25102","X25193","X25201","X25202","X25237","X25243","X25257","X25304","X25340")
o<-m[index2, index2]

index3<-c("X25445","X25477","X25497","X25558","X25616","X25642","X25649","X25657","X25662","X25679","X25719","X25732","X25764","X25775","X25795","X25798","X25818","X25868","X25922","X25953","X25961","X25974","X25985","X25988","X25990","X26001","X26029","X26041","X26077","X26089","X26094","X26096","X26097","X26139","X26168","X26181","X26190","X26216","X26237","X26245","X26288","X26291","X26307","X26331","X26332","X26333","X26341","X26363","X26372","X26392","X26481","X26510","X26548","X26550","X26596","X26605","X26609","X26671","X26690","X26692","X26731","X26733","X26755","X26757","X26775","X26780","X26797","X26800","X26804","X26917","X26918","X26962","X27005","X27067","X27099","X27100","X27106","X27138","X27142","X27159","X27163","X27208","X27248","X27327","X27333","X27347","X27371","X27395","X27464","X27490","X27640","X27649","X27661","X27760","X27789","X27801","X27815","X27833","X27852","X27860","X27875","X27876","X27877","X27880","X27887","X27945","X27949","X27958","X28054","X28082","X28087","X28104","X28109","X28156","X28320","X28334","X28336","X28355","X28381","X28388","X28396","X28400","X28401","X28404","X28408","X28419","X28420","X28466","X28482","X28495","X28520","X28524","X28528","X28600","X28625","X28629","X28674","X28717","X28739","X28756","X28757","X28758","X28776","X28831","X28857","X28860","X28865","X28883","X28889","X28894","X28895","X28900","X28910","X28911","X28917","X28919","X28925","X28956","X28979","X28997","X28998","X29005","X29098","X29126","X29139","X29154","X29172","X29176","X29205","X29219","X29238","X29239","X29257","X29272","X29274","X29275","X29293","X29346","X29376","X29442","X29449","X29461","X29496","X29518","X29523","X29553","X29554","X29572","X29598","X29613","X29662","X29721","X29759","X29797","X29867","X29909","X29928","X29985","X30013","X30046","X30049","X30091","X30232","X30408","X30441","X31872","X31877","X32257","X32733","X32824","X33094","X33587","X33982","X34132","X35154","X35683","X36276","X36291","X37485","X38604","X39166","X39287","X40068","X50047","X50094","X50124","X51313","X51335","X51851","X52733","X53499","X54337","X54666","X55949","X56053","X56315","X56321","X56359","X56455","X57103","X57806","X58622","X58724","X59863","X59917","X60332","X61068","X61490","X62499","X62985","X63434","X65017","X65672","X68194","X68289","X70192","X70540","X70627","X70943","X71051","X73135","X74390","X75950","X76311","X76514","X76575","X76747","X78798","X79082","X79405","X79939","X80396","X82109","X83082","X85449","X85519","X85637","X86017","X86049","X86245","X86811","X87584","X87661","X89410","X90456","X91247","X93035","X93144","X93599","X94558","X95079","X95143","X95484","X96239","X96562","X97855","X98013","X98085","X99172","X99599","X100437")
p<-m[index3, index3]

index4<-c("X100906","X110036","X110097","X110123","X110577","X110646","X130011","X130031","X130102","X130122","X130151","X130158","X130187","X144621","X144667","X144678","X144698","X144700","X144733","X144737","X144739","X144743","X144769","X144784","X144785","X144809","X144810","X144820","X144824","X144826","X144832","X144890","X144960","X144966","X144976","X144979","X144983","X144984","X145018","X145159","X145183","X145202","X145207","X145237","X145294","X145349","X145365","X145383","X145393","X145406","X145456","X145469","X145484","X145503","X145526","X145560","X145571","X145588","X145594","X145599","X145621","X145624","X145648","X145657","X145675","X145677","X145688","X145698","X145705","X145726","X145731","X145735","X145757","X147221","X147231","X100147319","X100147325","X200147103","X200147124","X200147136","X200147137","X300147003","X1100147103","X1200147101","X1800147104","X2100147401","X3100147503","X3200147814","X3300147401","X3300147413","X3300148002","X3500148027","X3900148210","X3900148214","X3900148513","X4000148017","X4000148109","X4000148309","X4000149407","X4000149603","X4000149610","X4000151713","X4000151817","X4000151910","X4000152133","X4100151704","X4100151709","X4200151401","X4400151519","X4400151601","X4400151708","X4600151402","X4700151608","X4700151732","X4700151916","X4700152225","X4700152236","X4700152246","X4700152250","X4700152269","X4700152285","X4700152295","X4700152302","X4700152404","X4700152413","X4700152418","X4700152608","X4700152616","X4700152619","X4700152620","X4700152623","X4700152634","X4700152636","X4700152719","X4700152725","X4700152751","X4700152760","X4700152762","X4700152766","X4700152784","X4700152811","X4700152837","X4700152859","X4700152866","X4700153002","X4700153009","X4700153010","X4700153513","X4800152302","X4800152308","X4800156106","X4800156204","X4900152302","X4900153227","X5000153401","X5000153602","X5000153902","X5000154001","X5000154002","X5000154003","X5000154201","X5000154402","X5000154503","X5000154505","X5000157103","X5000157201","X5000158301","X5000158304","X5000158306","X5000158703","X5000160208","X5000160401","X5100152301","X5100154504","X5100154603","X5100155034","X5100155040","X5100155099","X5100155100","X5200152619","X5200152633","X5200152634","X5200153101","X5300152205","X5300152518","X5300152522","X5300152523","X5300152529","X5300152610","X5300152718","X5300152723","X5400152620","X5400152621","X5400152635","X5400152637","X5400152653","X5400152708","X5400152709","X5400152710","X5600152701","X5600152864","X5600152865","X5600152867","X5600152870","X5600152872","X5600152907","X5600152919","X5600152922","X5600152978","X5600153105","X5600153192","X5600153382","X5600153391","X5600153821","X5600153995","X5600154152","X5600154423","X5600155004","X5600155075","X5600155080","X5600155082","X5600155088","X5600155187","X5600155201","X5600155214","X5600155405","X5600155441","X5600155520","X5600155553","X5600155625","X5600155637","X5600156543","X5600156595","X5600157617","X5700152725","X5700152915","X5700153194","X5700153364","X5700153667","X5700153725","X5700153771","X5700153823","X5700154126","X5700154181","X5700154545","X5700155559","X5700156078","X5700156387","X5700156985","X5700157507","X5700159284","X5700160310","X5700160560","X5700160619","X5700160810","X5700161893","X5700162050","X5700162095","X5700162123","X5700162683","X5700163096","X5700163255","X5700163444","X5700163831","X5700163865","X5700163963","X5700164067","X5700164241","X5700164242","X5700164244","X5700164250","X5700164339","X5700165146","X5700165150","X5700165168","X5700165173","X5700165201","X5700165656","X5700168382","X5700168554","X5700169125","X5700169459","X5700173874","X5700175216","X5700176055","X5700177049","X5700178130","X5700181592","X5700181944","X5700183126","X5700183838","X5700188557","X5700191202","X5700191216","X5700191217","X5700191221","X5800162102","X5800162233","X5800169162","X5800169479","X5800170390")
q<-m[index4, index4]

index5<-c("X5800170566","X5800170866","X5800173388","X5800179588","X5800179596","X5800179600","X5800179610","X5800179619","X5800196259","X5800207368","X5800207373","X5800207502","X5800207537","X5800207561","X5800207564","X5800207608","X5800207676","X5800207702","X5800207714","X5800207727","X5800207744","X5800207761","X5800207780","X5800207808","X5800207863","X5800207868","X5800207887","X5800207893","X5800207900","X5800208085","X5800208228","X5800208299","X5800208320","X5800208548","X5800209455","X5800209484","X5800211823","X5800212586","X5800224528","X5800227547","X5800228211","X5800228216","X5900152815","X5900152885","X5900152888","X5900152896","X5900153309","X5900153313","X5900153340","X6000152706","X6000152718","X6000152763","X6000152817","X6000152898","X6000152912","X6000160211","X6000161368","X6000169412","X6000170740","X6100152801","X6100152807","X6100153027","X6100153108","X6200180164","X6200180168","X6300153114","X6400153166","X6400153168","X6400153175","X6400153190","X6400153199","X6500153101","X6500153105","X6500153126","X6500153128","X6500153131","X6500153132","X6500153137","X6500153146","X6500153152","X6500153158","X6500153160","X6500153163","X6500153167","X6500153174","X6500153175","X6500153189","X6500153192","X6500153197","X6500153246","X6500153247","X6700153127","X6700153261","X7000153201","X7000153207","X7000153254","X7000153282","X7100153115","X7100153124","X7100153139","X7100153141","X7100153148","X7200153102","X7200153124","X7200153126","X7200153129","X7200153131","X7200153149","X7200153155","X7200153172","X7400153103","X7600153122","X7700153109","X7700153224","X7900153132","X8000153137","X8000153140","X8500153124","X9100153105","X9100153107","X9100153108","X9400153141","X9500154032","X9500154115","X10100153322","X10100153327","X10300153302","X10300153365","X10400153305","X10600153312","X10600153319","X10600153338","X10600153341","X10900153305","X10900153330","X11000153739","X11200153508","X11200153526","X11200153529","X11200153559","X11300153601","X11300153737","X11300153738","X11400153311","X11400153312","X11400153336","X11400153337","X11500153307","X11500153514","X11600153421","X11600153424","X11600153441","X11600153664","X11600154147","X11600154151","X11600154161","X11700154305","X11700154320","X11700154366","X11700154394","X11700154396","X11700154397","X11700154717","X11700154719","X11800154541","X11800154572","X11800154595","X11900154312","X11900154330","X12000154520","X12000154533","X12000154541","X12100154402","X12100154706","X12100154806","X12100154834","X12100154936","X12100155412","X12100155517","X12100155621","X12100155654","X12100155990","X12100156090","X12100156297","X12100156480","X12100156709","X12100156731","X12100156754","X12100157006","X12100157102","X12100157222","X12100157240","X12200154705","X12300154710","X12300154711","X12300154712","X12300154905","X12300154906","X12300154909","X12400154701","X12400154721","X12400154723","X12400154740","X12600154705","X12600154734","X12600154757","X12600154771","X12700154743","X13300154705","X14000155239","X14000155248","X14000155249","X14000155925","X14000155926","X14000156149","X14000156200","X14000156253","X14200154737","X14300154709","X14500154748","X15300154827","X15500154701","X15500154703","X15500154706","X15600154707","X15600154711","X15900154750","X15900154751","X16000154704","X16000154717","X16000154720","X16000154723","X16000154724","X16000154727","X16000154730","X16000154736","X16000154737","X16000154738","X16000154742","X16000154750","X16000154752","X16000154758","X16000154770","X16000154784","X16000154787","X16000154789","X16000154791","X16000154793","X16000154798","X16100154705","X16100154710","X16100154737","X16100154742","X16100154743","X16100154748","X16100154749","X16100154754","X16100154758","X16100154759","X16100154760","X16100154766","X16100154767","X16100154768","X16100154770","X16100154773","X16100154777","X16100154780","X16100154782","X16100154785")
r<-m[index5, index5]

index6<-c("X16100154786","X16100154791","X16100154792","X16100154793","X16200154702","X16200154704","X16200154705","X16200154706","X16200154711","X16200154712","X16200154713","X16200154714","X16200154720","X16200154721","X16200154722","X16200154725","X16200154727","X16200154735","X16200154737","X16200154748","X16200154749","X16200154754","X16200154760","X16200154762","X16200154763","X16200154766","X16200154767","X16200154775","X16200154794","X16200154795","X16200154798","X16300154701","X16300154706","X16300154718","X16300154721","X16300154722","X16300154723","X16300154732","X16300154751","X16300154757","X16300154759","X16300154786","X16300154787","X16400154700","X16400154711","X16400154714","X16400154726","X16400154727","X16400154733","X16400154737","X16400154741","X16400154753","X16400154757","X16400154759","X16400154760","X16400154761","X16400154764","X16400154765","X16400154766","X16400154774","X16500154702","X16500154705","X16500154712","X16600154703","X16600154708","X16800154727","X16800154730","X16800154732","X16800154736","X16800154740","X16800154741","X16800154742","X16800154745","X16800154751","X16800154752","X16800154754","X16800154757","X17100154753","X17200154703","X17200154707","X17300154720","X17300154814","X17300154913","X17300154920","X17300154921","X17300154942","X17300154984","X17500154715","X17500154724","X17500155015","X17500155110","X17600154901","X17600154903","X17600155034","X17600155045","X17600155046","X17600155048","X17600155101","X17600155103","X17600155109","X17600155119","X17600155124","X17600155129","X17600155136","X17600155218","X17600155220","X17600155224","X17700154906","X17700155038","X17700155302","X17700155408","X17700155707","X17700155712","X17700155814","X17700156005","X17700156007","X17700156010","X17700156014","X17700156215","X17700156218","X17700156323","X17700156447","X17700156502","X17700156513","X17700156736","X17700156740","X17700156744","X17700156748","X17700156757","X17700156758","X17700156766","X17700156767","X17700156774","X17700156775","X17800156732","X17900156714","X17900156716","X17900156719","X17900156725","X17900156729","X17900156737","X18000156702","X18000156705","X18000156707","X18200156709","X18300156702","X18300156708","X18300156716","X18300156729","X18300156730","X18400156722","X18500158900","X18500161200","X18500167900","X18700156715","X18700156718","X18700156728","X18800156721","X18800156737","X19200156708","X19200156908","X19200156921","X19200156941","X19200156950","X19200156956","X19200156958","X19200157023","X19200157024","X19200157025","X19200157026","X19200157038","X19200157109","X19200157111","X19300156808","X19300156812","X19300156901","X19300156908","X19300156919","X19300156920","X19300157017","X19300157032","X19300157101","X19400156804","X19400157005","X19400157006","X19400157124","X19400157156","X19400157157","X19400157227","X19400157248","X19400157255","X19400157274","X19400157517","X19400157518","X19400158321","X19400158329","X19400158357","X19400158376","X19400158378","X19400158466","X19400158481","X19400158604","X19400158619","X19400158712","X19400158816","X19400158819","X19500156811","X19500156812","X19500156814","X19500157012","X19500157549","X19500157802","X19500157812","X19600156802","X19600156812","X19600156908","X19600157209","X19600157303","X19600157792","X19600157915","X19600157924","X19600161813","X19600161828","X19600162011","X19600162144","X19600162167","X19600163000","X19600165500","X19600166322","X19600166401","X19600166404","X19700166522","X19700166610","X19700166901","X19700167024","X19700167102","X19700168716","X19700169827","X19700169884","X19700170614","X19700170811","X19700170812","X19700170905","X19700171102","X19700172222","X19700172903","X19700174611","X19700174617","X19700174629","X19700174650","X19700174657","X19700174668","X19700174682","X19700174711","X19700174712","X19700174720","X19700174723","X19700174724","X19700174730","X19700174752","X19700174886")
s<-m[index6, index6]

index7<-c("X19700174891","X19700174908","X19700174915","X19700174930","X19700174949","X19700174964","X19700174965","X19700174982","X19700174991","X19700174995","X19700174999","X19700175003","X19700175011","X19700175061","X19700175087","X19700175096","X19700175114","X19700175152","X19700175211","X19700175249","X19700175458","X19700175460","X19700176047","X19700176902","X19700177035","X19700177102","X19700177107","X19700177700","X19700181106","X19700181204","X19700181207","X19700181302","X19700181316","X19700181401","X19700182111","X19700182306","X19700182323","X19700182336","X19700182411","X19700182698","X19700182728","X19700183006","X19700184800","X19700186703","X19700186738","X19700186826","X19700186856","X19700186880","X19700186898","X19700186904","X19700186911","X19700187614","X19700188900","X19700201900")
t<-m[index7, index7]