# R script for Peak Model
#  -- generated by MACS
p <- c(0.0406770796701,0.0474434502487,0.0543166582575,0.0609532976708,0.0675746745942,0.0674703809123,0.0672261810719,0.0673915247139,0.0672261810719,0.0672236373236,0.0667530438811,0.0668547938146,0.0666436627025,0.0667759376161,0.0667352376427,0.0668547938146,0.0668115500928,0.0666945376693,0.0666818189276,0.0666156814708,0.0669565437481,0.066933650013,0.0671473248734,0.0671524123701,0.0673152122637,0.0673457372438,0.0672236373236,0.0671091686484,0.0672617935486,0.0672287248202,0.0674016997072,0.0671524123701,0.0671498686218,0.0670659249266,0.0669667187414,0.0668140938412,0.0671040811517,0.0670226812049,0.0668420750729,0.0667098001593,0.0665877002391,0.0668980375363,0.0667784813644,0.0668827750463,0.0671320623834,0.0671651311118,0.0670608374299,0.0669285625164,0.0670150499599,0.0671422373767,0.0671320623834,0.066737781391,0.0665164752856,0.0661094755516,0.0659110631812,0.0659568506513,0.0659746568897,0.0659975506247,0.0660942130616,0.0658423819761,0.0658881694462,0.065961938148,0.0660916693132,0.066353675392,0.0661247380416,0.0658525569695,0.065758438281,0.0659593943997,0.0659339569163,0.0659365006646,0.0656439696058,0.0656872133275,0.0655473071689,0.0654659072221,0.0657050195659,0.0658779944528,0.0658067694994,0.0654328384937,0.0653361760569,0.0655600259106,0.0656999320692,0.0657762445193,0.0657202820559,0.0657355445459,0.0657050195659,0.0656923008242,0.0658551007178,0.0660611443332,0.0659950068764,0.0659136069296,0.0658271194861,0.0657228258042,0.0657864195127,0.0659186944263,0.065773700771,0.0656948445725,0.0657635257776,0.0658169444927,0.0657406320426,0.0653081948252,0.0653463510502,0.065412488507,0.0654175760037,0.0651428511832,0.0649011950911,0.0649927700313,0.0649215450778,0.0648884763494,0.0650512762431,0.0654430134871,0.0653412635536,0.0651810074083,0.0652446011167,0.0653209135669,0.0656439696058,0.0656821258308,0.0657380882943,0.0659008881879,0.0659161506779,0.0658678194595,0.0660407943465,0.0660891255649,0.0660255318564,0.0659517631546,0.0658525569695,0.0658118569961,0.0658118569961,0.0657228258042,0.0656566883475,0.0656973883209,0.0654938884538,0.0653565260436,0.0654074010104,0.0654531884804,0.0653870510236,0.0653565260436,0.0651046949582,0.0652522323617,0.0655167821889,0.0654353822421,0.0657101070626,0.065961938148,0.065992463128,0.0659721131413,0.0662570129552,0.0662977129286,0.0664656003189,0.0666233127158,0.0661069318033,0.0663638503854,0.0662417504652,0.0662214004785,0.0662239442268,0.0663714816304,0.0661857880017,0.0661883317501,0.0663740253787,0.0660051818697,0.0662977129286,0.0662392067168,0.0663053441736,0.0663028004253,0.0666055064775,0.0663282379086,0.066134913035,0.0660331631015,0.0660687755782,0.0660662318298,0.066180700505,0.0663078879219,0.0664223565971,0.0664706878156,0.066330781657,0.066534281524,0.0669870687281,0.0670048749665,0.0669870687281,0.0669158437747,0.0668675125563,0.0669285625164,0.0669946999732,0.066918387523,0.066895493788,0.0670964499067,0.0671778498535,0.0673381059988,0.0673508247404,0.067656074541,0.0676967745144,0.0675670433492,0.0674932746474,0.0676026558259,0.0677349307395,0.0676687932827,0.0677858057062,0.0678137869379,0.0676993182627,0.0674958183957,0.0676433557993,0.0678417681696,0.0678850118914,0.0681037742484,0.0679918493216,0.0684141115457,0.0684064803006,0.0686633988828,0.0689508424449,0.0692281110138,0.0692789859805,0.0691721485503,0.069184867292,0.0690602236235,0.068996629915,0.0690500486301,0.068981367425,0.0689584736899,0.0691390798219,0.0693858234107,0.0694672233575,0.0696961607079,0.0697063357013,0.0698971168266,0.0702430666005,0.0700904417003,0.0700090417535,0.0701514916604,0.06995307929,0.0696758107212,0.0696783544696,0.0695994982711,0.0702049103755,0.0703982352492,0.0703855165075,0.0703422727857,0.0708255849699,0.0711130285321,0.0713216158958,0.0717158968881,0.0718074718283,0.072038952927,0.0718837842784,0.0716523031797,0.0716701094181,0.071843084305,0.0717718593516,0.0717209843848,0.0717286156298,0.0719728154703,0.0720542154171,0.0719219405035,0.0719626404769,0.0723263964892,0.0726926962499,0.0729928585537,0.0730055772954,0.073326089586,0.0736440581282,0.0734939769763,0.0738144892668,0.0741197390674,0.0740739515973,0.074071407849,0.0741629827891,0.0741528077958,0.0747124324301,0.0744148138746,0.0749108448004,0.0751753946276,0.0751753946276,0.0754781006798,0.0758240504537,0.0760300940691,0.076149650241,0.0761038627709,0.0759258003872,0.0764549000415,0.0762386814328,0.0763735000947,0.0766278749285,0.0767626935904,0.0770094371791,0.0775690618135,0.077881942859,0.0784975299568,0.0787951485123,0.0791461857829,0.0794209106034,0.0798813290525,0.0798075603507,0.0801077226546,0.0802145600848,0.0802120163365,0.0801764038597,0.080321397515,0.0804104287068,0.0802247350781,0.0804765661636,0.0804256911968,0.0807996222025,0.0811888156982,0.082046058888,0.0825573523039,0.0832212706201,0.0839513263931,0.0845643697425,0.0857726502029,0.0866858558562,0.0876601114696,0.0887997107249,0.089214341704,0.0895730102196,0.0903030659926,0.0910738217389,0.0916207276316,0.0920989523191,0.0923558709012,0.0924194646097,0.0927399769002,0.09260261449,0.0930528579458,0.0935107326466,0.0935565201167,0.0936989700236,0.0936913387786,0.0940907072676,0.0938846636522,0.0942713133996,0.0943959570681,0.0950395253976,0.0954694188667,0.0953498626948,0.0954058251583,0.0955406438202,0.095802649899,0.0961231621895,0.0969015491809,0.0970821553129,0.0975145925303,0.0977333548874,0.0976977424106,0.0982929795217,0.0989568978379,0.0993206538502,0.0994936287371,0.0995495912006,0.0992112726716,0.0996080974123,0.099801422286,0.100170265795,0.100768046654,0.100493321834,0.101012246495,0.100979177766,0.101403983739,0.101856770943,0.102861551536,0.102988738953,0.103421176171,0.103746775958,0.103657744766,0.104314031837,0.10409526948,0.104609106644,0.104868568975,0.105237412484,0.105283199954,0.105568099768,0.105677480946,0.105893699555,0.106285436799,0.10681962395,0.107150311234,0.107325829869,0.107801510808,0.107834579537,0.107877823259,0.107847298279,0.107793879563,0.107933785722,0.108274647999,0.108310260476,0.108574810303,0.108806291402,0.108765591428,0.109340478553,0.109610115877,0.110378327875,0.110831115079,0.111077858668,0.111138908628,0.111439070932,0.111739233235,0.112438764028,0.112827957524,0.112627001405,0.112670245127,0.112568495194,0.112922076212,0.113240044755,0.113886156833,0.114214300368,0.114519550169,0.114654368831,0.114776468751,0.11531319965,0.115882999278,0.116717348733,0.116684280004,0.11702768603,0.117050579765,0.117292235857,0.117630554386,0.117966329166,0.118513235059,0.119192415865,0.119584153109,0.119451878196,0.120398152577,0.120512621253,0.12109768337,0.121545383078,0.121753970441,0.122260176361,0.122662088598,0.12308689457,0.123384513126,0.124015362714,0.124101850157,0.12477085597,0.124824274685,0.125335568101,0.125879930245,0.126035098894,0.126419204893,0.126340348694,0.126721910945,0.127032248242,0.12737311052,0.127530822917,0.128072641313,0.128148953763,0.12852034102,0.128792522092,0.129049440674,0.129542927852,0.130087289996,0.130150883705,0.130064396261,0.130560427187,0.131125139318,0.131328639185,0.131509245317,0.132160444891,0.132267282322,0.132394469738,0.132671738307,0.132829450704,0.133485737775,0.133607837696,0.133689237642,0.13395378747,0.134421837164,0.134124218608,0.134439643402,0.135006899281,0.135108649215,0.135803092511,0.135915017438,0.136370348391,0.136360173397,0.136632354469,0.136749366893,0.137334429011,0.137504860149,0.137240310322,0.137382760229,0.137118210402,0.13730390403,0.137133472892,0.137344604004,0.137611697579,0.137710903765,0.137647310056,0.138247634664,0.138392628319,0.138705509365,0.139191365297,0.139750989931,0.1400282585,0.140310614566,0.140201233387,0.140570076896,0.140776120512,0.140379295771,0.140898220432,0.140949095399,0.141198382736,0.141236538961,0.14162064496,0.141997119714,0.142475344401,0.142409206944,0.142711912997,0.143284256373,0.143078212757,0.143327500094,0.143538631206,0.14350301873,0.143281712624,0.143393637551,0.14374721857,0.144077905854,0.143965980927,0.143711606093,0.144271230728,0.144456924356,0.14440604939,0.144647705482,0.144736736674,0.144690949204,0.144670599217,0.144289036966,0.144472186846,0.144795242885,0.144243249496,0.14367090612,0.143495387485,0.143431793776,0.143429250028,0.143017162797,0.142533850613,0.142419381938,0.142040363436,0.141760551118,0.141490913795,0.141292501424,0.140707439306,0.140084220964,0.139654327495,0.138845415523,0.138061941035,0.137563366361,0.137130929144,0.136400873371,0.135744586299,0.135195136658,0.134622793282,0.133556962729,0.132826906956,0.132399557235,0.132096851183,0.131163295543,0.130010977546,0.129242765548,0.12858139098,0.12780046024,0.127299341818,0.126899973329,0.126442098628,0.125958786444,0.125195661942,0.12493874336,0.12451139364,0.123903437787,0.12354731302,0.123005494624,0.122438238744,0.122089745222,0.121224870787,0.120741558603,0.120499902511,0.119693534288,0.119403546977,0.11898637225,0.118635334979,0.118709103681,0.118352978914,0.118096060332,0.11797650416,0.117920541696,0.117470298241,0.117246448387,0.117208292162,0.117116717222,0.116872517381,0.116284911515,0.116086499145,0.115605730709,0.115201274723,0.114832431214,0.114331312792,0.11413544417,0.113349425933,0.112894094981,0.112319207856,0.11165528954,0.111171977356,0.11046227157,0.110078165571,0.108979266289,0.108213598039,0.107277498651,0.106252368071,0.105239956232,0.104306400592,0.10316171384,0.10196869587,0.10114197766,0.0998777347361,0.0991425914665,0.0981607046081,0.0975222237753,0.0973950363584,0.0969193554193,0.096374993275,0.0961842121496,0.0958865935941,0.0954388938866,0.0953651251849,0.0951768878079,0.0955101188401,0.0951234690928,0.0949377754641,0.0948080442989,0.0946452444052,0.0946299819152,0.0945129694917,0.0944086758098,0.094131407241,0.0937981762088,0.0932919702895,0.093167326621,0.0923278896695,0.0919717649022,0.0919158024388,0.0914630152346,0.091081452984,0.0910941717257,0.090923740587,0.090697346985,0.090359028456,0.0902496472775,0.0904302534095,0.0900715848938,0.0898401037951,0.08980194757,0.0893720541009,0.0888938294134,0.0885300734011,0.0884283234676,0.0881408799054,0.0880213237336,0.0877796676415,0.0874795053376,0.0874642428476,0.0870674181069,0.0870419806235,0.0870190868885,0.0869580369284,0.0867469058163,0.0868384807565,0.0869351431933,0.0866655058695,0.0864874434859,0.0856810752628,0.0856123940577,0.085426700429,0.0849332132515,0.0847017321527,0.0848009383379,0.084462619809,0.0839920263665,0.0841599137568,0.0841955262335,0.0842006137302,0.0839691326314,0.0836282703542,0.0837503702744,0.0837223890427,0.0834578392155,0.0834400329772,0.0831195206866,0.0825141085822,0.0822851712318,0.0823614836819,0.0820994776031,0.0822368400134,0.0819824651796,0.0813795968235,0.0807436597391,0.0803163100183,0.0801204413963,0.0800950039129,0.0798406290791,0.079576079252,0.0794158231067,0.0790393483527,0.0787340985522,0.0786984860755,0.0789554046576,0.0789096171875,0.0787722547773,0.0784212175066,0.0781668426729,0.0777725616805,0.0777369492038,0.0774266119065,0.0771900433111,0.0769560184641,0.076376043843,0.0762335939361,0.0759308878839,0.075796069222,0.0759181691422,0.0757070380302,0.0753000382961,0.0754017882296,0.0753025820445,0.0752211820977,0.0751932008659,0.0749362822838,0.0747124324301,0.0746183137416,0.0741629827891,0.0740205328822,0.0738297517569,0.0735168707113,0.0734431020095,0.0734736269896,0.0736822143533,0.0736008144065,0.0736466018765,0.0735041519696,0.0734074895328,0.0733133708443,0.0732039896658,0.0730386460238,0.0727995336801,0.072400165191,0.0719066780135,0.0716294094447,0.0712961784124,0.071059609817,0.0707925162415,0.0707340100297,0.0704262164809,0.0704262164809,0.0699352730517,0.0697750169064,0.0696249357545,0.0694926608409,0.0694519608675,0.0692128485237,0.0691975860337,0.0689482986966,0.0689406674516,0.0687880425513,0.0690627673718,0.06900426116,0.0689101424715,0.0685056864858,0.0684827927508,0.0686633988828,0.0686150676643,0.0682818366321,0.0685336677175,0.0682920116254,0.0682309616653,0.0681241242351,0.0680427242883,0.0681470179702,0.068017286805,0.0678214181829,0.0677323869911,0.0681063179968,0.0676102870709,0.0673482809921,0.066918387523,0.0669463687547,0.0669082125297,0.0670862749133,0.0669005812847,0.0669539999997,0.0668013750995,0.0666105939741,0.066557175259,0.066722518901,0.0670353999466,0.0666792751793,0.0663282379086,0.0660611443332,0.0660586005848,0.0659085194329,0.0660687755782,0.0659822881347,0.065961938148,0.0659746568897,0.0655651134073,0.0658678194595,0.0660916693132,0.0660051818697,0.0657838757643,0.065766069526,0.0654531884804,0.0651199574482,0.0650182075147,0.0649368075679,0.0651886386533,0.0650004012763,0.0650029450246,0.0650690824814,0.0649749637929,0.0648274263893,0.0649622450512,0.0652522323617,0.065412488507,0.065608357129,0.0654506447321,0.0654888009572,0.0650996074615,0.0650258387597,0.0652598636068,0.0652674948518,0.0651504824282,0.0648274263893,0.0649902262829,0.0647358514492,0.0649927700313,0.0648528638727,0.0648706701111,0.0647790951709,0.0646926077274,0.0647943576609,0.0650818012231,0.0655803758973,0.0653107385735,0.065186094905,0.0650538199914,0.0649749637929,0.064847776376,0.0649622450512,0.065186094905,0.0653056510768,0.0649724200446,0.0646239265223,0.0645120015954,0.0644967391054,0.064448407887,0.064621382774,0.0648884763494,0.0646188390256,0.0646391890123,0.064471301622,0.0644178829069,0.0645399828272,0.0647053264691,0.0647256764558,0.0647587451842,0.0647689201776,0.0648910200978,0.0651046949582,0.0650792574748,0.0648808451044,0.0646697139924,0.0644941953571,0.0643008704834,0.0644382328936,0.0643949891719,0.0644382328936,0.0644611266287,0.0645934015422,0.0643263079668,0.0645552453172,0.0650258387597,0.0652598636068,0.0654659072221,0.0654557322288,0.0655880071423,0.0653870510236,0.0654811697121,0.0654633634738,0.0655040634472,0.0652395136201,0.0651759199116,0.0649215450778,0.0649876825346,0.0648681263627,0.0645425265755,0.0646875202307,0.0645476140722,0.0645374390788,0.0645450703238,0.064809620151,0.064817251396,0.0648121638993,0.0650716262298,0.0651123262032,0.0654455572354,0.0652624073551,0.0651301324415,0.0651301324415,0.0651810074083,0.0651123262032,0.0649393513162,0.0649647887996,0.0644611266287,0.0643695516885,0.0641914893049,0.0645145453438,0.0643746391852,0.0641355268414,0.0641406143381,0.0640515831463,0.0640846518747,0.0642347330266,0.0645501578205,0.0648579513694,0.0649622450512,0.0648732138594,0.0651301324415,0.0652573198584,0.0653565260436,0.065420119752,0.0655956383874,0.0655803758973,0.0655142384405,0.0652649511034,0.0655956383874,0.0656923008242,0.0655447634206,0.0656261633674,0.0655422196723,0.0656236196191,0.0657228258042,0.0657304570493,0.0658830819495,0.0662595567035,0.0659161506779,0.0659492194063,0.0662722754452,0.0664299878422,0.0665393690207,0.0668242688345,0.0670201374565,0.0672516185553,0.0672923185287,0.0671651311118,0.0673050372704,0.0673177560121,0.0674780121573,0.0675848495875,0.0676331808059,0.067460205919,0.0673711747271,0.0674169621972,0.0673686309788,0.0674932746474,0.0675924808325,0.0677705432162,0.0676382683026,0.0676586182893,0.0677451057328,0.0678646619047,0.0675975683292,0.0674322246873,0.0674373121839,0.0673075810187,0.0670481186882,0.0666640126892,0.0669056687813,0.0668293563312,0.0669133000263,0.0667784813644,0.06712188739,0.0674271371906,0.0673737184755,0.0675212558791,0.0677629119712,0.0679994805666,0.0677145807528,0.0676179183159,0.0674703809123,0.0676840557727,0.0676967745144,0.0674271371906,0.0677094932561,0.0676891432694,0.067678968276,0.067874836898,0.0678163306863,0.0679155368714,0.0678951868847,0.0679842180766,0.0679460618515,0.0681292117318,0.0681241242351,0.0682640303937,0.0685387552142,0.0685082302342,0.0688490925114,0.0692357422588,0.0694163483908,0.0692789859805,0.0693196859539,0.0695206420726,0.0693959984041,0.0694443296225,0.0694570483642,0.0693909109074,0.0694061733974,0.069011892405,0.0689177737165,0.0689025112265,0.068823655028,0.0684929677441,0.0685616489492,0.0685031427375,0.0682614866454,0.0681953491886,0.0679409743548,0.067874836898,0.0679791305799,0.0681775429502,0.0682767491354,0.0684726177574,0.0683810428173,0.068447180274,0.0684649865124,0.0686099801677,0.0687982175447,0.0689254049616,0.0689762799283,0.0689254049616,0.0687524300746,0.0688897924848,0.0690653111201,0.0689203174649,0.0690780298618,0.0689686486833,0.0690373298884,0.0692891609739,0.0693069672122,0.0692331985104,0.0692764422322,0.0693298609473,0.0691034673452,0.0694366983775,0.0695079233309,0.0695002920859,0.0694265233841,0.0694188921391,0.0691416235703,0.0689330362066,0.0690296986434,0.0686964676112,0.0689406674516,0.0685692801943,0.068416655294,0.0687498863262,0.0688134800347,0.0686862926178,0.0689432111999,0.0689788236766,0.0688440050147,0.0688694424981,0.0687142738495,0.0688185675314,0.0688668987498,0.0684497240224,0.0684293740357,0.0683530615855,0.0683377990955,0.0682462241554,0.0684726177574,0.0685514739559,0.0685769114393,0.0686812051211,0.0687244488429,0.068816023783,0.0689330362066,0.0686862926178,0.0686633988828,0.0687804113063,0.0686430488961,0.0684649865124,0.0685743676909,0.0684624427641,0.0682869241288,0.0682258741687,0.0681368429768,0.0685540177042,0.0685107739825,0.0685998051743,0.0686252426577,0.0686633988828,0.0685718239426,0.068604892671,0.068431917784,0.0685260364725,0.0684573552674,0.0681673679569,0.0682843803804,0.068243680407,0.0678392244213,0.0675619558525,0.0674474871773,0.0672567060519,0.0674195059456,0.0673635434821,0.0670608374299,0.0671193436417,0.0669692624898,0.0669234750197,0.0670964499067,0.0675899370842,0.0676077433226,0.0678239619313,0.0676916870177,0.0676687932827,0.0679842180766,0.0679028181298,0.0679765868315,0.0679384306065,0.0679867618249,0.0679536930965,0.0676179183159,0.0674118747006,0.0673508247404,0.0672134623302,0.0672083748335,0.0673813497205,0.0671396936284,0.0671702186085,0.0672261810719,0.0670074187148,0.0672821435353,0.0671956560918,0.0671727623568,0.0673330185021,0.0673609997338,0.0671778498535,0.0673279310054,0.0671346061317,0.067302493522,0.0674576621706,0.0675975683292,0.0676509870443,0.0677959806996,0.0677679994678,0.0677171245011,0.0676026558259,0.0675619558525,0.0676306370576,0.0672846872837,0.0671753061051,0.0671524123701,0.0669616312448,0.0670430311916,0.0668649688079,0.0666487501992,0.0668064625962,0.0667098001593,0.0667199751527,0.0667250626493,0.0667606751261,0.0664477940805,0.066526650279,0.0664249003455,0.0665368252723,0.066534281524,0.0667047126626,0.0664935815506,0.0663714816304,0.0664045503588,0.0662977129286,0.0663435003987,0.0662799066902,0.0661857880017,0.0662163129818,0.0663078879219,0.0661527192733,0.0664554253255,0.0664579690739,0.0663562191404,0.0664376190872,0.0664579690739,0.0664172691005,0.0665470002657,0.0663892878687,0.0663663941337,0.0660636880815,0.0657838757643,0.0657838757643,0.0657864195127,0.0656694070891,0.0655829196457,0.0654252072487,0.0651733761633,0.0651021512098,0.0650818012231,0.0653438073019,0.0653870510236,0.0651886386533,0.0652293386267,0.0650792574748,0.0649775075413,0.0586486616768,0.052174822157,0.0456908076439,0.0389880307738,0.0)
m <- c(0.0385724221701,0.0450287066905,0.051528219583,0.0580735036931,0.0645831879673,0.0646569304845,0.0646620161753,0.064847643891,0.0650459858337,0.065035814452,0.0648247582822,0.0649519005532,0.0650866713604,0.0648273011276,0.0649366434807,0.0650917570513,0.0651298997326,0.065132442578,0.0651883851772,0.0651451568051,0.0654121555741,0.0655672691447,0.0654121555741,0.0657732396237,0.0657478111695,0.0657859538508,0.0656333831256,0.0654935266276,0.0656816971886,0.0660427812382,0.0658190108413,0.0657706967783,0.0659156389672,0.0658851248222,0.0659207246581,0.0658088394596,0.0661826377363,0.0663301227706,0.0663657226065,0.0662080661905,0.0665971215397,0.0664038652878,0.0664038652878,0.0664572650416,0.0666072929213,0.0667217209652,0.0667674921828,0.0666835782839,0.0667293495015,0.06690226299,0.0668819202267,0.0671184048507,0.0675023745091,0.0676142597075,0.0676422310071,0.0675761170262,0.0674108320739,0.0675150887362,0.0676930879155,0.0677922588869,0.0674769460549,0.0675964597896,0.0674667746732,0.0675710313354,0.0675023745091,0.0673676037018,0.067471860364,0.0674947459728,0.0673345467114,0.0672760612667,0.0676168025529,0.0675862884079,0.0675278029632,0.0672455471217,0.0672379185854,0.0674998316636,0.0676320596255,0.0678609157132,0.0681152002552,0.0682677709804,0.0682397996807,0.068374570488,0.0680465434289,0.0682321711445,0.0684610272322,0.0686797119383,0.0687534544555,0.068738197383,0.0686771690929,0.0686822547838,0.0689085680261,0.0687483687647,0.0690967385872,0.0690001104612,0.068974682007,0.069071310133,0.0690611387513,0.0689492535528,0.0690128246883,0.0690840243601,0.0689543392437,0.0690865672055,0.0692009952494,0.0693739087379,0.0693815372741,0.0691069099688,0.0688907681082,0.0690840243601,0.0691094528142,0.0688424540452,0.0689517963982,0.0687610829918,0.0686517406387,0.0687305688467,0.0686924261654,0.0687712543734,0.0689950247704,0.0688933109536,0.0688424540452,0.069053510215,0.0689568820891,0.0690407959879,0.0691450526501,0.0691984524039,0.0694501941005,0.0691959095585,0.0691959095585,0.0693052519116,0.0693967943467,0.0693408517474,0.0692009952494,0.0693332232112,0.0692950805299,0.0691831953314,0.0688068542093,0.0690891100509,0.0690967385872,0.0688017685185,0.0687331116921,0.0687229403105,0.0689695963162,0.0690611387513,0.0691272527322,0.0693027090661,0.0694374798734,0.0695798792169,0.0696103933619,0.0698087353046,0.0698341637588,0.0699918201749,0.0699104491214,0.0698926492035,0.0697934782321,0.0695290223085,0.0696027648257,0.0695849649077,0.0694857939364,0.0695976791348,0.0693993371921,0.0692620235394,0.0692721949211,0.069259480694,0.0694044228829,0.0695544507627,0.0693662802016,0.0692264237036,0.0691908238677,0.0691603097226,0.0694247656463,0.0694069657283,0.0695264794631,0.0694603654822,0.0692671092303,0.069211166631,0.0695264794631,0.0695493650718,0.0696103933619,0.0697426213237,0.0696612502703,0.0695900505986,0.0692187951673,0.0690179103791,0.0691628525681,0.0693103376024,0.0689950247704,0.0688068542093,0.0687763400643,0.0686390264116,0.0687000547017,0.0686669977112,0.0688882252627,0.0690891100509,0.069132338423,0.0691247098868,0.0694044228829,0.0695900505986,0.0696459931978,0.0695697078352,0.069338308902,0.0692442236215,0.0691475954955,0.0692340522398,0.0691704811043,0.0691730239497,0.0688602539631,0.0689212822532,0.0691119956597,0.0688577111177,0.0689467107074,0.0692696520757,0.0693891658104,0.0691221670413,0.0688856824173,0.0687661686826,0.068926367944,0.0685169698315,0.0683415134975,0.0684508558506,0.0684152560147,0.0680643433468,0.0680643433468,0.068199114154,0.0681584286273,0.0682016569994,0.0679982293659,0.068199114154,0.0683287992704,0.0683593134155,0.0682347139899,0.0684762843048,0.0682906565891,0.0681787713907,0.0684177988601,0.0682575995987,0.0682881137437,0.0684152560147,0.068071971883,0.0681533429365,0.0681736856998,0.0680134864384,0.0678863441674,0.0677719161235,0.0678100588048,0.06796262953,0.0682296282991,0.068247428217,0.0682270854536,0.068247428217,0.0681101145643,0.0682067426903,0.0684610272322,0.0685576553582,0.0683008279708,0.0680694290376,0.0679499153029,0.0676244310892,0.0676218882438,0.067647316698,0.0677439448239,0.0678660014041,0.0677337734422,0.067726144906,0.067774458969,0.0675100030453,0.0671184048507,0.0673752322381,0.0674133749194,0.0671819759862,0.0670955192419,0.0667344351923,0.0665030362591,0.0663580940702,0.0660122670932,0.0662945229347,0.0663530083794,0.0660071814023,0.0660046385569,0.0659156389672,0.0659512388031,0.0660936381466,0.0661851805817,0.0660148099386,0.0659359817306,0.0656562687344,0.0658647820588,0.0659741244119,0.0657681539329,0.0658749534405,0.0656893257249,0.0654579267917,0.0654096127287,0.0656206688985,0.0658444392955,0.0660987238374,0.0659537816485,0.0657554397058,0.0659588673393,0.0658876676676,0.065908010431,0.0659639530302,0.0659614101848,0.0658851248222,0.0656588115798,0.0656155832077,0.0651756709501,0.0653231559844,0.0650154716887,0.0650434429883,0.0647281301563,0.0644484171601,0.0645831879673,0.0645247025227,0.0647255873108,0.0644763884597,0.0651553281867,0.0650510715245,0.0652468706219,0.0652366992402,0.0656359259711,0.0657732396237,0.0658317250684,0.066047866929,0.0660732953832,0.0661368665187,0.0656511830436,0.0654553839463,0.0652672133852,0.065259584849,0.065162956723,0.0653918128108,0.064908672181,0.0647001588566,0.0646950731658,0.0647917012917,0.0649773290074,0.0653333273661,0.065320613139,0.0652468706219,0.0652977275302,0.0651171855055,0.065368927202,0.0650942998967,0.0652850133032,0.0651756709501,0.0650587000608,0.0648323868185,0.0648145869005,0.0648069583643,0.0647866156009,0.0648349296639,0.0647179587746,0.064829843973,0.0643365319616,0.0643111035074,0.0641102187193,0.0640542761201,0.0644153601696,0.0643797603338,0.0642755036716,0.0642500752174,0.0643670461067,0.0644077316334,0.0647459300742,0.0646543876391,0.0649951289253,0.0650103859978,0.0646442162574,0.0645857308128,0.0643746746429,0.0642373609903,0.0642475323719,0.0642653322899,0.0641966754636,0.0645297882135,0.0643136463529,0.0642882178987,0.0643365319616,0.0644789313051,0.0646289591849,0.0647840727555,0.0646849017841,0.0647586443013,0.0647230444654,0.0645069026047,0.0645425024406,0.064562845204,0.0645526738223,0.0643772174883,0.064611159267,0.064611159267,0.0644611313872,0.0643339891162,0.06438738887,0.0644433314693,0.0645196168318,0.0646950731658,0.0646518447937,0.0648095012097,0.0647077873929,0.0647891584463,0.0650409001429,0.06511464266,0.0651680424138,0.0651756709501,0.065320613139,0.0655672691447,0.0658571535226,0.0659944671752,0.0660376955474,0.0662131518813,0.0660783810741,0.066302151471,0.0663377513069,0.0663606369156,0.0663275799252,0.0660605811561,0.0660351527019,0.0659486959577,0.0660631240016,0.0661139809099,0.0662818087076,0.0660936381466,0.0661572092821,0.0661063523737,0.065986838639,0.0660834667649,0.0662258661084,0.0664547221962,0.0664547221962,0.0663784368336,0.0664420079691,0.0665767787763,0.0666556069843,0.0670166910339,0.0671006049328,0.067344718093,0.0673014897209,0.0672302900492,0.067265889885,0.0672760612667,0.0674108320739,0.0676524023888,0.0678863441674,0.0678914298583,0.0681609714727,0.0681431715548,0.0683720276426,0.0688907681082,0.0692035380948,0.0695061366997,0.0697578783962,0.0698951920489,0.0698697635947,0.0700731912283,0.0702283047989,0.0704419038141,0.0704597037321,0.0703401899973,0.0703605327607,0.0702944187798,0.0703656184515,0.0706580456748,0.0707801022549,0.0709148730622,0.0709148730622,0.0707699308733,0.0708691018446,0.0709352158255,0.0713776709285,0.0715582129533,0.071665012461,0.0717514692052,0.0718328402587,0.0718735257854,0.0723032666613,0.0726465507929,0.072883035417,0.0730686631326,0.0731474913406,0.0734551756364,0.0738442309856,0.0738823736669,0.0742485434073,0.0745613133939,0.074398571287,0.0744773994951,0.0746248845294,0.0747876266362,0.075143624995,0.0752885671839,0.0752402531209,0.0754436807545,0.0758047648041,0.0759573355293,0.0764786188403,0.076882931262,0.0771829870215,0.0773075864471,0.0771906155578,0.0771804441761,0.0775567852982,0.077943297802,0.077658499115,0.0777246130959,0.0778542982123,0.0779127836569,0.0780450116188,0.0783476102237,0.0786527516741,0.0789934929603,0.0788790649164,0.0787570083363,0.078828208008,0.079003664342,0.0794410337541,0.079634290006,0.0798072034946,0.0797716036587,0.0799928312102,0.079997916901,0.0801047164087,0.0802420300613,0.080646342483,0.0809565696242,0.0809158840975,0.0811269402673,0.0811294831128,0.0813481678188,0.0812210255479,0.0815465097616,0.0818491083665,0.0822737635516,0.082591619229,0.0828662465344,0.0828001325534,0.083021360105,0.0830900169313,0.0833468443187,0.0837714995037,0.0843029541964,0.0846004671105,0.0847682949082,0.0849768082326,0.0848089804349,0.0851776930208,0.0854065491085,0.0857498332402,0.0858973182745,0.0857956044578,0.085597262515,0.0859863178642,0.0862812879329,0.0863957159768,0.0868559709977,0.086705943118,0.0869627705054,0.0873721686179,0.0878553092476,0.0883994781674,0.0886003629556,0.0886741054728,0.0886130771827,0.088651219864,0.0890351895223,0.0893403309727,0.0892640456101,0.0895971583601,0.0899353568009,0.0899887565547,0.0904668114936,0.0905024113295,0.090754153026,0.0913491788542,0.0914661497435,0.0920179471995,0.0925799160373,0.0926714584724,0.092668915627,0.0925112592109,0.0925951731098,0.092953714314,0.093317341209,0.0935614543692,0.0938284531383,0.0941081661345,0.0941997085696,0.0944539931115,0.0947362489531,0.0952473608825,0.0954101029893,0.0958703580103,0.0962695847411,0.096511155056,0.0967832395159,0.0970680382029,0.0973630082716,0.0977393493937,0.0981055191341,0.0988175158516,0.099341342008,0.0999541677542,0.100409337084,0.10129424729,0.101818073447,0.102781811861,0.104236319441,0.105118686801,0.106092596597,0.106903764286,0.108144672851,0.10883886965,0.110026378461,0.110435776574,0.111229144345,0.112037769188,0.111930969681,0.112335282102,0.112993879066,0.11332444897,0.11356347644,0.114227159094,0.114250044703,0.114771328014,0.115490953268,0.115297697016,0.115841865936,0.116325006566,0.116284321039,0.116803061505,0.117098031573,0.117064974583,0.117370116033,0.117741371464,0.117970227552,0.118733081178,0.118946680193,0.119462877813,0.12013673185,0.120421530537,0.12098604222,0.121799752754,0.122252379239,0.122514292317,0.122969461647,0.123452602277,0.124027285342,0.124144256231,0.124268855656,0.124983395219,0.125311422279,0.125466535849,0.12607681875,0.126608273443,0.127119385372,0.127243984797,0.128116180776,0.12874680644,0.129725801927,0.130402198809,0.130783625622,0.131373565759,0.13201690565,0.132782302121,0.133359528032,0.134058810522,0.134572465297,0.135589603465,0.136220229129,0.136499942125,0.137356881031,0.138198562865,0.138613046669,0.138966502182,0.139731898653,0.140100611239,0.14037778139,0.140685465686,0.140690551376,0.14126014875,0.142081487821,0.141964516932,0.142645999504,0.14310371168,0.143419024512,0.144016593185,0.144909131927,0.145588071655,0.146000012613,0.146142411956,0.145827099124,0.146628095431,0.146554352914,0.146475524706,0.146144954801,0.146127154883,0.145605871572,0.144748932666,0.144710789985,0.144764189739,0.144987960136,0.144334448863,0.144278506263,0.144199678055,0.144171706756,0.14392505075,0.143444452966,0.143304596468,0.142849427138,0.14253157146,0.14222643001,0.141702603853,0.141237263142,0.141140635016,0.14083295072,0.140380324235,0.140098068394,0.140301496027,0.140390495617,0.140092982703,0.139388614522,0.139312329159,0.138908016737,0.138757988857,0.138295190991,0.138201105711,0.138099391894,0.137735764999,0.137738307844,0.137621336955,0.137344166804,0.137456052003,0.137565394356,0.13719668177,0.137112767871,0.136667769923,0.136764398048,0.136332114327,0.135698945818,0.135414147131,0.135363290222,0.135142062671,0.134814035612,0.13450380847,0.134249523928,0.13450380847,0.13447075148,0.134562293915,0.134602979442,0.134366494818,0.134246981083,0.134168152875,0.134041010604,0.134025753532,0.133898611261,0.133623983955,0.13289418732,0.132756873667,0.13265007416,0.13238307539,0.131851620698,0.131627850301,0.131236252106,0.130900596511,0.130364056127,0.129990257851,0.129667316482,0.129123147563,0.128418779381,0.128001752732,0.127851724853,0.127188042198,0.126877815057,0.126427731418,0.126399760118,0.125916619488,0.125817448517,0.125273279597,0.125026623592,0.124757081977,0.124251055739,0.123933200061,0.123579744548,0.123177974971,0.122883004903,0.122478692481,0.12171329601,0.121418325941,0.121130984409,0.120772443205,0.1204698446,0.120263874121,0.120139274695,0.119630705611,0.119429820823,0.119142479291,0.119234021726,0.118903451821,0.118392339892,0.118031255842,0.11801599877,0.117548115212,0.117014117674,0.116696261997,0.116141921695,0.11595629398,0.115531638795,0.115488410423,0.115071383774,0.114862870449,0.114428043883,0.114097473978,0.113901674881,0.113639761803,0.113304106207,0.113077792965,0.112813337041,0.112406481774,0.11210896886,0.111679227984,0.111356286616,0.111051145165,0.110598518681,0.110222177559,0.110011121389,0.10962715173,0.109380495725,0.108996526066,0.109100782729,0.108482871292,0.108304872112,0.108091273097,0.108157387078,0.10820061545,0.107923445299,0.107913273918,0.107735274738,0.107358933616,0.107030906557,0.10711227761,0.106913935668,0.107061420702,0.106529966009,0.106364681057,0.105828140673,0.105248371918,0.1045643465,0.104477889756,0.10398712059,0.103404808989,0.102949639658,0.102448699111,0.102130843433,0.101858758973,0.101530731914,0.101073019739,0.100846706496,0.100643278863,0.100605136182,0.100757706907,0.100516136592,0.100183023842,0.0997659971931,0.0993565990805,0.0994277987523,0.099516798342,0.0995854551683,0.0991607999832,0.09920148551,0.098977715113,0.0989548295042,0.098771744634,0.0987437733344,0.0985759455367,0.0982326614051,0.0977647778479,0.0972663801456,0.0969434387773,0.0961551566973,0.0957762727297,0.0952321038099,0.0946904777356,0.0943675363673,0.0939250812643,0.0938818528921,0.0937979389933,0.0936657110315,0.0935436544513,0.0933071698273,0.0930172854495,0.0927502866804,0.0927935150525,0.09238411694,0.0924197167758,0.0919798045182,0.091814519566,0.0914864925068,0.091529720879,0.0912423793466,0.0908075527798,0.09026338386,0.0895488442971,0.0892182743925,0.0881273937075,0.0874001399175,0.0864262301218,0.0855082629253,0.0842648115151,0.0835985860152,0.0827619898722,0.0824644769581,0.0816024523608,0.0809107984067,0.0805751428113,0.080125059172,0.0801581161625,0.0801581161625,0.079919088693,0.0794842621263,0.0796749755327,0.0793876340003,0.0793393199374,0.0791664064488,0.0788409222351,0.0783018390062,0.0778314126035,0.0772618152295,0.0772516438478,0.0770380448326,0.0767430747639,0.0764303047773,0.0761480489357,0.0759903925197,0.0759878496743,0.0761124490999,0.0758581645579,0.0759369927659,0.0757335651323,0.075743736514,0.0753877381553,0.0752911100293,0.0751359964587,0.0747342268824,0.074622341684,0.07444688535,0.0741646295084,0.0739306877298,0.0738315167585,0.0735874035982,0.0733305762108,0.0731932625581,0.0733534618196,0.0733839759646,0.0734577184818,0.0733712617375,0.0734322900276,0.0731220628864,0.0729644064704,0.0728016643635,0.0726821506288,0.0722066385353,0.071949811148,0.0718302974132,0.0713039284114,0.0709784441977,0.0709428443618,0.0709606442797,0.0706097316118,0.0703961325966,0.0705334462492,0.07087164469,0.0707902736366,0.0707419595736,0.0705359890947,0.0706656742111,0.07047750365,0.0703757898332,0.0702842473981,0.0703122186977,0.0701316766729,0.0697070214879,0.0697680497779,0.0696510788886,0.0699663917207,0.0695798792169,0.0693281375203,0.0693967943467,0.0696383646615,0.0697121071787,0.0695544507627,0.0697146500241,0.0693027090661,0.0691450526501,0.0691043671234,0.0693637373562,0.0692798234574,0.0691984524039,0.0687076832379,0.068738197383,0.0686390264116,0.0685652838945,0.0686669977112,0.0687051403925,0.0684279702418,0.0681863999269,0.068326256425,0.0680846861101,0.0678431157953,0.067441346219,0.0673854036198,0.0673955750014,0.0671107763144,0.0668386918545,0.0670904335511,0.0671946902133,0.0669683769709,0.0670344909518,0.0673192896388,0.0674108320739,0.0674311748373,0.0671718046045,0.0671997759041,0.0673421752476,0.0673777750835,0.0672379185854,0.0670319481064,0.0670116053431,0.0671234905415,0.0670853478602,0.0670751764786,0.0669048058354,0.0670039768068,0.067156547532,0.0667166352744,0.066635264221,0.0669607484347,0.0669404056713,0.0667674921828,0.0666988353565,0.0665971215397,0.0667395208832,0.0665030362591,0.0662919800893,0.0661826377363,0.0661978948088,0.066047866929,0.0660453240836,0.0659156389672,0.0658825819768,0.0657350969424,0.0658495249863,0.065938524576,0.0659817529481,0.0660783810741,0.0659664958756,0.0660605811561,0.0657478111695,0.0658927533584,0.0656994971065,0.0657884966962,0.0654731838642,0.0656460973527,0.0655214979272,0.0653943556562,0.0654401268737,0.0655367549997,0.0656766114978,0.065544383536,0.065763068242,0.0656918685703,0.0657503540149,0.0656664401161,0.0658495249863,0.0659741244119,0.066047866929,0.0658037537688,0.0658825819768,0.0660071814023,0.0659512388031,0.0659563244939,0.0661495807458,0.0658444392955,0.0653841842745,0.065417241265,0.0651019284329,0.0648883294177,0.0649620719349,0.0648273011276,0.06472050162,0.0648527295818,0.064829843973,0.0652239850131,0.0652392420856,0.0652316135493,0.0654299554921,0.0656308402802,0.0654757267096,0.0654680981734,0.0658215536867,0.0658774962859,0.0657249255607,0.0655291264634,0.0655952404443,0.0655494692268,0.0655977832898,0.0656562687344,0.0657961252325,0.0657350969424,0.0656028689806,0.0655698119901,0.0658062966142,0.0658851248222,0.0659054675855,0.0658037537688,0.0660148099386,0.066017352784,0.0661826377363,0.0663275799252,0.0661012666828,0.0660885524557,0.0655723548356,0.0654909837821,0.0657122113336,0.0660580383107,0.0659995528661,0.0659283531943,0.0656791543432,0.0656282974348,0.0657274684062,0.065574897681,0.0658647820588,0.066017352784,0.0658825819768,0.0655876119081,0.0656359259711,0.0656181260531,0.0654299554921,0.0655723548356,0.065702039952,0.0655494692268,0.0656282974348,0.0654833552459,0.0657045827974,0.0658774962859,0.0656740686524,0.0657071256428,0.0658469821409,0.0656715258069,0.0656791543432,0.0661521235912,0.0663301227706,0.0666123786122,0.06650812195,0.0664369222782,0.0666098357668,0.0667878349461,0.0667013782019,0.0667649493374,0.0668488632362,0.0668666631541,0.0667217209652,0.0667344351923,0.0666912068202,0.0665818644672,0.0665208361771,0.0664954077229,0.0668081777095,0.0672252043583,0.0671946902133,0.0673701465472,0.0674388033736,0.0672430042763,0.067441346219,0.0675303458087,0.0674566032915,0.0675379743449,0.0672252043583,0.0670344909518,0.0670014339614,0.0667420637286,0.0665259218679,0.0665640645492,0.0664445508145,0.0666403499118,0.0666479784481,0.0665488074767,0.0667878349461,0.0668437775454,0.0667090067381,0.0667217209652,0.0669378628259,0.0669582055893,0.0670904335511,0.0669226057534,0.0670573765606,0.0668946344538,0.0669226057534,0.0666047500759,0.0666606926752,0.0666759497477,0.0666784925931,0.0667852921007,0.0668895487629,0.0669556627438,0.0667624064919,0.0671946902133,0.0673065754117,0.0607740055288,0.0541066648385,0.0473426960224,0.0406473840325,0.0)
ycorr <- c(6.4027570976e-05,6.38925552963e-05,6.34920632213e-05,6.28274280039e-05,6.18895348706e-05,6.06837146141e-05,5.92081700182e-05,5.77221371002e-05,5.62318591861e-05,5.47362169687e-05,5.32262288017e-05,5.17083303735e-05,5.01833089438e-05,4.86511238055e-05,4.71154713558e-05,4.55757596999e-05,4.40280907249e-05,4.24761971866e-05,4.09182407187e-05,3.93503423271e-05,3.77745619708e-05,3.61899417785e-05,3.45931534556e-05,3.29844160695e-05,3.13565787841e-05,2.97085925129e-05,2.80443337668e-05,2.63608703818e-05,2.46570924011e-05,2.2935808123e-05,2.11980775148e-05,1.94461479778e-05,1.76778088452e-05,1.58934155661e-05,1.40969311654e-05,1.22887932653e-05,1.04659194403e-05,8.62622718233e-06,6.77548188551e-06,4.90788528152e-06,3.02311780228e-06,1.1134875772e-06,-8.23876930855e-07,-2.78506569788e-06,-4.77377441107e-06,-6.79146929596e-06,-8.83396148309e-06,-1.09008484561e-05,-1.29954781331e-05,-1.51201344714e-05,-1.72734731562e-05,-1.94529061631e-05,-2.16517906471e-05,-2.38724979991e-05,-2.61159313762e-05,-2.83790738151e-05,-3.06633862457e-05,-3.29708522076e-05,-3.5299545399e-05,-3.76444661728e-05,-4.00046141691e-05,-4.23723150221e-05,-4.47508172569e-05,-4.71456562184e-05,-4.95465252067e-05,-5.19571994394e-05,-5.43786836441e-05,-5.68076224497e-05,-5.92422696416e-05,-6.16874198543e-05,-6.41457202136e-05,-6.66186827747e-05,-6.91039704579e-05,-7.15911142079e-05,-7.40833446846e-05,-7.65814576621e-05,-7.90776015544e-05,-8.15669705797e-05,-8.40505346614e-05,-8.65218277701e-05,-8.89706972298e-05,-9.13957724415e-05,-9.37995763141e-05,-9.61902012948e-05,-9.85674306e-05,-0.000100924377815,-0.000103265591468,-0.000105594134659,-0.000107912666886,-0.000110218371627,-0.000112515463615,-0.000114807877055,-0.000117091487012,-0.000119361626228,-0.000121613286457,-0.000123850721275,-0.000126074187676,-0.000128281797653,-0.000130470513356,-0.000132641545623,-0.000134802790177,-0.000136953410172,-0.000139095179856,-0.000141225523,-0.000143346783391,-0.000145458928839,-0.000147564362887,-0.000149658522715,-0.00015174371258,-0.000153819750557,-0.000155884259079,-0.000157935404588,-0.000159972358998,-0.000161995153175,-0.000164011940199,-0.000166021904583,-0.00016802316882,-0.000170018415035,-0.000172007207931,-0.000173994036128,-0.00017597599268,-0.000177953563797,-0.000179924096197,-0.000181888499408,-0.000183846202658,-0.000185792713933,-0.000187728169886,-0.000189654590311,-0.000191573728187,-0.000193486274401,-0.000195389879269,-0.000197287334291,-0.000199177794942,-0.000201063719577,-0.000202944172288,-0.000204818974869,-0.000206690742675,-0.000208558097203,-0.000210418855304,-0.000212264281866,-0.000214098985758,-0.000215921805653,-0.000217733868223,-0.000219532864824,-0.000221317983211,-0.000223089353709,-0.000224845692202,-0.000226583142355,-0.000228304114317,-0.000230012821546,-0.000231709973654,-0.000233389758954,-0.000235051561997,-0.000236697321797,-0.000238327858479,-0.000239943802344,-0.000241544124915,-0.000243133802632,-0.000244712483311,-0.000246280483959,-0.000247833769387,-0.000249378763428,-0.000250918434679,-0.000252450621437,-0.000253972071026,-0.00025548500867,-0.000256987470942,-0.00025848079813,-0.00025996209311,-0.000261429073236,-0.000262881475539,-0.000264322540491,-0.000265748503776,-0.000267159875007,-0.000268559964645,-0.000269950473144,-0.000271329115452,-0.00027269769423,-0.00027405379867,-0.000275402635643,-0.000276747041949,-0.000278081176766,-0.000279404135324,-0.000280719073414,-0.000282023542529,-0.000283314749099,-0.000284594150138,-0.000285862864121,-0.000287121899056,-0.000288370544694,-0.000289604462368,-0.000290823052304,-0.000292032409255,-0.000293233022089,-0.000294422674963,-0.000295604829811,-0.000296778565454,-0.000297941344062,-0.000299096249357,-0.000300241718196,-0.000301382071963,-0.000302518365571,-0.000303651322388,-0.000304776547947,-0.000305894493243,-0.00030700385136,-0.000308105332907,-0.000309202575634,-0.000310294595725,-0.000311379777762,-0.000312455828259,-0.000313525526351,-0.000314584379699,-0.000315637130806,-0.000316686238817,-0.00031773551449,-0.000318786787523,-0.000319837560234,-0.00032088903302,-0.000321943033346,-0.000322999278186,-0.000324058283846,-0.000325118640496,-0.000326181822738,-0.000327247849938,-0.000328310881008,-0.000329368382021,-0.000330417293167,-0.000331458040203,-0.000332485361044,-0.000333504060472,-0.000334512842351,-0.000335510305574,-0.000336493836193,-0.000337465792622,-0.000338422923842,-0.000339373154847,-0.000340314851849,-0.000341248185822,-0.000342176116048,-0.000343097810265,-0.000344009808523,-0.00034491755855,-0.000345822932567,-0.000346725359704,-0.000347624130465,-0.000348517299376,-0.000349405113232,-0.000350290324462,-0.000351176087076,-0.000352060388092,-0.000352949898369,-0.000353841575775,-0.000354733357841,-0.000355622009012,-0.000356509786352,-0.000357397390306,-0.00035828678426,-0.000359173449044,-0.000360054228015,-0.000360926435382,-0.000361786114918,-0.000362632014616,-0.000363465416784,-0.00036428633761,-0.000365100366775,-0.000365905255351,-0.000366700767314,-0.000367489371525,-0.000368273081566,-0.000369055918594,-0.000369838505034,-0.00037062481404,-0.000371412747794,-0.00037220574409,-0.000372999565475,-0.000373793173568,-0.000374587406345,-0.00037538195881,-0.000376175034993,-0.000376969068455,-0.000377757869982,-0.000378540104496,-0.000379311317732,-0.000380066954858,-0.00038080579064,-0.000381525634914,-0.000382221310219,-0.000382888314246,-0.000383522300578,-0.000384116207695,-0.000384670511779,-0.000385186241991,-0.000385669740816,-0.000386122194921,-0.000386546144261,-0.000386942373102,-0.000387316812208,-0.000387678949879,-0.000388036373811,-0.000388393632368,-0.000388755995294,-0.000389124465381,-0.000389499276213,-0.000389878861424,-0.000390265895537,-0.000390659914595,-0.000391056561352,-0.000391453237699,-0.000391841686707,-0.000392222960137,-0.000392595690847,-0.00039296042697,-0.00039331291007,-0.00039365345893,-0.000393981143487,-0.000394299154032,-0.000394612134699,-0.000394920725625,-0.000395231682185,-0.000395543778359,-0.000395856972084,-0.000396169200063,-0.000396483078654,-0.000396798328597,-0.000397113159248,-0.000397427123937,-0.000397738335237,-0.000398043172574,-0.000398341404059,-0.000398632585703,-0.00039891712991,-0.000399192917222,-0.000399463213316,-0.00039973031432,-0.00039999627185,-0.000400264226186,-0.000400532057538,-0.000400801533474,-0.000401070530157,-0.000401339698569,-0.000401605975404,-0.000401871628963,-0.000402132040195,-0.000402385956075,-0.000402631575962,-0.000402866253722,-0.000403090331329,-0.000403306665644,-0.000403513897526,-0.000403713532427,-0.000403907021383,-0.000404096050317,-0.000404284245897,-0.000404474685613,-0.000404668210622,-0.000404860021249,-0.000405052710306,-0.00040524184032,-0.000405425554003,-0.000405601951205,-0.000405772258205,-0.000405934961726,-0.000406085801469,-0.000406224089787,-0.000406347474526,-0.000406459942677,-0.000406560835193,-0.00040665026385,-0.000406735211608,-0.000406817127495,-0.000406896718272,-0.000406974022685,-0.000407049843176,-0.000407120877031,-0.000407184817247,-0.000407244185047,-0.000407297434596,-0.000407345830383,-0.000407387323873,-0.00040741556444,-0.000407432200215,-0.000407436190356,-0.000407428719888,-0.000407411726125,-0.000407390534585,-0.00040736301746,-0.000407327762038,-0.000407282649957,-0.000407226314433,-0.000407157578896,-0.000407078329456,-0.00040698556382,-0.000406881811714,-0.000406763678763,-0.00040662843414,-0.000406478904685,-0.000406317130701,-0.000406143581849,-0.000405959280407,-0.000405769940572,-0.000405575919555,-0.000405378625377,-0.000405174966924,-0.000404963813387,-0.00040474912981,-0.000404531792044,-0.000404307005659,-0.000404072002339,-0.000403828442744,-0.000403574449416,-0.000403307138374,-0.000403027004028,-0.00040273291017,-0.000402429834531,-0.000402117604327,-0.00040179004287,-0.000401447647032,-0.000401095527074,-0.00040073486227,-0.000400362962951,-0.000399977088138,-0.000399576180039,-0.000399163244043,-0.000398736619799,-0.000398293232705,-0.000397831745793,-0.00039735683491,-0.000396866341039,-0.000396357208362,-0.000395830668778,-0.000395289469069,-0.000394735937995,-0.000394171153032,-0.000393592677551,-0.000393002196863,-0.000392401247046,-0.000391787398098,-0.000391162865204,-0.000390523888949,-0.000389871521481,-0.000389204280757,-0.000388521039255,-0.000387818318137,-0.000387098914155,-0.000386361061381,-0.000385603257411,-0.000384827886096,-0.000384037287739,-0.000383228748866,-0.000382404629943,-0.000381563593568,-0.000380705707174,-0.000379831338606,-0.000378941104969,-0.000378032963255,-0.000377108807629,-0.0003761693513,-0.000375208095633,-0.000374227615393,-0.00037322848227,-0.000372211410964,-0.00037117491838,-0.000370120891986,-0.000369045388395,-0.000367948285647,-0.000366830502957,-0.000365688655857,-0.000364523318773,-0.000363339400142,-0.000362133193509,-0.000360903861178,-0.000359654392458,-0.000358384443782,-0.000357095939079,-0.000355789213508,-0.000354465794137,-0.000353124543099,-0.000351767747732,-0.00035039269482,-0.000348997355151,-0.000347584110142,-0.000346151549472,-0.000344695745798,-0.000343216871643,-0.000341713756169,-0.00034018646538,-0.000338635874279,-0.000337061732164,-0.000335465568431,-0.000333848731073,-0.000332211139703,-0.000330552335771,-0.000328875063141,-0.000327179976819,-0.00032546616069,-0.000323731960679,-0.000321981446787,-0.000320212346979,-0.000318424296134,-0.000316615884722,-0.000314786192532,-0.000312934664175,-0.000311055099714,-0.000309147340586,-0.00030721531681,-0.000305263103085,-0.000303288622865,-0.000301288419911,-0.000299261001541,-0.00029720634032,-0.000295125368658,-0.000293018625801,-0.000290889949709,-0.000288744197824,-0.000286577037501,-0.000284382068375,-0.000282158255717,-0.000279908542609,-0.00027763337279,-0.000275336937367,-0.000273017718665,-0.000270672734764,-0.000268305480463,-0.000265910413009,-0.000263491316155,-0.000261051031231,-0.000258590091418,-0.000256106125864,-0.000253598801292,-0.000251068121544,-0.000248514817763,-0.000245942652455,-0.000243351874554,-0.000240741950048,-0.000238112182771,-0.000235459462994,-0.000232784596976,-0.000230090851348,-0.000227376871168,-0.000224642180741,-0.000221889266197,-0.000219117407206,-0.000216323161274,-0.000213509555934,-0.000210674218962,-0.000207817654762,-0.000204938430861,-0.000202036170668,-0.000199113988563,-0.000196175682998,-0.000193217293651,-0.000190238820662,-0.000187239246987,-0.000184215485089,-0.000181168857592,-0.000178101153409,-0.000175013930942,-0.00017190929525,-0.000168781605354,-0.000165627555132,-0.000162446115157,-0.000159238760242,-0.000156003515911,-0.000152742892537,-0.000149458702357,-0.000146150565565,-0.000142816934481,-0.000139458113855,-0.000136076289936,-0.000132675886425,-0.000129254170748,-0.000125810769044,-0.000122348805457,-0.000118868762289,-0.000115368032031,-0.00011184728962,-0.000108305910096,-0.000104743804439,-0.000101162392923,-9.75547597082e-05,-9.39240495555e-05,-9.02723446832e-05,-8.66004027123e-05,-8.29076517922e-05,-7.91971221089e-05,-7.54689318006e-05,-7.17229852886e-05,-6.79604665436e-05,-6.41823550317e-05,-6.03307895794e-05,-5.63470401761e-05,-5.21752489833e-05,-4.77711114607e-05,-4.28050504905e-05,-3.83860566793e-05,-3.42016157967e-05,-3.02109146269e-05,-2.63672165065e-05,-2.26102399939e-05,-1.88854616246e-05,-1.52491087247e-05,-1.17615001879e-05,-8.47632921335e-06,-5.43650156228e-06,-2.97100957765e-06,2.75706834567e-08,3.24929838124e-06,6.65090092559e-06,1.01855331536e-05,1.37970579963e-05,1.74299998406e-05,2.10840499033e-05,2.4756245746e-05,2.84445411629e-05,3.21488720852e-05,3.58723574788e-05,3.9615220778e-05,4.33807833481e-05,4.71695865513e-05,5.09800836625e-05,5.48103063688e-05,5.86585667444e-05,6.25257744923e-05,6.64150118496e-05,7.03234437897e-05,7.42501691515e-05,7.81920560354e-05,8.21495620979e-05,8.6119447292e-05,9.0102815873e-05,9.40995105177e-05,9.81116307067e-05,0.000102140887622,0.000106185136675,0.000110246216191,0.000114325906731,0.000118422945011,0.000122535996923,0.000126667487661,0.000130815550176,0.000134983899052,0.000139171429495,0.000143375785384,0.000147597155858,0.000151836677344,0.000156088445117,0.000160358081941,0.00016464762941,0.000168957201587,0.000173286312216,0.000177635001241,0.000181999638409,0.00018638530749,0.0001907924248,0.000195219693414,0.000199668124196,0.000204139269372,0.000208632125619,0.000213143464577,0.000217674377314,0.00022222367473,0.000226791815175,0.000231376031953,0.000235973887159,0.000240584866069,0.000245211954469,0.000249852961998,0.000254503968242,0.000259161676217,0.000263828743677,0.000268501386999,0.000273181840133,0.000277870403734,0.000282568640067,0.000287276351737,0.000291991445983,0.000296708498399,0.000301427711684,0.000306152082822,0.000310883066433,0.000315620723846,0.000320368069939,0.000325120626935,0.000329877775303,0.000334639265429,0.000339402770325,0.000344168154715,0.000348937415532,0.00035371089524,0.000358486135965,0.000363262934386,0.000368033056172,0.000372793604631,0.000377544392577,0.000382284304615,0.000387011118318,0.000391725919166,0.000396430305352,0.00040112100201,0.000405795067959,0.000410451372261,0.000415088883672,0.000419714918786,0.000424330101288,0.000428933099569,0.000433524740603,0.000438106333718,0.000442673485546,0.000447226229624,0.000451766391514,0.000456296388107,0.000460817466666,0.000465327882303,0.000469823902515,0.000474306548144,0.000478772947568,0.000483221875248,0.000487652614565,0.000492068298834,0.000496466977114,0.000500846733459,0.000505205742676,0.000509545792799,0.000513865240125,0.000518162920283,0.000522441250606,0.000526703344625,0.00053094747247,0.000535171404297,0.000539373155776,0.00054355236427,0.000547708985832,0.000551838026865,0.000555936382356,0.000560004585538,0.00056404257818,0.000568044171919,0.000572013042405,0.000575949550861,0.000579853539746,0.000583724653566,0.000587562061501,0.000591367979459,0.000595146983054,0.000598895734138,0.000602615023135,0.000606303898985,0.000609957866535,0.000613571594715,0.000617147738921,0.000620682455544,0.000624177141593,0.000627627946971,0.00063103185067,0.000634388379218,0.000637699419025,0.000640964311986,0.000644183920053,0.000647362897543,0.000650496109626,0.000653580797848,0.000656619992166,0.000659610017752,0.000662554278549,0.000665454215014,0.000668304485062,0.000671102870251,0.000673848470353,0.000676538917817,0.000679176128122,0.000681764300983,0.000684301074182,0.000686788828694,0.000689228108659,0.000691616716082,0.000693952510831,0.000696238008575,0.000698475385203,0.000700662714689,0.000702799520367,0.000704885636971,0.000706919119673,0.00070890026679,0.000710825041702,0.000712691491217,0.000714500690625,0.000716255141952,0.000717954066192,0.00071960029069,0.000721196052951,0.000722740712837,0.000724234734522,0.000725679751762,0.000727075007733,0.000728421702669,0.000729724813381,0.000730983816276,0.000732197885276,0.000733366725781,0.000734487017444,0.000735560338181,0.000736586394489,0.000737563442124,0.000738496752391,0.000739388972418,0.000740238871857,0.000741038968793,0.000741790995292,0.00074249349498,0.000743144804213,0.000743745682084,0.000744291852729,0.00074478579206,0.000745224732894,0.00074560474657,0.000745923978243,0.000746185751645,0.00074639234561,0.000746541796879,0.000746636921026,0.000746677769933,0.000746666713705,0.000746605554042,0.000746492858549,0.000746331386626,0.000746120047514,0.000745864765194,0.000745563373051,0.0007452163392,0.000744824443528,0.000744386061654,0.000743903832665,0.000743371875466,0.000742790465677,0.000742158742484,0.000741476789077,0.00074074089889,0.000739948054004,0.000739102374424,0.000738206039343,0.000737258595306,0.000736259931015,0.000735212816777,0.000734120796229,0.000732984540513,0.000731807067098,0.000730589722126,0.000729335316262,0.000728041026082,0.000726701333453,0.000725315656146,0.000723884652808,0.000722409029261,0.000720889836276,0.000719327547821,0.000717721763526,0.000716071807174,0.000714376590554,0.000712635375865,0.000710852759109,0.000709034431338,0.000707179520787,0.000705289404122,0.000703360617657,0.000701389555354,0.000699376053722,0.00069731600207,0.000695210008646,0.000693063636679,0.000690876130308,0.00068864273156,0.000686361165336,0.000684032520666,0.000681656924555,0.000679239750098,0.000676780331268,0.000674281109673,0.000671746028246,0.000669173039867,0.000666560115286,0.000663911938456,0.000661232513744,0.000658520334614,0.000655774475196,0.000652994463873,0.000650179879784,0.000647331312722,0.000644449863213,0.000641535617632,0.00063858859171,0.00063560414151,0.000632579491993,0.000629511647795,0.000626403081135,0.000623253688062,0.000620064499286,0.000616835354327,0.000613563372635,0.000610244897883,0.000606879923113,0.000603474137888,0.000600028789964,0.000596545653008,0.000593025103771,0.000589467067324,0.000585872512242,0.000582242392173,0.000578577827813,0.000574883811907,0.000571161725244,0.000567410830898,0.000563628024275,0.00055981720821,0.000555977878632,0.00055211084043,0.000548217102432,0.000544300223478,0.000540357256547,0.000536387009357,0.000532389964856,0.000528364251365,0.000524314076471,0.00052023962142,0.000516142208695,0.000512021389371,0.00050787693352,0.000503706471187,0.000499511011419,0.000495293054231,0.000491055539742,0.000486797690529,0.00048252212968,0.000478223901852,0.000473899966943,0.000469551169727,0.000465178414655,0.000460783809224,0.000456368528975,0.000451929750284,0.000447464331837,0.000442970661335,0.000438450269213,0.000433904821436,0.00042934025236,0.000424761707141,0.000420164557872,0.000415547750187,0.000410910188051,0.000406251865553,0.000401572813136,0.000396876622659,0.000392160740758,0.000387423707199,0.000382665154235,0.000377881846081,0.00037307634739,0.000368248966394,0.000363400780414,0.000358534343644,0.000353651407389,0.000348750816702,0.000343834625177,0.000338907763653,0.000333970925025,0.000329021755567,0.000324059633372,0.000319082296467,0.000314092352938,0.000309092429855,0.000304081092686,0.00029906335634,0.000294038894425,0.000289004738875,0.000283958551734,0.000278901738436,0.000273838444727,0.000268770475866,0.000263699312945,0.000258620753241,0.000253538743962,0.000248451204984,0.000243355680402,0.000238258072613,0.000233161385809,0.000228063691114,0.000222964220916,0.000217865901088,0.000212770027364,0.000207678896998,0.000202596337621,0.000197519639212,0.000192450764589,0.000187385823846,0.000182323920539,0.000177266915553,0.000172217397936,0.000167176320457,0.000162141726249,0.00015711103693,0.000152082041065,0.000147055252595,0.00014203323939,0.000137020847287,0.000132021476037,0.00012703533774,0.000122063635492,0.000117106925258,0.000112162716165,0.000107233727672,0.000102321862056,9.74265997967e-05,9.25486622288e-05,8.76841431316e-05,8.28311891292e-05,7.7989569558e-05,7.31588201672e-05,6.83383191506e-05,6.35326236517e-05,5.87428170651e-05,5.39637724142e-05,4.91972357433e-05,4.44458279424e-05,3.97106067463e-05,3.49920516006e-05,3.02911319256e-05,2.56058823072e-05,2.0935749432e-05,1.62779704133e-05,1.16313166686e-05,7.00000574977e-06,2.39107840578e-06,-2.1998183995e-06,-6.77497438241e-06,-1.13349566916e-05,-1.58762437847e-05,-2.04008941114e-05,-2.49053112643e-05,-2.93891620289e-05,-3.3851182772e-05,-3.82916044394e-05,-4.27150886502e-05,-4.71228792301e-05,-5.15086249562e-05,-5.58727361269e-05,-6.02163817657e-05,-6.45375638989e-05,-6.88357847249e-05,-7.31096029023e-05,-7.73612991422e-05,-8.15888025353e-05,-8.57948702113e-05,-8.99740490143e-05,-9.41313866533e-05,-9.82674950279e-05,-0.000102381908281,-0.000106472332958,-0.000110540811666,-0.000114587352212,-0.00011861076165,-0.000122611244971,-0.000126589256346,-0.000130545935002,-0.000134480570472,-0.000138391557488,-0.000142278974204,-0.000146142690209,-0.000149982390009,-0.000153797476889,-0.000157584860632,-0.000161345667286,-0.000165075875556,-0.00016877604525,-0.000172443975671,-0.000176079737102,-0.000179682609711,-0.000183252125001,-0.000186788422536,-0.000190293126552,-0.000193770117932,-0.00019722101737,-0.000200647068312,-0.000204049859573,-0.000207425926714,-0.000210775145657,-0.000214099763272,-0.000217398846499,-0.000220673181077,-0.000223922021976,-0.000227142782017,-0.000230334314726,-0.000233494269252,-0.000236621587889,-0.000239718744205,-0.000242791364085,-0.000245836916871,-0.000248855001512,-0.000251845302551,-0.00025480790416,-0.000257742146254,-0.000260649232255,-0.000263529495619,-0.000266382833702,-0.000269208875946,-0.000272000534139,-0.000274756496567,-0.000277479732443,-0.000280173938195,-0.000282842442312,-0.000285483576362,-0.000288095032491,-0.000290678032496,-0.000293231152037,-0.000295756352121,-0.000298258006205,-0.000300741123248,-0.000303205222377,-0.000305645697046,-0.000308054194731,-0.000310427834094,-0.000312771152542,-0.000315085874532,-0.000317374588121,-0.000319640038348,-0.000321880045794,-0.000324089628602,-0.000326267734842,-0.000328412292546,-0.000330526161048,-0.000332617521858,-0.000334686115254,-0.000336728261126,-0.000338744951908,-0.000340732747442,-0.000342690619751,-0.000344619078196,-0.000346517833017,-0.000348388874436,-0.000350237277161,-0.000352060823125,-0.00035385459036,-0.000355622126167,-0.000357358122062,-0.000359063338238,-0.000360737787832,-0.000362378977379,-0.000363991295808,-0.000365576853722,-0.000367132245055,-0.000368657265709,-0.00037015749862,-0.000371631110591,-0.000373076617747,-0.000374497125438,-0.000375890880615,-0.000377260368776,-0.000378605866844,-0.00037992834944,-0.000381227280549,-0.000382501311074,-0.000383746412156,-0.000384960884688,-0.000386147060058,-0.000387302328717,-0.000388431101986,-0.0003895364878,-0.000390616091005,-0.000391667976343,-0.000392690076063,-0.000393684742695,-0.000394651866045,-0.000395590762616,-0.000396504420495,-0.000397397060352,-0.000398266123181,-0.000399111717417,-0.000399928642441,-0.000400716406123,-0.000401475440034,-0.000402205683624,-0.000402906721594,-0.000403582514184,-0.000404235058648,-0.00040486000971,-0.000405455038621,-0.00040602027676,-0.000406557902937,-0.000407070773121,-0.000407562274621,-0.000408032548338,-0.000408481293349,-0.000408910003155,-0.000409316172492,-0.000409697686979,-0.000410059423701,-0.000410377403388,-0.000410633429653,-0.000410827806421,-0.000410958403242,-0.000411021873437)
xcorr <- c(-600.0,-598.999165972,-597.998331943,-596.997497915,-595.996663887,-594.995829858,-593.99499583,-592.994161802,-591.993327773,-590.992493745,-589.991659716,-588.990825688,-587.98999166,-586.989157631,-585.988323603,-584.987489575,-583.986655546,-582.985821518,-581.98498749,-580.984153461,-579.983319433,-578.982485405,-577.981651376,-576.980817348,-575.979983319,-574.979149291,-573.978315263,-572.977481234,-571.976647206,-570.975813178,-569.974979149,-568.974145121,-567.973311093,-566.972477064,-565.971643036,-564.970809008,-563.969974979,-562.969140951,-561.968306922,-560.967472894,-559.966638866,-558.965804837,-557.964970809,-556.964136781,-555.963302752,-554.962468724,-553.961634696,-552.960800667,-551.959966639,-550.959132611,-549.958298582,-548.957464554,-547.956630525,-546.955796497,-545.954962469,-544.95412844,-543.953294412,-542.952460384,-541.951626355,-540.950792327,-539.949958299,-538.94912427,-537.948290242,-536.947456214,-535.946622185,-534.945788157,-533.944954128,-532.9441201,-531.943286072,-530.942452043,-529.941618015,-528.940783987,-527.939949958,-526.93911593,-525.938281902,-524.937447873,-523.936613845,-522.935779817,-521.934945788,-520.93411176,-519.933277731,-518.932443703,-517.931609675,-516.930775646,-515.929941618,-514.92910759,-513.928273561,-512.927439533,-511.926605505,-510.925771476,-509.924937448,-508.92410342,-507.923269391,-506.922435363,-505.921601334,-504.920767306,-503.919933278,-502.919099249,-501.918265221,-500.917431193,-499.916597164,-498.915763136,-497.914929108,-496.914095079,-495.913261051,-494.912427023,-493.911592994,-492.910758966,-491.909924937,-490.909090909,-489.908256881,-488.907422852,-487.906588824,-486.905754796,-485.904920767,-484.904086739,-483.903252711,-482.902418682,-481.901584654,-480.900750626,-479.899916597,-478.899082569,-477.89824854,-476.897414512,-475.896580484,-474.895746455,-473.894912427,-472.894078399,-471.89324437,-470.892410342,-469.891576314,-468.890742285,-467.889908257,-466.889074229,-465.8882402,-464.887406172,-463.886572143,-462.885738115,-461.884904087,-460.884070058,-459.88323603,-458.882402002,-457.881567973,-456.880733945,-455.879899917,-454.879065888,-453.87823186,-452.877397832,-451.876563803,-450.875729775,-449.874895746,-448.874061718,-447.87322769,-446.872393661,-445.871559633,-444.870725605,-443.869891576,-442.869057548,-441.86822352,-440.867389491,-439.866555463,-438.865721435,-437.864887406,-436.864053378,-435.863219349,-434.862385321,-433.861551293,-432.860717264,-431.859883236,-430.859049208,-429.858215179,-428.857381151,-427.856547123,-426.855713094,-425.854879066,-424.854045038,-423.853211009,-422.852376981,-421.851542952,-420.850708924,-419.849874896,-418.849040867,-417.848206839,-416.847372811,-415.846538782,-414.845704754,-413.844870726,-412.844036697,-411.843202669,-410.842368641,-409.841534612,-408.840700584,-407.839866555,-406.839032527,-405.838198499,-404.83736447,-403.836530442,-402.835696414,-401.834862385,-400.834028357,-399.833194329,-398.8323603,-397.831526272,-396.830692244,-395.829858215,-394.829024187,-393.828190158,-392.82735613,-391.826522102,-390.825688073,-389.824854045,-388.824020017,-387.823185988,-386.82235196,-385.821517932,-384.820683903,-383.819849875,-382.819015847,-381.818181818,-380.81734779,-379.816513761,-378.815679733,-377.814845705,-376.814011676,-375.813177648,-374.81234362,-373.811509591,-372.810675563,-371.809841535,-370.809007506,-369.808173478,-368.80733945,-367.806505421,-366.805671393,-365.804837364,-364.804003336,-363.803169308,-362.802335279,-361.801501251,-360.800667223,-359.799833194,-358.798999166,-357.798165138,-356.797331109,-355.796497081,-354.795663053,-353.794829024,-352.793994996,-351.793160967,-350.792326939,-349.791492911,-348.790658882,-347.789824854,-346.788990826,-345.788156797,-344.787322769,-343.786488741,-342.785654712,-341.784820684,-340.783986656,-339.783152627,-338.782318599,-337.78148457,-336.780650542,-335.779816514,-334.778982485,-333.778148457,-332.777314429,-331.7764804,-330.775646372,-329.774812344,-328.773978315,-327.773144287,-326.772310259,-325.77147623,-324.770642202,-323.769808173,-322.768974145,-321.768140117,-320.767306088,-319.76647206,-318.765638032,-317.764804003,-316.763969975,-315.763135947,-314.762301918,-313.76146789,-312.760633862,-311.759799833,-310.758965805,-309.758131776,-308.757297748,-307.75646372,-306.755629691,-305.754795663,-304.753961635,-303.753127606,-302.752293578,-301.75145955,-300.750625521,-299.749791493,-298.748957465,-297.748123436,-296.747289408,-295.746455379,-294.745621351,-293.744787323,-292.743953294,-291.743119266,-290.742285238,-289.741451209,-288.740617181,-287.739783153,-286.738949124,-285.738115096,-284.737281068,-283.736447039,-282.735613011,-281.734778982,-280.733944954,-279.733110926,-278.732276897,-277.731442869,-276.730608841,-275.729774812,-274.728940784,-273.728106756,-272.727272727,-271.726438699,-270.725604671,-269.724770642,-268.723936614,-267.723102585,-266.722268557,-265.721434529,-264.7206005,-263.719766472,-262.718932444,-261.718098415,-260.717264387,-259.716430359,-258.71559633,-257.714762302,-256.713928274,-255.713094245,-254.712260217,-253.711426188,-252.71059216,-251.709758132,-250.708924103,-249.708090075,-248.707256047,-247.706422018,-246.70558799,-245.704753962,-244.703919933,-243.703085905,-242.702251877,-241.701417848,-240.70058382,-239.699749791,-238.698915763,-237.698081735,-236.697247706,-235.696413678,-234.69557965,-233.694745621,-232.693911593,-231.693077565,-230.692243536,-229.691409508,-228.69057548,-227.689741451,-226.688907423,-225.688073394,-224.687239366,-223.686405338,-222.685571309,-221.684737281,-220.683903253,-219.683069224,-218.682235196,-217.681401168,-216.680567139,-215.679733111,-214.678899083,-213.678065054,-212.677231026,-211.676396997,-210.675562969,-209.674728941,-208.673894912,-207.673060884,-206.672226856,-205.671392827,-204.670558799,-203.669724771,-202.668890742,-201.668056714,-200.667222686,-199.666388657,-198.665554629,-197.664720601,-196.663886572,-195.663052544,-194.662218515,-193.661384487,-192.660550459,-191.65971643,-190.658882402,-189.658048374,-188.657214345,-187.656380317,-186.655546289,-185.65471226,-184.653878232,-183.653044204,-182.652210175,-181.651376147,-180.650542118,-179.64970809,-178.648874062,-177.648040033,-176.647206005,-175.646371977,-174.645537948,-173.64470392,-172.643869892,-171.643035863,-170.642201835,-169.641367807,-168.640533778,-167.63969975,-166.638865721,-165.638031693,-164.637197665,-163.636363636,-162.635529608,-161.63469558,-160.633861551,-159.633027523,-158.632193495,-157.631359466,-156.630525438,-155.62969141,-154.628857381,-153.628023353,-152.627189324,-151.626355296,-150.625521268,-149.624687239,-148.623853211,-147.623019183,-146.622185154,-145.621351126,-144.620517098,-143.619683069,-142.618849041,-141.618015013,-140.617180984,-139.616346956,-138.615512927,-137.614678899,-136.613844871,-135.613010842,-134.612176814,-133.611342786,-132.610508757,-131.609674729,-130.608840701,-129.608006672,-128.607172644,-127.606338616,-126.605504587,-125.604670559,-124.60383653,-123.603002502,-122.602168474,-121.601334445,-120.600500417,-119.599666389,-118.59883236,-117.597998332,-116.597164304,-115.596330275,-114.595496247,-113.594662219,-112.59382819,-111.592994162,-110.592160133,-109.591326105,-108.590492077,-107.589658048,-106.58882402,-105.587989992,-104.587155963,-103.586321935,-102.585487907,-101.584653878,-100.58381985,-99.5829858215,-98.5821517932,-97.5813177648,-96.5804837364,-95.5796497081,-94.5788156797,-93.5779816514,-92.577147623,-91.5763135947,-90.5754795663,-89.5746455379,-88.5738115096,-87.5729774812,-86.5721434529,-85.5713094245,-84.5704753962,-83.5696413678,-82.5688073394,-81.5679733111,-80.5671392827,-79.5663052544,-78.565471226,-77.5646371977,-76.5638031693,-75.562969141,-74.5621351126,-73.5613010842,-72.5604670559,-71.5596330275,-70.5587989992,-69.5579649708,-68.5571309425,-67.5562969141,-66.5554628857,-65.5546288574,-64.553794829,-63.5529608007,-62.5521267723,-61.551292744,-60.5504587156,-59.5496246872,-58.5487906589,-57.5479566305,-56.5471226022,-55.5462885738,-54.5454545455,-53.5446205171,-52.5437864887,-51.5429524604,-50.542118432,-49.5412844037,-48.5404503753,-47.539616347,-46.5387823186,-45.5379482902,-44.5371142619,-43.5362802335,-42.5354462052,-41.5346121768,-40.5337781485,-39.5329441201,-38.5321100917,-37.5312760634,-36.530442035,-35.5296080067,-34.5287739783,-33.52793995,-32.5271059216,-31.5262718932,-30.5254378649,-29.5246038365,-28.5237698082,-27.5229357798,-26.5221017515,-25.5212677231,-24.5204336947,-23.5195996664,-22.518765638,-21.5179316097,-20.5170975813,-19.516263553,-18.5154295246,-17.5145954962,-16.5137614679,-15.5129274395,-14.5120934112,-13.5112593828,-12.5104253545,-11.5095913261,-10.5087572977,-9.50792326939,-8.50708924103,-7.50625521268,-6.50542118432,-5.50458715596,-4.50375312761,-3.50291909925,-2.50208507089,-1.50125104254,-0.500417014179,0.500417014178,1.50125104254,2.50208507089,3.50291909925,4.50375312761,5.50458715596,6.50542118432,7.50625521268,8.50708924103,9.50792326939,10.5087572977,11.5095913261,12.5104253545,13.5112593828,14.5120934112,15.5129274395,16.5137614679,17.5145954962,18.5154295246,19.516263553,20.5170975813,21.5179316097,22.518765638,23.5195996664,24.5204336947,25.5212677231,26.5221017515,27.5229357798,28.5237698082,29.5246038365,30.5254378649,31.5262718932,32.5271059216,33.52793995,34.5287739783,35.5296080067,36.530442035,37.5312760634,38.5321100917,39.5329441201,40.5337781485,41.5346121768,42.5354462052,43.5362802335,44.5371142619,45.5379482902,46.5387823186,47.539616347,48.5404503753,49.5412844037,50.542118432,51.5429524604,52.5437864887,53.5446205171,54.5454545455,55.5462885738,56.5471226022,57.5479566305,58.5487906589,59.5496246872,60.5504587156,61.551292744,62.5521267723,63.5529608007,64.553794829,65.5546288574,66.5554628857,67.5562969141,68.5571309425,69.5579649708,70.5587989992,71.5596330275,72.5604670559,73.5613010842,74.5621351126,75.562969141,76.5638031693,77.5646371977,78.565471226,79.5663052544,80.5671392827,81.5679733111,82.5688073394,83.5696413678,84.5704753962,85.5713094245,86.5721434529,87.5729774812,88.5738115096,89.5746455379,90.5754795663,91.5763135947,92.577147623,93.5779816514,94.5788156797,95.5796497081,96.5804837364,97.5813177648,98.5821517932,99.5829858215,100.58381985,101.584653878,102.585487907,103.586321935,104.587155963,105.587989992,106.58882402,107.589658048,108.590492077,109.591326105,110.592160133,111.592994162,112.59382819,113.594662219,114.595496247,115.596330275,116.597164304,117.597998332,118.59883236,119.599666389,120.600500417,121.601334445,122.602168474,123.603002502,124.60383653,125.604670559,126.605504587,127.606338616,128.607172644,129.608006672,130.608840701,131.609674729,132.610508757,133.611342786,134.612176814,135.613010842,136.613844871,137.614678899,138.615512927,139.616346956,140.617180984,141.618015013,142.618849041,143.619683069,144.620517098,145.621351126,146.622185154,147.623019183,148.623853211,149.624687239,150.625521268,151.626355296,152.627189324,153.628023353,154.628857381,155.62969141,156.630525438,157.631359466,158.632193495,159.633027523,160.633861551,161.63469558,162.635529608,163.636363636,164.637197665,165.638031693,166.638865721,167.63969975,168.640533778,169.641367807,170.642201835,171.643035863,172.643869892,173.64470392,174.645537948,175.646371977,176.647206005,177.648040033,178.648874062,179.64970809,180.650542118,181.651376147,182.652210175,183.653044204,184.653878232,185.65471226,186.655546289,187.656380317,188.657214345,189.658048374,190.658882402,191.65971643,192.660550459,193.661384487,194.662218515,195.663052544,196.663886572,197.664720601,198.665554629,199.666388657,200.667222686,201.668056714,202.668890742,203.669724771,204.670558799,205.671392827,206.672226856,207.673060884,208.673894912,209.674728941,210.675562969,211.676396997,212.677231026,213.678065054,214.678899083,215.679733111,216.680567139,217.681401168,218.682235196,219.683069224,220.683903253,221.684737281,222.685571309,223.686405338,224.687239366,225.688073394,226.688907423,227.689741451,228.69057548,229.691409508,230.692243536,231.693077565,232.693911593,233.694745621,234.69557965,235.696413678,236.697247706,237.698081735,238.698915763,239.699749791,240.70058382,241.701417848,242.702251877,243.703085905,244.703919933,245.704753962,246.70558799,247.706422018,248.707256047,249.708090075,250.708924103,251.709758132,252.71059216,253.711426188,254.712260217,255.713094245,256.713928274,257.714762302,258.71559633,259.716430359,260.717264387,261.718098415,262.718932444,263.719766472,264.7206005,265.721434529,266.722268557,267.723102585,268.723936614,269.724770642,270.725604671,271.726438699,272.727272727,273.728106756,274.728940784,275.729774812,276.730608841,277.731442869,278.732276897,279.733110926,280.733944954,281.734778982,282.735613011,283.736447039,284.737281068,285.738115096,286.738949124,287.739783153,288.740617181,289.741451209,290.742285238,291.743119266,292.743953294,293.744787323,294.745621351,295.746455379,296.747289408,297.748123436,298.748957465,299.749791493,300.750625521,301.75145955,302.752293578,303.753127606,304.753961635,305.754795663,306.755629691,307.75646372,308.757297748,309.758131776,310.758965805,311.759799833,312.760633862,313.76146789,314.762301918,315.763135947,316.763969975,317.764804003,318.765638032,319.76647206,320.767306088,321.768140117,322.768974145,323.769808173,324.770642202,325.77147623,326.772310259,327.773144287,328.773978315,329.774812344,330.775646372,331.7764804,332.777314429,333.778148457,334.778982485,335.779816514,336.780650542,337.78148457,338.782318599,339.783152627,340.783986656,341.784820684,342.785654712,343.786488741,344.787322769,345.788156797,346.788990826,347.789824854,348.790658882,349.791492911,350.792326939,351.793160967,352.793994996,353.794829024,354.795663053,355.796497081,356.797331109,357.798165138,358.798999166,359.799833194,360.800667223,361.801501251,362.802335279,363.803169308,364.804003336,365.804837364,366.805671393,367.806505421,368.80733945,369.808173478,370.809007506,371.809841535,372.810675563,373.811509591,374.81234362,375.813177648,376.814011676,377.814845705,378.815679733,379.816513761,380.81734779,381.818181818,382.819015847,383.819849875,384.820683903,385.821517932,386.82235196,387.823185988,388.824020017,389.824854045,390.825688073,391.826522102,392.82735613,393.828190158,394.829024187,395.829858215,396.830692244,397.831526272,398.8323603,399.833194329,400.834028357,401.834862385,402.835696414,403.836530442,404.83736447,405.838198499,406.839032527,407.839866555,408.840700584,409.841534612,410.842368641,411.843202669,412.844036697,413.844870726,414.845704754,415.846538782,416.847372811,417.848206839,418.849040867,419.849874896,420.850708924,421.851542952,422.852376981,423.853211009,424.854045038,425.854879066,426.855713094,427.856547123,428.857381151,429.858215179,430.859049208,431.859883236,432.860717264,433.861551293,434.862385321,435.863219349,436.864053378,437.864887406,438.865721435,439.866555463,440.867389491,441.86822352,442.869057548,443.869891576,444.870725605,445.871559633,446.872393661,447.87322769,448.874061718,449.874895746,450.875729775,451.876563803,452.877397832,453.87823186,454.879065888,455.879899917,456.880733945,457.881567973,458.882402002,459.88323603,460.884070058,461.884904087,462.885738115,463.886572143,464.887406172,465.8882402,466.889074229,467.889908257,468.890742285,469.891576314,470.892410342,471.89324437,472.894078399,473.894912427,474.895746455,475.896580484,476.897414512,477.89824854,478.899082569,479.899916597,480.900750626,481.901584654,482.902418682,483.903252711,484.904086739,485.904920767,486.905754796,487.906588824,488.907422852,489.908256881,490.909090909,491.909924937,492.910758966,493.911592994,494.912427023,495.913261051,496.914095079,497.914929108,498.915763136,499.916597164,500.917431193,501.918265221,502.919099249,503.919933278,504.920767306,505.921601334,506.922435363,507.923269391,508.92410342,509.924937448,510.925771476,511.926605505,512.927439533,513.928273561,514.92910759,515.929941618,516.930775646,517.931609675,518.932443703,519.933277731,520.93411176,521.934945788,522.935779817,523.936613845,524.937447873,525.938281902,526.93911593,527.939949958,528.940783987,529.941618015,530.942452043,531.943286072,532.9441201,533.944954128,534.945788157,535.946622185,536.947456214,537.948290242,538.94912427,539.949958299,540.950792327,541.951626355,542.952460384,543.953294412,544.95412844,545.954962469,546.955796497,547.956630525,548.957464554,549.958298582,550.959132611,551.959966639,552.960800667,553.961634696,554.962468724,555.963302752,556.964136781,557.964970809,558.965804837,559.966638866,560.967472894,561.968306922,562.969140951,563.969974979,564.970809008,565.971643036,566.972477064,567.973311093,568.974145121,569.974979149,570.975813178,571.976647206,572.977481234,573.978315263,574.979149291,575.979983319,576.980817348,577.981651376,578.982485405,579.983319433,580.984153461,581.98498749,582.985821518,583.986655546,584.987489575,585.988323603,586.989157631,587.98999166,588.990825688,589.991659716,590.992493745,591.993327773,592.994161802,593.99499583,594.995829858,595.996663887,596.997497915,597.998331943,598.999165972,600.0)
altd  <- c(221)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('C2C12-myocyte-H3K27ac-AM_39113_31814008-RT_Fix_5199-5933_IP_G2-17874.mm10.36mers.unique.MACS-2.1.0.p1e-1_model.pdf',height=6,width=6)
plot(x,p,type='l',col=c('red'),main='Peak Model',xlab='Distance to the middle',ylab='Percentage')
lines(x,m,col=c('blue'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 221',bty='n')
dev.off()