# R script for Peak Model
#  -- generated by MACS
p <- c(0.041321546547,0.048116940131,0.0551020802327,0.0621196160814,0.0690661898177,0.0690415073439,0.0691109268016,0.0693484956125,0.0695860644234,0.0696338867165,0.0695135596564,0.0696770810457,0.0696925075919,0.0697171900657,0.0697958654511,0.0698560289812,0.0696493132626,0.0694827065641,0.0695073890379,0.0694857918733,0.0695644672587,0.0695536686764,0.0693145572109,0.0690214528339,0.0687977679145,0.0688085664968,0.0688409622438,0.0689319788661,0.0687268058022,0.0687854266776,0.0687977679145,0.0685833389229,0.0687993105691,0.0689134670107,0.0689905997415,0.0689180949746,0.0690106542515,0.0690214528339,0.06905693389,0.0690677324723,0.0691248106931,0.0693083865925,0.0693978605602,0.069249765717,0.0693099292471,0.069362379504,0.0691849742232,0.0691911448416,0.0693299837571,0.0690677324723,0.068731433766,0.0687622868584,0.0685663697221,0.0686527583806,0.0684707251359,0.0683596540035,0.0684306161159,0.0683426848028,0.0682686373812,0.0683812511682,0.0686774408545,0.0686095640514,0.0685648270675,0.0685694550313,0.0684938649552,0.0683534833851,0.0684660971721,0.0684460426621,0.0683442274574,0.0683503980759,0.0682269857066,0.0682686373812,0.0681668221765,0.0682964051643,0.0684707251359,0.0687792560591,0.0688594740992,0.068803938533,0.068578710959,0.0685478578667,0.0684892369913,0.0685355166298,0.0685925948506,0.0684491279713,0.0681899619958,0.0678459500164,0.0676500328801,0.0678490353256,0.0678845163818,0.0679091988556,0.0679539358395,0.0678120116148,0.0678860590364,0.0679338813295,0.068253210835,0.0682377842889,0.0682886918912,0.0680048434418,0.0681606515581,0.0682686373812,0.0685339739752,0.0686095640514,0.0685355166298,0.0686234479429,0.0683272582566,0.0684429573528,0.0684753530998,0.0687391470391,0.068570997686,0.0686357891798,0.0682038458873,0.0682470402166,0.0683025757828,0.0681421397027,0.0685370592844,0.068723720493,0.0687622868584,0.0685139194652,0.0687098366014,0.0686789835091,0.0689443201031,0.0691109268016,0.0693099292471,0.0696338867165,0.0696215454795,0.0694935051464,0.0695737231864,0.0695783511503,0.0695428700941,0.0695243582387,0.069515102311,0.0693747207409,0.0693808913594,0.069229711207,0.0690430499985,0.0690708177816,0.06895666134,0.0690430499985,0.0691680050224,0.0692837041186,0.069129438657,0.0691016708739,0.0690661898177,0.0690245381431,0.0691926874962,0.0693145572109,0.0694179150702,0.0696693677726,0.0695644672587,0.0696431426442,0.0698652849089,0.0699115645474,0.0698174626158,0.0698976806558,0.069820547925,0.0699856119689,0.0701244508844,0.0701938703421,0.0702648324544,0.0702216381252,0.0702401499806,0.0703651050045,0.0704900600284,0.0705147425023,0.0706458681446,0.0705101145384,0.0706875198193,0.0707862497147,0.0708140174978,0.0708834369555,0.0710438730356,0.0711302616941,0.0711364323125,0.071235162208,0.0712660153003,0.0714357073081,0.0714387926173,0.0712829845011,0.0714927855289,0.0716856173559,0.071753494159,0.071753494159,0.0718907904198,0.0719478686406,0.0721545843592,0.0720003188976,0.0720172880983,0.0720805369376,0.0722733687646,0.0721499563953,0.0722409730177,0.0721653829415,0.0722101199254,0.0723304469854,0.0724168356439,0.072677544274,0.072557217214,0.0725880703063,0.0726250940171,0.0727747315148,0.0726004115432,0.0729799045788,0.0731064022573,0.0732159307351,0.0730786344742,0.0731403406589,0.0733964213251,0.0735028644937,0.0735830825337,0.073441158309,0.0737944262161,0.0737635731238,0.073846876473,0.0737419759591,0.0740427936093,0.0741785472155,0.0742402534001,0.074550326978,0.0744222866449,0.0745981492711,0.0746274597088,0.0746737393473,0.0746691113834,0.075068658929,0.0749514171782,0.0748727417928,0.0749205640859,0.0747770972066,0.0746768246565,0.0747570426965,0.074855772592,0.0749437039051,0.0750979693667,0.075028549909,0.0754049576353,0.0756101306993,0.075639441137,0.0757443416509,0.076137718578,0.0763860859712,0.0764971571035,0.0766313680551,0.0767347259144,0.0768026027175,0.0767023301675,0.0767439818421,0.0769846359622,0.0772299180462,0.0773163067047,0.0774381764193,0.0774242925278,0.0774381764193,0.0773996100539,0.0773317332508,0.077560046134,0.0777173969049,0.0778130414911,0.0778377239649,0.0779410818242,0.0781447122335,0.0783776530805,0.0784131341367,0.07878182859,0.0792893619587,0.0794482553841,0.079593264918,0.0796225753557,0.0798354616928,0.0801301087244,0.079991269809,0.0800946276683,0.0805389121977,0.0804571515031,0.0803892747,0.0803831040815,0.0804772060131,0.0807610544624,0.080967770181,0.081060329458,0.0812809290681,0.0813704030358,0.0814567916943,0.081638824939,0.0818424553483,0.0821293891069,0.0822543441308,0.0820676829223,0.0822790266047,0.0823885550824,0.0822728559862,0.0824764863955,0.0826708608772,0.0829223135796,0.0830148728566,0.0829377401258,0.0832431857398,0.0837260366346,0.0839867452647,0.0844387430672,0.0852332101945,0.0859690564464,0.0867218718991,0.0875518200825,0.0885113512538,0.0897547308743,0.0910536460611,0.0924420352156,0.0933737986037,0.094553929385,0.0957633706041,0.0965084727837,0.0971826128509,0.0975821603965,0.0981051203113,0.0984013099976,0.0987561205593,0.0985586607685,0.0987730897601,0.0987962295793,0.0988965021294,0.0991016751933,0.0991464121772,0.0996647441282,0.0998004977344,0.100050407782,0.100112113967,0.100525545404,0.100857216146,0.101259849001,0.101316927222,0.101287616784,0.101637799382,0.101556038688,0.101864569611,0.101813662008,0.101625458145,0.101898508012,0.101935531723,0.102051230819,0.102185441771,0.102473918184,0.102648238156,0.103046243047,0.10323444691,0.103684902058,0.10411993066,0.104193978081,0.104396065836,0.10438063929,0.104667573048,0.10498227459,0.104960677425,0.105168935798,0.105159679871,0.105715035533,0.105830734629,0.105889355504,0.106287360395,0.106563495571,0.106696163868,0.106743986162,0.107194441309,0.107103424687,0.107376474554,0.106963043117,0.107163588217,0.10745206463,0.107433552775,0.107504514887,0.10769580406,0.107825387047,0.107828472357,0.108201794774,0.108525752243,0.10879880211,0.109068766668,0.109392724137,0.109756790627,0.109858605831,0.109823124775,0.110318316907,0.110588281465,0.110717864453,0.110778027983,0.110983201047,0.110899897697,0.110984743701,0.111223855167,0.111697450134,0.112058431314,0.112047632732,0.112209611466,0.112243549868,0.112501173189,0.112731028727,0.113207709003,0.113212336967,0.113076583361,0.112953170991,0.113115149726,0.113550178328,0.113850995978,0.114397095712,0.114636207178,0.114898458462,0.115026498795,0.115484667216,0.115827136541,0.116158807284,0.116424143878,0.11629456089,0.116300731508,0.116337755219,0.116431857151,0.116527501737,0.116689480472,0.116661712688,0.116802094259,0.116829862042,0.116680224544,0.116917793355,0.117085942708,0.117048918997,0.117200099149,0.117596561386,0.117810990377,0.118130319883,0.118428052224,0.118685675545,0.11904511407,0.119058997962,0.119301194737,0.119642121407,0.119993846659,0.119996931968,0.119981505422,0.120032413025,0.119995389314,0.120203647687,0.120601652578,0.120961091104,0.120981145614,0.120919439429,0.120924067393,0.121189403987,0.121494849601,0.121601292769,0.121915994311,0.121920622275,0.121914451656,0.1220795157,0.122145849849,0.122508373684,0.122474435282,0.122414271752,0.122434326262,0.122698120201,0.122662639145,0.122793764788,0.122838501771,0.123003565815,0.122823075225,0.122986596615,0.123288956919,0.123097667747,0.123014364398,0.12274439984,0.122881696101,0.12312543553,0.123134691458,0.12298505396,0.123258103827,0.123244219935,0.123191769678,0.123514184493,0.123597487842,0.123744040031,0.12368696181,0.123730156139,0.123642224826,0.123657651373,0.123562006786,0.123723985521,0.123719357557,0.123819630107,0.123943042477,0.124060284227,0.124242317472,0.124322535512,0.124393497624,0.124035601753,0.124342590022,0.124209921725,0.12403097379,0.123972352914,0.124001663352,0.124001663352,0.123896762838,0.123716272248,0.123669992609,0.123892134874,0.123639139517,0.123359919032,0.12358668926,0.123381516196,0.123040589526,0.122829245844,0.122591677033,0.12240038786,0.122266176909,0.122344852294,0.122472892627,0.1222800608,0.121809551142,0.121641401789,0.121834233616,0.121741674339,0.121360638649,0.121513361456,0.121420802179,0.120962633758,0.120382595623,0.120419619333,0.120234500779,0.120215988924,0.119726967411,0.119270341644,0.119222519351,0.118576147067,0.1185036423,0.118499014336,0.118546836629,0.11828304269,0.118006907514,0.117379047085,0.117169246057,0.117067430853,0.117050461652,0.116721876219,0.116245195942,0.116107899681,0.115737662573,0.115538660128,0.115463070052,0.115432216959,0.115415247759,0.115370510775,0.114966335265,0.114808984495,0.114984847121,0.11468711478,0.114500453571,0.114133301773,0.11406233966,0.113954353837,0.113599543276,0.113281756425,0.113142917509,0.113167599983,0.112562879373,0.112161789173,0.112058431314,0.11213402139,0.111830118431,0.111678938278,0.111316414444,0.111373492664,0.111174490219,0.111049535195,0.111085016251,0.111115869344,0.111074217669,0.111037193958,0.110896812388,0.110761058782,0.110798082493,0.110582110846,0.110511148734,0.110450985204,0.110454070513,0.110216501702,0.109820039466,0.10964417684,0.109375754937,0.109327932644,0.109289366278,0.108933013062,0.10867847505,0.108464046058,0.107689633441,0.107407327646,0.107279287313,0.107063315667,0.10683037482,0.106467850985,0.106043620966,0.105998883982,0.105756687207,0.105187447654,0.105125741469,0.104349786197,0.103505954122,0.102071285329,0.101097870267,0.0995984099797,0.0983010374476,0.0967244444299,0.0952913182915,0.0939414955025,0.0927690779942,0.0918835942446,0.0912295086873,0.0910104517318,0.0904782358893,0.0902437523876,0.0900648044522,0.0899444773921,0.0899105389906,0.089929050846,0.0897470176013,0.0897979252036,0.0894940222442,0.0891438396464,0.0890543656786,0.0887720598839,0.0885761427476,0.0882722397883,0.0879050879896,0.0875919291026,0.0872941967616,0.0869285876176,0.08695944071,0.086661708369,0.0864349381405,0.0865197841444,0.0864920163613,0.0863192390443,0.086316153735,0.0862698740966,0.0861819427834,0.0860616157234,0.0856173311939,0.0856019046478,0.0855062600616,0.0854460965316,0.0852131556845,0.085006439966,0.0848999967974,0.0845976364927,0.0846315748942,0.084688653115,0.0846716839143,0.0847765844282,0.084721048862,0.0847195062074,0.0845235890711,0.0844418283765,0.0843724089187,0.0843400131718,0.0840422808309,0.0835424607353,0.0834684133137,0.0831814795551,0.0828822045596,0.0827958159011,0.0827356523711,0.082860607395,0.0825721309817,0.082635379821,0.0824841996686,0.0824086095924,0.0821926379462,0.0818285714568,0.0817699505814,0.0814645049674,0.0811744858996,0.0810325616749,0.0808181326832,0.0805373695431,0.0804262984107,0.0803661348807,0.0799850991905,0.0798107792189,0.0797135919781,0.0792723927579,0.0792986178864,0.0790178547462,0.0789808310354,0.0786198498553,0.0785010654498,0.0786429896745,0.0788651319392,0.0790533358024,0.0788126816823,0.0790070561639,0.0790517931478,0.0788867291039,0.0785535157068,0.0786615015299,0.0783730251167,0.0782897217674,0.0782064184182,0.0777868163626,0.0776078684271,0.0772083208815,0.0768612235929,0.0769306430506,0.0770340009099,0.0767547804244,0.0768967046491,0.0764879011758,0.076157773088,0.0761654863611,0.0760281901002,0.0759633986063,0.0759664839156,0.0758507848194,0.0756502397193,0.0755545951331,0.0754111282538,0.0753062277399,0.0754604932015,0.0753231969407,0.075293886503,0.0754311827638,0.0752908011937,0.0750702015836,0.0750239219451,0.0748850830297,0.0744438838095,0.0743621231148,0.0742279121632,0.0741600353601,0.0740566775008,0.0736725565014,0.0734565848552,0.0734164758351,0.0730662932373,0.0732143880804,0.0733917933613,0.073360940269,0.0732344425904,0.0729367102495,0.0728194684987,0.0727654755872,0.0726590324186,0.0724168356439,0.0725896129609,0.0722810820377,0.0719077596206,0.0718429681267,0.0716964159382,0.0716501362997,0.0716424230266,0.0716686481551,0.0717149277936,0.0716516789543,0.0714295366896,0.0714619324365,0.0715699182597,0.0714511338542,0.0712968683926,0.071255216718,0.0711672854049,0.0709590270317,0.0707091169839,0.0707646525501,0.0707800790962,0.0707600245862,0.0706273562892,0.0705347970123,0.0705193704661,0.0707230008754,0.0707430553854,0.0705687354138,0.0705378823215,0.0704268111891,0.070471548173,0.0702031262698,0.0702524912175,0.0700504034628,0.0697958654511,0.0694533961264,0.0693099292471,0.0693870619779,0.0692960453555,0.0693006733194,0.069249765717,0.06899677036,0.0688702726815,0.0688826139184,0.0685848815775,0.0686650996175,0.0685879668867,0.0686789835091,0.0686697275814,0.0684121042605,0.0681405970481,0.0684969502644,0.0685247180475,0.0685262607021,0.0688378769345,0.0686866967822,0.0687298911114,0.068598765469,0.0686851541275,0.0688394195892,0.0690199101792,0.0688887845369,0.0688671873722,0.0689489480669,0.0688548461353,0.0691016708739,0.0691433225485,0.0691926874962,0.0690492206169,0.0689474054123,0.0687160072199,0.068691324746,0.0686450451075,0.0686435024529,0.0687453176576,0.0684306161159,0.0683133743651,0.0682485828712,0.0683442274574,0.0683596540035,0.0683118317105,0.0682439549073,0.0682362416343,0.0680495804257,0.068020269988,0.0678582912533,0.0675543882939,0.0674803408724,0.0674679996354,0.0674695422901,0.0673075635554,0.067176437913,0.0672011203869,0.0671085611099,0.0670483975799,0.0673738977039,0.0673615564669,0.0672736251538,0.067256655953,0.0670669094353,0.0672288881699,0.0672581986076,0.0672952223184,0.0673877815954,0.0672720824992,0.0672474000253,0.0674865114908,0.06742943327,0.0673862389408,0.0674880541454,0.0675297058201,0.0674047507962,0.0671949497684,0.067023715106,0.0671347862384,0.0670468549252,0.0668987600821,0.0669388691021,0.0668247126605,0.0670082885598,0.067003660596,0.0671995777322,0.0672535706438,0.0675914120047,0.0674170920331,0.0673399593023,0.067521992547,0.0675790707678,0.0675898693501,0.0672921370092,0.0674865114908,0.0675158219285,0.0676407769524,0.0673800683223,0.067461829017,0.067714824374,0.067734878884,0.0677302509202,0.0677950424141,0.0679709050403,0.0676932272094,0.0676855139363,0.0674464024708,0.0674232626516,0.0675451323662,0.0671795232222,0.0671502127845,0.067176437913,0.0672797957723,0.0672782531177,0.0674371465431,0.0673723550492,0.0675173645832,0.0676454049163,0.067714824374,0.0679786183134,0.0680418671526,0.0680866041365,0.0679493078757,0.067907656201,0.0680850614819,0.0681776207588,0.0680819761727,0.0681282558111,0.0679061135464,0.0678598339079,0.0677965850687,0.0677009404825,0.0678243528518,0.0678721751449,0.067521992547,0.0674448598162,0.0677657319763,0.0679354239841,0.0680063860965,0.0679894168957,0.0679554784941,0.0681498529758,0.0680495804257,0.0681375117388,0.0682239003973,0.0683797085136,0.0682778933089,0.0681097439557,0.0683689099312,0.0684552985897,0.0685092915013,0.068398220369,0.0684722677905,0.0683642819674,0.0685555711398,0.0687005806737,0.0687422323483,0.0689227229384,0.0686666422722,0.0686604716537,0.0684876943367,0.068651215726,0.0689412347938,0.06905693389,0.0690816163639,0.0688162797699,0.0689211802838,0.0687915972961,0.0688671873722,0.0689103817015,0.0691479505124,0.0689798011592,0.068723720493,0.0688409622438,0.0687885119868,0.0688671873722,0.0686064787421,0.0686141920152,0.0688209077338,0.0687669148222,0.0689150096653,0.0691803462593,0.0690322514162,0.0689628319584,0.0690600191993,0.0693654648133,0.0694657373633,0.069575265841,0.0694965904556,0.0697017635196,0.0696045762787,0.0694981331102,0.0697357019211,0.0696246307888,0.0696817090096,0.0695613819495,0.0695181876202,0.0695382421303,0.0696323440618,0.0695243582387,0.0696462279534,0.0697495858127,0.0698514010173,0.0700612020451,0.0699964105512,0.0701676452136,0.0703604770406,0.0703126547475,0.0700504034628,0.070238607326,0.0702447779444,0.0702895149283,0.0702910575829,0.0701491333582,0.0703728182776,0.0702046689244,0.0701151949567,0.0702632897998,0.0705270837392,0.0704484083538,0.0703095694383,0.0702663751091,0.0701136523021,0.0703126547475,0.0701475907036,0.0700874271736,0.070065830009,0.0702015836152,0.0702725457275,0.0702308940529,0.0703635623499,0.0702170101613,0.0704777187915,0.07064432549,0.0707708231685,0.0710006787063,0.0712660153003,0.0710253611802,0.0711040365656,0.0711580294772,0.071009934634,0.0711811692964,0.071142602931,0.0708926928832,0.070929716594,0.0706088444338,0.0705024012653,0.0705363396669,0.070318825366,0.0703003135106,0.070371275623,0.0705764486869,0.0703743609322,0.0704792614461,0.0704221832253,0.0705425102853,0.0705147425023,0.0706736359277,0.0708710957186,0.0710515863087,0.0712043091157,0.0711163778025,0.0712536740634,0.0711503162041,0.0712706432641,0.0714202807619,0.0714588471273,0.0713092096295,0.0711611147864,0.0711719133687,0.0710191905617,0.0710531289633,0.0711595721318,0.0714742736735,0.071102493911,0.0710855247102,0.0709374298671,0.0710994086018,0.071142602931,0.071082439401,0.071275271228,0.0710855247102,0.0711796266418,0.0709528564132,0.0713323494488,0.0714619324365,0.071753494159,0.0718244562713,0.0718198283075,0.0720697383553,0.0721468710861,0.0722085772707,0.0720913355199,0.0721823521423,0.0722795393831,0.0722980512385,0.0722054919615,0.0719447833314,0.0722456009815,0.0719710084599,0.071813657689,0.0719848923514,0.0719602098775,0.0719987762429,0.0717720060144,0.0717411529221,0.0719015890021,0.0722132052346,0.0720450558814,0.0721005914476,0.0721329871945,0.0719524966045,0.0720034042068,0.0718074870705,0.0719231861668,0.0717750913236,0.0716871600105,0.0716362524082,0.0717087571751,0.0717149277936,0.0717442382313,0.0717966884882,0.071846053436,0.072058939773,0.0719910629699,0.0721098473753,0.0724554020093,0.0724214636078,0.072364385387,0.0722409730177,0.0722563995638,0.072364385387,0.0721453284315,0.0721345298492,0.0722440583269,0.0723150204392,0.0720435132268,0.0719386127129,0.0718676506006,0.072046598536,0.0720604824276,0.0720558544637,0.0723597574231,0.0723705560054,0.0722533142546,0.0721885227607,0.0721268165761,0.0723597574231,0.0725279067763,0.0724199209531,0.0723736413147,0.0721900654153,0.0719231861668,0.0718352548536,0.071773548669,0.0717072145205,0.0717504088498,0.0714974134927,0.0714495911996,0.0715452357858,0.071548321095,0.0717149277936,0.0717164704482,0.0719308994398,0.0721067620661,0.072179266833,0.0720512264999,0.0720049468614,0.0719802643876,0.0718815344921,0.0718969610383,0.0717056718659,0.071813657689,0.0717349823036,0.071528266585,0.0716023140066,0.071701043902,0.0718969610383,0.0717766339782,0.0719077596206,0.0717272690305,0.0719926056245,0.0721761815238,0.0720126601345,0.0721946933792,0.0720944208291,0.0720018615522,0.0719216435121,0.0721931507246,0.0719540392591,0.0722486862908,0.0719740937691,0.0719231861668,0.0717288116851,0.0713647451957,0.0711780839872,0.0711595721318,0.0711256337302,0.0709806241963,0.0712120223887,0.0711333470033,0.0711873399149,0.0711765413326,0.0712613873364,0.0714897002196,0.0717257263759,0.0716856173559,0.0717349823036,0.0718044017613,0.0714727310189,0.0713539466134,0.0715035841112,0.0715159253481,0.0717504088498,0.0715220959666,0.0717581221228,0.0718198283075,0.0716717334643,0.0714634750912,0.0716223685166,0.0717149277936,0.0716331670989,0.0714819869466,0.0642021998131,0.0572941924422,0.0498292867549,0.0426991371192,0.0)
m <- c(0.0421896098666,0.0491928997913,0.0562502393627,0.063319933139,0.0702089466681,0.0701641626752,0.0705811170919,0.0708606309787,0.0708034927808,0.0710397669503,0.0711154364555,0.0713795075861,0.0714119373741,0.0715200366673,0.0717485894587,0.0719647880451,0.071686818434,0.0716651985753,0.0715570992821,0.0713038380808,0.0715262137697,0.0713486220738,0.0713887732398,0.071331635042,0.0713949503423,0.0715370236991,0.0715030496355,0.0715570992821,0.0718366131688,0.0718813971617,0.0718891185398,0.071799550554,0.0719091941229,0.0718057276565,0.0717485894587,0.0714582656426,0.0715879847944,0.0714582656426,0.071214270095,0.0711185250068,0.0709501989645,0.0710196913673,0.0708668080811,0.0708760737348,0.0709501989645,0.0708034927808,0.0707386332049,0.070871440908,0.070996527233,0.0712389785049,0.0714783412256,0.0715725420383,0.0715540107309,0.0715771748651,0.07147679695,0.0715987947238,0.0717207924975,0.0716929955364,0.0716976283633,0.0716358573386,0.0715787191407,0.0717949177272,0.0718335246176,0.0720667102358,0.0719153712253,0.0719416239108,0.0718288917908,0.0718026391053,0.0719508895645,0.0718489673738,0.0719956735574,0.0718196261371,0.0719091941229,0.0718922070911,0.0721562782216,0.0721701767022,0.0723385027445,0.0723786539105,0.0723956409423,0.0722767317198,0.0723091615078,0.0725516127797,0.0726164723556,0.0722659217905,0.0723045286809,0.0723940966667,0.0725330814723,0.0725191829917,0.0724605005183,0.0727091288927,0.0725979410482,0.072332325642,0.0722674660661,0.0725454356772,0.0725130058892,0.0723863752886,0.0720991400238,0.0719153712253,0.0720543560309,0.0720559003065,0.0721948851121,0.0720898743701,0.072062077409,0.0719910407306,0.0722195935219,0.0723755653593,0.0725979410482,0.0726164723556,0.0724265264547,0.0723987294936,0.0724882974794,0.0727662670905,0.0729515801646,0.073075122214,0.0729345931328,0.0728218610127,0.0727739884686,0.0728095068078,0.0729639343695,0.073075122214,0.0726905975852,0.0725485242284,0.072344679847,0.0725485242284,0.0724682218963,0.0725639669846,0.0726519906948,0.0728789992106,0.0729608458183,0.072667433451,0.072772444193,0.0728465694226,0.0726581677973,0.0722767317198,0.0722782759954,0.0724527791402,0.0724512348646,0.0723045286809,0.0723029844053,0.0722273149,0.0723076172321,0.0723261485395,0.0726072067019,0.0728295823908,0.0728403923201,0.0726967746877,0.0726072067019,0.0726427250411,0.0726241937337,0.0729979084331,0.0728419365957,0.0727168502707,0.0727353815782,0.0724713104476,0.0723215157127,0.0721377469142,0.0720852415432,0.0721840751827,0.0718906628154,0.0717825635222,0.0720327361722,0.0721223041581,0.0719740536988,0.0721439240167,0.0722566561368,0.0723400470201,0.0721701767022,0.0720945071969,0.0721439240167,0.0718659544056,0.0716296802361,0.0715833519676,0.071581807692,0.0714876068793,0.0713702419324,0.0711957387876,0.0714088488228,0.0713208251126,0.0712420670562,0.0713671533812,0.0714876068793,0.0713887732398,0.0713022938052,0.0713424449713,0.071266775466,0.0713594320031,0.0712019158901,0.0712219914731,0.0713131037346,0.0712219914731,0.0710335898478,0.0711710303778,0.0712513327099,0.0712945724271,0.0716003389994,0.0718427902713,0.0719277254303,0.0718736757837,0.0720775201652,0.0721192156068,0.0721501011192,0.0720003063843,0.07197714225,0.0721161270556,0.0717316024269,0.0714351015083,0.0713486220738,0.0713084709077,0.0708698966324,0.0708420996713,0.0707926828515,0.0707695187172,0.0708436439469,0.0706351667385,0.0707834171978,0.0707448103074,0.0706722293533,0.070693849212,0.0708760737348,0.0709363004839,0.0711061708018,0.070911592074,0.0708837951129,0.0709980715086,0.0710474883284,0.0710274127453,0.0711509547947,0.0711108036287,0.0708004042296,0.0707092919682,0.0705085361379,0.070516257516,0.0704328666327,0.0701456313678,0.0701564412971,0.0702166680462,0.0701780611558,0.07008849317,0.0702382879049,0.0702213008731,0.0703016032052,0.0705903827456,0.0705147132404,0.0707370889293,0.0703927154666,0.0702166680462,0.0701224672336,0.0701857825339,0.0702058581169,0.070253730661,0.0702321108024,0.0699803938768,0.0700622404845,0.0699695839474,0.0700282664209,0.0699865709792,0.0698398647956,0.0700267221453,0.0699973809086,0.0699973809086,0.0699402427107,0.0698522190005,0.0698167006613,0.0696838929582,0.0698846487885,0.0698877373397,0.0699124457496,0.0696715387533,0.0696823486826,0.0694893142304,0.0694028347959,0.0693966576934,0.0693287095662,0.0692499515097,0.069055372782,0.0691696491776,0.0691310422872,0.068760416139,0.0686569496727,0.068772770344,0.0687943902026,0.0687804917221,0.0685411290014,0.0684515610156,0.0684948007329,0.0683187533125,0.0685797358918,0.0688515284005,0.0688932238421,0.0689750704499,0.0689040337715,0.069115599531,0.0693086339832,0.0694785043011,0.069365772181,0.0693024568807,0.0690924353968,0.0689410963863,0.0685967229236,0.0685056106622,0.0684191312276,0.0683233861393,0.0683141204856,0.0681998440899,0.0683604487541,0.0683403731711,0.0682091097436,0.0682353624291,0.0685890015455,0.0683805243372,0.0683913342665,0.0683743472347,0.0682955891782,0.0682260967754,0.0682322738779,0.0682060211924,0.068155060097,0.0681751356801,0.0679882783304,0.0681689585776,0.0682770578708,0.0682786021464,0.0682523494609,0.0683357403443,0.0681828570581,0.0682755135952,0.0682770578708,0.0684144984007,0.0683774357859,0.0682214639486,0.0681643257507,0.0681056432773,0.0681056432773,0.068029973772,0.0679990882597,0.0681071875529,0.0683264746906,0.0681581486483,0.0684453839131,0.0686507725702,0.0685936343724,0.0684330297082,0.0685256862452,0.0685210534183,0.0686986451143,0.0683341960686,0.0680330623233,0.0681040990017,0.0679759241254,0.0677921553269,0.06781223091,0.0678230408393,0.0677319285779,0.0675790452918,0.067299531405,0.0676408163164,0.0678956217933,0.0677319285779,0.0676485376945,0.0676856003093,0.067582133843,0.0677458270584,0.0676238292847,0.0677674469171,0.067957392818,0.067884811864,0.0677767125708,0.0679218744788,0.0679620256449,0.0678585591785,0.0680546821819,0.0680361508745,0.068345005998,0.0683758915103,0.0683635373054,0.0684422953619,0.0684932564572,0.0684484724643,0.0685179648671,0.0685874572699,0.0684531052912,0.0686075328529,0.0685473061038,0.0685735587893,0.0686415069165,0.0685998114748,0.0685117877646,0.0685488503795,0.0686847466338,0.0688793253616,0.0691109667042,0.0689086665983,0.0688700597079,0.0688237314394,0.0690244872696,0.0690970682236,0.0691109667042,0.0691634720752,0.0690584613332,0.0690136773403,0.068990513206,0.0689997788597,0.0689966903085,0.0692792927465,0.0688916795665,0.0689271979057,0.0690893468455,0.0692514957854,0.0693209881881,0.0693287095662,0.069148029319,0.0691264094604,0.0690075002378,0.0689117551495,0.0692777484709,0.0692808370221,0.0691850919338,0.0690136773403,0.0690352971989,0.0690198544428,0.0692777484709,0.0695665280113,0.0697750052197,0.069753385361,0.0697039685413,0.0699186228521,0.0701857825339,0.070411246774,0.0703278558907,0.0704869162793,0.0704251452546,0.0703664627811,0.0705656743357,0.0705286117209,0.0705548644064,0.0704946376573,0.0705394216502,0.0704498536644,0.0705610415089,0.0704483093888,0.0705085361379,0.0706104583286,0.0705332445478,0.0705085361379,0.0704946376573,0.0704297780814,0.0704328666327,0.0706428881166,0.0707880500246,0.0708776180105,0.0712034601657,0.0713223693883,0.0715478336284,0.0719478010133,0.0722334920025,0.0724651333451,0.0725130058892,0.0726643448998,0.0726581677973,0.0730071740868,0.072917606101,0.0727060403414,0.072509917338,0.0725593341578,0.0727106731683,0.0727338373025,0.0729407702353,0.0729407702353,0.0731075520019,0.0731646901998,0.0733731674081,0.073522962143,0.073785488998,0.0739260180791,0.0739738906233,0.0741638365242,0.0743630480789,0.0746193978313,0.0749792140502,0.075153717195,0.0750996675483,0.0755845700922,0.0757714274419,0.0755413303749,0.0757142892441,0.0757235548978,0.0756864922829,0.0757822373712,0.0758671725302,0.0756123670533,0.0758532740496,0.0757003907635,0.0754980906576,0.0758640839789,0.075621632707,0.0757158335197,0.075944386311,0.0759057794206,0.0759212221768,0.0763350880422,0.0764153903743,0.0767041699148,0.0771550983951,0.077397549667,0.0777094933417,0.0778670094547,0.0779195148257,0.078160421822,0.0779565774405,0.0780538668044,0.0779164262744,0.0780832080411,0.0782252813979,0.0783812532353,0.078608261751,0.0787287152492,0.0786237045072,0.0788815985353,0.0793634125279,0.0793541468742,0.0796846218563,0.0797510257079,0.0799409716088,0.0800521594533,0.0800784121387,0.0802374725273,0.0805447833752,0.0803733687817,0.080416608499,0.0806606040465,0.0807439949298,0.0807625262372,0.0809061438697,0.0810111546116,0.0812613272617,0.0813030227033,0.0814034006185,0.0815053228092,0.0815161327385,0.0816504847172,0.0817632168373,0.0820087566605,0.0820612620315,0.0821848040808,0.0821214887805,0.0824998363068,0.0827808944691,0.0831901275077,0.0834001489917,0.0834696413945,0.0835175139386,0.0835175139386,0.0834989826312,0.0836287017831,0.0835993605464,0.0835900948926,0.0838124705815,0.0837645980374,0.084121325705,0.0843174487084,0.0846000511464,0.0847513901569,0.0850309040437,0.085061789556,0.0853660118526,0.0857011196616,0.0856980311104,0.0857814219937,0.0857489922057,0.0860161518875,0.086232350474,0.0865829010391,0.0867713026644,0.0869612485654,0.0873395960916,0.0872083326641,0.0872840021694,0.0876808810031,0.088028343017,0.0882816042182,0.0884483859849,0.088561118105,0.0887556968328,0.088883871709,0.088883871709,0.0890630076806,0.089489227751,0.0896035041467,0.0895710743587,0.0895865171149,0.089876840931,0.0900389898708,0.0901532662665,0.0903169594819,0.0904667542168,0.0907663436866,0.0906705985983,0.0908713544286,0.091285220294,0.0917840213184,0.0922102413888,0.093041061671,0.0940170438611,0.0950964925177,0.0962747748137,0.097593586191,0.0990035098296,0.100191057779,0.101329188909,0.102499749827,0.103733626046,0.104565990603,0.105390633783,0.106002166928,0.10662142145,0.106897846786,0.107246853075,0.107686971626,0.107912435866,0.108025167986,0.108247543675,0.108574930106,0.108733990495,0.109174109046,0.109475242791,0.109975588091,0.11019796378,0.110587121236,0.110928406147,0.11122336279,0.111339183461,0.111357714769,0.111258881129,0.111181667348,0.111368524698,0.111194021553,0.111299032295,0.111044226818,0.111232628444,0.111404043037,0.111592444662,0.111638772931,0.111682012648,0.111790111941,0.111692822578,0.112078891482,0.11228736869,0.11252364286,0.11269969028,0.112515921482,0.112460327559,0.112679614697,0.113039430916,0.113297324944,0.113664862541,0.113667951092,0.113654052612,0.114029311587,0.114094171163,0.114407659113,0.114954332681,0.115366654271,0.115406805437,0.115417615367,0.115738824695,0.116126437875,0.116696275578,0.116770400807,0.11693872685,0.117259936178,0.117103964341,0.117258391903,0.117701599005,0.118081490807,0.117768002856,0.117908531937,0.117721674588,0.11786529222,0.118109287768,0.118248272573,0.118603455965,0.118586468933,0.118807300347,0.119072915753,0.119678271795,0.119806446671,0.120038088014,0.120286716388,0.120448865328,0.120680506671,0.120992450345,0.121071208402,0.121023335858,0.121299761193,0.121383152077,0.121330646706,0.121654944585,0.121747601122,0.12205491197,0.122169188366,0.122070354726,0.122508929002,0.122972211687,0.122975300238,0.123109652217,0.123512708153,0.123713463983,0.123775235008,0.123457114231,0.123310408047,0.123234738542,0.1231930431,0.123069501051,0.123163701863,0.123399976033,0.123205397305,0.123072589602,0.123301142393,0.123688755573,0.123841638859,0.124189100873,0.124300288718,0.124434640696,0.12471878741,0.124568992675,0.124863949318,0.124791368364,0.124672459142,0.124403755184,0.124399122357,0.124176746668,0.124003787799,0.123710375432,0.123166790415,0.12299228727,0.122956768931,0.123057146846,0.123046336916,0.123097298012,0.123172967517,0.123149803383,0.12303089416,0.123050969743,0.123421595891,0.12326716833,0.123191498824,0.123157524761,0.123038615538,0.123137449178,0.123310408047,0.12308031098,0.123027805609,0.122876466599,0.122782265786,0.122664900839,0.122325160203,0.122314350274,0.122414728189,0.122457967906,0.122419361016,0.122512017553,0.122325160203,0.122390019779,0.121946812677,0.121722892712,0.121602439214,0.121179307695,0.120983184692,0.120385550028,0.119950064304,0.119880571901,0.119644297731,0.119236608968,0.119225799039,0.119505312926,0.119576349604,0.119593336636,0.119272127308,0.119117699746,0.118984892043,0.118691479675,0.118710010983,0.118621987273,0.118279158086,0.11796412586,0.11735104844,0.117411275189,0.11730163162,0.116941815401,0.11670245268,0.116554202221,0.116419850242,0.116473899889,0.116263878405,0.116087830985,0.116504785401,0.116027604236,0.115919504942,0.116302485295,0.115893252257,0.115639991056,0.115419159642,0.115005293777,0.114827702081,0.114594516463,0.114138955155,0.113827011481,0.113794581693,0.113547497594,0.113515067806,0.113416234167,0.113343653213,0.113556763248,0.113586104484,0.113536687665,0.113440942576,0.113326666181,0.11317532717,0.112783081163,0.112466504662,0.112358405369,0.111926008196,0.111569280528,0.111345360564,0.11114923756,0.11089906491,0.110727650317,0.110329227207,0.110157812614,0.110163989716,0.10988447583,0.109777920812,0.109441268727,0.1093100053,0.109082996784,0.1088729753,0.108701560707,0.10847146364,0.108256809329,0.107880006078,0.107464595937,0.107177360672,0.107118678199,0.106882404029,0.106329553358,0.106133430355,0.106156594489,0.106352717493,0.106062393677,0.105979002793,0.106179758624,0.105761259931,0.105555871274,0.105416886469,0.105443139154,0.105165169543,0.104987577847,0.104343614914,0.104437815727,0.104451714208,0.104054835374,0.104264856858,0.103861800922,0.103495807601,0.103304317424,0.103000095127,0.102908982866,0.102728302619,0.102235678697,0.101897482337,0.101638044033,0.101423389722,0.101429566825,0.101012612408,0.101000258203,0.101072839157,0.100808768026,0.100561683928,0.100614189299,0.100303789899,0.100045895871,0.0999439736806,0.0995857017374,0.0997169651648,0.0994714253417,0.0992907450945,0.098784222692,0.0987456158015,0.0984444820561,0.098489266049,0.0982622575333,0.0980553246006,0.0979086184169,0.0978128733286,0.0974731326928,0.0969944072514,0.0970268370394,0.0965697314566,0.0961697640717,0.0954609415634,0.0949729504683,0.0942749378892,0.0936618604691,0.0924743125194,0.0912388920255,0.0900513440757,0.0885580295537,0.0876268313565,0.0866493048907,0.0858262059866,0.0852501911813,0.0844579777896,0.0834804513238,0.0829584861651,0.0829229678259,0.082785527296,0.0826944150346,0.082390192738,0.0823345988157,0.0822234109713,0.0817693939398,0.0814049448941,0.0812458845055,0.0814034006185,0.0810806470144,0.0808088545058,0.0807131094175,0.0803610145767,0.0800753235875,0.0799749456724,0.0800830449656,0.0800398052483,0.0801726129514,0.0798622135523,0.0797278615736,0.0797819112202,0.0795950538705,0.0797865440471,0.0797371272273,0.0793093628813,0.0790591902313,0.0789649894186,0.078818283235,0.0787302595248,0.0786020846485,0.0786128945779,0.0784553784649,0.0782932295251,0.0780476897019,0.0782885966982,0.0781249034828,0.0782561669103,0.0781635103732,0.0780600439068,0.0779751087479,0.0776631650732,0.0775473444019,0.0774099038719,0.0773512213985,0.0770608975824,0.0769805952503,0.0768030035543,0.0764787056747,0.0765003255333,0.076457085816,0.076437010233,0.0762300773003,0.0759752718234,0.0760354985725,0.0759026908694,0.0758254770885,0.0755181662407,0.0753591058521,0.0751784256048,0.0751398187144,0.0750533392798,0.0748819246863,0.0748108880079,0.0746904345097,0.0744696030965,0.0741900892097,0.0741437609412,0.074075812814,0.073627972885,0.0734133185742,0.0733685345813,0.073575467514,0.0735214178674,0.0732974979029,0.0733005864541,0.0732218283976,0.0731137291044,0.0730473252529,0.0732048413658,0.0731168176556,0.0729114289985,0.0726782433803,0.0727014075146,0.0727322930269,0.0725809540164,0.0727230273732,0.0727971526028,0.0727369258538,0.0725716883627,0.0726226494581,0.0724867532038,0.0724620447939,0.0724234379034,0.072259744688,0.0723925523911,0.0721130385044,0.0716605657485,0.0715802634164,0.0715802634164,0.071319280837,0.0714057602716,0.0713686976568,0.0711555876216,0.0710397669503,0.0709177691765,0.0708266569151,0.0708606309787,0.0709023264203,0.0707957714027,0.0709625531694,0.0708436439469,0.0707293675512,0.0706243568092,0.0704467651132,0.0705039033111,0.070673773629,0.0707170133462,0.0707602530635,0.0706691408021,0.0702243894243,0.0701394542654,0.0703463871981,0.0702614520391,0.0703757284348,0.0702074023925,0.0700699618626,0.0701564412971,0.0699371541595,0.0698321434175,0.0701193786823,0.0699803938768,0.0698043464564,0.0698800159616,0.069713234195,0.0695634394601,0.069293191227,0.0692175217218,0.0693009126051,0.0692684828172,0.0691233209091,0.0690893468455,0.0688947681178,0.0688499841248,0.0689055780471,0.0689163879764,0.0690059559622,0.0688468955736,0.0687882131002,0.0689611719693,0.0689843361036,0.0690646384357,0.0690244872696,0.0688438070224,0.0687866688245,0.0688561612273,0.0687835802733,0.068897856669,0.0686924680119,0.0685859129943,0.0685596603088,0.068490167906,0.0684392068106,0.068720264973,0.068575103065,0.0682322738779,0.0684098655739,0.0684144984007,0.0685056106622,0.0685735587893,0.0685735587893,0.0684422953619,0.0685890015455,0.0684021441958,0.068522597694,0.0685967229236,0.0684453839131,0.0681797685069,0.0681612371995,0.0678570149029,0.0677103087192,0.0675790452918,0.0676485376945,0.0675666910868,0.0674091749738,0.0674555032424,0.0673288726417,0.0674663131717,0.0676423605921,0.0678307622174,0.0679311401325,0.0680160752915,0.0675867666698,0.0675960323235,0.0675280841964,0.0677242071998,0.067852382076,0.0678045095319,0.0676469934189,0.0676979545143,0.0675574254331,0.0676763346556,0.0678755462103,0.067747371334,0.0679434943375,0.067654714797,0.0675188185427,0.0675358055745,0.0674987429596,0.0673535810516,0.0673474039491,0.0674138078007,0.0673335054686,0.0673674795322,0.0673752009103,0.0674585917936,0.0676238292847,0.0673798337371,0.0673798337371,0.0674338833837,0.0675141857158,0.0673396825711,0.0673335054686,0.0674956544084,0.0674925658572,0.0674462375887,0.0674477818643,0.0678462049736,0.0677828896732,0.0676639804507,0.0675790452918,0.0676717018288,0.0678477492492,0.0677921553269,0.067957392818,0.0681705028532,0.0682878678001,0.0682430838072,0.0683635373054,0.0684253083301,0.0686075328529,0.0684422953619,0.0683959670933,0.0686384183653,0.0685256862452,0.068397511369,0.0682832349733,0.0682415395316,0.068470092323,0.0684731808742,0.0683341960686,0.0685086992134,0.0683820686128,0.0682971334538,0.0682739693196,0.0682631593902,0.0683774357859,0.0682430838072,0.0680654921112,0.0681195417578,0.0681828570581,0.068102554726,0.0682863235245,0.068082479143,0.0681365287896,0.0681195417578,0.0680716692137,0.0682415395316,0.0681967555387,0.0681921227118,0.0681596929239,0.0682013883656,0.0682662479415,0.0685071549378,0.0686523168458,0.0687387962804,0.0687573275878,0.0687913016514,0.0688407184711,0.068970437623,0.06906309416,0.0692638499903,0.0691742820045,0.0692345087536,0.0690337529233,0.069022942994,0.0691202323579,0.0692190659974,0.0693611393542,0.0692391415804,0.0693734935591,0.0691727377289,0.062319242539,0.0552866113775,0.0484284833607,0.0415981523051,0.0)
ycorr <- c(8.90745146686e-05,8.89491684952e-05,8.85768938898e-05,8.79606870373e-05,8.70936392041e-05,8.59710752349e-05,8.45868165387e-05,8.32067944192e-05,8.18278726917e-05,8.04436818962e-05,7.90511768837e-05,7.76496955941e-05,7.62394949147e-05,7.48180385899e-05,7.33833428478e-05,7.19372356696e-05,7.04866235766e-05,6.90367061787e-05,6.75889784095e-05,6.61465283902e-05,6.47115971838e-05,6.3284172229e-05,6.18610311333e-05,6.04424584615e-05,5.90273166777e-05,5.7617231748e-05,5.6211061266e-05,5.48029580028e-05,5.33921803334e-05,5.19760651539e-05,5.05492352596e-05,4.91117844544e-05,4.76582831761e-05,4.61998671605e-05,4.4738289374e-05,4.32694889505e-05,4.17850953427e-05,4.02852471595e-05,3.8769041384e-05,3.72379285413e-05,3.56976198462e-05,3.41468901607e-05,3.25912479263e-05,3.10277865122e-05,2.9445235942e-05,2.78409303118e-05,2.62268458559e-05,2.46112585349e-05,2.29883631984e-05,2.13592852454e-05,1.97174340577e-05,1.80667814277e-05,1.6410403651e-05,1.47417525885e-05,1.30692629773e-05,1.13958407781e-05,9.71636307471e-06,8.02170843151e-06,6.31984985174e-06,4.61308139182e-06,2.90685934165e-06,1.19876849564e-06,-5.18480825725e-07,-2.24480449704e-06,-3.97888744568e-06,-5.71996664092e-06,-7.467830746e-06,-9.2205022067e-06,-1.09804496712e-05,-1.27558374064e-05,-1.45467158312e-05,-1.63554865001e-05,-1.81749612243e-05,-2.00014051841e-05,-2.18393718493e-05,-2.36872776797e-05,-2.55467758849e-05,-2.74171387787e-05,-2.9293147632e-05,-3.11673439201e-05,-3.30439078486e-05,-3.49197336442e-05,-3.68024416993e-05,-3.86927030652e-05,-4.05867399544e-05,-4.24840746095e-05,-4.43879135769e-05,-4.62980432451e-05,-4.82160211068e-05,-5.01467134991e-05,-5.20926970385e-05,-5.40499137851e-05,-5.60098706652e-05,-5.79673186099e-05,-5.99234087305e-05,-6.18811480685e-05,-6.38354957057e-05,-6.57873001318e-05,-6.77433256707e-05,-6.96964641167e-05,-7.16407395036e-05,-7.35802436694e-05,-7.55214760771e-05,-7.74729793362e-05,-7.9434988174e-05,-8.14072814934e-05,-8.33904931216e-05,-8.5386263183e-05,-8.73843222717e-05,-8.93847200899e-05,-9.13880831929e-05,-9.33937295286e-05,-9.53947036063e-05,-9.73873892861e-05,-9.93702737365e-05,-0.000101342658283,-0.000103302360927,-0.000105245479218,-0.000107173537294,-0.000109093986917,-0.000111006039522,-0.000112912310722,-0.000114817423604,-0.000116725842905,-0.000118633946787,-0.00012054338368,-0.000122455509219,-0.000124376088283,-0.000126305040428,-0.00012824192372,-0.000130186339772,-0.000132135434022,-0.000134090432519,-0.000136049524762,-0.000138008192348,-0.000139968596725,-0.000141929793736,-0.000143889317718,-0.000145843098452,-0.000147791779849,-0.000149736605241,-0.000151680180016,-0.000153623741914,-0.000155564892538,-0.000157504931402,-0.000159442855088,-0.000161381527092,-0.000163316312493,-0.000165246716009,-0.000167173116622,-0.0001690945107,-0.000171008081455,-0.000172906253297,-0.000174788961557,-0.000176663136901,-0.000178523840361,-0.000180370367715,-0.00018220423431,-0.000184038497715,-0.000185875760209,-0.00018771704211,-0.000189563728412,-0.00019141298958,-0.000193266539814,-0.000195120245713,-0.000196974054803,-0.000198829435287,-0.000200687014436,-0.000202540233763,-0.000204375402767,-0.000206197938107,-0.00020800496189,-0.000209798397732,-0.000211582716379,-0.000213360865105,-0.000215135561863,-0.000216907046578,-0.000218674557419,-0.000220441095169,-0.00022221716581,-0.000223998849049,-0.00022578115516,-0.000227572164269,-0.000229366191349,-0.000231160964872,-0.000232956327197,-0.000234747158212,-0.000236528030649,-0.000238299143297,-0.000240056083536,-0.000241791900707,-0.000243520606369,-0.000245239094927,-0.000246941264749,-0.000248635017527,-0.000250320210798,-0.000252001704836,-0.000253687394364,-0.000255379387929,-0.000257079346694,-0.000258788400413,-0.00026050257867,-0.000262213071255,-0.000263921512297,-0.000265629248449,-0.000267333233384,-0.0002690314169,-0.000270717243778,-0.000272388530155,-0.000274044065267,-0.000275687225718,-0.000277318847786,-0.00027894357263,-0.000280568964732,-0.00028219109657,-0.000283807252102,-0.000285419324763,-0.000287031648343,-0.000288643128733,-0.000290252616012,-0.000291859618551,-0.000293460056733,-0.000295056545495,-0.000296643659185,-0.000298218655718,-0.000299786302625,-0.000301350110291,-0.000302910499574,-0.000304461456967,-0.000306006743758,-0.000307550034203,-0.000309099279668,-0.000310649685813,-0.000312204577856,-0.000313768211663,-0.00031533390348,-0.000316901263982,-0.000318467105874,-0.000320032889429,-0.00032160001752,-0.000323168179628,-0.00032472500418,-0.00032627129242,-0.000327813784538,-0.000329347184782,-0.000330876517981,-0.000332401428693,-0.000333920619001,-0.000335434928656,-0.000336942667546,-0.000338445879439,-0.000339941306148,-0.000341434287499,-0.000342914803057,-0.000344382582477,-0.00034584003163,-0.000347285111189,-0.000348721326751,-0.000350154058905,-0.000351584284005,-0.000353012126152,-0.000354437801107,-0.000355865399095,-0.000357296396082,-0.000358729546383,-0.00036016681294,-0.000361605672268,-0.000363045608021,-0.000364486348605,-0.000365921657583,-0.000367346301238,-0.000368765250299,-0.000370176107344,-0.000371578799101,-0.000372974746221,-0.000374366614123,-0.000375752467408,-0.000377136448675,-0.00037851104391,-0.000379878833243,-0.000381244254291,-0.000382604239718,-0.000383951035278,-0.000385280136268,-0.000386587129566,-0.000387866018154,-0.000389110387948,-0.000390305687954,-0.000391442797676,-0.000392517268005,-0.000393519285686,-0.000394446442074,-0.000395304203002,-0.000396098054944,-0.000396838778127,-0.000397527077823,-0.000398165227779,-0.000398764654958,-0.00039934859581,-0.000399926595549,-0.000400511025494,-0.000401114163028,-0.000401738954238,-0.000402386145659,-0.000403048651098,-0.000403720714707,-0.000404407683146,-0.000405119051924,-0.00040584429318,-0.000406575081608,-0.000407309678004,-0.000408039068779,-0.000408760416013,-0.000409471111888,-0.000410175760078,-0.000410879755259,-0.000411587186576,-0.00041228951179,-0.000412981813619,-0.000413670612158,-0.000414352481296,-0.000415032552146,-0.000415715838529,-0.000416399679667,-0.000417079590532,-0.000417752056178,-0.000418417404549,-0.000419072866517,-0.000419722596066,-0.000420368880162,-0.000421008879217,-0.000421643806302,-0.000422263537462,-0.000422872512356,-0.000423473003796,-0.000424071959924,-0.000424667220003,-0.000425257707696,-0.00042584437267,-0.000426424702984,-0.000426996904212,-0.000427561441089,-0.000428121237285,-0.000428678836898,-0.000429231801308,-0.000429781400555,-0.000430320575728,-0.000430854007231,-0.000431380836997,-0.000431900199887,-0.000432413646202,-0.000432920816267,-0.00043342653514,-0.00043392653511,-0.0004344225472,-0.000434908676967,-0.000435384883428,-0.000435851778291,-0.00043630792222,-0.000436755229062,-0.000437192705608,-0.000437620721162,-0.00043803959963,-0.000438443516317,-0.000438832891065,-0.000439209944297,-0.000439578355661,-0.000439934816474,-0.000440284376788,-0.000440626649241,-0.000440965053594,-0.000441299832653,-0.000441626493523,-0.000441946641495,-0.000442261000393,-0.000442570157775,-0.000442871234511,-0.000443168218582,-0.000443460458632,-0.00044374305109,-0.000444012240074,-0.000444264259792,-0.000444502520108,-0.000444730022738,-0.000444948742086,-0.000445158422088,-0.000445359847927,-0.000445551357651,-0.000445730168849,-0.000445897186572,-0.000446055292761,-0.000446207859293,-0.000446351741124,-0.000446487512055,-0.000446610643695,-0.000446714068036,-0.00044680130151,-0.000446874374701,-0.000446933246433,-0.000446981607967,-0.000447021385274,-0.000447049635089,-0.000447064913499,-0.000447069263164,-0.000447060562697,-0.000447047151655,-0.000447034123823,-0.000447016381966,-0.000446994601522,-0.000446968147882,-0.000446931888962,-0.000446884870348,-0.00044682738335,-0.000446760710306,-0.00044668771556,-0.000446606870455,-0.000446515251934,-0.000446407416626,-0.000446281542529,-0.000446136513445,-0.000445977655252,-0.000445802547015,-0.000445615117942,-0.000445414605427,-0.000445198143525,-0.000444963530433,-0.000444707160209,-0.000444430257054,-0.000444140648698,-0.000443838412044,-0.00044352152035,-0.00044318890174,-0.000442839955904,-0.000442470720231,-0.00044208070743,-0.000441673047777,-0.00044124997431,-0.000440814436864,-0.000440363980235,-0.000439893071,-0.000439402393432,-0.000438893536706,-0.000438365639535,-0.000437822365286,-0.000437266353604,-0.000436695747684,-0.000436108292603,-0.000435504556263,-0.000434882942448,-0.000434246316818,-0.000433593206895,-0.00043292372601,-0.000432237221232,-0.000431534476015,-0.00043081329532,-0.000430076148568,-0.000429322595687,-0.000428551284681,-0.000427757786114,-0.000426944226996,-0.00042610941051,-0.000425260678767,-0.000424397859417,-0.000423514863398,-0.000422614520265,-0.000421695764026,-0.000420755848115,-0.000419800091611,-0.0004188288396,-0.000417839106529,-0.000416834326158,-0.000415810835999,-0.00041476330024,-0.000413694326655,-0.000412605639815,-0.00041148865785,-0.0004103485234,-0.000409179938787,-0.000407985764083,-0.000406767460588,-0.000405530083661,-0.000404266583473,-0.000402981524384,-0.000401676709528,-0.000400351546329,-0.00039901520122,-0.00039767201398,-0.000396321197527,-0.000394964249687,-0.000393596891166,-0.000392209995402,-0.00039080658096,-0.000389388048152,-0.000387957179088,-0.000386511071534,-0.000385047289353,-0.000383556644527,-0.000382038599806,-0.000380490426637,-0.000378917444617,-0.000377322838573,-0.000375709325221,-0.000374075131115,-0.000372416476628,-0.000370730696011,-0.000369019552465,-0.000367286224226,-0.00036553185421,-0.000363756384938,-0.000361963090376,-0.000360150559766,-0.000358319006251,-0.000356474286787,-0.000354612628082,-0.0003527400228,-0.00035085016949,-0.000348943066979,-0.00034702109231,-0.000345086076694,-0.000343132952499,-0.000341156795649,-0.000339157613053,-0.000337131268329,-0.000335078052399,-0.000332999059442,-0.000330900612356,-0.000328783676084,-0.000326645640646,-0.000324483631798,-0.000322298228254,-0.000320096831833,-0.000317879110506,-0.000315645945981,-0.000313400543837,-0.000311142034586,-0.000308865120334,-0.000306563337706,-0.000304240843158,-0.000301901134858,-0.000299540478737,-0.000297158889279,-0.000294758125835,-0.000292335852253,-0.000289890105113,-0.00028741776829,-0.000284921612117,-0.00028241185618,-0.000279884985849,-0.00027733842223,-0.000274773982506,-0.00027219245555,-0.000269592108248,-0.000266969708102,-0.000264328501418,-0.000261669097014,-0.000258990159599,-0.000256287623769,-0.000253558423455,-0.000250806936502,-0.000248033642135,-0.000245238001962,-0.000242419197713,-0.000239579151922,-0.000236714753703,-0.00023382807827,-0.000230921068364,-0.000227994038106,-0.000225049891289,-0.000222084281268,-0.000219096291691,-0.000216088463836,-0.000213061050114,-0.000210020701851,-0.000206966905917,-0.000203899503687,-0.000200815421487,-0.000197712030952,-0.000194592476607,-0.000191456750004,-0.000188309949755,-0.000185147646168,-0.000181969816283,-0.000178768351517,-0.000175542205051,-0.000172291327051,-0.000169019888341,-0.000165730346934,-0.000162417935779,-0.000159082577349,-0.000155717985349,-0.000152224494654,-0.000148507530089,-0.000144487862286,-0.000140106943101,-0.00013482449698,-0.000130473973643,-0.000126495810256,-0.000122823544114,-0.000119370861592,-0.000116041030247,-0.000112736571438,-0.000109548734923,-0.000106572223826,-0.000103886468139,-0.000101555702545,-0.000100116424155,-9.77305905054e-05,-9.49544192489e-05,-9.18573502939e-05,-8.85240795618e-05,-8.50515956939e-05,-8.15436992684e-05,-7.80084793527e-05,-7.44506010134e-05,-7.08657333501e-05,-6.72505957387e-05,-6.36096060087e-05,-5.99440973998e-05,-5.6258045278e-05,-5.25505570148e-05,-4.88291466837e-05,-4.50936183526e-05,-4.13443822934e-05,-3.75754245928e-05,-3.37918761958e-05,-2.99971464208e-05,-2.61947025568e-05,-2.2384628335e-05,-1.8571199588e-05,-1.47486748799e-05,-1.09144565758e-05,-7.06743765861e-06,-3.2023871162e-06,6.74918718589e-07,4.56606382895e-06,8.47001464611e-06,1.23869604114e-05,1.63181465976e-05,2.02679406687e-05,2.42341317817e-05,2.82154088121e-05,3.22090926733e-05,3.62100037459e-05,4.0216531269e-05,4.42338720275e-05,4.82616514312e-05,5.23046703838e-05,5.63601367403e-05,6.04250554562e-05,6.44975943304e-05,6.85830776236e-05,7.26771915008e-05,7.67844074946e-05,8.0908492026e-05,8.50464364546e-05,8.91993731916e-05,9.33638102127e-05,9.75442234049e-05,0.000101744789721,0.000105966367734,0.000110204940626,0.000114457859883,0.000118723696,0.000123000670554,0.000127286172893,0.000131578586404,0.000135879536823,0.000140185244484,0.000144490974424,0.000148794668483,0.000153096871272,0.000157403851044,0.000161718267134,0.000166043474049,0.000170380269482,0.000174730788435,0.000179094140988,0.000183470049497,0.000187858061681,0.000192261787851,0.000196682402538,0.000201117184337,0.000205561855942,0.000210013827881,0.000214471210943,0.000218931513407,0.000223392520611,0.000227859661352,0.000232333817872,0.000236815153089,0.000241299203863,0.0002457849502,0.000250272882841,0.000254763056971,0.000259256849789,0.000263757352584,0.000268266971827,0.000272783293614,0.000277298409333,0.000281813399226,0.000286327946492,0.000290844722733,0.000295360977151,0.000299876287777,0.000304388813791,0.000308894581822,0.000313392824479,0.000317882340738,0.000322371557449,0.000326859447841,0.000331343248381,0.000335821823645,0.000340296951904,0.000344770677163,0.000349244590937,0.000353720740604,0.000358194917865,0.000362659719455,0.000367112093918,0.000371548561789,0.00037597170343,0.000380380546608,0.000384774067211,0.000389148941229,0.000393506893543,0.000397843150951,0.00040215992871,0.000406462490078,0.00041075357342,0.000415033604059,0.000419301160906,0.000423559498891,0.000427806561452,0.000432045849505,0.000436272376771,0.000440483128063,0.000444683856524,0.000448868776556,0.000453039306196,0.000457190082535,0.000461323198248,0.000465434880338,0.000469526160877,0.000473593793786,0.000477640359908,0.000481669179621,0.000485675016585,0.000489659378294,0.00049361961698,0.000497560134696,0.000501482618068,0.00050538219124,0.000509260278633,0.000513111843288,0.000516937489887,0.000520735158958,0.000524507404628,0.000528256550602,0.000531978956103,0.000535676530574,0.000539345577915,0.000542988080575,0.000546608972449,0.000550210135591,0.000553788797846,0.000557344109034,0.000560870890512,0.000564367218234,0.000567831024889,0.000571262679701,0.000574658546665,0.000578019709708,0.000581344314369,0.000584625875103,0.000587862565975,0.000591060303154,0.000594219076109,0.000597339759281,0.000600425889978,0.000603477225704,0.000606497707169,0.000609492689925,0.000612454086328,0.000615389856191,0.000618302647361,0.000621189481333,0.000624053379001,0.000626895064768,0.00062971346962,0.000632504646242,0.00063527157389,0.000638005080418,0.000640706532067,0.000643377617618,0.000646014874443,0.000648618851132,0.000651189989179,0.000653721422315,0.000656216114853,0.000658677635806,0.00066109926119,0.000663482453128,0.000665831757558,0.000668143053987,0.000670420422989,0.000672659621549,0.000674857034404,0.000677016519356,0.000679140170297,0.000681223199158,0.000683265443877,0.000685270885446,0.00068723623747,0.000689163553956,0.000691049905412,0.000692896663795,0.000694707773324,0.000696484290104,0.000698223536006,0.000699926660272,0.000701594544666,0.000703226670811,0.000704823623043,0.000706381515483,0.00070789963257,0.000709379338647,0.000710815314115,0.000712205706403,0.000713551725545,0.000714852964216,0.000716109457168,0.000717318727819,0.000718479504975,0.000719596000515,0.000720669348251,0.000721700493228,0.00072269406647,0.000723651548985,0.000724572546327,0.000725453690639,0.000726296385301,0.000727100482996,0.000727868514904,0.000728598935091,0.00072929050512,0.000729943780987,0.000730551688373,0.000731116927572,0.000731636347023,0.000732113150317,0.000732547284575,0.000732940920167,0.00073329620961,0.000733611436921,0.000733888015057,0.000734120617432,0.000734314349308,0.000734469617654,0.000734584877919,0.000734664155255,0.000734705757143,0.000734710781635,0.000734672271192,0.000734587601461,0.00073445848871,0.000734290641984,0.000734084751364,0.00073383919083,0.000733556687315,0.000733229958254,0.000732860645927,0.000732446619201,0.000731989875523,0.000731494899707,0.000730960092233,0.000730382705549,0.000729759622798,0.000729093839812,0.00072838218488,0.000727624539854,0.000726821122901,0.000725972915403,0.000725081211782,0.000724147294358,0.000723172644004,0.00072215485113,0.000721098762527,0.000719997256789,0.000718848673611,0.000717659427297,0.000716428686899,0.000715154534199,0.000713829356441,0.00071244882679,0.000711008016572,0.000709505769507,0.000707938028085,0.000706303557559,0.000704602831285,0.000702832241602,0.000700985771963,0.000699064611786,0.000697073436055,0.000695017986787,0.000692897856583,0.000690716859479,0.000688474118906,0.000686171428326,0.000683811587655,0.000681396157471,0.00067892931441,0.000676411320625,0.000673841577894,0.000671217073592,0.000668541622699,0.000665819480782,0.000663050156835,0.000660238817084,0.000657387882434,0.000654500619915,0.000651579807893,0.000648625743841,0.000645643171435,0.000642636225149,0.0006396064741,0.000636545053208,0.000633458104195,0.00063034574857,0.000627205764652,0.000624034931742,0.000620833731744,0.000617605005415,0.000614349133155,0.000611063779809,0.000607749095883,0.000604413743903,0.000601056013057,0.000597673879047,0.000594266754541,0.000590836931175,0.000587384092103,0.000583903379813,0.000580391350224,0.000576848615218,0.000573276261262,0.00056966990602,0.000566025533855,0.000562349169689,0.000558639869083,0.00055489805443,0.000551121501514,0.000547318222378,0.000543490103696,0.00053963462576,0.000535751965844,0.000531842962056,0.000527910068943,0.000523950888151,0.000519965603841,0.000515951247876,0.00051191219681,0.000507846714973,0.000503754733613,0.000499637285489,0.000495491741351,0.000491318925269,0.000487118401935,0.000482890923694,0.000478638586197,0.000474361642784,0.000470061857903,0.000465736616144,0.000461385368365,0.000457009102223,0.000452608008108,0.000448187055743,0.000443749248391,0.00043929362256,0.000434820683704,0.000430331358782,0.000425824263521,0.000421296675515,0.000416749107442,0.00041218432665,0.000407606118775,0.000403012477351,0.000398403596078,0.000393775673102,0.000389127754731,0.00038446369264,0.000379784377037,0.000375093820129,0.000370396689461,0.000365694251166,0.000360981886885,0.000356255885946,0.000351516146615,0.000346765160565,0.000342009353328,0.000337246392042,0.000332471079911,0.00032768150845,0.000322878508113,0.000318061904409,0.000313236844803,0.000308402419221,0.000303556429175,0.00029870074448,0.000293828025613,0.000288938200416,0.000284039992005,0.000279135058422,0.000274220865046,0.000269294477424,0.000264351585225,0.000259392778365,0.000254424705406,0.000249449128056,0.000244468193127,0.000239490014058,0.00023450974352,0.000229526854988,0.000224540910183,0.000219554595661,0.000214572189999,0.000209600245831,0.000204636276841,0.000199679075363,0.000194731717641,0.000189790693168,0.000184857851756,0.000179933698871,0.000175017622145,0.000170112449269,0.0001652156914,0.000160323312717,0.000155435098107,0.000150549614532,0.000145667582388,0.000140784578288,0.000135897954713,0.000131007251986,0.00012611545846,0.000121221998402,0.000116324371831,0.000111429398064,0.000106539153467,0.000101651726512,9.67669222198e-05,9.18901083028e-05,8.70245743607e-05,8.21742695159e-05,7.73393295114e-05,7.2516320379e-05,6.77067201303e-05,6.29128395373e-05,5.81292952096e-05,5.33562982764e-05,4.86003542336e-05,4.38575012539e-05,3.91257770392e-05,3.44049087526e-05,2.96946605444e-05,2.49957072415e-05,2.03124708404e-05,1.56454193103e-05,1.09957736517e-05,6.36582477158e-06,1.74954056925e-06,-2.85448506122e-06,-7.44319320516e-06,-1.20174211507e-05,-1.65732262395e-05,-2.11073985027e-05,-2.56199535567e-05,-3.01139176216e-05,-3.4590462864e-05,-3.90445731192e-05,-4.34754193193e-05,-4.78782883201e-05,-5.22542706127e-05,-5.66000255768e-05,-6.09185176333e-05,-6.52146940747e-05,-6.949044045e-05,-7.37481698541e-05,-7.79890245888e-05,-8.22148277013e-05,-8.64298734904e-05,-9.06333941686e-05,-9.48237396044e-05,-9.90031095927e-05,-0.000103174935904,-0.000107337173662,-0.000111490848625,-0.000115634443099,-0.000119758343225,-0.000123863282188,-0.000127943532917,-0.000132001674648,-0.000136041483191,-0.000140062658855,-0.00014405985344,-0.000148034019171,-0.000151979909218,-0.000155898401988,-0.000159791686527,-0.000163661798542,-0.000167509751298,-0.000171335522832,-0.000175135039511,-0.00017890483493,-0.000182649096422,-0.000186365124969,-0.0001900522419,-0.000193716170036,-0.000197357980672,-0.000200977388094,-0.000204574664465,-0.00020814833421,-0.000211698729343,-0.000215231193505,-0.000218741676034,-0.000222228084266,-0.000225697353429,-0.000229143017981,-0.000232565271124,-0.000235961501462,-0.000239328972367,-0.000242669885347,-0.000245983229218,-0.000249271384943,-0.000252528911851,-0.000255761755854,-0.000258965523575,-0.000262137843856,-0.000265282128356,-0.000268395369225,-0.00027148026302,-0.000274536268505,-0.000277567425101,-0.000280572467488,-0.000283552631944,-0.000286508430642,-0.000289434064967,-0.000292335831524,-0.000295211943814,-0.000298059932059,-0.000300881117907,-0.000303672348325,-0.000306436510448,-0.000309168066965,-0.000311868593889,-0.000314535384962,-0.000317172285732,-0.000319780878943,-0.000322359652355,-0.000324915038949,-0.000327447771742,-0.000329956812413,-0.000332439388209,-0.000334893542041,-0.00033732403323,-0.000339730282191,-0.00034211799946,-0.000344480928985,-0.000346818015267,-0.00034912671237,-0.000351404588114,-0.000353654148061,-0.000355877160165,-0.000358076781827,-0.000360256259867,-0.000362413075147,-0.000364542194185,-0.000366644417814,-0.000368722460569,-0.000370777041672,-0.000372808148344,-0.000374814905018,-0.000376794556524,-0.000378743763962,-0.000380658657463,-0.000382539479574,-0.000384385233347,-0.000386193760797,-0.000387963336908,-0.00038969372326,-0.000391387168398,-0.000393045442969,-0.000394669628455,-0.000396265779408,-0.000397840819589,-0.000399395787927,-0.000400934889082,-0.000402322569809,-0.000403426790407,-0.000404252161216,-0.000404799188533,-0.000405071345789)
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(261)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Cavia_porcellus-male-liver-H3K27Ac-ERR572182.50mers.unique.MACS-2.1.0.p1e-1_model.pdf',height=6,width=6)
plot(x,p,type='l',col=c('red'),main='Peak Model',xlab='Distance to the middle',ylab='Percentage')
lines(x,m,col=c('blue'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 261',bty='n')
dev.off()