# R script for Peak Model
#  -- generated by MACS
p <- c(0.0418265783947,0.0487674471623,0.0557772349298,0.0627652588026,0.0697913694913,0.0699128845703,0.0701232688862,0.0697659782807,0.0698711704387,0.0700706728072,0.0700525362283,0.0700978776757,0.0699128845703,0.069918325544,0.0698421519123,0.0699818035703,0.0698022514386,0.0698512202018,0.0697496553597,0.0696118173596,0.0697569099912,0.0699328348071,0.0698167607018,0.0696299539385,0.0695392710437,0.0693542779384,0.0693542779384,0.0695048115437,0.0695283890964,0.0691964897014,0.0690695336487,0.0687176840169,0.0691076204645,0.0692128126225,0.0692472721225,0.0692853589383,0.0690368878066,0.0690677199908,0.0687630254643,0.068646951359,0.068715870359,0.0687303796222,0.0683966665693,0.068349511464,0.0682044188324,0.0680466305954,0.068159077385,0.0680919720428,0.0682660832008,0.0685109270168,0.0684293124115,0.0685472001747,0.0685798460168,0.0685145543326,0.0685000450694,0.0686741562274,0.0687702800959,0.0685544548063,0.0683277475693,0.0682334373587,0.0681137359376,0.0682243690692,0.0682243690692,0.0679450657533,0.0680774627797,0.0677872775163,0.0674989059109,0.0673719498582,0.0675206698056,0.0675224834635,0.0676548804899,0.0673084718318,0.0671252923843,0.0672449938055,0.0671289197001,0.0673846454634,0.0675605702793,0.0676059117267,0.0673683225424,0.0673519996213,0.0671506835949,0.067096273858,0.0669783860948,0.0670799509369,0.0672848942792,0.0671398016475,0.0670799509369,0.0672994035423,0.0673320493845,0.0673719498582,0.0673683225424,0.0675787068583,0.0676494395162,0.0673447449897,0.066974758779,0.0670055909632,0.0667571198315,0.0665684994103,0.0664905121208,0.0662112088048,0.0661495444363,0.0659319054888,0.0660697434889,0.0664415433576,0.0663055190154,0.0661295941995,0.0664324750681,0.0664451706734,0.0667281013051,0.0670690689896,0.0669076534368,0.0668713802789,0.0669149080684,0.0669584358579,0.0670400504632,0.0671343606738,0.0669421129368,0.0667897656736,0.0667770700683,0.0665086486997,0.0669130944105,0.0671198514106,0.0670309821737,0.0669094670947,0.0670037773053,0.0668133432262,0.0666664369367,0.0667915793315,0.0664415433576,0.0663708106996,0.0661350351732,0.0660606751994,0.0658992596467,0.0657886265151,0.0660171474099,0.0661912585679,0.0660915073837,0.0661005756732,0.0664324750681,0.066555803805,0.0666446730419,0.0665884496471,0.066713592042,0.0667770700683,0.0668097159104,0.0668750075947,0.0670636280159,0.0672304845423,0.0671561245686,0.0673646952266,0.0674862103056,0.067653066832,0.0676784580426,0.067687526332,0.0675478746741,0.0675932161215,0.06779271849,0.0673737635161,0.0675279244372,0.0672504347791,0.0671379879896,0.0669167217263,0.0670491187527,0.0671760748054,0.0672685713581,0.0671053421475,0.0671506835949,0.067531551753,0.0673846454634,0.0674934649372,0.0675170424898,0.0677709545953,0.0677854638584,0.0677165448584,0.0678344326216,0.0680556988849,0.0682406919903,0.0681699593323,0.0682751514903,0.068472840201,0.0685889143063,0.0687448888853,0.0688428264117,0.0689353229644,0.0689443912539,0.0686759698853,0.0685744050431,0.0684782811746,0.0684274987536,0.0684819084904,0.0684492626483,0.0680702081481,0.0679994754901,0.0680411896217,0.0678870287006,0.0683712753588,0.0684528899641,0.068889981517,0.0690568380434,0.0690223785434,0.0690133102539,0.069343395991,0.0694921159384,0.0696444632017,0.0697550963333,0.0696970592807,0.0696136310175,0.0695229481227,0.0698457792281,0.0699364621229,0.0700108220967,0.0702175790968,0.0703155166232,0.0704043858601,0.0705440375181,0.0705132053338,0.0706111428602,0.0707507945182,0.0705603604391,0.070823340834,0.0710609300184,0.0711733768079,0.071189699729,0.0713529289396,0.0715161581502,0.0717211014925,0.0718571258347,0.0720040321242,0.0722651988612,0.072252503256,0.0723776456508,0.0722053481507,0.0723631363876,0.072112851598,0.0721164789138,0.0721182925717,0.0724048505192,0.0724320553877,0.0724991607298,0.0726134211772,0.0725807753351,0.0728564513353,0.0728564513353,0.0730722766249,0.0730160532301,0.0729870347038,0.0727857186774,0.072896351809,0.0728219918353,0.0730994814933,0.0731593322039,0.0732427604671,0.0736544608095,0.0739029319412,0.0741550303887,0.0745213892837,0.0747462828628,0.0748732389155,0.075109014442,0.0749240213366,0.0752196475736,0.0752468524421,0.0752142065999,0.0750582320209,0.075230529521,0.075177933442,0.0755588016002,0.0759995204689,0.0763894569165,0.0768174801799,0.0770042869432,0.0771874663907,0.0773760868118,0.0777061725489,0.0777152408384,0.0781305684965,0.0780942953386,0.0778712154174,0.077807737391,0.077720681812,0.0777533276542,0.0780126807333,0.0779981714701,0.0783300708651,0.0785549644441,0.0785023683652,0.0784280083914,0.0785966785757,0.0788796092075,0.0787689760759,0.0789702921023,0.0790918071813,0.0791661671551,0.079236899813,0.0792495954183,0.0795905631027,0.0798499161818,0.0804429823138,0.0805663110507,0.0814277985512,0.082285658736,0.0830909228417,0.0842716141319,0.0852419211062,0.0865949098966,0.0876413905025,0.0891630494771,0.0900862013461,0.0913738984522,0.0924185654002,0.0928375203742,0.0934868099009,0.0938785600064,0.0943863842173,0.0947436748227,0.0951009654282,0.0952859585336,0.095365759481,0.0953875233758,0.0953421819284,0.0957067271655,0.0957629505602,0.0960821543499,0.0960531358236,0.0961692099289,0.0963904761922,0.096359644008,0.0966625248766,0.0970832935084,0.0975494035877,0.09789218493,0.0982113887197,0.0981587926407,0.0986502939305,0.0989767523517,0.0991091493781,0.0993685024572,0.0994501170625,0.0993159063783,0.0992596829835,0.0991055220623,0.099319533694,0.0997439296417,0.100005096379,0.100130238774,0.100278958721,0.100516547905,0.100803105853,0.101334507616,0.101971101538,0.102429956985,0.102700192012,0.102798129538,0.102970427038,0.103155420144,0.103472810276,0.103724908723,0.104071317381,0.104214596355,0.104103963223,0.104713352276,0.105010792171,0.105426119829,0.105456952014,0.10573625533,0.105868652356,0.106463532146,0.106487109699,0.106456277514,0.106719257909,0.106755531067,0.106728326199,0.10677004033,0.107290560146,0.107791129726,0.107967054542,0.107807452647,0.10816655691,0.108578257253,0.108581884568,0.108645362595,0.1089337342,0.109457881332,0.109452440358,0.109583023727,0.110128934753,0.110341132727,0.110471716096,0.11054607607,0.110834447675,0.110952335438,0.111276980202,0.111354967491,0.111500060123,0.111637898123,0.11169230786,0.111964356544,0.112221895965,0.112610018755,0.112880253782,0.113223035124,0.113576698414,0.113870510993,0.114224174282,0.114394658125,0.114630433651,0.114664893151,0.114668520467,0.114873463809,0.115393983625,0.115627945494,0.115586231362,0.115571722099,0.115744019599,0.115787547389,0.115961658547,0.116186552126,0.116687121705,0.11700995281,0.117330970258,0.117383566337,0.1176392921,0.118016532943,0.118437301574,0.118771014627,0.119043063312,0.119278838838,0.119634315786,0.119893668865,0.119783035733,0.120124003418,0.120470412076,0.120760597339,0.120628200313,0.12088029876,0.120902062655,0.121335526892,0.121574929734,0.121576743392,0.121564047787,0.121761736498,0.122039226156,0.122002952998,0.122412839682,0.122946055104,0.123325109604,0.123399469578,0.123564512446,0.123979840104,0.124322621447,0.124357080947,0.124462273105,0.124736135447,0.125022693394,0.124629129631,0.12450035992,0.124732508131,0.124859464184,0.125171413342,0.125490617132,0.125642964395,0.125797125316,0.125913199421,0.125855162369,0.126384750474,0.126763804974,0.127024971711,0.126977816606,0.126571557238,0.126495383606,0.126963307343,0.126740227422,0.126910711264,0.127110213633,0.127217219448,0.127162809712,0.127097518027,0.127540050554,0.127759503159,0.127997092344,0.127670633922,0.128002533317,0.12813855766,0.128347128318,0.12810409816,0.127877390923,0.127951750896,0.127389516949,0.127075754133,0.126899829317,0.12704310829,0.126821842027,0.12653528408,0.126152602264,0.126602389422,0.127137418501,0.12700864879,0.127300647712,0.127933614317,0.128167576186,0.127973514791,0.128053315738,0.128359823923,0.128588344818,0.128076893291,0.127743180238,0.127538236896,0.127512845685,0.127213592133,0.126903456632,0.126887133711,0.126484501658,0.12604378279,0.125608504895,0.125617573184,0.12543983471,0.125135140184,0.125091612394,0.12471618521,0.124632756947,0.124377031183,0.124503987236,0.124335317052,0.124331689736,0.123896411841,0.123675145578,0.123602599262,0.122860813183,0.123149184788,0.122898899998,0.122521659156,0.122338479709,0.122162554893,0.121868742313,0.121919524735,0.121836096471,0.121796195998,0.121859674024,0.121324644945,0.121228521076,0.121277489839,0.120947404102,0.120735206129,0.120405120392,0.120105866839,0.119801172312,0.119623433838,0.119313298338,0.119141000838,0.118703909285,0.118265004074,0.118183389469,0.118410096706,0.118288581627,0.118009278311,0.117597577969,0.117365429758,0.117205827863,0.117093381074,0.11690657431,0.117091567416,0.116970052337,0.116581929547,0.116560165652,0.116269980389,0.116454973494,0.116161160915,0.115878230283,0.115617063546,0.115662404994,0.115207176862,0.115314182678,0.115047574967,0.114837190651,0.115091102757,0.115225313441,0.11523438173,0.115526380652,0.11533776023,0.115254331967,0.11534682852,0.114978655967,0.114639501941,0.114704793625,0.114193342098,0.113600275966,0.113083383466,0.112508453913,0.112060480413,0.111418445517,0.111257029965,0.110573280938,0.110419120017,0.109856886069,0.109559446174,0.109592092016,0.109305534069,0.108979075647,0.108467624121,0.10764059612,0.10653789212,0.105638317803,0.104218223671,0.102876116828,0.101490482195,0.099406589273,0.0979429673511,0.09625445185,0.095035673744,0.0940091433749,0.0932528480323,0.0925854219267,0.0922226903475,0.0917910397683,0.091411985268,0.0912850292153,0.0911526321889,0.0911816507152,0.0910347444257,0.090802596215,0.0901351701093,0.089705333188,0.0895439176353,0.0894024523194,0.0890179568455,0.0889526651612,0.088642529661,0.0883414624503,0.0881600966607,0.0881582830028,0.0881619103186,0.0880258859764,0.0874745339761,0.0872188082128,0.0870882248442,0.0866583879229,0.0865060406597,0.0863482524227,0.0859891481593,0.0856427395012,0.0851058967641,0.085298144501,0.0853380449747,0.0850587416588,0.084810270527,0.084949922185,0.0849426675534,0.0848193388165,0.0849063943955,0.0848465436849,0.0851331016325,0.0845998862111,0.0844983213689,0.0841374034477,0.0838762367106,0.0833811081051,0.0830745999207,0.0832904252103,0.0829675941048,0.0827173093152,0.0826211854467,0.0825395708414,0.0825577074203,0.0827046137099,0.0826755951836,0.0826792224994,0.0827154956573,0.0820027281042,0.0820117963937,0.0819628276305,0.0816164189724,0.0813897117354,0.0809362972614,0.0806370437086,0.0804593052348,0.0802561755505,0.0798680527608,0.0797973201028,0.0793312100236,0.078975733076,0.0789920559971,0.0788995594444,0.0789811740497,0.0790392111023,0.079097248155,0.0790410247602,0.0789993106286,0.0790682296287,0.0790573476813,0.0789322052865,0.0787381438916,0.07862751076,0.0781233138649,0.0776934769436,0.0773289317065,0.0771947210222,0.0769788957326,0.0767413065483,0.0765236676008,0.0765109719955,0.0759650609688,0.0755624289159,0.0754790006527,0.075560615258,0.075596888416,0.0753175851,0.0753121441263,0.0750509773893,0.0749240213366,0.0749475988892,0.0751162690736,0.0752613617052,0.0752631753631,0.0751289646788,0.0748551023366,0.0748913754945,0.0746302087575,0.0746809911785,0.074376296652,0.0743309552046,0.0742801727836,0.0740208197044,0.0738521495201,0.0738739134149,0.0739101865728,0.0736308832568,0.0734839769673,0.073366089204,0.0735166228094,0.0732917292303,0.07280929623,0.0726478806773,0.0725318065719,0.0722597578876,0.0720185413874,0.0717555609925,0.0718480575452,0.0716902693082,0.0715796361766,0.0713892020975,0.0714617484134,0.071416406966,0.0714182206239,0.0713438606501,0.0715143444923,0.0717356107556,0.0713257240712,0.0712368548343,0.0710482344131,0.0710863212289,0.0711643085184,0.0711225943868,0.0709575515183,0.0707906949919,0.0703445351495,0.0701758649652,0.0701395918073,0.0697714192544,0.0695501529911,0.0692545267541,0.0691801667804,0.0690024283066,0.0689534595434,0.0688682176223,0.0690967385171,0.0691402663066,0.0693143774646,0.0694975569121,0.0694504018068,0.069483047649,0.0692871725962,0.069203744333,0.068942577596,0.068837385438,0.0685272499378,0.0681862822534,0.0680121710954,0.0677437497268,0.0680230530428,0.0678815877269,0.0679740842796,0.0677945321479,0.0678326189637,0.0675914024636,0.067671203411,0.0676748307268,0.0677092902268,0.0677546316742,0.0673846454634,0.0673628815687,0.0672232299107,0.0673030308581,0.067322981095,0.0674481234898,0.0674989059109,0.0676240483057,0.0674408688582,0.0672758259897,0.0672957762265,0.0670672553317,0.0670491187527,0.0669003988052,0.0668586846736,0.0668641256473,0.0665195306471,0.0663145873049,0.0662275317259,0.0664234067786,0.0664977667523,0.0665594311208,0.0664560526207,0.066539480884,0.0666047725682,0.0662511092785,0.0664415433576,0.0665757540419,0.066503207726,0.0664052701997,0.0662728731733,0.0663508604628,0.0664941394366,0.0665757540419,0.0663544877786,0.0665140896734,0.0665104623576,0.0662565502522,0.0663272829101,0.0663218419364,0.0664197794628,0.0663272829101,0.06608606641,0.0660896937258,0.0661985131995,0.0662402273311,0.0660824390942,0.0660135200942,0.0658920050151,0.0656997572782,0.0655854968307,0.0656779933834,0.0657741172519,0.0656290246202,0.0655782421991,0.0655963787781,0.0656417202255,0.0657342167782,0.0658920050151,0.0659591103573,0.0661132712784,0.0659373464625,0.0658702411204,0.0659246508573,0.0657251484887,0.0658049494361,0.0657450987256,0.0659228371994,0.0657868128572,0.0659500420678,0.065877495752,0.0658811230678,0.0658521045414,0.0657360304361,0.0657505396992,0.0655129505149,0.0655927514623,0.0655474100149,0.0655873104886,0.065563732936,0.065476677357,0.0657324031203,0.0659899425415,0.0660951346995,0.0663000780417,0.0663907609365,0.0664215931207,0.0665975179366,0.0666210954893,0.0665376672261,0.0665594311208,0.0664596799365,0.0664651209102,0.0665068350418,0.0666319774366,0.0668532436999,0.0668586846736,0.0666882008314,0.0668060885946,0.0668659393052,0.0669548085421,0.0669185353842,0.0667154056999,0.0669312309895,0.0667117783841,0.0667190330156,0.0666555549893,0.0665666857524,0.0664995804102,0.0663762516733,0.0665721267261,0.0665539901471,0.066468748226,0.0662492956206,0.066381692647,0.0663762516733,0.0664796301734,0.0667190330156,0.0667861383578,0.0669511812263,0.0668568710157,0.0669149080684,0.0671125967791,0.0672105343054,0.0672304845423,0.0672631303844,0.0671688201738,0.0671434289633,0.0672105343054,0.0672540620949,0.0671869567528,0.0672087206475,0.0672576894107,0.067252248437,0.067426359595,0.0672758259897,0.067410036674,0.0674952785951,0.0674771420161,0.0674463098319,0.0675641975951,0.0677292404637,0.0678326189637,0.0679287428322,0.0678870287006,0.0683458841482,0.0684148031483,0.0684274987536,0.0684909767799,0.0687122430432,0.068576218701,0.0687321932801,0.0689389502802,0.0689861053855,0.0690532107276,0.0688283171486,0.0691148750961,0.0690223785434,0.0690786019382,0.0690459560961,0.0691565892277,0.069064092675,0.0690241922013,0.0690912975435,0.0691964897014,0.0691457072803,0.0688428264117,0.0691203160698,0.0692273218856,0.069238203833,0.0694032467015,0.0695501529911,0.0695737305438,0.0693325140436,0.0692327628593,0.069377855491,0.0694794203332,0.0697206368333,0.0696081900438,0.0697115685438,0.0697424007281,0.0696789227017,0.0697278914649,0.0702574795705,0.0703282122284,0.0704243360969,0.0705440375181,0.0703155166232,0.0702611068863,0.070440659018,0.0706456023602,0.070701825755,0.0706256521234,0.0705567331233,0.0707453535445,0.0706873164918,0.0707344715971,0.0706528569918,0.0710609300184,0.070875936913,0.0708378500972,0.0707489808603,0.0707671174392,0.0708777505709,0.0710300978341,0.0713311650449,0.0714200342818,0.0715669405713,0.0714454254923,0.0715887044661,0.0718063434136,0.0720004048084,0.0719858955453,0.0718408029136,0.0715415493608,0.0715741952029,0.0715596859397,0.0713257240712,0.0713855747817,0.0713474879659,0.0709883837025,0.0710518617289,0.0714091523344,0.0713837611238,0.0715415493608,0.071624977624,0.0717392380714,0.0720004048084,0.0721890252296,0.0722198574138,0.0723903412561,0.072479210493,0.0723449998087,0.0726152348351,0.0727839050195,0.0727186133352,0.0726152348351,0.0728455693879,0.0729163020459,0.0730378171249,0.0732427604671,0.0734313808883,0.0735329457305,0.0734422628357,0.0733479526251,0.073279033625,0.0733896667567,0.0734404491778,0.0734168716251,0.0735674052305,0.0735129954936,0.0734386355199,0.0733824121251,0.0735837281515,0.0734477038094,0.0736526471516,0.073750584678,0.0738974909675,0.0739138138886,0.0738829817044,0.0740353289676,0.0741078752835,0.0743291415467,0.0743835512836,0.0748025062576,0.0748133882049,0.0749258349945,0.0748043199155,0.074795251626,0.0748369657576,0.0747626057839,0.0746809911785,0.0745467804943,0.074341837152,0.0741387074677,0.0740135650729,0.0739809192307,0.0739392050991,0.0740081240992,0.0739029319412,0.0738340129412,0.0739192548623,0.0738884226781,0.0741604713624,0.0742638498625,0.0741731669677,0.0742856137572,0.0742094401256,0.0741894898888,0.0742475269414,0.0742584088888,0.0741659123361,0.0741495894151,0.0739827328886,0.0740516518887,0.0743291415467,0.0740969933361,0.0742856137572,0.0743545327573,0.0744597249153,0.0743527190994,0.0744887434416,0.0748387794155,0.0748006925997,0.0746302087575,0.074568544389,0.0749149530471,0.0748895618366,0.0748460340471,0.0749040710997,0.075109014442,0.0750491637314,0.0750074495998,0.0750273998367,0.0751398466262,0.0751978836789,0.0750364681261,0.0749149530471,0.0750618593367,0.0749113257313,0.0750781822577,0.0751325919946,0.0751471012578,0.0751833744157,0.0751815607578,0.0749475988892,0.0749566671787,0.0751072007841,0.0750999461525,0.0753520446,0.0752432251263,0.0752105792841,0.0751688651525,0.0753157714421,0.0755152738107,0.0756331615739,0.075596888416,0.0756549254686,0.0755388513633,0.0754554231001,0.0753846904421,0.0753774358106,0.075143473942,0.0750654866525,0.0749657354682,0.0750546047051,0.0751525422315,0.0750419090998,0.0751235237051,0.0752323431789,0.0753538582579,0.0753865041,0.075491696258,0.0754445411527,0.0755424786791,0.0753085168105,0.0752704299947,0.0752940075474,0.0754028270211,0.0750999461525,0.0749095120734,0.0749566671787,0.0750963188367,0.0750999461525,0.074987499363,0.0751489149157,0.0753012621789,0.0752269022052,0.0751017598104,0.0752486661,0.0753738084948,0.0753302807053,0.0752395978105,0.075196070021,0.0752903802316,0.0753520446,0.0750818095735,0.0753466036263,0.0753157714421,0.0752940075474,0.0753157714421,0.0751398466262,0.0750781822577,0.0749548535208,0.0748804935471,0.0748877481787,0.0748623569681,0.0748968164682,0.075038281784,0.0749095120734,0.0749657354682,0.075196070021,0.0753085168105,0.0755134601528,0.0754245909159,0.0753556719158,0.0755243421001,0.0750419090998,0.0750600456788,0.0754663050475,0.0755152738107,0.0754064543369,0.0753067031526,0.0752813119421,0.0752160202578,0.0752087656262,0.0752740573105,0.0754626777317,0.0749566671787,0.0747335872575,0.0745413395206,0.0745232029416,0.074708196047,0.0749312759682,0.0745431531785,0.074586680968,0.0743744829941,0.0743273278889,0.0671524972528,0.0595859165112,0.0521626147433,0.0447102944492,0.0)
m <- c(0.0453591423196,0.0528425394955,0.0603422561708,0.0676388857408,0.0751984405812,0.0748847435345,0.0749337020331,0.0747668804823,0.0745021419343,0.0744568099912,0.0740814615018,0.0739781046715,0.0739436523947,0.0741775652213,0.0740125569483,0.0739962374487,0.0740379428364,0.0742519096081,0.0742972415513,0.0741558058886,0.0745365942111,0.074736054761,0.0747469344273,0.0746200049865,0.0748212788141,0.0749463949772,0.075093270473,0.075133162583,0.0752727849679,0.0753906480201,0.0752093202475,0.0750279924749,0.0751821210816,0.075285477912,0.0751095899726,0.075265531857,0.0752619053016,0.0752999841338,0.0751694281375,0.075060631474,0.0751240961944,0.075133162583,0.0749173825336,0.0746816564292,0.074696162651,0.0744495568803,0.0745656066547,0.0744858224348,0.074716108706,0.074788639815,0.0746635236519,0.0749210090891,0.0751259094721,0.0753507559102,0.075457739296,0.0757170380108,0.0755828554591,0.0754468596296,0.0753217434665,0.0754849384619,0.0758566603957,0.0756898388449,0.0756898388449,0.0759255649493,0.0762537682178,0.0761903034974,0.0760815068338,0.0762048097192,0.07637163127,0.076424216324,0.0760887599447,0.0763770711032,0.0762882204946,0.076106892722,0.0759491375598,0.0758892993948,0.0760343616129,0.0761359051656,0.0761177723883,0.0757097848999,0.0759219383939,0.0755085110723,0.0754722455178,0.0754994446837,0.0751458555271,0.0751984405812,0.0753852081869,0.0750352455858,0.0749881003649,0.075225639747,0.0750769509735,0.0754740587955,0.0753380629661,0.0754051542419,0.0757152247331,0.0755447766269,0.075365262132,0.0757134114554,0.0754450463519,0.0756898388449,0.075854847118,0.0756553865681,0.0758675400621,0.0757587433985,0.0757261043995,0.075934631338,0.0758457807294,0.0758657267844,0.0761558512206,0.0760978263333,0.075814955008,0.0758330877853,0.0758276479521,0.0759219383939,0.075782316009,0.0756644529568,0.0756717060677,0.0755121376278,0.0755048845169,0.0754595525737,0.0755338969605,0.0755556562932,0.0756535732904,0.0755139509055,0.0756354405132,0.0758584736735,0.0758784197285,0.0758240213967,0.075834901063,0.0755592828487,0.0755919218477,0.0753997144088,0.0750479385299,0.0750116729754,0.0750624447517,0.0747777601487,0.0746725900406,0.0747596273714,0.0746326979306,0.0746580838188,0.074676216596,0.0748249053696,0.0750461252522,0.0751277227498,0.0750860173621,0.0750551916408,0.0750878306399,0.0751077766948,0.0750860173621,0.0751911874703,0.0752165733584,0.0750987103062,0.0750298057526,0.0748974364786,0.0746326979306,0.0746109385979,0.0744604365466,0.0743298805503,0.0744259842698,0.0741757519436,0.0740615154469,0.0738765611188,0.0738439221197,0.0738384822865,0.0736625943471,0.0736916067907,0.0735229719622,0.073669847458,0.0734740134636,0.0737659511775,0.0736771005689,0.0736444615698,0.0736571545139,0.0734141752986,0.0736190756817,0.0735900632381,0.0739926108933,0.0738004034543,0.0740488225028,0.073954532061,0.0740089303928,0.0741757519436,0.0741721253882,0.0743607062717,0.0744060382148,0.0741975112763,0.0740687685578,0.0739527187833,0.0736154491262,0.0736553412362,0.0736807271244,0.0736372084589,0.073577370294,0.0736009429044,0.0735012126295,0.0736480881253,0.0734848931299,0.0734377479091,0.0734504408531,0.0732890591355,0.0732292209706,0.0732346608037,0.0731838890274,0.0731059180852,0.0731748226388,0.0729155239239,0.0728611255921,0.072815793649,0.0727396359845,0.0726507853759,0.0725728144337,0.0723262086629,0.0722047190553,0.0724168725492,0.072166640223,0.0721956526667,0.0725383621569,0.0725528683787,0.0725728144337,0.0728593123144,0.0727867812054,0.0726761712641,0.0726743579864,0.0723806069947,0.0723298352184,0.0722391713321,0.0719563000068,0.0720179514495,0.0720922958363,0.071709694236,0.0716462295156,0.0717513996237,0.0716734286815,0.0715464992407,0.0715954577393,0.0716516693488,0.071657109182,0.0716299100161,0.0715356195743,0.0715827647952,0.0714685282985,0.0712291756386,0.0710714204764,0.0710895532537,0.0708683333711,0.0708592669825,0.0707885491512,0.0705147442145,0.0703442961083,0.070266325166,0.0702953376096,0.0703152836646,0.0702717649992,0.0702445658333,0.0702101135565,0.0701466488361,0.0701357691697,0.0700251592285,0.0699199891203,0.0695555202974,0.0694503501893,0.0695192547429,0.0693959518575,0.069504748521,0.0695011219656,0.0693234207484,0.0692019311408,0.0694104580793,0.0694140846347,0.069492055577,0.069412271357,0.0692726489721,0.0694485369115,0.069015163535,0.0689009270382,0.0690224166459,0.0686615743784,0.0685926698248,0.0684675536617,0.0684403544958,0.0685672839366,0.0687540515424,0.0687123461547,0.0689643917587,0.0689825245359,0.0691040141436,0.0692019311408,0.0692672091389,0.0690713751445,0.0689988440354,0.0689190598155,0.0688973004828,0.0688537818174,0.0685908565471,0.0685654706589,0.0680867653392,0.0681683628369,0.067816586958,0.0681048981165,0.0683061719441,0.068193748725,0.0680704458397,0.0679852217865,0.0681357238378,0.0680704458397,0.0681665495591,0.0682155080578,0.0681230308937,0.0679852217865,0.0678129604025,0.0676896575172,0.0676824044063,0.0674575579682,0.0672290849747,0.0672000725311,0.0673741471928,0.0670477572021,0.0673360683606,0.067359640971,0.0673668940819,0.0674611845237,0.0672689770847,0.0676080600195,0.0676878442394,0.0676678981845,0.0673650808042,0.0675645413541,0.0673469480269,0.0672000725311,0.0671184750334,0.0669879190371,0.0668845622068,0.0666252634919,0.066485641107,0.0665563589383,0.0665998776038,0.0665128402729,0.0665835581042,0.0664892676625,0.0664638817743,0.0665617987715,0.066618010381,0.0667576327659,0.0669697862599,0.0668845622068,0.0670495704798,0.0669298941499,0.0668029647091,0.0670622634239,0.0672798567511,0.0671057820893,0.0671819397538,0.0669190144836,0.0668519232077,0.0667721389877,0.0666452095469,0.0668356037082,0.0668337904304,0.0667213672114,0.0664892676625,0.0668537364854,0.0668065912645,0.0670459439244,0.066942587094,0.0670622634239,0.0670314377026,0.0670078650921,0.0672018858088,0.0673832135815,0.0675736077427,0.0672744169179,0.0672780434733,0.0673415081937,0.0675699811872,0.0675627280763,0.0675554749654,0.0674629978014,0.0673451347492,0.0671474874771,0.06685010993,0.0670822094789,0.0671239148666,0.0670332509803,0.0667685124323,0.0665581722161,0.0665491058274,0.0666016908815,0.0666343298806,0.0666760352683,0.0668900020399,0.0667757655432,0.0666488361024,0.0666887282123,0.0667322468778,0.0669135746504,0.0668754958181,0.0667721389877,0.0666361431583,0.0664384958861,0.0662952469458,0.0664366826084,0.0666869149346,0.0667540062105,0.0668900020399,0.0670241845917,0.0672055123643,0.0673578276933,0.067379587026,0.0675627280763,0.0675935537977,0.0674865704118,0.0673542011378,0.0671601804211,0.0672236451415,0.0672834833065,0.0672707903624,0.0673614542487,0.0674956368005,0.0674974500782,0.067744055849,0.0677005371835,0.0680795122283,0.0681484167819,0.0681175910605,0.0681955620028,0.0682173213355,0.0681864956141,0.0682372673905,0.0682481470568,0.0681375371155,0.0682263877241,0.0680631927288,0.0681647362814,0.0681266574492,0.0682010018359,0.0684439810512,0.0685219519935,0.0685346449376,0.0686071760466,0.0688320224846,0.0688102631519,0.0689390058705,0.0691457195313,0.069279902083,0.069220063918,0.0692363834176,0.0692581427503,0.0695935991296,0.0697803667354,0.0699762007298,0.0701121965593,0.0701901675015,0.0703642421632,0.0705963417122,0.0707812960403,0.0707921757066,0.070855640427,0.071047847866,0.0712745075818,0.0710732337542,0.0714522087989,0.0715537523516,0.0713959971894,0.0714757814094,0.0716353498493,0.0719671796732,0.0721702667785,0.0721176817244,0.0720360842268,0.0722808767198,0.0722373580544,0.0723352750516,0.0725238559351,0.0725365488792,0.0725673746005,0.0724966567692,0.0725075364355,0.0725020966024,0.0728121670935,0.0729898683107,0.0732165280265,0.0733543371337,0.0734286815204,0.073669847458,0.0739055735624,0.0742337768308,0.0745093950452,0.0743842788821,0.0744495568803,0.0747741335932,0.0747904530928,0.0748212788141,0.0749101294227,0.0750733244181,0.075232892858,0.0750733244181,0.0750860173621,0.0754849384619,0.0756771459009,0.0754251002969,0.0756209342913,0.0755810421814,0.0758403408962,0.0759618305039,0.0760488678347,0.0763281126045,0.0766617557062,0.076808631202,0.0769301208096,0.077205739024,0.0773761871303,0.0775937804574,0.0776771912328,0.0779111040595,0.0780144608899,0.0780761123326,0.0780525397221,0.0783462907138,0.0784188218228,0.0784913529318,0.0785276184864,0.0789065935311,0.0789392325302,0.0787107595367,0.0788358756998,0.0789482989188,0.0791967179673,0.0791930914119,0.0792946349645,0.0795974523448,0.079755207507,0.0797624606179,0.0799564813346,0.0804206804325,0.0805403567624,0.0807470704232,0.0806872322582,0.0809157052517,0.0811478048007,0.0815576055668,0.0819220743897,0.0821070287178,0.0823681407104,0.0826727713683,0.0827833813096,0.0832693397402,0.0836138625082,0.0834506675129,0.0836138625082,0.0833346177384,0.0832675264625,0.0835286384551,0.0836773272286,0.0838822276117,0.0842340034906,0.084277522156,0.0845440739817,0.0849883270246,0.0853945012353,0.0856447335615,0.0859566173304,0.0860490944944,0.0862884471543,0.0859765633854,0.0860327749949,0.0860364015504,0.086217729323,0.0862793807657,0.0861887168793,0.0864752147601,0.0865876379791,0.0869938121898,0.0872168453501,0.0875214760081,0.0875704345067,0.0879385298851,0.0879820485505,0.0882359074322,0.0884625671479,0.0884589405925,0.0885985629774,0.0886094426438,0.0886457081983,0.0889104467463,0.0891951313493,0.0894163512319,0.0894544300641,0.0899204424398,0.0901035834901,0.0905569029216,0.0909141186337,0.0911625376822,0.0913456787325,0.0915668986151,0.091938620549,0.0917409732768,0.0922359980961,0.0924826038668,0.0930592261837,0.0935669439471,0.094295881593,0.0950683379043,0.096361204923,0.0975434620005,0.0989378725719,0.100763843242,0.102045830595,0.103434801333,0.104432104082,0.105603481493,0.106705954351,0.107949862871,0.108657041184,0.109309821165,0.109942655092,0.11031075047,0.110842040844,0.110994356173,0.111286293887,0.111453115438,0.111581858156,0.111645322877,0.112131281307,0.112582787461,0.112865658786,0.113324418051,0.11341326866,0.113910106757,0.114307214579,0.114660803735,0.115070604501,0.115179401165,0.115348035994,0.115552936377,0.115449579546,0.115304517328,0.115534803599,0.1155021646,0.115464085768,0.115770529704,0.115703438428,0.115808608536,0.115522110655,0.115393367937,0.115500351323,0.11535891566,0.115707064983,0.11592465831,0.116365284798,0.116178517192,0.116368911353,0.116707994288,0.11696185317,0.117322695437,0.117533035654,0.118167682858,0.11826922641,0.118334504409,0.118263786577,0.118412475351,0.118566603957,0.118925632947,0.119203064439,0.119177678551,0.119342686824,0.119424284322,0.119554840318,0.119997280083,0.120174981301,0.120784242617,0.120787869172,0.120597475011,0.120769736395,0.121297400213,0.121846823364,0.121946553639,0.122185906299,0.122122441578,0.122486910401,0.122806047281,0.123079852218,0.12347696004,0.123582130148,0.123640155035,0.123567623926,0.123933906027,0.12416237902,0.124515968177,0.125021872663,0.124949341554,0.125547723203,0.125730864253,0.126144291575,0.12618055713,0.126430789456,0.126405403568,0.126579478229,0.126414469956,0.126358258347,0.126517826787,0.126599424284,0.126474308121,0.126610303951,0.126753552891,0.12664294295,0.126893175276,0.127125274825,0.127413585983,0.127399079762,0.127330175208,0.127179673157,0.12750424987,0.127477050704,0.127480677259,0.127676511254,0.127627552755,0.127331988486,0.12756771459,0.127689204198,0.127672884698,0.127562274757,0.127507876425,0.127629366033,0.127812507083,0.127569527868,0.127779868084,0.127741789252,0.127662005032,0.127593100478,0.127669258143,0.127817946916,0.127413585983,0.12732836193,0.126844216777,0.126784378612,0.126441669122,0.126229515628,0.125890432693,0.125817901584,0.125836034362,0.125656519867,0.126053627689,0.126118905687,0.12598109658,0.125868673361,0.125654706589,0.125834221084,0.126022801967,0.125496951427,0.125161495047,0.125099843605,0.125059951495,0.124568553231,0.124773453614,0.124753507559,0.124719055282,0.124684603006,0.124336453682,0.124539540787,0.124454316734,0.124271175684,0.123687300256,0.123466080374,0.123286565879,0.12337360321,0.123052653052,0.122671864729,0.12247240418,0.122405312904,0.121961059861,0.121529499762,0.121529499762,0.121525873207,0.121226682382,0.120842267504,0.120648246787,0.120465105737,0.119850404588,0.119658197149,0.119660010426,0.11946598971,0.118925632947,0.118332691131,0.118236587411,0.117654525261,0.11742423899,0.117329948548,0.117230218273,0.116950973503,0.116546612571,0.11648314785,0.116510347016,0.116519413405,0.1162836873,0.116212969469,0.115993562864,0.115736077427,0.115681679095,0.115173961332,0.115063351391,0.114843944786,0.114615471792,0.114238310025,0.113877467758,0.113694326707,0.113444094381,0.112981708561,0.112557401573,0.112521136018,0.112245517804,0.111804891317,0.111434982661,0.111329812552,0.111297173553,0.111233708833,0.110985289784,0.110939957841,0.111104966114,0.110706045015,0.110724177792,0.110987103062,0.110905505564,0.11051021102,0.109989800313,0.109462136494,0.109353339831,0.109036016229,0.108617149074,0.108812983069,0.10858813663,0.107897277817,0.107777601487,0.107880958317,0.107627099436,0.107545501938,0.107115755117,0.106715020739,0.106517373467,0.106103946146,0.105485618441,0.105191867449,0.104867290736,0.104580792856,0.104493755525,0.10443391736,0.104539087468,0.104404904916,0.104161925701,0.103982411206,0.104122033591,0.10401142365,0.103677780548,0.103240780616,0.102865432127,0.102303316032,0.101670482105,0.101398490446,0.101257054784,0.100655046579,0.100259752034,0.100274258256,0.100125569483,0.100109249983,0.10002402593,0.0999460549876,0.100027652485,0.0997357147714,0.0996486774406,0.0994673496679,0.0992443165076,0.0986713207462,0.0984501008636,0.098433781364,0.0984283415309,0.0984555406968,0.0982071216483,0.097976835377,0.0975742877218,0.0978281466035,0.0977646818831,0.0978571590471,0.0975652213332,0.0970611301253,0.0966984745801,0.0965117069743,0.0961925700945,0.0960656406537,0.0960837734309,0.0955325370022,0.0949559146853,0.0947002425259,0.0947473877468,0.0946621636936,0.0945171014756,0.0940728484326,0.0942287903171,0.0941997778735,0.0935778236134,0.0932623132891,0.0933294045649,0.0928162469684,0.091918674494,0.0911317119608,0.0898533511639,0.0886747206419,0.08737641379,0.0859511774972,0.0849375552483,0.0839638251094,0.0826655182574,0.0818314105034,0.0811441782452,0.0804315600988,0.0803173236021,0.080112423219,0.0797497676738,0.0796137718443,0.0793653527958,0.0789700582515,0.0787923570344,0.0784151952673,0.0783082118815,0.0780652326662,0.0779437430585,0.0777896144518,0.0776173530678,0.0772401913008,0.076921054421,0.0768050046465,0.0766472494843,0.0766508760398,0.0764260296018,0.0764768013781,0.0761540379428,0.0760760670006,0.0758856728394,0.0759727101702,0.075967270337,0.0757841292867,0.0757714363426,0.0757242911217,0.0754940048505,0.0751114032503,0.0747723203155,0.0743026813844,0.0741612457218,0.0742301502754,0.0740288764478,0.0741050341123,0.0739200797842,0.0736734740135,0.0733797230218,0.0732165280265,0.0733343910787,0.0735991296267,0.073669847458,0.0734141752986,0.0734268682427,0.073120424307,0.0731367438065,0.0727976608717,0.0729826151998,0.0728194202044,0.072683424375,0.0724495115483,0.072318955552,0.072318955552,0.072318955552,0.0724821505474,0.0718601962873,0.0719998186722,0.0719327273964,0.072153947279,0.0720796028922,0.071981685895,0.0714866610757,0.0713180262472,0.0713561050794,0.0712853872481,0.0716643622929,0.0714268229108,0.0713869308008,0.0710587275324,0.071027901811,0.071087739976,0.0711258188082,0.0712237358054,0.0710442213105,0.0707704163739,0.070458532605,0.0704476529386,0.0703007774428,0.0702844579433,0.0700106530066,0.0697713003468,0.0699145492872,0.0695809061855,0.0694412838006,0.0694304041343,0.0693614995807,0.0694304041343,0.069352433192,0.0694158979125,0.0693578730252,0.0690423627009,0.0688356490401,0.0687322922097,0.0685690972144,0.068445794329,0.068750424987,0.0686144291575,0.0684240349963,0.0682844126113,0.0682427072236,0.0684149686076,0.0682771595004,0.06825358689,0.0682445205014,0.0682390806682,0.0679834085088,0.0677204832385,0.0676134998527,0.0673342550828,0.0672562841406,0.0671837530316,0.0673922799701,0.0672943629729,0.0673270019719,0.0671964459757,0.0669879190371,0.0670658899794,0.0671601804211,0.0671982592534,0.0671329812552,0.0671275414221,0.0668446700968,0.0669589065935,0.0669244543167,0.0668192842086,0.0669643464267,0.066882748929,0.0667793920986,0.0666905414901,0.0667721389877,0.0664384958861,0.0666452095469,0.066565425327,0.0666161971033,0.0667358734332,0.0664965207734,0.0664983340511,0.0665763049933,0.066750379655,0.0667413132664,0.066637956436,0.0664330560529,0.0664548153857,0.066200956504,0.0659670436773,0.0658781930687,0.0658274212924,0.0658473673474,0.0658473673474,0.0657730229606,0.0659869897323,0.0659452843446,0.065856433736,0.0658111017929,0.0659688569551,0.0661429316168,0.0660776536186,0.0658836329019,0.0658528071806,0.0656080146875,0.0657295042952,0.0655681225776,0.0655264171899,0.0654502595254,0.065459325914,0.0653741018609,0.06536684875,0.0654502595254,0.0654266869149,0.0656152677985,0.0655282304676,0.065691425463,0.0659108320678,0.0662190892813,0.0660232552868,0.0661556245608,0.0664511888302,0.0664076701648,0.0663242593894,0.0665164668284,0.0663677780548,0.0664983340511,0.0661538112831,0.0658346744033,0.0661465581722,0.0663025000567,0.06598880301,0.0660033092319,0.0660613341191,0.0659434710669,0.0662426618917,0.0661066660622,0.0664167365534,0.0665291597724,0.0663242593894,0.0658074752374,0.0658709399578,0.0659144586233,0.0659851764546,0.0658981391237,0.0656823590743,0.0656787325189,0.0653632221945,0.0653614089168,0.0652308529205,0.0655862553548,0.0657585167388,0.0657059316848,0.0654502595254,0.0654538860808,0.0655554296335,0.0655844420771,0.0656624130193,0.065704118407,0.0659053922346,0.0658908860128,0.065691425463,0.0656605997416,0.0657802760715,0.0657784627938,0.0657349441284,0.0658129150706,0.0660450146196,0.0660740270632,0.0661030395068,0.06602869512,0.0660613341191,0.0662426618917,0.0663224461117,0.0664566286634,0.0664765747184,0.0664530021079,0.0664058568871,0.0664530021079,0.0662970602235,0.0665037738843,0.0664820145516,0.0663025000567,0.0663695913325,0.0663315125003,0.0664983340511,0.0668210974863,0.0668319771527,0.0669407738163,0.0671420476439,0.0672599106961,0.0673759604705,0.0673850268592,0.0674412384687,0.0675989936309,0.0675808608536,0.0675373421882,0.0674104127473,0.0673052426392,0.0672345248079,0.0672526575852,0.0673342550828,0.0675772342981,0.0677132301276,0.0678093338471,0.0678401595684,0.0677331761826,0.0678999977334,0.0679326367325,0.068121217616,0.0679543960652,0.0679652757315,0.0680704458397,0.0680541263401,0.0679725288424,0.0682699063895,0.0682626532786,0.0686144291575,0.0686778938779,0.0687540515424,0.0690314830345,0.0692545161948,0.0693451800811,0.0693179809153,0.0694412838006,0.0690750016999,0.069087694644,0.0688791677055,0.0690423627009,0.06891543326,0.0687159727102,0.068710532877,0.0685763503253,0.0686525079898,0.068690586822,0.068710532877,0.068922686371,0.0620213513452,0.0550710578209,0.0482676397924,0.0414460889866,0.0)
ycorr <- c(8.38274258754e-05,8.37501840696e-05,8.35119698273e-05,8.31133281436e-05,8.25470498651e-05,8.18126307358e-05,8.08997171851e-05,7.99954902527e-05,7.90961793312e-05,7.81956077112e-05,7.72911482491e-05,7.63769354671e-05,7.54517622895e-05,7.45178019188e-05,7.3571359355e-05,7.26192291351e-05,7.16599145665e-05,7.06999102881e-05,6.97475863115e-05,6.88051248516e-05,6.78731674998e-05,6.69521925598e-05,6.60448598125e-05,6.51424103633e-05,6.42487255921e-05,6.33614332305e-05,6.24810522488e-05,6.16058639679e-05,6.07330152142e-05,5.98578806407e-05,5.89743999612e-05,5.80832013688e-05,5.71773663002e-05,5.62624390356e-05,5.53413381044e-05,5.44103655384e-05,5.34724666555e-05,5.25200976231e-05,5.15538858117e-05,5.05705845998e-05,4.9571779762e-05,4.85626542424e-05,4.75489415803e-05,4.65355572993e-05,4.55185833096e-05,4.44955388943e-05,4.34638623946e-05,4.24269376174e-05,4.13850292163e-05,4.03399243956e-05,3.92972868575e-05,3.82492186072e-05,3.71951215609e-05,3.61258697673e-05,3.50448077849e-05,3.39573048881e-05,3.28670168721e-05,3.17695703377e-05,3.06609792735e-05,2.95464107034e-05,2.84232975189e-05,2.72972521385e-05,2.61677552387e-05,2.50326333048e-05,2.38960683701e-05,2.27496205795e-05,2.15897758259e-05,2.04222689643e-05,1.92529546792e-05,1.80794481363e-05,1.68977458906e-05,1.57045364929e-05,1.44929987123e-05,1.3273849997e-05,1.20435920158e-05,1.08053094713e-05,9.55996088788e-06,8.30752198857e-06,7.04262285673e-06,5.76902011637e-06,4.48873482436e-06,3.20734299637e-06,1.92696113909e-06,6.45369746172e-07,-6.44064575331e-07,-1.93291093567e-06,-3.22612835306e-06,-4.52241681652e-06,-5.82024740764e-06,-7.12273403249e-06,-8.43479027803e-06,-9.75856215195e-06,-1.10937926426e-05,-1.24340246529e-05,-1.3772428313e-05,-1.51138333626e-05,-1.64582539133e-05,-1.77996082547e-05,-1.91383612508e-05,-2.0477740715e-05,-2.1807372452e-05,-2.31289860557e-05,-2.44426880774e-05,-2.57552061572e-05,-2.70711287717e-05,-2.83920139239e-05,-2.97140445131e-05,-3.10438732301e-05,-3.23828558109e-05,-3.37323682355e-05,-3.50913222097e-05,-3.64650740752e-05,-3.78472343354e-05,-3.92348184797e-05,-4.06262915696e-05,-4.20180803875e-05,-4.341224685e-05,-4.48006544619e-05,-4.61814293261e-05,-4.75545432633e-05,-4.89194395142e-05,-5.02762411815e-05,-5.16279294538e-05,-5.29784979349e-05,-5.43278480655e-05,-5.56814413643e-05,-5.70429741896e-05,-5.84123637454e-05,-5.97950974482e-05,-6.11865327656e-05,-6.25896623961e-05,-6.4000806022e-05,-6.54152139655e-05,-6.68304093755e-05,-6.82472748947e-05,-6.96654297126e-05,-7.10731991669e-05,-7.24765566093e-05,-7.38744901644e-05,-7.52671808823e-05,-7.6660105801e-05,-7.80513258762e-05,-7.94452901882e-05,-8.08449198645e-05,-8.22483458203e-05,-8.36478343922e-05,-8.50438541326e-05,-8.64418332737e-05,-8.78398742134e-05,-8.92365600294e-05,-9.06299891398e-05,-9.20174487165e-05,-9.34007981781e-05,-9.47746088557e-05,-9.61413147808e-05,-9.75077405308e-05,-9.88820788533e-05,-0.000100261694362,-0.00010164536805,-0.000103027733497,-0.000104411626274,-0.00010579350732,-0.000107178941773,-0.000108569212839,-0.000109964045029,-0.000111359061617,-0.000112748582532,-0.000114133543695,-0.00011550982266,-0.000116882668033,-0.000118255207135,-0.000119627126113,-0.000121002124641,-0.000122372780883,-0.000123740196058,-0.000125110395469,-0.000126489465286,-0.000127875857896,-0.000129265581917,-0.000130663094181,-0.000132064999638,-0.000133472604676,-0.000134880431054,-0.000136294830719,-0.000137718541556,-0.000139147062166,-0.000140572367358,-0.000141992855665,-0.000143413647454,-0.000144835851816,-0.000146258119909,-0.000147680206863,-0.000149101478979,-0.000150524675585,-0.000151942816828,-0.000153355232879,-0.000154766074016,-0.000156181126361,-0.000157602686173,-0.00015902675537,-0.000160455918659,-0.000161896662425,-0.000163344547142,-0.000164800466499,-0.000166269346564,-0.000167751796368,-0.000169243118576,-0.000170737253538,-0.000172230320338,-0.000173723633579,-0.000175214862572,-0.000176700068283,-0.000178184214755,-0.000179668524461,-0.00018114304985,-0.000182610322636,-0.000184077536706,-0.000185545925487,-0.000187019463294,-0.000188499379775,-0.000189981196084,-0.000191467865782,-0.000192955870731,-0.000194434026975,-0.000195910337285,-0.00019739228135,-0.000198874110358,-0.000200354596473,-0.000201840119832,-0.00020332989644,-0.000204824503764,-0.000206323738072,-0.000207829483624,-0.0002093488642,-0.000210882820651,-0.000212422584569,-0.000213967225078,-0.00021551707315,-0.000217063908669,-0.00021860265471,-0.000220135117708,-0.000221664919088,-0.000223189835624,-0.000224710212958,-0.000226227276538,-0.000227740799981,-0.000229255508811,-0.000230770526859,-0.000232287038318,-0.000233812606127,-0.000235347605805,-0.000236892050655,-0.000238441651358,-0.000239998235738,-0.000241555066923,-0.000243112232263,-0.000244675504106,-0.000246247827844,-0.000247831235242,-0.000249420447408,-0.000251010873791,-0.000252600238231,-0.000254191302768,-0.000255785895383,-0.000257388529918,-0.000259000250297,-0.000260611298909,-0.000262215701469,-0.000263811965042,-0.000265399626098,-0.000266985291504,-0.000268573585543,-0.000270164181232,-0.000271748035734,-0.000273326810905,-0.000274900523727,-0.00027647471328,-0.000278055825405,-0.000279642176963,-0.00028123739896,-0.000282838298358,-0.000284434231848,-0.000286021063751,-0.000287607191802,-0.000289188938915,-0.000290757134978,-0.000292303729173,-0.00029381391863,-0.000295281568584,-0.000296701313583,-0.000298063063347,-0.000299368857068,-0.000300627424884,-0.00030183452915,-0.000302991078917,-0.000304107563985,-0.000305190475405,-0.000306257027699,-0.000307322625219,-0.000308393207028,-0.000309480818476,-0.00031059134778,-0.000311723723224,-0.000312879020455,-0.000314059826779,-0.000315262886784,-0.000316486000886,-0.000317729714138,-0.000318981650471,-0.000320240694924,-0.000321503338264,-0.000322764998025,-0.000324024667924,-0.000325284357075,-0.000326543949047,-0.000327805226971,-0.000329070989598,-0.000330337545957,-0.000331608166995,-0.000332882103747,-0.000334158833133,-0.000335440879769,-0.000336726278546,-0.00033801593096,-0.000339308643997,-0.000340599715837,-0.000341885246802,-0.000343158425709,-0.000344418061136,-0.000345662624406,-0.000346899025183,-0.000348124945154,-0.000349345383772,-0.000350561942243,-0.000351771538977,-0.000352970783255,-0.000354164143997,-0.000355358133579,-0.000356558509238,-0.000357768390484,-0.000358980315846,-0.000360190283816,-0.000361395240475,-0.000362591007951,-0.000363776163465,-0.000364958577964,-0.000366138234951,-0.000367314593472,-0.000368483229265,-0.000369642545306,-0.000370794921266,-0.000371946125147,-0.000373095655626,-0.000374239238401,-0.000375380206233,-0.000376520734074,-0.000377658189447,-0.000378793623824,-0.000379925500708,-0.000381048179258,-0.000382161290365,-0.000383265645697,-0.00038436171593,-0.00038545299726,-0.00038654373496,-0.000387628810025,-0.000388704325754,-0.000389766930607,-0.000390819169178,-0.000391861655693,-0.000392902428394,-0.000393936704532,-0.000394959406456,-0.000395967765986,-0.000396958999138,-0.000397935303873,-0.000398897203572,-0.000399848022275,-0.000400786184114,-0.000401714806015,-0.000402629176976,-0.000403528750517,-0.000404417367105,-0.000405296670868,-0.000406168883238,-0.000407030988889,-0.000407886821911,-0.000408733656511,-0.000409570138175,-0.000410397804036,-0.000411213776845,-0.000412020464488,-0.000412817048493,-0.00041360721753,-0.000414386262215,-0.0004151523642,-0.000415906325028,-0.000416645794247,-0.000417373247901,-0.000418088178516,-0.000418788630838,-0.000419475343647,-0.000420150059707,-0.000420810781025,-0.00042145361651,-0.000422083383907,-0.000422696904301,-0.000423294583304,-0.000423876681286,-0.00042444651916,-0.000425005138408,-0.000425554380927,-0.00042608878532,-0.000426604384973,-0.000427104735597,-0.000427589611343,-0.000428058583508,-0.000428514527568,-0.000428957679464,-0.000429383087731,-0.000429789059083,-0.00043017517755,-0.000430540310069,-0.000430890818796,-0.000431226303184,-0.000431543777224,-0.000431840793437,-0.000432120173082,-0.000432375316432,-0.000432610076604,-0.000432828001124,-0.00043302733181,-0.000433210199799,-0.000433372074907,-0.000433512605288,-0.00043363707721,-0.000433750184891,-0.000433850234489,-0.000433935139524,-0.000434007483573,-0.000434062529195,-0.000434098347574,-0.000434112639446,-0.000434105052449,-0.000434079159322,-0.00043403219305,-0.000433961054077,-0.000433862096868,-0.000433740427837,-0.000433592105325,-0.000433419935079,-0.000433222574173,-0.000433004296841,-0.000432766865513,-0.000432507867357,-0.000432224770827,-0.000431917229024,-0.000431581324506,-0.00043122064782,-0.000430831371055,-0.000430416846076,-0.000429977258233,-0.000429514892396,-0.000429027975462,-0.000428517206468,-0.00042798705263,-0.000427439543667,-0.000426878321331,-0.000426303803915,-0.000425714851912,-0.000425114352294,-0.00042450224198,-0.000423874673823,-0.000423231406086,-0.000422572553278,-0.000421890778778,-0.000421183453653,-0.000420454444599,-0.000419697497555,-0.000418919686479,-0.000418111652149,-0.000417268772363,-0.000416396373577,-0.000415499629962,-0.000414572078529,-0.000413616699182,-0.000412637585013,-0.000411630568504,-0.000410597270108,-0.000409535150521,-0.000408447712011,-0.000407342031052,-0.000406214298689,-0.000405052214091,-0.000403860668513,-0.000402644755169,-0.00040140402755,-0.000400138858143,-0.000398851430071,-0.000397538673544,-0.000396199981693,-0.000394832342954,-0.00039343506619,-0.00039201881623,-0.000390588324161,-0.000389135680792,-0.000387656264558,-0.000386148306038,-0.000384612705976,-0.000383051386022,-0.000381464562758,-0.000379856199571,-0.000378224121536,-0.000376567141781,-0.000374878220271,-0.000373161093771,-0.000371419510953,-0.000369657291391,-0.000367871742851,-0.000366063081419,-0.000364231715501,-0.000362375087176,-0.000360493726145,-0.000358586033233,-0.000356655474016,-0.000354704496987,-0.000352729704898,-0.000350728659313,-0.000348700417828,-0.000346645913175,-0.000344564564595,-0.00034245409011,-0.0003403131954,-0.000338144816807,-0.000335945955432,-0.00033371258705,-0.000331447230457,-0.000329151628896,-0.000326830110784,-0.000324486085125,-0.000322116516817,-0.000319722413856,-0.000317306545163,-0.000314870017679,-0.000312409838318,-0.000309928265386,-0.000307425127652,-0.000304898158638,-0.000302345577162,-0.000299762321715,-0.000297145509249,-0.00029449874677,-0.00029182170915,-0.000289115898062,-0.000286382533317,-0.000283624274441,-0.000280842660771,-0.000278041544491,-0.00027521983151,-0.000272377774429,-0.000269518525874,-0.000266640842715,-0.000263745016855,-0.000260824921342,-0.000257881013714,-0.000254914544491,-0.000251924297221,-0.000248907321627,-0.000245864097042,-0.000242793216432,-0.000239700895283,-0.000236584303265,-0.000233446251094,-0.000230288345719,-0.000227115406429,-0.000223921662822,-0.000220704516012,-0.000217464735271,-0.00021419807943,-0.000210904891578,-0.000207583528246,-0.000204232670939,-0.000200851242526,-0.000197437541124,-0.000193989950738,-0.000190507723655,-0.000186993629214,-0.000183447768755,-0.000179870412712,-0.000176268529402,-0.000172547149716,-0.000168626651051,-0.000164437499068,-0.000159931773192,-0.000154630329522,-0.000150183594089,-0.000146063934785,-0.000142205290155,-0.000138529264506,-0.000134933084947,-0.000131324667518,-0.00012779418946,-0.000124421528518,-0.000121275647666,-0.000118400049143,-0.000116278749649,-0.000113264427088,-0.000109888358495,-0.000106213808518,-0.000102321583533,-9.83052426023e-05,-9.42589628258e-05,-9.01849288649e-05,-8.60875050962e-05,-8.19639974366e-05,-7.7819043914e-05,-7.36465572376e-05,-6.9441148204e-05,-6.52009719351e-05,-6.09334200636e-05,-5.66397927156e-05,-5.2319701487e-05,-4.7973260865e-05,-4.35990288719e-05,-3.91934210784e-05,-3.47597043151e-05,-3.03029024826e-05,-2.58278035894e-05,-2.13380991307e-05,-1.68338068708e-05,-1.23120932716e-05,-7.77233902743e-06,-3.22326862033e-06,1.33465770433e-06,5.89831954918e-06,1.04651532298e-05,1.50386841521e-05,1.96216758358e-05,2.42140971144e-05,2.88169535654e-05,3.34290126031e-05,3.80471626869e-05,4.26753240229e-05,4.73141236938e-05,5.19640387358e-05,5.66242809544e-05,6.1294698673e-05,6.59766072527e-05,7.06694534219e-05,7.53731125117e-05,8.00905457598e-05,8.48223954772e-05,8.95706232518e-05,9.4328448128e-05,9.90965160193e-05,0.000103878680751,0.000108672813751,0.000113475023565,0.000118284689878,0.000123107485107,0.000127943035312,0.000132786734318,0.000137637604957,0.000142502445286,0.000147384462517,0.000152281450851,0.000157192574444,0.000162121140685,0.000167067284171,0.000172027340944,0.000176992712947,0.000181967940804,0.000186954187111,0.000191950140226,0.000196948821998,0.000201952065636,0.000206960194909,0.00021197092393,0.000216985390032,0.000222003922367,0.000227030900728,0.000232069406521,0.000237115691318,0.00024216805633,0.000247227218403,0.000252290984883,0.000257360776721,0.000262434952037,0.000267515974269,0.000272600763646,0.000277689741452,0.000282775596936,0.000287857091283,0.000292935926158,0.000298014556324,0.000303093571833,0.000308174442104,0.000313254641704,0.000318330744937,0.000323401077344,0.000328464338656,0.000333520071417,0.000338573631227,0.000343625095492,0.000348670656178,0.000353705329578,0.000358727759438,0.0003637414751,0.000368742998101,0.000373734137167,0.00037871263578,0.00038368270526,0.000388638561162,0.000393578175223,0.000398502024961,0.000403415133002,0.000408316344329,0.00041320274894,0.00041807289409,0.000422927962524,0.000427770839176,0.0004325975822,0.000437409314086,0.000442207700019,0.000446987875057,0.000451749044825,0.000456485525354,0.000461199248033,0.000465891486128,0.00047055969934,0.000475201556855,0.000479816135226,0.000484405370938,0.000488965475591,0.000493499478325,0.000498006691562,0.000502486022432,0.000506938448402,0.000511364708042,0.000515765729773,0.000520139272714,0.000524485728633,0.000528801948005,0.000533087835389,0.000537343630774,0.000541571064466,0.00054577438734,0.000549951814208,0.000554104072177,0.00055822851267,0.000562323737182,0.000566394156113,0.000570439173214,0.000574463938529,0.000578462755685,0.000582433909283,0.000586371486831,0.000590275069993,0.000594142149123,0.000597970967404,0.000601764341803,0.000605519411303,0.000609234160716,0.000612904305097,0.000616530369121,0.000620114346405,0.000623655379062,0.000627156556687,0.000630616870542,0.000634036567943,0.000637415178741,0.000640753095484,0.000644048586119,0.0006473022282,0.000650518288517,0.000653693370069,0.000656832170076,0.000659933678558,0.000662996927159,0.000666021695567,0.000669009122372,0.000671955692289,0.000674860277754,0.000677726580708,0.000680552986805,0.000683336236292,0.000686076710305,0.000688773285122,0.000691425610081,0.000694035301781,0.000696603167736,0.000699126134275,0.000701607135019,0.000704045351005,0.00070643750366,0.000708785078277,0.000711087274169,0.000713337679797,0.000715539710237,0.000717694782565,0.000719797158444,0.000721848215435,0.000723850996966,0.000725803853241,0.000727709267342,0.000729572225288,0.000731390661582,0.000733166758668,0.000734903742124,0.000736594001855,0.000738239395896,0.000739845185427,0.000741409816383,0.000742930244193,0.000744409344965,0.000745843068938,0.000747228593133,0.00074856757154,0.000749859879437,0.00075111076874,0.000752318043519,0.000753478873176,0.000754591913739,0.000755658715101,0.000756676821933,0.000757645142973,0.000758566048084,0.000759440082991,0.000760262615357,0.000761032614918,0.00076174559064,0.000762411595738,0.000763030331147,0.000763601638587,0.000764126337263,0.000764603117694,0.000765030800009,0.000765408269786,0.000765737176319,0.000766017960954,0.000766256502659,0.00076644972558,0.000766590994206,0.000766676862274,0.000766706864043,0.000766680757254,0.0007666056317,0.00076648172945,0.000766306057568,0.000766077505351,0.000765798741563,0.000765461844381,0.000765072677731,0.000764634962348,0.000764149667241,0.000763616323869,0.000763032767468,0.000762400150593,0.000761719334241,0.00076099402291,0.000760221473521,0.00075940354796,0.000758542429039,0.000757638536958,0.000756691100537,0.00075570429038,0.000754677562687,0.000753609500653,0.000752499907666,0.000751346943143,0.000750151229844,0.000748914186736,0.000747635354082,0.00074631101448,0.000744938832836,0.000743518316069,0.000742048758178,0.000740530146889,0.000738962308562,0.000737344438504,0.000735680338712,0.000733969197786,0.000732210724822,0.000730405436981,0.000728557324387,0.000726665163629,0.000724728877268,0.000722747228233,0.000720721988261,0.00071865269703,0.000716533148159,0.000714360254343,0.00071212991946,0.00070984243825,0.000707495241393,0.000705087508064,0.000702613574435,0.000700068882226,0.000697454951813,0.000694767987421,0.000692008308258,0.000689177961083,0.000686275469828,0.000683303844446,0.0006802596393,0.000677145006349,0.000673964353735,0.000670723576967,0.000667422115464,0.000664059707951,0.000660641911416,0.000657167858245,0.000653643714792,0.000650071058886,0.000646454043473,0.000642794150908,0.000639091354822,0.000635348400587,0.000631566348461,0.000627752153404,0.000623902947441,0.000620022917979,0.000616115914869,0.00061217861622,0.000608213382611,0.000604217074876,0.00060019351772,0.000596143105884,0.000592062364061,0.000587953826757,0.000583819244644,0.000579660763446,0.000575475763979,0.000571263416641,0.000567023446608,0.000562757182153,0.000558463857031,0.000554140948022,0.000549790434567,0.000545413342168,0.000541007155503,0.00053657001228,0.0005321000696,0.000527600874173,0.000523073983219,0.000518522626138,0.000513947880822,0.000509350063873,0.000504734568376,0.000500096017529,0.000495436881719,0.000490756047532,0.000486054710806,0.000481333608524,0.000476588965706,0.000471821448839,0.000467030525367,0.000462219985279,0.0004573893992,0.000452537892087,0.000447666750882,0.00044277318385,0.000437860092263,0.000432927481932,0.000427980065174,0.000423017088882,0.000418036067118,0.000413035496309,0.000408012349165,0.000402971490686,0.000397914636585,0.00039284393266,0.000387762161264,0.000382667533046,0.000377556126853,0.000372427747061,0.00036728615158,0.000362134286237,0.000356971537652,0.000351794942506,0.000346599517554,0.000341386894062,0.000336159395238,0.000330912920275,0.000325653811155,0.000320384681658,0.000315102591078,0.000309803207118,0.000304486803204,0.000299159042229,0.000293823899315,0.000288483447094,0.00028312867844,0.000277761781772,0.000272384715403,0.000266991713209,0.000261587007302,0.000256172526433,0.000250750156268,0.000245315821933,0.000239867670175,0.000234405497298,0.000228935794337,0.000223466100239,0.000217993582706,0.000212521369062,0.000207049661714,0.000201578286925,0.000196108051387,0.000190640854582,0.000185183355415,0.000179735076237,0.000174295288662,0.000168856949918,0.00016342006078,0.000157982054849,0.000152545730223,0.000147111509475,0.000141682885986,0.000136261468535,0.000130846067625,0.00012543413659,0.000120025123613,0.000114623550014,0.000109230717885,0.000103849601013,9.84796080815e-05,9.31208426855e-05,8.77681608964e-05,8.24184455753e-05,7.70718475712e-05,7.17308932019e-05,6.63982663097e-05,6.10750010403e-05,5.57609662413e-05,5.04581993243e-05,4.51680549164e-05,3.98958143782e-05,3.46417173255e-05,2.94113145528e-05,2.42013876363e-05,1.90123659406e-05,1.38400656498e-05,8.68349423678e-06,3.54320875077e-06,-1.58330465363e-06,-6.69814567655e-06,-1.18031872227e-05,-1.68985526409e-05,-2.19828783291e-05,-2.70556785977e-05,-3.21160738451e-05,-3.71585074735e-05,-4.21780916268e-05,-4.71753333173e-05,-5.2146229714e-05,-5.70917677821e-05,-6.20124361053e-05,-6.69084098505e-05,-7.17804352599e-05,-7.66239505005e-05,-8.14372474241e-05,-8.62218052227e-05,-9.09829396431e-05,-9.57220643604e-05,-0.000100439170246,-0.0001051391743,-0.000109819396029,-0.000114476048683,-0.000119108577659,-0.000123720522091,-0.000128319803489,-0.000132906149602,-0.000137472318301,-0.00014201703533,-0.000146540532386,-0.000151037668171,-0.000155502579345,-0.000159939337994,-0.000164346742613,-0.000168725049049,-0.00017306480793,-0.000177368299015,-0.000181637146531,-0.000185873442516,-0.000190076002114,-0.000194245147074,-0.000198387079074,-0.00020250074797,-0.000206585907668,-0.000210641955158,-0.000214672713172,-0.000218677566831,-0.000222651329937,-0.000226593031929,-0.000230504491053,-0.000234391153067,-0.000238253490187,-0.0002420902823,-0.000245902936267,-0.000249690555992,-0.000253450630975,-0.000257181640168,-0.000260891822981,-0.000264585766123,-0.000268260893988,-0.00027190996657,-0.00027553160166,-0.000279123916127,-0.00028268639233,-0.000286221389638,-0.00028973043247,-0.000293215421074,-0.000296673807333,-0.000300097037202,-0.000303483243695,-0.000306829675573,-0.000310141353597,-0.000313417173284,-0.000316658604637,-0.000319865302606,-0.000323035177266,-0.000326166732996,-0.000329263134354,-0.000332327236904,-0.000335364768191,-0.000338380169055,-0.000341376179868,-0.000344347260324,-0.000347294466476,-0.000350213969448,-0.00035310783049,-0.000355978831198,-0.000358825100661,-0.000361640898018,-0.000364423260865,-0.000367168766262,-0.000369872614712,-0.000372539480835,-0.000375167150219,-0.000377750629556,-0.000380290339949,-0.000382784633154,-0.000385234330673,-0.000387643176491,-0.000390017315037,-0.000392358364856,-0.000394668998724,-0.000396945171195,-0.000399188140818,-0.000401408632332,-0.000403604894465,-0.000405776875608,-0.000407919003478,-0.000410030728891,-0.000412098069101,-0.000414123066092,-0.000416102932975,-0.000418043082464,-0.000419946691269,-0.000421809016698,-0.000423632120447,-0.000425420443339,-0.000427175577693,-0.000428902978126,-0.000430609429313,-0.000432300564888,-0.000433971326311,-0.000435620485707,-0.000437244307,-0.000438844142098,-0.000440416787772,-0.000441958087748,-0.000443467457049,-0.000444940813574,-0.000446376847858,-0.00044776948177,-0.00044912646521,-0.000450449327437,-0.000451740079946,-0.000452995085466,-0.000454218502579,-0.000455409545862,-0.000456570088232,-0.000457700810394,-0.000458805266099,-0.000459877607797,-0.00046091501471,-0.000461913466204,-0.00046287403638,-0.000463802475596,-0.000464703347747,-0.000465573901617,-0.000466417665904,-0.000467238304474,-0.000467967818371,-0.000468539941654,-0.000468966738477,-0.000469249042308,-0.000469389766915)
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(244)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Sus_scrofa-male-liver-H3K27Ac-ERR572204.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) : 244',bty='n')
dev.off()