# R script for Peak Model
#  -- generated by MACS
p <- c(0.0389919054214,0.0454536542428,0.051996976088,0.0589627296641,0.0654740049642,0.0653603853952,0.0652059793143,0.0652205459257,0.065523531443,0.0653807786512,0.0656750242017,0.0657303773251,0.0658410835718,0.0654419584191,0.0655526646659,0.0657391172919,0.0659692697522,0.0658556501832,0.0660275361978,0.0664994944075,0.0664761878292,0.066639333877,0.0665373675971,0.0665548475308,0.0664587078955,0.0665985473651,0.0666160272988,0.066680120389,0.0665577608531,0.0661761156342,0.0661615490228,0.0660566694206,0.0662868218809,0.0663771348716,0.0664703611847,0.0664674478624,0.0663829615162,0.0664761878292,0.0664091814167,0.0664033547722,0.0664062680945,0.0665956340428,0.0663538282934,0.0663713082271,0.0664936677629,0.0663480016488,0.0663363483597,0.0660071429418,0.0659838363636,0.0661149358663,0.0661178491886,0.0658789567614,0.0658527368609,0.0658061237044,0.0655992778224,0.0656633709126,0.0656342376897,0.0658206903158,0.0658731301169,0.0657769904816,0.065450698386,0.0657274640028,0.0657274640028,0.0656254977229,0.0659867496859,0.0662606019804,0.0659459631739,0.0659080899843,0.065905176662,0.0661528090559,0.0665198876635,0.0662751685918,0.066359654938,0.0665169743412,0.0662547753358,0.0658760434392,0.0663334350374,0.0664499679287,0.0663800481939,0.0663858748385,0.0664004414499,0.0662314687575,0.066246035369,0.0661091092217,0.0662402087244,0.0663858748385,0.0664033547722,0.06629847517,0.0665198876635,0.0662343820798,0.0660013162973,0.0662402087244,0.0663654815825,0.0665985473651,0.0664179213836,0.0663509149711,0.0665315409526,0.0669044462047,0.0669102728492,0.0670413723519,0.0668636596927,0.0667646067351,0.0664994944075,0.0664616212178,0.0664499679287,0.0665927207205,0.0666043740096,0.066546107564,0.0665431942417,0.0666276805879,0.0671025521198,0.0672511315562,0.0673851443812,0.0671899517883,0.0673618378029,0.0673530978361,0.0671025521198,0.0669190128161,0.066907359527,0.0670034991623,0.0668957062378,0.0670268057405,0.067073418897,0.0671695585323,0.0672948313905,0.067207431722,0.0673239646133,0.0675541170735,0.067621123486,0.0675919902632,0.0676677366425,0.0674201042486,0.0676007302301,0.0677726162447,0.0679182823588,0.0680144219941,0.0680115086718,0.067755136311,0.0675308104953,0.0677056098322,0.0674667174051,0.0678192294012,0.0677638762778,0.0677114364768,0.0674958506279,0.0672744381345,0.067414277604,0.0676356900974,0.0678337960126,0.0677405696996,0.0681484348191,0.0679474155816,0.0679008024251,0.0679969420604,0.068055208506,0.0684630736255,0.0683203208337,0.0680085953495,0.0682037879424,0.068282447644,0.0683844139239,0.0684018938576,0.0681717413973,0.0681222149185,0.068189221331,0.0680435552169,0.0682882742886,0.0685737798722,0.0685650399054,0.0690253448259,0.0689758183471,0.0691418777172,0.069625489216,0.0696983222731,0.0698235951312,0.0700304410132,0.0701178406816,0.0705111391897,0.0706684585929,0.0702402002175,0.0701906737387,0.0706043655027,0.0707267250386,0.0708898710864,0.0711141969021,0.0711141969021,0.0712074232151,0.0711404168026,0.0710908903238,0.0712045098928,0.0715395419552,0.0715570218889,0.0717347345481,0.0720348067432,0.0720056735203,0.0719561470416,0.072084333222,0.0722241726915,0.0724135386398,0.0725562914316,0.0722824391371,0.072384405417,0.0723261389714,0.0721251197339,0.0719270138187,0.0722387393029,0.072197952791,0.0721251197339,0.0720173268095,0.0721455129899,0.0726087312327,0.0725242448865,0.072591251299,0.0729699831957,0.0732904486467,0.0734040682157,0.0734827279173,0.0734652479836,0.0738818530699,0.0738119333351,0.0738876797145,0.0740333458286,0.0742197984546,0.0740304325063,0.074141138753,0.0740129525726,0.0739080729704,0.0739605127715,0.0737245336667,0.0740595657291,0.07377988679,0.0738701997808,0.0740158658949,0.0742868048671,0.0744907374268,0.0746218369295,0.0749772622479,0.0753938673342,0.0756939395293,0.0757259860744,0.0760260582694,0.0763261304645,0.076165897739,0.0761513311275,0.0760610181368,0.0764688832563,0.0764747099008,0.0766028960812,0.0766262026595,0.0769583213996,0.0767776954182,0.0763989635215,0.0766145493704,0.0764601432894,0.0764805365454,0.0764514033226,0.0766465959155,0.0766436825932,0.0768854883426,0.0768301352192,0.0772787868506,0.0774331929316,0.0777390917712,0.0784004159292,0.0789626871296,0.0789393805514,0.0790238668975,0.0793006325143,0.0793151991257,0.0795919647425,0.0797755040463,0.0802707688342,0.0804921813276,0.0803232086353,0.0800056565065,0.0800639229522,0.0801192760755,0.0801425826538,0.0801746291989,0.0800784895636,0.0801396693315,0.0799619566723,0.0799561300277,0.0797288908898,0.0799852632506,0.080527141195,0.0807427270439,0.0811331122297,0.0812700383769,0.0813778313013,0.081488537548,0.0820828552936,0.0819575824354,0.0823363143321,0.0825664667924,0.0824936337353,0.082717959551,0.0831170847037,0.0838512419187,0.0843872932186,0.0853370362825,0.0863800056594,0.0874695881929,0.0886931835513,0.0900944915689,0.0916531189897,0.0933107993681,0.0943741620011,0.0951840655954,0.0964571874326,0.0973952772074,0.0977681824595,0.0986276125327,0.0995045225395,0.0997434149667,0.100136713475,0.100215373176,0.100503792082,0.101071889927,0.101176769529,0.101401095345,0.101634161128,0.101785653886,0.101899273455,0.102012893024,0.101715734152,0.101718647474,0.101500148303,0.101374875445,0.10166329435,0.101881793522,0.102138165882,0.102414931499,0.102406191532,0.102499417845,0.103029642501,0.103341367985,0.103903639185,0.104582443277,0.104923301984,0.104562050021,0.104733936036,0.10477763587,0.105220460857,0.105572972853,0.105744858867,0.106004144551,0.105910918238,0.105762338801,0.105741945545,0.106114850797,0.105808951958,0.105896351626,0.105794385346,0.105986664617,0.10601579784,0.105873045048,0.106496496016,0.106950974292,0.106828614756,0.107201520008,0.107973550413,0.108279449253,0.10868440105,0.108891246932,0.109334071919,0.110301294916,0.110109015646,0.109963349532,0.110295468272,0.110770339804,0.110828606249,0.110988838975,0.110959705752,0.111489930407,0.111600636654,0.111265604592,0.111399617417,0.111874488949,0.112631952742,0.112250307523,0.112401800282,0.112844625269,0.113074777729,0.113453509625,0.113578782484,0.113642875574,0.113907987901,0.113832241522,0.113258317033,0.113820588233,0.114222626708,0.114330419632,0.114653798406,0.114074047272,0.11428963312,0.114604271927,0.115207329639,0.115519055123,0.116343525329,0.116506671377,0.116588244401,0.116725170548,0.116687297358,0.117433107863,0.117607907199,0.118009945674,0.118018685641,0.118135218533,0.118199311623,0.118371197637,0.118251751424,0.11846442395,0.118904335615,0.118860635781,0.119283067512,0.119082048274,0.119099528208,0.119387947114,0.119396687081,0.119667626053,0.12023863722,0.120564929316,0.120844608255,0.120835868288,0.120765948553,0.121240820085,0.121287433242,0.121497192446,0.121960410689,0.122342055908,0.122636301458,0.122688741259,0.122586774979,0.123119912957,0.12385115685,0.124192015557,0.124556180842,0.12501357244,0.125162151877,0.124931999416,0.1246552338,0.125007745796,0.125310731313,0.125310731313,0.124926172772,0.124993179184,0.12517963181,0.125124278687,0.125147585265,0.125363171114,0.125683636565,0.125692376532,0.125902135736,0.126248821088,0.126604246406,0.126575113183,0.126639206274,0.126898491957,0.126959671725,0.126994631592,0.127256830597,0.12761808256,0.127708395551,0.127775401963,0.128104607381,0.128413419543,0.128442552766,0.128145393893,0.128465859344,0.128620265425,0.128401766254,0.128355153098,0.128454206055,0.128349326453,0.128110434026,0.127932721367,0.128658138615,0.129249543038,0.129074743701,0.129033957189,0.129523395333,0.129398122474,0.129663234802,0.129634101579,0.129552528555,0.129817640883,0.129505915399,0.12922623646,0.129505915399,0.130257552548,0.130216766036,0.130411958629,0.130304165704,0.130385738728,0.130816910426,0.130939269962,0.130572191354,0.130883916838,0.130744077369,0.130231332647,0.130251725903,0.13003031341,0.129677801414,0.1295583552,0.129316549451,0.129211669848,0.129331116062,0.128867897819,0.12872805835,0.128614438781,0.128235706884,0.128157047182,0.128369719709,0.128751364928,0.128809631374,0.128413419543,0.128261926785,0.12796185459,0.127897761499,0.12768217565,0.127641389138,0.127262657242,0.126860618767,0.126452753647,0.126175988031,0.126141028163,0.125654503342,0.125517577195,0.125106798753,0.124739720146,0.124355161604,0.124174535623,0.123830763594,0.123437465086,0.122744094383,0.122537248501,0.122566381723,0.122578035012,0.122254656239,0.12224300295,0.122132296703,0.121893404276,0.121712778295,0.12133695972,0.121039800848,0.120334776855,0.120125017651,0.119495740038,0.119239367677,0.118948035449,0.118665443188,0.118528517041,0.118505210462,0.118315844514,0.11790215275,0.118065298798,0.11776231328,0.117922546006,0.117995379063,0.1176341271,0.117567120688,0.11732822826,0.117144688957,0.116850443406,0.116873749984,0.116815483539,0.116815483539,0.11663777088,0.116506671377,0.116591157723,0.116806743572,0.117229175303,0.117537987465,0.118184745011,0.118828589236,0.118980081994,0.119009215217,0.119422906981,0.119921085091,0.120145410907,0.119530699906,0.119175274587,0.118598436775,0.118050732186,0.117377754739,0.11686792334,0.11662611759,0.115580234891,0.114828597743,0.113980820958,0.113832241522,0.113430203047,0.112964071482,0.112480459983,0.112142514599,0.111571503431,0.110633413657,0.110304208239,0.109205885738,0.108468815201,0.10724230652,0.105593366109,0.104480476997,0.102889803031,0.101415661956,0.100020180583,0.0986450924664,0.0971126849461,0.0959677492893,0.0946305343619,0.0936108715632,0.0929524607275,0.0921600370668,0.0914928862642,0.09101510141,0.0905256632666,0.0905751897454,0.0900449650901,0.0899109522651,0.08987890572,0.0899517387771,0.0899255188765,0.0898701657532,0.0898206392744,0.0896137933924,0.0895322203685,0.0889670358458,0.0890136490023,0.0889058560779,0.0887543633192,0.0884251579013,0.0883348449106,0.0879531996917,0.0880435126824,0.0879794195922,0.0877143072645,0.0877026539754,0.0876997406531,0.0874346283255,0.0873326620456,0.0871578627087,0.0869247969261,0.0869918033386,0.0869451901821,0.0867004711104,0.0864411854273,0.0864237054936,0.0862751260573,0.085931354028,0.0857128548569,0.0857682079802,0.0856953749232,0.0854652224629,0.0852001101352,0.0848883846511,0.0851593236233,0.0846582321908,0.0846057923897,0.0845183927213,0.0843931198631,0.0842037539148,0.0838454152741,0.0836006962025,0.0832918840406,0.0833151906188,0.0827121329065,0.0830471649689,0.082924805433,0.0826888263282,0.0825781200815,0.0822401746968,0.0823159210761,0.0822285214077,0.0819342758572,0.0818818360561,0.0820886819381,0.0819022293121,0.0817216033306,0.0817886097431,0.0815613706051,0.0817478232311,0.0816167237285,0.0814710576144,0.0817915230654,0.0817216033306,0.0816167237285,0.0816487702736,0.0815409773491,0.0813807446236,0.0815846771834,0.080940832959,0.0805125745836,0.0805708410292,0.080093056175,0.0797201509229,0.079504565074,0.0790384335089,0.0787733211813,0.0786393083563,0.0781906567249,0.0785723019438,0.0785897818775,0.0781178236678,0.0782984496493,0.0781236503124,0.0777798782831,0.0779342843641,0.0777012185815,0.0776400388136,0.0776283855245,0.077220520405,0.0771972138268,0.0770573743572,0.0768650950866,0.0769175348877,0.0770602876795,0.0766786424606,0.0765737628584,0.0765446296356,0.0762125108955,0.0761717243835,0.0761018046487,0.0761192845824,0.0758133857428,0.0757026794961,0.0753326875663,0.0753326875663,0.0754171739125,0.0751054484283,0.0751666281962,0.0751957614191,0.0751258416843,0.0749947421816,0.0749277357691,0.0743101114454,0.0744936507491,0.0744382976258,0.0743450713127,0.0744091644029,0.074441210948,0.0743596379241,0.0741644453313,0.0741323987862,0.0739779927052,0.0746218369295,0.0745053040382,0.0743101114454,0.0739488594824,0.0737157936998,0.0734652479836,0.0734040682157,0.0732292688788,0.0729058901055,0.0726087312327,0.0722096060801,0.0719648870084,0.0718512674394,0.0720581133214,0.0721134664448,0.0719007939182,0.0716502482019,0.0713530893292,0.0717376478704,0.071836700828,0.072084333222,0.0722882657817,0.0723261389714,0.0718425274726,0.0716881213916,0.0720522866769,0.0718629207285,0.0720726799328,0.0717988276383,0.0718337875057,0.0715278886661,0.0709772707548,0.0710267972336,0.0712569496939,0.0710588437787,0.0706655452707,0.0708286913184,0.0706451520147,0.070607278825,0.0706305854033,0.0705927122136,0.0707267250386,0.0703946062984,0.0702809867294,0.0701702804827,0.0699838278567,0.0697769819747,0.0697507620741,0.0694302966231,0.069098177883,0.0689466851243,0.0691593576509,0.0689816449917,0.0690457380819,0.0692729772199,0.069552656159,0.0696196625714,0.0697886352638,0.0698177684866,0.0702518535066,0.0701965003833,0.0701644538382,0.0702780734072,0.0701790204496,0.069945954667,0.0695963559932,0.0693545502438,0.069418643334,0.0696662757279,0.069511869647,0.0695643094481,0.0694069900449,0.0695497428367,0.0695089563247,0.069532262903,0.0697857219415,0.0698906015437,0.0696721023725,0.0696721023725,0.0697507620741,0.0697711553301,0.0696429691497,0.0695963559932,0.0696109226046,0.0698498150317,0.0694361232677,0.0694419499122,0.0694332099454,0.0693079370873,0.0689932982808,0.0692059708074,0.0692613239308,0.068664092863,0.0685417333271,0.0682941009332,0.0682970142554,0.0681105616294,0.0681775680419,0.0682707943549,0.068530080038,0.0680989083403,0.0680348152501,0.0684601603032,0.0684252004358,0.0686320463179,0.068943771802,0.0688563721336,0.0686670061852,0.0685708665499,0.0684222871136,0.0685737798722,0.0687981056879,0.0689117252569,0.069150617684,0.0693137637318,0.0689932982808,0.068943771802,0.0691214844612,0.0689699917026,0.0689379451575,0.0691214844612,0.0686582662184,0.0683552807011,0.0683144941891,0.067734743055,0.0680639484729,0.0684077205022,0.0683815006016,0.0682387478098,0.0680319019278,0.0676997831876,0.0677230897659,0.0679008024251,0.0674201042486,0.0675045905948,0.0676386034197,0.0677493096664,0.0677638762778,0.0678978891028,0.0679969420604,0.0680377285723,0.0683086675446,0.0681251282408,0.0682562277435,0.0683640206679,0.067982375449,0.0676269501306,0.0675978169078,0.0675890769409,0.0675599437181,0.0675978169078,0.0675395504621,0.067641516742,0.0679474155816,0.068116388274,0.0681775680419,0.0683378007674,0.0682008746201,0.0679998553827,0.0680464685392,0.0681659147528,0.0680930816957,0.0683028409,0.0682941009332,0.0681659147528,0.0682125279093,0.0680726884397,0.0683261474783,0.0687689724651,0.0685825198391,0.068602913095,0.0683611073456,0.0681047349848,0.0678949757805,0.0676852165762,0.0675599437181,0.0675308104953,0.067414277604,0.0672190850111,0.0676968698654,0.0674055376372,0.0675541170735,0.0675308104953,0.0676852165762,0.0676968698654,0.067827969368,0.0678949757805,0.0676065568746,0.067527897173,0.066980192584,0.0670355457074,0.0670821588639,0.0672016050774,0.0673093980019,0.0673297912578,0.0672394782671,0.0672627848454,0.0674375841823,0.0675249838507,0.0678920624583,0.0679153690365,0.0681047349848,0.0682707943549,0.0681484348191,0.067982375449,0.0681775680419,0.0682212678761,0.0680202486387,0.0682649677103,0.0679561555485,0.0677114364768,0.0677493096664,0.0674404975046,0.067341444547,0.0678396226572,0.0679241090034,0.067941588937,0.0679270223256,0.0677405696996,0.067941588937,0.0681775680419,0.0680668617952,0.0685184267489,0.0686670061852,0.0684980334929,0.0683785872793,0.0682533144212,0.068509686782,0.0687281859532,0.0683028409,0.0682853609663,0.0682707943549,0.0677260030882,0.0674521507937,0.0675453771067,0.0674608907605,0.0675133305616,0.0674201042486,0.0671812118215,0.0676473433866,0.0673647511252,0.0673734910921,0.0675541170735,0.0675745103295,0.0669277527829,0.0668141332139,0.0666451605216,0.066680120389,0.066773346702,0.0667820866688,0.0670996387976,0.0669714526172,0.0669219261384,0.0674841973388,0.0676648233203,0.0677056098322,0.0678017494675,0.0678629292354,0.0676881298985,0.0674259308931,0.067527897173,0.0676269501306,0.0674958506279,0.067187038466,0.0678046627898,0.0678978891028,0.0679299356479,0.0682358344875,0.0684048071799,0.0686466129293,0.0686844861189,0.0689670783803,0.0688855053564,0.068623306351,0.0683873272462,0.0683203208337,0.0683378007674,0.0679940287381,0.0677784428893,0.0678774958468,0.0678833224914,0.0675861636186,0.0680406418946,0.0680377285723,0.0679969420604,0.0681746547196,0.0683144941891,0.0683115808668,0.0685446466494,0.0681426081745,0.0681571747859,0.0680231619609,0.067941588937,0.0682533144212,0.0683203208337,0.0679707221599,0.0677522229887,0.0678367093349,0.0676531700311,0.0679037157474,0.0677638762778,0.0676881298985,0.0675715970072,0.0675191572062,0.0675949035855,0.0675512037513,0.0675016772725,0.0672773514568,0.0672219983334,0.0670442856742,0.0669918458731,0.0671899517883,0.0671433386318,0.0668578330482,0.0665344542749,0.0665839807537,0.0666917736781,0.066866573015,0.0669889325508,0.0670763322193,0.0669364927498,0.067073418897,0.0670238924182,0.0672598715231,0.0673035713573,0.0674783706942,0.0673967976703,0.0673560111584,0.0671753851769,0.0674667174051,0.0676531700311,0.0676793899317,0.0677871828561,0.0676269501306,0.0676240368083,0.0677988361452,0.0679678088376,0.0681746547196,0.0683348874451,0.0681367815299,0.0680493818615,0.0676997831876,0.0675890769409,0.0677289164105,0.0680348152501,0.0678134027566,0.0677260030882,0.0674667174051,0.0675162438839,0.0675541170735,0.0675657703627,0.0678046627898,0.0679008024251,0.0677697029224,0.0673793177366,0.0670559389633,0.0670588522856,0.0671608185655,0.0669452327166,0.0668607463704,0.0668723996596,0.0667558667683,0.0667966532802,0.0667179935786,0.0667995666025,0.0672744381345,0.0671258586981,0.0670908988307,0.0671054654421,0.067227824978,0.0669306661052,0.0669539726835,0.0666335072325,0.0667383868346,0.0669685392949,0.0667879133134,0.06716664521,0.0673530978361,0.0671724718546,0.066980192584,0.0669860192286,0.0668811396264,0.0670588522856,0.0669364927498,0.066618940621,0.0666917736781,0.0660887159657,0.0658119503489,0.0658760434392,0.0659605297853,0.0662635153026,0.0661732023119,0.0663800481939,0.0666539004884,0.0668257865031,0.0669510593612,0.0670705055747,0.0673239646133,0.0675599437181,0.0675016772725,0.0675803369741,0.0679299356479,0.0679299356479,0.0676910432208,0.0678541892686,0.0677405696996,0.0678017494675,0.0675453771067,0.0674055376372,0.0671054654421,0.0670238924182,0.0665868940759,0.0662314687575,0.0661644623451,0.0659838363636,0.0657274640028,0.065677937524,0.0655759712441,0.0657216373582,0.0660566694206,0.0659634431076,0.0662926485255,0.0667820866688,0.0667354735123,0.0667179935786,0.0668957062378,0.0669831059063,0.0669160994938,0.0668374397922,0.0667820866688,0.0665956340428,0.0663421750043,0.0658090370267,0.06586439015,0.0661761156342,0.0659925763304,0.065957616463,0.0660858026434,0.0660275361978,0.0658498235386,0.0660333628424,0.0661498957337,0.0662722552695,0.0664587078955,0.065791557093,0.0659110033065,0.0660275361978,0.0658964366951,0.065978009719,0.0661819422788,0.0662751685918,0.0662547753358,0.0663276083929,0.0661353291222,0.0663683949048,0.0663625682602,0.0663683949048,0.0664791011515,0.0664033547722,0.0664791011515,0.0663450883265,0.0596939735569,0.0530399454649,0.0464966236197,0.039906688618,0.0)
m <- c(0.039478525685,0.0460357967763,0.0526751803858,0.0592207211174,0.0657515988994,0.0654378117765,0.0657750596188,0.066121105231,0.0661005771014,0.0657809247987,0.0657750596188,0.0656929471007,0.0657486663094,0.0657721270289,0.0658395765974,0.065898228396,0.0658718350866,0.065678284151,0.0658073181081,0.0662208132887,0.066250139188,0.0662911954471,0.0660536556625,0.0663791731451,0.0664143642243,0.0665873870304,0.0663645101955,0.0664612856633,0.0664554204834,0.0662677347277,0.0662472065981,0.0662823976773,0.0665228700519,0.0661445659504,0.0662677347277,0.0662208132887,0.0665404655915,0.0667164209875,0.0667310839371,0.0667252187573,0.0668659830741,0.0669422304124,0.0667428142969,0.0670214103406,0.0668747808439,0.0666988254479,0.0665492633613,0.0664671508431,0.0665873870304,0.0666782973183,0.0665903196203,0.0667926683258,0.0670976576788,0.0671680398372,0.06704780365,0.0675786024279,0.0676489845863,0.0675961979675,0.0676049957373,0.067795614083,0.067751625234,0.0676049957373,0.067176837607,0.0668894437936,0.0670331407003,0.0668425223546,0.066959825952,0.0672090960963,0.0671475117077,0.0669275674627,0.0671093880386,0.0672501523554,0.0677281645145,0.0679158502703,0.0681563226448,0.068015558328,0.0677868163132,0.0676812430756,0.0676812430756,0.0678278725723,0.068059547177,0.0677721533635,0.0676167260971,0.0675404787588,0.067619658687,0.067707636385,0.0678571984716,0.0680536819972,0.06792758063,0.068015558328,0.0681152663858,0.0684114579691,0.0684349186885,0.0686401999839,0.0684407838684,0.068326412861,0.0683762668898,0.0678044118528,0.0679246480401,0.0678161422125,0.0672853434346,0.0672618827151,0.0672824108446,0.0671651072473,0.0671504442976,0.0674173099816,0.0672882760245,0.0676959060253,0.0677193667447,0.0675991305575,0.0677809511333,0.0679539739394,0.0680566145871,0.0681973789039,0.0683645365301,0.0683176150912,0.0686695258832,0.0685140986167,0.0686138066745,0.0687780317107,0.0690712907041,0.0687252450919,0.0687604361711,0.0687633687611,0.0688865375383,0.0688161553799,0.0684965030771,0.068634334804,0.0684994356671,0.0685932785449,0.0684466490483,0.0687721665309,0.0686167392644,0.0685962111349,0.0684173231489,0.0685170312067,0.0685199637966,0.068942256747,0.069074223294,0.0690009085457,0.0686519303436,0.0683645365301,0.0683440084006,0.0681680530046,0.0682120418536,0.0681797833643,0.0682648284724,0.0677222993347,0.0678542658817,0.0675961979675,0.06792758063,0.067971569479,0.0678220073924,0.0680859404864,0.0683352106308,0.0683352106308,0.0682648284724,0.0682882891918,0.0681123337958,0.068323480271,0.0678132096226,0.0679481087596,0.0681240641556,0.0679510413495,0.0674818269601,0.067220826456,0.0674231751615,0.0671299161681,0.0672442871755,0.0672589501252,0.0677105689749,0.0676665801259,0.0675961979675,0.0675580742984,0.0674788943702,0.0675991305575,0.0673909166722,0.068191513724,0.0678014792629,0.0678513332917,0.0675668720682,0.0676255238669,0.0679011873206,0.0682882891918,0.0683000195516,0.0683498735804,0.0682325699831,0.0678894569609,0.0681357945153,0.0680566145871,0.0684965030771,0.0682765588321,0.068015558328,0.067663647536,0.0677809511333,0.0676871082555,0.0678953221408,0.0677428274642,0.0677574904139,0.0679099850904,0.067707636385,0.0676783104857,0.0678806591911,0.0679422435797,0.0677193667447,0.0678308051622,0.0673205345138,0.0674642314205,0.0674788943702,0.0672589501252,0.0671680398372,0.0675228832192,0.0674700966004,0.0674143773917,0.06748769214,0.0673938492621,0.0678366703421,0.0674407707011,0.0673762537225,0.0671709724272,0.0672589501252,0.0673263996936,0.0672442871755,0.0672589501252,0.0672501523554,0.0674231751615,0.0674173099816,0.0675903327877,0.0677604230038,0.067795614083,0.0676724453058,0.0675346135789,0.0676049957373,0.0673000063842,0.0676871082555,0.0675463439387,0.0677310971045,0.0677222993347,0.067223759046,0.0675463439387,0.0677369622843,0.0674261077514,0.0672530849453,0.0673967818521,0.0671123206285,0.0671592420674,0.0669334326426,0.0671387139379,0.0673586581829,0.0674642314205,0.0673146693339,0.0676255238669,0.0679246480401,0.0678337377521,0.0682413677529,0.068059547177,0.0680507494072,0.0677604230038,0.0677135015649,0.0676137935071,0.0675580742984,0.0676548497662,0.0674700966004,0.0676489845863,0.0674994224997,0.0677428274642,0.0678073444427,0.0680830078965,0.0683088173214,0.0680566145871,0.0681269967455,0.0678689288314,0.0679686368891,0.0681445922851,0.0679774346589,0.0678308051622,0.0677574904139,0.0677164341548,0.0671152532184,0.0674525010608,0.0674935573199,0.0675786024279,0.0675580742984,0.0676343216367,0.0678454681119,0.0677838837233,0.0675463439387,0.0673322648735,0.0678806591911,0.0677340296944,0.0677105689749,0.0675404787588,0.0674671640105,0.0671475117077,0.066956893362,0.0670859273191,0.0672296242258,0.0674026470319,0.0674114448017,0.0672941412044,0.067311736744,0.0671504442976,0.066956893362,0.0668659830741,0.0666636343687,0.0666782973183,0.0666137803398,0.0665668589009,0.0663146561666,0.0664026338646,0.0663117235767,0.0667692076063,0.0669070393332,0.066736949117,0.0668630504842,0.0668014660956,0.0673293322836,0.0673205345138,0.0674349055212,0.0669891518513,0.0672296242258,0.0672090960963,0.0672090960963,0.0676577823561,0.0676783104857,0.0678044118528,0.067531680989,0.0675140854494,0.0675610068883,0.0678747940112,0.0676401868165,0.0674261077514,0.0671475117077,0.0669920844412,0.0670829947292,0.0670419384701,0.0671123206285,0.0670976576788,0.0671064554486,0.0672736130748,0.0671504442976,0.0672853434346,0.0674788943702,0.0672325568158,0.0672149612762,0.0672530849453,0.0670976576788,0.0673615907729,0.0675287483991,0.0674671640105,0.0676900408454,0.0677457600541,0.0679187828602,0.0682032440838,0.068279491422,0.0685082334369,0.0686548629335,0.068546357106,0.0684378512785,0.0682237722133,0.0683146825012,0.0679510413495,0.0679393109898,0.0680800753066,0.0676988386152,0.0673176019238,0.0672413545856,0.0673967818521,0.0674114448017,0.0676871082555,0.0676577823561,0.0680771427166,0.0682560307026,0.0680830078965,0.0682032440838,0.0682325699831,0.0684231883288,0.0683352106308,0.0682061766737,0.0682091092636,0.0683528061704,0.0680947382562,0.0678454681119,0.0677838837233,0.0680272886878,0.0679481087596,0.0677662881837,0.0675815350179,0.0678953221408,0.0676372542266,0.0677135015649,0.0678484007018,0.0681768507744,0.0683058847314,0.0685082334369,0.0687750991208,0.0686988517825,0.0689187960275,0.0687692339409,0.0688953353081,0.0686753910631,0.0686460651637,0.0684789075375,0.0689217286175,0.0690009085457,0.0689745152363,0.0690067737256,0.0688601442289,0.0689510545168,0.0689950433658,0.068854279049,0.0689070656678,0.0690243692652,0.0689217286175,0.0686577955235,0.0689481219269,0.0692179202008,0.0692883023592,0.0697692471083,0.0699305395546,0.0704114843037,0.0705405182608,0.0705023945916,0.0702384614976,0.0705082597715,0.070399753944,0.070484799052,0.0706754173977,0.0703000458862,0.0704232146634,0.0702883155265,0.0706079678293,0.0709774741609,0.071370441212,0.071587452867,0.0715551943778,0.071326452363,0.071238474665,0.0713997671113,0.0714877448093,0.071854318551,0.0713587108522,0.0713205871831,0.0712326094851,0.0709804067508,0.0712179465354,0.071590385457,0.0720859931557,0.0719481614289,0.0720889257457,0.0721035886953,0.0724789602068,0.0723206003504,0.0723733869692,0.0725082861062,0.0726138593438,0.0727487584807,0.0725816008545,0.0726813089122,0.0729540397761,0.0729745679056,0.0731182648123,0.0731593210714,0.073088938913,0.073704782799,0.073572816252,0.0734584452446,0.0736373332306,0.0736431984104,0.0735141644534,0.0736080073312,0.0737986256769,0.0740684239508,0.074367548124,0.0738866033749,0.0743763458938,0.0746930656066,0.0748279647436,0.0754174153202,0.0753587635215,0.0751388192765,0.0752678532336,0.0751476170463,0.0753235724423,0.0755200559679,0.075558179637,0.0754350108598,0.0754438086296,0.0752414599242,0.0756432247451,0.0760743154653,0.0759834051774,0.0765054061856,0.0765259343151,0.076968755395,0.0767341482004,0.0770508679132,0.0771564411508,0.0772033625897,0.0772062951797,0.0773177335971,0.0778133412959,0.0777136332382,0.0778338694254,0.0777458917274,0.077986364102,0.0783177467645,0.0785288932397,0.0787195115854,0.0788104218733,0.078646196837,0.0784291851819,0.0784526459014,0.0788426803626,0.0789746469096,0.0792415125935,0.0791447371257,0.079042096478,0.0792239170539,0.0793881420902,0.0796022211553,0.079792839501,0.0799658623071,0.0798309631702,0.0797107269829,0.0802620538904,0.0807166053301,0.0808280437476,0.0810421228127,0.0811066397912,0.081470280943,0.0816227756195,0.0817987310155,0.0816198430296,0.0821037203686,0.0818749783538,0.0815289327417,0.0818456524545,0.0819336301525,0.0820949225988,0.082089057419,0.0822151587861,0.0826081258372,0.0830538795071,0.0830480143272,0.0832093067736,0.0835700153354,0.0838222180697,0.0839659149764,0.0841477355523,0.0841770614516,0.0841448029624,0.0840392297248,0.0842151851208,0.0844116686463,0.0845377700135,0.0844204664161,0.0843530168476,0.084602286992,0.0848632874961,0.0853383670653,0.0858779636131,0.0859835368507,0.0860597841889,0.085968873901,0.0861506944769,0.0866052459166,0.086983550018,0.0870216736871,0.0872533482919,0.0871360446945,0.0871184491549,0.0873120000906,0.0875905961342,0.0877460234007,0.0877313604511,0.087646315343,0.0876932367819,0.0879366417464,0.0880451475739,0.0882738895888,0.0885495530425,0.0889835763527,0.0892475094467,0.0893530826843,0.0893618804541,0.0896346113179,0.0897137912461,0.0899132073616,0.0899777243401,0.0900041176495,0.0901800730455,0.090071567218,0.0900070502395,0.0905055905282,0.0907841865718,0.0907050066436,0.091042254486,0.0918076604586,0.092543740532,0.0936317313973,0.0945848231257,0.0959015560058,0.097127378598,0.0985790106151,0.100535048101,0.102672906162,0.104628943648,0.106065912715,0.107259476818,0.108370928403,0.109332817901,0.110230190421,0.111033720063,0.111860710424,0.111910564453,0.112142239058,0.112356318123,0.112385644022,0.112731689634,0.113127589275,0.113828478269,0.114353411868,0.115086559351,0.115371020574,0.115960471151,0.116664292735,0.117107113815,0.117960497486,0.11864672353,0.119256702236,0.119303623675,0.11953529828,0.119676062597,0.119591017489,0.120060231878,0.119705388496,0.119071949071,0.118353464537,0.118054340364,0.117840261298,0.117825598349,0.117552867485,0.117306529931,0.117180428563,0.116705348994,0.116582180217,0.117356383959,0.117898913097,0.1177522836,0.118174576551,0.118130587702,0.118291880148,0.118368127486,0.118602734681,0.119022095042,0.119843220223,0.119761107705,0.119922400151,0.120593963246,0.120244985044,0.120778716412,0.121139424974,0.121464942456,0.121866707277,0.12218929217,0.121989876054,0.122280202458,0.122506011883,0.12262918066,0.122869653034,0.123274350445,0.12351775541,0.123872598792,0.123928318,0.124291959152,0.124303689512,0.124852083829,0.125074960664,0.125476725485,0.125813973328,0.125388747787,0.125318365629,0.125790512608,0.126127760451,0.126365300235,0.126969413761,0.127151234337,0.127635111676,0.127620448727,0.128127786785,0.128438641318,0.129186451751,0.129336013838,0.129432789306,0.129538362543,0.12969378981,0.129438654486,0.129080878514,0.129338946428,0.12925096873,0.129344811608,0.129148328082,0.129171788802,0.129597014342,0.129597014342,0.129761239378,0.129902003695,0.130265644847,0.130248049307,0.130588229739,0.130946005711,0.130655679308,0.1305706342,0.130805241395,0.130819904344,0.130872690963,0.130831634704,0.130755387366,0.131036915999,0.130649814128,0.130338959595,0.130532510531,0.130394678804,0.130080891681,0.12966153132,0.129397598226,0.129728980889,0.129503171464,0.1292597665,0.129180586571,0.129494373694,0.129016361535,0.128954777146,0.128893192758,0.12922750801,0.12921871024,0.129080878514,0.129160058442,0.129148328082,0.129004631175,0.128517821246,0.129206979881,0.129347744198,0.129209912471,0.129086743693,0.128711372182,0.12834186585,0.128077932756,0.127808134482,0.127813999662,0.127582325058,0.127385841532,0.126843312394,0.126333041746,0.12616001894,0.126291985487,0.126309581026,0.12613362563,0.126072041242,0.125649748291,0.125535377284,0.125303702679,0.125347691528,0.125567635773,0.12526557901,0.12529197232,0.125036836995,0.125013376276,0.124887274909,0.125072028075,0.12528903973,0.124755308362,0.124300756922,0.124289026562,0.124268498433,0.123793418863,0.123720104115,0.123429777712,0.122942967783,0.122989889222,0.12262331548,0.122315393537,0.122060258213,0.12175233627,0.121365234399,0.121045582096,0.12086082893,0.120743525333,0.120737660153,0.120391614541,0.120218591735,0.120359356051,0.120787514182,0.120593963246,0.12041214267,0.120529446267,0.120022108209,0.119810961734,0.120066097058,0.119667264827,0.119324151805,0.119145263819,0.118734701228,0.118878398135,0.118385723026,0.118077801083,0.118013284105,0.117696564392,0.116945821369,0.116664292735,0.116420887771,0.116247864965,0.116180415396,0.115318233956,0.115007379423,0.11467892935,0.114373939997,0.114294760069,0.113995635896,0.114092411363,0.114001501075,0.113417915679,0.113221432153,0.113247825463,0.113447241578,0.113599736255,0.113508825967,0.113206769204,0.113145184815,0.113156915175,0.113098263376,0.113156915175,0.112693565965,0.112561599418,0.111960418482,0.111538125531,0.111203810279,0.110872427616,0.11116275402,0.110670078911,0.11029177481,0.110365089558,0.110332831069,0.109863616679,0.110385617687,0.110174471212,0.10984308855,0.109866549269,0.109045424088,0.108652457037,0.108189107827,0.107837197035,0.107532207682,0.107705230488,0.107106982142,0.106922228976,0.107021937034,0.106901700846,0.106579115954,0.106341576169,0.106643632932,0.106502868615,0.106189081493,0.105998463147,0.105957406888,0.105722799693,0.105714001923,0.105737462643,0.105769721132,0.105734530053,0.105277046023,0.104913404872,0.105024843289,0.104408999403,0.104423662353,0.10409227969,0.103933919834,0.103309278178,0.103092266523,0.102690501702,0.102945637026,0.103027749544,0.102828333429,0.102951502206,0.102221287313,0.102136242204,0.101763803283,0.101699286304,0.101250600045,0.101315117023,0.100684610187,0.100276980187,0.100057035942,0.0999719908335,0.10011862033,0.100103957381,0.0999719908335,0.0995526304731,0.0993620121274,0.0988400111192,0.0983062797513,0.0971655022672,0.0958458367971,0.0939044622611,0.0922446163587,0.0904586690892,0.0887401713882,0.0873647867094,0.0861125708078,0.0849571303739,0.0840920163436,0.083455644328,0.0828251374923,0.0828867218809,0.0828955196507,0.0826814405855,0.0829805647588,0.082836867852,0.0828837892909,0.0828163397225,0.0824673615204,0.0822034284264,0.0823764512325,0.0822914061244,0.0821535743975,0.0823676534627,0.0816755622383,0.0813559099356,0.0807987178482,0.0803822900777,0.0803148405092,0.0803764248978,0.0799042779185,0.0795699626661,0.0794086702197,0.0790362312982,0.0790684897874,0.0792004563345,0.0795582323063,0.0794467938889,0.0789922424492,0.0789717143196,0.079086085327,0.0785992753981,0.0785054325202,0.0786637923766,0.0785288932397,0.0779247797134,0.0774614305039,0.0776139251804,0.0775787341012,0.0771124523018,0.076795732589,0.0770332723736,0.0768514517977,0.0765933838836,0.0765611253943,0.0769423620856,0.0768250584883,0.0763646418687,0.0762913271204,0.07630892266,0.0763323833795,0.0758836971196,0.0758015846015,0.0753704938813,0.0751270889168,0.0748015714342,0.0748748861825,0.0749657964705,0.0751270889168,0.0750918978376,0.0750039201396,0.0753411679819,0.0750889652477,0.0751036281973,0.0748690210027,0.0747135937362,0.0742971659656,0.0740420306414,0.0736813220796,0.0735874792017,0.0733323438775,0.0730654781935,0.0729921634452,0.0730830737331,0.0731036018627,0.073044950064,0.0730332197043,0.0729687027257,0.0731123996325,0.0729100509271,0.0727722192002,0.072693039272,0.0727194325814,0.0725991963941,0.0723323307102,0.0722355552424,0.0722619485518,0.0722824766813,0.0717985993423,0.0716138461764,0.0715581269677,0.071414430061,0.0711680925066,0.0710654518589,0.0712267443052,0.071106508118,0.0710449237293,0.0708660357434,0.0709510808515,0.0708953616427,0.0711006429381,0.0711768902764,0.070883631283,0.070971608981,0.0708220468944,0.0708191143045,0.0704584057426,0.0705874396997,0.0707809906353,0.0707575299159,0.0704906642319,0.0702501918574,0.070443742793,0.0699715958137,0.0702443266775,0.0700742364614,0.0703762932245,0.0698894832955,0.0697311234391,0.0699158766049,0.0698425618566,0.0698660225761,0.0697839100579,0.0696519435109,0.0691240773229,0.0692589764598,0.06925311128,0.0694349318558,0.0691534032222,0.0690360996249,0.0688513464591,0.0688308183295,0.0689686500564,0.0692267179706,0.0691915268914,0.0690800884739,0.0685434245161,0.068678323653,0.0689012004879,0.068898267898,0.0691592684021,0.0689393241571,0.0689217286175,0.0685991437248,0.0686284696241,0.0687369754517,0.0690976840135,0.0683850646596,0.0680478168173,0.0674964899098,0.0674525010608,0.0673733211326,0.0669305000526,0.067311736744,0.0674173099816,0.0673176019238,0.0670947250889,0.0675023550897,0.0677369622843,0.0681123337958,0.0677457600541,0.0678102770327,0.0675287483991,0.0670859273191,0.0669363652325,0.0667956009157,0.0666225781096,0.0666284432895,0.0665433981814,0.0663586450156,0.0663586450156,0.0663703753753,0.0668102638654,0.0671827027869,0.0672178938661,0.0673586581829,0.0673645233628,0.0672472197654,0.0671093880386,0.0672061635064,0.0672912086144,0.0671123206285,0.0667956009157,0.0666753647284,0.0667017580378,0.0663058583968,0.0663879709149,0.0665023419223,0.0665346004116,0.0664143642243,0.0665404655915,0.0666196455197,0.0668395897647,0.0665258026418,0.0663381168861,0.0664143642243,0.066560993721,0.0666812299083,0.0664436901237,0.0667193535774,0.0663645101955,0.0663117235767,0.0663205213465,0.0665756566707,0.0664378249438,0.0665463307713,0.0663645101955,0.0661973525692,0.0661123074612,0.065854239547,0.0660888467417,0.0661093748712,0.0661885547994,0.0661357681806,0.066297060627,0.0663322517062,0.0663469146559,0.0664202294042,0.0665668589009,0.0666313758794,0.0665023419223,0.0665052745123,0.0663645101955,0.0662032177491,0.0661562963102,0.06572520559,0.0657486663094,0.0653879577476,0.065458339906,0.0654407443664,0.0655785760933,0.0658454417772,0.0657838573886,0.065898228396,0.0659246217054,0.0663645101955,0.0663762405552,0.0664612856633,0.0664055664545,0.0663469146559,0.0662560043679,0.0661680266699,0.0661914873894,0.0661035096914,0.066209082929,0.066206150339,0.0662735999075,0.0661387007706,0.0660389927128,0.0661944199793,0.0658161158779,0.0655727109134,0.0654231488268,0.0654378117765,0.0654554073161,0.0653820925677,0.0649861929267,0.0650037884663,0.0653644970281,0.0651856090422,0.0656313627121,0.0658278462376,0.0660477904826,0.0660155319934,0.0659920712739,0.06616509408,0.0664671508431,0.0666900276781,0.066473016023,0.0667105558076,0.0665873870304,0.0666753647284,0.0665785892606,0.0666636343687,0.0665991173901,0.0665082071022,0.0665346004116,0.0666079151599,0.0665199374619,0.0663117235767,0.0661445659504,0.0659774083242,0.0660272623531,0.0658835654464,0.0657809247987,0.0654759354456,0.0656841493309,0.0656460256617,0.0659158239356,0.0657955877484,0.0659979364538,0.0658278462376,0.0656841493309,0.0592148559375,0.0526986411053,0.0463407861294,0.0394843908649,0.0)
ycorr <- c(7.00213578224e-05,6.98531834788e-05,6.9349757717e-05,6.85063961729e-05,6.73153461169e-05,6.57723031499e-05,6.38706910477e-05,6.19528603618e-05,6.00200585333e-05,5.80734073148e-05,5.61024621146e-05,5.41056468171e-05,5.20760223081e-05,5.00107062553e-05,4.79107424446e-05,4.57856668933e-05,4.36478460766e-05,4.15058550612e-05,3.93708732184e-05,3.72341172407e-05,3.51079238422e-05,3.30048348957e-05,3.09303532902e-05,2.88910546218e-05,2.68876404841e-05,2.49192083229e-05,2.29775939794e-05,2.10570182109e-05,1.91524009026e-05,1.72647805051e-05,1.53979551784e-05,1.35307681418e-05,1.1651435792e-05,9.75816954328e-06,7.84604798896e-06,5.91752152796e-06,3.97620092146e-06,2.02495109645e-06,6.22382000231e-08,-1.91282387652e-06,-3.9128132575e-06,-5.93082529217e-06,-7.95518009605e-06,-9.98784738187e-06,-1.2024207488e-05,-1.40664246659e-05,-1.6117485455e-05,-1.81811053481e-05,-2.02613045801e-05,-2.23578823449e-05,-2.4464003115e-05,-2.65742893552e-05,-2.86943068913e-05,-3.08234041257e-05,-3.29574380847e-05,-3.51066882948e-05,-3.72656365825e-05,-3.94348670943e-05,-4.16084896905e-05,-4.37892190137e-05,-4.59752888463e-05,-4.81788667083e-05,-5.0396293816e-05,-5.26298954445e-05,-5.48818945929e-05,-5.71442027568e-05,-5.94158882788e-05,-6.16997154305e-05,-6.39965107186e-05,-6.63078983727e-05,-6.8635050107e-05,-7.09760551221e-05,-7.33282572024e-05,-7.56889405781e-05,-7.80588287229e-05,-8.04365368632e-05,-8.28339012446e-05,-8.52472121921e-05,-8.7671537538e-05,-9.0105309727e-05,-9.25484079326e-05,-9.49882894763e-05,-9.74215145017e-05,-9.98491812773e-05,-0.000102275171289,-0.00010469888199,-0.000107118506025,-0.000109532991267,-0.000111947860568,-0.000114362010278,-0.000116777167778,-0.00011919490498,-0.000121626741284,-0.000124074913732,-0.00012653619405,-0.000129013270034,-0.000131497593301,-0.000133987232036,-0.000136482271903,-0.000138976452301,-0.000141469173636,-0.000143956786194,-0.000146438567368,-0.000148912370621,-0.000151375227589,-0.000153819460294,-0.000156244354243,-0.000158656789043,-0.000161060111717,-0.000163446915797,-0.000165820129825,-0.000168187768913,-0.000170545839588,-0.000172894894928,-0.000175230714893,-0.000177563075425,-0.000179892552037,-0.000182214928694,-0.000184526174839,-0.000186832398235,-0.000189137765377,-0.000191442480769,-0.000193742037218,-0.000196040456885,-0.000198336874385,-0.00020062760373,-0.000202916205636,-0.000205208347278,-0.000207503292901,-0.000209802662675,-0.00021209552438,-0.00021437858888,-0.000216651954727,-0.000218913100802,-0.000221164907051,-0.000223407560984,-0.000225647285289,-0.000227870816412,-0.000230075677457,-0.00023226619483,-0.000234446533934,-0.000236621648187,-0.000238792520225,-0.000240960540195,-0.000243122140057,-0.000245276082913,-0.00024742220707,-0.000249563452419,-0.000251707244696,-0.000253851580574,-0.000255998331961,-0.000258142002482,-0.000260281915367,-0.000262416610952,-0.000264549806679,-0.000266689844539,-0.000268828441906,-0.000270960850757,-0.000273084109466,-0.000275194607494,-0.000277288878979,-0.00027936387706,-0.00028142302643,-0.000283464592417,-0.000285494462587,-0.000287502978623,-0.000289483928063,-0.000291444579053,-0.00029338995423,-0.000295315979776,-0.000297224906172,-0.000299125747191,-0.000301017039966,-0.000302899135809,-0.000304768930675,-0.00030662307525,-0.000308470206081,-0.000310317081691,-0.000312160686057,-0.000314002187692,-0.000315844615905,-0.000317680819058,-0.000319506730163,-0.000321326423369,-0.000323136117115,-0.000324940004943,-0.000326739532441,-0.000328527597575,-0.000330305330874,-0.000332069431719,-0.000333818999338,-0.000335553619271,-0.000337279133583,-0.000338992900075,-0.00034069383172,-0.000342385276848,-0.000344065418318,-0.000345734453199,-0.000347385617847,-0.000349015765635,-0.000350631806871,-0.000352237915823,-0.000353836208078,-0.000355425506809,-0.000357012482734,-0.000358591082507,-0.000360160308073,-0.000361725652139,-0.000363287026005,-0.000364856994184,-0.000366434094999,-0.000368015168489,-0.000369592827356,-0.000371164835099,-0.000372732925609,-0.000374298455781,-0.000375862474873,-0.000377418943331,-0.000378966678584,-0.000380501710803,-0.000382020574184,-0.000383519709169,-0.000385001673775,-0.0003864751342,-0.000387936564841,-0.00038938267809,-0.000390812511516,-0.000392230266361,-0.000393640181503,-0.000395045060204,-0.000396441729631,-0.000397828032771,-0.00039920841387,-0.000400574677662,-0.000401917895336,-0.000403240285198,-0.000404547253266,-0.000405835490401,-0.000407105758934,-0.000408356402494,-0.0004095860538,-0.000410803612131,-0.000412012103711,-0.00041320732376,-0.000414399940017,-0.000415595940645,-0.000416795100253,-0.000417993250449,-0.000419192550748,-0.000420390321831,-0.000421588138508,-0.000422783598688,-0.000423973082469,-0.000425158289372,-0.000426341670763,-0.000427520193307,-0.000428688714721,-0.000429850339226,-0.000430997661569,-0.000432133303474,-0.000433253212203,-0.000434361971016,-0.000435455724498,-0.000436536395544,-0.000437599459449,-0.000438650605708,-0.000439690210592,-0.000440720615812,-0.000441746160879,-0.000442767692366,-0.000443786707986,-0.000444803525003,-0.000445817416267,-0.00044682749999,-0.000447835315348,-0.000448836276126,-0.000449825407271,-0.00045080150886,-0.000451765727796,-0.000452716861419,-0.000453661673408,-0.000454594270444,-0.000455510774592,-0.000456406943361,-0.000457283313509,-0.000458131768341,-0.000458946021093,-0.000459717342991,-0.000460432475064,-0.000461080323177,-0.000461646533336,-0.000462124656598,-0.000462513640686,-0.000462819635065,-0.000463044137213,-0.000463192061658,-0.000463272116499,-0.000463297519541,-0.000463284552142,-0.000463251840859,-0.000463210963347,-0.000463178466449,-0.000463157865799,-0.000463153793933,-0.000463163634272,-0.000463185581678,-0.000463218018786,-0.000463260959279,-0.000463311827982,-0.000463361354422,-0.000463407222257,-0.000463438926774,-0.000463453541298,-0.000463452525783,-0.000463434245355,-0.000463405205127,-0.000463371604018,-0.0004633296199,-0.000463275424867,-0.000463212707735,-0.000463140039481,-0.000463061247173,-0.00046298886597,-0.000462922372352,-0.00046285876409,-0.000462791932806,-0.000462720240832,-0.000462643387207,-0.000462559568785,-0.000462470806754,-0.000462379826356,-0.000462284650353,-0.000462170679878,-0.000462031962498,-0.000461870497588,-0.000461689651532,-0.000461492012841,-0.000461275496606,-0.000461043087417,-0.000460798036062,-0.000460537572083,-0.000460260098841,-0.00045997708558,-0.000459694093594,-0.000459412264322,-0.000459130567571,-0.000458850423653,-0.00045857477812,-0.000458299548882,-0.000458021547063,-0.000457738741093,-0.000457453463316,-0.000457162615332,-0.000456864328991,-0.000456562251142,-0.000456258026068,-0.000455946934993,-0.000455627920762,-0.000455302514936,-0.000454969966621,-0.000454628456828,-0.00045427962176,-0.00045392048289,-0.000453547938796,-0.000453156965203,-0.000452747475788,-0.000452319750248,-0.000451875135725,-0.00045141485941,-0.0004509389218,-0.000450456880882,-0.000449967899373,-0.000449476585395,-0.000448983983428,-0.000448492884329,-0.000448005575851,-0.000447519375306,-0.000447031067647,-0.000446541092809,-0.000446050804482,-0.000445556266913,-0.000445050269039,-0.000444531426125,-0.000443999578466,-0.000443456571635,-0.000442895931118,-0.000442315993962,-0.000441721509233,-0.000441114483611,-0.000440493239154,-0.000439855495502,-0.000439206879366,-0.000438550292409,-0.000437887792204,-0.000437216353964,-0.000436538113955,-0.000435859129702,-0.000435180254638,-0.000434499306368,-0.000433812884334,-0.000433125638818,-0.000432437761209,-0.000431744803032,-0.000431042955844,-0.000430335313674,-0.000429623668502,-0.000428903123311,-0.000428173304454,-0.000427431769219,-0.000426681252733,-0.000425919438021,-0.00042514706049,-0.000424361461722,-0.000423567007111,-0.000422758979208,-0.00042193543432,-0.000421102196754,-0.000420258036589,-0.000419402648596,-0.000418535633014,-0.000417651939416,-0.000416751945066,-0.000415835650994,-0.000414903944473,-0.00041395503505,-0.000412995091192,-0.000412020030322,-0.000411022740122,-0.000410005772191,-0.000408971721142,-0.000407925629733,-0.000406867429852,-0.000405801728746,-0.000404719452648,-0.000403626604332,-0.000402521627417,-0.000401405541301,-0.000400282248071,-0.00039915071281,-0.000398012301099,-0.000396859940676,-0.000395691664279,-0.000394510229926,-0.000393320580418,-0.000392119069291,-0.000390899746033,-0.000389658229349,-0.000388397772748,-0.000387115893744,-0.000385810936402,-0.000384490066936,-0.000383160840246,-0.000381819879253,-0.000380464838324,-0.000379094589605,-0.000377718796059,-0.000376341921448,-0.000374962698068,-0.000373582521602,-0.000372197563099,-0.000370806730449,-0.000369401005457,-0.00036797802986,-0.000366537605891,-0.000365084942225,-0.000363616441167,-0.000362129071159,-0.000360621390383,-0.000359097115496,-0.000357556889941,-0.000356007928113,-0.000354451902536,-0.000352889312499,-0.000351319533696,-0.00034974081467,-0.000348148809837,-0.000346545267744,-0.000344932340381,-0.000343308077084,-0.000341672669858,-0.000340022148208,-0.000338353733981,-0.000336666868281,-0.00033496301489,-0.000333244709031,-0.000331512549407,-0.000329765440752,-0.000328004252515,-0.000326228824432,-0.000324442050995,-0.000322638471848,-0.000320816682042,-0.00031897778827,-0.000317128154437,-0.000315266382057,-0.000313388352997,-0.000311499143361,-0.000309594684944,-0.000307670826776,-0.000305725757246,-0.00030376168951,-0.000301783231316,-0.000299792147555,-0.000297783078213,-0.000295749695866,-0.000293692811047,-0.000291614509062,-0.000289513870708,-0.000287396594239,-0.000285265145866,-0.000283118200592,-0.000280952859806,-0.000278770908863,-0.000276571931241,-0.000274362095998,-0.000272145162422,-0.000269919216001,-0.000267683862103,-0.000265436810973,-0.000263173610326,-0.000260895454882,-0.000258607065572,-0.000256302406181,-0.000253983073043,-0.0002516461322,-0.000249290448784,-0.000246914578824,-0.000244521382904,-0.000242115006444,-0.000239696279662,-0.000237268321174,-0.000234825888121,-0.000232371273139,-0.000229907298712,-0.000227430986804,-0.000224945417688,-0.000222448955791,-0.000219940751263,-0.000217416581615,-0.000214874284422,-0.000212312825605,-0.00020973696442,-0.000207149794477,-0.000204546914504,-0.000201930125399,-0.000199299547133,-0.000196655898182,-0.000193994554059,-0.000191317912422,-0.000188627198857,-0.000185923292789,-0.000183205962332,-0.000180470919462,-0.0001777156966,-0.00017494037079,-0.000172149272389,-0.000169339317271,-0.000166515399198,-0.000163682187802,-0.00016084032024,-0.000157987521236,-0.000155120493633,-0.000152240476173,-0.000149348955513,-0.000146449938337,-0.000143539414292,-0.000140618753793,-0.000137689336417,-0.000134745162454,-0.000131784214886,-0.000128805659133,-0.000125811671769,-0.000122803189091,-0.00011978136519,-0.000116745329178,-0.000113692107227,-0.000110620812786,-0.000107524915997,-0.00010440784915,-0.000101270598848,-9.81137228541e-05,-9.49365496361e-05,-9.1740004466e-05,-8.85280381365e-05,-8.52975170076e-05,-8.20495788224e-05,-7.87832259103e-05,-7.55027908213e-05,-7.22045934398e-05,-6.88861954783e-05,-6.54753053082e-05,-6.18973902732e-05,-5.80865091439e-05,-5.39842429609e-05,-4.91868624545e-05,-4.50973725387e-05,-4.13070051683e-05,-3.77627287909e-05,-3.43999519694e-05,-3.11462869993e-05,-2.79311756874e-05,-2.48204289862e-05,-2.18873499822e-05,-1.91947877747e-05,-1.68022536753e-05,-1.51090847042e-05,-1.27128292545e-05,-1.00232398172e-05,-7.09182339327e-06,-3.9819812243e-06,-7.68567335713e-07,2.47730117965e-06,5.74804583859e-06,9.04063070952e-06,1.23571373328e-05,1.56996183795e-05,1.90639973331e-05,2.24572642452e-05,2.58826968467e-05,2.93364986952e-05,3.28180980476e-05,3.63208369467e-05,3.98450790344e-05,4.33935470563e-05,4.69619664759e-05,5.05422566984e-05,5.41360129411e-05,5.77417096426e-05,6.13431132624e-05,6.49408649832e-05,6.85336965797e-05,7.21225979108e-05,7.5712036542e-05,7.92999953872e-05,8.28861122897e-05,8.64751590997e-05,9.00670582682e-05,9.36589748567e-05,9.72601400109e-05,0.000100874502947,0.000104495337801,0.00010812469069,0.000111755566092,0.000115384580618,0.000119011587754,0.000122632856299,0.000126249692945,0.000129865839939,0.000133479443442,0.000137084697404,0.000140691676741,0.000144304201926,0.000147923461424,0.000151555222108,0.00015520797668,0.000158881992937,0.000162582282723,0.00016630209483,0.00017004189239,0.000173807533336,0.000177596100229,0.000181401653713,0.000185228851782,0.000189073474014,0.000192931296189,0.000196796970469,0.000200671172241,0.000204554974228,0.000208452944241,0.000212362742021,0.000216282287106,0.000220210267276,0.000224144530118,0.000228079074232,0.000232016500054,0.000235968752533,0.000239931916953,0.000243907305568,0.00024789285935,0.000251886119223,0.000255888749154,0.000259898630318,0.000263922719459,0.000267964299275,0.000272024609637,0.000276097082202,0.00028017663017,0.000284263471273,0.000288353781922,0.00029244825514,0.000296546772999,0.000300652887403,0.000304762434174,0.000308873797987,0.000312984446632,0.00031709562798,0.000321207246212,0.000325314337703,0.000329419004899,0.000333520850728,0.000337619809372,0.000341715363199,0.00034580312073,0.000349888407341,0.000353966450301,0.000358034954958,0.000362093467401,0.000366148980791,0.00037020343167,0.000374256233946,0.000378303470271,0.000382341996668,0.000386370936389,0.000390385932641,0.00039438736281,0.000398379093322,0.000402364050269,0.000406337143648,0.000410292824195,0.000414229004354,0.000418149210709,0.000422056481588,0.000425953990898,0.000429842076619,0.000433721672746,0.000437587656236,0.000441438394967,0.000445271217709,0.000449090716268,0.000452896299734,0.000456687758396,0.000460460323198,0.000464213970023,0.000467948177587,0.00047166487348,0.000475364708355,0.000479046201075,0.000482709486977,0.000486351376946,0.000489971426083,0.0004935703048,0.000497150061127,0.0005007071654,0.000504242363512,0.000507747624793,0.000511222356782,0.000514663372209,0.000518073585949,0.000521456629547,0.00052481894588,0.000528155300093,0.000531465958305,0.000534749571061,0.000538007662051,0.000541243725268,0.000544459412992,0.000547656281807,0.000550837784839,0.00055400279164,0.000557144774222,0.000560259395208,0.000563352973916,0.000566420196538,0.000569461674633,0.000572476463442,0.00057546302713,0.000578426964821,0.000581365506075,0.000584272316289,0.000587146872114,0.000589992153015,0.00059280579506,0.000595594856147,0.000598360085551,0.000601099698842,0.000603813552696,0.000606496549449,0.0006091466134,0.000611768540249,0.000614360433345,0.000616926412199,0.000619463509861,0.000621969227188,0.000624434347081,0.000626866745923,0.000629267770056,0.000631638444756,0.000633980965304,0.000636294029905,0.000638576348642,0.000640831419573,0.000643058050903,0.000645255598055,0.000647429287393,0.000649575066152,0.000651688224862,0.000653767106046,0.000655805847891,0.000657807214069,0.00065977055167,0.000661692207696,0.000663569627566,0.000665403003425,0.000667196416817,0.000668948427911,0.000670659603544,0.000672334687584,0.000673972564559,0.000675573378195,0.000677134792208,0.000678658775101,0.000680144745526,0.000681595670344,0.000683007280243,0.000684374197854,0.000685699444438,0.000686982269699,0.000688226072292,0.000689431464207,0.000690602376712,0.000691737285799,0.000692838757118,0.000693901799176,0.000694931708655,0.000695930789339,0.000696899223628,0.000697835457555,0.000698738952266,0.000699600411683,0.000700428120438,0.000701224250216,0.000701988491704,0.000702721617135,0.000703424449763,0.000704093311721,0.000704729982604,0.00070533595545,0.00070591303247,0.000706465372478,0.000706987212376,0.000707471452318,0.000707915272293,0.000708317454919,0.000708675250638,0.000708992908893,0.000709269538452,0.000709504916673,0.000709695181882,0.000709837130755,0.000709935367759,0.000709995802206,0.000710018139632,0.000710008633205,0.000709965849391,0.000709889274327,0.000709779700207,0.000709636625941,0.000709457782571,0.000709251725523,0.000709018038064,0.000708749909602,0.000708451410223,0.000708119236835,0.000707752099559,0.000707350089269,0.000706910753783,0.000706433635048,0.000705922053426,0.000705376055187,0.000704790114757,0.000704164971939,0.000703497885274,0.000702793097073,0.000702048362777,0.000701268385296,0.00070045695413,0.000699613278385,0.000698738348058,0.000697830730953,0.000696892323261,0.000695921547196,0.000694922796497,0.000693890775664,0.000692823603101,0.000691724112417,0.000690584677797,0.000689402954886,0.000688178503846,0.000686906883224,0.000685586936184,0.000684217415969,0.000682799207772,0.000681331129975,0.00067981496481,0.000678239522011,0.000676604405803,0.000674905415118,0.000673141654083,0.000671311655059,0.000669411474249,0.000667441399471,0.000665396191616,0.000663274558208,0.000661072307095,0.000658797589958,0.000656454411719,0.000654046439181,0.000651578750021,0.000649049190892,0.000646458379805,0.000643812875741,0.000641115469553,0.000638369461288,0.000635578446204,0.000632738883682,0.000629851888354,0.00062692421579,0.000623952588962,0.000620938000523,0.000617889977239,0.000614809456081,0.000611696623756,0.000608550906019,0.000605374097132,0.000602171189406,0.000598948069338,0.000595702470235,0.000592427865365,0.00058913279861,0.000585817401065,0.000582476661848,0.000579117176926,0.000575742802252,0.000572355479588,0.000568958505742,0.000565544540678,0.000562107667513,0.000558655653112,0.000555189001534,0.000551701276409,0.000548198977205,0.000544679676448,0.000541139792868,0.000537580307956,0.000533996295875,0.000530385244161,0.000526755752238,0.000523114870242,0.000519455166535,0.000515780355323,0.000512090279135,0.000508377694979,0.000504647765591,0.00050089967402,0.000497131414389,0.000493349933861,0.000489550781471,0.000485726953098,0.000481882034562,0.000478009628652,0.000474104737655,0.000470172807206,0.000466212604833,0.000462221326039,0.000458197597892,0.000454140659054,0.00045004696347,0.000445922999028,0.0004417675422,0.000437584070802,0.000433380746956,0.000429158939098,0.00042491601514,0.000420655332566,0.000416379269505,0.000412088744014,0.000407788023371,0.000403473570835,0.000399142673279,0.000394800007565,0.000390439626859,0.00038606044387,0.000381663969504,0.000377249086438,0.00037281715884,0.000368368182354,0.000363901000749,0.000359412010119,0.000354907051878,0.00035038622482,0.000345852412891,0.000341302810644,0.00033674266977,0.000332170995749,0.000327585223389,0.000322983342728,0.000318367641987,0.000313742294425,0.000309111931857,0.000304475069851,0.000299833669481,0.000295188710299,0.000290537958634,0.000285879197446,0.000281216242813,0.000276552256271,0.000271887347339,0.000267218578956,0.000262542129223,0.00025785381038,0.000253151686988,0.000248435626363,0.000243703369323,0.000238965651711,0.000234220776996,0.000229473330436,0.000224725196781,0.000219978447236,0.000215233300237,0.000210499270729,0.000205774419224,0.000201062806374,0.000196365088862,0.000191676858897,0.000186995110268,0.000182314100364,0.000177634056737,0.00017295726847,0.000168281885978,0.000163606978189,0.000158930456807,0.000154256521701,0.000149581738079,0.000144910616701,0.000140244270646,0.00013558759578,0.00013094009658,0.000126297640382,0.000121661863326,0.000117033983875,0.000112417318682,0.000107807412995,0.000103206098321,9.86094287814e-05,9.40156853624e-05,8.94294118178e-05,8.48484117548e-05,8.02785149912e-05,7.57170662298e-05,7.11583884939e-05,6.66032177726e-05,6.20543556957e-05,5.75119851446e-05,5.29746414503e-05,4.84513182833e-05,4.3937367883e-05,3.94329884714e-05,3.49349326173e-05,3.04474730073e-05,2.59796203491e-05,2.15357313848e-05,1.71075132038e-05,1.26950560224e-05,8.29888534803e-06,3.91818612872e-06,-4.46909768121e-07,-4.79340756154e-06,-9.12304501145e-06,-1.34352933628e-05,-1.77352906414e-05,-2.20314607333e-05,-2.63192548557e-05,-3.05891529697e-05,-3.48387842577e-05,-3.90666229218e-05,-4.32751971535e-05,-4.74684427998e-05,-5.16444252934e-05,-5.58024074373e-05,-5.99442660171e-05,-6.40631817637e-05,-6.81574602454e-05,-7.22324545359e-05,-7.6291800066e-05,-8.03389690134e-05,-8.43745238807e-05,-8.83939958249e-05,-9.23932055051e-05,-9.63762712148e-05,-0.000100336531994,-0.000104277290261,-0.00010820297899,-0.00011211084443,-0.000116002710355,-0.000119877519962,-0.000123732005149,-0.000127564008157,-0.000131377166616,-0.000135170312426,-0.000138946218388,-0.000142707245394,-0.000146444634142,-0.000150160388861,-0.000153848918511,-0.000157509638791,-0.000161148595823,-0.000164768994323,-0.000168374376976,-0.000171961272493,-0.0001755291773,-0.000179072875679,-0.000182596677239,-0.000186101670957,-0.000189588276727,-0.000193060937711,-0.000196511935632,-0.000199935519054,-0.000203331281046,-0.000206697928429,-0.000210040063053,-0.000213357759987,-0.000216647235218,-0.000219913005258,-0.000223156676334,-0.000226373135268,-0.000229566250941,-0.000232741342998,-0.000235896559852,-0.000239034217939,-0.000242148300124,-0.000245240466514,-0.000248318170994,-0.00025138166131,-0.000254425854294,-0.000257454644475,-0.000260467445792,-0.000263462336577,-0.00026643918679,-0.00026939228142,-0.000272328796762,-0.000275248136251,-0.000278145930496,-0.000281014672006,-0.000283856340152,-0.000286667943284,-0.00028944607259,-0.000292193133391,-0.000294910296965,-0.000297603042573,-0.000300269225057,-0.000302905621413,-0.000305519059318,-0.000308110367565,-0.00031068147623,-0.000313233602677,-0.000315770606915,-0.000318290858069,-0.000320791443677,-0.000323270262434,-0.000325728312731,-0.000328171003762,-0.000330588569223,-0.000332977851585,-0.000335339789067,-0.000337672634206,-0.000339976518933,-0.000342251687004,-0.000344496962268,-0.000346713695634,-0.000348903142036,-0.000351060571521,-0.000353188200555,-0.000355294794757,-0.000357379485232,-0.000359442257859,-0.00036148398178,-0.000363503963946,-0.00036549912919,-0.000367476055327,-0.00036943052047,-0.000371362762465,-0.000373271580511,-0.000375156014119,-0.000377011059307,-0.000378839892927,-0.00038064258666,-0.000382422205213,-0.000384183331318,-0.000385925115352,-0.000387647918283,-0.000389356255195,-0.000391052842743,-0.000392741245474,-0.00039441825103,-0.000396085697527,-0.000397599517388,-0.000398813192014,-0.000399726665079,-0.000400333029536,-0.000400635967371)
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(251)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Sarcophilus_harrisii-female-liver-H3K27Ac-ERR572147.50mers.unique.MACS-2.1.0.p1e-1_model.pdf',height=6,width=6)
plot(x,p,type='l',col=c('red'),main='Peak Model',xlab='Distance to the middle',ylab='Percentage')
lines(x,m,col=c('blue'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 251',bty='n')
dev.off()