# R script for Peak Model
#  -- generated by MACS
p <- c(0.0409373966156,0.0476440179413,0.0544039416266,0.061239673112,0.0679735378659,0.0678728556313,0.0677259780183,0.0677745423904,0.0677828338685,0.0677579594341,0.0676181888024,0.0677307160059,0.0679261579908,0.0678621951594,0.0679427409471,0.0681215999757,0.0681358139383,0.0680469766724,0.0680564526474,0.0681121240007,0.0682210977135,0.0682376806698,0.0680351317036,0.0680528991568,0.0680671131193,0.0679889363254,0.068206883751,0.0682116217385,0.0681891162978,0.0680860650694,0.067826660253,0.0678136307873,0.0678065238061,0.0677615129247,0.0675802849023,0.0674203778237,0.0673741824454,0.067358783986,0.0672178288575,0.0673386475391,0.0674784181708,0.0674215623206,0.0675257980459,0.0675696244304,0.0676170043055,0.067787571856,0.0675968678586,0.0675850228898,0.0675980523555,0.0673647064704,0.0673256180734,0.0672355963107,0.0670247558663,0.0668684022784,0.0669276271223,0.0668636642908,0.0667700890374,0.066950132563,0.0670330473445,0.0671953234168,0.0673173265953,0.0673540459985,0.0674334072894,0.067339832036,0.0673481235141,0.0673244335766,0.0673575994892,0.0672142753669,0.0671941389199,0.0671005636665,0.0669453945755,0.066745214603,0.0667641665531,0.0667831185031,0.0666196579339,0.0665106842211,0.0665331896618,0.0665260826805,0.0662572018891,0.0662962902861,0.0661553351575,0.0663057662611,0.0660179335196,0.0662429879265,0.0662110065108,0.0663270872049,0.0664360609177,0.0664111864833,0.066627949412,0.0665059462336,0.0667653510499,0.0668790627503,0.0670117264006,0.0667250781561,0.0667369231248,0.0666990192247,0.0666208424308,0.0665355586555,0.0664656733397,0.0664775183085,0.0662998437767,0.06613164522,0.0662619398766,0.0665639865806,0.0667144176842,0.0666919122435,0.0667262626529,0.0666303184058,0.0664656733397,0.0664419834021,0.0665746470525,0.0667333696342,0.0666753292872,0.0665663555744,0.0665154222086,0.0665260826805,0.0664028950051,0.0666421633746,0.0668139154219,0.0669406565879,0.0668127309251,0.0666848052622,0.0666859897591,0.0666930967403,0.0667203401686,0.0667807495094,0.0668755092596,0.0668056239438,0.0666836207653,0.0664869942835,0.0666326873995,0.0668257603907,0.066950132563,0.0668778782534,0.0669098596691,0.0668980147003,0.0669240736316,0.0669418410848,0.0670413388226,0.0671822939511,0.0671147776291,0.0668245758939,0.0668731402659,0.0670034349225,0.0670448923132,0.0669134131597,0.0668458968377,0.0667831185031,0.066715602181,0.0666113664557,0.0665379276493,0.0666859897591,0.0666042594745,0.0666125509526,0.0665189756992,0.0664775183085,0.0665734625556,0.0667238936592,0.0669027526878,0.0670662132571,0.0673706289548,0.0672427032919,0.0671609730073,0.0670117264006,0.0670152798913,0.0673185110922,0.0673125886078,0.0671574195167,0.0670922721884,0.0669951434443,0.0669477635692,0.0670069884131,0.0671787404605,0.0672178288575,0.0673303560609,0.0672628397389,0.0674286693019,0.0675459344928,0.0675980523555,0.067748483459,0.0676466167275,0.0678503501906,0.0678479811968,0.0680517146599,0.0680860650694,0.0680635596287,0.0680090727723,0.0681559503852,0.0682080682479,0.068225835701,0.0683952187547,0.0685053769644,0.0685231444175,0.0684947164924,0.0686427786023,0.0687481988244,0.0689791757157,0.0690111571314,0.0692065991164,0.069327417798,0.069258716979,0.0692551634884,0.0692622704697,0.0693404472637,0.0692622704697,0.0693819046544,0.0693049123573,0.069230289054,0.0692160750914,0.0693120193386,0.0695169372985,0.0695797156331,0.0697787111087,0.069950463156,0.0701387981597,0.0702003919974,0.0701826245442,0.0703685905541,0.0704751952732,0.0705083611858,0.0704064944542,0.0705296821296,0.0706019364392,0.0707274931083,0.0708554187712,0.0708720017275,0.0710366467936,0.0712072143441,0.0713351400069,0.0713718594102,0.0716525851704,0.0716277107359,0.0717769573426,0.0718172302365,0.0719333109305,0.072289844491,0.0725113454072,0.0724864709728,0.0725563562886,0.0727458757892,0.0729057828677,0.0730526604807,0.0729105208553,0.0730810884058,0.0730834573995,0.0729804061711,0.0730704279338,0.0733002203283,0.0733855041035,0.0734305149849,0.0734080095442,0.073498031307,0.0739149742082,0.0739540626052,0.0740985712243,0.0741269991494,0.0740843572618,0.0740962022306,0.0740192099335,0.0742738767623,0.0745522335288,0.0747962398857,0.0748341437858,0.0751326369992,0.0752913595809,0.0755460264098,0.0758208296856,0.0759167739327,0.0762543555431,0.0762662005119,0.0763656982497,0.076576538694,0.0766760364318,0.0767933016228,0.076898721845,0.0770124335453,0.0772907903117,0.077648508369,0.0779256806386,0.0782940591678,0.0784741026933,0.078720478044,0.0791848008203,0.0793447078989,0.0797912632221,0.0799630152695,0.0799701222507,0.0800317160884,0.0801454277887,0.0803029658736,0.080620411037,0.0806867428622,0.0807815026125,0.0809390406973,0.080834804972,0.0813654595735,0.0817338381027,0.0822100058479,0.0826743286242,0.0829692683469,0.0833838422544,0.0840388690282,0.084488977842,0.0851167611875,0.0860264547902,0.0866862195515,0.0872512245625,0.0878553179705,0.0883291167219,0.0888656938078,0.0891641870212,0.0893430460498,0.0897469594854,0.09005255968,0.0902811675775,0.0902160202492,0.090569000319,0.0906329631504,0.0910297696047,0.0914550039841,0.0915000148654,0.0918956368228,0.0920922633047,0.0922829673021,0.0927058326877,0.0931050081357,0.0930718422231,0.0934082393366,0.0935361649995,0.0936664596561,0.0939874583102,0.0942255421827,0.0942125127171,0.0945038989491,0.0945808912462,0.0949315023223,0.0955817911085,0.0959430626564,0.0963232861544,0.0966241483616,0.0970150323314,0.0973680124012,0.0978548406182,0.0981355663784,0.0982788905007,0.0986141031173,0.0986425310424,0.0990132785654,0.0991175142907,0.0993248012444,0.0998163674489,0.100116045159,0.100604057873,0.101019816277,0.101340814931,0.101488877041,0.101773156292,0.101892790477,0.102277751962,0.102586905648,0.102719569298,0.10291619578,0.103020431505,0.103170862609,0.103465802331,0.103738236613,0.104270075712,0.104518820056,0.104711893048,0.105015124248,0.105625140141,0.105950876782,0.10631214833,0.106582213619,0.106762257144,0.106915057241,0.107096285264,0.107349767596,0.107850809775,0.108039144779,0.108001240879,0.108182468901,0.108498729568,0.108902643003,0.10932906188,0.109876299437,0.110109645323,0.110435381964,0.110533695205,0.110862985337,0.110950638106,0.111283481729,0.111382979467,0.111702793624,0.11192074105,0.11177267894,0.111908896081,0.11211026055,0.112562738358,0.112815036193,0.113429790073,0.113535210295,0.113760264702,0.113813567061,0.114076525368,0.114691279248,0.11496016004,0.115634138764,0.115670858167,0.115856824177,0.11593144748,0.116214542234,0.116674127023,0.116973804733,0.117389563137,0.117588558613,0.117928509217,0.117853885914,0.118440211869,0.118919933104,0.119381886887,0.119958736867,0.120198005236,0.120861323488,0.121118359311,0.121694024794,0.122223494898,0.122684264184,0.122831141797,0.123109498563,0.123455371652,0.123681610556,0.124212265157,0.124016823172,0.12452615683,0.124479961452,0.124843601993,0.125144464201,0.125447695401,0.125825549906,0.12608969271,0.126345544035,0.126620347311,0.127090592572,0.127268267104,0.127907895418,0.128055957528,0.128246661525,0.128488298888,0.12876073317,0.128990525565,0.129228609437,0.129368380069,0.129694116711,0.129985502943,0.130098030146,0.130300579112,0.130407183831,0.130876244595,0.131183029287,0.131518241903,0.131784753701,0.132102198864,0.132279873396,0.132435042487,0.132793945041,0.133028475423,0.133560314522,0.133703638644,0.133726144085,0.133862361226,0.13408860013,0.134305363058,0.134363403405,0.134446318187,0.13453989344,0.134458163156,0.134461716646,0.134378801865,0.13461214775,0.134657158631,0.134795744766,0.134751918382,0.135175968264,0.135313369902,0.135392731193,0.135810858591,0.136083292873,0.136262151902,0.136482468321,0.136821234428,0.136944422104,0.137151709057,0.137300955664,0.137664596206,0.137946506463,0.138066140647,0.13811825851,0.13815260892,0.138083908101,0.138088646088,0.138317253986,0.138612193708,0.138626407671,0.138631145658,0.138780392265,0.139091914944,0.139044535069,0.139235239066,0.139399884133,0.139659288949,0.139637968005,0.13983340999,0.139902110809,0.140059648894,0.139987394584,0.139775369643,0.140165069116,0.140332083176,0.140491990254,0.140297732766,0.140555953086,0.140236138929,0.14015203965,0.139891450337,0.139752864202,0.139587034639,0.139121527366,0.138875152015,0.138541123896,0.138132472473,0.13753785504,0.137383870445,0.137158816039,0.136709891722,0.136151993692,0.135722021325,0.135160569805,0.134780346307,0.134177437395,0.133634937825,0.133151663099,0.132355681196,0.131770539739,0.131315692937,0.13084426318,0.130388231881,0.129960628508,0.129284280791,0.128859046411,0.12853330977,0.128010946646,0.127464893585,0.126922394015,0.126238939316,0.12577817003,0.125158678163,0.124606702618,0.124092630972,0.123617647724,0.123084624129,0.122705585128,0.122236524364,0.121711792247,0.121320908277,0.120612579144,0.120189713758,0.119783431329,0.119571406387,0.118878475714,0.118543263097,0.117917848745,0.11769990132,0.117182276184,0.116665835545,0.116450257113,0.116071218112,0.115804706314,0.115244439291,0.115226671837,0.114855924314,0.114479254307,0.114209189019,0.113778032155,0.11361694058,0.1131538023,0.112849386602,0.112492853042,0.112208573791,0.111661336233,0.111292957704,0.110936424144,0.110649775899,0.110572783602,0.110119121298,0.10983365755,0.109477123989,0.108825650706,0.108271306167,0.107795138422,0.107181569039,0.106765810635,0.105677258003,0.104851663679,0.10420611288,0.103421975947,0.102469640457,0.102026638624,0.101241317194,0.100625378817,0.0998945442429,0.0991968755815,0.098705309377,0.0984044471698,0.0978915600215,0.0974983070578,0.0972850976197,0.0969250105687,0.0968278818246,0.0965199126362,0.096268799298,0.0961278441695,0.09609349376,0.0955616546616,0.0953756886517,0.0951222063197,0.0949042588941,0.0945868137306,0.0944802090116,0.0942397561453,0.0940999855136,0.0938263667347,0.0936356627373,0.0934674641805,0.0932447787674,0.0932199043329,0.0930078793917,0.0927153086627,0.0922047905081,0.0918861608478,0.0915710846781,0.0915035683561,0.0912962814023,0.0911849386958,0.0909468548232,0.0905618933377,0.0901556109084,0.0899791208735,0.0896640447039,0.0896000818724,0.0895100601097,0.0890646892834,0.0886536688666,0.0884144004971,0.0881277522525,0.0879536312114,0.0878541334736,0.0876883039106,0.0875260278383,0.0871529113216,0.0868532336113,0.0866708210921,0.0866412086701,0.0866554226326,0.0865784303355,0.08637943486,0.0862361107377,0.0860300082808,0.0859044516117,0.085803769377,0.0856201723609,0.0854270993697,0.0852233659066,0.0848620943587,0.084586106586,0.0844143545386,0.0842153590631,0.0838979138996,0.0837178703741,0.0836231106238,0.0834016097076,0.0831090389786,0.0828294977153,0.0825452184645,0.0824196617953,0.0820808956881,0.0818439963124,0.0818262288592,0.0815668240429,0.081185416048,0.081039722932,0.080795716575,0.0805351272618,0.0804344450271,0.0803005968798,0.0801477967825,0.0798031081909,0.0795496258589,0.0792641621112,0.0791705868578,0.0789265805008,0.0789242115071,0.078837743235,0.0785688624435,0.0781767939768,0.0780938791953,0.077980167495,0.0777740650381,0.077599943997,0.0774376679246,0.0772990817899,0.0770669204017,0.0767968551134,0.0765623247315,0.0766073356129,0.0765386347939,0.076625103066,0.0765149448563,0.0766440550161,0.0764213696029,0.0763870191935,0.0763100268964,0.0760743120176,0.0759973197205,0.0757959552511,0.0754323147094,0.0750828881303,0.0747441220231,0.0744515512941,0.074423123369,0.0740843572618,0.0737692810921,0.0738320594267,0.0735868685728,0.073235073,0.0731142543183,0.0729922511399,0.0729744836867,0.0728891999114,0.0725255593698,0.0726226881138,0.0726428245607,0.0722637855596,0.0721678413125,0.072045838134,0.0718349976896,0.0719072519992,0.0717153635049,0.071383704379,0.0713469849757,0.0708542342743,0.0705154681671,0.0704455828512,0.0703271331634,0.0702489563694,0.0701767020598,0.0698687328714,0.0698545189089,0.0696176195332,0.0695655016706,0.0694825868891,0.0696614459177,0.0695868226144,0.069444682989,0.0693487387418,0.0693345247793,0.069258716979,0.0690668284847,0.0690917029192,0.068889153953,0.0690004966595,0.0686866049868,0.0686522545773,0.0685112994487,0.0683584993514,0.0679214200033,0.0677709888997,0.0676691221682,0.0675921298711,0.0675009236114,0.0674132708424,0.0674867096489,0.0671811094543,0.0673078506203,0.0672948211546,0.067427484805,0.0673694444579,0.0671822939511,0.0671905854293,0.0670058039163,0.0667369231248,0.0664680423334,0.0663401166706,0.0661944235545,0.0662429879265,0.0662891833048,0.0662098220139,0.0661577041513,0.0660060885509,0.0661849475795,0.0660949258167,0.0659859521039,0.0662133755046,0.0660795273573,0.0658698714098,0.0656981193625,0.0655879611528,0.0657301007782,0.0658047240815,0.0657762961564,0.065741945747,0.0657632666908,0.0655938836372,0.0655962526309,0.0655986216247,0.0655524262464,0.0654505595149,0.0653036819019,0.0652669624987,0.0650809964888,0.0651757562391,0.0652136601392,0.0650963949482,0.065117715892,0.064923458404,0.0648796320195,0.0649803142541,0.0650087421792,0.0648701560444,0.0647730273004,0.0646984039971,0.0645313899372,0.0647659203191,0.0646320721719,0.0648121156974,0.064835805635,0.0649589933103,0.0649270118946,0.0649743917697,0.065147328314,0.0652456415549,0.0653700137271,0.0653368478145,0.0652515640393,0.0653167113676,0.0653332943239,0.0651840477172,0.0651579887859,0.0651307453577,0.0649826832479,0.0649246429008,0.0649601778072,0.0648796320195,0.0651342988483,0.0650276941293,0.0651023174326,0.0653475082864,0.0653901501741,0.0654233160867,0.0655844076621,0.0655346587932,0.0657478682314,0.0657253627907,0.0655062308682,0.0655903301465,0.065458850993,0.0652420880643,0.0652183981267,0.0652491950455,0.0652065531579,0.0653498772802,0.0650466460793,0.0650573065512,0.0650857344763,0.0650715205138,0.0651627267734,0.0650620445387,0.0650715205138,0.0650916569607,0.065322633852,0.0653842276897,0.0653356633177,0.0654126556148,0.0654245005835,0.0653984416522,0.0655097843588,0.0656850898968,0.0656234960591,0.0656329720341,0.0654067331304,0.0653368478145,0.0654742494524,0.0655547952402,0.0659326497444,0.065965815657,0.0660096420415,0.0660984793074,0.0662181134921,0.0663590686206,0.0664171089677,0.0665023927429,0.0666457168652,0.0666907277466,0.0664076329926,0.0665675400712,0.0664206624583,0.0663045817642,0.0663223492174,0.066180209592,0.0661719181138,0.0660368854697,0.0659598931726,0.066072420376,0.0661079552824,0.0660037195571,0.0661766561013,0.0661612576419,0.0662927367954,0.0664372454146,0.0664147399739,0.0666030749776,0.0666788827778,0.0665071307304,0.0667369231248,0.0667795650125,0.0669465790723,0.0671609730073,0.0671503125354,0.0671514970323,0.0672782381983,0.0672817916889,0.0672746847077,0.067466573202,0.0673374630422,0.0675115840833,0.0675103995865,0.0674428832644,0.0674736801832,0.0675850228898,0.0675660709398,0.0675257980459,0.0675423810022,0.0674203778237,0.0674109018487,0.067319695589,0.0671811094543,0.067271131217,0.0672735002108,0.0671953234168,0.0672059838887,0.0672640242358,0.0672853451796,0.0673137731046,0.0674914476364,0.0672462567826,0.067397872383,0.0672486257763,0.0671728179761,0.0672450722857,0.0673386475391,0.0673848429174,0.0674156398362,0.0674902631395,0.0674428832644,0.0677591439309,0.0676738601557,0.0678302137436,0.0679000990595,0.0678586416687,0.0679000990595,0.0679462944377,0.0680588216412,0.0680149952567,0.0681393674289,0.0681547658883,0.068177271329,0.0681464744102,0.0682566326199,0.0682329426823,0.0682874295387,0.0684816870268,0.06851840643,0.0685622328145,0.0684674730642,0.068693711968,0.0687730732589,0.0689744377282,0.0690798579504,0.0692812224197,0.0693013588667,0.0692954363823,0.0693475542449,0.0693842736482,0.0695181217954,0.0694233620451,0.0695347047517,0.0695595791862,0.0693593992137,0.0692752999353,0.0691852781726,0.068976806722,0.068995758672,0.0690774889566,0.069073935466,0.0689116593937,0.0688761244873,0.0686771290117,0.0689033679155,0.0689969431689,0.0692646394634,0.0692812224197,0.0692693774509,0.0693309712886,0.0693191263198,0.0694920628641,0.0695133838079,0.0696235420176,0.0695477342174,0.0694352070139,0.0694186240576,0.0694458674858,0.0694885093735,0.0693771666669,0.069297805376,0.0693191263198,0.0692362115383,0.069317941823,0.0693913806294,0.0694423139952,0.0693238643074,0.0693676906919,0.0692563479853,0.0692954363823,0.0694387605046,0.0695157528017,0.0696140660426,0.0695868226144,0.0696010365769,0.0695915606019,0.0695299667642,0.0695394427392,0.0697100102897,0.0696839513584,0.0696010365769,0.0695287822673,0.0694778489016,0.0694683729265,0.0693913806294,0.0694091480826,0.0695880071112,0.06958090013,0.069493247361,0.0694991698454,0.0695702396581,0.0694553434609,0.0694529744671,0.0693013588667,0.0693617682075,0.069336893773,0.0692255510664,0.0692362115383,0.0692314735508,0.0692445030165,0.0691390827943,0.0691509277631,0.0691532967569,0.0693297867917,0.0691438207818,0.0693736131762,0.0693108348417,0.0692800379229,0.0691343448068,0.0691201308443,0.0690999943973,0.0690490610316,0.0689199508718,0.0689021834186,0.0692362115383,0.0689163973812,0.0689471943,0.068956670275,0.069113023863,0.0692042301226,0.0692291045571,0.0693795356606,0.0694778489016,0.0695181217954,0.0690881494285,0.0692219975758,0.0690691974785,0.0691260533287,0.0688322981028,0.0689057369093,0.0690395850565,0.069015895119,0.0688962609342,0.0688654640154,0.0689317958406,0.0689223198656,0.0690052346471,0.0688796779779,0.069103547888,0.0689187663749,0.0687707042651,0.0685219599207,0.0685563103301,0.0684260156735,0.0685101149519,0.0684982699831,0.068674760018,0.0688867849592,0.068840589581,0.0689696997407,0.0690147106221,0.0691343448068,0.0690917029192,0.0691177618505,0.06915211226,0.0692148905945,0.0688713864998,0.068684235993,0.0688062391715,0.0686190886647,0.068557494827,0.0685835537583,0.0684911630018,0.0685243289144,0.0683407318983,0.0682530791292,0.0683075659857,0.0681512123977,0.0680623751318,0.0681085705101,0.0680292092192,0.0679759068597,0.0680256557286,0.0680848805725,0.0683123039732,0.0681642418634,0.0680682976162,0.0679166820158,0.0677520369497,0.0677259780183,0.0674784181708,0.0673872119111,0.0672983746452,0.0672817916889,0.0671716334792,0.067261655242,0.0672652087326,0.0673931343955,0.0674488057488,0.0672995591421,0.0675293515365,0.0675317205303,0.0677366384902,0.0675175065677,0.0673564149923,0.0673481235141,0.0673765514392,0.0673433855266,0.0670792427227,0.0670212023757,0.0669584240411,0.0669773759912,0.066793778975,0.0667712735343,0.0666504548527,0.0664834407929,0.0664561973647,0.0665450346305,0.0666232114245,0.0668174689126,0.066540296643,0.0664621198491,0.0664952857616,0.0664396144084,0.0666397943808,0.0666919122435,0.0666990192247,0.0667025727154,0.0667535060811,0.066569909065,0.0667428456092,0.0667594285655,0.0666030749776,0.0664407989052,0.0662951057892,0.0661387522012,0.0661328297168,0.0660297784884,0.065936203235,0.0658829008755,0.0659196202787,0.0657976171002,0.0657845876346,0.0657277317844,0.0657064108406,0.0656175735747,0.0653913346709,0.0653640912427,0.0654019951429,0.0653593532552,0.0652326120892,0.0652243206111,0.0653178958645,0.0588706793552,0.0522990906736,0.045854243158,0.0394259785987,0.0)
m <- c(0.0390646847098,0.0455332030861,0.0519851324796,0.0584773494028,0.0648996556127,0.0648605530103,0.0649695663261,0.0651082028254,0.0650513263129,0.065031182548,0.0651638944107,0.0651816683208,0.0653534827858,0.0653937703156,0.065604687383,0.0655916531822,0.0655975778189,0.0653866607515,0.0654779001571,0.0654636810289,0.0655478108704,0.0656117969471,0.0656757830237,0.0656627488229,0.0655335917423,0.0654624961016,0.065432872918,0.0656129818744,0.0654885645032,0.0657219951901,0.0656414201307,0.0656568241862,0.0656532694041,0.0657196253355,0.0659056589286,0.0660004531162,0.0660715487569,0.0661023568679,0.0664862733277,0.066380814794,0.0665064170925,0.066624909827,0.0666000263528,0.0666272796817,0.0666308344638,0.0667291834334,0.0668299022577,0.0668915184797,0.0666284646091,0.0666071359169,0.0666960054677,0.0668062037108,0.0667990941467,0.066789614728,0.0668085735655,0.0668630802234,0.0668192379116,0.0668690048601,0.0669946071587,0.0670550384533,0.0670443741072,0.06719485988,0.0673145375418,0.0675278244639,0.0675598175022,0.0675858859038,0.0676368377797,0.0677636250056,0.0680183843847,0.067981651637,0.0679792817824,0.0679212203425,0.0680871101708,0.0681191032091,0.0680954046622,0.0682127124693,0.0682790684006,0.068311061439,0.0682091576873,0.0684236295367,0.0685053895235,0.0684473280836,0.0683774173703,0.068383342007,0.0685077593782,0.0683928214258,0.0684982799595,0.0685101292329,0.0686523205143,0.0688442787442,0.0688798265646,0.0688703471458,0.0690267575553,0.0688739019278,0.0688774567099,0.0689876549529,0.0690030590084,0.0688928607653,0.0688324294708,0.0687068271722,0.0687091970269,0.0687494845566,0.0687814775949,0.0690160932092,0.0691262914523,0.0691488050719,0.0691073326148,0.0692601882423,0.0692104212938,0.0692353047681,0.0694509615448,0.0695978925356,0.0695279818223,0.0694071192331,0.0693597221393,0.0693644618487,0.0692684827337,0.0692992908447,0.0694355574894,0.0694094890878,0.0691831679649,0.0692187157852,0.0691902775289,0.0692803320072,0.0693585372119,0.0693869754682,0.0696571389029,0.0696132965911,0.0696275157192,0.0696618786123,0.0699036037906,0.0697424536717,0.0698479122054,0.0698893846625,0.0699154530641,0.069946261175,0.069977069286,0.0701133359307,0.0700256513072,0.0700161718884,0.0699901034868,0.0699995829056,0.0699296721922,0.0698526519148,0.0697507481631,0.0696121116638,0.0695611597879,0.0695291667496,0.0696417348474,0.06964054992,0.0695410160231,0.0696595087576,0.0697092757061,0.0698834600258,0.0700683086916,0.0701014866572,0.0698917545172,0.0698810901711,0.0698917545172,0.0700161718884,0.0701026715846,0.0700813428924,0.0700375005806,0.0699924733415,0.0697922206202,0.0698490971328,0.0699130832094,0.0698953092992,0.0698005151116,0.0698313232226,0.0698727956797,0.0698716107523,0.0697934055475,0.0698514669875,0.0699474461024,0.0698929394445,0.0698668710429,0.069873980607,0.0698562066968,0.0696784675951,0.0697258646889,0.0698514669875,0.0700007678329,0.0699012339359,0.0699592953758,0.0701856164987,0.0703408419809,0.0703052941606,0.0703680953099,0.0704901428264,0.0703088489426,0.0702116849003,0.0700102472517,0.0700611991275,0.069911898282,0.0697922206202,0.0696227760099,0.0695137626941,0.0693182496822,0.0692104212938,0.0691262914523,0.0691855378196,0.0692945511353,0.0691405105805,0.069193832311,0.0690777094312,0.0691772433281,0.0691950172383,0.0693194346095,0.0692435992595,0.0693561673572,0.0692127911485,0.0689900248076,0.06902912741,0.0688703471458,0.0688964155474,0.0686274370401,0.0686724642792,0.0686084782026,0.0684970950321,0.0683347599859,0.0682577397084,0.0682897327467,0.0682529999991,0.0682221918881,0.0680693362606,0.0682648492725,0.0680954046622,0.0682553698537,0.0684745814126,0.0685409373439,0.0685053895235,0.0685279031431,0.0684070405539,0.0684781361946,0.0683786022976,0.0682861779647,0.0683726776609,0.0681522811747,0.0681108087177,0.0680835553887,0.0681036991536,0.0681309524825,0.06828380811,0.0684070405539,0.0686132179119,0.0685907042924,0.0685492318353,0.0685670057455,0.068455622575,0.0682719588366,0.0682980272382,0.0682529999991,0.0680681513332,0.0678998916502,0.0677944331165,0.067871453394,0.0677944331165,0.0677233374758,0.0678039125353,0.068046822641,0.0679828365644,0.0679935009105,0.0678631589025,0.067840645283,0.0679176655604,0.0678560493385,0.0676937142922,0.067634467925,0.0673571949262,0.067335866234,0.067229222773,0.0671391682948,0.0672043392987,0.0672825445035,0.0671391682948,0.0671048054018,0.0672600308839,0.0672742500121,0.0672659555207,0.0671841955339,0.0671119149658,0.0671012506197,0.0671391682948,0.0669744633938,0.0669270663,0.0667671011084,0.0667291834334,0.0666272796817,0.0666877109763,0.0665609237504,0.0666687521388,0.066727998506,0.0667291834334,0.06679316951,0.0668085735655,0.066957874411,0.066820422839,0.0667066698138,0.0666012112801,0.0665822524426,0.0664353214518,0.0663760750846,0.0663417121916,0.0662244043844,0.0661841168547,0.0659589806591,0.0659566108045,0.0661343499062,0.0662386235126,0.0660976171585,0.066075103539,0.065975569642,0.0661118362866,0.0661296101968,0.0661296101968,0.0661888565641,0.0662718014782,0.0662303290211,0.066150938889,0.0661189458507,0.0660051928256,0.0661319800515,0.065975569642,0.065944761531,0.0659021041466,0.0658867000911,0.0659293574755,0.0658440427067,0.0658013853223,0.0657587279378,0.0659044740013,0.0658878850184,0.0658262687965,0.0656117969471,0.0655252972509,0.0654435372641,0.0653487430765,0.0653499280038,0.0653582224952,0.0653582224952,0.0652598735256,0.065134271227,0.065099908334,0.0652148462865,0.0652693529444,0.0653037158374,0.0652598735256,0.0652184010685,0.0652207709232,0.065371256696,0.0654447221914,0.0654909343579,0.0656224612932,0.0657362143183,0.0656686734596,0.0657622827199,0.0658013853223,0.0658357482153,0.0657480635917,0.0656378653486,0.0656165366564,0.0656757830237,0.0657101459167,0.0656828925878,0.0658855151638,0.0657824264847,0.0656177215838,0.0655833586908,0.0656212763658,0.0656414201307,0.0657148856261,0.0655466259431,0.0656580091135,0.0655537355072,0.0653617772773,0.0654103592984,0.0655584752165,0.0655952079642,0.0656947418612,0.0657468786644,0.0656556392588,0.0656117969471,0.065371256696,0.0654459071188,0.0655513656525,0.0655892833275,0.0654731604477,0.0655679546353,0.0654316879906,0.0654613111742,0.065535961597,0.0657184404081,0.0657409540277,0.0655726943447,0.065405619589,0.0654008798796,0.0656224612932,0.065742138955,0.0658961795099,0.0658570769075,0.0658772206723,0.0659092137107,0.0660146722444,0.0660691789022,0.0663440820463,0.0665467046223,0.0665952866434,0.0664803486909,0.0665336704215,0.0665076020199,0.0664744240542,0.0663902942127,0.0663511916103,0.0666841561943,0.0666580877927,0.0666154304083,0.0665893620067,0.0665917318614,0.0666320193911,0.066992237304,0.0671687914784,0.0672600308839,0.067164051769,0.0670526685986,0.0673311265246,0.0673536401442,0.0673583798536,0.067569296921,0.0676060296687,0.0674211810029,0.0676368377797,0.067706748493,0.067981651637,0.0681262127731,0.0679958707652,0.0679520284534,0.0681747947943,0.0681380620466,0.0683809721523,0.068651135587,0.0686298068948,0.0687411900652,0.0689082648208,0.0690149082819,0.0692104212938,0.0692981059173,0.0694355574894,0.0695943377536,0.069633440356,0.0698028849663,0.0698964942266,0.0700920072385,0.0702567121394,0.0705482042663,0.0704936976084,0.0709119769612,0.0709107920339,0.0710814215716,0.0711086749005,0.0711098598278,0.0714238655743,0.0714167560102,0.0716134539495,0.071567241783,0.0720305483749,0.0722023628399,0.0724666016379,0.07262182712,0.0729216137383,0.0730839487846,0.0729441273579,0.0733552971466,0.073298420634,0.0735531800132,0.0735792484148,0.0736456043461,0.0738908843065,0.0741456436857,0.0744241016118,0.0746409433159,0.0749822023913,0.0750521131046,0.0752025988774,0.0753222765393,0.0754976457864,0.0755865153372,0.0756967135803,0.0759100005024,0.0759348839767,0.0762429650864,0.0763626427482,0.0766031829992,0.0769278530918,0.0770937429201,0.0772086808725,0.0773402078078,0.0775594193666,0.0777312338317,0.0780096917577,0.0779776987194,0.0782300882439,0.0784066424183,0.0786388881779,0.0787870040961,0.0790239895651,0.0793545842943,0.0794553031186,0.0795512822336,0.0796140833829,0.0799517876762,0.0801164925771,0.0803108206617,0.0803759916657,0.0805738745323,0.0806023127886,0.0809329075178,0.081122495893,0.0814080633832,0.0816912610186,0.0817386581124,0.0820372598034,0.0822410673067,0.0823749640967,0.0825728469633,0.0830669616662,0.0831617558538,0.0834757616002,0.0834710218908,0.0837068224325,0.0840160884695,0.0842198959729,0.0843348339253,0.0845967028686,0.0850671190245,0.0852258992888,0.0854119328819,0.0854948777961,0.0859250064223,0.0861501426179,0.0863124776641,0.0863989773603,0.0867272022349,0.08710874884,0.0870708311649,0.0871751047713,0.0873646931465,0.0875341377568,0.0876751441109,0.0877948217727,0.0881029028824,0.0884121689195,0.0884406071757,0.0886254558415,0.0888932494215,0.0892048853133,0.0893778847056,0.0897215136357,0.0897760202935,0.0899833825789,0.0900414440188,0.0902381419581,0.0906433871101,0.0909182902541,0.0910533719714,0.091415959739,0.0916849382463,0.0917370750495,0.0921281010734,0.0923129497392,0.0926210308489,0.0926672430153,0.0928994887749,0.0930511594751,0.0934931373748,0.0935322399772,0.093755006318,0.0941412926325,0.0941732856708,0.094465962725,0.0946413319721,0.0948356600567,0.0952195765164,0.0952835625931,0.0954897399511,0.0957788622233,0.0961805525932,0.0966320099117,0.0971628573622,0.0975053013649,0.0978761836239,0.0983205313783,0.0983679284721,0.0988027968077,0.0990006796743,0.0992684732543,0.0992980964379,0.0994912395952,0.099744814047,0.100153613981,0.100664317667,0.101288774378,0.102009210203,0.102628927205,0.103284192026,0.104150373916,0.105079356954,0.105755950468,0.106450317892,0.107211041248,0.107837867813,0.108317763388,0.10868272101,0.10918276035,0.109669765489,0.109920970086,0.110067901077,0.110636666202,0.111185287563,0.111457820852,0.111799079928,0.112203140152,0.112572837484,0.113033774221,0.113616758475,0.113990010589,0.11455166615,0.114660679466,0.114879891025,0.115150054459,0.115368081091,0.115844421883,0.116112215463,0.116302988766,0.116370529625,0.116889527802,0.117134807762,0.117717792016,0.118029427908,0.118498659136,0.119145629467,0.119561538965,0.120169406693,0.120597165464,0.121086540458,0.121324710854,0.121997749586,0.122199187235,0.122897109441,0.123474169058,0.123725373655,0.124178015901,0.124727822189,0.125141361832,0.125774113034,0.126412788873,0.126923492559,0.12746737421,0.127828777051,0.128239946839,0.128907060935,0.129389326364,0.129764948332,0.130543445598,0.131109840869,0.131633578755,0.131949954357,0.132525829046,0.133025868386,0.13342992861,0.133883755784,0.134368391068,0.134800889549,0.135050909218,0.135426531187,0.135689585057,0.136449123486,0.13694679297,0.137329524503,0.137862741808,0.138128165533,0.138433876788,0.138933916128,0.139394852865,0.139704118902,0.140009830157,0.14002641914,0.140128322892,0.140279993592,0.140275253883,0.140418630091,0.140321466049,0.14016031593,0.140043008123,0.139605769933,0.139641317753,0.139603400078,0.139439880104,0.13928109984,0.139118764794,0.138862820487,0.138961169457,0.138778690646,0.13865190342,0.138739588043,0.138591472125,0.138432691861,0.138298795071,0.138302349853,0.138317753909,0.13825021305,0.138025076854,0.138128165533,0.137905399193,0.137769132548,0.137625756339,0.137248949443,0.137250134371,0.136918354714,0.13679986198,0.13659012984,0.136311671914,0.136163555995,0.136228726999,0.136218062653,0.136175405269,0.136163555995,0.135918276035,0.135859029668,0.135668256365,0.135527250011,0.135445490024,0.135116080222,0.134807999113,0.134536650751,0.134107707052,0.133773557541,0.133653879879,0.133688242772,0.133348168624,0.133112368082,0.132824430737,0.132730821477,0.132569671358,0.132404966457,0.132297138069,0.132253295757,0.131881228571,0.131428586325,0.131018601463,0.130753177738,0.130751992811,0.130365706496,0.130090803352,0.129818270063,0.129469901424,0.129204477698,0.128979341503,0.128671260393,0.128657041265,0.128606089389,0.128098940485,0.127693695333,0.127308593946,0.127082272823,0.126806184752,0.126314439904,0.126272967447,0.126049016179,0.125775297962,0.125448258015,0.125239710802,0.125188758926,0.124853424487,0.124482542228,0.124102180551,0.123976578252,0.123480093695,0.123108026508,0.122679082809,0.122343748371,0.121838969322,0.121407655768,0.121011890035,0.120516590405,0.120351885504,0.119991667591,0.119438306521,0.119183547142,0.118911013852,0.118589898542,0.118369502056,0.117884866772,0.117710682452,0.117449998436,0.11717154051,0.116786439123,0.116530494816,0.116041119823,0.115523306573,0.11504696578,0.114629871355,0.114670158885,0.114221071421,0.114078880139,0.113460348065,0.113409396189,0.113210328396,0.112984007273,0.112914096559,0.112705549347,0.112502926771,0.111959045119,0.111725614432,0.111310889861,0.111053760628,0.110482625647,0.110232605978,0.109856984009,0.109448184075,0.109242006717,0.108893638078,0.10849550249,0.108337907153,0.107945696202,0.107783361155,0.107737148989,0.107433807589,0.107158904445,0.106957466796,0.106591324246,0.106556961353,0.106468091802,0.106099579398,0.105985826373,0.105842450164,0.105372034008,0.105149267668,0.105079356954,0.104717954114,0.104510591829,0.104158668407,0.103903909028,0.103709580943,0.103542506188,0.103196507403,0.102890796148,0.10260404373,0.10222486698,0.101958258327,0.101684540111,0.101485472317,0.101133548895,0.100882344298,0.100603886372,0.10014057978,0.0998881902557,0.0995706297273,0.0992909868738,0.0990113440204,0.0987435504405,0.0984662774417,0.0983442299252,0.0982648397931,0.0979851969397,0.0978335262395,0.0977730949449,0.0976534172831,0.0973180828444,0.0971593025802,0.0969069130557,0.0964625653013,0.0960667995681,0.0956260065958,0.0953060762126,0.095035912778,0.0945643116947,0.0942514908756,0.0942822989866,0.0939054920908,0.093583191853,0.0932905147988,0.0930535293298,0.0927087154724,0.0923887850893,0.0923212442306,0.0920380465951,0.0916766437549,0.0912050426716,0.0910818102277,0.0909526531471,0.0908898519978,0.0905462230678,0.0902784294878,0.0900639576384,0.0897333629091,0.089619609884,0.0893020493555,0.0890662488139,0.0887794963964,0.0881384507028,0.0876099731069,0.0871478514423,0.0868148868584,0.0861833205835,0.0854794737406,0.0847602228422,0.0840765197641,0.0833063169899,0.0826759356423,0.082468573357,0.0821095403714,0.0816154256686,0.0811935915337,0.0809897840304,0.0806497098824,0.0804150942681,0.0804778954174,0.0805181829471,0.0802338003843,0.0799565273856,0.079765754083,0.0797444253908,0.079391317042,0.0791187837527,0.0791045646245,0.0787976684422,0.0785381693536,0.0781127804368,0.0780973763813,0.0779776987194,0.0776127410972,0.0774184130126,0.0774634402517,0.0770961127747,0.0769005997628,0.0766790183493,0.0764609917178,0.0763910810045,0.0763128757997,0.0759953152712,0.0758471993531,0.0757476654561,0.0754739472395,0.0756777547428,0.0754158857995,0.0754348446371,0.0752843588643,0.0751374278735,0.0748340864732,0.0748139427083,0.0747404772129,0.0745947311495,0.074407512629,0.0739892332762,0.0739323567636,0.0738387475034,0.0737107753501,0.0734856391545,0.0734145435138,0.0731988867371,0.0730495858916,0.0728884357727,0.072748614346,0.0725969436458,0.0724677865652,0.0723101912283,0.0721028289429,0.0721691848743,0.0720210689561,0.0717556452309,0.0716608510433,0.0715482829455,0.0713421055875,0.071402536882,0.0712816742929,0.0713231467499,0.0712295374897,0.071096825627,0.0709807027472,0.0711335583747,0.0710600928793,0.0709143468159,0.0708029636455,0.0708088882822,0.0707543816243,0.0705695329585,0.070481848335,0.0701595480971,0.0699936582688,0.0697175701975,0.069606187027,0.0695789336981,0.0696109267364,0.0692921812806,0.0691748734735,0.069022017846,0.0690077987178,0.0690172781366,0.0688466485989,0.0688253199067,0.0687637036847,0.0687482996293,0.0687423749925,0.0689201140943,0.0689378880045,0.0691085175421,0.06902912741,0.0689983192991,0.0690777094312,0.069090743632,0.0690694149398,0.068926038731,0.0688549430903,0.0687660735394,0.0687506694839,0.0684058556266,0.0683655680968,0.0684165199727,0.068352533896,0.0683347599859,0.0683158011483,0.0682482602897,0.0682233768154,0.0680847403161,0.0680041652566,0.0679733571456,0.0678868574494,0.0677778441337,0.0677304470399,0.0676925293649,0.067600105032,0.0676522418351,0.067469763024,0.0674259207122,0.0672659555207,0.0673749688364,0.0672801746488,0.0673927427466,0.0673524552169,0.0673074279777,0.0672138187175,0.0672221132089,0.06732875667,0.0673832633278,0.0673761537638,0.0674128865115,0.0675147902631,0.0674519891138,0.06740459202,0.0673998523107,0.0674567288232,0.0673180923239,0.0671533874229,0.067026600197,0.0669495799196,0.0667019301045,0.0667125944506,0.0665715880965,0.0665348553488,0.0664779788362,0.0664483556526,0.0663334177002,0.0664519104347,0.0665004924558,0.0666284646091,0.0668370118218,0.0666687521388,0.0669318060094,0.0668796692062,0.0668322721124,0.0667161492326,0.066789614728,0.0667718408178,0.0666308344638,0.066556184041,0.0663997736315,0.0664459857979,0.0662338838032,0.0660596994835,0.0659317273302,0.0659660902232,0.065979124424,0.0659127684927,0.0659376519669,0.0660525899194,0.0661485690343,0.0661770072906,0.0662303290211,0.0664850884003,0.0665715880965,0.06658343737,0.0666071359169,0.0666000263528,0.0667054848865,0.0665680333145,0.0665111568019,0.0665289307121,0.0665952866434,0.0665348553488,0.0665040472378,0.0665230060754,0.0664412460886,0.0665052321652,0.0665455196949,0.0665976564981,0.0666201701176,0.0665384101308,0.0663511916103,0.0664791637636,0.066556184041,0.0666723069208,0.0666474234466,0.0666794164849,0.0666497933013,0.0666142454809,0.066720888942,0.0667990941467,0.066854785732,0.0666948205404,0.0666118756262,0.0664424310159,0.0664791637636,0.0665076020199,0.0664673144901,0.0665858072246,0.0665455196949,0.0665064170925,0.0665372252035,0.0666663822841,0.066724443724,0.0668358268944,0.0667848750186,0.0667362929975,0.06679316951,0.0667659161811,0.066827532403,0.0669152170266,0.0670147509235,0.0669460251375,0.0669472100649,0.0669531347016,0.0670443741072,0.0671486477135,0.0670455590345,0.0669507648469,0.066820422839,0.0668772993515,0.0668784842789,0.0670052715048,0.0669981619407,0.0670052715048,0.0670360796157,0.0669341758641,0.0670858465642,0.0672280378456,0.0673880030372,0.0674365850584,0.0673038731957,0.0673832633278,0.067335866234,0.0674057769474,0.0675681119936,0.067572851703,0.067431845349,0.067431845349,0.0675361189553,0.0673832633278,0.067572851703,0.0673180923239,0.0674756876607,0.0674034070927,0.0673962975286,0.0674117015841,0.0675941803952,0.0676546116898,0.0675574476475,0.0676818650188,0.067565742139,0.0677055635657,0.0676925293649,0.0677185977665,0.0677494058774,0.0678951519409,0.0679342545432,0.0678276110822,0.0678809328127,0.0678287960095,0.0677790290611,0.0677968029712,0.0678382754283,0.0678856725221,0.0676783102367,0.0677316319673,0.0677020087836,0.067802727608,0.0676700157453,0.0676735705273,0.0677896934072,0.0678643438299,0.067802727608,0.0678915971588,0.0681143634997,0.0679543983081,0.0677802139884,0.067703193711,0.0609479229172,0.0541985767601,0.0473970937998,0.0405956108395,0.0)
ycorr <- c(5.78927461584e-05,5.77584526393e-05,5.73593778719e-05,5.6694767537e-05,5.57615657441e-05,5.45600520576e-05,5.30899238141e-05,5.16080016983e-05,5.0113159808e-05,4.86077802245e-05,4.70871691737e-05,4.55532439283e-05,4.40090874119e-05,4.2454648684e-05,4.08886744048e-05,3.93093461326e-05,3.77200093139e-05,3.6121196452e-05,3.45156360939e-05,3.29015972198e-05,3.12797006449e-05,2.96481731153e-05,2.80028497309e-05,2.63432300106e-05,2.46651451016e-05,2.29693467239e-05,2.12548689124e-05,1.95209579859e-05,1.77675545027e-05,1.59944219215e-05,1.42002715137e-05,1.23863837586e-05,1.0552391499e-05,8.69742745278e-06,6.82461047023e-06,4.93585423012e-06,3.02836993987e-06,1.10565089477e-06,-8.36831338062e-07,-2.80069286733e-06,-4.78779600895e-06,-6.79498072811e-06,-8.82441750763e-06,-1.08720074684e-05,-1.29396685081e-05,-1.50286955596e-05,-1.71366083009e-05,-1.92669258056e-05,-2.14196238546e-05,-2.35922969285e-05,-2.57811682797e-05,-2.79881646828e-05,-3.02122931601e-05,-3.24558680272e-05,-3.47190456828e-05,-3.7000096761e-05,-3.93006695467e-05,-4.16192496385e-05,-4.39518058041e-05,-4.6297270194e-05,-4.86602520746e-05,-5.10420527677e-05,-5.34392826228e-05,-5.58513391215e-05,-5.82762249237e-05,-6.07132669067e-05,-6.31631056748e-05,-6.56251460746e-05,-6.8101181843e-05,-7.05888910141e-05,-7.30854555758e-05,-7.55848407934e-05,-7.80858104593e-05,-8.05882976636e-05,-8.30898160042e-05,-8.55885486044e-05,-8.80808460693e-05,-9.0562424944e-05,-9.30267905382e-05,-9.54770854127e-05,-9.79140627821e-05,-0.000100338961945,-0.000102750933357,-0.000105148860047,-0.000107531991016,-0.000109902889329,-0.000112260728728,-0.000114607586193,-0.000116947608245,-0.000119283620117,-0.000121610683837,-0.000123928174304,-0.000126238867688,-0.000128542541809,-0.000130839333366,-0.000133129099368,-0.000135413301279,-0.000137691756052,-0.000139964657325,-0.000142228400623,-0.00014448178214,-0.000146726512498,-0.000148959769464,-0.000151181024336,-0.000153390492322,-0.000155587344448,-0.000157772730453,-0.000159945645196,-0.000162107917225,-0.000164258679441,-0.000166399678538,-0.000168532581742,-0.000170655976891,-0.000172772298794,-0.000174880518382,-0.000176981889088,-0.000179075485128,-0.000181161076676,-0.000183236459203,-0.000185300630843,-0.00018735409323,-0.000189397186495,-0.000191433874267,-0.000193461617203,-0.000195480010543,-0.00019748818699,-0.000199487045632,-0.000201479009961,-0.000203462201668,-0.000205436729859,-0.000207403726884,-0.000209361294267,-0.000211306339212,-0.000213234943181,-0.000215150176375,-0.000217054132921,-0.000218945028041,-0.000220820254396,-0.000222680615352,-0.000224527092524,-0.000226360207975,-0.000228179846772,-0.000229986866934,-0.00023178570381,-0.0002335786047,-0.000235361719935,-0.000237132139458,-0.000238891451941,-0.000240641276442,-0.000242381261178,-0.000244108088759,-0.000245824698285,-0.000247529316355,-0.000249223095323,-0.00025090282032,-0.000252568593415,-0.000254225101883,-0.000255871346194,-0.000257507124827,-0.000259130184918,-0.000260743630805,-0.000262347217972,-0.000263939790758,-0.00026552032983,-0.000267089236172,-0.000268644600696,-0.000270185406135,-0.000271711330863,-0.000273222190545,-0.000274720266448,-0.000276204768815,-0.000277670658317,-0.000279122365056,-0.000280558431297,-0.000281980118968,-0.000283387631212,-0.000284780579033,-0.000286159938125,-0.000287527119024,-0.000288884241186,-0.000290229478397,-0.000291564981943,-0.000292889811458,-0.000294201708062,-0.000295499098469,-0.000296784716887,-0.000298062825062,-0.000299334695942,-0.000300599720144,-0.000301851870596,-0.000303093321642,-0.000304324926132,-0.000305548642146,-0.000306769036502,-0.000307988891712,-0.000309206612243,-0.000310417817038,-0.000311618424417,-0.000312808697209,-0.000313990474067,-0.000315167036418,-0.000316338107061,-0.00031750200947,-0.000318656782702,-0.000319801322861,-0.000320935292127,-0.000322059550645,-0.000323179871424,-0.00032429393593,-0.000325404672636,-0.000326510659579,-0.000327610702794,-0.000328702622247,-0.000329788765581,-0.000330868644556,-0.000331945702754,-0.000333020762797,-0.00033409177442,-0.000335157730013,-0.00033622113064,-0.000337278097756,-0.000338329695361,-0.000339379421756,-0.00034042507177,-0.000341466523386,-0.000342501662814,-0.000343526919039,-0.000344542596042,-0.000345553253888,-0.000346554990418,-0.000347547178625,-0.000348532123637,-0.0003495081385,-0.000350475389739,-0.000351436845018,-0.000352393303364,-0.000353345823037,-0.000354293647815,-0.000355236076938,-0.000356170062215,-0.000357099792262,-0.000358024515842,-0.000358943588342,-0.000359856342677,-0.000360761462602,-0.000361657808913,-0.000362546344893,-0.000363431068405,-0.000364310588141,-0.000365186545167,-0.000366061425775,-0.000366934158769,-0.000367803604376,-0.000368670004987,-0.000369533393023,-0.000370390918784,-0.000371243211208,-0.000372086743255,-0.000372919397383,-0.000373741599527,-0.000374549709353,-0.000375345292901,-0.000376131280827,-0.000376909124722,-0.000377678970942,-0.000378441185507,-0.000379199025688,-0.000379952215017,-0.000380701367709,-0.000381449938603,-0.000382196956474,-0.00038294203844,-0.000383681801532,-0.000384415165662,-0.000385142738352,-0.000385867357354,-0.000386586860609,-0.000387299940934,-0.000388008537577,-0.000388711667235,-0.000389409112314,-0.000390101660326,-0.000390790981334,-0.000391476941677,-0.000392153720537,-0.000392820078578,-0.000393471722579,-0.000394111205951,-0.000394734988654,-0.000395338860663,-0.000395921417623,-0.000396475756961,-0.000397000510959,-0.000397496160734,-0.000397966692277,-0.000398415757669,-0.000398844018043,-0.000399252698362,-0.000399643075091,-0.0004000181816,-0.000400380744083,-0.000400739188315,-0.000401098990389,-0.000401461547044,-0.000401826653444,-0.000402190981011,-0.000402555764891,-0.000402919454035,-0.00040328305063,-0.00040364861114,-0.000404015048695,-0.000404380828018,-0.00040473886548,-0.000405088638268,-0.000405431572543,-0.000405766191662,-0.000406093382724,-0.000406413895565,-0.000406726309665,-0.000407030550439,-0.000407324140107,-0.000407609642518,-0.000407890478422,-0.000408169326073,-0.000408442494631,-0.000408710929669,-0.00040897728774,-0.000409239038272,-0.000409498287111,-0.000409755291367,-0.000410011023566,-0.000410264231032,-0.000410513688277,-0.000410756737388,-0.000410993882514,-0.000411226879978,-0.000411453986314,-0.000411674795157,-0.000411889924433,-0.000412097800366,-0.000412302086642,-0.000412500808245,-0.000412693942399,-0.000412881648747,-0.000413064058369,-0.00041324075814,-0.00041341244117,-0.000413580035038,-0.000413741767715,-0.000413899507567,-0.00041405128384,-0.000414196411278,-0.000414337143063,-0.000414474151479,-0.00041460613458,-0.00041473412805,-0.000414856577126,-0.000414972452177,-0.000415084427916,-0.000415192148958,-0.000415295590294,-0.000415393301587,-0.000415485461781,-0.000415569963963,-0.000415649856863,-0.000415725139763,-0.000415794871014,-0.000415859146441,-0.000415919058932,-0.000415970951986,-0.000416015234647,-0.000416051878972,-0.000416078844398,-0.000416096377553,-0.000416103227939,-0.00041609794583,-0.000416083631262,-0.000416061686711,-0.000416028988611,-0.000415986289984,-0.00041593380667,-0.000415872666027,-0.000415802805626,-0.000415724861135,-0.00041563943247,-0.000415547224522,-0.000415446656422,-0.000415337112318,-0.000415220288931,-0.000415099430384,-0.000414973952339,-0.000414842778196,-0.000414704829772,-0.000414560553551,-0.000414411586536,-0.000414256805513,-0.00041409508243,-0.000413925140551,-0.000413745789204,-0.000413553877166,-0.000413346317812,-0.000413123476018,-0.000412888173697,-0.000412640707025,-0.000412380207043,-0.000412106241043,-0.000411818207072,-0.000411517740751,-0.000411203982777,-0.000410877516798,-0.00041053907371,-0.000410190949058,-0.000409830433522,-0.000409456180286,-0.000409067412671,-0.000408664287119,-0.000408247802012,-0.000407816504895,-0.000407370374585,-0.000406909217436,-0.000406435283408,-0.000405946489063,-0.000405444952244,-0.000404930506595,-0.000404402340364,-0.000403860912654,-0.000403306872826,-0.00040274072882,-0.000402165009165,-0.000401578717252,-0.000400981814685,-0.000400372037237,-0.000399750345614,-0.000399114973521,-0.000398467883371,-0.000397807843866,-0.000397132411329,-0.00039643867693,-0.000395724188295,-0.000394988091923,-0.000394229901084,-0.000393453306411,-0.000392656635993,-0.000391841072314,-0.000391005359196,-0.000390149226426,-0.000389273503208,-0.000388382570552,-0.00038747825419,-0.000386562314641,-0.000385636061894,-0.000384697262003,-0.000383745331872,-0.000382778756556,-0.000381797291633,-0.000380800810594,-0.000379788785602,-0.000378760047118,-0.000377710899349,-0.000376640817948,-0.00037554776353,-0.000374430824868,-0.000373291343115,-0.000372126127095,-0.000370936123558,-0.000369721056504,-0.000368483345372,-0.000367223003151,-0.000365942243904,-0.000364642679756,-0.000363323980407,-0.000361986420505,-0.000360629196682,-0.000359255753445,-0.000357867109916,-0.000356463963209,-0.000355044328372,-0.00035360496944,-0.000352144845438,-0.000350661813876,-0.000349155616747,-0.000347627284736,-0.000346078245187,-0.000344507358649,-0.000342911609186,-0.000341290549099,-0.000339643538575,-0.000337973434555,-0.000336282297733,-0.00033457052063,-0.000332838782151,-0.000331084713709,-0.000329304183883,-0.000327497506797,-0.000325666795702,-0.000323814807382,-0.000321940995778,-0.000320046538073,-0.000318128975633,-0.000316187295106,-0.000314222500924,-0.000312234807156,-0.000310227613944,-0.00030820119846,-0.000306152955232,-0.000304078636569,-0.000301978264631,-0.000299852048869,-0.000297699477464,-0.000295521904696,-0.000293318099691,-0.000291086937439,-0.000288827474827,-0.000286541048633,-0.000284229423131,-0.000281894983922,-0.000279538722313,-0.000277159158141,-0.000274757163795,-0.000272331701876,-0.000269882842676,-0.000267413081855,-0.000264922576102,-0.000262410352494,-0.000259874491098,-0.000257316336118,-0.000254735557608,-0.000252134049956,-0.000249510100074,-0.000246862162712,-0.000244190289586,-0.000241494367586,-0.000238773626768,-0.000236028977101,-0.000233261624264,-0.000230470126142,-0.000227653543707,-0.000224809506043,-0.000221938999646,-0.000219044956286,-0.00021612990419,-0.000213194281798,-0.000210236419975,-0.000207257862523,-0.000204256723552,-0.000201234403433,-0.000198193522994,-0.000195133625184,-0.000192054327685,-0.000188955752407,-0.000185835980383,-0.000182691527745,-0.000179525244953,-0.000176334514011,-0.000173120768663,-0.00016988296106,-0.000166620423533,-0.000163332289535,-0.00016002159049,-0.000156690114222,-0.000153336224182,-0.000149962362836,-0.000146569018865,-0.000143155323065,-0.000139723896875,-0.000136273139402,-0.000132805489916,-0.00012932220217,-0.000125821699328,-0.000122299396499,-0.000118756739967,-0.000115193441916,-0.00011160716063,-0.000108001475737,-0.000104375276648,-0.000100729229713,-9.70593077768e-05,-9.33665079717e-05,-8.96497909439e-05,-8.59111111324e-05,-8.21506612272e-05,-7.83676172419e-05,-7.45644835261e-05,-7.07409609336e-05,-6.68942351781e-05,-6.302619427e-05,-5.91392403735e-05,-5.52333998377e-05,-5.13061069912e-05,-4.73579881203e-05,-4.33234682349e-05,-3.91369365159e-05,-3.47388933495e-05,-3.00794773944e-05,-2.47954316966e-05,-2.01250405017e-05,-1.57153844529e-05,-1.15221666918e-05,-7.49556987563e-06,-3.57300565109e-06,3.0827558845e-07,4.0830643119e-06,7.68268753123e-06,1.10481112605e-05,1.41307940698e-05,1.65660232405e-05,1.95894805095e-05,2.28521577892e-05,2.63120633484e-05,2.99173600341e-05,3.36041594935e-05,3.73094670159e-05,4.10337805478e-05,4.47763867852e-05,4.85363133464e-05,5.23138250933e-05,5.61100458001e-05,5.99253378166e-05,6.37579671268e-05,6.76068757945e-05,7.14712583081e-05,7.53518860859e-05,7.92503341729e-05,8.31633016173e-05,8.7094588181e-05,9.10436558457e-05,9.5009873897e-05,9.89922751449e-05,0.000102991489605,0.000107004942572,0.000111033548322,0.000115076209722,0.000119131157392,0.000123202428403,0.000127290814931,0.000131392851321,0.00013550854893,0.000139636644852,0.000143777841832,0.000147932708724,0.000152102465996,0.000156288470795,0.000160490784385,0.00016470833439,0.000168934386303,0.000173173516967,0.000177426473876,0.000181693571116,0.000185975296784,0.000190271432879,0.000194584347867,0.00019891193382,0.000203253004264,0.000207605577734,0.000211972649446,0.00021635494497,0.000220748853991,0.000225153903562,0.00022956932692,0.000233995965139,0.000238432011231,0.000242874030773,0.000247323807101,0.000251782897817,0.000256252332142,0.000260730782779,0.000265219072956,0.000269718853482,0.000274231853177,0.000278756423421,0.000283291725509,0.000287837340809,0.00029239281073,0.000296958026175,0.000301529363431,0.000306107515805,0.00031069231079,0.000315280801051,0.000319870984812,0.000324461711521,0.0003290526584,0.000333644043796,0.000338234911501,0.000342824173293,0.000347413923708,0.000352001474317,0.000356585887735,0.000361169797157,0.000365753078298,0.000370335542948,0.000374914926111,0.000379494025189,0.000384070159736,0.000388644241524,0.000393214149355,0.000397777814439,0.000402335504891,0.000406884692935,0.000411421546968,0.000415945305962,0.000420456723509,0.000424952928138,0.000429434308574,0.000433901884272,0.000438357826841,0.000442802058852,0.000447235455471,0.000451657899518,0.000456071019831,0.000460472233361,0.000464862212185,0.000469239723192,0.000473607212123,0.000477961511372,0.000482299502973,0.000486619440826,0.000490920987511,0.000495202639544,0.000499461919243,0.000503703261385,0.00050792736825,0.000512135227934,0.000516324272973,0.000520493256922,0.000524641848414,0.0005287716184,0.000532879425466,0.000536964810499,0.00054103025358,0.000545074655363,0.000549092134803,0.000553082804057,0.00055704584628,0.000560981759812,0.000564889292287,0.00056876937509,0.000572622162901,0.000576449496241,0.000580248743186,0.00058401678052,0.000587753778424,0.000591459183052,0.000595130426174,0.000598767336253,0.000602369198431,0.000605934739607,0.00060946137843,0.00061294884447,0.000616396225387,0.000619805827643,0.00062317665392,0.000626509014918,0.000629803884026,0.000633061043174,0.00063627864715,0.000639458251101,0.000642601207628,0.000645705709913,0.000648769433124,0.00065179025639,0.000654768077536,0.000657701265595,0.000660591514148,0.000663437422258,0.000666240461561,0.000668998522887,0.000671709445572,0.000674372287421,0.000676989321369,0.000679561687176,0.000682090323015,0.00068457444057,0.000687013149619,0.000689404447985,0.000691745897932,0.00069403756977,0.000696280179323,0.000698475685046,0.000700622821789,0.000702720133402,0.000704766576829,0.000706762898107,0.000708708764993,0.000710604962328,0.00071245495589,0.000714259650926,0.000716017083264,0.000717727020186,0.000719389093453,0.000721005552305,0.000722576004085,0.000724101146871,0.000725577517369,0.000727005527272,0.000728383802729,0.000729710352559,0.000730987632991,0.000732214431526,0.000733390624606,0.000734511414941,0.000735576567767,0.0007365867464,0.000737543240533,0.000738448969012,0.000739302831013,0.000740104819493,0.000740855885149,0.000741554038472,0.000742201344653,0.000742800411636,0.000743355164904,0.000743861994852,0.000744323253459,0.000744736282772,0.000745099664929,0.00074541391147,0.000745679955785,0.000745898142608,0.000746067815009,0.000746188558898,0.000746256240569,0.000746271389054,0.000746233010845,0.000746140975861,0.000745997657986,0.000745804462214,0.000745560716114,0.000745265891045,0.000744918954417,0.000744520507262,0.000744070981843,0.000743572665102,0.000743025627305,0.000742431182988,0.00074178819299,0.00074109456478,0.000740348898321,0.00073955248835,0.000738707386741,0.000737814352583,0.000736873774496,0.000735888169917,0.00073485496416,0.000733774530193,0.000732648726436,0.00073147629968,0.000730258998097,0.000728996857743,0.000727688742218,0.000726332697168,0.000724929645568,0.000723478077156,0.000721978407399,0.000720431742176,0.000718837145286,0.000717197087355,0.000715511794262,0.000713780586154,0.000712004530761,0.00071018588074,0.00070832465597,0.000706420409308,0.000704475894747,0.000702488352588,0.000700460383998,0.000698391682548,0.000696280978375,0.0006941299678,0.000691938836396,0.00068970780348,0.000687437146269,0.000685128845824,0.0006827812227,0.000680396822745,0.000677974582629,0.000675515000274,0.000673019439172,0.000670487438549,0.000667919632527,0.000665317662077,0.000662680555036,0.000660006678359,0.000657296128785,0.000654547021097,0.000651759667504,0.000648935367174,0.000646073033553,0.000643173493143,0.000640237033567,0.000637262125949,0.000634249311525,0.000631198636645,0.000628112609057,0.000624990095896,0.000621832353552,0.000618636834377,0.000615404318074,0.000612135032749,0.000608828846051,0.000605484992104,0.000602104427125,0.000598686961674,0.00059523131871,0.000591741417509,0.000588219300119,0.000584666032261,0.000581081635393,0.000577466054546,0.000573820865012,0.000570145184174,0.000566440946833,0.000562709137995,0.000558951328031,0.000555167233229,0.000551352302066,0.000547504042625,0.00054362355809,0.000539714765964,0.000535777335341,0.000531812842878,0.000527820614968,0.000523799913319,0.000519751381444,0.000515673351026,0.000511568755335,0.000507439340587,0.000503288653743,0.000499115946248,0.000494918336752,0.000490695778,0.000486447958143,0.000482175193709,0.000477878560856,0.000473557345684,0.000469210527986,0.000464842742256,0.000460451093137,0.000456033762867,0.00045159165225,0.000447124563871,0.000442635805153,0.000438126295041,0.000433595703985,0.000429046455339,0.000424480095625,0.000419896836731,0.000415295322888,0.000410677075447,0.000406043689424,0.000401397944906,0.000396738471391,0.000392063479435,0.00038737412702,0.000382669993838,0.000377949928169,0.000373211659469,0.000368456371833,0.00036368419842,0.000358897050333,0.000354094061764,0.000349276979434,0.000344448248271,0.000339606968782,0.000334752099358,0.000329888119994,0.000325014808557,0.000320134662661,0.000315246602898,0.000310349594676,0.000305444280981,0.000300529391867,0.000295603066439,0.000290664078277,0.000285716706378,0.000280757957198,0.000275788577229,0.000270809275727,0.000265820042534,0.000260823605318,0.000255820636645,0.000250810481582,0.000245795748198,0.000240777924576,0.000235758910343,0.000230737278562,0.000225716099732,0.000220692791009,0.000215670681939,0.000210650130136,0.000205631459352,0.000200614418498,0.000195600262804,0.000190590387627,0.000185583832203,0.000180584153291,0.000175590932446,0.000170604481231,0.000165626689185,0.000160654851846,0.000155687273142,0.000150725642734,0.000145772383526,0.000140829668717,0.000135898651431,0.000130977456921,0.000126064121503,0.000121160930662,0.00011626533528,0.000111378357306,0.000106502515514,0.000101640923848,9.67912344918e-05,9.19498070014e-05,8.71147873841e-05,8.22839902614e-05,7.74626432668e-05,7.26531106516e-05,6.78563958702e-05,6.30743174864e-05,5.83067528338e-05,5.355425812e-05,4.88150814761e-05,4.40908852899e-05,3.93824011922e-05,3.46929385065e-05,3.0020633374e-05,2.53635198822e-05,2.0719449218e-05,1.60873413575e-05,1.1469355669e-05,6.86328621584e-06,2.26967930033e-06,-2.30857310979e-06,-6.87109517668e-06,-1.14162674852e-05,-1.59424164151e-05,-2.04490904197e-05,-2.49347096325e-05,-2.94001011911e-05,-3.38444919316e-05,-3.82668745184e-05,-4.26654354928e-05,-4.70418653012e-05,-5.13960565884e-05,-5.57270794818e-05,-6.00366732041e-05,-6.43289696727e-05,-6.86016961711e-05,-7.28545309995e-05,-7.70869283787e-05,-8.12986299513e-05,-8.54892894241e-05,-8.96592012162e-05,-9.38082125403e-05,-9.79394464282e-05,-0.000102053484169,-0.000106142603016,-0.000110208878435,-0.000114249133776,-0.000118264694608,-0.000122255433022,-0.000126221292072,-0.000130162587982,-0.000134079218081,-0.000137966927746,-0.000141823297822,-0.000145652587403,-0.000149455497058,-0.000153230405757,-0.0001569797102,-0.000160704406108,-0.000164405328849,-0.000168081468709,-0.000171731347294,-0.00017535601734,-0.000178958799862,-0.000182536371514,-0.000186086602293,-0.000189612852663,-0.000193113321595,-0.000196586143293,-0.000200028479792,-0.000203437534335,-0.000206815443204,-0.000210163517297,-0.00021347837066,-0.000216762094995,-0.000220014823419,-0.000223235346603,-0.000226423123389,-0.000229580883604,-0.000232710036485,-0.000235814406645,-0.000238894512209,-0.00024194857279,-0.000244977316979,-0.000247981253776,-0.000250959177011,-0.000253913814423,-0.00025684332471,-0.00025974834854,-0.000262627568653,-0.000265479162578,-0.000268299863343,-0.00027109038573,-0.000273853291838,-0.000276587412717,-0.000279294320852,-0.000281973663189,-0.000284625505235,-0.000287249404355,-0.000289844899094,-0.000292411395977,-0.000294951416346,-0.000297465160749,-0.000299952086939,-0.000302411849835,-0.000304843772618,-0.000307245622449,-0.000309619569515,-0.000311964548022,-0.00031428038431,-0.000316568271414,-0.000318828306565,-0.000321058921307,-0.000323259773258,-0.000325430197193,-0.000327570784542,-0.000329683769249,-0.000331767608977,-0.00033382029578,-0.000335843597631,-0.000337838965989,-0.000339802940062,-0.000341734767509,-0.000343634838279,-0.000345504414627,-0.00034734377429,-0.000349150514062,-0.000350924315776,-0.000352668098789,-0.000354381002605,-0.000356062705677,-0.000357714470843,-0.000359341320292,-0.000360943710434,-0.000362520869826,-0.000364071764429,-0.000365597182211,-0.000367097761819,-0.000368573948123,-0.000370026169827,-0.000371453797433,-0.000372857911532,-0.000374236001105,-0.000375584098071,-0.000376903374234,-0.000378196138217,-0.000379462176538,-0.000380702871795,-0.000381916487611,-0.000383100530132,-0.00038425424418,-0.000385379296365,-0.000386473972744,-0.000387540777955,-0.000388582014583,-0.000389596644104,-0.000390581182046,-0.000391534723656,-0.000392455485697,-0.000393347119865,-0.000394210264838,-0.000395046232453,-0.000395855048717,-0.000396636552619,-0.000397390237783,-0.000398114477258,-0.00039881201215,-0.000399484937099,-0.000400136096767,-0.000400765062424,-0.000401371466048,-0.000401951328738,-0.000402504524582,-0.000403031357736,-0.000403531703211,-0.000404004493379,-0.00040445234416,-0.000404871744837,-0.000405264526896,-0.000405632165747,-0.000405974947006,-0.000406294775163,-0.000406598377426,-0.000406865037629,-0.000407074839848,-0.000407229903755,-0.000407333364002,-0.000407383761423)
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(221)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('C2C12-myocyte-H3K27ac-17874-vs-17875.pooled.sorted.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) : 221',bty='n')
dev.off()