# R script for Peak Model
#  -- generated by MACS
p <- c(0.0340328516573,0.0397096675253,0.0454906451523,0.0515760956134,0.0576976020681,0.0575653967586,0.0575333469865,0.0579139380292,0.0580621682248,0.0584267343814,0.0591358355872,0.059660650604,0.0600292229821,0.0601574220702,0.0598088807995,0.0600612727541,0.0599971732101,0.0601373909627,0.0601053411907,0.0600091918746,0.0593681964343,0.0590877609292,0.0590116427207,0.0587712694306,0.0589956178347,0.0587712694306,0.0591117982582,0.0587832880951,0.0589074809616,0.0589235058476,0.0595284452944,0.0594523270859,0.0592680408968,0.0593000906688,0.0592720471183,0.0594042524279,0.0593321404408,0.059684687933,0.0599611172166,0.0598930114511,0.059740775034,0.0601654345132,0.0602495651647,0.0601173598552,0.0601333847412,0.0601213660767,0.0602455589432,0.0600732914186,0.0597047190405,0.059708725262,0.059860961679,0.0598849990081,0.0599370798876,0.0600332292036,0.0598689741221,0.0603216771517,0.0601133536337,0.0602736024937,0.0606461810934,0.0606581997579,0.0605380131128,0.0602375465002,0.0603256833733,0.0604378575753,0.0608144423965,0.0607823926245,0.0608464921685,0.0607343179664,0.0604378575753,0.0606702184224,0.060938635263,0.0609506539275,0.0610307783576,0.0608464921685,0.0607663677384,0.0605820815494,0.0607423304094,0.0612471143187,0.0617358733419,0.0618520537654,0.0618200039934,0.0620363399545,0.0618680786514,0.0623368065671,0.0623287941241,0.0623928936682,0.0623888874466,0.0624529869907,0.0623968998897,0.06210444572,0.062096433277,0.062112458163,0.0622687008016,0.0619802528535,0.0623448190101,0.0626653167303,0.0622486696941,0.0616397240258,0.0614995062733,0.0616637613548,0.0616877986838,0.062000283961,0.0620924270555,0.0624089185542,0.061952209303,0.0613833258497,0.0617879542214,0.0623968998897,0.0623328003456,0.0626532980658,0.0628856589129,0.0627173976098,0.0634064677081,0.0632982997275,0.0637429903142,0.0646964710317,0.0652373109344,0.0653454789149,0.0655898584265,0.0657180575146,0.0658662877102,0.0659464121402,0.065449640674,0.0656138957556,0.0656739890781,0.0653534913579,0.0650930869603,0.0646123403801,0.0642958488815,0.0641195751354,0.0638311271873,0.0640634880344,0.064267805331,0.0643198862105,0.064428054191,0.0645041723996,0.0645041723996,0.0647285208037,0.0654616593385,0.0654135846805,0.0656779952996,0.0655978708695,0.0657941757231,0.065593864648,0.065481690446,0.065577839762,0.0660265365702,0.0665313204795,0.0663350156259,0.066591413802,0.0669399550726,0.0671883408057,0.0671282474832,0.0676089940634,0.0678012926955,0.0680136224351,0.0679174731191,0.0678173175815,0.0680056099921,0.067877410904,0.0675929691774,0.067717162044,0.0679254855621,0.067789274031,0.0678333424675,0.0677692429235,0.067757224259,0.0677051433795,0.0681698650737,0.0687467609699,0.068898997387,0.0688389040645,0.0686946800904,0.0687547734129,0.069003159146,0.0690832835761,0.0690832835761,0.0696000861498,0.0691834391136,0.0693476941952,0.0693797439672,0.070104870059,0.0703372309061,0.0706977908413,0.0708500272583,0.0710703694409,0.0714269231546,0.0717394084317,0.0723042856635,0.0721400305819,0.0725326402891,0.0718996572918,0.0719918003863,0.0717714582037,0.0718515826338,0.0721440368034,0.0719477319498,0.0721520492464,0.0721280119174,0.0728811815597,0.0731536046218,0.0739308115932,0.0746759687925,0.0755413126369,0.0760100405526,0.0761662831911,0.0768433346249,0.076907434169,0.0774402616287,0.0770957265795,0.0773921869707,0.0773961931922,0.0769835523775,0.0772599816611,0.0777006660263,0.0777607593488,0.078233493486,0.078225481043,0.0779370330949,0.0781573752775,0.0778689273294,0.078113306841,0.0785139289912,0.0783977485676,0.078177406385,0.0783015992516,0.0781333379485,0.078209456157,0.0786861965157,0.0792590861905,0.0799521625103,0.0798840567448,0.0803367597745,0.0806131890581,0.0810458609803,0.0817669808506,0.0821676030008,0.0826122935874,0.0825001193854,0.082640337138,0.0826203060305,0.0830209281806,0.0831691583762,0.0836579173994,0.0836378862919,0.0835377307544,0.0838582284745,0.0839944400056,0.0848357465209,0.0847195660974,0.0849198771725,0.0851802815701,0.0849839767165,0.0850721135895,0.08510015714,0.0856049410493,0.0853485428731,0.0855127979547,0.0854166486387,0.0854446921892,0.0858853765544,0.0860215880854,0.0871833923209,0.0874277718325,0.0880607548298,0.0883612214425,0.0888259431367,0.0894469074694,0.0897113180885,0.0905365997179,0.0904204192943,0.0910173462981,0.090833060109,0.0908771285455,0.090881134767,0.0910013214121,0.0915782173084,0.0915581862008,0.0917745221619,0.0917665097189,0.0925477229118,0.0924956420323,0.0924034989377,0.0926038100128,0.0932167619026,0.0935092160722,0.0934811725217,0.0939579128804,0.0944226345746,0.0946990638582,0.0945027590046,0.0947831945097,0.0950756486794,0.0955003081586,0.09542418995,0.0960131045108,0.0965699692995,0.0971108092023,0.0975915557825,0.0983487316463,0.0989777084221,0.100035350899,0.10100085028,0.101874206568,0.10345265784,0.104213839925,0.104926947352,0.105495830805,0.106653628819,0.107386767354,0.108704814228,0.109025311948,0.109301741232,0.10988264335,0.110455533025,0.110828111624,0.111853704329,0.112434606446,0.111933828759,0.112226282928,0.112282370029,0.113051564558,0.113892871073,0.114662065601,0.114517841627,0.115335110814,0.115291042377,0.115395204136,0.116356697297,0.116949618079,0.117454401988,0.117822974366,0.1181274472,0.118351795605,0.118848567071,0.119052884367,0.119321301208,0.11975397313,0.120382949906,0.120771553392,0.121216243978,0.120991895574,0.122237830461,0.1223940731,0.122862801015,0.123151248964,0.124220910105,0.124825849551,0.125102278835,0.125290571246,0.125246502809,0.12575529294,0.125322621018,0.126111846653,0.12618395864,0.125751286718,0.125663149845,0.126268089292,0.126536506133,0.127241601117,0.127894615222,0.128219119163,0.128443467567,0.128848095939,0.129973844181,0.130867231576,0.130835181804,0.13087925024,0.131243816397,0.13154428301,0.131416083922,0.132101147798,0.132814255226,0.132621956594,0.132573881936,0.133058634737,0.1337597235,0.134580998908,0.134865440635,0.135506436075,0.136091344414,0.137068862461,0.136540041222,0.136916626044,0.137309235751,0.137309235751,0.137641752135,0.13773389523,0.13834684712,0.138551164416,0.139937317056,0.140125609466,0.141259370151,0.141748129175,0.141796203833,0.142152757546,0.142958008068,0.142845833866,0.142925958296,0.143194375137,0.143498847971,0.143222418687,0.143951551001,0.144320123379,0.145089317907,0.145718294683,0.145826462663,0.146695812729,0.14752510058,0.148037896932,0.148174108463,0.148674886151,0.149343925142,0.14960432954,0.149740541071,0.150718059117,0.151683558499,0.152344585047,0.153049680031,0.153430271074,0.153750768794,0.153858936774,0.153866949217,0.154335677133,0.154684218404,0.154588069088,0.154119341172,0.154179434495,0.153882974103,0.154335677133,0.15448791355,0.155273132965,0.15534123873,0.155645711564,0.155797947981,0.156190557688,0.156318756777,0.156963758438,0.157472548569,0.157636803651,0.157360374367,0.157777021403,0.158217705768,0.157937270263,0.158277799091,0.159732057496,0.160397090265,0.159736063718,0.160084604988,0.159615877072,0.160128673425,0.159944387236,0.159443609548,0.160124667203,0.160228828962,0.158698452349,0.159030968733,0.159319416681,0.158289817755,0.158826651437,0.158161618667,0.158566247039,0.158814632772,0.158233730654,0.158522178602,0.15808950668,0.156951739774,0.156430930979,0.156394874985,0.156158507916,0.156090402151,0.155345244952,0.154688224625,0.154984685016,0.15421949671,0.154307633583,0.154243534039,0.154119341172,0.154371733127,0.153866949217,0.153758781237,0.153181885341,0.153057692474,0.152813312962,0.152416697034,0.15238064104,0.152544896122,0.152268466838,0.151411135437,0.150934395078,0.150686009345,0.150473679605,0.149892777488,0.149143614067,0.148390444425,0.147649293447,0.147044354,0.146707831394,0.146531557648,0.145890562207,0.145265591653,0.14453645934,0.144300092271,0.144103787418,0.143454779534,0.142785740544,0.141659992302,0.141267382594,0.140277845884,0.140133621909,0.139773061974,0.139953341942,0.139588775785,0.13914809142,0.139019892332,0.138851631029,0.138883680801,0.137854081875,0.137745913894,0.137108924676,0.136459916792,0.135959139105,0.135278081449,0.135089789039,0.134677148224,0.134168358093,0.133663574184,0.133431213337,0.132702081024,0.131852762065,0.131472171023,0.130518690305,0.130090024605,0.128888158154,0.128711884408,0.127718341476,0.126776879423,0.126252064406,0.126304145285,0.126704767436,0.126616630563,0.126308151507,0.125955604015,0.125667156067,0.124889949095,0.124817837108,0.124829855773,0.125114297499,0.124785787336,0.12327544183,0.122970968996,0.122718577041,0.122213793132,0.121753077659,0.121905314077,0.122225811797,0.122185749582,0.121660934565,0.121116088441,0.121709009223,0.121741058995,0.121516710591,0.121312393294,0.12172904033,0.120983883131,0.120182638831,0.120254750818,0.120122545508,0.120443043228,0.120651366747,0.120539192544,0.120947827138,0.122253855347,0.12316727385,0.124557432711,0.126079796881,0.126199983526,0.126628649227,0.127337750433,0.127594148609,0.126780885644,0.126276101735,0.124757743786,0.123315504045,0.121705003001,0.1196738487,0.118415895149,0.117746856158,0.116040205798,0.114477779412,0.113952964396,0.113019514786,0.112266345143,0.111356932862,0.11116463423,0.110671868986,0.109854599799,0.108204036541,0.107539003771,0.107166425172,0.106289062663,0.105119245984,0.103897348426,0.102667438425,0.101437528424,0.100560165915,0.0997228656214,0.0989256275425,0.0972950953913,0.0963776706674,0.0956245010251,0.095352077963,0.0949354309268,0.0949434433698,0.0943825723596,0.0940460497534,0.0936935022613,0.0934371040852,0.0935212347367,0.0928962641824,0.0930485005995,0.0923233745077,0.0923033434002,0.0914019435623,0.0912136511517,0.0904204192943,0.0899396727141,0.0897513803036,0.0898635545056,0.0894348888049,0.0887378062636,0.0890102293257,0.0885615325175,0.088517464081,0.0874918713766,0.087399728282,0.0870431745684,0.0865624279882,0.0859695072059,0.0855608726127,0.0850641011465,0.0842989128397,0.0840184773346,0.0834095316663,0.083894284468,0.0832532890277,0.0836138489629,0.0837500604939,0.0834335689953,0.0832653076922,0.0829648410796,0.082808598441,0.0822557398738,0.0822557398738,0.0814064209154,0.0810859231953,0.0805050210775,0.0799441500673,0.0797798949857,0.0796557021192,0.0795194905881,0.0789425946919,0.0789185573628,0.0786781840727,0.0786541467437,0.0790587751154,0.0789706382424,0.0786581529652,0.0782775619226,0.0780171575249,0.0777086784693,0.0778168464499,0.0778128402284,0.0772599816611,0.0773841745277,0.0768593595109,0.0765028057973,0.0760741400966,0.0761502583051,0.0755172753079,0.0751647278157,0.0751607215942,0.0748322114311,0.0747560932225,0.0741391351113,0.0735422081075,0.0727529824717,0.0727489762502,0.072316304328,0.0726528269341,0.0725927336116,0.0719877941648,0.0716272342297,0.0718435701908,0.0717554333177,0.0719317070638,0.0722682296699,0.0722562110054,0.0717754644252,0.0715230724706,0.0718315515263,0.0715310849136,0.0715310849136,0.0708820770303,0.0705695917532,0.0704133491146,0.070176982046,0.0698164221109,0.070176982046,0.0694999306122,0.0691273520126,0.0691594017846,0.068842910286,0.0686345867679,0.0683100828262,0.0682219459532,0.0679054544545,0.0675529069624,0.0673165398938,0.0674888074184,0.0667716937696,0.0665313204795,0.0664151400559,0.0665553578085,0.0666755444535,0.066623463574,0.0668638368641,0.0669239301866,0.0668077497631,0.0667075942255,0.0664992707074,0.0664151400559,0.0662148289808,0.0660866298928,0.0659984930197,0.0657180575146,0.065513740218,0.0653574975794,0.0650369998593,0.0647485519112,0.0648527136702,0.0649528692078,0.0647765954617,0.0647525581327,0.064444079077,0.0642197306729,0.0636187974477,0.0635506916822,0.0634545423661,0.0636388285552,0.0637790463078,0.0637630214217,0.0638271209658,0.0637229592067,0.0633503806071,0.0629818082289,0.0630138580009,0.0627214038313,0.0625210927562,0.061952209303,0.0614594440582,0.0612511205402,0.061002734807,0.0605820815494,0.0603817704743,0.0604058078033,0.0601814593992,0.0601333847412,0.0600692851971,0.0605660566634,0.0605300006698,0.0600933225262,0.0597207439265,0.0599090363371,0.0601654345132,0.0600893163046,0.0600933225262,0.0598890052296,0.0597608061415,0.0593962399848,0.0592359911248,0.0593040968903,0.0595204328514,0.0591398418087,0.0588674187466,0.0588674187466,0.0589435369551,0.0591358355872,0.0590236613852,0.0590156489422,0.0589755867272,0.0583185664009,0.0579419815797,0.0578738758142,0.0580020749022,0.0580301184528,0.0576775709606,0.0572328803739,0.0571046812858,0.0569163888753,0.0570566066278,0.0578578509282,0.0581462988763,0.0580701806678,0.0582184108633,0.0581583175408,0.0584627903749,0.058655089007,0.0589595618412,0.0588393751961,0.058558939691,0.0579059255862,0.0578458322637,0.0579099318077,0.0578498384852,0.0577496829476,0.0576254900811,0.0576535336316,0.0572368865954,0.0571166999504,0.0573089985824,0.0574692474425,0.0571767932729,0.0572048368234,0.0570886563998,0.0565758600476,0.0561431881254,0.0562954245425,0.0564396485166,0.0566519782562,0.0566439658131,0.0568322582237,0.0566279409271,0.0569324137613,0.0567721649012,0.0572809550319,0.0574291852275,0.0573891230125,0.0574051478985,0.0573009861394,0.0572168554879,0.0570125381913,0.0575253345435,0.0572769488104,0.0570606128493,0.0569284075398,0.0570646190708,0.0565478164971,0.0562633747705,0.0563194618715,0.0560630636954,0.0561431881254,0.0559068210568,0.0555943357797,0.0555382486787,0.0557946468548,0.0555342424572,0.0555502673432,0.0555943357797,0.0558707650633,0.0558827837278,0.0557105162032,0.0556544291022,0.0555743046722,0.0558427215128,0.0552858567241,0.0554300806981,0.0556704539882,0.0557545846398,0.0553058878316,0.0553980309261,0.0557746157473,0.0557425659753,0.0557505784183,0.0556824726527,0.0560069765944,0.0560430325879,0.0559629081579,0.05623533122,0.0563354867575,0.0568282520022,0.0566720093637,0.0565478164971,0.0567761711227,0.0568362644452,0.0569444324258,0.0569404262043,0.0571046812858,0.0568362644452,0.0572208617094,0.0568402706667,0.0564436547381,0.0565678476046,0.0566599906992,0.0565878787121,0.0565718538261,0.0564716982886,0.0561912627835,0.056259368549,0.0557786219688,0.0559068210568,0.0565918849336,0.0565918849336,0.0565998973766,0.0569925070838,0.0569484386473,0.0573009861394,0.057545365651,0.0577376642831,0.0579940624592,0.0579820437947,0.057369091905,0.057393129234,0.0571126937289,0.0570005195268,0.0573250234684,0.0570606128493,0.0570566066278,0.0568202395592,0.0569844946408,0.0569804884193,0.0575854278661,0.0575253345435,0.0578258011562,0.0579099318077,0.0573410483545,0.057457228778,0.0577617016121,0.0576695585176,0.0576855834036,0.0576775709606,0.0573130048039,0.0576976020681,0.0576094651951,0.057353067019,0.0578778820357,0.0577737202766,0.0573210172469,0.0573730981265,0.0575573843155,0.0575573843155,0.0575493718725,0.0577136269541,0.0578177887132,0.0579139380292,0.0576775709606,0.0578858944787,0.0581903673128,0.0584627903749,0.0579339691367,0.0578698695927,0.0578618571497,0.0573971354555,0.0571407372794,0.057353067019,0.0571407372794,0.0572088430449,0.0574131603415,0.057401141677,0.0576174776381,0.057553378094,0.0577496829476,0.0578778820357,0.0580821993323,0.0577136269541,0.0579740313517,0.057521328322,0.0572889674749,0.0572368865954,0.0570886563998,0.0572088430449,0.0571247123934,0.0572088430449,0.0570205506343,0.0572248679309,0.0573410483545,0.0576895896251,0.0579099318077,0.0579499940227,0.0583906783879,0.0587512383231,0.0591959289098,0.0592840657828,0.0595364577374,0.0594363021999,0.0593000906688,0.0593481653268,0.0591438480302,0.0590797484862,0.0589675742842,0.0585549334695,0.0582785041859,0.0584307406029,0.0584788152609,0.0584587841534,0.0586430703425,0.0584587841534,0.0584788152609,0.058518877476,0.0586030081275,0.0588073254241,0.0587792818736,0.0583866721664,0.0586030081275,0.0589235058476,0.0589395307336,0.0587792818736,0.0588874498541,0.0589435369551,0.0588193440886,0.0589114871831,0.0588754311896,0.0587151823296,0.0583586286159,0.0579900562377,0.0577416705046,0.0581462988763,0.0582744979644,0.0582905228504,0.0583466099514,0.0585228836975,0.0584988463685,0.0591518604732,0.0595084141869,0.0600933225262,0.0601814593992,0.0602135091712,0.0600091918746,0.059684687933,0.0594643457504,0.0591117982582,0.0591718915807,0.0585389085835,0.0584026970524,0.0581222615473,0.0583866721664,0.058599001906,0.0585789707985,0.058695151222,0.0583946846094,0.0585308961405,0.0583385975084,0.0583666410589,0.058647076564,0.0587312072156,0.0584587841534,0.0581703362053,0.0581302739903,0.0578618571497,0.0583065477364,0.0583426037299,0.058679126336,0.0588473876391,0.0582424481923,0.0575934403091,0.0578738758142,0.0578738758142,0.0577657078336,0.0579980686807,0.0579780375732,0.0578137824917,0.0576695585176,0.0576455211886,0.0579780375732,0.0585709583555,0.0582304295278,0.0585389085835,0.0586510827855,0.0588674187466,0.058703163665,0.0587432258801,0.0585789707985,0.0589475431767,0.05858297702,0.0586030081275,0.0582464544138,0.0579419815797,0.0578818882572,0.0581102428828,0.0582023859773,0.058558939691,0.0587672632091,0.0590517049357,0.0593481653268,0.0591398418087,0.0592720471183,0.0595725137309,0.0598930114511,0.0596886941545,0.0601894718422,0.0601013349692,0.0603056522657,0.0596165821674,0.059668663047,0.0599531047736,0.0603857766958,0.059820899464,0.0593922337633,0.0592119537958,0.0588433814176,0.0587913005381,0.0585789707985,0.0587392196586,0.0588794374111,0.0588273565316,0.0589074809616,0.0590797484862,0.0595805261739,0.0599090363371,0.0595164266299,0.0592159600173,0.0589715805057,0.0590276676067,0.0586350578995,0.0582945290719,0.0577416705046,0.0577496829476,0.0578217949347,0.057481266107,0.057473253664,0.0575093096575,0.0578818882572,0.0577897451626,0.0579219504722,0.0579700251302,0.0581743424268,0.0581302739903,0.0577176331756,0.0577897451626,0.0579940624592,0.0581462988763,0.0578538447067,0.0580060811237,0.0580821993323,0.0579740313517,0.0581703362053,0.0580461433388,0.0578177887132,0.0580461433388,0.0577937513841,0.0577817327196,0.0579860500162,0.0580301184528,0.0585148712545,0.0591037858152,0.0588513938606,0.058671113893,0.0586831325575,0.058534902362,0.0588193440886,0.0588714249681,0.058623039235,0.0587512383231,0.0582785041859,0.0576815771821,0.0576895896251,0.0581182553258,0.0583546223944,0.058631051678,0.058655089007,0.0584988463685,0.0584427592674,0.0581302739903,0.0580541557818,0.0579780375732,0.0577336580616,0.0578818882572,0.057481266107,0.0571287186149,0.0570085319698,0.0568643079957,0.0570325692988,0.0572809550319,0.057425179006,0.057553378094,0.0580140935667,0.0575734092016,0.0580100873452,0.0579179442507,0.0577496829476,0.0580862055538,0.0581342802118,0.0577216393971,0.057545365651,0.0571968243804,0.0572689363674,0.0573490607975,0.0571567621654,0.0571567621654,0.0572048368234,0.0567761711227,0.056259368549,0.0561792441189,0.056187256562,0.0561271632394,0.0556504228807,0.0554461055841,0.0556103606657,0.055165670079,0.0549212905674,0.0548932470169,0.055189707408,0.0553699873756,0.0549293030104,0.0556424104377,0.0553219127176,0.0498854701397,0.0440764489622,0.0388162801304,0.0334439370966,0.0)
m <- c(0.0331734049803,0.0388326571175,0.0440186337394,0.0497019507334,0.0550443489239,0.0550724245901,0.0554574622975,0.0552368677776,0.0552448893965,0.0551807164453,0.055417354203,0.0551125326846,0.0556419595323,0.0555898190094,0.0557863486726,0.0557502513875,0.0555737757716,0.0557422297686,0.0559908999546,0.0561513323327,0.056127267476,0.0563959917093,0.0563759376621,0.0565564240874,0.056764986179,0.0570216779839,0.0570377212217,0.0567850402262,0.0567970726546,0.056845202368,0.0569575050327,0.0568612456058,0.0564802187078,0.0563318187581,0.0565002727551,0.0564721970889,0.056969537461,0.0577917533987,0.0576995047813,0.057811807446,0.057519018356,0.0580604776321,0.0581005857266,0.0581246505833,0.0580644884415,0.0577716993515,0.0576313210207,0.0572302400754,0.0572182076471,0.0572141968376,0.0572222184565,0.0567930618451,0.0572302400754,0.0569494834138,0.0569615158421,0.0571420022675,0.057394683263,0.0572823805983,0.0574668778331,0.0569855806988,0.0571580455053,0.0573264995023,0.0570617860784,0.057306445455,0.0573545751684,0.0575831913072,0.0570698076973,0.0573666075968,0.0574468237858,0.0575711588789,0.0573786400252,0.0572904022172,0.0576192885923,0.0580123479186,0.0577636777326,0.0577075264003,0.0581286613927,0.058068499251,0.0578438939216,0.0580364127753,0.0583853531977,0.0586139693365,0.0587182503822,0.0587102287633,0.059079223233,0.0591433961842,0.0588826935698,0.0590872448519,0.0591714718504,0.0595324447011,0.059664801413,0.0596848554603,0.0592597096583,0.059496347416,0.0595966176523,0.0592998177528,0.0593078393717,0.0592155907543,0.0591273529464,0.0588867043792,0.0588305530469,0.0589789529966,0.0594682717498,0.0589669205683,0.0584695801962,0.0585778720514,0.0584816126246,0.0582249208196,0.0585096882907,0.058317169437,0.0585618288136,0.0585377639569,0.0582409640574,0.0582449748669,0.0586620990499,0.0586260017648,0.0586901747161,0.0593439366568,0.0589548881399,0.0593238826095,0.0590070286628,0.0590872448519,0.0592797637056,0.0593800339419,0.0594482177026,0.059708920317,0.0597771040777,0.0594803041782,0.0599255040274,0.05954046632,0.0596768338413,0.0595685419861,0.0595725527956,0.0595524987483,0.0592196015638,0.0595204122727,0.0597690824588,0.0597851256966,0.0597129311264,0.0599054499801,0.0597931473155,0.0600578607393,0.0602624120214,0.0599495688841,0.060045828311,0.0599415472652,0.0603426282104,0.0603867471144,0.059877374314,0.0601661525945,0.0604549308751,0.0600658823582,0.0600538499299,0.0604388876373,0.060719644299,0.0602704336403,0.0599856661692,0.059708920317,0.0603787254955,0.060250379593,0.0601380769284,0.0602543904025,0.0603747146861,0.0605030605885,0.0603947687333,0.0605552011114,0.0601260445,0.0604509200657,0.0603265849726,0.0604990497791,0.0605110822074,0.0605712443492,0.0605391578736,0.0603265849726,0.0606153632532,0.0606875578233,0.0607156334895,0.0602182931174,0.0601581309756,0.0596728230319,0.0596688122224,0.0594442068931,0.0591514178031,0.0592717420867,0.0588546179036,0.058822531428,0.0590310935195,0.0592637204678,0.059203558326,0.0591072988991,0.0589669205683,0.0589629097588,0.0591995475165,0.0588305530469,0.0586941855255,0.0588145098091,0.0590511475668,0.0590270827101,0.0589588989494,0.0592717420867,0.0589508773305,0.0589829638061,0.0589829638061,0.0592917961339,0.0594762933687,0.0593359150379,0.0588145098091,0.0587062179539,0.0588786827603,0.0585417747663,0.0585337531474,0.0585578180041,0.0582088775818,0.0580965749171,0.0578880128256,0.0581808019156,0.0587864341429,0.0587222611917,0.0588546179036,0.0594241528459,0.0595805744145,0.0593880555608,0.0598091905533,0.0594482177026,0.0598733635045,0.0595244230822,0.0591313637558,0.0592917961339,0.0591474069936,0.0586460558121,0.05873429362,0.0588465962847,0.0585136991002,0.0591835042787,0.0590310935195,0.059239655611,0.0592155907543,0.059115320518,0.0592958069434,0.0596688122224,0.0596527689846,0.0597811148871,0.0598733635045,0.0596407365563,0.0594361852742,0.0591032880897,0.0588506070942,0.0587703909051,0.0586861639066,0.0581727802967,0.0582168992007,0.0580324019659,0.0581767911062,0.0581527262495,0.0580043262997,0.0581086073455,0.0582168992007,0.0582249208196,0.0578639479689,0.0581767911062,0.0580805316793,0.0580043262997,0.0577436236853,0.057811807446,0.0578398831122,0.058192834344,0.0584094180544,0.0584094180544,0.058609958527,0.0581086073455,0.058361288341,0.0583492559126,0.0582971153897,0.0581888235345,0.0581246505833,0.0575350615938,0.0573666075968,0.0570537644595,0.0570738185068,0.0575751696883,0.0579481749674,0.0581005857266,0.0583091478181,0.0581206397738,0.0581005857266,0.0585177099096,0.0584695801962,0.0587383044295,0.0583773315788,0.0579642182052,0.0574388021669,0.0573786400252,0.0567008132277,0.0566486727048,0.0568091050829,0.0567128456561,0.0565403808496,0.0566286186576,0.0571941427904,0.0574829210709,0.0574147373102,0.0573224886928,0.0573866616441,0.0578438939216,0.0581286613927,0.0577716993515,0.0579682290147,0.057811807446,0.0573986940724,0.0577356020664,0.0576232994018,0.0577636777326,0.057980261443,0.0576353318301,0.0573906724535,0.0574789102615,0.0575029751182,0.0578880128256,0.0578719695878,0.0577516453042,0.0579200993012,0.0578719695878,0.0580765208699,0.0580965749171,0.0581005857266,0.0582650289141,0.0582128883912,0.0577837317798,0.058068499251,0.0577917533987,0.0575791804978,0.0573385319306,0.0574027048819,0.0570256887934,0.0570617860784,0.0571500238864,0.057226229266,0.0573706184063,0.057394683263,0.0572222184565,0.0576393426396,0.0576112669734,0.0574067156913,0.0575751696883,0.0572141968376,0.0572904022172,0.0571620563147,0.0573345211212,0.0573184778834,0.0575551156411,0.0572422725038,0.0575711588789,0.0576674183057,0.0577476344948,0.0580604776321,0.057936142539,0.0578318614933,0.0573666075968,0.0571299698391,0.0573104562645,0.0573224886928,0.0569976131272,0.0572302400754,0.0577757101609,0.0577837317798,0.0575591264505,0.0575511048316,0.057936142539,0.0578880128256,0.0573666075968,0.0573224886928,0.0573224886928,0.0567770186073,0.056676748371,0.0562716566163,0.0566286186576,0.0569855806988,0.0569093753192,0.0566526835143,0.0568411915585,0.0567850402262,0.0570457428406,0.0579922938714,0.057731591257,0.058236953248,0.0579682290147,0.0579160884918,0.057936142539,0.0583011261992,0.0587744017146,0.0591835042787,0.059239655611,0.0584655693867,0.0583332126748,0.0587302828106,0.0591273529464,0.0589308232832,0.0590270827101,0.059159439422,0.0589228016643,0.0588586287131,0.0587222611917,0.0586701206688,0.059035104329,0.0586059477176,0.0580965749171,0.0582289316291,0.0584134288639,0.0582810721519,0.0584374937206,0.0579682290147,0.0586661098594,0.0587102287633,0.0584976558624,0.0586019369081,0.0590752124235,0.0592356448016,0.0594482177026,0.0598492986478,0.0598011689344,0.0606153632532,0.06041883359,0.0607076118706,0.0611969306238,0.0611447901009,0.061349341383,0.0616541629014,0.0618346493267,0.0615699359029,0.0616942709959,0.0611488009104,0.0607798064407,0.0607878280596,0.0604308660184,0.0604068011617,0.0604027903522,0.0608479902014,0.0607477199651,0.0609923793417,0.0613814278586,0.0616822385675,0.0619589844197,0.0624122058878,0.0625726382659,0.0628012544047,0.0627090057873,0.0618025628511,0.0617704763755,0.0618827790401,0.0618386601362,0.061934919563,0.0616782277581,0.0616702061392,0.0614135143342,0.0612290170994,0.0613373089546,0.0616020223785,0.0621073843695,0.0621555140829,0.0619990925143,0.0622758383665,0.0627451030724,0.0631341515893,0.0634710595833,0.0641087782862,0.0643414052344,0.0650232428413,0.064630183515,0.0648267131782,0.0651275238871,0.0648668212727,0.0652558697896,0.065091426602,0.0652438373612,0.0655125615945,0.06517966441,0.0652077400761,0.0653721832637,0.0655727237363,0.0655687129268,0.0664350477685,0.066102150584,0.0659818263004,0.0660620424895,0.0659858371099,0.0663869180551,0.0665072423387,0.0669524421879,0.0669123340934,0.0674898906545,0.0670206259486,0.0671329286132,0.0676503230326,0.0685768200161,0.0689177388195,0.0692987657175,0.0693870035255,0.0692345927663,0.06971990071,0.069639684521,0.0700126898,0.0709311651646,0.0714004298705,0.07140444068,0.0714244947272,0.071741348674,0.0721945701421,0.0722266566177,0.0721143539531,0.0723830781864,0.0726838888953,0.0727159753709,0.0724793376132,0.0726157051346,0.0727721267032,0.0729526131286,0.0731812292674,0.0730528833649,0.0732253481713,0.0734740183574,0.0735301696897,0.0735181372614,0.0735582453559,0.0737668074474,0.0744045261503,0.0749259313791,0.0749058773319,0.0761251634054,0.0762855957835,0.0760890661203,0.076494157875,0.0771920387197,0.0780182654669,0.0781105140843,0.0776332277595,0.0774366980963,0.0776974007107,0.0778177249943,0.0786960922643,0.0793859514901,0.0793819406807,0.0793819406807,0.079225519112,0.0795463838682,0.0805410646124,0.080741605085,0.0810303833656,0.0812670211233,0.0812148806004,0.0818165020183,0.082045118157,0.0821574208217,0.0826146530993,0.0827069017167,0.0820972586799,0.0824903180063,0.0828472800475,0.0827750854774,0.0828753557137,0.0826106422898,0.0830518313296,0.0832403393738,0.0834489014654,0.0841267282628,0.0845358308269,0.0846240686349,0.0846000037782,0.0853861224308,0.0855866629035,0.0854623278104,0.0856347926169,0.0862524572725,0.0867658408824,0.0872391163978,0.088109462049,0.0888273969409,0.0892124346484,0.0888675050355,0.08920040222,0.0902151370115,0.0908287908577,0.0906683584796,0.0908448340955,0.0906603368607,0.0909531259507,0.0914584879417,0.0920560985501,0.0928101307271,0.0934518602395,0.0935601520947,0.0936443790932,0.0945067031255,0.0952807893498,0.0952848001592,0.0952727677309,0.0953329298726,0.0957701081029,0.0961952539049,0.0969613185103,0.098040226253,0.0990308961877,0.0997849283647,0.0999453607428,0.101702095283,0.103101867782,0.10392007291,0.105047110366,0.106057834348,0.107120698853,0.107690233795,0.108520471352,0.108933584726,0.1098560709,0.109844038471,0.110056611372,0.110722405741,0.110866794882,0.11182938915,0.112671659135,0.113465799407,0.114356199105,0.115743939176,0.117023387391,0.119060878593,0.12127885622,0.123027569141,0.124764249634,0.126003589755,0.126733557075,0.127728237819,0.128738961801,0.128574518614,0.128799123943,0.128594572661,0.127992951243,0.12742742711,0.126597189554,0.125530314239,0.124756228015,0.123942033696,0.123143882615,0.123051633998,0.122746812479,0.12215722349,0.121848391162,0.121395169694,0.121467364264,0.121812293877,0.121900531685,0.121671915546,0.121515493978,0.121776196592,0.121339018362,0.121748120926,0.121266823791,0.12120666165,0.121583677738,0.121503461549,0.121892510066,0.122530228769,0.123272228518,0.123240142042,0.123360466326,0.123801655365,0.12472013073,0.12538191429,0.125434054812,0.125706789855,0.126083805944,0.126312422083,0.126139957276,0.127475556824,0.128418097045,0.128694842897,0.128590561851,0.129103945461,0.129388712932,0.129910118161,0.130407458533,0.131378074421,0.132180236311,0.131803220223,0.132096009313,0.132144139026,0.132894160394,0.133604073667,0.133828678996,0.134334040987,0.134951705643,0.135172300163,0.136463780806,0.137189737317,0.137871574924,0.138553412531,0.138284688298,0.138116234301,0.139592212179,0.140298114643,0.140362287594,0.140943854965,0.140566838876,0.14090374687,0.141850297901,0.142271432893,0.143843670199,0.145074988701,0.14493059956,0.145584361501,0.145889183019,0.146141864015,0.14669134491,0.147870522889,0.147593777037,0.148692738827,0.148772955016,0.14881306311,0.149330457529,0.149615225001,0.150453484176,0.150958846167,0.151199494734,0.150754294885,0.151544424347,0.151580521632,0.152699537469,0.153337256172,0.15416348292,0.153954920828,0.153738337118,0.153958931637,0.15423166668,0.154544509818,0.154989709667,0.154544509818,0.154400120677,0.154468304438,0.154275785584,0.154985698857,0.155683579702,0.155980379601,0.155783849938,0.156028509315,0.156413547022,0.156850725253,0.155972357983,0.156766498254,0.15665018478,0.156525849687,0.157047254916,0.157500476384,0.158146216706,0.158695697601,0.158567351698,0.158727784076,0.159658291869,0.158487135509,0.158631524649,0.159116832593,0.159176994735,0.158711740838,0.158964421834,0.158767892171,0.158290605846,0.158791957028,0.158924313739,0.159766583724,0.159939048531,0.159401600064,0.159060681261,0.158390876082,0.157319989959,0.15650579564,0.156016476887,0.155731709415,0.155314585232,0.154737028671,0.154404131487,0.1539428884,0.153553839883,0.154179526157,0.154973666429,0.155093990712,0.155471006801,0.154720985433,0.154195569395,0.15415947211,0.153533785836,0.153493677741,0.152755688802,0.152138024146,0.151869299913,0.15167277025,0.150433430129,0.150216846418,0.150200803181,0.14983581952,0.149791700616,0.149458803432,0.148901300918,0.148428025403,0.147585755418,0.146992155619,0.147012209666,0.146045604588,0.145668588499,0.145143172461,0.144096351194,0.143691259439,0.143390448731,0.143258092019,0.143093648831,0.143037497499,0.142187205895,0.142347638273,0.141529433145,0.140771390158,0.140470579449,0.139592212179,0.139459855467,0.138569455769,0.137823445211,0.13702128332,0.137558731787,0.136840796895,0.136824753657,0.136179013335,0.135882213436,0.136371532189,0.135677662154,0.136010559338,0.135404927111,0.13460276522,0.133904884376,0.133928949232,0.13329123053,0.132729717206,0.13270565235,0.131919533697,0.13167888513,0.131045177236,0.130555858483,0.130411469343,0.130190874823,0.129152075175,0.129031750891,0.12940876698,0.12875099423,0.128414086236,0.128008994481,0.126950140785,0.127102551545,0.126942119167,0.126573124697,0.12618407618,0.125538335858,0.124844465823,0.124908638774,0.124274930881,0.123685341891,0.12332837985,0.122454023389,0.122205353203,0.121623785833,0.121655872308,0.121002110368,0.120701299659,0.120280164666,0.119915181006,0.119758759437,0.119987375576,0.119554208155,0.11915312721,0.118367008557,0.118066197848,0.117957905993,0.117649073665,0.116874987441,0.116341549784,0.115671744605,0.11490568,0.114560750387,0.114015280302,0.114215820774,0.114047366777,0.113866880352,0.113313388647,0.113152956269,0.112775940181,0.112567378089,0.112230470095,0.111805324293,0.111219746113,0.109944308708,0.108913530678,0.10831190926,0.107838633745,0.107160806948,0.107381401467,0.106711596289,0.106005693825,0.105865315494,0.105444180502,0.10531182379,0.104846569894,0.10347888387,0.102652657123,0.101337111623,0.099716744604,0.0991873177563,0.0988504097623,0.0979840749206,0.097366410265,0.0968891239401,0.0961751998576,0.0955816000587,0.0951203569717,0.0950842596866,0.0950601948299,0.0944425301742,0.0939251357549,0.0936283358554,0.0932633521952,0.0923448768306,0.0919798931705,0.0920320336934,0.091771331079,0.0914785419889,0.0914063474188,0.091558758178,0.0911697096611,0.0907004449552,0.0902793099627,0.0900346505861,0.0893889102643,0.0891683157444,0.0886428997061,0.088695040229,0.0879971593843,0.087728435151,0.0877043702943,0.0877204135321,0.0878046405306,0.0879891377654,0.0881936890475,0.0878848567196,0.0876602513903,0.0877244243416,0.0876081108674,0.0870826948292,0.0866856246934,0.0859797222298,0.0855906737129,0.0851815711488,0.0850131171518,0.084740382109,0.0845959929687,0.0840585445021,0.0838580040295,0.0832764366589,0.0831160042808,0.0832002312793,0.0821173127272,0.0825384477197,0.0823138423903,0.0823138423903,0.0820611613949,0.0817884263521,0.0812991075989,0.08158387507,0.0813071292178,0.0808779726064,0.0816239831645,0.0808017672268,0.0805771618975,0.0802683295697,0.0801239404294,0.0796586865329,0.0797549459598,0.0796586865329,0.0794461136319,0.0792576055877,0.0788565246424,0.0786038436469,0.0786038436469,0.0783391302231,0.078347151842,0.0781827086544,0.0775770764271,0.0772161035764,0.0770596820078,0.0773243954316,0.0770636928172,0.0771920387197,0.0765462983979,0.0767628821083,0.0763497687347,0.076325703878,0.0763818552103,0.0760369255974,0.075740125698,0.0748497259995,0.0744446342449,0.0739031749688,0.0742842018668,0.0739954235862,0.0738470236365,0.0734740183574,0.073213315743,0.0730568941744,0.0724833484227,0.0725354889455,0.0723229160446,0.0722106133799,0.0713121920626,0.0712239542546,0.0711317056372,0.0710956083522,0.0710915975427,0.070730624692,0.0709752840686,0.0710835759238,0.071147748875,0.070979294878,0.0710194029726,0.0708068300716,0.0704498680303,0.0698362141841,0.0697600088045,0.0701851546065,0.0697038574722,0.0690781711976,0.0684925930176,0.0682840309261,0.0683562254962,0.0676703770799,0.0678508635052,0.0684284200664,0.0682760093072,0.0678267986485,0.0681075553102,0.0680834904535,0.0682800201166,0.0680072850739,0.0677265284122,0.0681316201669,0.0683241390206,0.0681436525952,0.0678187770296,0.0675019230829,0.0673455015142,0.067361544752,0.0672773177535,0.0674578041789,0.0675540636057,0.0668240962854,0.0665072423387,0.0660820965367,0.0657371669238,0.0659256749681,0.0659457290154,0.0655125615945,0.0655887669741,0.0657090912577,0.0654443778338,0.0656449183064,0.065428334596,0.0653922373109,0.0654884967378,0.0651034590304,0.0645259024692,0.0646101294677,0.0645700213732,0.0642090485225,0.0638601081001,0.0638159891962,0.0634590271549,0.0630058056868,0.0629737192112,0.0627090057873,0.0625124761242,0.0623881410311,0.0623400113177,0.0626809301212,0.0629857516395,0.0628894922127,0.0628493841181,0.0632905731579,0.0629817408301,0.0631100867326,0.063158216446,0.0630900326853,0.0630178381151,0.0625485734092,0.0625084653147,0.0624081950784,0.0623360005082,0.0622597951287,0.0624282491257,0.0628253192614,0.0627009841684,0.0630579462097,0.062608735551,0.0624202275067,0.0622036437963,0.0622597951287,0.0623119356515,0.0618506925645,0.0616461412824,0.0614375791909,0.0616220764257,0.0614456008098,0.0616341088541,0.0615859791407,0.0616541629014,0.0613693954302,0.0610886387686,0.0612570927656,0.0613332981452,0.061261103575,0.0613814278586,0.0609041415338,0.0610966603875,0.0608479902014,0.060250379593,0.0604669633035,0.0606434389194,0.0607757956313,0.0607116226801,0.0603346065915,0.0600337958826,0.0602824660687,0.0601260445,0.0604830065413,0.0611447901009,0.061056552293,0.0611327576725,0.0606474497288,0.060551190302,0.0606634929666,0.0604749849224,0.0604870173507,0.0601942282607,0.0600618715488,0.0594923366065,0.0596126608901,0.0596086500807,0.0596768338413,0.0595605203672,0.0594442068931,0.059496347416,0.0594281636553,0.059079223233,0.0590110394723,0.059071201614,0.0588345638564,0.0587142395728,0.0587984665713,0.0587543476673,0.0584776018151,0.0587142395728,0.0586901747161,0.0590872448519,0.059035104329,0.0590310935195,0.0589388449021,0.0584294721017,0.0584816126246,0.0584575477678,0.0589709313777,0.0586901747161,0.0585778720514,0.0583893640071,0.0586861639066,0.058529742338,0.0584655693867,0.0587102287633,0.0586179801459,0.0585818828609,0.0580283911564,0.0580805316793,0.0578077966366,0.0578639479689,0.0574508345953,0.0577636777326,0.0576954939719,0.0576513750679,0.0575952237356,0.0576032453545,0.0577596669231,0.0578398831122,0.0579241101107,0.0579963046808,0.0576995047813,0.0575310507843,0.0578519155405,0.0579762506336,0.0580003154903,0.0579963046808,0.0584334829111,0.0587222611917,0.0586179801459,0.0587262720011,0.0588826935698,0.0590270827101,0.0590070286628,0.058990985425,0.0531472360529,0.0474398542023,0.0412271103606,0.035050463804,0.0)
ycorr <- c(0.000123922626972,0.000123794761996,0.00012341120203,0.000122768171012,0.000121865216222,0.000120701815538,0.000119270456252,0.00011780370133,0.000116294183878,0.000114741196838,0.000113140924573,0.000111489514799,0.000109789257735,0.000108040176525,0.000106244336223,0.000104408758931,0.00010253986441,0.00010064862899,9.87489901223e-05,9.68487091017e-05,9.4959112904e-05,9.3093652579e-05,9.12581435759e-05,8.94576744901e-05,8.76967124022e-05,8.59724424447e-05,8.42815137515e-05,8.26238799734e-05,8.09938834938e-05,7.93884288918e-05,7.78014684575e-05,7.62222760207e-05,7.46458465324e-05,7.3070227428e-05,7.1491660033e-05,6.99079021141e-05,6.83269117755e-05,6.67439313317e-05,6.51579519141e-05,6.35684990203e-05,6.19729699784e-05,6.03766668455e-05,5.87799822508e-05,5.7177734708e-05,5.55659311791e-05,5.39455763195e-05,5.23137640705e-05,5.06646597768e-05,4.90015782606e-05,4.73233215394e-05,4.56325980378e-05,4.39279914546e-05,4.22070111933e-05,4.04724744271e-05,3.8729389053e-05,3.69747089974e-05,3.52067916075e-05,3.34306668988e-05,3.16478199668e-05,2.9854803182e-05,2.80497104017e-05,2.62293518438e-05,2.43923530913e-05,2.25363629642e-05,2.06588302307e-05,1.87623957631e-05,1.68505747325e-05,1.49238720789e-05,1.29787581283e-05,1.10128880755e-05,9.03077061817e-06,7.03279680284e-06,5.01906687018e-06,2.99280897492e-06,9.51507992158e-07,-1.10355932893e-06,-3.17880027988e-06,-5.27238413497e-06,-7.38332900037e-06,-9.50690217637e-06,-1.16474054612e-05,-1.38049103065e-05,-1.59765602363e-05,-1.81637640475e-05,-2.03611934725e-05,-2.25649288478e-05,-2.47763937109e-05,-2.69956857586e-05,-2.92287823261e-05,-3.14818191827e-05,-3.37538802692e-05,-3.60411636172e-05,-3.83425161088e-05,-4.06582790309e-05,-4.29887140982e-05,-4.53438171024e-05,-4.77187883151e-05,-5.01150156553e-05,-5.25282426276e-05,-5.49519866849e-05,-5.73845497984e-05,-5.98304376636e-05,-6.22909152992e-05,-6.47680607553e-05,-6.72620503958e-05,-6.97666020925e-05,-7.22807893404e-05,-7.48074783376e-05,-7.73467406856e-05,-7.99000694331e-05,-8.24692110041e-05,-8.50486143051e-05,-8.7635976171e-05,-9.0228325304e-05,-9.2826312039e-05,-9.54311180785e-05,-9.80490899107e-05,-0.000100671790086,-0.000103299090567,-0.000105926488954,-0.000108552680483,-0.000111181380397,-0.000113815978201,-0.000116459031877,-0.000119108950097,-0.000121764697835,-0.000124426559429,-0.000127091723495,-0.000129759921864,-0.000132439443534,-0.000135128225627,-0.000137826030097,-0.000140530828868,-0.000143241496135,-0.000145957576904,-0.000148682831212,-0.000151412879509,-0.000154150496624,-0.000156898208429,-0.000159651325188,-0.000162408804327,-0.000165173519666,-0.000167944770494,-0.000170717704524,-0.000173494600761,-0.000176271174387,-0.000179043468062,-0.00018181738262,-0.000184591134652,-0.000187363669878,-0.000190138957966,-0.000192906192714,-0.0001956642267,-0.000198412196307,-0.000201146773874,-0.00020386553459,-0.000206571475552,-0.000209264581066,-0.000211940640275,-0.000214596740741,-0.000217230484571,-0.000219845885154,-0.000222445662143,-0.000225034516561,-0.000227617214586,-0.000230197294961,-0.00023277525822,-0.000235347966337,-0.000237914440883,-0.000240478861141,-0.000243039955292,-0.00024559868273,-0.000248151870582,-0.000250699372192,-0.000253236801262,-0.000255762857546,-0.000258272975461,-0.000260767143384,-0.000263248708398,-0.000265716219386,-0.000268166939353,-0.000270603111071,-0.000273023121296,-0.000275429067273,-0.000277818504929,-0.00028019058797,-0.000282546540028,-0.00028488621023,-0.000287208356826,-0.000289512479195,-0.000291797185838,-0.000294062373092,-0.000296308139894,-0.000298535333141,-0.000300748318267,-0.000302950988197,-0.000305140180111,-0.000307317970864,-0.000309486837415,-0.000311644324022,-0.000313791174671,-0.000315929589102,-0.000318061248598,-0.000320180883262,-0.000322288162183,-0.00032437586433,-0.000326448858382,-0.000328506063832,-0.000330546634401,-0.000332570847907,-0.000334582589299,-0.000336584226997,-0.000338573701377,-0.000340554667382,-0.000342526578412,-0.000344486940633,-0.000346438074419,-0.000348377190598,-0.000350305371463,-0.000352218814949,-0.000354121842576,-0.000356011906786,-0.000357888234288,-0.000359751858146,-0.00036159617411,-0.000363428614982,-0.000365251845045,-0.000367063838132,-0.000368864300853,-0.000370659565265,-0.000372445622004,-0.000374218179496,-0.000375978207495,-0.000377720312025,-0.000379450876599,-0.000381170537592,-0.000382876274996,-0.000384568097579,-0.000386248146951,-0.000387914299131,-0.000389568088853,-0.000391212709476,-0.000392848631074,-0.000394478645024,-0.000396102619317,-0.000397719011546,-0.000399326912077,-0.000400929738218,-0.000402524462597,-0.000404111007849,-0.000405688299758,-0.000407251646952,-0.000408803792898,-0.00041034649565,-0.000411877248711,-0.000413398917718,-0.000414907046197,-0.000416402842423,-0.000417884223954,-0.000419354628891,-0.000420814498479,-0.00042226349879,-0.000423700654698,-0.000425123232098,-0.000426532105724,-0.00042792580447,-0.00042930718546,-0.000430676792312,-0.000432036284403,-0.000433384590595,-0.00043472061754,-0.000436046327517,-0.000437361350029,-0.000438664615594,-0.000439956030093,-0.00044123479542,-0.000442498545046,-0.000443745642997,-0.000444977029869,-0.000446189417813,-0.000447382773593,-0.000448561287782,-0.000449721812545,-0.000450864982009,-0.000451994631488,-0.000453108836048,-0.00045420768868,-0.000455292460314,-0.000456357699456,-0.000457403421201,-0.000458427154698,-0.000459422531682,-0.000460387540832,-0.000461324831791,-0.000462232085605,-0.000463107896252,-0.000463956168845,-0.000464775483842,-0.000465567962497,-0.000466338173165,-0.000467088444138,-0.000467825489808,-0.000468554215836,-0.000469273473403,-0.000469983503214,-0.000470688143865,-0.000471383527691,-0.000472069789205,-0.000472749483624,-0.00047342345622,-0.000474091419282,-0.000474752268998,-0.000475405581728,-0.000476052716943,-0.000476693454654,-0.000477325318427,-0.000477948572988,-0.000478564723086,-0.000479175524274,-0.00047977809862,-0.000480375358056,-0.000480965715244,-0.000481550214729,-0.000482129244111,-0.00048270335484,-0.00048327455486,-0.000483844691871,-0.000484413378254,-0.000484979700546,-0.00048554027368,-0.000486097436655,-0.000486646647659,-0.000487188165921,-0.000487718073529,-0.00048823283167,-0.000488732776306,-0.000489216455073,-0.000489687062366,-0.000490144115347,-0.000490592848475,-0.000491032096265,-0.000491462478759,-0.000491883774219,-0.000492299222278,-0.000492712490706,-0.000493120083111,-0.000493527428435,-0.000493930405094,-0.000494327285685,-0.000494716659962,-0.000495096735675,-0.00049546902509,-0.000495834348109,-0.000496193384472,-0.00049654264427,-0.000496886354382,-0.000497224549967,-0.000497553246303,-0.000497874825207,-0.000498187691205,-0.000498489738937,-0.000498781961767,-0.000499065034914,-0.000499336097309,-0.000499597326889,-0.000499848188942,-0.000500082515057,-0.000500305534341,-0.00050051525259,-0.00050071529732,-0.00050090617336,-0.000501089691651,-0.000501264668963,-0.000501430769237,-0.000501590277449,-0.000501742008288,-0.000501889288934,-0.000502031111702,-0.000502169777299,-0.00050230258232,-0.000502428285595,-0.00050254664699,-0.000502657530303,-0.000502761825927,-0.00050285737866,-0.000502942282076,-0.000503016672494,-0.000503081720156,-0.000503138199188,-0.000503181958116,-0.000503215190405,-0.000503236087492,-0.000503242899925,-0.000503233790898,-0.00050320749366,-0.00050316642749,-0.000503110049966,-0.00050303564217,-0.000502943050491,-0.000502835100095,-0.000502713248285,-0.000502578934259,-0.000502432631966,-0.000502278157238,-0.00050212132616,-0.000501960953486,-0.000501797028406,-0.00050162913777,-0.000501457860117,-0.000501278976409,-0.000501088338719,-0.000500887257391,-0.000500677336826,-0.000500456071805,-0.000500218331253,-0.000499961086487,-0.000499686111951,-0.000499397392392,-0.000499092314366,-0.000498775862812,-0.000498453252609,-0.000498124479562,-0.000497786012697,-0.000497438389577,-0.000497083527396,-0.000496725182033,-0.000496360497287,-0.000495986027314,-0.000495600831155,-0.000495209555541,-0.000494808164391,-0.000494392491643,-0.000493964394518,-0.000493524939598,-0.000493071933922,-0.000492606518166,-0.000492129855086,-0.000491645124695,-0.000491151766382,-0.000490646984141,-0.000490128344919,-0.000489595438243,-0.000489050299631,-0.000488494722233,-0.000487927372064,-0.000487348743057,-0.000486758417962,-0.000486154169831,-0.000485536176758,-0.000484904876585,-0.000484260036174,-0.000483604398232,-0.000482937926355,-0.000482256661918,-0.000481561070784,-0.000480852186169,-0.000480127710049,-0.000479384810703,-0.000478624137711,-0.000477844555941,-0.00047704759597,-0.000476234361007,-0.000475402664737,-0.000474552671286,-0.000473686371107,-0.000472802881533,-0.000471905580763,-0.000470997040708,-0.000470080275516,-0.000469155159137,-0.000468225190262,-0.000467288147613,-0.000466342875461,-0.00046539190742,-0.000464435300604,-0.000463473028611,-0.000462501176854,-0.000461517341099,-0.000460519190939,-0.000459504930668,-0.000458471496655,-0.000457416642996,-0.000456346285323,-0.000455257160868,-0.000454150454845,-0.000453023737578,-0.000451876778459,-0.000450711782739,-0.000449527552443,-0.000448324034589,-0.000447102490799,-0.00044586690016,-0.000444615124734,-0.000443345185679,-0.000442058085222,-0.000440751732626,-0.000439428493801,-0.000438090322128,-0.00043673854784,-0.000435374217964,-0.000433997948096,-0.000432608456355,-0.000431204588369,-0.000429788081188,-0.000428355472682,-0.000426910597591,-0.000425451532993,-0.000423976436438,-0.000422485051391,-0.000420977005434,-0.00041945210029,-0.000417909590367,-0.000416347529717,-0.000414765531894,-0.000413164234887,-0.000411545430017,-0.000409909287179,-0.000408257942431,-0.000406591310571,-0.000404908132281,-0.000403205970139,-0.000401485490519,-0.000399748464734,-0.000397996315814,-0.000396229729914,-0.00039444526964,-0.00039264269317,-0.000390818420288,-0.000388973260633,-0.000387109683593,-0.000385228085136,-0.000383328262924,-0.000381408827055,-0.000379469013112,-0.000377510388211,-0.000375531193115,-0.00037353362459,-0.000371517490131,-0.000369481830321,-0.000367424872911,-0.000365345907289,-0.000363244807736,-0.000361121832531,-0.000358978884596,-0.000356814807116,-0.000354630736332,-0.000352426749781,-0.000350204215391,-0.000347964341202,-0.000345706146128,-0.000343430634114,-0.000341138412944,-0.00033883232534,-0.000336511574182,-0.000334174012108,-0.000331819862347,-0.000329449942969,-0.000327062836605,-0.000324656088717,-0.000322231500426,-0.000319790685701,-0.000317331983027,-0.00031485250395,-0.000312350633353,-0.000309827055091,-0.00030728165225,-0.000304712541744,-0.000302119783573,-0.00029950621013,-0.000296871683986,-0.000294214718862,-0.000291536182442,-0.000288837831681,-0.00028612274307,-0.000283390336697,-0.000280643636583,-0.000277881849526,-0.000275106262945,-0.000272315119294,-0.000269507561822,-0.000266683237697,-0.000263842311207,-0.000260986220036,-0.000258112367973,-0.000255217168274,-0.000252297912843,-0.000249352193671,-0.000246381574056,-0.000243385509738,-0.000240363559924,-0.000237288158693,-0.000234126785918,-0.000230845774381,-0.00022741696486,-0.000223679228476,-0.000220257110438,-0.000216997433533,-0.000213878497369,-0.000210874331253,-0.000207953896859,-0.000205090970049,-0.000202308591975,-0.000199645521254,-0.000197131768254,-0.000194795386368,-0.000192799172685,-0.000190523500377,-0.000188121558143,-0.000185613457084,-0.000183025619215,-0.000180390198607,-0.00017773189237,-0.000175054526457,-0.000172352822788,-0.000169629030222,-0.000166880525257,-0.000164102644166,-0.000161293434208,-0.000158454167142,-0.000155585889988,-0.000152687961879,-0.000149761433155,-0.000146807193308,-0.000143826155108,-0.000140816672639,-0.000137778748701,-0.000134716937838,-0.000131636123049,-0.000128536723079,-0.000125421906835,-0.000122290474376,-0.00011914347083,-0.000115978338176,-0.000112796192337,-0.000109598108441,-0.000106388904783,-0.000103167441831,-9.99315373763e-05,-9.66792475857e-05,-9.34090257014e-05,-9.01211634244e-05,-8.68190448252e-05,-8.35043614249e-05,-8.01808384042e-05,-7.68482722627e-05,-7.35066928661e-05,-7.01555211378e-05,-6.67968457169e-05,-6.34339938196e-05,-6.00700731344e-05,-5.6709845093e-05,-5.33518439117e-05,-4.99944728437e-05,-4.66331983702e-05,-4.32687269813e-05,-3.9899830472e-05,-3.6525421783e-05,-3.31457943641e-05,-2.97587875607e-05,-2.63609638127e-05,-2.29486122441e-05,-1.95174190066e-05,-1.60667656033e-05,-1.25991058618e-05,-9.11663937349e-06,-5.61808348395e-06,-2.1049471979e-06,1.42543772045e-06,4.97484992318e-06,8.5419389271e-06,1.21281387314e-05,1.57318808036e-05,1.93525776365e-05,2.29899419532e-05,2.66447926427e-05,3.03193082272e-05,3.40148780075e-05,3.77308936386e-05,4.14632856925e-05,4.52153417447e-05,4.89865285701e-05,5.27736458266e-05,5.65767857299e-05,6.03946725167e-05,6.42303993878e-05,6.80831431841e-05,7.19505721339e-05,7.5830525294e-05,7.9725936468e-05,8.36376320893e-05,8.75606498258e-05,9.14965045349e-05,9.54473156542e-05,9.94140849426e-05,0.00010339577723,0.000107390945474,0.000111401790169,0.00011543258818,0.000119483389541,0.000123548472513,0.000127627526354,0.000131721449667,0.0001358278354,0.000139946255214,0.000144072656683,0.000148208617934,0.000152351982872,0.000156501182757,0.000160650597858,0.000164803017066,0.000168964335038,0.000173132570255,0.000177308164647,0.00018148789745,0.000185675828784,0.000189872163934,0.000194077378337,0.000198290075772,0.000202512238996,0.000206743690652,0.000210982526177,0.000215225016539,0.000219473760701,0.000223729184792,0.000227992183266,0.000232257591883,0.000236524961627,0.000240791403111,0.000245056399606,0.000249315432213,0.000253569486409,0.000257820377797,0.000262067399373,0.000266311017135,0.000270548106897,0.000274780727417,0.000279008704287,0.000283235650764,0.00028746075963,0.000291686091512,0.000295910802531,0.000300137373281,0.000304360442645,0.00030857696498,0.000312784942603,0.000316986498384,0.000321179987451,0.000325365082727,0.000329538907149,0.000333704063457,0.000337858850667,0.000342001567791,0.0003461296466,0.000350250526918,0.000354366916816,0.000358476144941,0.000362577531947,0.000366668786643,0.000370750361857,0.000374821004275,0.000378880067458,0.000382928479291,0.0003869701595,0.000391001561753,0.000395017137285,0.000399018091474,0.000403005261815,0.00040697949475,0.000410941525454,0.000414890995403,0.000418828550313,0.000422750537233,0.000426655753402,0.00043054201592,0.000434411426047,0.000438262399779,0.000442093766972,0.000445905274651,0.000449696628201,0.000453469107896,0.000457220835104,0.000460952633606,0.000464664544805,0.000468355819466,0.000472023927237,0.000475667728459,0.000479287237304,0.000482882195474,0.000486452007341,0.000489993965165,0.000493505115643,0.000496987172629,0.00050044037056,0.000503867825728,0.000507272351735,0.000510656601658,0.000514019808745,0.000517363294362,0.000520687470595,0.000523992756709,0.000527280615527,0.000530552424042,0.000533804455435,0.000537033750128,0.000540239065922,0.000543418365389,0.000546571212693,0.000549696560185,0.000552792847199,0.000555857616768,0.000558892064692,0.000561895256389,0.000564867763645,0.000567811111675,0.000570726557413,0.000573614065272,0.000576474100343,0.000579308837152,0.000582118249363,0.000584906005552,0.000587672819048,0.000590417199592,0.000593140614845,0.000595842196379,0.000598521368861,0.000601177397854,0.000603809265898,0.000606413090754,0.000608989798103,0.000611538892747,0.000614055743128,0.000616540306264,0.000618990940347,0.000621406963965,0.000623789299944,0.000626138270661,0.000628453625877,0.00063073634256,0.000632988158941,0.000635206758461,0.000637395929788,0.000639554475263,0.000641684950428,0.00064378835802,0.000645861676339,0.000647904038702,0.000649915182986,0.000651894377391,0.000653840830319,0.000655753277639,0.000657630096243,0.000659470176327,0.000661273662355,0.000663036908341,0.000664763386289,0.000666454129475,0.000668108484605,0.000669728750644,0.000671314267684,0.000672862873356,0.000674375620244,0.000675854855274,0.000677298158957,0.000678707520832,0.000680080933185,0.000681414819987,0.000682709682459,0.000683965091864,0.000685177213131,0.000686349622229,0.000687482740078,0.000688572660429,0.000689617293321,0.00069061760616,0.00069157139048,0.000692484143864,0.00069335522115,0.000694183707234,0.000694970528406,0.000695714651221,0.000696413612731,0.000697071517577,0.000697693748486,0.000698277502606,0.000698822552486,0.000699325748362,0.000699784388475,0.000700195352817,0.000700559345755,0.000700875662196,0.000701146186571,0.000701366819752,0.000701532880413,0.000701645839326,0.000701707423241,0.000701718996265,0.000701685081753,0.000701604109193,0.000701479911191,0.000701311479655,0.000701096745182,0.000700837304666,0.000700534167079,0.000700186357147,0.000699792417685,0.000699349322981,0.000698852955632,0.000698305806806,0.000697706383237,0.000697054506798,0.000696350532011,0.000695596325075,0.000694791743716,0.000693938363917,0.000693035923836,0.000692084187382,0.000691089169247,0.000690050977521,0.000688968939311,0.000687844612561,0.000686678266485,0.000685469504989,0.000684218372346,0.000682923974783,0.00068158812144,0.000680215384184,0.000678802781983,0.000677349660571,0.000675856622443,0.000674323392244,0.000672753237839,0.000671145428536,0.000669501752818,0.000667824045249,0.000666113233958,0.000664369148337,0.000662589044182,0.000660777134675,0.000658932873071,0.000657056553851,0.000655145441081,0.00065320049054,0.000651222022076,0.000649209252257,0.000647162022853,0.000645079367421,0.00064296298339,0.000640813379293,0.000638629477169,0.000636411766928,0.000634163762808,0.000631885761881,0.000629573137379,0.000627226686244,0.000624847708508,0.000622434720632,0.000619987962873,0.000617505180479,0.000614988474462,0.000612439823168,0.000609856891668,0.000607238551549,0.000604589034728,0.000601912740556,0.000599205718178,0.000596467707388,0.000593700557636,0.000590903624506,0.000588077522671,0.000585220480848,0.000582331735677,0.000579411880755,0.000576461589945,0.000573476190556,0.000570455623685,0.000567402871253,0.000564318196231,0.000561203231553,0.000558057747519,0.000554881944522,0.000551676317852,0.000548440777012,0.00054517729321,0.000541884960771,0.000538569585671,0.000535230217188,0.000531866994139,0.000528476246208,0.000525057716186,0.000521613373787,0.000518145499101,0.00051465445698,0.000511139504922,0.000507600824075,0.000504037042098,0.000500447817343,0.000496833899298,0.00049319844791,0.000489544843571,0.000485870688189,0.000482173125762,0.000478452466666,0.000474709481971,0.000470945033241,0.000467159577818,0.000463350027876,0.000459514840422,0.000455653648368,0.000451764292829,0.000447848365794,0.000443909839364,0.0004399511358,0.000435969621632,0.000431964977814,0.000427936731812,0.00042388981982,0.000419828805063,0.000415753376222,0.000411664878988,0.00040756308413,0.000403446764618,0.000399314334948,0.000395168547362,0.000391013018214,0.000386847832228,0.000382671285653,0.00037847818231,0.000374271799391,0.000370052104092,0.000365819116136,0.000361574443477,0.000357320682581,0.000353055857481,0.000348777039399,0.000344485060955,0.000340183777361,0.00033587729783,0.000331565409159,0.000327247269432,0.000322923957364,0.000318595678988,0.000314259404105,0.000309913462395,0.000305561765812,0.000301206049548,0.00029684435007,0.000292474546348,0.000288097342215,0.00028371358998,0.000279323712949,0.000274926893979,0.000270524161073,0.00026612242683,0.000261722680376,0.00025732293298,0.000252924322519,0.000248527311179,0.000244131121477,0.000239734588289,0.000235339027458,0.000230946531621,0.000226560867843,0.000222180746373,0.000217803676798,0.000213430896367,0.000209062005688,0.000204696488336,0.000200334240483,0.000195977735052,0.000191627510181,0.000187283084214,0.000182942784851,0.000178604507623,0.000174269063855,0.000169937207403,0.000165610016833,0.000161289037603,0.000156974691259,0.000152668025296,0.000148367961714,0.000144073076142,0.000139784476785,0.000135502572382,0.000131225832606,0.000126954645415,0.00012268600043,0.000118420926817,0.000114159041188,0.0001099035195,0.000105655049855,0.000101416280194,9.71881246599e-05,9.29702733962e-05,8.87634140384e-05,8.45704743965e-05,8.03911679102e-05,7.62311623074e-05,7.20925924714e-05,6.79730357532e-05,6.38709627302e-05,5.97863407748e-05,5.57176663096e-05,5.16653280516e-05,4.76318479554e-05,4.36154852809e-05,3.96173993609e-05,3.56353893448e-05,3.16659497409e-05,2.7707046595e-05,2.37629668616e-05,1.9831650077e-05,1.59116354971e-05,1.20020030384e-05,8.10100685524e-06,4.20775962414e-06,3.2542988974e-07,-3.54842297267e-06,-7.41528594886e-06,-1.12733939778e-05,-1.51264086793e-05,-1.8971854731e-05,-2.28078361916e-05,-2.6627618921e-05,-3.04313137291e-05,-3.42171267466e-05,-3.79861567079e-05,-4.17384789572e-05,-4.5468102109e-05,-4.91722800515e-05,-5.28524877623e-05,-5.65085917679e-05,-6.01407440224e-05,-6.37519593482e-05,-6.73434265969e-05,-7.09127873324e-05,-7.44620188831e-05,-7.79907080818e-05,-8.15014423391e-05,-8.49979975509e-05,-8.847563658e-05,-9.19319761158e-05,-9.53683612132e-05,-9.87878472028e-05,-0.000102187934715,-0.000105573252917,-0.000108943043418,-0.000112295050799,-0.000115629032896,-0.000118945221328,-0.00012224582743,-0.000125532026831,-0.000128804546554,-0.000132057776453,-0.000135292965407,-0.0001385093277,-0.000141705698577,-0.000144883581077,-0.000148042264497,-0.000151179125234,-0.000154292622093,-0.000157385312473,-0.000160456774021,-0.000163509841617,-0.000166545584433,-0.000169563891707,-0.000172563677463,-0.000175543659241,-0.00017850406946,-0.000181443099643,-0.000184360778963,-0.000187254862375,-0.000190123214008,-0.000192965603739,-0.00019578035371,-0.000198564679967,-0.000201318188823,-0.000204041509749,-0.000206734678818,-0.00020940117868,-0.000212043587555,-0.000214663865592,-0.000217260400797,-0.000219831693055,-0.000222375428826,-0.000224892619608,-0.000227384846955,-0.000229850597889,-0.000232286160775,-0.000234695058103,-0.000237075104282,-0.000239426216599,-0.000241749182382,-0.000244046064433,-0.000246317654348,-0.000248567255343,-0.000250600015022,-0.000252225882669,-0.000253443326858,-0.000254257766943,-0.000254665437629)
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(295)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Heterocephalus_glaber-male-liver-H3K4me3-ERR572127.50mers.unique.MACS2_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) : 295',bty='n')
dev.off()