# R script for Peak Model
#  -- generated by MACS
p <- c(0.0425534855825,0.0496676906025,0.0568564068772,0.0638777427971,0.0708764013785,0.0708450850541,0.0707414172213,0.0707446568411,0.0708040498703,0.0707187398829,0.0705124840908,0.0702263176775,0.0702306371706,0.0703181069044,0.0705006054849,0.0703505031022,0.0702079598322,0.0701582856623,0.0700254612517,0.0700697360552,0.0701334485774,0.07033322513,0.0702133591985,0.0699487902504,0.069636706879,0.0697284961059,0.0699487902504,0.0699034355736,0.0699325921515,0.0699984644202,0.0699552694899,0.0699466305039,0.0697392948384,0.0699444707574,0.0700168222656,0.0699196336724,0.0699196336724,0.0699520298702,0.0700081832795,0.0698731991224,0.0699174739259,0.069963908476,0.0701604454088,0.0700330203645,0.0700222216319,0.0700427392238,0.0699585091097,0.0699487902504,0.0698138060932,0.0700006241667,0.0700297807447,0.0700373398575,0.0700492184633,0.0701993208461,0.0702414359032,0.0703753401871,0.0704314935965,0.0704779281465,0.0705956343316,0.070551359528,0.0705923947118,0.070622631163,0.0705081645977,0.0703137874114,0.0705081645977,0.0702965094393,0.070148566803,0.070291110073,0.0704012571453,0.0702435956497,0.0702889503265,0.0701680045216,0.070295429566,0.0702889503265,0.0701950013531,0.0702543943822,0.0703418641161,0.0702327969171,0.0701323687041,0.07014424731,0.070077295168,0.0701377680704,0.0700978127599,0.0703494232289,0.0703343050033,0.0704790080198,0.0705815959792,0.0704736086535,0.0705599985141,0.0706280305293,0.0708170083494,0.0709239158019,0.070794331011,0.0707295386155,0.0708180882226,0.0707381776016,0.0707684140528,0.0707662543063,0.0707338581085,0.0707511360807,0.0703418641161,0.0704455319488,0.070513563964,0.0705103243443,0.0705664777536,0.0705459601617,0.0704768482733,0.0706161519235,0.0705956343316,0.0706906631782,0.0708720818855,0.0707155002632,0.0707543757004,0.0708537240401,0.0708375259413,0.0710481012265,0.0711863250034,0.0711172131149,0.0710945357765,0.0711539288057,0.0712381589198,0.0715524020377,0.0716107151936,0.0715383636853,0.0715545617842,0.0714303763596,0.0713040311885,0.071415258134,0.0716171944331,0.0717100635333,0.0718126514927,0.0715232454597,0.0717370603647,0.0719141595789,0.0720340255105,0.072111776385,0.0722651183876,0.0722575592748,0.0721441725828,0.0719767922278,0.0720523833559,0.0723072334446,0.072031865764,0.0718742042684,0.0717942936473,0.0718007728869,0.0717856546613,0.0718774438882,0.0720113481721,0.072245680669,0.0720685814547,0.0720729009478,0.072396862925,0.0725469653078,0.0725750420125,0.072614997323,0.0727024670568,0.0726797897184,0.0727510613534,0.0725329269554,0.0727294638883,0.0727316236348,0.0727791380581,0.072694907944,0.0727931764105,0.0729961925829,0.0729529976526,0.0728849656374,0.0727262242685,0.0729983523294,0.073231604953,0.0731300968668,0.0729098027223,0.0731873301494,0.0731506144587,0.0731635729378,0.0734043846742,0.0737510239898,0.0739799571204,0.0741300595032,0.0740685067275,0.0740220721774,0.0743309159291,0.0740695866008,0.0743157977035,0.0743028392244,0.0743730309861,0.074280161886,0.0743881492117,0.0744594208467,0.0745123346363,0.0747477470064,0.0748460154729,0.0750673894906,0.0748395362333,0.0749356449532,0.0748892104032,0.0748740921775,0.0751041051814,0.0750490316453,0.0751710573233,0.0753157603398,0.0751721371966,0.0752887635084,0.0757120738253,0.0757207128114,0.075887013293,0.0761397036353,0.076029556563,0.0762779274122,0.0762584896936,0.0762574098203,0.0765597743324,0.0767465924059,0.0766310459674,0.0768718577038,0.0770079217342,0.0770457172983,0.0771213084263,0.0771213084263,0.077329723965,0.0774960244466,0.0774636282489,0.0777217179574,0.0779798076659,0.0780446000614,0.0781147918231,0.0781266704289,0.0782767728117,0.0782875715443,0.0783793607712,0.0785953354227,0.0788404666521,0.078751917045,0.0786417699727,0.0786698466774,0.0787670352706,0.0790380834582,0.0790488821908,0.0793210102517,0.0793134511389,0.0792540581097,0.0792864543074,0.0794074001123,0.0796741288069,0.0800531643202,0.0800747617854,0.0802021868297,0.0803490495927,0.0803296118741,0.0806848901758,0.081117919352,0.0811783922545,0.0814569995549,0.0815131529643,0.0813619707082,0.0816092616842,0.0816481371214,0.0817669231798,0.0819656198591,0.0817690829263,0.0816654150936,0.0817820414054,0.0817647634332,0.0818036388705,0.082086565664,0.0821060033826,0.0822982208224,0.0825001571216,0.082631901659,0.0828457165639,0.0829882598339,0.0831664389214,0.0833392186426,0.0834342474892,0.08361350645,0.0838629571724,0.083793845284,0.0839504269063,0.0839903822168,0.084121046881,0.0842711492638,0.0844363698721,0.0844374497454,0.0846393860445,0.0845054817606,0.0844730855629,0.0847722104552,0.0849385109368,0.0852127987442,0.0855713166657,0.0857095404427,0.0857516554997,0.0858877195301,0.0860572596316,0.086189004169,0.0862872726354,0.0866468704301,0.0868574457153,0.0872742767927,0.0876792292642,0.0882472425976,0.089104661964,0.0900851868818,0.09105923256,0.0923464414829,0.0935137844741,0.0945126672373,0.0955180292399,0.0963538511412,0.0972620245507,0.0978775523074,0.0982673865534,0.098618345362,0.0991474832582,0.0992824674154,0.099444448404,0.0994455282772,0.0993915346144,0.0995513558565,0.0995070810529,0.0995513558565,0.0999390303559,0.099994103892,0.0999476693419,0.100262992333,0.100395816744,0.100723018341,0.101078296642,0.101196002828,0.101261875096,0.101572878594,0.101542642143,0.101792092866,0.101845006655,0.101908719177,0.102186246605,0.102170048506,0.102448655806,0.102624675147,0.102993991801,0.103251001636,0.1035836026,0.103999353804,0.104214248582,0.10448205715,0.104592204222,0.104788741155,0.104892408988,0.104957201383,0.105132140851,0.105261725642,0.105409668278,0.105396709799,0.105641841028,0.105782224552,0.106047873373,0.106400991928,0.106432308253,0.106689318088,0.106813503513,0.106953887036,0.107255171675,0.107495983411,0.107728156162,0.107914974235,0.107983006251,0.108018642068,0.108358802144,0.108543460471,0.108492706428,0.108637409445,0.108541300725,0.108637409445,0.108637409445,0.108588815148,0.10884474511,0.109005646225,0.109200023412,0.109205422778,0.109531544502,0.109815551168,0.110043404426,0.110161110611,0.110475353729,0.110942938849,0.110882465947,0.111236664375,0.111367329039,0.111533629521,0.111545508127,0.111580064071,0.111751763919,0.111965578824,0.112129719559,0.112044409572,0.112254984857,0.112369451422,0.112623221638,0.112942864122,0.11334673672,0.113488200117,0.113642621993,0.113655580472,0.113787325009,0.113897472081,0.114340220117,0.114450367189,0.114467645161,0.11448708288,0.11467282108,0.114819683843,0.115109089876,0.115430892107,0.1158228861,0.115993506074,0.116131729851,0.116229998318,0.116451372335,0.116669506733,0.116722420523,0.116885481385,0.116937315301,0.117295833223,0.117302312462,0.117476172057,0.117603597101,0.117683507722,0.117917840219,0.118080901081,0.118161891575,0.118342230409,0.118449137862,0.118254760675,0.118223444351,0.118139214237,0.117877884908,0.117968594262,0.117640312792,0.117846568584,0.117846568584,0.11784872833,0.118129495377,0.118106818039,0.118202926759,0.118517169877,0.118882167038,0.118980435504,0.119264442171,0.119169413324,0.119332474186,0.119365950257,0.119019310942,0.11913161776,0.119111100168,0.119194250409,0.119347592412,0.119302237735,0.119305477355,0.119588404148,0.119505253907,0.119450180371,0.119369189877,0.119507413654,0.119648877051,0.119443701132,0.11927092141,0.119144576239,0.119319515707,0.119019310942,0.119276320777,0.119550608584,0.11979789956,0.119778461841,0.119732027291,0.119929644098,0.119717988939,0.119750385137,0.119537650105,0.119485816189,0.119374589243,0.119155374972,0.119173732817,0.119210448508,0.119022550561,0.118757981613,0.118922122348,0.119011751829,0.118958838039,0.118794697304,0.118589521385,0.118543086835,0.118404863058,0.118323872564,0.118560364807,0.118715866556,0.118661872893,0.118482613933,0.118455617101,0.118698588584,0.118538767342,0.118675911246,0.118519329623,0.118234243083,0.117789335301,0.117463213578,0.117290433856,0.117239679813,0.117084178064,0.116753736847,0.116691104198,0.116359583108,0.116418976138,0.116278592614,0.116258075022,0.116060458216,0.115798049015,0.115744055352,0.115482726023,0.115279709851,0.115174962145,0.114767849927,0.114279747215,0.114139363691,0.113962264477,0.113919069547,0.113933107899,0.113342417227,0.113246308507,0.113094046378,0.112902908811,0.112859713881,0.112708531625,0.1124914771,0.112428844451,0.112189112588,0.111897546809,0.111698850129,0.111328453602,0.111153514134,0.110937539483,0.110762600015,0.110656772436,0.110597379407,0.110199986048,0.110029366073,0.109762637379,0.109851186986,0.109679487138,0.109478630712,0.109329608203,0.109095275706,0.108743237024,0.108350163158,0.108100712436,0.107805907036,0.107648245541,0.107495983411,0.107219535858,0.106850219203,0.106363196364,0.106187177023,0.106152621079,0.106045713627,0.10571527241,0.105591086985,0.105486339279,0.105293041966,0.105065188709,0.104973399482,0.10500255606,0.104744466351,0.104497175376,0.104353552232,0.104329795021,0.104178612765,0.103869769013,0.103747743335,0.103735864729,0.10367971132,0.10348749388,0.103443219076,0.103191608607,0.102908681814,0.102693787036,0.102461614285,0.102117134716,0.101794252612,0.101673306807,0.101284552435,0.101204641814,0.100911996161,0.100820206934,0.10069278189,0.100602072536,0.100360180926,0.10021547791,0.0999908642722,0.0997262953242,0.0992932661479,0.0987382112936,0.0981691180869,0.0972069510146,0.0962588222945,0.0952631791512,0.0942081429787,0.0932168193283,0.0921682623954,0.0911585808997,0.0904966185929,0.0897331481999,0.0891143808234,0.0888940866788,0.0885377285039,0.0883552299234,0.0882958368942,0.0880712232567,0.0878487693656,0.0876619512921,0.087464334486,0.0874006219638,0.0871641297204,0.0869503148155,0.0868822828002,0.0866036754998,0.0863315474389,0.0864265762856,0.0862160010004,0.0862343588458,0.0859741093907,0.08550976389,0.0853521023944,0.0854017765643,0.085031380037,0.0847927280471,0.0847614117226,0.0845292389723,0.0845519163107,0.0841350852333,0.0840454557529,0.0839839029773,0.0840303375273,0.0835973083511,0.0835368354487,0.0834320877427,0.0831135251318,0.0827280103789,0.0824310452331,0.0822982208224,0.0821276008477,0.0820833260442,0.0816708144598,0.0817464055879,0.0816772936994,0.0815563478946,0.0815304309364,0.0814796768933,0.0814580794281,0.0814332423432,0.081256143129,0.0812205073115,0.0811654337754,0.0808803472354,0.0806902895421,0.0805952606954,0.0803771262974,0.0802583402391,0.0800715221656,0.0799732536992,0.0799354581351,0.0796330936231,0.0795045887054,0.079402000746,0.079372844168,0.0792054638131,0.0791568695165,0.0791968248271,0.0791968248271,0.0790715595292,0.0788091503276,0.0787389585659,0.078642849846,0.0784009582363,0.078240057121,0.0780035648776,0.0777692323807,0.0773999157267,0.0772184970194,0.0769884840156,0.0769906437621,0.0768653784643,0.076579212051,0.0765770523045,0.0764064323299,0.0765111800358,0.0765424963603,0.0766558830523,0.0763470393007,0.0762530903273,0.0760403552956,0.0759593648013,0.0759982402385,0.0757250323044,0.0758621762081,0.075698035473,0.0756904763602,0.0753503162841,0.075341677298,0.0751753768164,0.0751840158024,0.0750047568417,0.074834136867,0.0750069165882,0.0747833828239,0.0746969929633,0.0743924687047,0.0743913888315,0.0743211970697,0.074284481379,0.0741926921521,0.0742423663219,0.0740901041927,0.0737683019619,0.0735501675639,0.0732845187426,0.0733277136729,0.0730113108085,0.0729724353712,0.0729054832292,0.0726841092115,0.0724864924054,0.0723666264738,0.0723137126842,0.0722791567399,0.07218304802,0.0719292778045,0.072036185257,0.0718493671835,0.0716873861949,0.071704664167,0.0713839418095,0.0714876096422,0.0713958204153,0.0713515456118,0.0712273601872,0.0712489576523,0.0712662356245,0.0710783376777,0.0710664590718,0.0708861202378,0.0710459414799,0.0708634428994,0.0708440051808,0.0706237110363,0.0707403373481,0.0704466118221,0.0703548225952,0.0703321452568,0.0701582856623,0.0701291290844,0.0700189820121,0.0700211417586,0.0701194102251,0.0701831227472,0.0702392761566,0.0702122793252,0.0701280492111,0.0701053718727,0.0702058000857,0.0701950013531,0.0700384197308,0.0699833461946,0.0696021509347,0.0694876843695,0.0693008662959,0.0694887642427,0.0693527002123,0.0691075689828,0.0689715049524,0.0689877030513,0.0690805721514,0.0689725848257,0.068953147107,0.0689391087547,0.0687890063719,0.0686108272844,0.0685557537483,0.068735012709,0.0685579134948,0.0684024117457,0.0682598684758,0.0681389226709,0.0682425905036,0.0680914082476,0.0681454019105,0.0682209930385,0.0681130057127,0.06800933788,0.0677987625948,0.0677048136214,0.0678138808204,0.0678592354972,0.0678192801867,0.0677739255099,0.0677339701994,0.0677328903261,0.0680644114162,0.0681076063465,0.0681616000093,0.0680741302755,0.0680633315429,0.0680946478674,0.0680449736975,0.0679963794009,0.0679920599079,0.0679974592742,0.0677944431018,0.0677944431018,0.0679402259916,0.0679769416823,0.0677458488052,0.0677166922273,0.0678354782856,0.0679639832032,0.0679488649776,0.067858155624,0.0678322386658,0.0678397977786,0.0679305071322,0.0680773698953,0.0682998237863,0.068256628856,0.0680708906557,0.0679985391475,0.0680374145847,0.0680892485011,0.0682134339257,0.0681875169675,0.0681745584884,0.0681216446988,0.0680503730638,0.0681205648255,0.0681378427977,0.0681313635581,0.0680741302755,0.0680870887546,0.0678840725822,0.0680104177533,0.0678516763844,0.0678754335961,0.0678397977786,0.0677480085517,0.067925107766,0.0678549160042,0.0678063217076,0.0676983343819,0.0677523280448,0.0677415293122,0.06767781679,0.067673497297,0.067682136283,0.0677372098192,0.0676281426202,0.0678171204402,0.0678700342298,0.0677836443692,0.0676648583109,0.067602225662,0.0677663663971,0.0677901236088,0.0676572991981,0.0676756570435,0.0677685261436,0.0675989860422,0.0676216633806,0.0676097847748,0.0678311587926,0.0677307305796,0.0676864557761,0.0676216633806,0.0676713375505,0.0678505965112,0.0678041619611,0.0679099895403,0.0679164687799,0.0681831974745,0.0680989673604,0.0682577087292,0.0683408589701,0.0684261689574,0.0685935493123,0.0685449550157,0.0686421436089,0.0685276770436,0.0685978688053,0.0682976640398,0.0683408589701,0.0683754149143,0.0683127822654,0.0683840539004,0.0684121306051,0.0681745584884,0.0681378427977,0.0683916130132,0.068374335041,0.0686162266507,0.0686421436089,0.068583830453,0.0687328529625,0.0687522906811,0.0686356643693,0.0687879264986,0.0686626612008,0.068655102088,0.068764169287,0.0687522906811,0.0688483994011,0.0689034729372,0.0689563867268,0.0688656773732,0.0690233388688,0.0691442846736,0.069494163609,0.0696118697941,0.0696248282732,0.0696863810488,0.0698084067269,0.0698354035584,0.0699671480958,0.070115090732,0.070006023533,0.0699779468283,0.0698321639386,0.0697360552187,0.0697392948384,0.0696982596547,0.0696539848511,0.0696043106813,0.0693624190716,0.0694390900729,0.069707978514,0.0698062469804,0.0699844260679,0.0699736273353,0.0698310840653,0.0699001959538,0.0697490136978,0.0697673715431,0.0699995442935,0.0700189820121,0.0700135826458,0.0700233015051,0.0697522533175,0.0697047388942,0.0698645601363,0.069972547462,0.0701766435077,0.0703040685521,0.070215518945,0.0702759918474,0.0702381962834,0.0702479151427,0.0704142156243,0.0705880752188,0.0705880752188,0.0705243626966,0.0705589186408,0.0706744650794,0.0707457367144,0.0707716536726,0.0707716536726,0.0708375259413,0.070907717703,0.0709930276903,0.0712284400604,0.0713547852316,0.0712446381593,0.0712845934698,0.0712349193,0.0710157050287,0.0710794175509,0.0710340628741,0.0710383823671,0.0710437817334,0.0710103056624,0.0710750980579,0.0714206575003,0.0714228172468,0.071633392532,0.0718720445219,0.0718839231277,0.0719379167906,0.0720772204408,0.07218304802,0.0721571310618,0.0721344537234,0.0718742042684,0.0719940702,0.0718796036347,0.0717640571961,0.0718407281974,0.0721398530897,0.0720998977792,0.0720102682988,0.0719973098197,0.0722240832038,0.0722769969934,0.0719757123546,0.0719465557766,0.072140932963,0.071960594129,0.0717608175764,0.0715815586156,0.071495168755,0.0715945170947,0.0714454945852,0.0714379354724,0.0716938654344,0.0717543383368,0.0716215139262,0.0718083319997,0.0717942936473,0.0718644854091,0.0719638337488,0.0719119998324,0.071927118058,0.0719616740022,0.0719465557766,0.0721150160048,0.0722197637108,0.0723558277412,0.0724670546867,0.0725448055613,0.0725610036601,0.0727165054092,0.0727348632546,0.07265711238,0.0727273041418,0.0727974959035,0.0728212531152,0.072791016664,0.0727553808465,0.0727650997058,0.0728784863978,0.0728298921012,0.0728352914675,0.0731160585144,0.0730901415563,0.0731095792749,0.0732424036856,0.0733557903776,0.0734173431533,0.0735469279442,0.0735220908592,0.0735534071837,0.0735015732673,0.0733611897439,0.0733698287299,0.0733309532927,0.0733493111381,0.0733158350671,0.0732586017844,0.0732640011507,0.0732963973484,0.0733536306311,0.0735890430012,0.0736775926083,0.0737175479188,0.0737326661444,0.0737413051305,0.0737596629759,0.0737834201875,0.0737024296932,0.0736624743827,0.0735285700988,0.0733590299974,0.073374148223,0.0735026531406,0.0734151834068,0.0733903463218,0.0732758797565,0.0734043846742,0.0735026531406,0.0735804040151,0.0736365574245,0.0736743529885,0.0737186277921,0.0736225190722,0.073516691493,0.0734367808719,0.0733503910113,0.0733093558275,0.0732370043193,0.0733233941799,0.0733989853079,0.0733547105043,0.0732326848262,0.0732326848262,0.0735642059163,0.0736765127351,0.0739400018099,0.0738687301749,0.0739713181343,0.0738687301749,0.0738017780329,0.0738719697946,0.0741700148137,0.0744011076908,0.0743125580837,0.0742067305045,0.074074985967,0.0739810369937,0.0739259634575,0.073672193242,0.0736700334955,0.0737618227224,0.0738082572725,0.0735480078174,0.0735274902255,0.0736365574245,0.0737985384131,0.073990755853,0.0741073821648,0.074364392,0.0745252931154,0.0745425710875,0.0744680598328,0.0743859894652,0.0743330756756,0.0742283279696,0.0740469092624,0.0741322192497,0.0739162445982,0.0741559764614,0.0740112734449,0.0737888195538,0.0735836436349,0.0736927108339,0.073810417019,0.0741700148137,0.0743201171965,0.0742110499975,0.0742661235336,0.0739918357262,0.0742715228999,0.074469139706,0.0745566094399,0.0746106031027,0.0743568328872,0.0740253117972,0.0740890243194,0.0739400018099,0.0740058740786,0.0741581362079,0.0738374138504,0.0736624743827,0.073630078185,0.0736873114676,0.0739669986413,0.0738795289075,0.0736235989454,0.073672193242,0.0736289983117,0.0735696052826,0.0736754328618,0.0736484360304,0.0735847235082,0.0733665891102,0.0732434835588,0.0732186464739,0.0732877583624,0.0734788959289,0.0735123719999,0.0733817073358,0.0734000651811,0.0734324613789,0.0734357009986,0.0735134518732,0.0733860268288,0.0733622696171,0.0734216626463,0.0733147551938,0.0734443399847,0.0734691770696,0.0733482312648,0.0732640011507,0.0731160585144,0.0728828058908,0.0729443586665,0.0731246975005,0.07313117674,0.0730307485271,0.0727370230011,0.072724064522,0.0725631634066,0.0726938280708,0.0728622882989,0.0730653044713,0.073089061683,0.0729713554979,0.0728363713408,0.0730069913154,0.0730393875132,0.073089061683,0.0732834388693,0.0732672407705,0.0659154636339,0.0586144405403,0.0512928998549,0.0440091547335,0.0)
m <- c(0.043048522477,0.0502245342267,0.0574652433025,0.0647501622178,0.0721461448761,0.0722938704373,0.0725494248753,0.0725591294742,0.0724674749289,0.0727489082973,0.0727866484042,0.0728233102223,0.0727208727894,0.0727801786716,0.0724049341804,0.0724167953568,0.0722431908652,0.0722852441272,0.0723758203837,0.0723682723623,0.0724588486188,0.0723607243409,0.0724696315065,0.0723089664801,0.0725332505438,0.0725753038057,0.0728265450886,0.072866441773,0.0727327339658,0.0726701932173,0.0726615669071,0.0729246693665,0.0728718332168,0.0730184804893,0.0731575797403,0.0731780672269,0.0732330599541,0.073136013965,0.0731769889381,0.0731597363179,0.0731284659436,0.0729580963183,0.0729365305429,0.0729052601687,0.0729559397407,0.0728297799549,0.0727392036984,0.0728642851955,0.0729807403824,0.0731424836976,0.0730389679759,0.0731284659436,0.0732416862642,0.0732416862642,0.0731370922537,0.0732104158899,0.0731715974943,0.0731953198472,0.0732190422001,0.0731047435907,0.0730626903288,0.0730928824142,0.0730368113983,0.0731435619863,0.0732772697935,0.0733398105421,0.0733570631624,0.0734109776008,0.0735101801674,0.0736158524666,0.0738412148191,0.0739317910756,0.0740169758883,0.0739641397386,0.0738196490437,0.0739501219847,0.0739781574926,0.0740094278669,0.0740212890433,0.0739695311825,0.0739091470115,0.0738757200597,0.0739587482948,0.0738767983484,0.0740568725727,0.0739296344981,0.074032071931,0.0740719686154,0.0740353067973,0.0740115844444,0.0739975666904,0.074046089685,0.0740396199524,0.0741000041234,0.0739555134285,0.0739404173857,0.0739015989901,0.0739695311825,0.0737732826267,0.0736158524666,0.0736934892579,0.0737387773862,0.0737592648728,0.0737527951401,0.0738584674394,0.0738918943912,0.0738196490437,0.0736525142847,0.0737031938568,0.0739296344981,0.073790535247,0.0737970049796,0.0737452471188,0.0738757200597,0.0738110227336,0.0737517168514,0.0737873003807,0.0737398556749,0.0736816280815,0.0735727209159,0.0735576248732,0.0734853795257,0.0733150099004,0.0732524691519,0.0732492342856,0.073275113216,0.073093960703,0.073168362628,0.0732513908631,0.0733204013443,0.0734519525739,0.0734745966381,0.0736913326804,0.0735274327877,0.0734066644457,0.0734605788841,0.0734336216649,0.0734918492583,0.0734379348199,0.0734055861569,0.0733850986703,0.0732459994193,0.0731133699008,0.0730896475479,0.0731306225211,0.0729559397407,0.073228746799,0.0730001495802,0.0730346548208,0.0731424836976,0.0731058218795,0.0730874909704,0.0733204013443,0.0735134150337,0.0735899735362,0.0738002398459,0.0736816280815,0.07389297268,0.0739220864767,0.0736384965308,0.0737075070119,0.0736934892579,0.0734853795257,0.0734185256221,0.0732794263711,0.0731662060505,0.0730465159972,0.0728707549281,0.0726453925756,0.0727542997412,0.0726755846611,0.0726809761049,0.0726885241263,0.0726626451959,0.0725850084046,0.0725763820945,0.072848110864,0.0727952747143,0.0730637686175,0.0730896475479,0.0732589388845,0.0733602980287,0.0732600171733,0.0733139316116,0.0734487177076,0.0733419671196,0.0732039461573,0.0733656894725,0.0732071810236,0.0731640494729,0.0729181996339,0.0729171213451,0.0729117299013,0.0727208727894,0.0726863675488,0.0726453925756,0.0725278590999,0.0724922755706,0.0724793361054,0.0724674749289,0.0725839301158,0.0723618026297,0.0726098090463,0.0725666774956,0.072620591934,0.0725073716133,0.0725257025224,0.0724426742873,0.0724728663728,0.0725116847684,0.0722733829507,0.0723758203837,0.0719574443418,0.0718862772831,0.0716954201712,0.0717730569625,0.0717816832726,0.0716954201712,0.0717062030589,0.0717256122567,0.0717450214545,0.0717601174972,0.071942348299,0.0720059673363,0.0719250956787,0.0718463805987,0.0716706195295,0.0715034847705,0.0714204565354,0.0712964533271,0.0713460546104,0.0711746066963,0.0711012830601,0.0710053153598,0.0711746066963,0.0711271619905,0.0710074719373,0.0711379448782,0.0710775607072,0.0710376640228,0.0708058319377,0.0708867035953,0.0708209279805,0.0708166148254,0.0707993622051,0.0708554332211,0.0709460094776,0.0709697318304,0.0708867035953,0.0707875010287,0.0707875010287,0.0705330248795,0.0705869393179,0.0707130991037,0.0707540740769,0.0706138965371,0.0705599820987,0.070549199211,0.0704758755748,0.0704273525802,0.0706160531146,0.0706850635957,0.0705071459491,0.0702828618854,0.070247278356,0.0705621386762,0.0705675301201,0.0705179288367,0.0704866584625,0.0706829070182,0.0706300708686,0.0706031136494,0.070758387232,0.0708500417772,0.0706009570719,0.0702720789977,0.0702925664843,0.0701901290513,0.0702440434897,0.0701232751477,0.0701286665916,0.0702052250941,0.0699863324742,0.0699227134369,0.0698159628489,0.0698838950413,0.0697523438116,0.069699507662,0.0697588135442,0.0696962727957,0.0696056965392,0.0693436723686,0.0692638789998,0.0692800533313,0.0693986650958,0.0693382809248,0.0692832881976,0.0692649572886,0.0692218257378,0.0692347652031,0.0691517369679,0.0693253414595,0.0693932736519,0.0693124019943,0.06920241654,0.0692131994277,0.0692940710853,0.0692509395346,0.0692078079839,0.069184085631,0.0691042922621,0.069035281781,0.0688153108724,0.0689048088401,0.0687915885195,0.0688649121557,0.0688918693749,0.0691075271285,0.0689414706582,0.0688476595354,0.0689252963267,0.0690848830643,0.0691689895882,0.0691657547219,0.069016950872,0.0687764924767,0.0685813222098,0.068352724991,0.0683365506595,0.068310671729,0.0683786039214,0.0682157823175,0.0684152657395,0.0681586330128,0.0683149848841,0.068324689483,0.0683192980392,0.0683042019964,0.068324689483,0.0681079534407,0.0677014385752,0.067595766276,0.0674307880945,0.0675914531209,0.0677510398586,0.0678437726926,0.0679516015694,0.0679947331201,0.0680098291628,0.0682556790019,0.0686902293753,0.0688810864872,0.0690223423158,0.0689382357919,0.0688336417814,0.0687322826373,0.0687053254181,0.068608279429,0.0686470978246,0.0685079985736,0.0684023262743,0.0683192980392,0.0681866685207,0.068203921141,0.0680583521574,0.0681025619969,0.0680141423179,0.0679688541897,0.0679246443502,0.0679958114088,0.0679375838154,0.0678340680937,0.0679677759009,0.0679526798581,0.0680454126922,0.0680540390023,0.0680723699114,0.0681316757936,0.0681834336544,0.068078839644,0.0682168606062,0.0683462552584,0.0682136257399,0.0682772447772,0.0683581164348,0.0684066394294,0.0685640695895,0.0686524892684,0.0685597564344,0.0688530509793,0.0687355175036,0.0687182648833,0.0686805247764,0.0686718984663,0.0687905102307,0.0688012931184,0.068729047771,0.0685220163275,0.0687171865945,0.0686449412471,0.0686643504449,0.0686309234931,0.0687495352575,0.0687764924767,0.0685565215681,0.0684896676645,0.0683753690551,0.0686427846695,0.0684842762207,0.068459475579,0.0685155465949,0.0684982939746,0.0687667878778,0.0689500969684,0.0692477046683,0.0693382809248,0.069713525416,0.069639123491,0.0696984293732,0.0697846924746,0.069745874079,0.069973393009,0.0697156819935,0.0694342486251,0.0694547361117,0.0695118854164,0.0693145585719,0.0694493446678,0.069671472154,0.0697760661645,0.0698860516188,0.069671472154,0.0696800984642,0.0698472332232,0.0698946779289,0.0698041016725,0.0698094931163,0.0699669232764,0.0697081339721,0.0698375286243,0.0698256674478,0.0700467166452,0.0701319014579,0.070247278356,0.0700855350408,0.0703766730082,0.0705093025266,0.0704208828476,0.0706634978204,0.0705513557885,0.0706214445584,0.0707378997454,0.070879155574,0.0709535574989,0.0712252862684,0.0712188165358,0.0712252862684,0.0713762466959,0.0716113136473,0.0717051247701,0.0719509746091,0.0720286114004,0.0721752586728,0.0723564111858,0.0723337671217,0.0723618026297,0.0725192327898,0.0724663966402,0.072439439421,0.0725612860517,0.0727402819872,0.0727553780299,0.0728082141795,0.0728189970672,0.0730217153556,0.0730551423074,0.0729667226284,0.0729958364251,0.0730820995266,0.0732373731091,0.0730238719331,0.0730066193128,0.0730950389918,0.0732352165316,0.0732298250878,0.0733430454084,0.0735748774935,0.0739781574926,0.0740579508614,0.073985705514,0.0742951743903,0.0746186610207,0.0747491339616,0.0749270516083,0.0749852792017,0.0751427093618,0.0752084849767,0.0750370370626,0.0752095632654,0.0752774954578,0.0752710257252,0.0752613211263,0.0753281750299,0.0752807303241,0.0755168755643,0.0756279393074,0.075987009467,0.0762835388782,0.0762813823006,0.0765735985567,0.0768216049733,0.0769887397323,0.0771903797319,0.077273407967,0.0772486073254,0.0774459341699,0.0774707348115,0.077500926897,0.0777359938484,0.0776540439021,0.0775591544905,0.0775925814423,0.0777629510676,0.0779872351313,0.0781123166284,0.0781867185533,0.0783344441145,0.0783355224033,0.0785501018681,0.0788056563061,0.079149630423,0.079483899941,0.0795065440051,0.0796003551279,0.0797912122398,0.0801740047524,0.0804414203668,0.0807756898848,0.0808101951254,0.0807616721309,0.0808069602591,0.080969781863,0.0811455429322,0.0813860013274,0.081680374161,0.0815811715944,0.0814151151241,0.0815315703111,0.0815973459259,0.0820825758714,0.0821106113794,0.0821160028232,0.0820017042138,0.0819283805776,0.0819305371552,0.0822540237855,0.082465368384,0.0827327839984,0.0828330648538,0.0827176879557,0.0830562706287,0.0830961673132,0.0835479703069,0.0838347951191,0.0840774100919,0.0840752535143,0.0843987401447,0.08434159084,0.0843868789682,0.0845993018555,0.0846747820692,0.0848548562934,0.0848796569351,0.0850780620684,0.0853163638861,0.085358417148,0.0854910466664,0.0857498359707,0.0861045929753,0.0863396599267,0.0865186558622,0.0868593951128,0.0870427042033,0.0869898680537,0.0870761311551,0.0871839600319,0.0871871948982,0.0871030883743,0.087281006021,0.0873489382134,0.0873381553257,0.087508524951,0.0876314498705,0.0878611253781,0.0879969897628,0.0882902843077,0.0885922051626,0.0888822648412,0.0891356627016,0.0895896222729,0.090373538207,0.0906582064417,0.0910830522163,0.0918680464392,0.0924664967054,0.0934250954199,0.0946802235457,0.0958145833294,0.0967580860012,0.0976433610796,0.098156626533,0.0989211332694,0.0996036900594,0.0999843259945,0.100577384817,0.100769320217,0.100538566421,0.100651786742,0.100816764923,0.1010205615,0.100993604281,0.101225436366,0.101642734119,0.101874566204,0.102014743744,0.102320977754,0.102708083422,0.10288492278,0.103077936469,0.103181452191,0.103568557859,0.103735692618,0.103983699034,0.104210139675,0.104435502028,0.104324438285,0.104254349515,0.104534704595,0.104919653685,0.104921810262,0.105004838497,0.105053361492,0.104981116144,0.105174129834,0.105267940957,0.105953732613,0.106162920634,0.106354856035,0.106308489618,0.106556496034,0.106793719563,0.107244444268,0.107612140738,0.107801919561,0.108046691111,0.108123249614,0.108302245549,0.108363708009,0.10840683956,0.108781005762,0.109124979879,0.108841389933,0.108807962981,0.10897509774,0.108991272072,0.109074300307,0.109247904799,0.109641480199,0.110072795706,0.110239930465,0.110220521267,0.110948366185,0.111412030356,0.111799136023,0.112231529819,0.11264235784,0.113063968748,0.113038089817,0.113187971956,0.113413334309,0.113812301153,0.113761621581,0.11404197666,0.11410343912,0.114380559333,0.114393498799,0.114639348638,0.114909999118,0.115121343717,0.115150457514,0.115314357406,0.115692836764,0.115686367031,0.115849188635,0.11597642671,0.116275112698,0.116366767244,0.116856310344,0.116995409595,0.117299487028,0.117552884888,0.117880684674,0.118084481251,0.118352975154,0.118430611945,0.118222502213,0.118398263282,0.118193388416,0.118250537721,0.118316313336,0.118303373871,0.118147021999,0.118011157615,0.117922737936,0.117839709701,0.118375619218,0.11818152724,0.118300139004,0.11844355141,0.118355131732,0.118554615154,0.118515796758,0.118692636116,0.118976226062,0.119086211516,0.118932016222,0.119154143708,0.119210214724,0.119154143708,0.119296477826,0.119385975794,0.119236093655,0.119325591623,0.119085133227,0.119149830553,0.119225310767,0.119216684457,0.119279225206,0.119350392264,0.11939783697,0.119013966169,0.119250111409,0.119098072693,0.11926628574,0.119158456864,0.119147673976,0.119118560179,0.119005339859,0.118937407666,0.118825265634,0.119114247024,0.119224232478,0.119252267986,0.118974069484,0.119073272051,0.119113168735,0.119355783708,0.119422637612,0.119361175152,0.119393523815,0.119258737719,0.119099150981,0.119337452799,0.119580067772,0.119351470553,0.119156300286,0.118948190554,0.118779977506,0.118760568308,0.11870665387,0.118591276972,0.118596668416,0.118481291517,0.11828612125,0.118233285101,0.118210641037,0.118040271411,0.117924894513,0.117427803391,0.117242337723,0.11692100767,0.116768968954,0.116478909276,0.116392646174,0.116362454089,0.116198554196,0.115997992485,0.115994757619,0.11629991334,0.116454108634,0.116751716334,0.116499396762,0.116310696228,0.116093960185,0.11583624917,0.115714402539,0.115761847245,0.115574224999,0.115352097513,0.114640426926,0.114222050885,0.114009627997,0.114061385858,0.114113143719,0.114146570671,0.113750838693,0.113384220512,0.112977705646,0.112916243187,0.113075829924,0.112968001048,0.112879581369,0.112525902653,0.112216433776,0.112107526611,0.111954409606,0.1118109972,0.111820701799,0.111663271639,0.111354881051,0.110972088538,0.110746726186,0.110847007041,0.110579591427,0.110214051535,0.110279827149,0.110285218593,0.110219442978,0.109972514851,0.109914287257,0.109805380092,0.109680298595,0.109043029933,0.108947062232,0.109127136457,0.108796101805,0.108569661164,0.108386352073,0.108211669293,0.108221373892,0.108155598277,0.108071491753,0.108060708865,0.107888182662,0.107678994642,0.107588418385,0.107572244053,0.107283262664,0.107292967263,0.106906939884,0.10669128213,0.106326820527,0.106233009404,0.106075579244,0.105800615608,0.105426449406,0.105082475289,0.10487113069,0.104804276787,0.104977881278,0.104864660958,0.104887305022,0.104720170263,0.10473957946,0.104454911226,0.104411779675,0.104199356788,0.104248958071,0.103653742671,0.103085484491,0.102999221389,0.102717788021,0.102319899466,0.101847608985,0.101532748665,0.101503634868,0.101327873799,0.101114372623,0.101057223318,0.100940768132,0.100523470378,0.100253898186,0.100167635085,0.0999756996843,0.100108329203,0.099879731984,0.0998419918771,0.0998915931604,0.09986571423,0.0997330847116,0.0996069249257,0.0995540887761,0.0994095980812,0.0992812817179,0.0989017240716,0.0987043972271,0.0984984440724,0.0978126524161,0.0973630059999,0.0970157970167,0.0966804492099,0.096066902901,0.0954813921001,0.0947007110322,0.0937820090021,0.0926573538173,0.0911703936065,0.0902516915763,0.0889437273009,0.0879765022762,0.0871354370373,0.0862976066648,0.0857304267729,0.0851621685923,0.0848462299833,0.0845939104116,0.0846715472029,0.0843297296635,0.0844882381124,0.084462359182,0.0840666272042,0.0839954601455,0.0838542043169,0.0839124319104,0.0836191373655,0.0836374682746,0.0835317959753,0.0835727709485,0.0835415005743,0.0833495651736,0.083616980788,0.083496212446,0.0834121059221,0.0830778364041,0.0831694909494,0.0829333457092,0.0829355022867,0.0829495200407,0.0828621786505,0.0828071859234,0.0823219559779,0.0824136105231,0.0823467566195,0.082419001967,0.0823521480634,0.0821440383312,0.0820523837859,0.0817925161929,0.0813719835734,0.0811983790818,0.0812760158731,0.081178969884,0.0808371523446,0.0807131491363,0.0803810361958,0.0802009619716,0.0799540338438,0.0797329846464,0.0799292332021,0.0797124971598,0.0797071057159,0.0795216400479,0.0796424083899,0.0794138111711,0.0794159677486,0.0794612558769,0.0793793059305,0.0793501921338,0.0791539435781,0.0790870896745,0.0789372075357,0.078773307643,0.0784616821891,0.0785069703174,0.078332287537,0.0781252560936,0.0779031286074,0.0778017694632,0.0775947380198,0.0774976920307,0.0772895822985,0.0773079132076,0.0771925363094,0.0768873805881,0.0769520779142,0.0770825508551,0.0771871448656,0.077027558128,0.0769811917109,0.0769154160961,0.0768356227273,0.0766156518187,0.0766717228346,0.0767698471125,0.0766134952411,0.0763579408032,0.0761131692529,0.0761670836913,0.0761261087181,0.0759190772747,0.0758748674352,0.0756484267939,0.075457569682,0.0753691500031,0.0753303316074,0.0752850434792,0.0753270967411,0.0751890757789,0.0750877166347,0.0750877166347,0.0748796069025,0.0748903897902,0.074877450325,0.0747437425178,0.0746790451917,0.074561511716,0.0743253664758,0.0741959718237,0.0740256021984,0.0739382608082,0.0739350259419,0.0739220864767,0.0738002398459,0.0736762366376,0.0735198847663,0.0732999138577,0.0733128533229,0.073321479633,0.0732718783497,0.0731144481896,0.0731090567458,0.0729181996339,0.0729246693665,0.0728642851955,0.0727931181368,0.0729483917194,0.0727941964256,0.0725127630572,0.0725084499021,0.0725300156775,0.0725213893673,0.0726701932173,0.0725397202764,0.0724879624155,0.072499823592,0.0722809309721,0.0723456282982,0.0723801335387,0.0723434717206,0.0723963078702,0.07237905525,0.0721795718279,0.0720534120421,0.0720447857319,0.0720189068015,0.0721709455178,0.0720933087265,0.0719854798497,0.0720318462667,0.0719876364273,0.0718453023099,0.0719401917215,0.0719089213472,0.0717913878715,0.0717816832726,0.0717795266951,0.071761195786,0.0718129536469,0.0716846372835,0.0716415057328,0.071622096535,0.071575730118,0.0715498511875,0.0714625097973,0.0713223322575,0.0710732475522,0.0709762015631,0.0710419771779,0.0711002047714,0.0711778415626,0.0709125825258,0.0708133799591,0.0706678109755,0.070762700387,0.0707378997454,0.0707562306544,0.070688298462,0.0705783130077,0.0705222419918,0.0702710007089,0.0704154914038,0.0703648118317,0.0705438077672,0.0703950039172,0.0703702032755,0.0703777512969,0.0704068650937,0.0704661709759,0.0705146939704,0.0705071459491,0.0705783130077,0.0704661709759,0.0703842210295,0.0704661709759,0.0703432460564,0.0702720789977,0.070200911939,0.0701459192118,0.0698892864851,0.0699076173942,0.0700003502282,0.070108179105,0.070052108089,0.0699313397471,0.0700283857362,0.0699777061641,0.0699065391054,0.0698019450949,0.0698752687311,0.0696919596406,0.0695852090526,0.0694838499084,0.0695571735446,0.0696811767529,0.0696089314055,0.0697933187848,0.0697954753623,0.0698278240253,0.0698634075547,0.0701178837039,0.0699000693728,0.0698720338648,0.0698644858434,0.0698116496938,0.0697523438116,0.0695852090526,0.0695582518334,0.0695032591062,0.0694245440262,0.0692229040266,0.0694288571813,0.0695776610312,0.0695798176087,0.0695011025287,0.0694849281972,0.0695657998548,0.0695765827424,0.069671472154,0.069764204988,0.0698105714051,0.0697404826352,0.0696941162181,0.0696024616729,0.0695701130098,0.0695593301222,0.069411604561,0.0695097288388,0.0695021808175,0.0694461098015,0.0693630815664,0.0693770993204,0.0693706295878,0.0695108071276,0.0697146037047,0.0696423583573,0.0697846924746,0.0698741904424,0.069852624667,0.069987410763,0.0700456383564,0.0700812218858,0.0701006310836,0.0700122114046,0.0700574995329,0.0702914881955,0.0702958013506,0.0701739547198,0.0702828618854,0.0701329797466,0.0702559046662,0.0702839401741,0.070052108089,0.0700402469126,0.0700607343992,0.0700262291586,0.0699248700144,0.0699669232764,0.069824589159,0.0700715172869,0.0699636884101,0.0701157271263,0.0704629361096,0.070368046698,0.0701469975006,0.0700866133296,0.0702429652009,0.070335698035,0.070474797286,0.0703971604947,0.070307662527,0.0701146488376,0.0701308231691,0.0703119756821,0.0704176479813,0.0704985196389,0.0704079433824,0.0633257427555,0.0562564815938,0.0491257579723,0.0422764677192,0.0)
ycorr <- c(0.000113120572757,0.000113030288966,0.000112759439816,0.000112298054839,0.000111640345319,0.00011078376409,0.000109715194427,0.000108656690141,0.000107601718386,0.000106547796067,0.000105485871629,0.000104408781274,0.000103316336512,0.000102210274204,0.00010108882755,9.99529295699e-05,9.88059854967e-05,9.7655611654e-05,9.65000886673e-05,9.53430896448e-05,9.41896122962e-05,9.30381925271e-05,9.18831181463e-05,9.07278518832e-05,8.95689632497e-05,8.84113177065e-05,8.72561448707e-05,8.60997007267e-05,8.49407614148e-05,8.37696280314e-05,8.25857476659e-05,8.13860444143e-05,8.01788590409e-05,7.89659040155e-05,7.77436411396e-05,7.65064746012e-05,7.52490539273e-05,7.39689851779e-05,7.26707763392e-05,7.13584871072e-05,7.00414751987e-05,6.8718502715e-05,6.73905856846e-05,6.60467482475e-05,6.4687383439e-05,6.33229013721e-05,6.19605468971e-05,6.06011834419e-05,5.92478932966e-05,5.78978793677e-05,5.65445357082e-05,5.51816345836e-05,5.38050716131e-05,5.24184326626e-05,5.10312027043e-05,4.96336122351e-05,4.82153756334e-05,4.67745475167e-05,4.5311458668e-05,4.38206426037e-05,4.23038988355e-05,4.0772243782e-05,3.92323227352e-05,3.76859858615e-05,3.61278645525e-05,3.45595855983e-05,3.29882241283e-05,3.14168776214e-05,2.98407270352e-05,2.82667937637e-05,2.66942660852e-05,2.51222225441e-05,2.35423335207e-05,2.19544577546e-05,2.03557580187e-05,1.87459519424e-05,1.7124946149e-05,1.54951284645e-05,1.38551781743e-05,1.22079734652e-05,1.05499862989e-05,8.87757270704e-06,7.19501347575e-06,5.50152464375e-06,3.79554532035e-06,2.07885629631e-06,3.5357918583e-07,-1.3865706687e-06,-3.13607429118e-06,-4.89084831264e-06,-6.65172578852e-06,-8.41706763116e-06,-1.01840812013e-05,-1.19558187282e-05,-1.37278702744e-05,-1.54953689117e-05,-1.72534568728e-05,-1.90015371509e-05,-2.07396700184e-05,-2.24822838903e-05,-2.42261950866e-05,-2.59679571796e-05,-2.77130736825e-05,-2.9456646062e-05,-3.12023476242e-05,-3.29528970784e-05,-3.47142519383e-05,-3.64923801654e-05,-3.82846913302e-05,-4.00833818052e-05,-4.1884332017e-05,-4.36958089467e-05,-4.55133454383e-05,-4.73367097596e-05,-4.91689610556e-05,-5.10025024817e-05,-5.28407173488e-05,-5.46762819227e-05,-5.65085083273e-05,-5.83420361088e-05,-6.01802304483e-05,-6.20179437128e-05,-6.38566000453e-05,-6.56967950015e-05,-6.75276462441e-05,-6.9353767411e-05,-7.11780388865e-05,-7.30015876976e-05,-7.48268275084e-05,-7.66544035414e-05,-7.84827486359e-05,-8.03115285834e-05,-8.21373810423e-05,-8.39591332447e-05,-8.57859569782e-05,-8.76277002175e-05,-8.94753974249e-05,-9.13244697358e-05,-9.31757065544e-05,-9.50291419441e-05,-9.68861199832e-05,-9.87455131493e-05,-0.000100608156702,-0.00010247965404,-0.000104356663487,-0.000106228649984,-0.000108101231448,-0.000109977489539,-0.000111856593301,-0.000113730342984,-0.000115596721854,-0.000117451989646,-0.000119300340042,-0.00012114382903,-0.000122979333622,-0.000124813086355,-0.0001266465733,-0.000128475029528,-0.000130299129789,-0.000132128095123,-0.00013396408364,-0.000135810174498,-0.000137660698307,-0.000139512313601,-0.000141361271208,-0.000143208201546,-0.000145047403484,-0.000146882977937,-0.000148715318709,-0.000150542563122,-0.000152360130328,-0.000154173603121,-0.000155987319093,-0.000157808181562,-0.000159639364393,-0.000161478573541,-0.000163321962186,-0.000165169038317,-0.000167016022676,-0.000168861618341,-0.000170710501665,-0.000172559738717,-0.00017440294521,-0.000176226308097,-0.000178029458544,-0.000179811170243,-0.000181584542476,-0.000183356002045,-0.000185130985754,-0.000186902158578,-0.000188666039664,-0.000190415728284,-0.000192160436721,-0.000193907293488,-0.000195664504011,-0.000197428889271,-0.000199192357691,-0.000200946023872,-0.000202688622737,-0.000204418150959,-0.000206146646785,-0.00020787975128,-0.000209618670536,-0.000211355152579,-0.000213081970073,-0.000214802613989,-0.000216523713479,-0.000218246965283,-0.000219970004144,-0.000221697721758,-0.000223428173638,-0.000225156972275,-0.000226879318764,-0.000228599243821,-0.000230319029947,-0.000232039769484,-0.000233752602457,-0.000235458301948,-0.000237166695364,-0.000238875820686,-0.00024058024173,-0.000242283540846,-0.000243986647275,-0.000245695313948,-0.00024740718878,-0.00024912435054,-0.000250848151529,-0.000252581218408,-0.000254317653204,-0.000256053164623,-0.000257795026527,-0.000259536443745,-0.000261278856363,-0.000263016326378,-0.000264745841028,-0.000266465461787,-0.000268177049436,-0.000269881392928,-0.000271579369355,-0.000273268500959,-0.000274947169319,-0.000276615191339,-0.000278281578629,-0.000279948744755,-0.000281621369377,-0.000283300552013,-0.000284986734548,-0.000286679506449,-0.000288372624152,-0.000290071875766,-0.000291776521597,-0.000293489836794,-0.000295199703456,-0.0002968974258,-0.000298582478349,-0.00030025349189,-0.00030190640628,-0.000303540586629,-0.000305156736066,-0.000306763962197,-0.000308360301479,-0.000309950326613,-0.000311532004328,-0.000313117981956,-0.000314705591076,-0.000316290597238,-0.000317878816248,-0.000319468922507,-0.000321067676107,-0.000322668815444,-0.000324269675846,-0.000325873816757,-0.000327481199737,-0.000329086693476,-0.000330689553354,-0.00033229875085,-0.000333911726679,-0.000335527592184,-0.000337145765993,-0.000338762106194,-0.000340378968007,-0.000341983207982,-0.000343569616196,-0.000345136825196,-0.000346686282725,-0.00034820847407,-0.000349696730394,-0.00035114344923,-0.000352538067762,-0.000353873118459,-0.000355133593188,-0.000356322284589,-0.000357442625948,-0.000358497995816,-0.00035949227724,-0.000360430567477,-0.000361327105812,-0.000362190029043,-0.000363033318105,-0.000363870543917,-0.000364720754852,-0.000365595220058,-0.000366499637037,-0.000367442563676,-0.000368415831122,-0.000369416537539,-0.000370440075736,-0.000371484106111,-0.000372539520051,-0.0003736074511,-0.000374684277392,-0.000375763311899,-0.000376848704721,-0.000377929351166,-0.000379011257082,-0.000380096795478,-0.000381186037634,-0.000382276068925,-0.000383370902443,-0.0003844705396,-0.000385571913599,-0.000386675258281,-0.000387778128642,-0.000388879900276,-0.000389976764254,-0.000391068121076,-0.000392156719306,-0.000393244303237,-0.000394334186491,-0.000395418243928,-0.000396500645352,-0.000397576324495,-0.000398640482408,-0.00039969588773,-0.000400748444596,-0.00040180604637,-0.000402857481059,-0.000403904459363,-0.000404940636896,-0.000405966290303,-0.000406983415603,-0.000407993380169,-0.000409003164863,-0.000410012094358,-0.000411017881688,-0.000412010495157,-0.000412995157586,-0.000413973026488,-0.000414946210395,-0.000415920996365,-0.000416894930119,-0.000417866255607,-0.000418832677912,-0.000419791322438,-0.000420746528548,-0.000421698981212,-0.000422647657002,-0.000423591486843,-0.000424530688303,-0.000425460995147,-0.000426379659847,-0.000427293228307,-0.000428201712064,-0.000429106455981,-0.000430002207031,-0.000430891377209,-0.000431773198547,-0.000432648725631,-0.000433518127862,-0.000434388051985,-0.000435260637035,-0.000436131075359,-0.000436995458119,-0.000437854683522,-0.000438708056303,-0.000439555119437,-0.000440397322311,-0.000441236857903,-0.0004420743912,-0.000442900957659,-0.000443710463661,-0.000444506761635,-0.000445293311412,-0.000446066799652,-0.000446829720804,-0.000447581041538,-0.000448321847114,-0.000449050113362,-0.000449763554085,-0.000450464939892,-0.000451160767822,-0.000451849330202,-0.000452525721273,-0.000453194822247,-0.000453856865011,-0.000454511096933,-0.000455160975148,-0.000455805362006,-0.000456442698115,-0.000457073079707,-0.000457692864453,-0.000458301237248,-0.000458899565684,-0.000459487168579,-0.00046005991569,-0.000460621949684,-0.000461169415694,-0.000461699684072,-0.000462216037599,-0.00046271459835,-0.000463198825221,-0.000463671479712,-0.000464132329214,-0.000464580611234,-0.000465019080976,-0.000465445929043,-0.000465861422526,-0.000466265179038,-0.00046665553635,-0.000467035031316,-0.00046740355942,-0.000467755494496,-0.000468092732526,-0.000468416154566,-0.000468730594544,-0.000469034431109,-0.000469324319167,-0.00046960057511,-0.000469866335232,-0.000470121077279,-0.000470363484547,-0.000470595470745,-0.000470819286147,-0.000471034901801,-0.000471238638244,-0.000471424520999,-0.000471592824545,-0.000471749587792,-0.000471893505742,-0.000472025559041,-0.000472146130968,-0.000472252717478,-0.000472346487601,-0.000472423759703,-0.000472481798554,-0.000472526009262,-0.000472558692924,-0.000472575625842,-0.000472576386692,-0.000472561188169,-0.00047252732649,-0.000472478942607,-0.000472415204723,-0.000472337159993,-0.000472245066314,-0.000472138441949,-0.000472013054864,-0.000471871111429,-0.000471713292192,-0.00047153451466,-0.000471334109702,-0.000471114016721,-0.000470872752488,-0.000470612090865,-0.000470328170368,-0.000470023933413,-0.000469698875286,-0.000469353444029,-0.000468986703134,-0.000468603204094,-0.000468207490316,-0.000467797876477,-0.000467372126757,-0.000466925121228,-0.000466458494572,-0.000465971738874,-0.00046546829992,-0.000464946905403,-0.000464407047561,-0.000463848347212,-0.000463266192496,-0.000462661153851,-0.000462034551503,-0.000461385764347,-0.000460722032308,-0.000460036613218,-0.000459330265522,-0.00045860153608,-0.00045784992775,-0.000457074962967,-0.000456278092906,-0.000455460406222,-0.000454617356583,-0.000453751190402,-0.000452863632535,-0.000451957270569,-0.000451034225587,-0.000450093962641,-0.000449135936197,-0.000448160905037,-0.000447167522052,-0.000446153230527,-0.000445121058958,-0.000444071726014,-0.000443001636672,-0.000441907120237,-0.000440784834395,-0.000439638519769,-0.000438469446051,-0.000437278939707,-0.000436066744514,-0.000434833476222,-0.000433579175592,-0.00043230540644,-0.000431007904802,-0.000429689390833,-0.000428352038606,-0.000426993120535,-0.00042561064585,-0.000424201228912,-0.000422761659761,-0.000421294899655,-0.000419799600219,-0.000418274536581,-0.000416721940499,-0.000415149144277,-0.00041355428123,-0.00041193460648,-0.000410289402882,-0.000408621479874,-0.000406935401224,-0.000405230472482,-0.000403508879379,-0.000401771259343,-0.000400018042074,-0.000398241435415,-0.000396439370168,-0.000394610976837,-0.000392758874334,-0.000390881842654,-0.00038897985832,-0.000387051347325,-0.000385094752905,-0.000383107316232,-0.000381090467617,-0.000379046839313,-0.000376978857841,-0.000374891642004,-0.000372783187153,-0.000370656872956,-0.000368514476237,-0.000366351497323,-0.00036417143153,-0.000361973524063,-0.000359757616836,-0.00035752139274,-0.000355264136362,-0.000352985399377,-0.000350684693407,-0.000348362705583,-0.00034601425678,-0.000343641797367,-0.000341241760438,-0.000338816369745,-0.000336367481904,-0.000333891864893,-0.000331391434661,-0.00032886715562,-0.000326317694039,-0.000323736658099,-0.000321127822322,-0.000318493294229,-0.000315838566586,-0.000313165662306,-0.000310470405569,-0.000307756655993,-0.000305022258529,-0.000302263354721,-0.000299480674504,-0.000296678365919,-0.000293860209846,-0.000291023698574,-0.000288164846779,-0.000285274669004,-0.00028235570732,-0.000279410146179,-0.000276437993506,-0.000273444005934,-0.000270430194741,-0.000267393158899,-0.000264206489296,-0.00026075377349,-0.000256939778998,-0.000252697455396,-0.00024736617354,-0.000243178304965,-0.000239438699482,-0.000236065333475,-0.000232957274445,-0.000229991319662,-0.000227040883535,-0.000224223768684,-0.000221658641539,-0.000219443154364,-0.000217644249214,-0.000216926973403,-0.000215057009912,-0.000212723528096,-0.000210002547582,-0.000207001788021,-0.000203847836346,-0.000200675955139,-0.000197487952563,-0.000194282598593,-0.000191054073937,-0.000187803498623,-0.000184527906241,-0.000181233193228,-0.000177928003001,-0.000174610860307,-0.00017127416995,-0.000167912327654,-0.000164516931338,-0.000161091794491,-0.000157640006715,-0.000154164787299,-0.000150668643769,-0.000147153387603,-0.000143612502862,-0.000140040865215,-0.000136442614375,-0.00013281957849,-0.000129176687774,-0.000125513163766,-0.00012182760546,-0.000118119264811,-0.000114393086599,-0.000110650730889,-0.000106891103448,-0.000103114792488,-9.93222049276e-05,-9.55143249092e-05,-9.1694038347e-05,-8.78588129542e-05,-8.40096667846e-05,-8.0151183722e-05,-7.62753110146e-05,-7.23741293818e-05,-6.84511956131e-05,-6.45088357015e-05,-6.05508310889e-05,-5.65765938748e-05,-5.25791100874e-05,-4.85586852544e-05,-4.45207835742e-05,-4.04661820647e-05,-3.63953621962e-05,-3.23095232335e-05,-2.82076786407e-05,-2.40843704749e-05,-1.99370322526e-05,-1.57667923207e-05,-1.15805080439e-05,-7.37887196012e-06,-3.15961582318e-06,1.08716033627e-06,5.36073755902e-06,9.65973759905e-06,1.39787231207e-05,1.83061313572e-05,2.26433779226e-05,2.69925991178e-05,3.13593127747e-05,3.57437337127e-05,4.01428293605e-05,4.45522342243e-05,4.89672511565e-05,5.33884668005e-05,5.78203019274e-05,6.22676281747e-05,6.67371616453e-05,7.12293595605e-05,7.57423061096e-05,8.02685870143e-05,8.48138088123e-05,8.9372151721e-05,9.39465063926e-05,9.85333388766e-05,0.000103129139188,0.000107737660638,0.000112355277129,0.000116978204059,0.000121601039456,0.000126224137938,0.00013084845859,0.000135475674586,0.000140109566523,0.00014475261215,0.000149410386056,0.00015408332806,0.000158762772297,0.000163445605567,0.000168132498892,0.000172828411904,0.000177531375399,0.000182244950387,0.000186963822262,0.000191685701511,0.000196403589149,0.000201111717987,0.000205811662068,0.000210509920794,0.000215207843454,0.000219903757177,0.000224593822725,0.000229277426405,0.000233952136068,0.000238620530502,0.000243282931969,0.000247946063808,0.000252610898394,0.000257273654425,0.000261931888523,0.00026658553184,0.000271236132938,0.000275881327924,0.000280522385228,0.000285159755863,0.000289794477415,0.000294421545365,0.000299036753816,0.000303640744336,0.000308237537567,0.000312826851777,0.000317410923464,0.000321990127932,0.000326565964007,0.000331136262336,0.000335699945926,0.000340256810028,0.000344809206515,0.000349357608066,0.000353897963802,0.000358426581618,0.000362942727136,0.000367443230888,0.000371926415371,0.000376392513626,0.000380843147364,0.000385276395677,0.000389695075927,0.000394100331431,0.000398494440232,0.000402882611295,0.000407261665277,0.0004116334733,0.000415998865762,0.000420355526115,0.000424702773732,0.000429041464052,0.000433367338774,0.000437674793524,0.000441963848108,0.000446228381656,0.000450466140343,0.00045468042774,0.000458870136665,0.000463035173928,0.000467177320726,0.000471292969819,0.000475380000225,0.000479446301094,0.000483489021988,0.000487510147168,0.000491513321992,0.000495497802816,0.000499462565502,0.000503404424442,0.000507319798181,0.000511211439677,0.000515080865332,0.000518925580632,0.000522745801241,0.00052654290232,0.000530312506507,0.000534054607076,0.000537764685982,0.000541446591659,0.000545101310572,0.000548726102176,0.00055231664239,0.000555875001962,0.000559398727924,0.000562882613281,0.00056632884176,0.000569740333185,0.000573118743934,0.000576465861364,0.000579775457474,0.000583053932891,0.000586306381814,0.000589531264088,0.000592726271663,0.000595896855687,0.000599048103457,0.00060217312103,0.00060526851084,0.00060832931382,0.000611359532216,0.00061435577372,0.000617316919027,0.000620243209287,0.00062313881529,0.000626004199585,0.00062883537159,0.000631627665594,0.000634389426156,0.00063712110547,0.00063982273145,0.00064249420874,0.000645135183887,0.000647737219129,0.000650298422801,0.000652816582769,0.000655290088627,0.000657721924596,0.000660107711705,0.000662448160254,0.000664744340695,0.000666998955674,0.000669212804224,0.000671391321885,0.000673535960399,0.000675646894926,0.000677724574602,0.000679767678914,0.000681775452877,0.000683751855258,0.000685692864818,0.000687595986643,0.000689460440809,0.000691284931161,0.000693071927486,0.000694820549948,0.000696528098407,0.000698194805635,0.000699822962729,0.000701410866612,0.000702963285041,0.000704480975328,0.000705961211247,0.000707402428695,0.000708798176752,0.000710144235881,0.000711447076847,0.000712711512579,0.000713938009691,0.000715126261475,0.000716269924829,0.000717361411946,0.000718405816162,0.000719404782314,0.000720361815133,0.000721281499283,0.000722164270637,0.000723005094359,0.000723797960003,0.000724540111612,0.000725236987559,0.000725893764199,0.000726510461914,0.000727082069906,0.000727609054166,0.000728090564488,0.000728527757724,0.000728922566519,0.000729280261117,0.000729602927611,0.000729890971837,0.000730140037647,0.00073035200235,0.000730528745015,0.000730671068504,0.000730783174524,0.000730858722089,0.000730894079363,0.000730882121063,0.000730818430159,0.000730704091225,0.000730540425485,0.000730323246271,0.000730051039428,0.000729720138726,0.000729325489548,0.000728865771885,0.00072833929609,0.000727749374942,0.000727101812784,0.000726390569456,0.000725615362876,0.000724776150451,0.000723871652965,0.000722904148502,0.000721872459929,0.000720777926568,0.000719622951513,0.000718413366854,0.000717143371647,0.000715814876242,0.000714431755247,0.000712992728732,0.000711504043721,0.000709970480547,0.000708392318626,0.00070677298643,0.000705118287829,0.00070342529534,0.000701696463332,0.00069993771555,0.000698144785969,0.000696322566665,0.000694468817536,0.000692577365392,0.000690646654552,0.000688677876755,0.000686671811669,0.000684622333963,0.000682532087498,0.000680397588689,0.000678222451479,0.000676006502746,0.000673748134935,0.000671451886653,0.000669123471748,0.000666762596252,0.00066436194322,0.000661924699947,0.000659452204199,0.000656939069432,0.000654388414581,0.000651796669423,0.000649168987061,0.000646503745879,0.000643796522945,0.000641045367813,0.000638255341932,0.000635433082716,0.000632578746218,0.000629694524419,0.000626783191318,0.00062384197844,0.000620871365875,0.000617869860562,0.000614841161288,0.000611786246544,0.000608702828049,0.000605588419197,0.000602438748006,0.000599256670501,0.000596036804377,0.000592783137644,0.000589496362885,0.000586175407962,0.000582820204309,0.00057942823712,0.000576001580196,0.000572539540697,0.000569044285583,0.000565518812665,0.000561961469615,0.000558375554642,0.00055475681309,0.000551106364022,0.000547424646452,0.00054371478268,0.000539980747295,0.000536223973631,0.000532441621888,0.000528630622487,0.000524791569977,0.000520922571971,0.000517028545714,0.000513112004314,0.000509171500314,0.000505206802431,0.000501212833485,0.000497189642007,0.000493138923264,0.000489061542871,0.000484958357398,0.000480832975757,0.000476684951951,0.000472509738285,0.000468308310599,0.000464083910971,0.000459836861656,0.00045557040582,0.000451284978364,0.000446981376916,0.000442663146027,0.000438325911604,0.000433965591581,0.000429586667541,0.000425190312289,0.000420774719841,0.000416339222167,0.000411879781045,0.000407397591631,0.000402892356725,0.00039836717805,0.000393824255005,0.000389271445256,0.000384706333474,0.000380129607984,0.000375541217489,0.000370941963668,0.000366335992472,0.000361727189829,0.000357116821752,0.000352497791619,0.000347866664079,0.000343220993641,0.000338562488372,0.00033389676078,0.000329220195805,0.000324538013599,0.000319846420236,0.000315140611183,0.000310422786022,0.000305694605886,0.000300963092351,0.000296223604094,0.000291480074464,0.000286725926281,0.000281966922877,0.000277203120101,0.000272435924388,0.000267670486842,0.000262908178266,0.000258145966476,0.000253384528997,0.000248623588955,0.000243867354326,0.000239113916599,0.000234363823116,0.000229608721344,0.000224850907034,0.000220085843678,0.000215314620252,0.000210539232463,0.00020576025026,0.000200979284062,0.000196190951913,0.000191402183434,0.000186610668426,0.00018182620791,0.000177046558443,0.000172274565496,0.000167511486379,0.000162758687768,0.000158015433293,0.000153283317279,0.000148558348111,0.000143843321863,0.000139136151118,0.000134434938703,0.000129738668839,0.000125049684811,0.000120364935822,0.000115689639819,0.000111016625196,0.000106348550427,0.000101687259581,9.70323199953e-05,9.2385493033e-05,8.7742055832e-05,8.31066100953e-05,7.84772704288e-05,7.38563384697e-05,6.92392896569e-05,6.46256559461e-05,6.00170092006e-05,5.54159145149e-05,5.08223622531e-05,4.62392671957e-05,4.1671107008e-05,3.71205509865e-05,3.25890108457e-05,2.80750346445e-05,2.35800201009e-05,1.91070282867e-05,1.46566521772e-05,1.02298296911e-05,5.82825258068e-06,1.44709447329e-06,-2.91542283443e-06,-7.26128259779e-06,-1.15931069206e-05,-1.59115876959e-05,-2.0219567901e-05,-2.4512604175e-05,-2.87886366786e-05,-3.30471025239e-05,-3.72916340824e-05,-4.15222562203e-05,-4.57348063366e-05,-4.99298466325e-05,-5.41049929457e-05,-5.82577371714e-05,-6.23830848796e-05,-6.64796130749e-05,-7.05527651089e-05,-7.46065527226e-05,-7.86421183129e-05,-8.26575240277e-05,-8.66573403444e-05,-9.06406623442e-05,-9.46103149208e-05,-9.85682813528e-05,-0.000102514757719,-0.00010645186353,-0.000110376973362,-0.000114289374603,-0.00011818468994,-0.000122062712889,-0.000125916419827,-0.000129746414633,-0.000133550844905,-0.000137325443919,-0.000141072582428,-0.000144790736176,-0.000148483135314,-0.000152146913723,-0.000155783674106,-0.00015939567579,-0.000162988423005,-0.000166559601997,-0.000170109233528,-0.00017363812636,-0.000177143432543,-0.000180627201588,-0.000184089845069,-0.000187531851089,-0.000190957027671,-0.000194355042324,-0.000197723295839,-0.000201061337468,-0.000204372903575,-0.000207660244033,-0.000210925909659,-0.000214171510275,-0.000217394941188,-0.00022059365615,-0.00022376620224,-0.000226921409029,-0.000230060931145,-0.00023318836913,-0.000236299262069,-0.000239393771317,-0.000242467308845,-0.000245515674513,-0.000248534397871,-0.000251523325565,-0.000254488298998,-0.000257421373628,-0.000260316480301,-0.000263180338448,-0.000266013276144,-0.000268811433314,-0.000271577903153,-0.000274313261825,-0.000277023323748,-0.000279714539124,-0.000282379716734,-0.00028501798015,-0.000287639108644,-0.000290233123022,-0.000292795218804,-0.000295325519257,-0.000297826996675,-0.000300301882197,-0.000302750704214,-0.000305168174864,-0.00030755462459,-0.000309916231812,-0.000312248780891,-0.000314551776308,-0.000316831586496,-0.000319091948026,-0.000321328273642,-0.000323541228848,-0.000325728430364,-0.000327893205819,-0.00033003713397,-0.000332164632295,-0.000334088334944,-0.000335621707277,-0.000336768767164,-0.000337530063599,-0.000337909060367)
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(285)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Heterocephalus_glaber-male-liver-H3K27Ac-ERR572247.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) : 285',bty='n')
dev.off()