# R script for Peak Model
#  -- generated by MACS
p <- c(0.041174644699,0.0479941984829,0.0550106504741,0.0619593861506,0.0687976921447,0.0686653848836,0.0688154025654,0.0687820653028,0.0687549787769,0.0688185279338,0.0689664620366,0.0690456380354,0.0687383101456,0.0685966267795,0.0684028539405,0.0684351494137,0.0682320004696,0.0682799227846,0.068162200576,0.0680278097361,0.0677621534246,0.0678059085818,0.0677986160556,0.0677871563716,0.068043436578,0.0679507173163,0.0679361322639,0.0679007114224,0.0680371858412,0.0680100993154,0.0681538662604,0.0680507291042,0.0679830127895,0.0679569680531,0.0678840427911,0.0679465501585,0.068054896262,0.0682153318383,0.0681465737342,0.06840389573,0.0683882688882,0.0684299404664,0.0686310058316,0.0686174625686,0.0687476862507,0.0686633013047,0.0686622595153,0.0686445490945,0.0686330894105,0.0685049493073,0.0684122300457,0.0684184807824,0.0684789045709,0.0685122418335,0.0684382747821,0.0685080746757,0.0683111764684,0.068079899209,0.0681997049965,0.0682247079434,0.0683986867827,0.0683382629942,0.0682278333118,0.0682528362588,0.0680559380514,0.0680163500521,0.0681455319447,0.0679632187898,0.0678955024751,0.0677434012144,0.0676881863732,0.0676360969004,0.0677225654253,0.0677142311096,0.0679205054221,0.0680559380514,0.0680601052093,0.0683018003632,0.0683434719415,0.0682538780482,0.0683518062572,0.0684163972035,0.0685153672019,0.0685195343597,0.0684393165715,0.0683538898361,0.0683122182578,0.0684309822559,0.0682497108904,0.0684841135182,0.0684570269923,0.0686028775162,0.0685695402536,0.0685549552012,0.0685195343597,0.0686132954108,0.0686695520415,0.068524743307,0.0686122536214,0.0686341311999,0.0686330894105,0.0685487044645,0.0685591223591,0.0688070682498,0.0689862560363,0.0689550023526,0.0689977157203,0.0691539841389,0.0690529305616,0.0688893696168,0.0687247668827,0.0688018593025,0.0687247668827,0.0686976803568,0.0686080864635,0.0686080864635,0.0685809999376,0.0686195461475,0.0688518651964,0.0690758499296,0.0693060853995,0.0693425480305,0.0694488105551,0.0692987928733,0.069427974766,0.069619664026,0.0696998818142,0.0697144668666,0.0698092697072,0.0696832131829,0.0696686281305,0.0696321654995,0.0697269683401,0.0697780160235,0.0698082279177,0.0697134250771,0.069788433918,0.0698551084433,0.0700249201247,0.070221818332,0.0702603645419,0.0703416241196,0.070233278016,0.0703291226461,0.0702666152787,0.070269740647,0.0703343315934,0.0702145258058,0.0700270037036,0.0701759795959,0.0700811767554,0.0702186929637,0.0703562091719,0.0705645670633,0.0707562563233,0.0710302469505,0.0709750321093,0.0712719421044,0.0713177808405,0.0712261033683,0.0712542316837,0.071136509475,0.0711281751594,0.0710469155818,0.0710135783192,0.0711417184223,0.0712761092623,0.0713146554722,0.0714115418916,0.0714771746274,0.0715511416788,0.0714948850482,0.0716636549402,0.0717188697814,0.0719105590414,0.07174074736,0.0717032429395,0.0715792699942,0.071752207044,0.0718897232523,0.0722303884046,0.0725220894525,0.0725022954528,0.0726898175551,0.0725658446097,0.0726387698717,0.0729877693397,0.0731659153368,0.0732450913355,0.0731950854416,0.0732315480726,0.0735169983837,0.0736513892236,0.0738212009051,0.0740326841648,0.0742431256351,0.0743754328961,0.0745108655255,0.0746202534184,0.0747369338376,0.0749588349919,0.0749234141503,0.0749713364653,0.0749515424657,0.0752536614081,0.0753192941439,0.0751880286723,0.0754047208793,0.0756464160333,0.0758193530831,0.0759172812921,0.0759287409761,0.0760318781323,0.0761527257093,0.0761537674987,0.0762131494978,0.0765131848613,0.0765777758076,0.0764631789674,0.0766465339118,0.0764996415984,0.0767319606472,0.0769788647485,0.0771799301136,0.0772736911647,0.0775403892657,0.0775591414759,0.0776706129478,0.0779883587321,0.0781019137829,0.0782977702007,0.078218594202,0.0783540268314,0.0784988355659,0.0785019609342,0.0783821551467,0.0785342564074,0.0785863458802,0.0786467696687,0.0787738679825,0.0789916019789,0.0791270346083,0.0792801776584,0.0792082941859,0.0795427086015,0.0798885827012,0.0800417257513,0.0801500718548,0.0803136327995,0.0804646922708,0.0805553279535,0.0809126617372,0.0809564168943,0.0811147688918,0.0812054045745,0.0812189478374,0.0813918848873,0.081566905516,0.0817346336185,0.0818294364591,0.0819179885629,0.0820127914035,0.0822159403476,0.0824190892916,0.082481596659,0.0825201428689,0.0824638862383,0.0826534919194,0.08251805929,0.0825868173942,0.0827639216018,0.0828222618114,0.0828535154951,0.0829181064414,0.0832316850679,0.0835463054838,0.0838744691627,0.0840203196866,0.0841932567365,0.0844234922064,0.0846058053613,0.0846943574652,0.0848141632527,0.0851464940894,0.0850246047229,0.0850193957757,0.0851652462996,0.0851569119839,0.085264216298,0.0853215147181,0.0854340279794,0.0855371651357,0.0858351169203,0.0858319915519,0.0862424565979,0.0863518444908,0.0864664413311,0.0867602259579,0.0872165297399,0.0876509559434,0.0882353998286,0.0889594435011,0.0898220451713,0.090731527367,0.0913170130417,0.0926255005994,0.0937329227919,0.0948268017215,0.09559668413,0.0962613458034,0.0968978791615,0.0973635590487,0.0979011224083,0.0981751130355,0.0985689094501,0.098582452713,0.0985418229242,0.0985261960824,0.0989054074446,0.0990981384941,0.0993544187005,0.0993627530161,0.0993387918586,0.0996607048008,0.0999378207963,0.100307656053,0.10054414226,0.100570186997,0.10044933942,0.100836885097,0.100896267096,0.101322358984,0.101623436137,0.101801582134,0.101956808763,0.101942223711,0.102186002444,0.102555837701,0.102936090853,0.10296005201,0.103096526429,0.103303842531,0.10315174127,0.10305589664,0.103014225062,0.103181953165,0.103425731897,0.10355595558,0.103522618317,0.103660134525,0.103733059787,0.103775773155,0.104054972729,0.104314378304,0.104759222402,0.104960287767,0.105244696289,0.105602030073,0.106077086065,0.106300029009,0.106656321003,0.106861553526,0.107115750153,0.107260558888,0.107278269309,0.107289728993,0.107283478256,0.107479334674,0.107549134567,0.107952307087,0.108151288873,0.108383607922,0.10852216592,0.108759693916,0.10917432612,0.109740017795,0.109933790634,0.10992128916,0.110121312736,0.11009422621,0.110210906629,0.110402595889,0.110588034413,0.110883902618,0.110817228093,0.110914114513,0.111022460616,0.111121430614,0.111224567771,0.111362083979,0.111356875032,0.111545438923,0.111696498395,0.111677746184,0.111860059339,0.112014244179,0.112201766281,0.112495550908,0.112575768696,0.112715368483,0.112966439742,0.11312479174,0.113520671733,0.113858211517,0.114151996144,0.114250966143,0.114473909086,0.114942714342,0.115269836231,0.115487570228,0.116026175377,0.116355380845,0.116339754003,0.116294957057,0.116642914735,0.116554362631,0.116720007155,0.116374133055,0.116575198421,0.11676792947,0.116615828209,0.116867941258,0.116904403889,0.117022126097,0.116781472733,0.117197146726,0.117440925459,0.118046205133,0.118243103341,0.118479589547,0.118738995122,0.118738995122,0.118941102277,0.119243221219,0.119385946375,0.119333856902,0.119515128267,0.119334898691,0.11949116711,0.11952971332,0.119566175951,0.119403656796,0.119547423741,0.119722444369,0.119778701,0.119828706894,0.119679731002,0.119857876999,0.119905799314,0.119928718682,0.119914133629,0.120154786994,0.119899548577,0.119838082999,0.120054775206,0.120453780568,0.120601714671,0.120624634039,0.120361061306,0.12050795362,0.120656929512,0.12067984888,0.121090313926,0.12112156761,0.121116358662,0.120955923086,0.120809030773,0.120703810038,0.120944463402,0.120996552875,0.121068436347,0.120940296244,0.120782986036,0.120978842454,0.120866329193,0.120636093723,0.120801738247,0.12085278593,0.120739230879,0.120482950673,0.120298553939,0.120178748151,0.11997143205,0.119880796367,0.119957888787,0.120203751098,0.119978724576,0.119992267839,0.11995059626,0.119977682786,0.119827665104,0.12014228552,0.120052691627,0.119751614474,0.119718277212,0.119449495532,0.119455746268,0.119398447848,0.119281767429,0.119166128799,0.118998400697,0.11870461607,0.118662944492,0.118620231124,0.118317070392,0.118343115129,0.118076417028,0.11786076661,0.117870142715,0.117558647668,0.11770762356,0.117598235667,0.117518017879,0.117049212623,0.117044003676,0.116783556312,0.116850230837,0.116762720523,0.116561655158,0.116412679265,0.116082432007,0.115754268329,0.115741766855,0.115948041168,0.115953250115,0.11582823538,0.11561779391,0.115295880968,0.11502293213,0.1149270875,0.114920836763,0.114745816134,0.114340560036,0.113933220358,0.113464415103,0.113100830582,0.112698699852,0.112639317853,0.112436168909,0.112579935854,0.112440336067,0.112372619752,0.11245387933,0.112392413752,0.112178846913,0.112010077021,0.111872560813,0.111624614922,0.111516268819,0.111036003879,0.110628664201,0.110388010837,0.109875450424,0.109619170218,0.109362890011,0.108959717492,0.108699270128,0.10846382571,0.108458616763,0.108285679713,0.108123160558,0.108054402454,0.108151288873,0.108260676766,0.108241924556,0.108315891607,0.108191918662,0.108000229402,0.107510588357,0.107487668989,0.107312648361,0.107004278681,0.106743831317,0.106413584059,0.106419834796,0.106368787113,0.106410458691,0.106348993113,0.106261482799,0.105923943015,0.105708292597,0.105543689863,0.105268657446,0.104900905768,0.104408139355,0.104160193464,0.103889328206,0.103567415264,0.10321008148,0.103009016115,0.102751694119,0.102621470437,0.102364148441,0.102594383911,0.102610010753,0.102631888331,0.102451658755,0.102149539813,0.101901593922,0.101536967612,0.101140045829,0.100470175209,0.0997294629049,0.0986053720811,0.0974323171528,0.0961977966466,0.0949684850876,0.0940173313136,0.0933099562725,0.0924233934448,0.0917691496659,0.0912868011474,0.0909857239944,0.0906523513683,0.09041899053,0.0902325102172,0.0900001911684,0.0899616449585,0.0897491199093,0.089502215808,0.0893521981263,0.0893157354953,0.0890615388678,0.0891552999189,0.0890886253937,0.0889271480279,0.0889313151857,0.0886927454001,0.0885229337187,0.0886396141379,0.0883604145634,0.0879999554114,0.0879249465705,0.0875717799447,0.0873582131061,0.087419678684,0.0874175951051,0.0874832278409,0.0874821860514,0.087323834054,0.0870717210054,0.0867529334317,0.0865841635397,0.0863893489113,0.086395599648,0.0860132629174,0.0856840574491,0.0854090250325,0.0850496076699,0.0847537394642,0.08468498136,0.084817288621,0.0846891485179,0.0843901549438,0.0842297193674,0.0840265704234,0.0838640512681,0.083795293164,0.0835879770621,0.0834337922225,0.0834994249583,0.083277523804,0.0832556462254,0.0832150164366,0.0830024913874,0.0828222618114,0.082819136443,0.0824909727641,0.0824555519226,0.0823878356079,0.0818898602476,0.0816648337249,0.081375216256,0.0812449925739,0.0810960166815,0.0810324675247,0.080711596372,0.0806417964784,0.080458441534,0.0803907252193,0.0804646922708,0.0803448864832,0.0802865462737,0.0801302778551,0.0800458929091,0.0800604779615,0.0801469464865,0.0798521200702,0.0797541918613,0.0793041388159,0.0792697597639,0.0791478703974,0.0790447332412,0.078834291771,0.0786551039844,0.0783331910423,0.0780206542052,0.078001901995,0.0779091827334,0.0779466871538,0.0777216606311,0.077616439896,0.0772684822175,0.0772413956916,0.077208058429,0.0771997241133,0.0771070048517,0.076881978329,0.0766882054901,0.0763798358109,0.0761350152885,0.0760433378163,0.0759568692914,0.0758037262413,0.0755672400346,0.0754005537215,0.0755151505618,0.075606828034,0.0756026608761,0.0756380817177,0.0756693354014,0.075545362456,0.0755797415081,0.0755849504554,0.0755536967717,0.0755922429816,0.0752265748822,0.0750244677276,0.0747911068893,0.0747754800475,0.0746629667861,0.0744191880533,0.0742097883725,0.0740951915322,0.0738305770102,0.0735795057511,0.0734211537537,0.0734430313323,0.0732503002828,0.073125285548,0.0728981754464,0.0728367098685,0.0728002472375,0.0726127251353,0.0727002354496,0.0728325427106,0.0729731842873,0.0728669217627,0.0728075397637,0.0728429606052,0.0728294173423,0.0727804532378,0.0727075279758,0.0726398116611,0.0724856268215,0.0721866332474,0.0720126544082,0.0718897232523,0.0718261740954,0.0716032311517,0.071594896836,0.0716209415724,0.071571977468,0.071487592522,0.0715042611533,0.0715167626268,0.0712740256833,0.071293819683,0.0712552734731,0.0713448673664,0.0711583870536,0.071006285793,0.0708135547435,0.0706541609566,0.0704510120125,0.0703687106454,0.0704666388544,0.070319746541,0.0700978453867,0.0700113768618,0.0699676217046,0.0699978335988,0.0699915828621,0.0700030425461,0.0696634191832,0.069512359712,0.0693956792928,0.0694415180289,0.069667586341,0.0693727599248,0.0693571330829,0.069211282559,0.069090434982,0.069222742243,0.0694633956075,0.0692623302424,0.0690821006663,0.0686945549884,0.0685674566747,0.0687060146725,0.0686862206728,0.0685101582546,0.06859558499,0.0682882571003,0.0681257379451,0.0682049139438,0.0682372094169,0.0683695166779,0.0682580452061,0.0680288515256,0.0680830245773,0.0681653259444,0.0680226007888,0.0681924124703,0.0681903288914,0.0682215825751,0.0682955496265,0.0682267915224,0.0681580334182,0.0682517944693,0.0681215707872,0.0681205289978,0.068164284155,0.0678809174227,0.0680507291042,0.0680361440518,0.0678684159492,0.0678142428975,0.067861123423,0.0677611116352,0.0676142193218,0.0675204582707,0.0674683687978,0.067657974479,0.0676110939534,0.0676496401633,0.0678246607921,0.0679382158428,0.0679215472115,0.0679913471051,0.0680934424719,0.0679965560524,0.0679528008952,0.067874666686,0.0677694459508,0.0675975506905,0.0674839956397,0.0672131303809,0.0671131185931,0.0671131185931,0.0670891574356,0.0671131185931,0.0670756141726,0.066934972596,0.0669787277532,0.067055820173,0.0670974917512,0.0672798049062,0.0674350315352,0.0673652316416,0.0671808349078,0.0672100050126,0.0673162675372,0.0674339897458,0.0674600344822,0.0675308761652,0.0673777331151,0.0674298225879,0.0673652316416,0.0673006406953,0.0674266972196,0.0674246136407,0.0671902110129,0.0671068678564,0.0668953845966,0.0667839131248,0.0670662380675,0.0669787277532,0.0669787277532,0.0670172739631,0.0671454140663,0.0672600109065,0.0672318825912,0.0672975153269,0.0674621180611,0.0674152375355,0.0672683452221,0.0674141957461,0.0673881510097,0.0672975153269,0.0673079332215,0.0672016706969,0.0674506583771,0.0674444076403,0.0673662734311,0.0673766913256,0.0674517001665,0.0673235600634,0.0674579509033,0.0675308761652,0.0674496165876,0.0673548137471,0.0673027242742,0.0673537719576,0.067283972064,0.0673381451157,0.0672860556429,0.0673454376419,0.0672756377483,0.0672912645902,0.0673193929055,0.0674975389026,0.067512123955,0.0674819120608,0.0677434012144,0.0677809056349,0.0676506819528,0.0675704641646,0.0674371151141,0.0674985806921,0.0675027478499,0.0674558673244,0.0673860674308,0.0673839838518,0.0673235600634,0.0673464794314,0.067585049217,0.067728816162,0.0679184218432,0.0680246843677,0.0681299051029,0.0680371858412,0.0681674095233,0.0683122182578,0.0683143018367,0.068271588469,0.068330970468,0.0683893106776,0.0684247315191,0.0684601523607,0.0684674448869,0.0687122654092,0.0687028893041,0.0686716356204,0.0685487044645,0.068584125306,0.068561205938,0.0687060146725,0.0685716238325,0.068597668569,0.068679969936,0.0686914296201,0.0687685220399,0.0687997757236,0.0691664856123,0.0692883749788,0.0693706763459,0.0692071154012,0.0693988046612,0.0695165268698,0.0695738252899,0.0695936192896,0.0697915592864,0.0697728070762,0.0698592756011,0.0698415651803,0.0697415533925,0.0697821831813,0.0698707352851,0.0696894639196,0.0696207058155,0.0696477923414,0.0694154732925,0.0694811060283,0.0691529423494,0.0692164915063,0.0692623302424,0.0694019300296,0.0692612884529,0.0693956792928,0.0694321419238,0.0695404880273,0.0695154850804,0.0695957028685,0.0696988400247,0.0698353144436,0.0699040725477,0.0697321772874,0.0698801113902,0.0699676217046,0.0697425951819,0.0697873921286,0.0699842903359,0.0700572155979,0.070185355701,0.0702436959106,0.0702759913838,0.0703728778033,0.0704260090655,0.0704989343275,0.0707479220077,0.0706927071665,0.0707479220077,0.0707614652706,0.0708521009534,0.0706458266409,0.0708521009534,0.0707520891655,0.0708323069537,0.0708708531636,0.0709614888463,0.0709479455834,0.0707708413757,0.0708312651642,0.070835432322,0.0710740021076,0.0708812710581,0.0712052675792,0.0712854853674,0.0711833900006,0.0711990168425,0.0712802764201,0.0716011475728,0.0715209297846,0.0716251087303,0.0715261387319,0.0717001175711,0.0717980457801,0.0719220187254,0.0721199587222,0.0722564331411,0.0721845496685,0.0721949675631,0.0722543495621,0.0721772571423,0.0723397762976,0.0721210005117,0.0720449498813,0.0718147144114,0.0716896996766,0.0717032429395,0.0716896996766,0.0716584459929,0.0717167862025,0.0718240905165,0.0720334901973,0.0723533195605,0.0723876986126,0.0724772925059,0.0725220894525,0.0723856150337,0.0727137787126,0.0728825486046,0.0728773396573,0.0728794232362,0.0726148087142,0.0725158387158,0.0725950147145,0.0725658446097,0.0726700235554,0.0727950382902,0.0726960682918,0.0724845850321,0.072365821034,0.0724408298749,0.0723533195605,0.0723876986126,0.0722991465088,0.0723751971391,0.0724106179807,0.0724585402957,0.0727179458704,0.0729971454448,0.0732190465991,0.0731263273374,0.0733471867023,0.0733409359655,0.0732430077566,0.0731992525994,0.0731419541793,0.0731648735473,0.0728523367103,0.0726814832394,0.0725887639778,0.0726762742921,0.0726793996605,0.0725752207148,0.0727825368167,0.072751283133,0.0729106769199,0.0728752560784,0.0732117540729,0.0732794703876,0.0734055269118,0.0736420131185,0.0737201473278,0.0738941261671,0.0738868336409,0.0739639260607,0.0737201473278,0.0737420249064,0.0734659507003,0.0734169865959,0.0734024015435,0.0732284227042,0.0731450795477,0.073328434492,0.0734440731217,0.0733878164911,0.0736461802764,0.0736868100652,0.0738430784837,0.0738118248,0.0739097530089,0.073823284484,0.0739243380613,0.073702436907,0.073437822385,0.0737993233265,0.0736326370134,0.0737243144856,0.073665974276,0.0737566099588,0.0737586935377,0.0738337023786,0.0737566099588,0.0738889172198,0.07409935869,0.0738837082725,0.0740253916386,0.0740722721642,0.0738587053255,0.0738628724834,0.0739430902715,0.0738430784837,0.0737847382741,0.0736472220658,0.0735784639617,0.0733555210179,0.0733638553336,0.0732065451256,0.0733607299652,0.0732930136505,0.0733148912291,0.0733326016499,0.0735326252256,0.0734784521738,0.0734940790157,0.0736618071182,0.0735961743824,0.0738295352207,0.0739472574294,0.073955591745,0.0739972633233,0.0739649678501,0.0739733021658,0.0741337377421,0.0742545853191,0.0743441792124,0.074304591213,0.0742879225817,0.0741556153207,0.0741326959527,0.0741139437424,0.0743087583708,0.0741806182677,0.0741306123737,0.0740847736376,0.0740556035329,0.0741504063734,0.0739066276405,0.0741733257415,0.0743931433168,0.0742743793188,0.0742764628977,0.0742754211082,0.074402519422,0.0743556388964,0.0743650150015,0.0743879343696,0.0743754328961,0.0741514481629,0.0739462156399,0.0739055858511,0.0738524545888,0.0738566217466,0.07371598017,0.0736805593284,0.0737013951176,0.0736555563815,0.0736555563815,0.0735680460671,0.0735253326994,0.0734669924898,0.0735086640681,0.0733794821754,0.0734586581741,0.0734794939633,0.0734586581741,0.0735961743824,0.0736784757495,0.0737201473278,0.0739712185869,0.074017057323,0.0738993351143,0.0741160273213,0.0666964028104,0.0592976140886,0.0519029925246,0.0443604368577,0.0)
m <- c(0.0440769407995,0.0513331800847,0.0585977514949,0.0658237868273,0.0731873022207,0.0730550297377,0.0732966613602,0.0730362824567,0.0730394070035,0.0729883727384,0.0728790135989,0.0731706379709,0.0732122985955,0.0731810531271,0.0731123130965,0.0732341704234,0.0732050079862,0.073362276844,0.0733799826094,0.0734039374685,0.0734101865622,0.0732654158918,0.0732591667981,0.0734924662957,0.0735164211549,0.0735122550924,0.0734664284054,0.0735018399363,0.0734549717336,0.073481009624,0.07356745542,0.0736695239502,0.0736632748565,0.0735695384512,0.0736476521223,0.0737309733714,0.0737372224651,0.073740347012,0.0737465961057,0.0737215997309,0.0737559697462,0.0736039084665,0.073526836311,0.0735570402638,0.0734591377961,0.0733685259376,0.0734320583901,0.073672648497,0.0735924517947,0.0736414030286,0.0736361954505,0.0736424445442,0.0738028379488,0.0738372079641,0.0740267638059,0.0739767710564,0.0738382494797,0.0737215997309,0.0738694949481,0.0738007549176,0.0738070040113,0.0738070040113,0.0739174046664,0.073845540089,0.0737299318558,0.0737611773243,0.0739361519475,0.0736643163721,0.0735903687635,0.0735716214824,0.0736039084665,0.0735028814519,0.0734226847496,0.0734466396087,0.0734705944678,0.0735174626705,0.0733185331882,0.0734455980931,0.0734737190147,0.0735122550924,0.0734133111091,0.0736247387788,0.073699727903,0.0737215997309,0.0737257657934,0.0737122260904,0.073786173699,0.0739174046664,0.0739017819322,0.0739673974159,0.0740403035089,0.0740350959308,0.0740080165249,0.0740632168524,0.0741527871952,0.074164243867,0.0742069460072,0.0742381914756,0.0742225687414,0.07417778357,0.0739673974159,0.0738444985734,0.0738007549176,0.0739340689162,0.073899698901,0.0739111555727,0.0738601213076,0.0737518036837,0.0738757440418,0.0739330274006,0.0740902962584,0.0742631878504,0.0742444405693,0.0740121825873,0.0739871862126,0.0740882132272,0.0741934063042,0.0740486356338,0.073945525588,0.0739976013687,0.0740694659461,0.0739111555727,0.0736226557475,0.0737195166997,0.0735612063263,0.0733966468592,0.0733133256101,0.0733612353283,0.0733102010632,0.0731862607051,0.0729883727384,0.0729665009105,0.0731196037058,0.0729852481916,0.0731685549397,0.0732445855795,0.0732122985955,0.0732529177044,0.0732872877197,0.0733424880473,0.0734955908426,0.0736174481695,0.0736372369661,0.0736393199974,0.0735497496545,0.0734955908426,0.0732706234699,0.07313522644,0.0730706524719,0.0731154376434,0.0731258527995,0.0729852481916,0.0732268798141,0.0731248112839,0.0730873167218,0.072943587567,0.0730612788314,0.0732383364858,0.0732820801416,0.0731498076586,0.0729508781763,0.0731654303928,0.0729987878945,0.0731570982679,0.0731258527995,0.0732206307204,0.0733747750313,0.0732518761888,0.0730904412686,0.0730237842693,0.0730310748786,0.0726259253046,0.0726686274448,0.0727321598973,0.0725915552893,0.072651963195,0.0724696979625,0.0725311473837,0.0727748620375,0.0728581832866,0.0729175496766,0.0731581397835,0.0731060640028,0.0727529902096,0.0728446435836,0.072738408991,0.0726363404607,0.0725551022428,0.0723082630422,0.0720832956695,0.0719166531712,0.0717406370324,0.071509420566,0.0714937978318,0.0713146571461,0.0712813286465,0.0712625813654,0.0711417655541,0.071071984008,0.0712334189282,0.0711782186007,0.0712729965216,0.0713469441302,0.0715219187534,0.0716291948617,0.0716281533461,0.071595866362,0.0716833536736,0.0716198212211,0.0714844241913,0.0715375414876,0.0714792166132,0.0714021444577,0.0714688014571,0.0715000469255,0.0712823701621,0.0712511246937,0.0713104910837,0.0712688304591,0.0713302798803,0.071250083178,0.0712844531933,0.0713990199109,0.0712521662093,0.0710917728047,0.0712000904286,0.0712521662093,0.0710365724771,0.0710438630864,0.0708563902758,0.0708761790725,0.0707220347616,0.0704543652487,0.0703720855151,0.0703200097344,0.0703002209377,0.0702189827198,0.0701783636109,0.0700981669086,0.0700398420342,0.0700544232528,0.0699690189724,0.0699877662534,0.0698909053013,0.069997139894,0.0698919468169,0.0698554937704,0.0698461201299,0.0698044595053,0.0698409125518,0.0698263313332,0.0698159161771,0.0697909198023,0.0697325949279,0.0695305408987,0.0695690769765,0.0694638838994,0.0694565932901,0.0694003514469,0.069451385712,0.0694253478217,0.0692847432138,0.0692795356357,0.0690743570597,0.0691378895121,0.0689670809514,0.068995201873,0.068808770578,0.0689983264198,0.068841057562,0.0685640144086,0.0685723465335,0.068535893487,0.0687598193441,0.0685994259395,0.0685723465335,0.0685161046904,0.0686233807986,0.0685411010651,0.0686265053455,0.068562972893,0.0684140361602,0.0683817491761,0.0682703070054,0.0684119531289,0.0684598628472,0.0683744585668,0.068257808818,0.0681026229915,0.0681015814758,0.0680994984446,0.0682317709276,0.0680797096479,0.0681369930067,0.0680609623669,0.068025550836,0.0680838757104,0.0681349099755,0.0681338684599,0.0680942908665,0.0683348809735,0.0682536427555,0.0683463376452,0.0682234388027,0.0682942618645,0.0681515742253,0.0681734460532,0.068211982131,0.0684317419256,0.0684734025502,0.0684296588944,0.0685192292372,0.0685348519714,0.0685806786584,0.0685046480186,0.0686639999076,0.0685838032053,0.0684734025502,0.0682828051927,0.0680859587416,0.0680411735702,0.0679484786805,0.0677245528234,0.0676401900587,0.067561034872,0.067533955466,0.0677360094952,0.0678557837909,0.0679734750553,0.068125536335,0.068125536335,0.0679859732427,0.0681213702725,0.0679776411177,0.0679401465556,0.0678026664945,0.0677974589165,0.0676891412926,0.0675047930288,0.0673058635465,0.0672110856256,0.0674766721072,0.0674173057172,0.0675787406374,0.0673995999518,0.0674485511856,0.0673443996242,0.067288157781,0.0673943923737,0.067442302092,0.067342316593,0.0672694105,0.0673995999518,0.0674360529983,0.0674204302641,0.0673704375146,0.0672621198907,0.0673006559684,0.0673485656867,0.0674120981391,0.0675110421225,0.0673298184056,0.0672548292814,0.0672194177505,0.0674954193883,0.0676756015896,0.0678224552912,0.0679141086653,0.0677360094952,0.0676912243238,0.0675964464029,0.0677412170733,0.0678828631968,0.0679682674772,0.0680505472107,0.0679765996021,0.0678318289317,0.0678443271191,0.068130743913,0.0681671969595,0.0684723610346,0.0683755000824,0.0683702925043,0.0683536282545,0.0683473791608,0.0684317419256,0.0684484061754,0.0684775686126,0.068303635505,0.0683369640047,0.0682005254592,0.0683963303947,0.0684931913468,0.0684140361602,0.0682734315522,0.0682921788333,0.0684723610346,0.068476527097,0.0683921643323,0.0685150631747,0.0685473501588,0.0687098265946,0.0686160901893,0.0688525142338,0.0689472921547,0.0689441676079,0.0688733445461,0.0688608463587,0.0690514437161,0.0691430970902,0.0693607738536,0.0692253768237,0.0694066005406,0.0693503586975,0.0693045320104,0.0693336944476,0.0693243208071,0.0693753550722,0.0695128351333,0.0694805481493,0.0692774526045,0.0693368189945,0.0692503731985,0.0691847577148,0.0694315969154,0.0695763675858,0.0697107231,0.0696669794442,0.0696857267253,0.0698179992083,0.0700919178149,0.0701502426893,0.0701783636109,0.0703918743118,0.0703627118746,0.0704252028115,0.0706460041217,0.0708136881356,0.0708074390419,0.0707876502453,0.0706741250433,0.0706439210905,0.0709282548532,0.0710344894459,0.0712854947089,0.0713011174431,0.0712032149754,0.0712334189282,0.0711886337568,0.0712032149754,0.0715458736125,0.0717802146257,0.0715854512059,0.0717406370324,0.0715906587839,0.0718645773905,0.0720093480609,0.0721884887466,0.0724072070256,0.072697789882,0.0726165516641,0.0727415335378,0.0728738060208,0.0727540317252,0.0729362969577,0.0728915117863,0.0729862897072,0.0731331434088,0.0732893707509,0.0732612498294,0.073308118032,0.073348737141,0.0735684969356,0.0738215852299,0.0738778270731,0.0739996843999,0.07405905079,0.0741767420544,0.0743340109121,0.074396501849,0.0745527291912,0.074828730829,0.0747808211107,0.0749526711871,0.0751536837006,0.0752130500907,0.075466138385,0.0755484181185,0.0755661238839,0.0757150606168,0.0758598312872,0.0756952718201,0.075990020739,0.0758796200838,0.0760837571443,0.0761337498938,0.0761889502213,0.0763160151263,0.076540982499,0.0767742819966,0.077010706041,0.0772179676483,0.0772252582576,0.0775387544575,0.0776668608781,0.0778887037039,0.0778168391266,0.0781042974361,0.0781157541079,0.0780490971086,0.0779970213278,0.0781574147324,0.0783011438872,0.0783594687616,0.0784146690892,0.0786094325091,0.0788708529283,0.0789739629741,0.0791989303468,0.0795520041401,0.0797373939194,0.0798227981998,0.0801394189466,0.0802185741333,0.0803654278349,0.0803654278349,0.080662259785,0.0805747724734,0.080548734583,0.080581021567,0.080767452862,0.0809070159543,0.0809486765789,0.0809872126566,0.0812361348885,0.0813465355436,0.0814381889177,0.0816475335561,0.0819204106471,0.0820412264584,0.0821672498477,0.0823651378144,0.0824849121101,0.0827900761851,0.0828109064974,0.0830223341671,0.0829765074801,0.0828723559186,0.083011919011,0.0833212491484,0.0833566606793,0.0836420359576,0.0837586857064,0.0838534636274,0.0840086494539,0.0841982052957,0.0845471130265,0.0849043528822,0.0851459845048,0.0851501505672,0.0854657297984,0.085785475092,0.0859885706368,0.0862208286188,0.0863041498679,0.0864562111476,0.0865322417875,0.08671450702,0.0868176170658,0.0869498895488,0.0870936187036,0.0869446819708,0.087033210798,0.0871602757029,0.0874102394504,0.0876643692603,0.0879039178516,0.0880601451937,0.0881153455213,0.0883746829093,0.0883476035033,0.0883913471591,0.0887933721862,0.089082913527,0.0892016463071,0.0893141299934,0.0894922291635,0.0895463879754,0.0896547055993,0.0896359583183,0.0898734238783,0.0901338027819,0.09013901036,0.0900817270012,0.0903108604364,0.0904452159506,0.0905389523559,0.0909836795232,0.091432572753,0.0919116699356,0.0923261931501,0.0929198570503,0.0936135064495,0.0944977532061,0.0954642796962,0.0962339597352,0.0974264951136,0.0985638301645,0.099502235733,0.100363569146,0.101157204044,0.101719622476,0.102253919986,0.102634073185,0.10291319937,0.103327722585,0.103426666568,0.103387088975,0.10331939046,0.103241276789,0.103513112364,0.103819317955,0.104038036234,0.104287999981,0.104489012495,0.10467544379,0.104910826318,0.105036849708,0.105428459579,0.105754453966,0.10598150437,0.106061701072,0.10617626779,0.106146063837,0.106143980806,0.106266879648,0.106288751476,0.106379363335,0.106567877661,0.106770973206,0.106860543548,0.10712613003,0.107206326732,0.107383384387,0.10770312968,0.107918723413,0.108165562613,0.10838948847,0.108417609392,0.108483224876,0.108546757328,0.108616538874,0.108918578402,0.109456000459,0.10955077838,0.109665345098,0.109743458769,0.109938222189,0.110395447544,0.11077872529,0.111112010286,0.111385928893,0.111468208626,0.111590065953,0.111710881765,0.111937932168,0.112056664948,0.112096242542,0.112156650447,0.112201435619,0.112211850775,0.1122535114,0.112503475147,0.112455565429,0.112793016488,0.113064852063,0.113315857326,0.113621021401,0.113800162087,0.113929310023,0.114438611159,0.114617751844,0.114777103733,0.115171838151,0.115323899431,0.115454088883,0.115672807162,0.116048794298,0.116084205829,0.116435196591,0.116598714543,0.116912210743,0.116808059181,0.116970535617,0.117170506615,0.11715280085,0.117248620286,0.117177797224,0.117495459487,0.117436093097,0.117346522754,0.117407972175,0.118054753372,0.117936020592,0.117876654201,0.118281803775,0.11838283079,0.118590092397,0.118598424522,0.118923377394,0.119345191218,0.119455591873,0.119093144439,0.119391017905,0.119797208994,0.119701389558,0.119770129588,0.1198576169,0.120043006679,0.120045089711,0.119935730571,0.120076335179,0.12032317438,0.120414827754,0.120278389208,0.120578345705,0.120805396109,0.12072207486,0.12078144125,0.120803313078,0.120894966452,0.120903298577,0.120889758874,0.120709576673,0.120721033344,0.120730406985,0.120671040595,0.120816852781,0.120758527906,0.1207314485,0.120615840267,0.120393997441,0.120643961189,0.120676248173,0.120848098249,0.120791856406,0.120851222796,0.121020989841,0.121195964464,0.12113763959,0.121087646841,0.121252206308,0.121013699232,0.120891841905,0.120475235659,0.120214856756,0.120047172742,0.119904485103,0.119614943762,0.119673268636,0.119548286763,0.119477463701,0.119405599123,0.119551411309,0.119631608012,0.119625358918,0.119624317402,0.11941601428,0.119199379032,0.119070231096,0.119108767173,0.119272285125,0.119404557608,0.119250413297,0.11908585383,0.118775482177,0.118535933585,0.11846823507,0.118552597835,0.11837345715,0.118118285824,0.117961016966,0.117495459487,0.117359020941,0.117230914521,0.11749233494,0.117357979426,0.117257993927,0.117038234132,0.116902837102,0.116817432822,0.116447694779,0.116439362654,0.116163361016,0.115946725768,0.115905065144,0.115862363003,0.115561364991,0.115334314587,0.115182253307,0.115064562043,0.114739609171,0.11439799205,0.114567759095,0.114441735705,0.113808494212,0.113544990761,0.113387721904,0.113467918606,0.113245034264,0.113167962109,0.112940911705,0.112912790783,0.112594087005,0.112452440882,0.112439942695,0.112346206289,0.112260802009,0.111953554903,0.11201604584,0.111640058703,0.11174525178,0.111770248155,0.111477582267,0.111376555252,0.111207829723,0.110959949007,0.1106527019,0.110429817559,0.110034041625,0.109787202425,0.109741375738,0.10940600771,0.109304980695,0.109239365212,0.109131047588,0.108874834747,0.108645701311,0.108483224876,0.108229095066,0.108088490458,0.107573981744,0.107214658857,0.106978234813,0.106576209786,0.106272087226,0.106187724462,0.106210637805,0.105880477355,0.105724250013,0.105730499107,0.105700295154,0.105776325794,0.105612807842,0.105262858596,0.105098299129,0.104828546585,0.104620243462,0.104379653355,0.104224467529,0.103854729485,0.103583935426,0.10314129129,0.102997562135,0.103072551259,0.102848625402,0.102623658029,0.102233089674,0.102069571722,0.101832106162,0.101670671242,0.101673795789,0.101551938462,0.101374880808,0.10102284853,0.100868704219,0.100703103236,0.100659359581,0.10075934508,0.100612491378,0.100568747722,0.100185469976,0.100203175742,0.100116729946,0.0999969556499,0.0999511289628,0.0999636271502,0.100189636039,0.0998678077137,0.0997490749336,0.0993501744533,0.0990700067531,0.0988117108807,0.0984659276968,0.0984128104004,0.0980347402324,0.0978503919687,0.0971223725542,0.0965412068414,0.0959621241598,0.0953320072132,0.0947414678598,0.0940905206009,0.0934124939359,0.092329317697,0.0914221575969,0.0902181655467,0.0893255866652,0.0887715003583,0.0883173995505,0.0881840855518,0.0878799629925,0.0873081709202,0.0868155340346,0.0868436549562,0.0866186875835,0.0864187165855,0.0863510180706,0.0861583376819,0.085817762076,0.0854917676887,0.0852084754416,0.0850376668809,0.0848481110391,0.08451065998,0.0843867196219,0.0844085914498,0.084278401998,0.0839242866891,0.0838503390805,0.0835482995523,0.0835326768181,0.0834639367876,0.0832566751803,0.0830108774953,0.0826973812954,0.0824994933287,0.082320352643,0.0825224066722,0.082460957251,0.0824224211732,0.0821776650039,0.0819651958185,0.082001648865,0.081855836679,0.0818641688039,0.0816652393216,0.0815767104944,0.0812777955131,0.0811069869523,0.0809913787191,0.0808601477517,0.0808039059085,0.0806539276601,0.0805341533644,0.0805914367232,0.0805726894421,0.0803081444761,0.0800623467911,0.0799352818861,0.0797040654198,0.0795499211088,0.0793239122205,0.0791562282066,0.0790843636292,0.0789125135529,0.0787927392572,0.0786750479928,0.0786011003842,0.0784302918234,0.0782219887005,0.0780334743743,0.077880371579,0.0778512091418,0.0777168536276,0.0775085505047,0.0772679603978,0.0772252582576,0.0770502836344,0.076878433558,0.0769575887447,0.07699195876,0.0768867656829,0.0766711719508,0.0766201376857,0.0762420675176,0.0761170856439,0.0760191831762,0.0760556362227,0.0758514991623,0.0755317538687,0.0753494886361,0.0751995103877,0.0751328533884,0.0750245357645,0.0751828461378,0.0752495031372,0.0751016079199,0.0750651548734,0.0752515861684,0.0752297143405,0.0750578642641,0.0748891387346,0.074920384203,0.0746985413772,0.0745548122224,0.0743798375992,0.0741382059766,0.0739444840724,0.0738017964332,0.0736945203249,0.0734903832645,0.0734570547649,0.0732372949702,0.0732341704234,0.0732831216573,0.0731383509869,0.073189385252,0.0731289773463,0.0730081615351,0.0729040099736,0.0731612643304,0.0733018689383,0.0732164646579,0.0729977463789,0.0728967193643,0.0727321598973,0.0726915407883,0.0724342864316,0.0721426620595,0.0719656044051,0.0718645773905,0.0717635503759,0.071655232752,0.071787505235,0.0715906587839,0.0715927418152,0.0713323629116,0.0713646498956,0.0712990344119,0.071404227489,0.0710594858206,0.0708793036193,0.0706959968712,0.0706637098872,0.070553309232,0.0703335494374,0.0703408400467,0.0702825151723,0.0703970818899,0.07032105125,0.0704501991862,0.0704626973736,0.070493942842,0.0704699879829,0.0704533237331,0.0704252028115,0.0703137606407,0.0704606143424,0.0703231342813,0.0702262733291,0.0701377445019,0.0701773220953,0.0701127481272,0.0697555082714,0.0697419685685,0.0698336219425,0.0699304828947,0.0696565642881,0.0696305263977,0.0695170011958,0.0694847142117,0.0691930898397,0.0693816041659,0.069610737601,0.0695482466642,0.0694951293679,0.069246207136,0.0691399725434,0.0691899652928,0.0692764110888,0.0692222522769,0.0692587053234,0.0690201982477,0.0689785376231,0.0689212542643,0.0688577218119,0.0691493461839,0.0692337089486,0.0691045610125,0.0689181297175,0.0689170882019,0.0689837452012,0.0689097975926,0.068722324782,0.0687452381255,0.0686910793136,0.0684671534565,0.0686150486737,0.0684109116133,0.0683921643323,0.0681494911941,0.0680755435855,0.0680724190386,0.0680797096479,0.0680963738978,0.0679672259616,0.0681099136008,0.0679463956493,0.0679286898839,0.0680349244765,0.0681109551164,0.0679411880712,0.0679578523211,0.0680338829609,0.0678891122905,0.068157823319,0.0681807366625,0.0680338829609,0.0682473936619,0.0680911663197,0.0682244803183,0.0682515597243,0.0682609333648,0.0682786391303,0.0682401030526,0.0679838902114,0.067833911963,0.0679161916965,0.0679089010872,0.068111996632,0.0679755580865,0.0679693089928,0.0678974444154,0.0677974589165,0.0678464101503,0.0679786826334,0.0679089010872,0.0679213992746,0.0677464246513,0.0676880997769,0.0677162206985,0.0679026519935,0.067952644743,0.067952644743,0.0679568108054,0.0679703505084,0.0680703360074,0.0679703505084,0.0679890977895,0.0680057620393,0.067979724149,0.0677328849484,0.0678078740726,0.0677891267915,0.0677755870886,0.0677693379949,0.0678682819782,0.0679089010872,0.0680213847735,0.0679307729151,0.0680005544613,0.0681099136008,0.067925565337,0.0680015959769,0.0679026519935,0.0679141086653,0.0675985294341,0.0676079030746,0.0675235403099,0.067515208185,0.0675349969816,0.0675318724348,0.0676808091676,0.0676266503557,0.0677412170733,0.0677193452454,0.0677130961517,0.0676151936839,0.0677485076826,0.0677318434327,0.0676297749025,0.0677693379949,0.0676422730899,0.067533955466,0.0675766576062,0.0677214282766,0.0680932493509,0.0681953178811,0.0681276193662,0.0680963738978,0.0680692944918,0.0678693234938,0.0679130671496,0.0680151356799,0.0680807511636,0.0679818071802,0.0677433001045,0.0677901683072,0.0678568253065,0.0678505762128,0.0681151211788,0.0682786391303,0.0683942473635,0.0685233952997,0.0684202852538,0.0616160637453,0.0548524613456,0.0480347001341,0.0411867349697,0.0)
ycorr <- c(0.000104506908309,0.000104419105401,0.000104155556064,0.000103709636905,0.000103076565037,0.000102248997237,0.000101220861798,0.000100199004238,9.91780497484e-05,9.81552165394e-05,9.713003403e-05,9.6095521919e-05,9.504212121e-05,9.39643245826e-05,9.28638849128e-05,9.17487746636e-05,9.06231260743e-05,8.94925557426e-05,8.83617776782e-05,8.72317343967e-05,8.61038480962e-05,8.49785713511e-05,8.38521948984e-05,8.2726462264e-05,8.16015461168e-05,8.04732648678e-05,7.93421245664e-05,7.82048126429e-05,7.70545862915e-05,7.58902127376e-05,7.47124766833e-05,7.35203992802e-05,7.23185651354e-05,7.11127379223e-05,6.99055549846e-05,6.86964097875e-05,6.74831981604e-05,6.62575555595e-05,6.5025927845e-05,6.37905331754e-05,6.25499823418e-05,6.13020197981e-05,6.00414047796e-05,5.87605415811e-05,5.74573019319e-05,5.61305373137e-05,5.47825477577e-05,5.34203889535e-05,5.20495606974e-05,5.06663039278e-05,4.92721607789e-05,4.78684079536e-05,4.64571806161e-05,4.50447613254e-05,4.36354179984e-05,4.22288907232e-05,4.08243328279e-05,3.94220974954e-05,3.80146930336e-05,3.65980729529e-05,3.51703038936e-05,3.37267801459e-05,3.22668559266e-05,3.07905202526e-05,2.92916532901e-05,2.77744573963e-05,2.62412986812e-05,2.46896271725e-05,2.31185238005e-05,2.15337356522e-05,1.99382627426e-05,1.83334678709e-05,1.67294265353e-05,1.5122480674e-05,1.35110398936e-05,1.18950762507e-05,1.02749369756e-05,8.6466807227e-06,7.0150036282e-06,5.38353771604e-06,3.74953654484e-06,2.11668880938e-06,4.78424437694e-07,-1.1675742829e-06,-2.81588647205e-06,-4.46493108195e-06,-6.12155934129e-06,-7.78277348303e-06,-9.44649661061e-06,-1.11205745053e-05,-1.28055485626e-05,-1.45021912593e-05,-1.62109368057e-05,-1.79273566835e-05,-1.96601867266e-05,-2.14084879899e-05,-2.31649698196e-05,-2.49248277648e-05,-2.66991218947e-05,-2.84810487274e-05,-3.02655315072e-05,-3.20563907139e-05,-3.3853429811e-05,-3.56569571733e-05,-3.74579676931e-05,-3.92557081048e-05,-4.10547557118e-05,-4.28627947376e-05,-4.46702777535e-05,-4.64816094524e-05,-4.83021413532e-05,-5.0124929144e-05,-5.19521747803e-05,-5.37822295876e-05,-5.56191726503e-05,-5.74684716925e-05,-5.93271547965e-05,-6.11900734384e-05,-6.30578563654e-05,-6.4931749484e-05,-6.68051125807e-05,-6.86827641724e-05,-7.05654781989e-05,-7.24521723051e-05,-7.43404795451e-05,-7.62252831589e-05,-7.81122374362e-05,-7.99974849158e-05,-8.18879936766e-05,-8.37828543107e-05,-8.56864502203e-05,-8.75998229393e-05,-8.95194626412e-05,-9.1442768485e-05,-9.33683070607e-05,-9.5299619544e-05,-9.72343039632e-05,-9.91696364534e-05,-0.00010110332804,-0.000103030218488,-0.000104948511225,-0.000106855194157,-0.000108748333849,-0.000110635336297,-0.000112519738954,-0.000114403031939,-0.000116282854079,-0.000118168146419,-0.000120055400872,-0.000121950945244,-0.000123855903433,-0.000125768924657,-0.000127687562947,-0.000129611537557,-0.000131537488532,-0.000133471258757,-0.000135413471129,-0.000137359954216,-0.000139307645217,-0.000141252244821,-0.000143192465483,-0.000145129565869,-0.000147068576112,-0.000149009311538,-0.000150951634852,-0.000152890480858,-0.000154816267219,-0.000156729503997,-0.000158631601249,-0.000160529181982,-0.000162422834407,-0.000164317074612,-0.000166208959536,-0.000168097899563,-0.000169985949594,-0.000171871438368,-0.000173758395944,-0.000175649040778,-0.000177544414259,-0.000179448865273,-0.000181358047017,-0.00018327021523,-0.000185181997895,-0.000187096628662,-0.000189011794026,-0.000190922430933,-0.000192829270494,-0.000194735328616,-0.000196641435391,-0.000198536562745,-0.000200422281241,-0.000202296882108,-0.000204169252351,-0.000206034427521,-0.000207893638844,-0.000209746191379,-0.000211600764569,-0.000213455840158,-0.000215305188861,-0.00021715394061,-0.000219009522772,-0.000220868685816,-0.00022272888568,-0.000224591160469,-0.000226453330372,-0.000228319320469,-0.000230191768496,-0.00023206388001,-0.000233940147766,-0.000235819390984,-0.000237697828,-0.000239575142233,-0.000241449983667,-0.000243320517712,-0.000245183161174,-0.000247047661329,-0.000248905710165,-0.000250759083233,-0.000252614420989,-0.000254469662434,-0.000256319888328,-0.000258164825757,-0.000260005386918,-0.000261842457211,-0.000263681125418,-0.000265515290274,-0.000267339628894,-0.000269157648216,-0.000270964370323,-0.000272758954338,-0.000274546741028,-0.000276337207946,-0.000278127795749,-0.000279918018225,-0.000281710068188,-0.000283501011406,-0.000285298415476,-0.000287099868637,-0.000288898967353,-0.000290699155443,-0.000292497051298,-0.000294286552412,-0.000296063579768,-0.000297833782241,-0.000299595543374,-0.000301348809953,-0.00030309187459,-0.000304826949134,-0.000306562089671,-0.000308298349023,-0.000310034263699,-0.000311769727,-0.000313509436432,-0.000315254344278,-0.000317002998312,-0.000318758961309,-0.000320520350603,-0.000322287035263,-0.000324050031266,-0.000325806265658,-0.000327560733495,-0.000329316330269,-0.000331077930883,-0.000332838890896,-0.00033459731385,-0.000336349249752,-0.000338095051766,-0.000339836957863,-0.000341578801526,-0.000343325588973,-0.000345076052977,-0.000346831635505,-0.000348582569419,-0.000350328566167,-0.000352069595244,-0.000353805692715,-0.0003555400263,-0.000357266311503,-0.000358987728765,-0.0003607012688,-0.000362409169276,-0.000364100667384,-0.00036576961873,-0.000367418201425,-0.000369039149206,-0.000370632408985,-0.000372195237919,-0.000373724642778,-0.000375212015319,-0.000376646781387,-0.000378019190971,-0.000379329197226,-0.000380591286234,-0.000381810985223,-0.000383000477665,-0.000384164639914,-0.000385304353196,-0.000386422854852,-0.000387531590479,-0.000388642851913,-0.000389763638215,-0.000390906729715,-0.000392069636143,-0.000393244358024,-0.000394427441843,-0.000395611680353,-0.000396797882948,-0.000397988803467,-0.000399184021995,-0.00040037801574,-0.000401574309993,-0.000402771525989,-0.000403962800042,-0.000405150590195,-0.00040633591573,-0.000407522350784,-0.000408709798467,-0.000409894745653,-0.000411075231111,-0.000412248882203,-0.000413413274914,-0.000414564052676,-0.000415708178011,-0.000416851598733,-0.000417993051909,-0.00041913209556,-0.000420264861254,-0.000421395701155,-0.00042252345059,-0.000423652620337,-0.000424783759066,-0.000425917559472,-0.000427050141827,-0.000428173144406,-0.000429286951201,-0.000430390109695,-0.000431487591414,-0.000432579032023,-0.000433659710408,-0.000434734724533,-0.000435801586821,-0.000436859530573,-0.000437905975166,-0.000438946441178,-0.00043997748193,-0.000440999379805,-0.000442010872616,-0.000443010663525,-0.00044400150004,-0.000444982137963,-0.000445948959789,-0.000446899459658,-0.000447839322395,-0.000448768709303,-0.000449685128093,-0.00045059081282,-0.000451484067709,-0.000452367796867,-0.00045324128469,-0.000454100807527,-0.000454947833273,-0.000455785935403,-0.000456614392768,-0.000457429720415,-0.000458238175086,-0.000459040762359,-0.000459837403767,-0.000460624602884,-0.00046140150432,-0.000462164359202,-0.000462915736414,-0.000463656498806,-0.000464385787672,-0.000465102167681,-0.000465803347995,-0.000466487242354,-0.000467153477697,-0.000467806574633,-0.000468450295327,-0.000469085673199,-0.000469717349771,-0.000470342337253,-0.000470960093457,-0.000471572307362,-0.000472180978504,-0.000472786176978,-0.000473383168961,-0.000473973150654,-0.000474548669262,-0.000475111487793,-0.00047565867499,-0.000476186156459,-0.000476696352905,-0.000477188917009,-0.000477661716547,-0.000478113597461,-0.000478549012759,-0.000478967244568,-0.000479369545917,-0.000479762054709,-0.000480139737112,-0.000480504565373,-0.000480858580607,-0.000481199891899,-0.000481526306125,-0.000481842439799,-0.000482152210685,-0.000482451081305,-0.000482737294256,-0.000483005920551,-0.000483253256605,-0.000483485193085,-0.000483696116138,-0.000483886265402,-0.000484055347632,-0.000484203731337,-0.000484325516094,-0.000484418983912,-0.000484493091367,-0.000484549181072,-0.000484593070249,-0.000484620739907,-0.000484631315498,-0.000484626002106,-0.000484608931762,-0.000484575455089,-0.000484526650809,-0.000484460636901,-0.000484378944759,-0.000484273927185,-0.000484146098333,-0.000483995594489,-0.000483828739674,-0.00048364666184,-0.000483450963971,-0.000483240422437,-0.000483020749441,-0.000482791490148,-0.000482550764543,-0.00048229747593,-0.000482030553627,-0.000481749686478,-0.000481453907924,-0.000481138656169,-0.000480800191913,-0.000480440463343,-0.000480057940738,-0.00047965350507,-0.000479223383468,-0.000478772817892,-0.000478303089045,-0.000477817652884,-0.000477313132316,-0.000476790060925,-0.00047624982097,-0.000475692824718,-0.000475112552086,-0.000474513086763,-0.000473896573795,-0.000473264488871,-0.000472615506209,-0.000471944205086,-0.00047124886294,-0.00047053614303,-0.000469804437335,-0.00046905499012,-0.000468289563135,-0.000467508166753,-0.000466706335054,-0.000465879845765,-0.0004650294944,-0.000464158899753,-0.000463272058912,-0.000462365382991,-0.000461435233758,-0.00046047924432,-0.000459497801918,-0.000458486224024,-0.000457447944347,-0.00045638537956,-0.000455299308442,-0.000454189516223,-0.000453056047124,-0.000451894474223,-0.000450709182053,-0.000449500206541,-0.000448269867529,-0.000447019708715,-0.000445751490067,-0.000444466699932,-0.000443160274739,-0.000441834653262,-0.000440486325627,-0.000439111873483,-0.000437718097474,-0.000436305084532,-0.000434871715833,-0.000433416944603,-0.000431941716121,-0.000430443139101,-0.000428926144632,-0.000427390775481,-0.000425832076229,-0.000424260039076,-0.000422667532055,-0.000421054418661,-0.000419417472569,-0.00041776128066,-0.000416083411973,-0.000414380934666,-0.000412653682463,-0.000410896826398,-0.000409114382348,-0.000407307412106,-0.000405474215002,-0.000403616239304,-0.000401731973134,-0.000399822473404,-0.000397883990529,-0.000395920044877,-0.000393932703576,-0.000391922497742,-0.000389890962913,-0.000387832651845,-0.000385750549355,-0.000383643070096,-0.000381518496675,-0.000379374661681,-0.00037721319353,-0.00037503442644,-0.000372835739704,-0.000370617823085,-0.000368380510183,-0.0003661237552,-0.000363850532204,-0.000361557239209,-0.000359238493512,-0.000356892793001,-0.000354521798663,-0.000352126865861,-0.000349709499817,-0.000347272249901,-0.000344811579996,-0.000342331170453,-0.000339826418782,-0.000337299271175,-0.00033475334093,-0.000332187749318,-0.000329602123947,-0.000326992656029,-0.000324358669408,-0.000321694392988,-0.000319000987369,-0.000316277111262,-0.000313523558232,-0.000310744573261,-0.000307936929925,-0.000305102864714,-0.00030224391915,-0.000299359319073,-0.000296450233304,-0.000293516236114,-0.000290562234108,-0.000287588510287,-0.000284596890152,-0.000281583278344,-0.000278549734672,-0.000275493310504,-0.000272410055707,-0.000269305388966,-0.000266180777215,-0.000263040546204,-0.000259882965858,-0.000256707172781,-0.000253508568417,-0.000250289565786,-0.000247050063305,-0.000243789848433,-0.000240514039774,-0.000237224563691,-0.000233916464199,-0.000230584983128,-0.000227230484433,-0.000223856678586,-0.000220464320201,-0.000217057151512,-0.000213633340588,-0.000210195575424,-0.000206741260129,-0.000203264594776,-0.000199655600427,-0.00019581478393,-0.000191659734728,-0.000187121925878,-0.000181603423076,-0.000177174568472,-0.000173180100597,-0.000169538543451,-0.000166151267091,-0.000162897609432,-0.000159661661034,-0.000156552748198,-0.000153671971796,-0.000151102055599,-0.000148912366482,-0.000147699372951,-0.000145392241659,-0.000142645859281,-0.000139542064853,-0.000136180997498,-0.000132684753728,-0.000129172913901,-0.000125644732182,-0.000122100610338,-0.00011854205177,-0.000114964077774,-0.00011136799069,-0.000107755805705,-0.000104124804902,-0.000100475804737,-9.68062095467e-05,-9.31160119906e-05,-8.94071911134e-05,-8.56822678365e-05,-8.19409571042e-05,-7.81795461671e-05,-7.43981954003e-05,-7.05955176011e-05,-6.67735776358e-05,-6.2931250603e-05,-5.90690971064e-05,-5.51888008265e-05,-5.12890255144e-05,-4.73654020274e-05,-4.34177920335e-05,-3.94533543416e-05,-3.54731413689e-05,-3.14806233649e-05,-2.74753323752e-05,-2.34564741281e-05,-1.94280847125e-05,-1.5386107784e-05,-1.13326543808e-05,-7.26866389808e-06,-3.19860653665e-06,8.81186516208e-07,4.97620904788e-06,9.08596545447e-06,1.32126387854e-05,1.73571285623e-05,2.15177818586e-05,2.56954800408e-05,2.98870570567e-05,3.40949495129e-05,3.83201799842e-05,4.25624985508e-05,4.68159792027e-05,5.10836136846e-05,5.53592948887e-05,5.9641135514e-05,6.39305332254e-05,6.8227842309e-05,7.25309755351e-05,7.68378870324e-05,8.11493467852e-05,8.54611006214e-05,8.9774320671e-05,9.40898375859e-05,9.84074310416e-05,0.00010273028028,0.000107061663183,0.000111397158018,0.000115741425645,0.000120095337833,0.000124458833589,0.000128833038898,0.000133223357302,0.000137625291165,0.00014204669159,0.000146481501952,0.000150925947368,0.000155379788878,0.000159843849673,0.000164315171288,0.00016879336495,0.000173281001184,0.000177771724189,0.000182267671269,0.000186763699122,0.000191257589182,0.000195756331724,0.000200261547658,0.000204774256075,0.000209293529554,0.000213820528565,0.000218353576709,0.000222891338733,0.000227431596384,0.00023197275913,0.000236521208061,0.000241069099333,0.000245610248404,0.000250145991318,0.000254672650993,0.000259189864749,0.000263701141144,0.000268208866241,0.000272717319327,0.000277228371901,0.000281740892498,0.0002862553215,0.000290777736826,0.000295306147521,0.000299838345491,0.000304376641174,0.000308917616838,0.000313456313657,0.000317988044309,0.000322510840672,0.000327021420507,0.000331517404521,0.000335998595081,0.000340460082647,0.000344903671787,0.000349329530127,0.000353737495573,0.000358130142902,0.000362507513891,0.000366872646754,0.000371225341697,0.000375573736563,0.000379913284017,0.000384248062231,0.000388579315173,0.000392905336351,0.000397224373608,0.00040153373984,0.0004058349524,0.000410124675934,0.000414404879895,0.000418670077535,0.000422916938064,0.000427145726349,0.000431351084111,0.000435536423283,0.000439706078512,0.000443859041959,0.00044799416076,0.000452109869756,0.000456204459357,0.000460275146461,0.000464329011805,0.000468367829062,0.000472397578272,0.000476417779433,0.000480417614521,0.000484399485731,0.000488365257969,0.000492315985503,0.000496254258254,0.00050018022149,0.00050409417692,0.000507988278102,0.000511857660063,0.000515698744998,0.000519512170868,0.000523299855866,0.000527056368898,0.00053078569757,0.000534484485194,0.000538154723338,0.000541793064275,0.000545401586734,0.000548982549728,0.000552538746934,0.000556073707506,0.000559589398072,0.000563089207908,0.000566569111453,0.000570026894617,0.00057346138057,0.000576870648707,0.00058025823314,0.000583625469129,0.000586966299466,0.000590278508712,0.000593557119679,0.000596800869671,0.000600012599382,0.000603187818865,0.000606329009198,0.000609434480644,0.00061249975939,0.000615522610259,0.000618502946002,0.000621445184245,0.000624349388465,0.000627216371838,0.000630043750063,0.00063283354954,0.000635588518184,0.000638308271321,0.000640997021922,0.000643656123179,0.000646286958936,0.000648889628876,0.000651460739324,0.000654000617825,0.000656510498361,0.000658991047084,0.000661437200751,0.000663853798133,0.000666235738092,0.000668582801479,0.000670892171976,0.000673162610928,0.000675395192507,0.00067759435373,0.000679756114658,0.000681881731207,0.000683972598587,0.000686029318211,0.000688049390436,0.00069003292026,0.000691980088901,0.000693892825137,0.000695773743131,0.000697612144974,0.000699409325156,0.000701166261817,0.000702879520141,0.000704542933818,0.000706161733096,0.000707734153634,0.00070926415672,0.000710750098446,0.000712191214105,0.0007135915956,0.000714954938567,0.000716278891608,0.000717567367489,0.000718821769096,0.000720045238962,0.000721234415166,0.000722390210244,0.000723509204775,0.00072459243625,0.000725640532831,0.000726645168964,0.000727610064856,0.000728535108091,0.000729419546511,0.00073025693278,0.000731048020317,0.000731790685624,0.000732488262053,0.00073313875294,0.000733741082177,0.000734297364568,0.000734809967873,0.000735276874728,0.000735697439637,0.000736072666723,0.000736411345632,0.000736715221916,0.000736978771969,0.000737201540475,0.000737384839175,0.000737531579049,0.0007376383221,0.000737705050479,0.000737732257489,0.000737722816468,0.000737674244668,0.000737582477012,0.000737449103327,0.00073727884472,0.000737071652511,0.000736825483566,0.000736539505485,0.000736212181325,0.000735843860713,0.000735433689786,0.000734976820334,0.00073447452571,0.000733927599428,0.000733333817224,0.000732689950769,0.000731996891319,0.000731255597567,0.000730466280958,0.000729632175283,0.0007287491218,0.000727816038294,0.000726833961837,0.00072579998958,0.000724711189072,0.000723565214399,0.000722365078094,0.00072110707403,0.000719790638545,0.000718411471278,0.000716969654704,0.000715470512078,0.000713915160336,0.000712305267327,0.000710646129044,0.000708940349854,0.000707187243956,0.000705390801015,0.000703554597737,0.000701680131686,0.000699771336202,0.000697828872874,0.000695847222421,0.000693828712937,0.000691771757582,0.000689673588625,0.000687535112186,0.000685354338413,0.000683130404578,0.000680866284553,0.000678561934346,0.00067621664557,0.000673832676344,0.000671415888222,0.000668962236744,0.000666474232317,0.000663951165337,0.000661396005076,0.000658807004575,0.000656183412316,0.000653523890297,0.000650827786101,0.000648097519623,0.000645330164223,0.000642525796589,0.000639687473323,0.000636817853623,0.000633915797753,0.000630982206806,0.000628022243107,0.00062503534713,0.000622019167231,0.000618974415969,0.000615896626244,0.000612788328982,0.00060965371331,0.000606491607848,0.000603295732411,0.000600068196678,0.000596802672021,0.000593499127575,0.000590160170621,0.000586787496,0.000583382038526,0.000579943953809,0.000576468027408,0.000572948347826,0.000569390762218,0.000565799945099,0.000562180297796,0.000558536763326,0.000554870540512,0.000551178836217,0.000547461945929,0.00054372054254,0.000539957783261,0.000536179514516,0.000532388633888,0.000528577055767,0.000524740226076,0.000520875944965,0.000516980370162,0.000513054207958,0.000509100837787,0.000505119689147,0.000501112492319,0.000497077135263,0.000493010749638,0.000488916549023,0.000484799933648,0.000480659949984,0.00047649901218,0.00047231866952,0.000468117652338,0.000463898496437,0.00045966016868,0.000455401849236,0.000451126422133,0.000446834122968,0.000442522996652,0.000438192491491,0.000433842417777,0.000429473194442,0.000425084125032,0.000420675614837,0.000416244808066,0.000411797045581,0.000407330398545,0.000402843437297,0.000398332871738,0.00039379753121,0.00038924316846,0.000384672359579,0.00038008606026,0.000375485202937,0.000370869425707,0.00036623584155,0.000361584971901,0.000356920463753,0.000352248661484,0.000347571143843,0.000342886809856,0.000338190446989,0.000333485180703,0.000328765622633,0.000324037590848,0.000319298364908,0.000314548902601,0.000309786074976,0.000305008758837,0.000300216656781,0.000295412099427,0.000290597396511,0.000285772841477,0.000280938346175,0.000276094951596,0.000271241705035,0.000266385920473,0.00026152590831,0.000256661668401,0.000251796344934,0.000246926291454,0.000242054095294,0.00023717891223,0.000232302585735,0.000227425719539,0.000222551078796,0.000217675915241,0.000212803322836,0.000207935634618,0.000203071322706,0.000198207913042,0.000193345477873,0.000188484816595,0.000183626930947,0.000178770145927,0.000173914638012,0.000169056886732,0.000164198197269,0.000159338004784,0.000154479904411,0.000149626752233,0.000144781470547,0.000139943858101,0.000135113921965,0.000130292568424,0.000125478760668,0.000120676802507,0.000115887237731,0.000111107566393,0.00010633218371,0.000101562136018,9.67950232012e-05,9.20267491287e-05,8.72594065281e-05,8.24926643388e-05,7.77306443579e-05,7.29721282438e-05,6.82135832699e-05,6.34585605711e-05,5.8711685679e-05,5.39757019888e-05,4.92483644822e-05,4.45338142407e-05,3.98363456054e-05,3.51511705736e-05,3.0479873839e-05,2.58199487139e-05,2.11800462016e-05,1.65609002305e-05,1.19628270863e-05,7.38306759329e-06,2.82128045305e-06,-1.71955390734e-06,-6.24362249611e-06,-1.07517618669e-05,-1.52413841406e-05,-1.97144749302e-05,-2.41763170009e-05,-2.86329763898e-05,-3.30831122282e-05,-3.7525789629e-05,-4.19597163029e-05,-4.63843345677e-05,-5.08009470481e-05,-5.52050424442e-05,-5.9594611372e-05,-6.39653949281e-05,-6.83146370307e-05,-7.26396232121e-05,-7.69379761544e-05,-8.12140413358e-05,-8.54661777152e-05,-8.96966468632e-05,-9.39016441602e-05,-9.80848472653e-05,-0.000102248845019,-0.000106400554525,-0.000110540752622,-0.000114667680593,-0.000118779556745,-0.000122875830005,-0.000126952107542,-0.000131010293509,-0.000135052143761,-0.000139073163274,-0.000143071988714,-0.000147042059954,-0.000150981472038,-0.000154891140785,-0.000158776353816,-0.000162636117654,-0.000166472889173,-0.000170285126434,-0.000174075610449,-0.000177841971106,-0.00018159091541,-0.000185322622115,-0.000189039131635,-0.00019273986012,-0.000196424547699,-0.000200091211578,-0.000203738733172,-0.00020736719281,-0.000210971709451,-0.000214550051366,-0.0002181007616,-0.000221619999054,-0.000225107224545,-0.000228565849004,-0.000231993159662,-0.000235390031211,-0.000238756924206,-0.000242092651935,-0.000245397863697,-0.000248679933322,-0.000251937918547,-0.000255172958821,-0.000258388996201,-0.000261582261088,-0.000264751611213,-0.000267894112076,-0.000271009309347,-0.000274099856453,-0.000277169957746,-0.000280216834121,-0.000283237190793,-0.000286231812408,-0.000289197690955,-0.000292130699953,-0.000295035467425,-0.000297912082444,-0.000300763863511,-0.000303587753469,-0.000306380401832,-0.000309138493289,-0.000311863681118,-0.000314559935608,-0.000317227156599,-0.000319869975566,-0.000322492784477,-0.00032509029118,-0.000327664961938,-0.000330215468299,-0.00033274126464,-0.000335244344866,-0.000337724005454,-0.000340176014221,-0.000342600987067,-0.000344996544746,-0.000347358821655,-0.000349691862315,-0.000351996765818,-0.000354271883383,-0.00035651725334,-0.000358735227044,-0.000360923543081,-0.000363086168864,-0.00036522626653,-0.000367344274356,-0.000369442793722,-0.000371521619689,-0.000373578756525,-0.000375438494141,-0.000376923000208,-0.000378035683177,-0.000378776978926,-0.000379147439746)
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(271)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Monodelphis_domestica-male-liver-H3K27Ac-ERR572158.50mers.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) : 271',bty='n')
dev.off()