# R script for Peak Model
#  -- generated by MACS
p <- c(0.04205407778,0.0490381909861,0.0560233790019,0.0628656173321,0.0699357153115,0.0699647351724,0.0699991290817,0.0699453885985,0.0698486557286,0.0696003746958,0.0696852846594,0.0697873915776,0.0698067381516,0.0699260420245,0.0698121121999,0.0695971502668,0.0695530830706,0.0695713548349,0.0695477090222,0.0696562647984,0.0697078556624,0.069718603759,0.0697486984297,0.0697175289494,0.0697207533784,0.0699281916438,0.0698572542059,0.0697368755234,0.0698508053479,0.0699152939278,0.0700023535107,0.0698454312996,0.0698002892936,0.0698594038252,0.069721828188,0.0697884663873,0.0701786222959,0.0703301704587,0.0704602224282,0.0703215719814,0.0703269460297,0.0704849430505,0.070605321733,0.0705075140535,0.0706816332193,0.070621443878,0.0703957338483,0.0703398437457,0.0700066527494,0.0701023108096,0.0701162833353,0.0701796971055,0.0700679169003,0.0701549764832,0.0702581582111,0.0699582863144,0.0698271595353,0.069770194623,0.0697787931003,0.0695165395419,0.0693553180921,0.0689952568542,0.0690941393434,0.0691715256393,0.0690189026668,0.0692790066059,0.0691736752587,0.0691908722133,0.0694015349077,0.06974762362,0.0699163687375,0.0702785795947,0.0702280635405,0.0701517520542,0.0702807292141,0.0702345123985,0.0704333521866,0.0705601797271,0.0705075140535,0.0703280208394,0.070354891081,0.0702452604951,0.0702076421568,0.0703022254074,0.070329095649,0.07032587122,0.0704666712862,0.0703828361323,0.0706139202104,0.0707461217992,0.0707385981316,0.0706741095516,0.0707450469896,0.0707740668505,0.0707117278899,0.0708181340468,0.0706364912133,0.0707686928022,0.0706386408327,0.0708654256721,0.0710373952186,0.0711094074661,0.0711470258044,0.0713834839308,0.0713834839308,0.0714082045531,0.0714791419911,0.071501712994,0.0714802168007,0.0713275938282,0.0710030013093,0.0710621158409,0.0709922532126,0.070917016536,0.0709352883003,0.0708998195814,0.0710105249769,0.0710266471219,0.0709761310676,0.0710739387472,0.0712910502996,0.0713845587405,0.0713157709219,0.0710341707896,0.0711276792305,0.0712953495383,0.0712781525836,0.0712835266319,0.0713619877375,0.0714404488431,0.0714232518884,0.0713652121665,0.0716769069695,0.0719542078632,0.0719929010111,0.0719509834342,0.0721272522193,0.072131551458,0.0722132369926,0.0720563147814,0.0721949652282,0.0724002538743,0.0724529195479,0.0722766507628,0.0723325408654,0.0723239423881,0.0723486630104,0.0722959973368,0.0723013713851,0.0725528768468,0.0724980615539,0.0723809073004,0.0723002965755,0.0725990936625,0.0726979761517,0.0727581654929,0.0726668066714,0.0728205044535,0.0728452250758,0.0728258785019,0.0728882174625,0.0730322419576,0.0731773412625,0.0732224832684,0.0732869718483,0.0735341780714,0.0737975064394,0.0739189599316,0.0740823310008,0.0740866302394,0.0740877050491,0.0741199493391,0.0739641019376,0.0741898119673,0.0740812561911,0.0740361141852,0.0740361141852,0.0741188745294,0.0743918761844,0.0745552472536,0.0745337510603,0.0746541297428,0.0747702091867,0.0745864167339,0.0748228748603,0.0749626001168,0.0749583008781,0.075038911603,0.0747605358997,0.0747035709874,0.0749701237844,0.0750077421227,0.0752635468231,0.0754430400372,0.0754387407986,0.075340933119,0.0753323346417,0.0754559377532,0.0757805302722,0.0759396021027,0.0759933425859,0.0760040906826,0.075938527293,0.0758697394744,0.0759310036253,0.0761911075644,0.0763963962105,0.0764221916425,0.0764866802224,0.0766650986268,0.0769144544692,0.077143388928,0.0773056851875,0.0773884455317,0.0775657891265,0.0776528487094,0.0778645862135,0.078023658044,0.0778979053131,0.077721636528,0.0777065891927,0.0776904670477,0.0777721525823,0.0779312244127,0.0781784306358,0.0784084399042,0.0783084826053,0.0784342353362,0.0787190598975,0.0789211241146,0.0792252952499,0.0795391396723,0.0797981688016,0.0800034574477,0.0798443856172,0.0797788222277,0.0798916772425,0.0801001903176,0.0802506636708,0.0805161416582,0.0805344134225,0.0804570271266,0.0806139493377,0.080674138679,0.0808224624128,0.080914896044,0.0811212594998,0.080963262479,0.0810223770106,0.081194346557,0.0812921542366,0.081242712992,0.08121691756,0.0816274948522,0.0817672201087,0.0819972293771,0.0821283561563,0.0823411684701,0.0826582373214,0.0826539380827,0.0825464571162,0.0829398374537,0.083012924511,0.0829043687348,0.0832053154411,0.0831633978642,0.0833321429816,0.0835406560567,0.0835428056761,0.083607294256,0.0839329615846,0.0839490837296,0.084217786146,0.0843542869735,0.0843155938255,0.0845337801876,0.0843134442062,0.0844477954144,0.0844123266954,0.084519807662,0.0845853710515,0.0845606504292,0.0846165405318,0.0844886381817,0.0847680886947,0.0847648642657,0.0851969377512,0.0851528705549,0.0852506782345,0.0854548920709,0.0856128890917,0.0860750572479,0.0862298298397,0.0864974574464,0.0865383002137,0.0867253170955,0.0868252743943,0.0870767798561,0.0876765236494,0.0881053727059,0.0887276875022,0.0890436815438,0.0898003475483,0.0909031022651,0.0919112737312,0.0931086116986,0.0942350122279,0.0954259013373,0.0961750436741,0.0970391906451,0.0975927176228,0.0984052737299,0.0988362724057,0.0990953015351,0.0992812436072,0.0994424650571,0.0996219582712,0.0997315888571,0.0999572988868,0.100175485249,0.100512975484,0.100400120469,0.100514050294,0.100689244269,0.100968694782,0.101247070485,0.101376047645,0.101561989717,0.101575962243,0.101791998986,0.101703864593,0.102153135033,0.102210099946,0.102299309148,0.102422912259,0.10261207876,0.102804469691,0.103006533908,0.103315004282,0.103440757013,0.103662167804,0.103694412094,0.104125410769,0.104206021494,0.104408085711,0.104527389584,0.104532763633,0.104812214146,0.105052971511,0.105253960918,0.105737625268,0.106266431623,0.106387885115,0.106536208849,0.106692056251,0.106829631888,0.107126279355,0.107003751053,0.107114456449,0.10704674344,0.107139177071,0.106991928147,0.10723913437,0.10765616052,0.107888319408,0.107942059891,0.108302121129,0.108470866247,0.108547177733,0.108906164161,0.10878041143,0.10900612146,0.109149071146,0.109322115502,0.109269449828,0.109610164492,0.109587593489,0.109747740129,0.110080931126,0.11009920289,0.110450665651,0.11057964281,0.11074193907,0.110788155886,0.111045035396,0.111268595806,0.111371777534,0.111766232681,0.111733988391,0.11186726479,0.112044608384,0.112206904644,0.112303637514,0.112665848371,0.112853940063,0.112753982764,0.113024834799,0.112938850026,0.113282789119,0.113516022816,0.113617054925,0.113777201565,0.11388898177,0.113853513051,0.113963143637,0.114310307159,0.11437264612,0.114577934766,0.114687565352,0.114879956282,0.11485523566,0.115154032747,0.115503345888,0.115636622286,0.115837611694,0.116023553766,0.116140708019,0.116480347874,0.116526564689,0.116577080744,0.116835035063,0.116801715964,0.116894149595,0.116893074785,0.116885551118,0.117046772567,0.1173283727,0.117094064193,0.117145655057,0.117273557407,0.117555157539,0.117760446185,0.117688433938,0.117884049297,0.117901246251,0.117750772898,0.117803438572,0.118118357804,0.118415005272,0.118617069489,0.118506364093,0.118661136685,0.118768617651,0.118915866576,0.119134052938,0.119246907953,0.119245833143,0.119231860617,0.119249057572,0.119257656049,0.119482291269,0.119374810303,0.11967145777,0.119540330991,0.11986707313,0.119847726556,0.119773564689,0.119856325033,0.119887494513,0.119775714308,0.11951131113,0.11941672788,0.118972831488,0.118791188654,0.118543982431,0.118279579254,0.118246260154,0.118284953302,0.118151676904,0.118245185344,0.118150602094,0.118309673924,0.118494541187,0.118655762637,0.118608471011,0.11877291689,0.119009375017,0.118937362769,0.119039469687,0.119013674255,0.119180269753,0.119152324702,0.119103958267,0.1190297964,0.1190631155,0.119187793421,0.118846003947,0.118994327681,0.118761093984,0.118502064854,0.118605246582,0.118653613017,0.118688006927,0.118736373362,0.118706278691,0.118450473991,0.118454773229,0.117957136354,0.118015176076,0.117858253865,0.117597075116,0.117329447509,0.1170392489,0.116889850356,0.116498619638,0.116287956944,0.116339547808,0.116247114176,0.116190149264,0.116057947675,0.115840836123,0.115648445193,0.115712933773,0.115429184021,0.115542039036,0.115661342909,0.115510869556,0.115605452806,0.115158331985,0.115040102922,0.115119638837,0.114972389913,0.114643498156,0.114928322717,0.114669293587,0.11443605989,0.114044829172,0.113778276375,0.113704114508,0.113446160188,0.1129581966,0.112780853005,0.112544394879,0.11180277621,0.111483557739,0.111168638507,0.111037511728,0.110796754363,0.110587166478,0.110396925167,0.110344259494,0.110064808981,0.110039013549,0.110210983095,0.11000139521,0.109671428643,0.109431746088,0.109155520004,0.10897387717,0.109126500143,0.108550402162,0.108210762308,0.107929162175,0.10743367492,0.10701342434,0.106761918879,0.106589949332,0.106476019508,0.106384660686,0.106192269756,0.106466346221,0.106552330994,0.106280404149,0.10633951868,0.106369613351,0.106570602758,0.106399708022,0.105978382633,0.105659164162,0.105294803685,0.1048627302,0.104589728545,0.104401636853,0.104312427651,0.104322100938,0.104021154232,0.103843810637,0.103863157211,0.103886803024,0.103999658039,0.103856708353,0.103718057906,0.103455804348,0.103251590511,0.103042002627,0.103043077436,0.102893678893,0.102794796404,0.102685165818,0.102401416066,0.102155284653,0.102029531922,0.102105843408,0.101909153239,0.101698490545,0.101211601766,0.100940749731,0.10046030981,0.0997090178541,0.0991587153054,0.0987062204362,0.097749639834,0.0968382012377,0.0958010099105,0.0947068536711,0.0936675127246,0.092413209845,0.0915995789283,0.0907923968695,0.0900733492033,0.0896638467208,0.0892210251386,0.0887018920702,0.0883525789289,0.0882483223914,0.0881322429475,0.0881376169959,0.087693720604,0.0876120350694,0.087378801372,0.0868510698263,0.0867403644308,0.086511429972,0.0864974574464,0.0862341290783,0.0860342144806,0.085955753375,0.0860793564865,0.0859439304687,0.0858149533088,0.0860342144806,0.0860750572479,0.0862878695616,0.0859998205713,0.0858428983601,0.08590738694,0.0858052800218,0.0855688218954,0.0853409622464,0.0850324918724,0.0846079420545,0.0842779754872,0.0838265554277,0.0837308973675,0.0837814134218,0.0835137858151,0.0833848086552,0.0833557887943,0.0833450406976,0.0832128391088,0.0830784879006,0.0830408695623,0.0829387626441,0.0827001548983,0.0822068172619,0.0820789149117,0.0819520873712,0.0819176934619,0.0818918980299,0.0817897911117,0.0814877695957,0.0812351893243,0.081197570986,0.0811911221281,0.0812738824723,0.0810739678745,0.0809385418567,0.0808719036574,0.0806859615853,0.0806182485764,0.0807203554946,0.0807493753556,0.0805817050477,0.080391463737,0.0803645934953,0.0802463644321,0.0801001903176,0.0796853137868,0.0792263700596,0.0791038417578,0.0790081836975,0.0787631270938,0.0787147606589,0.0786137285503,0.0782267970707,0.0779957129927,0.077968842751,0.0779022045518,0.0778226686365,0.0775055997852,0.0774024180573,0.0772401217979,0.0770294591034,0.0770015140521,0.0769789430492,0.0773293310001,0.0771261919733,0.0769821674782,0.0769993644328,0.0769907659555,0.0769305766142,0.0769531476172,0.0769520728075,0.0766747719138,0.0766565001495,0.0761760602291,0.0761212449361,0.0761233945555,0.0760030158729,0.0758536173294,0.0756289821094,0.0755494461941,0.0752538735361,0.0750464352707,0.0746949725101,0.0745584716826,0.0743424349398,0.0740973783361,0.0740715829041,0.0740167676112,0.0738211522521,0.0737910575814,0.0737072224275,0.0737985812491,0.0737749354365,0.0738050301071,0.0737072224275,0.0736459582766,0.0735083826394,0.0734084253405,0.073294495516,0.0730935061086,0.072957005281,0.0726700311004,0.072716247916,0.0726227394751,0.0727624647316,0.0725937196141,0.072372308823,0.0723207179591,0.0722487057115,0.0721487484126,0.072141224745,0.0723379149137,0.0721616461286,0.0719144399056,0.0716425130602,0.0717456947881,0.0717607421234,0.0716683084922,0.0716339145829,0.071511386281,0.0712534319613,0.0709901035933,0.0711534746624,0.0711738960461,0.0712233372907,0.0713017983963,0.0711728212364,0.0712502075323,0.0712942747286,0.0711051082275,0.0712297861487,0.0713050228252,0.0711620731397,0.070958934113,0.0708460790981,0.0705741522527,0.0704881674795,0.0703344696973,0.070049645136,0.0700926375226,0.0700775901873,0.0700002038914,0.0700055779397,0.0701582009122,0.0698970221635,0.0698314587739,0.0699174435472,0.0698465061092,0.0698368328222,0.0695960754572,0.0693875623821,0.0693768142854,0.0690318003828,0.0688877758877,0.0688619804557,0.0689920324252,0.068864130075,0.0686964597672,0.0686867864802,0.068831885785,0.0687684720148,0.0685825299427,0.0686448689033,0.0686814124319,0.0686480933323,0.0684707497375,0.0685072932661,0.0687297788668,0.068549210843,0.0683578947226,0.0684675253085,0.0685707070363,0.0684438794958,0.0684406550668,0.0685352383174,0.0684976199791,0.0684094855865,0.0680870426869,0.0681848503664,0.0682514885657,0.0680644716839,0.0680440503003,0.0682815832363,0.0682364412304,0.0680859678772,0.0681096136899,0.0681934488438,0.0683256504326,0.0684481787345,0.068600801707,0.0685330886981,0.0683353237196,0.0681891496051,0.0682127954178,0.0682450397077,0.0681536808862,0.0680268533456,0.068016105249,0.0678753051828,0.0678710059441,0.0680741449709,0.0682149450371,0.0682299923724,0.0679387189531,0.0679043250438,0.0679462426207,0.0679161479501,0.0678258639382,0.0678269387479,0.0677216074006,0.0676141264341,0.0674872988936,0.0673518728757,0.0675270668512,0.0675044958482,0.0675646851895,0.0675603859508,0.0675915554311,0.0676205752921,0.0675722088571,0.0676936623493,0.0676571188207,0.0678817540408,0.0679795617203,0.0681859251761,0.067974187672,0.0679451678111,0.0678366120348,0.067672166156,0.0676807646334,0.0676044531471,0.0675012714192,0.0674324836006,0.067366920211,0.067090694127,0.0671476590393,0.0671347613233,0.0672873842958,0.0674389324586,0.0674819248452,0.0675141691352,0.0676356226274,0.0675431889962,0.0675109447062,0.0676162760534,0.0675990790988,0.0676334730081,0.0677162333523,0.0676829142527,0.0676130516244,0.0675722088571,0.0674658027003,0.0674486057456,0.0675453386155,0.0677216074006,0.067720532591,0.067964514385,0.0678118914125,0.0678989509954,0.0679978334847,0.0680655464936,0.06830200462,0.0683578947226,0.0683750916772,0.0681612045538,0.0683998122995,0.0684546275925,0.0685825299427,0.0687555742988,0.0687770704921,0.0687716964438,0.068616923852,0.0686975345769,0.0686308963776,0.0687362277248,0.0685793055137,0.0683826153449,0.0684567772118,0.0684041115382,0.0682934061427,0.0684105603962,0.0686094001843,0.0687201055798,0.0687630979665,0.0687813697308,0.0688652048847,0.0689253942259,0.068864130075,0.0687802949211,0.06891249651,0.068909272081,0.0687759956824,0.0687426765828,0.0687351529152,0.0688136140207,0.0689425911806,0.0690210522862,0.0690672691018,0.0689866583769,0.0691048874401,0.0689458156096,0.0691704508297,0.0690801668178,0.0690801668178,0.0691865729746,0.0690393240505,0.0689974064735,0.0689630125642,0.0691672264007,0.0691253088237,0.0693176997538,0.0692607348416,0.0692897547025,0.0692833058445,0.0692510615546,0.0692521363642,0.0693499440438,0.0694380784364,0.06945849982,0.0695100906839,0.0695874769799,0.0696584144178,0.0699980542721,0.0702495597338,0.0703151231234,0.0704537735702,0.0704419506639,0.0704688209055,0.0705773766817,0.0706063965427,0.0705300850565,0.0704731201442,0.0702302131598,0.0701861459635,0.0701786222959,0.0702667566884,0.0704301277576,0.0705924240171,0.0703968086579,0.0703656391776,0.0704344269962,0.0705763018721,0.0705881247784,0.0705569552981,0.0705085888632,0.0705204117695,0.0703376941263,0.0702635322594,0.070335544507,0.070312973504,0.0704290529479,0.0703269460297,0.0705236361985,0.0706042469234,0.0707128026996,0.0707342988929,0.0706558377873,0.0706235934974,0.0707837401375,0.0708417798594,0.0706741095516,0.0708514531464,0.0707471966089,0.070624668307,0.0707031294126,0.0705666285851,0.0707869645665,0.0707557950862,0.0707321492736,0.0707385981316,0.0709901035933,0.0708686501011,0.0710782379858,0.0711674471881,0.0711115570855,0.0713071724446,0.0713361923055,0.0713942320275,0.0714006808855,0.0715973710543,0.0716317649635,0.071810183368,0.0715608275256,0.0715930718156,0.0716564855859,0.0717467695977,0.0717564428847,0.0718435024676,0.0720606140201,0.0719735544372,0.0718682230899,0.0719649559598,0.0720283697301,0.0722153866119,0.0722873988595,0.0722648278565,0.0721971148476,0.0722433316632,0.0720240704914,0.072131551458,0.0720444918751,0.0719660307695,0.0721251026,0.0721132796937,0.0719531330535,0.0720165468238,0.0720907086907,0.0720606140201,0.0721422995546,0.0720885590714,0.072134775887,0.0721928156089,0.0722487057115,0.0722540797598,0.0722702019048,0.0720391178268,0.0720315941591,0.0719982750595,0.0721014567873,0.0720541651621,0.0723153439108,0.0723088950528,0.0723142691011,0.0723045958141,0.072375533252,0.0725571760855,0.0726119913784,0.0727925594022,0.0728634968402,0.0728226540729,0.0727409685383,0.0727613899219,0.072664657052,0.0726883028647,0.0725604005145,0.0724937623152,0.0724410966416,0.0724916126959,0.0723776828714,0.0724679668833,0.0725410539405,0.0723389897234,0.0723626355361,0.072144449174,0.0723561866781,0.0723228675784,0.0723217927688,0.0723594111071,0.0723153439108,0.0723207179591,0.0723486630104,0.072443246261,0.0724539943576,0.0726786295777,0.0725528768468,0.0726700311004,0.0727603151123,0.0726549837651,0.0727893349732,0.0727506418253,0.0727409685383,0.0728086815472,0.0728860678431,0.0727947090216,0.0727871853539,0.0729913991903,0.0729881747613,0.0728720953175,0.0727484922059,0.0726334875717,0.0725088096506,0.0726431608587,0.0729107884654,0.07302471829,0.0732439794617,0.0732020618848,0.0732708497034,0.0734729139205,0.0734546421561,0.073619088035,0.0737158209049,0.073615863606,0.0733471611896,0.0734159490082,0.0734686146818,0.0733847795279,0.0732676252744,0.0730139701933,0.0730644862476,0.0731128526825,0.072966678568,0.0729935488097,0.0729623793294,0.0727936342119,0.0726442356684,0.0725346050825,0.0725464279888,0.0727796616862,0.0728860678431,0.0728527487435,0.0729269106104,0.072998922858,0.0729419579457,0.0730709351056,0.0729656037584,0.0729806510937,0.0730548129606,0.0731096282535,0.0731837901205,0.0731085534439,0.0732858970387,0.0732235580781,0.0732246328877,0.0732020618848,0.0732815978,0.0733471611896,0.0732665504647,0.072973127426,0.0726947517227,0.0728774693658,0.0726216646654,0.0724851638379,0.0725109592699,0.072436797403,0.0724969867442,0.0724625928349,0.0725249317955,0.0726592830037,0.0728559731725,0.0727646143509,0.0728398510275,0.0728957411301,0.0728946663204,0.0732085107428,0.0733052436127,0.0731816405011,0.0732031366944,0.0733794054796,0.0734643154431,0.073307393232,0.0732439794617,0.073300944374,0.0734320711532,0.0731461717822,0.0729054144171,0.0731644435465,0.0731332740662,0.0729999976677,0.0728301777405,0.0729075640364,0.0728882174625,0.0726517593361,0.0724475454996,0.0724131515903,0.0724228248773,0.0723432889621,0.0723045958141,0.0722304339472,0.0723959546357,0.0724959119346,0.0725335302729,0.0727957838312,0.0728355517888,0.0727495670156,0.0727269960126,0.0725969440431,0.0727506418253,0.0725432035598,0.0722927729078,0.0722207606602,0.0720358933978,0.0718639238513,0.071848876516,0.0718177070357,0.0646669983314,0.0574561002859,0.0500517365007,0.0430138828113,0.0)
m <- c(0.0427594418204,0.049950280106,0.0571443405745,0.0643051051526,0.0713326861686,0.0714014260716,0.0715421280604,0.0715174246578,0.0716216085732,0.071769828989,0.0717333109155,0.0718697166605,0.0716806819273,0.07157434989,0.0717311627936,0.0717064593909,0.0716237566952,0.07170538533,0.0716183863903,0.0716581266467,0.0717580143182,0.0717386812205,0.0721103063208,0.0721790462238,0.0722660451634,0.0723294147615,0.0723251185175,0.0723498219202,0.0724583020795,0.0724862276651,0.0725259679215,0.0723798956277,0.0723508959811,0.0726140409221,0.0726988917398,0.0727407801182,0.072953444193,0.072952370132,0.0729405554612,0.0728965189608,0.0729276667294,0.072887926473,0.0727977053503,0.0727021139228,0.0727150026546,0.0727429282402,0.0726494849346,0.072620485288,0.0727203729595,0.0728428159117,0.0729072595707,0.0730243322179,0.0729255186074,0.0729469998271,0.0730608502913,0.0730211100349,0.0731779229386,0.0732198113169,0.0731134792795,0.0731435529871,0.0729394814002,0.0729845919615,0.0732058485241,0.0732026263412,0.0731016646087,0.0732735143661,0.073151071414,0.0730866277549,0.0730393690717,0.0729738513517,0.0729867400835,0.0730962943038,0.0730082213031,0.0729029633267,0.0728288531189,0.0724722648723,0.0725431528972,0.0725904115805,0.0727869647405,0.0727171507766,0.0727257432644,0.0726602255444,0.0726054484343,0.0726484108736,0.0725238197995,0.0727192988985,0.0727805203746,0.0727590391549,0.072554967568,0.0726559293005,0.0727386319962,0.0728922227169,0.0730135916081,0.0731940338533,0.0733572911228,0.073475437831,0.0732885512199,0.0734314013307,0.0735194743314,0.0735742514415,0.0736891759668,0.0734990671727,0.0734163644769,0.0733111065005,0.0733401061471,0.0732917734028,0.0732659959392,0.0730919980599,0.0731886635484,0.073281032793,0.0731897376094,0.0731918857313,0.07314677517,0.0731177755235,0.0730458134376,0.0730017769372,0.0730554799864,0.0730608502913,0.0728814821071,0.0726290777759,0.0726634477274,0.0726086706172,0.0726430405687,0.0727826684966,0.072686003008,0.0724464874087,0.0724174877621,0.0725120051287,0.0724314505549,0.0725302641654,0.0724636723844,0.0724722648723,0.0725259679215,0.0723938584205,0.0724024509084,0.0727418541792,0.0727622613379,0.0728750377412,0.0729555923149,0.0729974806933,0.072954518254,0.0730082213031,0.0729802957176,0.0730587021694,0.0730114434861,0.0728105940821,0.0728997411438,0.0726774105202,0.0728718155582,0.0727053361057,0.0729953325713,0.0730715909012,0.0731349604992,0.0730415171936,0.0731242198894,0.0733164768054,0.0731951079143,0.0733229211713,0.0731671823287,0.0733787723425,0.0729942585103,0.0730060731812,0.0728997411438,0.0729985547543,0.0729190742415,0.0726097446782,0.0725904115805,0.0725678562998,0.0726570033615,0.0725990040684,0.0727665575818,0.0726301518369,0.0726698920933,0.0726548552395,0.0727708538257,0.0730297025228,0.0732037004022,0.0731704045117,0.07301573973,0.0729158520585,0.0727815944356,0.0727858906795,0.0727160767156,0.0725291901044,0.0724368208598,0.0721113803818,0.0720233073811,0.071765532745,0.0717891620867,0.0717569402572,0.0716549044637,0.0716097939024,0.0716248307562,0.0717461996473,0.071701089086,0.0720243814421,0.0718729388434,0.0720265295641,0.0719803449418,0.0721360837844,0.0721081581988,0.0722445639438,0.0720888251011,0.072095269467,0.0721672315529,0.072030825808,0.0720641216985,0.0719083828559,0.0718493095018,0.0716989409641,0.0716420157319,0.0713230196198,0.0714357960231,0.0712617981437,0.0712596500217,0.071179095448,0.0710663190447,0.0712499834729,0.071306908705,0.0711973544847,0.0712005766676,0.0711984285457,0.071113577728,0.0709266911168,0.0709191726899,0.0710212084834,0.0709546167024,0.0708686918237,0.070980394166,0.0710351712762,0.0712703906316,0.0713638339372,0.0712306503752,0.0712865015463,0.0712822053024,0.0711286145817,0.0712370947411,0.0710888743253,0.0709685794952,0.0709363576657,0.0706764349076,0.0704659189548,0.0705088813942,0.0706152134315,0.0704379933692,0.070319846661,0.0703134022951,0.0704154380886,0.0701952555869,0.0701297378669,0.0700985900984,0.0702392920873,0.0703123282342,0.0702886988925,0.0702607733069,0.0703176985391,0.0703499203686,0.0701394044158,0.0702199589896,0.0702092183797,0.0703166244781,0.0702221071115,0.0700255539515,0.0699138516092,0.0699514437436,0.0701168491351,0.0699084813043,0.0700556276591,0.0700008505489,0.0698440376453,0.0698010752059,0.06979463084,0.0699181478532,0.0699235181581,0.0698257786086,0.069662521339,0.0699159997312,0.0697172984492,0.0696550029122,0.0697548905836,0.0695701520944,0.0695937814361,0.0693811173613,0.0694197835567,0.0693596361416,0.0692253785187,0.069075009981,0.0690986393226,0.0692253785187,0.0690868246518,0.0690277512977,0.0687882356983,0.0688193834669,0.0685755716236,0.0686410893436,0.0687817913324,0.0686217562459,0.06874634732,0.0685358313672,0.0685863122334,0.0687678285397,0.0689375301751,0.0690814543469,0.0692361191285,0.0691587867377,0.0690986393226,0.0692264525797,0.0689794185534,0.0689643816997,0.068879530882,0.0688644940282,0.0687581619908,0.0686851258439,0.0685927565993,0.0686636446242,0.0683833147075,0.06828772328,0.0683768703416,0.0682984638898,0.0683962034393,0.06815668784,0.0683328338413,0.0683016860727,0.0681480953521,0.0681223178885,0.0685283129403,0.0683575372439,0.0684488324275,0.0685616088308,0.0684713877082,0.0686958664537,0.0684681655252,0.0683339079023,0.0685540904039,0.0685057576596,0.0683349819632,0.0683672037927,0.0682318721088,0.0682039465232,0.0683167229265,0.0682436867796,0.0685444238551,0.0686980145757,0.0685412016721,0.0684993132937,0.0683854628295,0.0683049082557,0.0682887973409,0.0682469089626,0.0681813912426,0.068216835255,0.0679773196557,0.068024578339,0.0681899837304,0.0682039465232,0.0682050205842,0.0682587236334,0.0684337955737,0.0685433497941,0.0684563508544,0.0684080181101,0.0683736481587,0.0683435744511,0.0683704259757,0.0683102785606,0.0683220932314,0.0685100539036,0.0684434621226,0.0682469089626,0.0684370177567,0.0685540904039,0.0687484954419,0.0687549398079,0.0685175723305,0.0686711630511,0.0687237920393,0.0686271265508,0.0686239043678,0.0688870493088,0.0688483831134,0.0686303487337,0.068548720099,0.0685626828918,0.068676533356,0.0685723494406,0.0686722371121,0.0687173476734,0.06881186504,0.0687635322957,0.0687710507226,0.0689246414433,0.0688483831134,0.0688548274793,0.0690793062249,0.069273711263,0.0691587867377,0.0691319352131,0.0689128267724,0.0687399029541,0.0687409770151,0.0688859752479,0.0690084182,0.0687860875764,0.0684359436957,0.0683564631829,0.0684015737442,0.0683177969875,0.0685723494406,0.0688000503692,0.0687968281862,0.0686872739659,0.0684649433423,0.0687624582347,0.0688891974308,0.0688451609305,0.0688623459062,0.0690384919075,0.0691996010551,0.0691920826282,0.0692812296898,0.0694552275692,0.0697892605351,0.0697849642912,0.0699815174512,0.069991184,0.0700502573541,0.0700481092322,0.0700051467928,0.0700223317686,0.0701286638059,0.0700985900984,0.0701952555869,0.0701866630991,0.0702296255384,0.070321994783,0.0704122159056,0.0704734373817,0.070518547943,0.0706989901883,0.070586213785,0.070653879627,0.0706893236394,0.0708536549699,0.0709320614217,0.0710534303129,0.0710502081299,0.0713466489614,0.0713047605831,0.0711071333621,0.0713659820591,0.0714121666814,0.0712317244362,0.0712156135214,0.0712392428631,0.0711833916919,0.0714723140965,0.071436870084,0.0716817559883,0.071963159966,0.0719212715877,0.07196745621,0.0720931213451,0.0720909732231,0.0722445639438,0.0724765611162,0.0723176000906,0.072357340347,0.0723723772008,0.0724378949208,0.0724293024329,0.0725807450316,0.0726698920933,0.0729061855097,0.0729781475956,0.073017887852,0.0732004782192,0.0733776982815,0.0733164768054,0.0733862907694,0.073671990991,0.073676287235,0.0738126929799,0.0739276175051,0.0739942092861,0.0741660590435,0.0744463889603,0.0744925735825,0.0747106079622,0.0750403446842,0.0750188634645,0.0753088599301,0.0754688950167,0.0754753393826,0.0754431175531,0.0754248585164,0.0752390459662,0.0752422681491,0.0754785615655,0.0754538581629,0.0757234474698,0.0757524471164,0.0758201129583,0.0758598532147,0.07604029546,0.0762250339492,0.0765107341708,0.0768340265269,0.0766686211354,0.0767792494168,0.0767502497702,0.0767298426115,0.0768533596246,0.0771723557368,0.0774279822509,0.077484907483,0.0776223872889,0.0775740545447,0.0778565325834,0.0777942370463,0.0778973469007,0.0782281576837,0.0784418958195,0.0783516746968,0.0783978593191,0.0786158936988,0.0786212640037,0.0788339280785,0.0788629277251,0.0791894422641,0.0793108111552,0.0793215517651,0.0795954373159,0.0798177679395,0.0800196914044,0.0801088384661,0.0802570588818,0.0805159075789,0.0805148335179,0.0804847598104,0.0807317938366,0.0807812006419,0.0808155705933,0.0810110496924,0.081098048632,0.0811377888884,0.0812097509743,0.081229084072,0.0814202669271,0.0817156336976,0.0819057424918,0.0819938154924,0.0821259249934,0.0823310706413,0.0824556617154,0.082743510059,0.0830120253049,0.0830431730734,0.083404057564,0.0834953527476,0.0835286486381,0.0838573112991,0.0837187574322,0.0838422744453,0.0841569743135,0.0842289363994,0.0842804913266,0.0843535274735,0.0844684519988,0.0845565249994,0.0848132255745,0.0849335204047,0.0853298489077,0.0854297365791,0.0854125516034,0.0853771075909,0.0855940679096,0.0858421759969,0.086094580328,0.0862127270362,0.0861396908893,0.0862814669392,0.0864447242087,0.0866251664539,0.0866337589418,0.0870075321641,0.0870204208959,0.0871031235917,0.0871869003484,0.0873694907156,0.0875488588999,0.0875617476317,0.0876541168763,0.0877110421084,0.0880901856357,0.0882437763563,0.0884714772849,0.0886272161275,0.0886454751642,0.0890686551918,0.0895992413177,0.0901846045538,0.0910019649623,0.091813955066,0.0925163909493,0.093585081628,0.0948073630274,0.0959694970118,0.097137001301,0.0979812132342,0.0986245757634,0.0994086402814,0.099961781688,0.100376369228,0.100732957474,0.101018657696,0.101019731757,0.101302209796,0.101422504626,0.10179842597,0.102129236753,0.102397751999,0.102622230745,0.102961634015,0.103353666274,0.103481479531,0.103752142899,0.103832697473,0.103857400876,0.10390573362,0.104087249926,0.104230100037,0.104285951208,0.104472837819,0.104555540515,0.104689798138,0.104854129469,0.105086126641,0.105536158193,0.105608120279,0.105839043391,0.105948597611,0.106081781173,0.106314852406,0.106498516835,0.106676810958,0.106745550861,0.107021584534,0.107128990632,0.107067769156,0.107215989572,0.107438320195,0.107536059745,0.107600503404,0.107554318781,0.107711131685,0.107998980029,0.10794527698,0.108357716397,0.108748674595,0.108884006279,0.108773377998,0.109077337256,0.109037597,0.109487628552,0.109687403895,0.109948400714,0.110136361386,0.110094473008,0.110328618302,0.110453209376,0.110929018392,0.111258755114,0.111522974116,0.111751749106,0.111940783839,0.111801155911,0.112019190291,0.112079337706,0.112140559182,0.112352149195,0.112532591441,0.112635701295,0.113050288835,0.113130843409,0.11349280196,0.114004054988,0.11432197704,0.114781675141,0.115266076644,0.115446518889,0.115589369,0.115574332146,0.115707515708,0.115693552916,0.115592591183,0.115646294232,0.115746181904,0.115797736831,0.115826736478,0.116068400199,0.116076992687,0.116378803823,0.116435729055,0.116770836082,0.11716179428,0.117268126318,0.117491531002,0.117355125257,0.117482938514,0.117519456588,0.117864230164,0.117779379346,0.117993117482,0.118149930385,0.117724602236,0.117803008688,0.11790397042,0.118225114654,0.118487185534,0.118486111473,0.118631109706,0.118684812755,0.118623591279,0.118596739754,0.119073622831,0.119347508382,0.119275546296,0.119201436088,0.119025290087,0.119268027869,0.119109066844,0.119317434675,0.119391544882,0.119445247932,0.119467803212,0.119289509089,0.11944309981,0.119357174931,0.119271250052,0.119004882928,0.118914661806,0.118808329768,0.118728849255,0.118795441036,0.118733145499,0.11888673622,0.118582776962,0.118748182353,0.118737441743,0.118843773781,0.119201436088,0.119385100516,0.11938939676,0.119309916248,0.119229361674,0.119202510149,0.119405507675,0.119260509442,0.11954191342,0.119594542408,0.119281990662,0.119042475063,0.119132696185,0.119043549124,0.119045697246,0.118837329415,0.118562369803,0.118538740461,0.118081190482,0.118021043067,0.11785993392,0.117572085576,0.117205830781,0.117236978549,0.117297125964,0.117349754952,0.117180053317,0.117031832901,0.116934093352,0.116968463303,0.116956648632,0.117247719159,0.117246645098,0.117232682305,0.116772984204,0.116565690434,0.116530246422,0.116487283983,0.116725725521,0.116293953006,0.116032956186,0.115465851987,0.115574332146,0.115005079825,0.115236002937,0.114921303068,0.11508670846,0.115183373948,0.114729046152,0.114743008945,0.114625936298,0.114997561398,0.114643121274,0.114504567407,0.114078165196,0.114024462147,0.113512135058,0.113180250214,0.113238249507,0.112945030858,0.113056733201,0.112696922771,0.112507888038,0.112427333464,0.112104041108,0.111895673277,0.111874192058,0.111627158032,0.111395160859,0.111215792675,0.110905389051,0.110777575793,0.110662651268,0.110602503853,0.110628281317,0.110630429439,0.110349025461,0.110365136376,0.110109509862,0.110068695544,0.109859253652,0.109552072211,0.109428555198,0.109111707208,0.10915789183,0.108932339024,0.108812044193,0.108385641983,0.108261050909,0.108068793993,0.107831426515,0.107749797881,0.107591910916,0.107739057271,0.107309432877,0.107209545206,0.107058102607,0.106893771277,0.106924919045,0.106639218823,0.106494220591,0.106446961907,0.106272964028,0.105759562878,0.105916375781,0.105709082012,0.105589861242,0.10549964012,0.105277309496,0.105320271935,0.105220384264,0.104937906225,0.104913202823,0.105009868311,0.104726316212,0.104554466454,0.10447391188,0.104354691111,0.104203248512,0.10401528784,0.103747846655,0.103537330703,0.103105558187,0.102880005381,0.102506232158,0.102406344487,0.102308604937,0.102234494729,0.101972423849,0.10169961236,0.101691019872,0.101706056725,0.101784463177,0.101448282089,0.101374171882,0.100986435866,0.100766253365,0.100468738472,0.10021526008,0.100036965957,0.0996814517713,0.0994838245503,0.0990370151811,0.0992045686945,0.098843684204,0.0988963131922,0.0986030945437,0.098448429762,0.0981541370525,0.0978834736846,0.097464589901,0.0967503393469,0.0960575700124,0.0949835090288,0.0941640004982,0.0929417190988,0.0918322141027,0.090631413923,0.0895960191347,0.0887507331406,0.0879741870494,0.0873823794474,0.0870268652618,0.0866906841739,0.0864039098913,0.08635879933,0.0862803928782,0.0861901717556,0.0858690275214,0.085567216385,0.0854737730795,0.0851934431627,0.084845447404,0.0846349314512,0.0845307475358,0.0843836011811,0.0841623446184,0.0840377535443,0.0841021972033,0.0838830887627,0.0837166093102,0.0836296103705,0.0836263881876,0.0835533520407,0.0836167216387,0.0834373534544,0.0834459459423,0.0834405756374,0.0833245770512,0.0832279115626,0.083201060038,0.0831248017082,0.08294113728,0.0828401755475,0.0826178449239,0.0823987364833,0.0821302212373,0.0818821131501,0.0819905933095,0.0820324816878,0.0817832995396,0.0814771921593,0.0813096386458,0.081036827156,0.0808778661304,0.0808263112032,0.0808295333861,0.0806598317507,0.0804869079323,0.080380575895,0.0803300950287,0.0803719834071,0.080311835992,0.0803365393946,0.0800261357704,0.0799305443428,0.0795771782792,0.0795116605592,0.0791883682031,0.0789166307742,0.0786653005041,0.0784311552096,0.0783699337336,0.0782442685985,0.0783226750503,0.0782270836227,0.0783806743434,0.0783742299775,0.0782260095617,0.0783033419526,0.0782131208299,0.0781486771709,0.0778039035952,0.0776299057158,0.0772819099571,0.0770713940043,0.0769328401374,0.0768351005879,0.0769220995276,0.076764212563,0.0766772136233,0.0766922504771,0.0769349882594,0.0769553954181,0.0771476523341,0.0770692458823,0.076961839784,0.0765719556469,0.0766192143302,0.0764505867558,0.0764312536581,0.0763098847669,0.0760467398259,0.0758942231662,0.0757191512259,0.0756998181282,0.0756010045177,0.0758684457026,0.0756031526397,0.0756289301033,0.0755408571026,0.0755483755295,0.0754785615655,0.0754828578095,0.0753561186134,0.0754914502974,0.0756085229446,0.0753443039426,0.07512304738,0.0750639740259,0.0750081228547,0.0749812713301,0.0747761256822,0.0746526086691,0.0745033141924,0.0742949463616,0.0741478000068,0.0742068733609,0.0742906501176,0.0742219102147,0.0741950586901,0.074006023957,0.0739985055301,0.0739909871032,0.074006023957,0.0739072103465,0.0739576912127,0.0737085090645,0.0736279544907,0.0735355852461,0.0735108818435,0.0734614750382,0.0737085090645,0.0735001412336,0.0734915487458,0.0733196989884,0.0729759994736,0.0729652588638,0.072821334692,0.072620485288,0.0725023385798,0.0724013768474,0.0719599377831,0.0718514576237,0.0717590883791,0.0717913102086,0.0717966805136,0.0717870139647,0.0717870139647,0.0717311627936,0.0716226826342,0.0715378318165,0.0717214962447,0.0718095692454,0.0717300887326,0.0716538304027,0.0714970174991,0.0713477230224,0.0713520192663,0.0713939076447,0.0715442761824,0.071503461865,0.0714712400355,0.0713391305345,0.0714755362795,0.0713509452054,0.0714121666814,0.0716054976585,0.0714766103404,0.0713659820591,0.0713638339372,0.0713122790099,0.0711876879358,0.0711995026067,0.0710781337155,0.0711146517889,0.070911654263,0.0708010259817,0.0710201344224,0.0710620228007,0.0707655819693,0.0708192850184,0.0708074703476,0.0707999519207,0.0706098431266,0.0704981407843,0.0705056592112,0.0704841779915,0.0701684040623,0.0700491832932,0.0702360699043,0.0702468105142,0.0702489586361,0.070188811221,0.070255403002,0.0705249923089,0.0706581758709,0.0706130653096,0.0707333601397,0.0708912471043,0.0708343218722,0.0706270281024,0.0706903977004,0.0707483969935,0.070845062482,0.0706710646027,0.0705357329188,0.0705518438335,0.0704755855037,0.0704390674302,0.0704004012348,0.0703939568689,0.0700749607568,0.0700448870492,0.0698687410479,0.0698504820112,0.0698032233279,0.0695744483384,0.0694337463495,0.0694455610203,0.0692984146656,0.0693080812144,0.0694294501056,0.0693177477633,0.0693585620807,0.0693413771049,0.0693166737023,0.0694541535082,0.0695218193502,0.0692554522262,0.0693274143121,0.0694487832033,0.0693821914223,0.0693145255803,0.0692747853239,0.0692758593849,0.0692747853239,0.0691920826282,0.0693080812144,0.0694917456426,0.0693693026905,0.0692812296898,0.0693778951784,0.0695819667653,0.069731261242,0.0696174107777,0.0697570387056,0.0697624090105,0.0696195588997,0.0695873370702,0.0696775581928,0.0697817421082,0.0696034479849,0.0694605978741,0.0694176354348,0.0693800433003,0.0692543781653,0.0694466350813,0.0694122651298,0.069404746703,0.0694111910689,0.0691856382623,0.0694874493987,0.0694810050328,0.0693445992879,0.0694584497521,0.0693671545685,0.069207119482,0.0692780075069,0.0691888604452,0.0691351573961,0.0692984146656,0.0691072318105,0.0690696396761,0.0691222686643,0.0690223809928,0.0691695273475,0.069141601762,0.0691136761764,0.0690943430787,0.0691308611521,0.0691834901403,0.0691716754695,0.0692908962387,0.0693596361416,0.0694756347279,0.0694273019836,0.0693843395443,0.0694713384839,0.0696947431686,0.0696088182899,0.0694777828499,0.069469190362,0.0695486708748,0.0694509313253,0.0693972282761,0.0625135714318,0.0556771732708,0.0486871843892,0.041604826263,0.0)
ycorr <- c(0.000114138760783,0.000114030859396,0.000113700414508,0.000113151782596,0.000112377712744,0.000111375247297,0.000110140575947,0.00010890674413,0.000107677175409,0.0001064480375,0.000105215964019,0.000103984882398,0.00010275138111,0.000101515598724,0.000100276093542,9.90342132374e-05,9.779108411e-05,9.6552458306e-05,9.53202699958e-05,9.40889061964e-05,9.28561670307e-05,9.16146432138e-05,9.03670354714e-05,8.91109209729e-05,8.78498028286e-05,8.65813107062e-05,8.53015566666e-05,8.40094344145e-05,8.27009622874e-05,8.13784976677e-05,8.00446466171e-05,7.87063066254e-05,7.7371498101e-05,7.60320894746e-05,7.46890856537e-05,7.33454195943e-05,7.20019060252e-05,7.06626117212e-05,6.93252068893e-05,6.79872429403e-05,6.66489738074e-05,6.53004256798e-05,6.39334714227e-05,6.25457395307e-05,6.11458535981e-05,5.97280307285e-05,5.82974331723e-05,5.68489486231e-05,5.5381584458e-05,5.38962388208e-05,5.23960605176e-05,5.08819941165e-05,4.93637550787e-05,4.78484785602e-05,4.6326529675e-05,4.47930526494e-05,4.32536130452e-05,4.16988972615e-05,4.01352164332e-05,3.85682338901e-05,3.69949524689e-05,3.54169320846e-05,3.38262477094e-05,3.22200055929e-05,3.0596110839e-05,2.89611515834e-05,2.73105420215e-05,2.56498061791e-05,2.39747100352e-05,2.22795113938e-05,2.0558461866e-05,1.88131395796e-05,1.70446379725e-05,1.52591397958e-05,1.34607049488e-05,1.16544894942e-05,9.84038695532e-06,8.02376997183e-06,6.20499346659e-06,4.38724693225e-06,2.57770289706e-06,7.77956842786e-07,-1.01040889596e-06,-2.79152147636e-06,-4.56619807669e-06,-6.34149677159e-06,-8.12015939947e-06,-9.90499103191e-06,-1.16988291322e-05,-1.35021193289e-05,-1.531584779e-05,-1.71382117613e-05,-1.89732177892e-05,-2.08186831123e-05,-2.26780933333e-05,-2.45483012059e-05,-2.64277473375e-05,-2.83171313519e-05,-3.02061376797e-05,-3.20951393142e-05,-3.39906514546e-05,-3.58938125864e-05,-3.78079805154e-05,-3.97283412088e-05,-4.1655443102e-05,-4.35812463414e-05,-4.55099470031e-05,-4.7438841916e-05,-4.93763787503e-05,-5.1331653446e-05,-5.32953935637e-05,-5.52628416854e-05,-5.72274517847e-05,-5.91935032181e-05,-6.11595335901e-05,-6.31288210893e-05,-6.51032174734e-05,-6.70824269752e-05,-6.90655712105e-05,-7.10407731854e-05,-7.30080217436e-05,-7.49718746544e-05,-7.69329017091e-05,-7.88893929544e-05,-8.08372076867e-05,-8.27813337787e-05,-8.47185457266e-05,-8.66531287082e-05,-8.85840741136e-05,-9.05147123466e-05,-9.24458341337e-05,-9.43815348847e-05,-9.63226982244e-05,-9.82756388105e-05,-0.000100248909271,-0.000102242765563,-0.000104253152749,-0.000106275772742,-0.000108303809868,-0.000110338428733,-0.000112379907059,-0.000114425932582,-0.000116477427693,-0.000118531456871,-0.000120578749835,-0.00012261209172,-0.000124635080977,-0.000126649632787,-0.000128661376532,-0.000130670720034,-0.000132674525051,-0.00013466974651,-0.000136655639664,-0.000138628308119,-0.000140590574671,-0.000142546699122,-0.000144496092033,-0.000146437770697,-0.000148373529405,-0.000150304042629,-0.000152231800521,-0.000154160252248,-0.000156087226497,-0.000158022598802,-0.000159960865156,-0.000161907036894,-0.000163859169436,-0.000165820892573,-0.000167783741952,-0.000169745513726,-0.000171704433332,-0.000173661688708,-0.000175623272805,-0.000177582514879,-0.000179537440223,-0.000181481143324,-0.000183417667718,-0.000185340687846,-0.000187259011737,-0.000189172523776,-0.000191089649278,-0.000193010400302,-0.000194925977111,-0.000196832620827,-0.000198735951006,-0.000200644936764,-0.000202559345913,-0.000204472583782,-0.000206386661311,-0.000208296699076,-0.000210198573665,-0.000212086361323,-0.000213966593109,-0.000215843166099,-0.00021771943221,-0.000219592266148,-0.00022145165225,-0.00022330597125,-0.000225152500698,-0.000226996883881,-0.000228840296595,-0.000230688658941,-0.000232538295203,-0.000234382775662,-0.000236222846023,-0.000238054432798,-0.00023988396553,-0.000241714828176,-0.000243547188582,-0.00024538356666,-0.000247220333812,-0.000249054632065,-0.00025088708616,-0.00025272266224,-0.000254558312872,-0.000256392733178,-0.000258226968476,-0.000260055152304,-0.000261879164895,-0.000263697961432,-0.000265508894716,-0.000267313008954,-0.000269110234275,-0.000270901842281,-0.000272684022301,-0.000274462986602,-0.000276240199419,-0.000278018620413,-0.000279795179736,-0.00028156587789,-0.000283332549323,-0.000285095472553,-0.000286858956951,-0.000288616786059,-0.000290374279445,-0.000292135052914,-0.000293895070757,-0.000295650002778,-0.000297403667859,-0.000299158274349,-0.000300913264214,-0.000302668286097,-0.000304422180974,-0.000306177631653,-0.000307933996824,-0.000309682050341,-0.000311423396824,-0.000313161197528,-0.000314897766623,-0.000316625898302,-0.000318352643445,-0.000320076726468,-0.000321797796513,-0.000323514690474,-0.000325223309124,-0.000326927424941,-0.000328628356642,-0.000330322536112,-0.000332003674987,-0.000333679636627,-0.000335349510084,-0.000337014014798,-0.000338672134878,-0.000340323273568,-0.000341971264446,-0.000343620320132,-0.000345272754206,-0.000346928374933,-0.000348588726694,-0.000350251089762,-0.000351910920783,-0.000353563542282,-0.000355206970645,-0.000356844819782,-0.000358477449812,-0.000360103679199,-0.000361714951089,-0.000363317291773,-0.000364909641537,-0.000366496174786,-0.000368078642233,-0.00036965912787,-0.000371237103346,-0.000372809263613,-0.00037436541815,-0.00037589721223,-0.000377397641932,-0.000378860101862,-0.000380270450505,-0.000381620428784,-0.000382897396509,-0.00038409849768,-0.000385219752912,-0.000386266944011,-0.000387248066198,-0.000388174578773,-0.000389061042491,-0.000389915828113,-0.000390753716909,-0.000391588537381,-0.000392436062887,-0.000393305707721,-0.000394200129427,-0.000395120742027,-0.000396064876046,-0.000397025431092,-0.000397997531241,-0.000398977164141,-0.000399967247992,-0.000400961914647,-0.000401954168193,-0.000402941597707,-0.000403927227596,-0.000404912765264,-0.000405900670429,-0.000406892310192,-0.000407890662074,-0.000408898309065,-0.000409915242257,-0.000410936989474,-0.000411966831737,-0.000413005312194,-0.000414050061371,-0.000415093223375,-0.000416139010406,-0.000417184153308,-0.000418226798755,-0.000419267417641,-0.000420301803686,-0.000421326447082,-0.000422341060657,-0.000423342250208,-0.000424336487022,-0.000425327250473,-0.0004263101221,-0.0004272825886,-0.000428247403712,-0.00042920105149,-0.000430142269816,-0.000431076069239,-0.000432005037947,-0.000432928129372,-0.000433844714221,-0.000434749140733,-0.000435642653313,-0.000436533600486,-0.000437421625175,-0.000438307552793,-0.000439192326604,-0.000440075641014,-0.000440950785969,-0.000441818763277,-0.000442677801068,-0.000443530288942,-0.000444374874098,-0.000445209119197,-0.000446031566416,-0.000446842397121,-0.000447642679597,-0.000448434546298,-0.000449223546909,-0.000450015016166,-0.000450802279151,-0.000451588890954,-0.000452371086658,-0.000453146171026,-0.000453908607993,-0.000454657412823,-0.000455389953362,-0.000456106195164,-0.000456806984212,-0.000457486684181,-0.000458147999368,-0.000458793132002,-0.000459423687674,-0.000460046142983,-0.000460668746229,-0.000461296150341,-0.000461930229613,-0.000462569104351,-0.000463208220917,-0.000463840917383,-0.000464471884347,-0.000465094872981,-0.000465713009645,-0.000466322998143,-0.000466919706998,-0.000467498004875,-0.000468058589261,-0.000468601163194,-0.000469128655197,-0.000469649550061,-0.00047016592233,-0.000470676943496,-0.000471184053687,-0.000471686149405,-0.000472182064655,-0.0004726729786,-0.000473155156052,-0.000473632913717,-0.00047410764139,-0.000474576307747,-0.000475028740296,-0.000475468717356,-0.000475891956721,-0.000476298934494,-0.000476688261293,-0.000477065475544,-0.000477430126598,-0.000477782568653,-0.000478116154841,-0.000478428822141,-0.00047872920683,-0.00047901824666,-0.000479296398606,-0.000479561000543,-0.000479812633795,-0.00048005036151,-0.000480271685424,-0.000480477277639,-0.000480672112236,-0.000480854784719,-0.000481023277186,-0.00048117469002,-0.000481311869044,-0.000481435000589,-0.000481552148451,-0.000481656731814,-0.000481751324205,-0.000481830734573,-0.000481890174229,-0.000481929801712,-0.000481951799496,-0.000481955212821,-0.000481939080602,-0.000481902769477,-0.000481841033407,-0.000481751227945,-0.000481639771631,-0.000481509369209,-0.000481364883955,-0.000481212138019,-0.000481045914815,-0.000480867433587,-0.000480678441611,-0.000480479336763,-0.000480271918124,-0.000480061424848,-0.000479843089085,-0.000479615885449,-0.000479374116819,-0.000479115335486,-0.000478842345645,-0.000478557273347,-0.000478260432463,-0.000477948534519,-0.000477622018292,-0.000477276109192,-0.000476913880145,-0.000476532528722,-0.000476135743708,-0.000475728157003,-0.000475305315118,-0.000474860921237,-0.000474396640412,-0.000473911715191,-0.000473407622122,-0.000472884365887,-0.000472342644702,-0.0004717805937,-0.00047119762549,-0.000470590212056,-0.000469963081476,-0.000469321756141,-0.000468662290905,-0.000467983672923,-0.000467283816792,-0.000466564842201,-0.000465822673682,-0.000465058738922,-0.000464272786702,-0.000463469436583,-0.000462644889503,-0.000461792897054,-0.000460917994633,-0.000460028214606,-0.000459122794847,-0.000458201740363,-0.000457264638708,-0.000456316143329,-0.000455355966429,-0.000454379953462,-0.000453388076006,-0.000452385527987,-0.000451367182455,-0.000450324138273,-0.000449256305205,-0.0004481648208,-0.000447051665605,-0.000445914676854,-0.000444749659148,-0.000443558677682,-0.000442342522128,-0.00044110076142,-0.00043983315743,-0.000438543876222,-0.000437231224684,-0.000435894688804,-0.000434531036819,-0.000433140798864,-0.000431726285096,-0.000430286508155,-0.000428818768399,-0.000427327225091,-0.00042581116982,-0.000424271029076,-0.000422710022377,-0.000421131447978,-0.000419534588989,-0.000417918145205,-0.000416281243529,-0.000414624900556,-0.000412953254427,-0.00041126234173,-0.000409549605197,-0.00040781667108,-0.000406057463069,-0.000404266849197,-0.000402449008822,-0.000400605698386,-0.00039873743272,-0.000396844669872,-0.000394927927785,-0.000392987427324,-0.000391027545487,-0.000389048295824,-0.000387053122594,-0.000385048105186,-0.000383034210261,-0.000381007029858,-0.000378969394432,-0.000376919630218,-0.000374852366457,-0.000372766254703,-0.00037066059028,-0.000368536682478,-0.000366389212715,-0.000364215539128,-0.000362014433012,-0.000359787000855,-0.000357534114664,-0.000355253440316,-0.000352946921176,-0.000350617540129,-0.000348263197047,-0.000345879122331,-0.000343472716303,-0.000341045736331,-0.000338593496431,-0.00033611568465,-0.000333608738837,-0.000331074180827,-0.000328512371439,-0.000325923986032,-0.000323311666273,-0.000320679255108,-0.000318025595878,-0.000315342293627,-0.000312635152906,-0.000309906118537,-0.000307157259692,-0.00030439018625,-0.000301605590156,-0.0002988002678,-0.000295976091868,-0.000293131685673,-0.000290262734959,-0.000287376619986,-0.000284473601508,-0.000281552748328,-0.000278614744138,-0.00027565716157,-0.000272680500305,-0.000269686924464,-0.000266671920553,-0.000263632129428,-0.000260570971524,-0.000257491764067,-0.000254389169726,-0.000251262190431,-0.000247990452564,-0.00024445950684,-0.000240574422462,-0.000236259386179,-0.000230865804192,-0.000226600170911,-0.000222789295427,-0.000219353651398,-0.000216186972335,-0.00021317064069,-0.000210182864307,-0.000207341230207,-0.000204762909362,-0.000202541036923,-0.000200747894269,-0.000200030583856,-0.000198183238283,-0.000195877566689,-0.0001931940246,-0.000190233404426,-0.00018711689681,-0.000183965230311,-0.000180776750805,-0.000177554514827,-0.000174301078001,-0.000171020927849,-0.00016771835152,-0.000164394804039,-0.000161054783536,-0.000157693159905,-0.000154314776509,-0.000150922413433,-0.000147517190445,-0.000144097860371,-0.000140658464503,-0.000137202028676,-0.000133728411806,-0.000130231968295,-0.000126711747586,-0.000123173640608,-0.000119617321103,-0.000116034078278,-0.000112423582277,-0.000108788232449,-0.000105132795383,-0.000101454299792,-9.77496625791e-05,-9.40219622221e-05,-9.02739467408e-05,-8.65065743973e-05,-8.27125709294e-05,-7.89004328484e-05,-7.50781107245e-05,-7.12434292026e-05,-6.73961485131e-05,-6.35321778039e-05,-5.96568624244e-05,-5.57734491746e-05,-5.18804266442e-05,-4.79744373548e-05,-4.40612951601e-05,-4.01397121301e-05,-3.62050561377e-05,-3.22592738803e-05,-2.82975990364e-05,-2.43272119917e-05,-2.03502301986e-05,-1.63592514731e-05,-1.23495463415e-05,-8.32095012818e-06,-4.27490308119e-06,-2.0900258147e-07,3.87326187859e-06,7.97631061239e-06,1.20979350026e-05,1.62351793212e-05,2.03973710826e-05,2.45820822372e-05,2.87814563598e-05,3.299224119e-05,3.72153979623e-05,4.14485392781e-05,4.5694286101e-05,4.9955396276e-05,5.42273985764e-05,5.85157838577e-05,6.28167317004e-05,6.71235354774e-05,7.14350467566e-05,7.57517137028e-05,8.00772349134e-05,8.44142899014e-05,8.87643801109e-05,9.31196413382e-05,9.74802155128e-05,0.000101846232618,0.00010621305281,0.000110584885724,0.000114968537505,0.000119367284734,0.000123781833208,0.000128204211372,0.000132636737588,0.00013708349877,0.000141549982769,0.000146032703772,0.000150533624139,0.000155052440199,0.000159584352381,0.000164130896258,0.000168686723812,0.000173250866914,0.000177822448227,0.0001823925782,0.000186958771353,0.000191519955165,0.000196078242405,0.000200634353425,0.00020519212384,0.0002097483049,0.000214298043663,0.000218847187006,0.000223395559334,0.000227945952004,0.000232498726169,0.000237053579186,0.000241606505929,0.000246158473094,0.000250707935823,0.000255249438678,0.000259788387125,0.000264320538698,0.000268843061394,0.000273353239243,0.00027785337242,0.000282344291916,0.000286824127257,0.000291295029383,0.000295751106816,0.000300192055932,0.000304617546636,0.000309029129949,0.000313429494225,0.000317821922678,0.000322207978858,0.000326584025709,0.000330953723091,0.000335314837492,0.000339669438838,0.000344019668918,0.000348365544519,0.000352709685964,0.00035704817603,0.000361382942014,0.000365709455089,0.000370032469425,0.00037435595253,0.000378674972218,0.000382990211121,0.000387298607679,0.000391600271931,0.000395893391912,0.000400179583552,0.0004044600062,0.000408730320677,0.000412987850025,0.000417225821032,0.000421442147736,0.000425637779556,0.000429816119125,0.000433974896914,0.000438113459476,0.000442230904965,0.000446325248128,0.000450392888078,0.00045443944111,0.000458463056449,0.000462466142655,0.000466446949647,0.000470403904434,0.000474338553253,0.000478256817255,0.00048215491335,0.000486032820395,0.000489892210822,0.000493729971234,0.00049754831918,0.000501349909083,0.000505134922316,0.000508906397731,0.000512663669782,0.000516398285383,0.000520104655099,0.000523783743927,0.000527436620726,0.000531063942018,0.000534666189865,0.000538235655025,0.000541773361488,0.000545275601889,0.000548742431244,0.000552171690146,0.000555572907928,0.000558945110605,0.000562293152163,0.000565611991066,0.000568900330393,0.000572159953017,0.000575394550066,0.000578601002103,0.000581782702399,0.000584939063365,0.000588068963389,0.000591169623332,0.000594238513888,0.000597272648719,0.000600273414877,0.000603242567475,0.000606174679096,0.000609070087358,0.000611927423668,0.000614745203128,0.000617526655956,0.000620272718777,0.000622981795308,0.000625659549212,0.000628302929619,0.000630913763676,0.000633488909509,0.000636035708203,0.000638551367793,0.000641038164555,0.000643490002673,0.000645904886647,0.00064828384459,0.000650625887358,0.000652928892929,0.000655193489916,0.000657423297985,0.00065961752239,0.00066177506789,0.000663898153271,0.000665988047017,0.000668048077925,0.000670074155637,0.000672066489354,0.000674026249204,0.000675953808697,0.000677849733809,0.000679706966104,0.000681523683122,0.000683299239072,0.00068503638645,0.000686733071046,0.000688392625659,0.000690015996253,0.000691604958464,0.000693156684779,0.00069467426266,0.000696157641443,0.000697612719857,0.000699039929761,0.000700433165182,0.000701787894562,0.000703104727249,0.000704383074767,0.000705622877875,0.000706822152172,0.000707976824452,0.000709084334588,0.000710147605283,0.000711162760479,0.000712131241216,0.000713061674,0.000713948152853,0.000714793133097,0.000715591798822,0.000716345019391,0.000717055002706,0.000717727721504,0.000718360220863,0.000718952788221,0.000719508649105,0.000720022477464,0.000720497675508,0.000720935801607,0.000721337638038,0.000721705676018,0.000722039231754,0.000722335966959,0.000722590290544,0.00072280333767,0.000722972457747,0.000723099128082,0.000723188388224,0.000723231573692,0.000723230914953,0.00072318535918,0.000723093063263,0.000722952347836,0.000722765969473,0.000722533558613,0.000722255624904,0.000721924615684,0.000721530305892,0.000721071813232,0.000720551673853,0.000719966557145,0.000719315709866,0.000718603098992,0.000717824818387,0.00071698186925,0.000716071507445,0.00071509714348,0.000714066582728,0.00071298730405,0.000711857459332,0.000710675511082,0.000709446730825,0.000708165368785,0.000706832771707,0.000705454266437,0.000704030088572,0.000702562375986,0.000701049982717,0.000699490359676,0.000697881847181,0.000696232086389,0.000694538051313,0.000692800518639,0.000691025806699,0.000689208412561,0.000687349082649,0.000685449472766,0.000683513414377,0.000681544073253,0.000679544271015,0.000677512968858,0.000675447095146,0.000673353504854,0.000671227852075,0.000669069722626,0.000666884546537,0.000664669237615,0.000662421716755,0.000660141623192,0.000657826551683,0.00065547540821,0.00065308963362,0.00065066379486,0.00064820017535,0.000645701759663,0.000643167910877,0.000640598212574,0.000637995092423,0.000635356135914,0.00063268145448,0.000629971797514,0.000627228885328,0.00062445917846,0.000621663765387,0.000618839886112,0.000615985708356,0.000613103882512,0.000610190771669,0.000607247820511,0.000604276601349,0.000601276923474,0.000598247405424,0.000595185982381,0.000592088356723,0.000588954199539,0.000585782939469,0.000582575624526,0.000579332108609,0.000576057397868,0.000572750771074,0.000569413432327,0.000566044704599,0.000562644265598,0.000559212611665,0.000555753046538,0.000552269622117,0.000548764044415,0.000545233381685,0.000541672173487,0.000538079431005,0.000534453704007,0.000530796124197,0.000527108637656,0.000523391730272,0.000519646169323,0.000515870382132,0.000512067442319,0.000508239337886,0.00050439091186,0.000500524190385,0.000496637083065,0.000492732304602,0.00048880918725,0.000484870161778,0.000480918125746,0.000476947808701,0.000472953914296,0.000468937042433,0.000464895452217,0.000460826777775,0.000456736546102,0.000452625000398,0.000448491947421,0.000444334918643,0.000440149565215,0.000435938841022,0.000431710767132,0.000427465189966,0.00042319938079,0.000418915197499,0.000414614067066,0.000410290714642,0.000405948490008,0.000401587681291,0.000397211465518,0.000392820329785,0.000388410840173,0.000383984077476,0.00037954211728,0.000375085785919,0.00037061410384,0.000366133826749,0.000361644396237,0.000357143258051,0.00035262926395,0.000348106630035,0.000343576420605,0.000339040011026,0.000334499429413,0.000329957173922,0.000325413901072,0.000320866700035,0.000316310533332,0.000311755448827,0.000307200549976,0.000302646324181,0.000298089899717,0.000293531196556,0.000288963557795,0.000284385892754,0.000279799543607,0.000275201258626,0.000270597339803,0.000265987455023,0.000261369432816,0.000256748538581,0.000252123497757,0.000247491381816,0.000242858602494,0.000238227804071,0.000233594481533,0.000228960539995,0.000224325477821,0.000219686311022,0.000215043682175,0.000210389467761,0.000205726019599,0.000201058934512,0.000196391828401,0.000191721239866,0.000187050463607,0.000182383763197,0.000177716695907,0.000173053677658,0.000168397649221,0.000163754404253,0.00015912446287,0.00015450175064,0.000149885052467,0.000145273328131,0.000140666798595,0.000136066942308,0.000131475878428,0.000126892839681,0.000122318740999,0.00011774508337,0.000113170228511,0.00010860013457,0.000104038414961,9.94849791983e-05,9.4940361506e-05,9.04059965888e-05,8.58804330438e-05,8.13642130376e-05,7.68588945764e-05,7.23643672152e-05,6.78859417381e-05,6.34209693415e-05,5.89682337573e-05,5.45305880811e-05,5.01069476095e-05,4.56939071876e-05,4.12913015937e-05,3.68979836658e-05,3.25084992846e-05,2.81297102139e-05,2.37599784279e-05,1.9405809676e-05,1.50665304853e-05,1.07432867284e-05,6.43235233005e-06,2.1360095151e-06,-2.1434308759e-06,-6.40818806117e-06,-1.06466999619e-05,-1.48599470644e-05,-1.9047627478e-05,-2.3210252178e-05,-2.73560624407e-05,-3.14827414087e-05,-3.55888393112e-05,-3.96743173655e-05,-4.37396229598e-05,-4.77770678644e-05,-5.17933138843e-05,-5.57986064109e-05,-5.97931087356e-05,-6.37809006483e-05,-6.7757712622e-05,-7.17209770042e-05,-7.56697108075e-05,-7.96068511796e-05,-8.3531580722e-05,-8.74485681067e-05,-9.13634328314e-05,-9.52635873376e-05,-9.91471559185e-05,-0.000103012790737,-0.000106860476195,-0.000110693138905,-0.000114512404556,-0.000118315540376,-0.000122096595502,-0.000125854811131,-0.000129583182339,-0.000133284343059,-0.000136961828938,-0.000140613106278,-0.000144235957899,-0.000147834311183,-0.000151407708883,-0.000154951688011,-0.000158471432351,-0.000161971894128,-0.000165451827085,-0.000168915828963,-0.00017236146199,-0.000175790580183,-0.000179206269251,-0.000182604318412,-0.000185980232631,-0.000189335631369,-0.000192673144778,-0.000195990430074,-0.000199291088994,-0.00020256934359,-0.000205820291264,-0.00020904369823,-0.000212236662622,-0.000215401292091,-0.000218539028552,-0.000221649483306,-0.000224732995469,-0.000227790914911,-0.000230821689617,-0.000233825545131,-0.000236815371954,-0.000239790127058,-0.000242749303102,-0.000245687709032,-0.000248601386751,-0.000251492246808,-0.000254360146252,-0.000257200112629,-0.000260011242968,-0.000262794298676,-0.000265538144847,-0.000268242076226,-0.000270909168326,-0.000273545122372,-0.000276155115067,-0.000278740064196,-0.000281301273545,-0.00028384226431,-0.000286366075253,-0.000288868902588,-0.000291354837118,-0.00029382935344,-0.000296292798329,-0.000298740031047,-0.000301164412807,-0.000303567664273,-0.000305944669659,-0.000308296160992,-0.000310621694329,-0.00031292768729,-0.000315218158504,-0.00031748826272,-0.000319541731881,-0.000321175885011,-0.000322394173836,-0.000323199573959,-0.000323598005085)
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-ERR572263.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()