# R script for Peak Model
#  -- generated by MACS
p <- c(0.0409105144046,0.0477218741537,0.0546444181661,0.061606670844,0.0685159786346,0.0684762699692,0.0686456936085,0.0688468841801,0.0689210070223,0.0691963204362,0.0695828181134,0.0695431094479,0.0694716338501,0.0694080999854,0.0692148511468,0.0692995629664,0.0693419188763,0.0693260354101,0.0691195503497,0.0688786511125,0.0686827550296,0.0689924826202,0.0690586637293,0.0691486700377,0.0692863267446,0.0692413235904,0.0688336479583,0.0688865928456,0.0689845408871,0.0689660101765,0.0689342432442,0.0687012857401,0.0684656809917,0.0684683282361,0.0685371565895,0.0684392085481,0.0685901014768,0.0684948006797,0.0682300762433,0.0682539014426,0.0681135974913,0.0682539014426,0.0684445030368,0.0681903675778,0.0679362321189,0.0681215392244,0.068177131356,0.0681162447356,0.0683624384615,0.0685318621008,0.0685795124994,0.068489506191,0.0685106841459,0.0684392085481,0.0685053896572,0.0683200825517,0.0684100888601,0.0683306715291,0.0682777266418,0.0679865297618,0.0678224006112,0.0681268337131,0.0682671376644,0.0683412605066,0.0684206778375,0.0684127361044,0.0683756746833,0.0685053896572,0.0684683282361,0.0686006904543,0.0688918873343,0.0685318621008,0.0683439077509,0.0682803738862,0.0682036037996,0.0682141927771,0.0680341801603,0.068060652604,0.0681850730891,0.0680685943371,0.0678700510098,0.0677906336788,0.068031532916,0.0679944714949,0.0680924195363,0.0678674037654,0.0680818305589,0.0680421218934,0.0685000951684,0.0684656809917,0.0683994998826,0.0683439077509,0.0679282903858,0.06811889198,0.0682724321531,0.0684153833488,0.0683174353073,0.0681056557582,0.0677244525697,0.0680341801603,0.0681374226905,0.0681718368673,0.0681691896229,0.0678991706978,0.0675497344417,0.0676370935057,0.067690038393,0.0677112163479,0.0676159155508,0.067377663558,0.0674782588438,0.0675470871973,0.0674491391558,0.0674914950657,0.067777397457,0.0677403360359,0.0677985754119,0.0681215392244,0.0682883156193,0.0683915581495,0.068235370732,0.0683756746833,0.0684206778375,0.0686192211648,0.0684418557924,0.0684736227248,0.0684762699692,0.0684524447699,0.0681586006455,0.0679547628294,0.0681559534011,0.067952115585,0.0683041990855,0.0684206778375,0.068380969172,0.0683094935742,0.0678462258105,0.0676953328817,0.0678806399872,0.0679468210963,0.0678568147879,0.0678806399872,0.0679441738519,0.0676820966599,0.0677218053254,0.0678568147879,0.0683094935742,0.068351849484,0.0683253770404,0.0683942053939,0.0685371565895,0.0686033376986,0.0683386132622,0.0685398038339,0.0683994998826,0.068380969172,0.0682327234876,0.0682300762433,0.0682300762433,0.0682168400215,0.0682803738862,0.0681003612694,0.06811889198,0.0683068463298,0.0685636290332,0.0684153833488,0.0685265676121,0.0685927487212,0.0687595251161,0.0690586637293,0.0690242495525,0.0692836795002,0.0694080999854,0.0692995629664,0.0694875173163,0.0698448953055,0.069979904768,0.0701625646292,0.070038144144,0.0697548889971,0.0696569409556,0.0696781189105,0.0695960543352,0.0695431094479,0.0694478086508,0.0694028054966,0.0693260354101,0.0693630968312,0.0694689866057,0.0695828181134,0.0696595882,0.0697045913542,0.0697919504182,0.070059322099,0.0701413866742,0.0699137236589,0.0697734197076,0.0695034007825,0.0696648826887,0.0697654779745,0.069834306328,0.0701863898284,0.0703822859114,0.0704961174191,0.0706178906598,0.0708746733631,0.0709779158933,0.0713061741945,0.0710493914912,0.0713511773487,0.0715126592549,0.0714253001909,0.071375002548,0.0710996891341,0.071033508025,0.0711685174876,0.0713697080592,0.0713326466381,0.0715020702775,0.0715682513866,0.0715285427211,0.0714835395669,0.0718117978681,0.0721347616805,0.0723015380754,0.0723385994965,0.0726774467752,0.0726456798428,0.0727462751286,0.0726747995308,0.0729845271214,0.073119536584,0.0730877696516,0.0731010058734,0.0732121901367,0.0733471995993,0.0732571932909,0.0737204610547,0.0740963697544,0.0743213855253,0.0741175477093,0.0742499099275,0.074202259529,0.0743452107246,0.0744749256985,0.0745966989392,0.0747899477778,0.0747873005334,0.0747925950222,0.0748905430637,0.0753299856281,0.0752664517634,0.0754358754027,0.0753617525605,0.0754835258012,0.0755841210871,0.0757032470835,0.0757403085046,0.0758011951249,0.0755152927336,0.0752664517634,0.0754782313125,0.0759891494748,0.0763438802196,0.0764127085731,0.0765000676371,0.07640476684,0.0764285920393,0.0766112519004,0.0772360015703,0.0773524803224,0.0773577748111,0.0774186614315,0.0774318976533,0.0776886803566,0.0779004599058,0.0781890095415,0.0784219670455,0.0784219670455,0.0785966851736,0.0788799403205,0.079319382885,0.079065247426,0.0793061466632,0.0792373183097,0.0792637907533,0.0794093891934,0.0798382427804,0.0800870837506,0.0800076664197,0.0801426758823,0.0800050191753,0.0802379766794,0.0801823845477,0.080518584582,0.0807436003529,0.0808944932817,0.0809209657253,0.0811115673196,0.0815933657938,0.0823822446144,0.0834543785819,0.0845768101923,0.085948082773,0.0868428513681,0.0879785192003,0.0893815587134,0.0904775178802,0.0919785054347,0.0929685748269,0.0937495119143,0.0945410379792,0.0951843183597,0.0956343499016,0.0958937798493,0.0961002649097,0.0963252806807,0.0966138303164,0.0964708791207,0.0967514870233,0.0969579720837,0.09711945399,0.0972015185653,0.0974556540242,0.0977945013028,0.0980751092054,0.0981783517357,0.098406014751,0.0989089911802,0.0990228226878,0.0991101817519,0.099126065218,0.0993881424101,0.0991101817519,0.0993193140566,0.0997455203993,0.0996846337789,0.099809054264,0.0998858243506,0.10015849052,0.100597933085,0.100732942547,0.100589991351,0.101090320536,0.101439756792,0.101580060744,0.102143923793,0.102522479737,0.102766026219,0.103131345941,0.103255766426,0.103472840464,0.103758742855,0.10394934445,0.104171712976,0.1044893823,0.104457615368,0.104539679943,0.104690572872,0.104579388608,0.104624391763,0.104973828019,0.105143251658,0.105045303616,0.105296791831,0.105140604414,0.105092954015,0.105257083166,0.105182960323,0.105055892594,0.105140604414,0.105283555609,0.105587988711,0.10592683599,0.105802415505,0.105852713148,0.106244505313,0.106273625001,0.10673954001,0.107245163683,0.107605188917,0.107435765277,0.108026100771,0.108330533872,0.108629672486,0.109095587494,0.109270305622,0.109643567077,0.10988181907,0.109948000179,0.110030064754,0.110898360906,0.110773940421,0.110983072725,0.111255738895,0.111493990888,0.111951964163,0.112068442915,0.112412584682,0.1129208556,0.113167049326,0.112894383156,0.113172343815,0.113376181631,0.11354560527,0.113577372202,0.113553547003,0.113857980105,0.113889747037,0.113955928146,0.113963869879,0.113992989567,0.114090937609,0.114210063605,0.114411254177,0.114736865234,0.114781868388,0.114808340832,0.115239841663,0.115258372374,0.115716345649,0.116216674833,0.116317270119,0.116592583533,0.116862602458,0.11681495206,0.117135268628,0.117254394624,0.117299397778,0.11762765608,0.118037978956,0.118443007344,0.118453596321,0.118723615246,0.118633608938,0.119131290878,0.119366895627,0.120036648451,0.119904286233,0.120200777602,0.120002234274,0.120150479959,0.120706401275,0.120703754031,0.120865235937,0.12110348793,0.121360270633,0.120841410738,0.121360270633,0.121561461205,0.122075026611,0.122180916386,0.12212267701,0.122172974653,0.122752721169,0.12297773694,0.123300700752,0.123777204738,0.123554836211,0.123544247234,0.12322657791,0.123369529106,0.123740143317,0.123999573264,0.123861916557,0.12357866141,0.123163044045,0.123358940128,0.123922803178,0.124449604806,0.124693151288,0.124796393818,0.124616381201,0.124984348168,0.125312606469,0.125487324597,0.125688515169,0.125643512014,0.125029351322,0.124309300855,0.124301359122,0.124023398463,0.124341067787,0.12434900952,0.124526374893,0.124380776453,0.124642853645,0.124608439468,0.124984348168,0.12541055451,0.125746754545,0.125910883695,0.125521738774,0.125672631702,0.125352315134,0.125921472673,0.125900294718,0.126088249068,0.12655681132,0.126503866433,0.126313264839,0.126527691632,0.126760649136,0.126408565636,0.126437685324,0.126236494752,0.126387387681,0.12626561444,0.1257679325,0.125969123071,0.125749401789,0.125508502552,0.125399965533,0.12507700172,0.124846691461,0.124309300855,0.124126640994,0.124049870907,0.123824855136,0.12328746453,0.123358940128,0.123073037737,0.122871847165,0.122938028274,0.123088921203,0.123030681827,0.122596533751,0.122104146299,0.122022081724,0.121669998224,0.121307325746,0.121193494238,0.121537636005,0.121259675347,0.120923475313,0.120851999715,0.121039954065,0.121272911569,0.121090251708,0.121333798189,0.121521752539,0.121399979299,0.120380790218,0.120139890981,0.119795749214,0.119658092507,0.119504552334,0.119303361762,0.118948631017,0.118842741243,0.118268289216,0.117934736426,0.117754723809,0.117174977293,0.117127326895,0.11706379303,0.116526402424,0.116298739409,0.11600224804,0.115591925163,0.115425148769,0.115544274765,0.115750759825,0.11635433154,0.116203438612,0.115636928318,0.115414559791,0.115430443257,0.115726934626,0.115427796013,0.115724287382,0.116134610258,0.11652375518,0.116957903255,0.11851977743,0.120386084707,0.122249744739,0.123676609452,0.124325184321,0.125389376555,0.125026704078,0.123981042554,0.123512480301,0.12254094162,0.120576686301,0.118948631017,0.116976433966,0.114866580208,0.113802387973,0.112703781562,0.112370228772,0.112221983088,0.111740184614,0.111695181459,0.111036017613,0.110511863229,0.110133307284,0.109683275743,0.108979108742,0.107869913353,0.106866607739,0.105924188745,0.104648216962,0.102953980569,0.101625063898,0.0997216952,0.0979162745436,0.0962935137483,0.094895768724,0.0942869025203,0.093347130771,0.0921505763183,0.0915178849153,0.0911340344825,0.0909990250199,0.0911049147945,0.0908031289369,0.0909169604446,0.0902869162859,0.0897177587476,0.0896436359054,0.0896277524392,0.0895986327512,0.0892677272057,0.0892597854726,0.0891777208973,0.0893630280028,0.0890983035664,0.0893286138261,0.0893550862697,0.089378911469,0.089349791781,0.0890400641904,0.0890294752129,0.0886244468252,0.0882988357684,0.0882061822157,0.0883544279,0.0882167711931,0.0878699821814,0.0874067144177,0.0870784561165,0.0870863978496,0.0868454986124,0.0870837506052,0.0867343143491,0.0865198875556,0.0861836875214,0.0860275001039,0.0858448402428,0.0857124780246,0.0856595331373,0.0856198244718,0.085577468562,0.0852042071066,0.0852439157721,0.085119495287,0.0847091724105,0.0848335928956,0.0847674117865,0.0843544416657,0.0841214841617,0.0834729092924,0.0831684761906,0.0830122887731,0.0830572919273,0.0829514021527,0.0828905155323,0.0830016997956,0.0829222824647,0.0832214210778,0.0828746320661,0.0830149360174,0.0830255249949,0.0827608005585,0.0823743028813,0.0821572288434,0.0819666272492,0.0816171909931,0.0814239421545,0.0812571657596,0.0814504145982,0.0813709972672,0.0811962791392,0.0811433342519,0.0811883374061,0.0810506806992,0.0810427389661,0.0807541893304,0.0806482995558,0.0803544554314,0.0803173940103,0.0799626632655,0.080118850683,0.0798832459346,0.0795841073214,0.0791949623999,0.079202904133,0.0790546584486,0.0790890726253,0.0791473120013,0.0790440694711,0.0789540631627,0.0782922520717,0.0782128347407,0.0781890095415,0.0781678315865,0.0781731260753,0.0782843103386,0.0779957607029,0.0779216378607,0.0772942409464,0.0774742535631,0.0775986740482,0.0775139622286,0.0773339496118,0.0772227653485,0.0768839180699,0.076237990445,0.076288288088,0.0760420943621,0.0763491747083,0.0759891494748,0.0760659195614,0.0757270722827,0.0755523541547,0.0754517588689,0.0753617525605,0.0755682376209,0.0750255525262,0.0751711509663,0.0751208533233,0.0752452738085,0.0747846532891,0.0751790926994,0.0751235005677,0.0751923289212,0.0750679084361,0.0748005367553,0.0750202580375,0.0746417020934,0.0743584469464,0.0739216516263,0.0739613602918,0.0736119240357,0.0736172185245,0.0733922027535,0.073090416896,0.0731301255614,0.0729501129447,0.0731460090276,0.0732174846255,0.0732121901367,0.0733101381782,0.0730295302756,0.0729792326327,0.0728786373468,0.0729051097905,0.0726377381097,0.0727409806399,0.072124172703,0.0720474026165,0.0717932671575,0.0716211962738,0.0717429695146,0.0715735458753,0.0715232482324,0.0714200057022,0.071774736447,0.0714597143676,0.0717350277815,0.0714835395669,0.071666199428,0.0714120639691,0.0712505820629,0.0713299993938,0.0714014749916,0.0713432356156,0.0709329127391,0.0707634890998,0.070517295374,0.0705993599493,0.0706417158591,0.07072113319,0.0706496575922,0.0705570040394,0.0702313929826,0.0703531662234,0.070263159915,0.0706814245245,0.0706390686147,0.070517295374,0.0702499236932,0.0701943315615,0.0702763961368,0.0701493284073,0.0703399300016,0.0702790433812,0.0704140528438,0.0700143189448,0.0699957882342,0.0698951929484,0.0699110764146,0.0698819567266,0.069776066952,0.069630468512,0.0693842747861,0.0691592590151,0.0690771944398,0.0690401330187,0.0690295440413,0.0692995629664,0.0694451614065,0.0695431094479,0.0694425141621,0.069521931493,0.0695828181134,0.0699587268131,0.0699640213018,0.0700513803659,0.0700407913884,0.0696940023767,0.0694186889628,0.0692730905228,0.0695431094479,0.0695589929141,0.069638410245,0.0694080999854,0.0692386763461,0.0691645535039,0.0689739519096,0.0688971818231,0.0689898353758,0.0689924826202,0.0690745471955,0.068801881026,0.0690454275075,0.0690877834173,0.0692439708348,0.0692730905228,0.0691857314588,0.0692916212333,0.0691274920828,0.0687648196049,0.0684047943713,0.0684445030368,0.0682512541982,0.0682274289989,0.068206251044,0.0681162447356,0.0682565486869,0.0683306715291,0.0682962573524,0.0682909628637,0.0681956620666,0.068460386503,0.0683650857059,0.0680844778033,0.067952115585,0.0680844778033,0.0680844778033,0.0679918242505,0.0682909628637,0.0685874542325,0.0687701140936,0.0687621723605,0.0687145219619,0.0688442369358,0.0687012857401,0.0683597912171,0.0684392085481,0.068576865255,0.0683677329502,0.0683571439728,0.0683412605066,0.0680844778033,0.0677932809232,0.0678515202992,0.0681109502469,0.0681638951342,0.0682909628637,0.0679971187392,0.0679441738519,0.0677244525697,0.0678435785661,0.067893876209,0.0681321282018,0.0679679990512,0.0680077077167,0.0681691896229,0.06797329354,0.0681294809574,0.0681718368673,0.0681559534011,0.0682512541982,0.0684206778375,0.0684074416157,0.0685398038339,0.0683465549953,0.0684815644579,0.0686139266761,0.0689104180449,0.0685953959655,0.0687939392929,0.0684868589466,0.0682115455327,0.0682671376644,0.067893876209,0.0681691896229,0.0680580053596,0.0680103549611,0.0677297470584,0.0679547628294,0.0679547628294,0.0679150541639,0.0679971187392,0.0678515202992,0.0681400699349,0.0679785880287,0.0681083030025,0.06797329354,0.0677509250134,0.0679097596752,0.0682194872658,0.0685212731233,0.0688204117365,0.0691619062595,0.0692969157221,0.0693154464326,0.0692572070566,0.0694213362072,0.0696410574894,0.0695007535381,0.0693551550981,0.069005718842,0.0689633629322,0.0686377518754,0.0685000951684,0.0684392085481,0.0687542306274,0.068722463695,0.0688230589809,0.0692704432784,0.0691380810602,0.0696728244218,0.0697548889971,0.0699904937455,0.0702128622721,0.0704167000881,0.0703849331558,0.0704352307987,0.0703981693776,0.0701149142306,0.0703452244903,0.0702313929826,0.0699269598807,0.0698713677491,0.0698448953055,0.0698263645949,0.0694292779403,0.0695192842487,0.0695007535381,0.0696595882,0.0696516464669,0.0695086952712,0.0696198795345,0.0696781189105,0.0697945976625,0.0698078338844,0.070038144144,0.070059322099,0.0700222606779,0.0700037299673,0.0701996260503,0.0701863898284,0.0702896323586,0.0701943315615,0.0701943315615,0.0701069724975,0.0700328496553,0.070009024456,0.0702605126706,0.0705940654605,0.0704934701747,0.0703902276445,0.0705093536409,0.0708561426526,0.070779372566,0.0708137867428,0.0710202718032,0.0710202718032,0.0709540906941,0.0705940654605,0.0705305315958,0.0706152434154,0.0706178906598,0.0706099489267,0.0704431725318,0.0705384733289,0.0700063772117,0.0698766622378,0.0700460858771,0.0702022732946,0.0699772575237,0.0701228559637,0.0701096197419,0.0699931409899,0.0701837425841,0.0700778528095,0.0704775867085,0.0705067063965,0.0703531662234,0.0700963835201,0.0702684544037,0.0701863898284,0.0700354968997,0.0700354968997,0.0701440339186,0.0701043252531,0.0702684544037,0.0703558134677,0.0704458197761,0.0706496575922,0.0706073016824,0.0707476056337,0.0706575993253,0.0704352307987,0.0704167000881,0.0704299363099,0.0704537615092,0.0703637552008,0.0705781819943,0.0705675930169,0.070858789897,0.0709037930511,0.0710520387355,0.0713273521494,0.0713670608149,0.0713247049051,0.0713220576607,0.0715073647662,0.0712505820629,0.0713273521494,0.0712770545065,0.0710758639348,0.0711817537094,0.0709646796715,0.0710652749574,0.0713273521494,0.0710176245588,0.0708402591864,0.0711685174876,0.0709090875399,0.070837611942,0.0706152434154,0.0704167000881,0.070408758355,0.070466997731,0.0703531662234,0.0706549520809,0.0707767253217,0.0704484670205,0.0703875804001,0.0703849331558,0.0706946607464,0.0709408544722,0.071149986777,0.0710705694461,0.0713591190818,0.0713511773487,0.0713352938825,0.0713564718374,0.0715761931197,0.0716847301386,0.0719176876426,0.071832975823,0.071891215199,0.0720791695489,0.0719573963081,0.0716556104506,0.0717562057364,0.0717800309357,0.0718859207103,0.0716979663604,0.0716026655633,0.0715311899655,0.0715285427211,0.0714120639691,0.0713247049051,0.0714888340556,0.0715973710746,0.0715047175218,0.0715153064993,0.0714438309014,0.0713141159276,0.0712161678861,0.0710652749574,0.0708323174533,0.0708826150962,0.070895851318,0.0707105442126,0.0705411205732,0.07057553475,0.0706787772802,0.0707026024795,0.0709435017166,0.0710414497581,0.0710838056679,0.0709276182504,0.0710414497581,0.0708932040737,0.0711552812657,0.0711552812657,0.0711552812657,0.0711235143334,0.0710864529123,0.0709832103821,0.0710440970024,0.0708746733631,0.0707264276787,0.0709540906941,0.0707184859456,0.0707952560322,0.0710599804686,0.070887909585,0.0708243757202,0.0707634890998,0.0705570040394,0.0708111394984,0.0708799678519,0.0707396639006,0.0708031977653,0.0705728875056,0.0702234512495,0.0703002213361,0.0702816906256,0.0707634890998,0.0709355599835,0.0708270229646,0.0706390686147,0.0706073016824,0.0707131914569,0.0707423111449,0.0705384733289,0.0704696449754,0.0704034638663,0.0698131283731,0.069863426016,0.0698131283731,0.0700354968997,0.0700249079222,0.0700037299673,0.0697628307302,0.069834306328,0.070175800851,0.0701837425841,0.0700699110764,0.0699931409899,0.0701652118735,0.070088441787,0.0704219945769,0.0704008166219,0.070459055998,0.0705014119078,0.0703478717347,0.0699137236589,0.0702313929826,0.069921665392,0.0697257693091,0.0693286826544,0.0694133944741,0.0695536984254,0.069630468512,0.0698528370385,0.0699666685462,0.0705384733289,0.0702393347157,0.0704643504867,0.070662893814,0.0709143820286,0.0705622985282,0.0705649457725,0.0704458197761,0.0703002213361,0.0701281504524,0.0699110764146,0.0700116717004,0.0699825520124,0.0698025393956,0.0695934070909,0.0695695818916,0.0692916212333,0.0692810322559,0.0692174983911,0.0689792463984,0.0692148511468,0.0693207409213,0.0691857314588,0.0692651487897,0.069376333053,0.0695298732261,0.069463692117,0.0695166370043,0.0695139897599,0.0694186889628,0.0692042621693,0.0622102425591,0.0553644686332,0.0483280931131,0.0415034971422,0.0)
m <- c(0.0410047302274,0.0479737039161,0.055136333897,0.0621663225819,0.0689257230231,0.0690928510559,0.0693024243035,0.0689071532416,0.0691220321411,0.0692520206111,0.0693395638664,0.0692705903925,0.0688567495492,0.0688540967233,0.0691591717039,0.0690557114931,0.0689151117194,0.0689681682378,0.0686683989089,0.0689628625859,0.0688912362861,0.0687134969496,0.068798387379,0.068665746083,0.0686604404312,0.0685543273944,0.0683871993615,0.0685171878316,0.0686445234757,0.0683182258876,0.0682890448025,0.0684906595724,0.068371282406,0.0683527126246,0.0682174185027,0.0681006941623,0.0684163804466,0.0685808556536,0.0687453308606,0.0689310286749,0.0688647080269,0.0688673608528,0.0690822397523,0.0692440621333,0.0691379490966,0.0693395638664,0.0692838545221,0.0691644773558,0.0691618245298,0.0690610171449,0.0694350655995,0.0694377184254,0.0697215707987,0.0695836238509,0.0696870840618,0.0697030010173,0.0697905442726,0.0699603251314,0.0699682836092,0.0699815477388,0.0699337968722,0.0703131509786,0.0702176492455,0.0702282605492,0.0703953885821,0.0703609018451,0.0703104981527,0.070103577731,0.0700584796904,0.0701778568567,0.0702786642417,0.0699709364351,0.0699364496981,0.0699391025241,0.0697640160134,0.0698197253577,0.0697189179728,0.0698727818761,0.0701168418606,0.0702813170676,0.070496195967,0.0707296446479,0.0708357576846,0.0707322974738,0.0707429087775,0.0705439468335,0.0707986181218,0.0708649387697,0.0708437161624,0.0706474070444,0.0703051925009,0.0700372570831,0.0697321821024,0.0704245696672,0.0706341429148,0.0709710518065,0.0709498291991,0.0710081913693,0.0709392178955,0.071116957232,0.0713769341721,0.0716820091527,0.0717403713229,0.0712071533133,0.0711938891837,0.071246945702,0.0713000022204,0.0708463689883,0.0710639007136,0.0708331048587,0.0705333355299,0.0704855846633,0.0705704750927,0.0706102674815,0.0704882374893,0.0706978107368,0.0707429087775,0.071148791143,0.0710930817987,0.0714989641643,0.0716899676305,0.0715201867717,0.0713424474351,0.0713928511276,0.0714140737349,0.0711753194022,0.0711434854912,0.0711143044061,0.0708012709477,0.0702521359825,0.0704033470599,0.0702786642417,0.0706686296517,0.0709683989806,0.0712973493945,0.0715387565531,0.0716050772011,0.0715732432901,0.0717164958897,0.0721860460773,0.0720613632591,0.0722735893326,0.072130336733,0.0719074993558,0.071607730027,0.0712920437427,0.0713716285202,0.0714857000347,0.0717111902378,0.071870359793,0.0719287219632,0.0719711671779,0.0719207634854,0.0721170726034,0.0724168419322,0.0723372571547,0.072098502822,0.0719632087001,0.0718836239226,0.0716289526344,0.0715944658974,0.0713981567794,0.0714220322127,0.0711673609245,0.0708782028993,0.0709153424622,0.070724338996,0.070758825733,0.0707827011662,0.0707800483403,0.0708118822514,0.0711540967949,0.0712363343984,0.0714352963423,0.071509575468,0.0713955039535,0.071607730027,0.0716130356788,0.0718173032746,0.0719525973964,0.0719366804409,0.071607730027,0.0714061152572,0.0710347196285,0.0710347196285,0.0712098061392,0.071249598528,0.0712071533133,0.0711434854912,0.0708251463809,0.0706871994332,0.0705041544448,0.0705784335705,0.0706739353036,0.0707004635628,0.070432528145,0.0702282605492,0.0702256077233,0.0698382951391,0.0699709364351,0.0701221475125,0.0703609018451,0.0705439468335,0.0706898522591,0.0705996561778,0.0707933124699,0.0710585950618,0.0710798176692,0.0712018476614,0.0712708211353,0.0709498291991,0.0709763574583,0.0707641313848,0.0708622859438,0.0708543274661,0.0710241083249,0.0709126896363,0.070822493555,0.070822493555,0.0704935431411,0.0707614785589,0.070822493555,0.0706898522591,0.0706314900889,0.0708039237736,0.0706792409554,0.0707508672552,0.0708596331179,0.0710134970212,0.0710745120173,0.0707429087775,0.0702972340231,0.07033172076,0.0701301059902,0.0699948118684,0.0699842005647,0.0700266457794,0.0698170725318,0.0696074992842,0.0699231855685,0.070236219027,0.0704988487929,0.0705757807446,0.0709047311585,0.070822493555,0.0706978107368,0.0703688603229,0.0700929664273,0.0700903136014,0.0697958499244,0.0695783181991,0.0698250310095,0.0697560575357,0.0695677068954,0.0695385258103,0.0694562882068,0.0695119975511,0.0695597484177,0.0693952732107,0.069679125584,0.0696101521101,0.0693342582146,0.0694615938587,0.0690451001894,0.0692122282223,0.0692758960443,0.0691008095337,0.0692812016962,0.0694907749438,0.0692626319148,0.0691856999631,0.0690053078006,0.068893889112,0.0691963112668,0.0690159191043,0.0688275684641,0.0688434854196,0.0689442928045,0.0691008095337,0.0688806249824,0.0688832778084,0.0688355269418,0.0686126895646,0.0684110747948,0.0684880067465,0.0686286065202,0.0687824704234,0.0687904289012,0.0683978106652,0.0684482143577,0.0688275684641,0.0691618245298,0.0695252616807,0.0696234162397,0.0693820090811,0.0691777414854,0.0692997714776,0.0692812016962,0.0695730125473,0.0696207634138,0.0693740506033,0.0693236469109,0.0690557114931,0.0691034623596,0.0692918129999,0.0694801636401,0.0694377184254,0.0693952732107,0.0690928510559,0.0691459075743,0.06883022129,0.0685171878316,0.0685490217426,0.0687851232494,0.0688089986826,0.0685569802203,0.0684031163171,0.0684482143577,0.068174973288,0.0681510978548,0.0685543273944,0.0687028856459,0.0686259536942,0.0683023089321,0.0682253769805,0.0684216860985,0.0684773954428,0.0684880067465,0.0689151117194,0.0689257230231,0.0688647080269,0.0688169571604,0.0689124588935,0.0691087680115,0.0691379490966,0.0691432547484,0.0691167264892,0.0688540967233,0.068795734553,0.0684800482687,0.0683765880579,0.0684296445762,0.0682041543731,0.0680237622107,0.067686853319,0.0674772800714,0.067456057464,0.06758869876,0.0676788948412,0.0678539813519,0.0677399098373,0.0675117668083,0.067785007878,0.067750521141,0.0678698983074,0.068079471555,0.0681564035066,0.0679654000404,0.0678566341778,0.0680582489476,0.0681802789399,0.0684110747948,0.0682068071991,0.0682784334989,0.068501270876,0.0684933123983,0.0685702443499,0.068798387379,0.0686551347793,0.0683871993615,0.0684667841391,0.0683606711024,0.0685596330463,0.0684482143577,0.0683023089321,0.0685065765279,0.0684827010946,0.0685437160908,0.0689416399786,0.0692042697445,0.0692944658258,0.0694562882068,0.0695836238509,0.0696419860211,0.0698489064428,0.0695650540695,0.0695358729844,0.0695464842881,0.0693820090811,0.0694218014699,0.0694722051623,0.0695677068954,0.0694085373403,0.0692334508296,0.0692652847407,0.0697295292765,0.0700425627349,0.0700558268645,0.0700876607755,0.070135411642,0.0702309133751,0.0702096907678,0.0705863920482,0.0711302213616,0.0710983874506,0.070952482025,0.0706341429148,0.0706792409554,0.0706659768258,0.0705757807446,0.070366207497,0.070398041408,0.0700001175202,0.0696897368877,0.0697931970985,0.0696552501507,0.0698701290502,0.0699868533906,0.0698250310095,0.069809114054,0.0698515592687,0.0698886988316,0.0702839698935,0.0703158038045,0.0701566342494,0.0702866227194,0.0701778568567,0.0701858153345,0.0702733585898,0.0703449848896,0.0704882374893,0.0708490218142,0.0704617092301,0.0705386411817,0.070758825733,0.0708596331179,0.0712416400502,0.0712628626576,0.0717775108858,0.0719950426111,0.0724168419322,0.0724645927988,0.0726635547427,0.0728439469052,0.0725945812688,0.0727670149535,0.0725335662727,0.0725627473578,0.0725627473578,0.0724433701914,0.0723054232437,0.0720931971701,0.0721595178181,0.07216482347,0.0725096908394,0.0721860460773,0.072260325203,0.0725600945319,0.0724592871469,0.0728280299497,0.072522954969,0.0725388719245,0.0730561729787,0.0733055386151,0.0733798177408,0.0741040392166,0.0741279146499,0.0741783183423,0.0743083068124,0.0742711672495,0.0749502906847,0.0753057693578,0.0751757808878,0.0751863921915,0.0752447543617,0.0750351811141,0.0752500600136,0.0751784337137,0.0751651695842,0.0753402560948,0.0751253771954,0.0751333356731,0.0755975802089,0.0756161499904,0.0758681684526,0.0760724360484,0.0761705906074,0.0763775110291,0.0767409481799,0.0766348351432,0.0769054233869,0.0768258386093,0.0766136125358,0.0765499447138,0.0767197255726,0.076804616002,0.0770221477273,0.0770035779459,0.0770088835977,0.0771707059788,0.0772715133637,0.0776986183366,0.0776137279072,0.0778630935436,0.077817995503,0.0779612481026,0.0781920439575,0.0784812019827,0.0784652850272,0.0785979263231,0.0785979263231,0.0786191489305,0.0787146506635,0.0789799332554,0.0790807406403,0.0792160347622,0.0790064615146,0.0789985030369,0.0790515595552,0.0790886991181,0.0791735895475,0.0793805099692,0.079940256238,0.0801551351375,0.0802267614373,0.0802426783928,0.0807520209692,0.0810836242091,0.0812878918048,0.0818264154663,0.0821421017507,0.0821341432729,0.082033335888,0.0824763578164,0.0827389875824,0.0827283762787,0.0828530590969,0.0829750890892,0.083014881478,0.0827469460602,0.08268858389,0.0828689760524,0.083243024507,0.0833199564586,0.083537488184,0.0838346046869,0.0837762425167,0.0836170729615,0.0839725516347,0.084420879215,0.0846012713774,0.0850310291763,0.0851901987314,0.0849965424393,0.0852883532904,0.0854103832827,0.0856438319635,0.0862539819249,0.0861372575844,0.0864821249539,0.0866359888572,0.0867500603717,0.0869118827527,0.0871081918707,0.0870259542672,0.0872779727295,0.0874079611996,0.0871479842595,0.0874716290216,0.087262055774,0.0873204179442,0.0873814329404,0.0872753199036,0.0874053083736,0.087556519451,0.0878164963911,0.0880685148533,0.088145446805,0.0882993107083,0.0882674767973,0.0885831630816,0.0886521365555,0.0889386417547,0.0888351815439,0.0890314906619,0.0889890454472,0.0890102680545,0.0894877767199,0.0898379497412,0.0901775114588,0.0903525979695,0.0902570962364,0.0903950431842,0.0909839705381,0.0909813177122,0.0913606718186,0.091771859836,0.091968168954,0.0922361043718,0.0927985034666,0.0934829325537,0.0945705911804,0.095236450486,0.0968148819077,0.0987540976544,0.100152136914,0.101661594861,0.103123301943,0.104553175113,0.105985701109,0.107060095606,0.107882471641,0.109190314819,0.109529876537,0.109954328684,0.110858942322,0.111219726647,0.111734374875,0.112278204189,0.112689392206,0.113251791301,0.114212114283,0.11524141074,0.116244178937,0.117748331233,0.119252483529,0.121252714272,0.123197235671,0.124131030394,0.125027685554,0.125781088115,0.125574167694,0.124974629036,0.124526301456,0.1233537524,0.121995505529,0.120050984131,0.11850438662,0.117488354293,0.116894121287,0.11661292174,0.116498850225,0.116384778711,0.116512114355,0.116557212396,0.116594351959,0.117164709531,0.117217766049,0.117557327767,0.11746447886,0.117337143216,0.117541410812,0.117496312771,0.117437950601,0.117517535378,0.117546716463,0.117676704933,0.117814651881,0.11823114555,0.118767016386,0.119074744193,0.119546947206,0.120072206738,0.120239334771,0.120488700407,0.120822956473,0.12098743168,0.121480857301,0.121433106434,0.121443717738,0.121770015326,0.121719611634,0.122075090307,0.121918573578,0.12189735097,0.121807154889,0.122181203344,0.121735528589,0.122075090307,0.122133452477,0.121961018792,0.121947754663,0.122189161821,0.122751560916,0.123239680885,0.123645563251,0.123706578247,0.124056751268,0.12433529799,0.124621803189,0.124563441019,0.124884432955,0.124863210348,0.124934836647,0.124958712081,0.125226647498,0.125269092713,0.125584778997,0.125786393767,0.126163095048,0.126656520669,0.126996082386,0.127218919763,0.127335644104,0.127425840185,0.12733829693,0.127176474549,0.127022610645,0.126850176961,0.126592852847,0.126874052394,0.126476128506,0.126099427226,0.126157789396,0.126738758272,0.12654510198,0.126651215017,0.126489392636,0.126332875907,0.126059634837,0.125539680957,0.125672322253,0.125722725945,0.125728031597,0.125200119239,0.125465401831,0.12557682052,0.125948216148,0.126160442222,0.126186970481,0.126234721348,0.126465517203,0.126468170028,0.126513268069,0.126436336117,0.126194928959,0.125988008537,0.125905770934,0.125799657897,0.126107385703,0.125945563322,0.125664363775,0.12596678593,0.12570680899,0.125306232276,0.125515805524,0.125407039661,0.125086047725,0.12485525187,0.124473244937,0.124486509067,0.124544871237,0.124035528661,0.123953291057,0.123695966943,0.12302214916,0.122812575912,0.123088469808,0.122865632431,0.12241730485,0.122226301384,0.121844294452,0.121600234467,0.121454329042,0.121464940346,0.121472898823,0.121021918417,0.120427685411,0.119928954139,0.120387893022,0.120133221734,0.120141180212,0.119764478932,0.119586739595,0.119268400485,0.119122495059,0.11921269114,0.119101272452,0.119191468533,0.118652944872,0.118456635754,0.117703233193,0.117440603427,0.117053290842,0.11714613975,0.117093083231,0.116758827165,0.116679242388,0.116448446533,0.116238873285,0.116180511115,0.116193775245,0.116167246986,0.115901964394,0.115814421138,0.115360787906,0.115310384214,0.115026531841,0.115063671403,0.114984086626,0.114525147742,0.114488008179,0.114525147742,0.114310268842,0.114031722121,0.113716035837,0.113670937796,0.113227915868,0.112763671332,0.111853752042,0.111816612479,0.111628261838,0.111400118809,0.111174628606,0.110537950386,0.110381433657,0.109768630869,0.109665170659,0.109508653929,0.110031260635,0.110049830417,0.109585585881,0.10894890766,0.108810960713,0.109068284827,0.108925032227,0.109009922657,0.108683625069,0.10871545898,0.108306923788,0.107633106005,0.107465977972,0.107216612335,0.106853175185,0.106373013693,0.106184663053,0.106067938713,0.10594590872,0.105587777221,0.105871629595,0.105635528088,0.105733682647,0.105778780687,0.105752252428,0.105383509626,0.105330453107,0.104651329672,0.10439931121,0.103990776018,0.103714882123,0.103778549945,0.103473474964,0.103539795612,0.103115343465,0.103136566072,0.102842102395,0.102974743691,0.102972090865,0.103070245424,0.102794351529,0.102505193504,0.102078088531,0.101937488757,0.101953405713,0.101802194635,0.101406923573,0.101032875119,0.100682702097,0.100478434502,0.0996772810741,0.0994809719562,0.0996719754223,0.0995446397782,0.0992767043604,0.0990777424165,0.0988522522134,0.098897350254,0.098865516343,0.0983508681147,0.0985896224474,0.0985604413623,0.0982606720335,0.0979715140083,0.098114766608,0.0980431403081,0.0977884690199,0.0973374886137,0.0973003490509,0.0970960814551,0.0967883536485,0.0968440629928,0.0966822406118,0.0964991956234,0.0961092302133,0.095727223281,0.0959155739212,0.0962683997685,0.0960773963023,0.095923532399,0.095499080252,0.0943265311959,0.0933768195169,0.0923501758863,0.0913553661668,0.0904480997025,0.0891376036986,0.087392044244,0.0858878919481,0.084484547037,0.0834738203619,0.0825002332497,0.0817998872071,0.0808475227023,0.0800596334044,0.0795874303908,0.0792160347622,0.0790701293367,0.0791072688995,0.0792637856287,0.0791311443328,0.0789985030369,0.0788897371742,0.0793990797506,0.0793831627951,0.0791072688995,0.0788181108744,0.0786271074082,0.0784201869866,0.0783485606867,0.0779108444101,0.0778737048473,0.0776243392109,0.0771494833714,0.0771521361974,0.076966438383,0.0774359885707,0.0774094603115,0.0773060001006,0.0770380646828,0.077064592942,0.0772768190155,0.0772025398898,0.0771866229343,0.0769956194681,0.0768523668685,0.0762926205997,0.0759822399672,0.0757726667196,0.075594927383,0.0755683991238,0.0755020784758,0.0755471765165,0.0753190334874,0.0751996563211,0.075170475236,0.0749794717698,0.0751280300213,0.0750219169845,0.074746023089,0.0747990796074,0.0746717439632,0.0744489065861,0.0742579031199,0.0741358731276,0.0739634394429,0.0739024244468,0.0738891603172,0.0735257231663,0.0736106135957,0.0731808557969,0.073045561675,0.072883739294,0.0730641314564,0.0731569803636,0.0732604405744,0.0735230703404,0.0732339123152,0.0733214555706,0.0731410634081,0.0731304521044,0.072883739294,0.0727059999574,0.0725707058355,0.0720693217369,0.0718915824003,0.0715228395976,0.0714644774274,0.0715679376382,0.071769552408,0.0716634393713,0.0714034624312,0.0715865074196,0.0715387565531,0.0714910056866,0.0717085374119,0.0716873148046,0.0716130356788,0.0714352963423,0.0710957346247,0.0711779722281,0.0711567496208,0.0708331048587,0.0706553655221,0.0706580183481,0.0701433701198,0.0698993101353,0.0699258383945,0.0697401405801,0.0697242236246,0.069517303203,0.0693607864737,0.069384661907,0.069254673437,0.069124684967,0.069318341259,0.0697056538432,0.069745446232,0.0696685142803,0.069580971025,0.0694881221179,0.0697799329689,0.0698144197059,0.0696287218916,0.0699046157871,0.0698913516575,0.0693369110405,0.06909019823,0.0689177645453,0.0689469456304,0.0688540967233,0.0686392178238,0.0685941197832,0.068732066731,0.0687904289012,0.0686710517349,0.06883022129,0.0686843158644,0.068633912172,0.0686843158644,0.0689098060675,0.0690344888857,0.0689469456304,0.0689071532416,0.0685728971759,0.0686153423906,0.0682386411101,0.0684243389244,0.0683367956691,0.0682916976285,0.0679574415627,0.06771868723,0.067750521141,0.0678645926555,0.0678698983074,0.0676152270192,0.0680476376439,0.0679892754737,0.068241293936,0.0683871993615,0.0683659767542,0.0682837391507,0.067880509611,0.0678301059186,0.0680051924292,0.0683314900172,0.0682174185027,0.0679203019998,0.0678539813519,0.0675568648489,0.0677770494002,0.0678354115704,0.0682943504544,0.0680317206884,0.067946830259,0.067652366582,0.0675807402822,0.0674825857232,0.0673048463867,0.0669918129282,0.066965284669,0.0668856998915,0.0666018475182,0.0665302212184,0.066771628377,0.0666708209921,0.0665275683924,0.0666628625143,0.0666495983847,0.0671350655279,0.0669201866284,0.0669918129282,0.0672252616091,0.0672570955201,0.0670501750984,0.0671668994389,0.0675940044118,0.0674534046381,0.0675568648489,0.0673446387754,0.0674321820308,0.0675409478934,0.0673313746458,0.0673419859495,0.0674613631159,0.0675462535453,0.0672756653015,0.0676948117967,0.0676788948412,0.0677160344041,0.0678513285259,0.0676072685414,0.0677133815782,0.0676895061449,0.0677133815782,0.0675940044118,0.067360555731,0.0672968879089,0.0676311439747,0.0677027702745,0.0675860459341,0.0677584796188,0.0676364496265,0.0675993100636,0.0676231854969,0.0677425626633,0.0681166111178,0.0680953885105,0.067785007878,0.0677770494002,0.0678911209147,0.0679256076517,0.0680635545994,0.0684163804466,0.0680900828586,0.06797866417,0.0678884680888,0.0680396791662,0.0678884680888,0.0678566341778,0.0677133815782,0.0676258383228,0.0675940044118,0.0674268763789,0.0674693215936,0.0675356422416,0.0673499444273,0.0672093446536,0.0675250309379,0.0676178798451,0.0677929663557,0.0678460228741,0.0681988487213,0.0683155730617,0.0685596330463,0.0684004634911,0.0683447541468,0.0681484450288,0.0684243389244,0.0681961958954,0.0681988487213,0.0682651693693,0.0678248002667,0.06797866417,0.0680635545994,0.0684455615318,0.0688514438973,0.068994696497,0.0686418706497,0.0685755500018,0.0685543273944,0.0685463689167,0.0686843158644,0.0684906595724,0.0683314900172,0.0682572108915,0.0680184565588,0.0679680528664,0.0682253769805,0.0687506365124,0.0686259536942,0.0686816630385,0.0687559421643,0.0686286065202,0.0684508671836,0.068177626114,0.068503923702,0.0684933123983,0.0682041543731,0.0677717437484,0.0680582489476,0.0679892754737,0.0680237622107,0.0681351808993,0.068405769143,0.0687373723828,0.0685490217426,0.0686630932571,0.0690000021488,0.0693103827813,0.0691061151855,0.0692414093074,0.0693554808219,0.0694430240772,0.0693501751701,0.0691644773558,0.0692785488703,0.062391812785,0.0553140732335,0.0483397938929,0.0415299897593,0.0)
ycorr <- c(6.56516062247e-05,6.54922727954e-05,6.5017881478e-05,6.42241061996e-05,6.31136387529e-05,6.16759981149e-05,5.98907883002e-05,5.8086495777e-05,5.62330052791e-05,5.43134488015e-05,5.23168844467e-05,5.02281166116e-05,4.8059763634e-05,4.58178524063e-05,4.35051521675e-05,4.11394634395e-05,3.87503011308e-05,3.63585022267e-05,3.39948830379e-05,3.16991158821e-05,2.95057495932e-05,2.74362672533e-05,2.5495360262e-05,2.36640469689e-05,2.1927026622e-05,2.02752902256e-05,1.86851290257e-05,1.71311887743e-05,1.56020125696e-05,1.40726330109e-05,1.2513318043e-05,1.09069131359e-05,9.24878797907e-06,7.5525630152e-06,5.83119113513e-06,4.08927411308e-06,2.33287002642e-06,5.68543018662e-07,-1.20212675048e-06,-2.97913351057e-06,-4.7598610524e-06,-6.53357133318e-06,-8.31077746722e-06,-1.00974797731e-05,-1.19016336053e-05,-1.37318776172e-05,-1.55851004349e-05,-1.74586034264e-05,-1.93518612825e-05,-2.12639372355e-05,-2.31912350663e-05,-2.51389179784e-05,-2.71021912193e-05,-2.90781055403e-05,-3.10638227342e-05,-3.30509527913e-05,-3.50348326076e-05,-3.70094696869e-05,-3.897496516e-05,-4.0929074563e-05,-4.28774563276e-05,-4.48161492728e-05,-4.67496868312e-05,-4.86790649907e-05,-5.05981920499e-05,-5.25084755366e-05,-5.44223713253e-05,-5.63446959664e-05,-5.82850574363e-05,-6.02474571882e-05,-6.2229466776e-05,-6.42243256537e-05,-6.62357670535e-05,-6.82554420928e-05,-7.02847729641e-05,-7.23283243324e-05,-7.43833170186e-05,-7.64447364375e-05,-7.85055664143e-05,-8.05645354024e-05,-8.26201598402e-05,-8.46812898245e-05,-8.67494454117e-05,-8.88292199559e-05,-9.09228487939e-05,-9.30335364754e-05,-9.5155271275e-05,-9.72895839619e-05,-9.94346624204e-05,-0.000101586731183,-0.000103740355701,-0.000105892107299,-0.000108038579481,-0.000110174305844,-0.000112301009713,-0.000114410124898,-0.000116499602308,-0.000118574238614,-0.000120640652895,-0.000122695949818,-0.000124745590238,-0.00012679201315,-0.000128835517825,-0.000130875215263,-0.000132909436932,-0.000134936907056,-0.000136960610237,-0.00013898006468,-0.000140988571694,-0.000142984388859,-0.000144973857364,-0.000146960584118,-0.000148945060715,-0.000150927174166,-0.000152909043231,-0.00015489931641,-0.000156898287912,-0.000158911790615,-0.000160939166323,-0.000162980199175,-0.000165025151903,-0.000167070148515,-0.000169108785051,-0.000171147049679,-0.000173183400859,-0.000175211450446,-0.000177230451336,-0.000179228687215,-0.000181198278613,-0.000183151330086,-0.000185093963113,-0.000187027359302,-0.000188951260163,-0.00019086288642,-0.000192758524733,-0.000194647736057,-0.000196530740557,-0.000198410782175,-0.000200291454395,-0.000202168804853,-0.000204034894841,-0.000205892628402,-0.00020774238212,-0.00020958463397,-0.000211425566685,-0.000213255914583,-0.000215068806541,-0.000216866709565,-0.000218651908859,-0.000220429689881,-0.000222202445637,-0.000223964797843,-0.000225712407177,-0.00022745541296,-0.000229191923378,-0.00023092692155,-0.000232661497545,-0.000234399496103,-0.000236135728422,-0.000237863032351,-0.000239582065931,-0.000241298740507,-0.000243018211006,-0.000244734722618,-0.000246439229332,-0.00024812525285,-0.00024978887515,-0.00025143416894,-0.000253065052013,-0.0002546879539,-0.000256301554922,-0.00025790642822,-0.000259500320101,-0.000261081943805,-0.000262657540713,-0.000264228365952,-0.000265805902645,-0.000267384378155,-0.000268967159776,-0.000270544038993,-0.000272117049266,-0.000273684396574,-0.000275248003224,-0.000276809886454,-0.000278365518437,-0.000279918876812,-0.000281471865021,-0.000283021146963,-0.000284567510031,-0.000286107823537,-0.000287648548224,-0.000289183076567,-0.000290711431412,-0.000292221583766,-0.000293723575572,-0.000295220329853,-0.000296705465746,-0.000298175850026,-0.000299628637032,-0.000301068233525,-0.000302489415168,-0.000303893297304,-0.000305285471197,-0.00030668027432,-0.000308079330604,-0.00030946809935,-0.000310843744898,-0.000312210936099,-0.000313574292662,-0.000314935979815,-0.000316295783589,-0.000317654259045,-0.000319009257863,-0.000320352211968,-0.000321668581845,-0.000322967271805,-0.000324249698856,-0.000325516874545,-0.000326766085044,-0.000327995699559,-0.000329211471848,-0.000330415898981,-0.000331610268598,-0.000332799376899,-0.000333987410444,-0.000335180690274,-0.000336380324031,-0.000337590359515,-0.00033880869187,-0.000340038367647,-0.000341270008021,-0.000342500600862,-0.000343725513526,-0.000344948364938,-0.00034616531898,-0.000347378782774,-0.000348590819244,-0.00034979368498,-0.000350990400894,-0.000352184135106,-0.000353376027498,-0.000354572756894,-0.000355776272977,-0.000356983155417,-0.000358192069827,-0.000359397302833,-0.00036060077283,-0.000361798683409,-0.000362993483734,-0.000364175245596,-0.00036534470917,-0.000366496241914,-0.000367629409519,-0.000368737437126,-0.00036982932444,-0.000370910925668,-0.000371983854651,-0.000373047481539,-0.000374101838846,-0.000375150741753,-0.000376201881982,-0.000377257100595,-0.000378315690282,-0.000379384480082,-0.000380467628042,-0.000381556977605,-0.000382646023328,-0.000383737274746,-0.000384828285378,-0.00038591526568,-0.000386992371623,-0.00038806032921,-0.000389117498927,-0.000390166243293,-0.000391205557144,-0.000392234960878,-0.000393257462029,-0.000394275079439,-0.000395284464087,-0.000396293588743,-0.000397308620185,-0.000398328610238,-0.000399348174815,-0.000400361052798,-0.00040135151883,-0.000402307480733,-0.000403220949783,-0.000404082073998,-0.000404886294799,-0.000405624422943,-0.000406279435373,-0.000406843703096,-0.000407316434503,-0.000407700729767,-0.000408002603439,-0.000408242180923,-0.000408426264085,-0.000408567812358,-0.000408683719209,-0.000408782152091,-0.000408877599741,-0.000408984244846,-0.00040910969745,-0.00040925726285,-0.000409427941084,-0.000409622111491,-0.000409844161129,-0.000410089867387,-0.000410348990894,-0.000410612990567,-0.000410878890123,-0.000411144267095,-0.000411407687224,-0.000411663528825,-0.000411914996992,-0.000412157428893,-0.00041238779987,-0.000412602633997,-0.000412805260638,-0.000413008864231,-0.000413212380673,-0.000413413847483,-0.000413610122226,-0.000413802333693,-0.000413995389928,-0.000414186774372,-0.000414376718172,-0.000414566946715,-0.000414752965079,-0.000414931702599,-0.000415096694262,-0.000415251232624,-0.000415395613862,-0.000415532040004,-0.000415658816249,-0.000415777312503,-0.000415889617733,-0.000415998838701,-0.000416107181085,-0.000416211341099,-0.000416318603198,-0.000416425880047,-0.000416531050228,-0.000416636736658,-0.000416742040585,-0.000416841816364,-0.000416930899102,-0.000417010474441,-0.000417080818021,-0.000417142556059,-0.000417199571412,-0.000417244977435,-0.00041728487423,-0.000417317057249,-0.00041734125245,-0.000417359802014,-0.000417379894994,-0.000417399917651,-0.0004174169676,-0.000417434713352,-0.000417446479497,-0.000417453501388,-0.000417456986751,-0.000417454025507,-0.000417444810725,-0.000417425694065,-0.000417395466058,-0.000417345625952,-0.000417279958575,-0.000417195028748,-0.000417089391423,-0.000416970901765,-0.000416838226091,-0.000416690210357,-0.000416523985827,-0.000416348006085,-0.000416162693483,-0.000415966288345,-0.000415767558531,-0.00041556159528,-0.00041535163897,-0.000415134062847,-0.000414905911552,-0.000414670194414,-0.00041443118577,-0.000414185689364,-0.000413927199802,-0.00041366164382,-0.000413382351972,-0.000413086551763,-0.000412778243914,-0.00041245633466,-0.000412122891362,-0.000411776073746,-0.000411409664744,-0.000411025088718,-0.000410626287953,-0.00041021395736,-0.000409790486171,-0.000409369190154,-0.00040894903019,-0.000408526579031,-0.000408101384874,-0.000407670503012,-0.000407240832179,-0.000406813434451,-0.000406382973391,-0.000405955097897,-0.00040552867066,-0.000405090491013,-0.00040463628577,-0.000404166961239,-0.000403686503526,-0.000403197322057,-0.000402698787916,-0.000402187851006,-0.000401669609353,-0.000401147363323,-0.000400613023598,-0.000400070362633,-0.00039952033175,-0.000398960805147,-0.000398393606285,-0.000397819364779,-0.000397237765512,-0.000396649365639,-0.000396050652364,-0.000395432198666,-0.000394795821492,-0.000394138813984,-0.000393464989073,-0.000392776238216,-0.0003920726208,-0.000391347441313,-0.000390598216326,-0.00038982703913,-0.000389036668774,-0.000388228283986,-0.000387403635928,-0.000386568457664,-0.000385725437321,-0.000384872191819,-0.00038400979779,-0.000383138568535,-0.000382259057949,-0.000381364619171,-0.000380454372898,-0.000379529511545,-0.00037859345921,-0.000377643014536,-0.000376665770155,-0.000375665487656,-0.000374637457399,-0.00037358832138,-0.000372518537419,-0.000371437537399,-0.000370344366305,-0.000369237090556,-0.000368110808426,-0.00036696623142,-0.000365808712216,-0.000364640987683,-0.00036345771259,-0.000362259273126,-0.000361042206871,-0.000359802229156,-0.000358536650432,-0.000357258633786,-0.000355965761452,-0.000354658568667,-0.000353335253787,-0.000351996115557,-0.000350647155698,-0.000349286499158,-0.000347914904062,-0.000346533803946,-0.000345143543478,-0.000343735020106,-0.000342301665863,-0.000340850447139,-0.000339378165425,-0.000337882905424,-0.000336361124799,-0.000334810260439,-0.000333237250729,-0.000331638264967,-0.000330014569476,-0.000328372211546,-0.000326717353015,-0.000325045963256,-0.000323361000532,-0.000321666606564,-0.000319964573463,-0.000318259576264,-0.000316544055074,-0.00031481779732,-0.000313080553621,-0.000311331416347,-0.000309566806038,-0.000307784014718,-0.000305986622384,-0.000304171319403,-0.000302336445625,-0.000300481568654,-0.000298608988699,-0.000296721788842,-0.000294819171685,-0.000292901504806,-0.000290968165603,-0.0002890229316,-0.000287066539146,-0.000285094573568,-0.00028310460384,-0.000281097704546,-0.000279071890743,-0.000277026515523,-0.000274967372174,-0.000272886025999,-0.000270783877414,-0.000268657769892,-0.000266506595185,-0.000264328675354,-0.000262129878327,-0.000259908367715,-0.000257666892613,-0.00025540314856,-0.000253112011885,-0.000250792030703,-0.000248452956885,-0.00024609525288,-0.000243719028065,-0.000241326699627,-0.000238919605081,-0.000236496877418,-0.000234056491523,-0.000231601940607,-0.000229135903213,-0.000226662265673,-0.000224173253377,-0.000221664983801,-0.000219136316983,-0.000216591800523,-0.00021402273248,-0.000211432044127,-0.000208821058023,-0.000206185818736,-0.000203524755625,-0.000200837308409,-0.000198127992748,-0.000195405334125,-0.00019267039573,-0.000189920657896,-0.000187153763177,-0.000184371839423,-0.000181572101852,-0.000178755521092,-0.000175925173838,-0.000173077393391,-0.000170212414244,-0.000167319851049,-0.00016439754458,-0.000161450743908,-0.000158489625315,-0.000155508789033,-0.00015251218007,-0.000149500831705,-0.00014646856279,-0.00014341623113,-0.000140341084792,-0.000137253190115,-0.000134156008351,-0.000131043995672,-0.000127909297777,-0.000124753415571,-0.000121576116536,-0.000118379189662,-0.000115166896086,-0.000111947528263,-0.000108725788717,-0.000105497756495,-0.000102254163512,-9.90003778581e-05,-9.57428930236e-05,-9.24805882683e-05,-8.9209265219e-05,-8.59292142813e-05,-8.26346546501e-05,-7.9318098668e-05,-7.59715743149e-05,-7.25945655087e-05,-6.91028463263e-05,-6.54021148911e-05,-6.14115467575e-05,-5.70695568401e-05,-5.18833250317e-05,-4.75317690346e-05,-4.35195581893e-05,-3.97876360045e-05,-3.62588190079e-05,-3.28462987533e-05,-2.9455407867e-05,-2.6170538932e-05,-2.30836454363e-05,-2.02664145828e-05,-1.77756265897e-05,-1.61043014278e-05,-1.35701349482e-05,-1.06736718423e-05,-7.47610213357e-06,-4.05049705785e-06,-4.85025255846e-07,3.1245051222e-06,6.77740600301e-06,1.04734816477e-05,1.42120219152e-05,1.79969291337e-05,2.18243952659e-05,2.56994020228e-05,2.96272812838e-05,3.360961557e-05,3.7635320962e-05,4.17013752709e-05,4.58107417512e-05,4.99577821895e-05,5.41371674723e-05,5.83390758085e-05,6.25612253264e-05,6.67958593312e-05,7.10323555867e-05,7.52583864938e-05,7.94762100648e-05,8.36828884188e-05,8.78787484108e-05,9.20605881344e-05,9.62281441306e-05,0.000100382361249,0.000104524240186,0.000108653499239,0.000112777610525,0.000116904778847,0.000121036420713,0.000125170242393,0.000129310344482,0.000133452499126,0.000137592665343,0.000141730376584,0.000145858117117,0.000149979936575,0.000154083934247,0.000158167390462,0.000162226027463,0.000166268744801,0.000170290798476,0.000174292231662,0.000178282429647,0.000182268738128,0.000186256929341,0.000190254249882,0.000194262153819,0.000198284905479,0.000202331578302,0.000206402386074,0.00021049283278,0.000214607841542,0.000218749521288,0.000222912385206,0.000227092472297,0.000231285825371,0.000235497985156,0.000239726700571,0.000243967770311,0.000248211805628,0.000252455830451,0.000256706299035,0.000260964699609,0.00026522989485,0.000269506234751,0.000273797561851,0.000278095560218,0.000282398367064,0.000286704184786,0.000291020552766,0.000295352271045,0.000299698519725,0.000304050096126,0.000308402897475,0.000312748983917,0.00031708018925,0.000321400924511,0.00032571619311,0.000330027867323,0.000334338482448,0.000338647435515,0.000342949630169,0.000347251256909,0.000351554539153,0.000355864445889,0.000360187398153,0.000364526143674,0.000368874558801,0.000373233663463,0.000377595879191,0.000381956845575,0.000386314972656,0.00039066604644,0.00039500447824,0.000399332275347,0.000403642737025,0.000407932709844,0.000412202003421,0.00041645032048,0.000420676132955,0.000424885288047,0.000429080123071,0.000433261838628,0.000437436410558,0.000441602482212,0.000445753274464,0.000449888158314,0.000454011062925,0.000458119318894,0.000462211250128,0.000466286043803,0.000470340167828,0.000474366854218,0.000478363909415,0.000482322741028,0.000486250139279,0.000490155111204,0.000494037245273,0.000497895244056,0.00050173357531,0.000505549145866,0.000509342599945,0.000513113946452,0.00051686924474,0.000520612151268,0.000524351300273,0.000528077852941,0.000531789053246,0.000535481529009,0.000539153917706,0.000542799537715,0.000546422597768,0.000550022545604,0.000553603101801,0.000557163169912,0.000560692017488,0.000564187868088,0.000567653798955,0.000571085378525,0.000574484133387,0.000577851455484,0.000581188202258,0.000584495599667,0.000587766601518,0.000590995162001,0.000594187575687,0.000597344797246,0.000600459645706,0.00060353513266,0.000606568856209,0.000609563514777,0.000612518735289,0.000615432436726,0.000618305320366,0.000621142709946,0.000623945169735,0.000626708886248,0.000629440164411,0.000632139829203,0.00063480385922,0.000637437603082,0.000640036607824,0.000642603476336,0.000645139769669,0.000647640926695,0.000650105817404,0.000652531236352,0.00065491363532,0.000657255878147,0.000659565632559,0.000661842406149,0.000664087868173,0.000666300841519,0.000668475617105,0.000670612670591,0.000672710690263,0.000674773764072,0.000676803876457,0.000678799331384,0.000680754891273,0.000682668482881,0.000684533466983,0.000686349650216,0.000688124049586,0.000689861875655,0.000691558979788,0.000693218869997,0.00069483445631,0.000696408666944,0.000697946995132,0.000699446338083,0.000700909198812,0.00070234159948,0.000703734331459,0.000705081764822,0.000706386588,0.000707652684351,0.000708879390091,0.00071007230702,0.000711228599776,0.000712342735062,0.000713417322508,0.00071444992028,0.000715444435994,0.00071640886438,0.000717341138,0.000718233479578,0.000719090851654,0.000719906013581,0.00072067513754,0.000721400144716,0.000722087268167,0.000722735178831,0.000723336323602,0.000723884972257,0.000724380229043,0.000724826354023,0.000725224845369,0.000725574845517,0.000725881287044,0.000726147170361,0.000726367076722,0.000726538976618,0.000726667800282,0.000726761989916,0.000726823008831,0.000726853308201,0.000726851635495,0.000726818044859,0.000726746438788,0.000726637018269,0.000726490564119,0.000726306750871,0.000726082766628,0.000725814046205,0.000725501991476,0.0007251474013,0.000724746884568,0.000724300132001,0.000723811416956,0.00072328824153,0.000722725537412,0.000722128995502,0.000721504778651,0.000720852275708,0.000720177232806,0.000719471423133,0.000718735710151,0.000717968278861,0.000717171662613,0.000716336088341,0.000715464439912,0.000714555855062,0.000713601814226,0.000712601591772,0.000711551174703,0.000710448463828,0.000709295342751,0.000708094271843,0.000706845702554,0.000705553310686,0.000704225901379,0.000702859131366,0.000701457740677,0.000700021112642,0.000698548468154,0.000697045499487,0.000695512853306,0.000693952118282,0.000692360602871,0.000690737231914,0.000689069824321,0.000687350807779,0.000685582282767,0.000683771422586,0.000681920185814,0.000680032837129,0.000678101414282,0.000676121993746,0.000674091329512,0.000672007190323,0.000669872879522,0.000667688117398,0.000665454594898,0.000663161989335,0.000660800679467,0.000658360298313,0.000655838880659,0.00065323998266,0.000650564606253,0.000647819792378,0.000645000114561,0.000642110526852,0.000639152862972,0.000636126458855,0.000633033881509,0.000629883506818,0.000626683754082,0.000623430720485,0.000620123932643,0.000616760898883,0.000613334073418,0.000609848092999,0.00060629452131,0.000602681530354,0.000599008876735,0.000595275140752,0.000591478342268,0.000587619174795,0.000583700464966,0.000579725794051,0.000575707307648,0.000571652973619,0.000567574837282,0.000563478509406,0.000559367563608,0.00055524898572,0.00055112948104,0.00054701370063,0.000542910945661,0.000538822239878,0.000534750388197,0.000530690290508,0.000526638478223,0.000522586173059,0.000518534960734,0.00051448209168,0.000510422444481,0.00050635517886,0.000502276462698,0.000498180698447,0.000494065386484,0.000489927045474,0.000485762853838,0.00048157224694,0.00047735521644,0.000473108500061,0.000468834107804,0.000464539331543,0.000460220508802,0.000455875208329,0.000451501246929,0.00044710164158,0.000442679726672,0.000438234366949,0.000433766252387,0.000429276088205,0.000424763949552,0.000420228566625,0.000415663906629,0.000411079135476,0.000406479626204,0.00040186947563,0.00039724782416,0.000392616778588,0.000387981100323,0.000383340216961,0.000378694719128,0.000374040847845,0.000369379691664,0.000364711817871,0.000360033812611,0.000355340469075,0.000350628700932,0.000345900556919,0.000341154682323,0.000336389526959,0.00033161267408,0.000326821997144,0.000322022562249,0.000317206317835,0.000312374431679,0.000307527752959,0.000302673458848,0.000297814833021,0.000292948298175,0.000288074583088,0.000283187627591,0.000278284801074,0.000273369589488,0.000268443702608,0.000263511703066,0.000258573417317,0.000253622640268,0.000248652308178,0.000243662313679,0.000238658319719,0.000233642054664,0.000228621554494,0.000223595155635,0.000218565586476,0.000213533266251,0.000208500252607,0.000203470075277,0.000198447753897,0.000193440221843,0.000188442910281,0.000183455891275,0.000178473587515,0.000173497641516,0.00016852807863,0.00016356077899,0.000158596767007,0.000153636865573,0.000148682330288,0.000143729767679,0.00013877647508,0.000133821525148,0.000128866873297,0.000123916679729,0.000118968269658,0.000114021313595,0.000109077944608,0.000104134440264,9.91951786187e-05,9.42550925056e-05,8.93234695009e-05,8.44007068904e-05,7.94908683374e-05,7.45891761812e-05,6.96956585085e-05,6.48170484102e-05,5.99511600244e-05,5.51057650356e-05,5.0276545141e-05,4.54660506131e-05,4.06738085055e-05,3.58943604862e-05,3.11272175648e-05,2.63748895667e-05,2.16357180608e-05,1.69113086256e-05,1.21971372016e-05,7.49296944987e-06,2.79971240939e-06,-1.87864557403e-06,-6.54595913967e-06,-1.11967815568e-05,-1.58320603524e-05,-2.04527668913e-05,-2.5053033902e-05,-2.96328019327e-05,-3.41903502605e-05,-3.87309483137e-05,-4.32563569946e-05,-4.77701748434e-05,-5.22718963201e-05,-5.6763230099e-05,-6.12384396595e-05,-6.56997183625e-05,-7.01431726763e-05,-7.45785060506e-05,-7.90001448655e-05,-8.34036587347e-05,-8.77762558546e-05,-9.21164215348e-05,-9.64247227434e-05,-0.000100695529466,-0.000104932368265,-0.000109136989346,-0.000113313969552,-0.000117460437376,-0.000121574367882,-0.000125659893242,-0.000129729764554,-0.000133782838443,-0.000137818713619,-0.000141839878885,-0.000145848524838,-0.000149841737884,-0.000153818151519,-0.00015776994741,-0.000161697968324,-0.000165605077549,-0.000169487778668,-0.000173347266894,-0.000177188950781,-0.000181004156543,-0.000184793624508,-0.00018855600542,-0.000192291236295,-0.000196007100205,-0.000199708234006,-0.000203391840346,-0.000207051364855,-0.00021068433587,-0.000214283019749,-0.000217853706384,-0.000221400527111,-0.000224921950442,-0.000228421361767,-0.000231891175556,-0.00023532839726,-0.000238725623411,-0.000242092356335,-0.000245432712094,-0.000248747799529,-0.000252039362086,-0.000255301811428,-0.000258534934433,-0.000261736434365,-0.000264910095531,-0.000268060558095,-0.000271191420905,-0.000274300010357,-0.000277381518887,-0.000280429604095,-0.000283448678845,-0.000286435855318,-0.00028939422811,-0.000292323658606,-0.000295225501583,-0.000298089856898,-0.000300922622994,-0.000303722257489,-0.000306495468089,-0.000309240752309,-0.000311960692723,-0.000314654317928,-0.000317317942253,-0.00031994794134,-0.000322544268997,-0.000325115668541,-0.000327662160763,-0.000330185432098,-0.000332681265281,-0.000335149022332,-0.000337593175246,-0.000340013559991,-0.000342414278113,-0.000344803758614,-0.000347186111553,-0.000349553378588,-0.000351898548488,-0.000354219578745,-0.000356510576612,-0.000358782204787,-0.000361026840806,-0.000363243733481,-0.000365437469135,-0.000367595872005,-0.000369716449463,-0.000371797948443,-0.000373848806736,-0.000375868999476,-0.000377863677353,-0.00037983325743,-0.000381768585914,-0.000383672724157,-0.000385539811346,-0.000387374254678,-0.00038917957675,-0.00039095893526,-0.000392712961264,-0.000394438418976,-0.00039613430299,-0.000397800392728,-0.00039944136805,-0.000401059529073,-0.000402655346303,-0.000404230858927,-0.00040577999493,-0.000407303700491,-0.000408794792665,-0.0004102543767,-0.000411682914863,-0.000413088007677,-0.000414466657467,-0.000415820128119,-0.000417148124254,-0.000418452923265,-0.000419734803909,-0.000420992334965,-0.000422229457369,-0.000423452870712,-0.000424658691585,-0.000425837761011,-0.000426988795596,-0.000428112565437,-0.00042920818806,-0.00043028011373,-0.000431331362443,-0.000432369635218,-0.000433303504821,-0.000434040548495,-0.000434579930034,-0.000434928821666,-0.000435103755665)
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(238)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Macaca_mulatta-male-liver-H3K27Ac-ERR572150.50mers.unique.MACS2_model.pdf',height=6,width=6)
plot(x,p,type='l',col=c('red'),main='Peak Model',xlab='Distance to the middle',ylab='Percentage')
lines(x,m,col=c('blue'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 238',bty='n')
dev.off()