# R script for Peak Model
#  -- generated by MACS
p <- c(0.0303178559688,0.0359890784382,0.0404238079584,0.0454530052426,0.0506129854349,0.0498163986311,0.0502563047765,0.0507675470536,0.0506605428561,0.0511480064226,0.0507318789878,0.0500541857367,0.0509577767381,0.0510766702909,0.0511717851332,0.0515760232128,0.0511598957779,0.0513382361071,0.0517781422526,0.0516949167656,0.0515998019233,0.0520515974241,0.0520753761346,0.0524677248589,0.0527768480962,0.0525271716353,0.0526936226093,0.0526222864776,0.0527174013198,0.0523726100167,0.0528481842279,0.0526936226093,0.0525628397012,0.0525866184117,0.0522061590427,0.0528481842279,0.052978967136,0.0530503032677,0.0536328816765,0.0537993326505,0.0541679026642,0.0539420049139,0.0546672555861,0.0544294684804,0.0542154600854,0.0544056897699,0.054370021704,0.0544413578357,0.0538587794269,0.0542630175065,0.0537993326505,0.0541679026642,0.0534307626367,0.0536804390977,0.054536472678,0.0543224642829,0.0544889152568,0.0548931533364,0.0556184040086,0.0556540720745,0.0563317653255,0.0555470678769,0.0557016294956,0.0553092807713,0.0547385917178,0.0547267023625,0.0549526001128,0.054916932047,0.0550239362445,0.0546434768755,0.0542273494406,0.0550714936656,0.0552379446396,0.0561772037069,0.0568073395368,0.0567835608262,0.0564863269442,0.0562960972597,0.0557729656273,0.0564982162995,0.0568667863132,0.0571877989058,0.0572591350375,0.056985679866,0.0572591350375,0.0571877989058,0.0573304711692,0.0574969221432,0.0579724963544,0.0581627260389,0.0581508366837,0.0580557218414,0.0580557218414,0.0578179347358,0.0577941560252,0.0583529557234,0.0586739683161,0.0591614318826,0.0595894486728,0.0595062231858,0.0589830915534,0.0586739683161,0.0590425383298,0.0586977470266,0.0581627260389,0.0575682582748,0.0573661392351,0.0571640201953,0.0569262330896,0.0564387695231,0.0570094585766,0.0572472456822,0.0568786756685,0.0573780285903,0.057235356327,0.0577703773146,0.0575682582748,0.057829824091,0.0570451266424,0.0570094585766,0.0568192288921,0.0568311182474,0.0574969221432,0.0574850327879,0.0581389473284,0.0585075173421,0.0587096363819,0.0573899179456,0.0577703773146,0.0578179347358,0.0580438324861,0.0578179347358,0.0574136966562,0.0573185818139,0.0573780285903,0.0567003353393,0.05715213084,0.0579843857097,0.057913049578,0.0584005131446,0.0583291770129,0.0589117554217,0.0588760873558,0.0594348870541,0.0594943338305,0.0596488954492,0.0600888015946,0.0603503674108,0.060148248371,0.0603741461214,0.0608853883985,0.0613847413203,0.0617295326235,0.0612064009911,0.0606713800034,0.0608616096879,0.0605049290295,0.0611826222805,0.061622528426,0.0618722048869,0.061836536821,0.0618603155316,0.0622645536112,0.0620148771503,0.0623596684534,0.062680681046,0.0623240003876,0.062002987795,0.0624904513615,0.062002987795,0.0617057539129,0.061372851965,0.0612182903464,0.0620981026372,0.0624785620063,0.0633227062313,0.0641787398116,0.0640122888376,0.0641787398116,0.0646899820887,0.065082330813,0.0656649092218,0.0658908069722,0.066306934407,0.06622370892,0.0657362453535,0.0661523727884,0.066306934407,0.0661404834331,0.0658670282616,0.0661999302095,0.0661285940778,0.0658075814852,0.065843249551,0.0666041682891,0.0665803895785,0.065843249551,0.0661167047225,0.0667943979736,0.0670797425003,0.067151078632,0.0673769763824,0.0684826864236,0.0686966948187,0.0692673838722,0.0688512564373,0.0694932816226,0.0697905155046,0.0696835113071,0.0697191793729,0.069849962281,0.0701709748736,0.0698856303469,0.0697786261493,0.069089043543,0.0700877493867,0.0706584384402,0.0708486681247,0.0709081149011,0.072001935587,0.0722278333374,0.0723229481797,0.0725131778642,0.0730719775624,0.0737496708135,0.0740706834061,0.0751763934473,0.075247729579,0.0756995250797,0.0751763934473,0.0757351931455,0.0764604438177,0.0762107673568,0.0760324270276,0.0761156525146,0.0765793373706,0.0754617379741,0.0762702141332,0.0769597967396,0.0773521454639,0.0773283667533,0.0770311328713,0.0777088261223,0.0780655067808,0.078327072597,0.0783508513076,0.0784935235709,0.0794208932829,0.0784697448604,0.0786837532555,0.0794208932829,0.0795635655463,0.0797656845861,0.0799559142706,0.0804195991266,0.0810140668907,0.0818225430499,0.0812756327069,0.0818106536946,0.0824051214587,0.0816442027206,0.0825715724326,0.0827499127619,0.0834394953682,0.0836891718291,0.0831660401967,0.0830709253545,0.0831303721309,0.0832373763284,0.0835464995657,0.0838080653819,0.0838675121584,0.0842241928168,0.084188524751,0.0843668650802,0.0851040051077,0.084949443489,0.0856033580295,0.0863642767675,0.0867685148471,0.0885162500736,0.0887540371792,0.0885638074947,0.0891582752588,0.0890750497718,0.0897051856018,0.090347210787,0.0900975343261,0.0904661043398,0.0905968872479,0.0901569811025,0.0910011253275,0.0920236098817,0.0922495076321,0.0924516266719,0.0926656350669,0.0935216686472,0.0945322638462,0.0946749361096,0.0954001867818,0.0956736419533,0.0963037777832,0.0975997175089,0.098574644642,0.101297307002,0.102307902201,0.103413612242,0.104887892297,0.106956640116,0.107907788538,0.109940868292,0.110761233806,0.111165471886,0.112401964835,0.112449522256,0.113733572626,0.114589606207,0.114399376522,0.115635869472,0.116598907249,0.116491903052,0.117145817592,0.118489314739,0.119297790898,0.11894111024,0.118394199897,0.119107561214,0.120795849664,0.120510505137,0.12125953452,0.122507916824,0.122674367798,0.122828929417,0.122876486838,0.124422103025,0.126336289225,0.126514629554,0.125765600172,0.127489556688,0.127120986674,0.126871310213,0.127037761187,0.128464483821,0.129415632243,0.12949885773,0.129047062229,0.129582083217,0.130545120995,0.130212219047,0.132138294603,0.133125111091,0.134242710488,0.133886029829,0.134254599843,0.135609986345,0.137452836414,0.138475320968,0.139188682285,0.139331354548,0.139069788732,0.139902043602,0.139652367141,0.14005660522,0.139925822312,0.139295686482,0.138261312573,0.137999746757,0.139295686482,0.139747481983,0.138903337758,0.139509694878,0.13983070747,0.1404608433,0.139913932957,0.14005660522,0.140639183629,0.141126647196,0.141851897868,0.143159726949,0.144919351531,0.14466967507,0.146084508348,0.146726533534,0.148628830379,0.149235187498,0.149425417183,0.149163851366,0.147737128733,0.146536303849,0.146179623191,0.146690865468,0.147154550324,0.147095103547,0.147439894851,0.148807170708,0.150091221078,0.151137484343,0.151601169199,0.152742547306,0.153669917018,0.154133601874,0.154216827361,0.153919593479,0.154537839954,0.154454614467,0.154739958994,0.156119124206,0.15815220396,0.15903201625,0.159495701106,0.160197173068,0.161017538582,0.162135137979,0.161897350873,0.162777163164,0.164120660311,0.164310889996,0.164845910983,0.164536787746,0.165725723274,0.166141850709,0.166355859104,0.167949032712,0.169256861793,0.170540912163,0.169744325359,0.170124784728,0.170315014413,0.171943856086,0.172788000312,0.17397693584,0.175106424591,0.176164577212,0.177282176608,0.177389180806,0.178578116334,0.179660047664,0.180741978995,0.181086770298,0.180230736718,0.180896540614,0.180361519626,0.180385298337,0.180361519626,0.181169995785,0.181146217075,0.181229442562,0.181657459352,0.182477824866,0.184784359791,0.183547866842,0.184296896224,0.183726207171,0.183333858447,0.183607313618,0.185319380779,0.18559283595,0.185711729503,0.184380121711,0.183464641355,0.184475236554,0.184998368186,0.184891363988,0.185878180477,0.184285006869,0.182858284235,0.181538565799,0.179624379599,0.17883968215,0.177163283055,0.175998126238,0.17483296942,0.173965046484,0.172657217403,0.172645328048,0.172407540942,0.170980818309,0.170695473782,0.17082625669,0.170671695071,0.169494648898,0.167960922067,0.167378343658,0.166248854906,0.165476046813,0.164560566456,0.164881579049,0.164834021628,0.163692643521,0.163383520284,0.162313478308,0.163026839625,0.161992465716,0.162539376059,0.161100764069,0.160399292108,0.159162799158,0.15817598267,0.157938195564,0.1568919323,0.157391285221,0.156071566785,0.155215533205,0.154181159295,0.153527244755,0.152980334412,0.153016002478,0.152362087937,0.152350198582,0.152409645358,0.151803288239,0.151351492738,0.150614352711,0.149472974604,0.149270855564,0.148557494247,0.1472139971,0.146952431284,0.146191512546,0.145216585413,0.145276032189,0.145347368321,0.145252253479,0.144479445385,0.143968203108,0.142743599514,0.14300516533,0.142244246592,0.141162315262,0.140520290076,0.139937711668,0.138308869994,0.138332648705,0.138094861599,0.136691917676,0.136537356057,0.136168786043,0.134444829527,0.134052480803,0.13411192758,0.133220225933,0.13411192758,0.13285165592,0.13307755367,0.133886029829,0.133695800145,0.13267331559,0.134254599843,0.135265195042,0.134956071805,0.134849067607,0.134349714685,0.134302157264,0.132946770762,0.132982438828,0.132958660117,0.133660132079,0.133636353368,0.133790914987,0.134159485001,0.1356218757,0.137274496085,0.13962858843,0.14212535304,0.143599633094,0.145549487361,0.148200813589,0.150091221078,0.152754436662,0.155167975784,0.157676629748,0.161493112794,0.16787769658,0.172752332246,0.178934796992,0.185545278529,0.191026271314,0.197422744456,0.201833695265,0.206363539628,0.207659479353,0.206422986404,0.202820511754,0.200014623907,0.195318328571,0.189219089311,0.18264427584,0.175249096855,0.168115483686,0.160684636635,0.155726775482,0.151529833068,0.146607639981,0.142422586922,0.138629882587,0.135586207635,0.133255893999,0.12970097677,0.12760845024,0.125480255645,0.122828929417,0.119809033175,0.117645170514,0.115219742037,0.112223624506,0.110214323463,0.107063644313,0.106183832022,0.103354165465,0.101903664121,0.101047630541,0.10019159696,0.0987529849713,0.0978018365487,0.0977661684829,0.0966129010205,0.0957330887297,0.0941518044772,0.0942350299641,0.093890238661,0.0929034221726,0.0917620440655,0.0909892359722,0.0900737556155,0.0890869391271,0.0890156029954,0.0889323775084,0.0886470329817,0.0883022416785,0.0878742248883,0.0878742248883,0.0878385568225,0.088409245876,0.0885281394288,0.0879693397306,0.0865782851626,0.0870776380845,0.0861621577278,0.0848305499362,0.0834632740788,0.082797470183,0.0827618021171,0.0819295472474,0.0819295472474,0.0811805178646,0.081025956246,0.0807762797851,0.081406415615,0.0816917601418,0.0819889940238,0.0811448497988,0.080479045903,0.0806098288111,0.0799321355601,0.0807643904298,0.08056227139,0.0795635655463,0.0794208932829,0.0794090039276,0.0792187742431,0.0787194213213,0.0785767490579,0.0784340767945,0.0787788680977,0.0786005277685,0.0785529703474,0.0784221874393,0.0776137112801,0.0772570306216,0.0767101202787,0.0762345460674,0.0754736273293,0.0749029382758,0.0742014663142,0.0736426666159,0.0731076456283,0.0722159439821,0.0720257142976,0.0717760378367,0.0712885742701,0.0717760378367,0.0725250672194,0.0713955784677,0.0704919874662,0.070016413255,0.0695051709778,0.0702542003606,0.0699212984127,0.0694338348462,0.0697310687282,0.0697786261493,0.0692198264511,0.0698856303469,0.0700401919655,0.0696478432412,0.0699688558338,0.0696478432412,0.0695883964648,0.0688036990162,0.0681854525416,0.0675790954222,0.0673531976718,0.0664971640915,0.0661404834331,0.0659621431038,0.0657124666429,0.0655341263137,0.0657481347088,0.0658908069722,0.0661880408542,0.0658908069722,0.0659383643933,0.0664852747362,0.0668776234606,0.0675553167116,0.0674839805799,0.0673056402507,0.0667468405525,0.0659859218144,0.0654746795373,0.0658075814852,0.0652487817869,0.0654390114714,0.0647375395098,0.0635842720475,0.0630135829939,0.0626093449144,0.0619078729527,0.0632394807443,0.062763906533,0.0621575494136,0.062300221677,0.0609210564643,0.061075618083,0.0611112861488,0.060992392596,0.060231473858,0.0604811503189,0.0598391251337,0.0599936867523,0.0595418912516,0.0586026321844,0.0595181125411,0.0593397722118,0.0595537806069,0.0592446573696,0.0598985719101,0.0599580186865,0.0595537806069,0.0595300018964,0.0599342399759,0.059851014489,0.0588641980006,0.058923644777,0.058923644777,0.059601338028,0.0594705551199,0.0593635509224,0.0594586657647,0.0589355341323,0.0585550747632,0.0586620789608,0.0587928618689,0.05884041929,0.0581983941048,0.0576514837618,0.0574374753667,0.0578060453805,0.057829824091,0.0580319431308,0.0581865047495,0.0580913899072,0.0581865047495,0.057532590209,0.057615815696,0.0571164627741,0.0575207008537,0.05715213084,0.0562009824174,0.0564031014572,0.0562366504833,0.0566408885629,0.056605220497,0.0568786756685,0.0572234669717,0.0569737905107,0.0562604291938,0.0554519530347,0.0559394166012,0.0551547191526,0.0549050426917,0.0545008046121,0.0540965665325,0.0536685497424,0.0531216393994,0.0530384139124,0.0530503032677,0.052978967136,0.052598507767,0.0526341758329,0.052598507767,0.0526579545434,0.0532999797286,0.0530265245572,0.0529432990702,0.053062192623,0.0529551884255,0.0528481842279,0.0531691968205,0.0531573074653,0.0535615455449,0.0535853242554,0.0529670777808,0.0533118690839,0.0533832052156,0.0536328816765,0.053228643597,0.0532643116628,0.0538825581375,0.0539776729797,0.0531929755311,0.0534307626367,0.0533118690839,0.0532999797286,0.0535853242554,0.0537517752294,0.0540965665325,0.0542392387959,0.0538825581375,0.0537398858741,0.0545008046121,0.0542273494406,0.0542986855723,0.0539301155586,0.0532762010181,0.0531216393994,0.0532643116628,0.0536566603871,0.0530740819783,0.0537636645846,0.0531097500441,0.0527768480962,0.0527292906751,0.0527292906751,0.0529908564913,0.0530146352019,0.0524439461484,0.0519802612924,0.0519564825818,0.0509815554487,0.0513263467519,0.0511717851332,0.0506605428561,0.050910219317,0.0508745512511,0.0508151044747,0.0515284657916,0.0513025680413,0.0514333509494,0.0517186954762,0.0515522445022,0.0514452403047,0.0519564825818,0.0520634867793,0.0521823803322,0.0516235806339,0.051373904173,0.0518851464501,0.0516949167656,0.0516354699892,0.0515879125681,0.0514927977258,0.051290678686,0.0515522445022,0.0514927977258,0.0513263467519,0.0510291128698,0.0508032151195,0.0511480064226,0.0511004490015,0.0512312319096,0.0513501254624,0.0513620148177,0.050446534461,0.0495667221701,0.0500779644473,0.0500779644473,0.0495310541043,0.049221930867,0.0500541857367,0.049982849605,0.0502681941318,0.0500541857367,0.049899624118,0.0506486535008,0.0504108663952,0.0505059812374,0.0506962109219,0.0510172235145,0.0502087473554,0.0496737263677,0.0493289350645,0.0497807305652,0.0501136325131,0.049899624118,0.0504108663952,0.050363308974,0.0507675470536,0.0506010960797,0.0509696660934,0.051290678686,0.0517900316079,0.05145712966,0.0517305848314,0.0522537164638,0.0519564825818,0.0515998019233,0.051290678686,0.0515641338575,0.051837589029,0.0518256996737,0.0516116912786,0.0517424741867,0.0521823803322,0.0520278187135,0.0514809083705,0.0523607206614,0.0523369419508,0.0524796142142,0.0520159293582,0.052598507767,0.0528481842279,0.0530027458466,0.0526460651881,0.0524439461484,0.0527530693857,0.0525628397012,0.0527055119646,0.0523250525955,0.0521704909769,0.0515641338575,0.0511598957779,0.0507675470536,0.0507913257642,0.0507794364089,0.0511598957779,0.0510053341592,0.0506486535008,0.05082699383,0.0513382361071,0.0514095722388,0.0518970358054,0.0519921506476,0.0517068061209,0.0515522445022,0.0513501254624,0.050910219317,0.0517068061209,0.0512668999754,0.0511242277121,0.0513857935283,0.0511955638438,0.0517305848314,0.0518256996737,0.0521229335557,0.052598507767,0.0528362948727,0.0523726100167,0.0527768480962,0.0526698438987,0.0529551884255,0.052764958741,0.0524082780825,0.0520515974241,0.0521229335557,0.0515522445022,0.051207453199,0.0513501254624,0.0514809083705,0.0517900316079,0.0515998019233,0.0517068061209,0.0515998019233,0.0521586016216,0.0524082780825,0.0527292906751,0.0534902094132,0.0533950945709,0.0527292906751,0.0524082780825,0.0520159293582,0.051671138055,0.0519921506476,0.0516473593445,0.0509815554487,0.0507199896325,0.0504940918821,0.0505059812374,0.0509339980276,0.0504108663952,0.0508151044747,0.0508388831853,0.0506248747902,0.0505773173691,0.0505892067244,0.0504940918821,0.0500779644473,0.0500422963814,0.0494478286173,0.0493170457092,0.0489009182744,0.0485323482606,0.0486274631029,0.0486393524582,0.0489365863402,0.0489246969849,0.0493051563539,0.049221930867,0.049685615723,0.0503514196187,0.0507794364089,0.0517305848314,0.0512431212649,0.0513857935283,0.0517662528973,0.0524677248589,0.0525033929248,0.0529195203596,0.0531097500441,0.0529314097149,0.0527768480962,0.0524915035695,0.052978967136,0.0531573074653,0.0528719629385,0.0522061590427,0.0525390609906,0.0523369419508,0.051920814516,0.0519802612924,0.0520040400029,0.0518851464501,0.0515046870811,0.0515522445022,0.0516473593445,0.0516949167656,0.0512550106202,0.0511836744885,0.051207453199,0.0519089251607,0.0516592486998,0.0517662528973,0.0522299377533,0.0521823803322,0.0517781422526,0.0520278187135,0.0520278187135,0.0520634867793,0.052681733254,0.0520753761346,0.0519802612924,0.051671138055,0.0511123383568,0.0509696660934,0.0511123383568,0.0511717851332,0.0510172235145,0.0507199896325,0.050446534461,0.0504227557504,0.0507794364089,0.0508864406064,0.0506605428561,0.0504108663952,0.0508032151195,0.0508032151195,0.0511242277121,0.0509696660934,0.051373904173,0.0509221086723,0.0508032151195,0.0506724322114,0.051290678686,0.0511361170673,0.0507199896325,0.0507913257642,0.0506605428561,0.0511717851332,0.050743768343,0.0508745512511,0.0510528915804,0.0515760232128,0.0517305848314,0.0521823803322,0.0523726100167,0.0521467122663,0.0521229335557,0.0517305848314,0.051754363542,0.0521704909769,0.0518613677395,0.0513144573966,0.0510291128698,0.0512550106202,0.0513620148177,0.0513144573966,0.0514095722388,0.0518970358054,0.0521586016216,0.0519683719371,0.0522061590427,0.052218048398,0.0523607206614,0.0520991548452,0.0524677248589,0.0524558355036,0.0522299377533,0.0518494783843,0.0515879125681,0.0510410022251,0.0510766702909,0.0514095722388,0.051207453199,0.0503989770399,0.0497093944335,0.0496261689465,0.0492694882881,0.0496737263677,0.0496499476571,0.050149300579,0.0497331731441,0.0487820247215,0.0487463566557,0.0492813776434,0.0491862628011,0.048972254406,0.0491862628011,0.0486987992346,0.0483183398655,0.0476168679039,0.0475930891933,0.0480567740493,0.0481043314705,0.0476525359698,0.0477238721014,0.0476049785486,0.0475811998381,0.0477714295226,0.0484253440631,0.0486512418134,0.0487939140768,0.0488890289191,0.0488414714979,0.0494478286173,0.0493051563539,0.0500185176709,0.0500898538025,0.0501017431578,0.0500541857367,0.050149300579,0.050743768343,0.0506724322114,0.0511598957779,0.0513382361071,0.0511361170673,0.0506129854349,0.0504584238163,0.0499709602497,0.049519164749,0.0501849686448,0.0497212837888,0.0502087473554,0.0498401773416,0.0491981521564,0.0490435905377,0.0489009182744,0.0489960331166,0.0497093944335,0.0492813776434,0.0487106885898,0.0486155737476,0.0479378804965,0.047830876299,0.0479497698518,0.048128110181,0.0485799056817,0.0484253440631,0.0484610121289,0.0487225779451,0.0489484756955,0.0488890289191,0.0495548328149,0.0496142795913,0.0500066283156,0.0502563047765,0.049899624118,0.0503276409082,0.0503395302635,0.05145712966,0.0513501254624,0.050910219317,0.050446534461,0.0505654280138,0.0508864406064,0.0505773173691,0.0509221086723,0.0457621284799,0.0404356973137,0.0345147983833,0.0296282733624,0.0)
m <- c(0.0271492369918,0.0312920625134,0.036151226742,0.0402701743067,0.044830864074,0.0442936100438,0.0445443285913,0.0446398404188,0.044484633699,0.0448069861171,0.0450815826214,0.0451651554706,0.0447831081602,0.0450218877292,0.0453919960611,0.0454636299318,0.0453323011688,0.0459650670266,0.0456904705223,0.0453203621904,0.0451054605783,0.0449383148801,0.0446875963326,0.0448786199878,0.0442697320869,0.0445443285913,0.044377182893,0.0435892103154,0.0440548304749,0.0443174880007,0.0448189250956,0.0452726062766,0.0460128229404,0.0459411890697,0.0463709922939,0.0463351753585,0.0465978328844,0.0466814057335,0.0467769175611,0.0463948702508,0.0463112974016,0.0462754804663,0.0457740433714,0.045869555199,0.0459650670266,0.0462754804663,0.0462754804663,0.0466694667551,0.0466336498197,0.0465978328844,0.0465381379921,0.0467649785827,0.0470634530439,0.0479230594922,0.0478036697077,0.0474813172896,0.0478156086861,0.0479230594922,0.047493256268,0.0482931678241,0.0482334729318,0.0482334729318,0.0479827543844,0.0475290732034,0.0473261105697,0.0476604019663,0.0474574393327,0.0478633645999,0.0483886796517,0.0480902051904,0.0479230594922,0.0481140831473,0.0484364355655,0.048078266212,0.0484125576086,0.0481140831473,0.0482454119103,0.0476842799232,0.0476842799232,0.0482812288456,0.0489378726603,0.0491408352939,0.0492721640568,0.0491527742724,0.0493079809922,0.0498929909362,0.0503586110957,0.0507167804491,0.0508003532983,0.0498810519577,0.0502750382465,0.0503586110957,0.0506809635138,0.0518868003371,0.0519584342078,0.0518271054448,0.0513734242638,0.0510152549103,0.0508719871689,0.0513614852853,0.0506093296431,0.0508003532983,0.0504421839448,0.0497616621732,0.04994074685,0.0500840145913,0.0502153433543,0.0504302449663,0.0500840145913,0.0502630992681,0.0506451465784,0.0505496347508,0.0504063670095,0.0506332076,0.0507525973845,0.0504421839448,0.0509078041043,0.0513017903931,0.0515883258758,0.0511704616302,0.0511346446948,0.0513495463069,0.0516360817896,0.0516957766819,0.0514569971129,0.051433119156,0.051433119156,0.0514928140483,0.0515405699621,0.051910678294,0.0516599597465,0.0513495463069,0.0514569971129,0.0511465836733,0.0512779124362,0.0514450581345,0.0511346446948,0.0503347331388,0.0507048414707,0.0508003532983,0.0508600481905,0.0505615737293,0.0504421839448,0.0501795264189,0.0500362586775,0.0499526858284,0.0502511602896,0.0512301565224,0.0513376073284,0.0516480207681,0.0523762984534,0.0530806981819,0.0532836608155,0.0539283656518,0.0542984739837,0.0547282772078,0.0543462298974,0.0539641825871,0.053295599794,0.0526867118931,0.0523524204966,0.0520658850138,0.0522807866259,0.0519226172724,0.0511107667379,0.0510271938888,0.051910678294,0.0516002648543,0.0525553831302,0.0526508949578,0.0526150780224,0.0527583457638,0.0524121153888,0.052603139044,0.0535224403845,0.0531165151173,0.0525673221086,0.0531523320526,0.053056820225,0.0532000879664,0.0531762100095,0.0532597828586,0.0536895860828,0.0536060132336,0.0531403930742,0.0533672336647,0.0539761215655,0.0543820468328,0.0541432672638,0.0540119385009,0.0550745075828,0.0547402161862,0.0546088874233,0.0548237890354,0.0548954229061,0.0547879721,0.0547282772078,0.053988060544,0.0544894976388,0.0547999110785,0.0539641825871,0.054573070488,0.0539044876949,0.0540358164578,0.0541313282854,0.0539283656518,0.0538567317811,0.0536776471043,0.0530687592035,0.0530210032897,0.0527344678069,0.0523882374319,0.052949369419,0.052471810281,0.0524359933457,0.0530329422681,0.0530806981819,0.0532120269448,0.0526150780224,0.0519584342078,0.0513495463069,0.0513614852853,0.0516480207681,0.0518629223802,0.051671898725,0.0507645363629,0.0500840145913,0.0507287194276,0.0509913769534,0.0515405699621,0.0520061901215,0.0521136409276,0.0515286309836,0.0509674989965,0.0508600481905,0.051194339587,0.0510152549103,0.0508958651258,0.0507287194276,0.0502034043758,0.0506929024922,0.0504541229232,0.0507764753414,0.0520420070569,0.0519345562509,0.0520420070569,0.0518151664664,0.0515763868974,0.0523882374319,0.0531762100095,0.0523882374319,0.0522927256043,0.0524121153888,0.0518032274879,0.0524598713026,0.0529851863543,0.053056820225,0.0528538575914,0.0521733358198,0.0520061901215,0.0527941626991,0.0526628339362,0.0525076272164,0.0524837492595,0.0517435325957,0.0516360817896,0.0519464952293,0.0517315936172,0.0518629223802,0.0518987393155,0.0512540344793,0.051433119156,0.0511704616302,0.0509555600181,0.0514211801776,0.0517674105526,0.0517077156603,0.0517196546388,0.0520658850138,0.052125579906,0.0526867118931,0.0524359933457,0.0525673221086,0.0526986508716,0.0533672336647,0.0528657965698,0.0523404815181,0.0526747729147,0.0524240543672,0.0520778239922,0.0516599597465,0.051910678294,0.0518509834017,0.0516241428112,0.0507645363629,0.0509436210396,0.0513734242638,0.0512062785655,0.0509674989965,0.050979437975,0.0512540344793,0.051194339587,0.051086888781,0.05132566835,0.0510630108241,0.0506093296431,0.0509674989965,0.0507884143198,0.0512779124362,0.0516002648543,0.0510988277595,0.0508958651258,0.0512540344793,0.0507525973845,0.0510988277595,0.0508839261474,0.0508003532983,0.0509913769534,0.0505854516862,0.0505973906646,0.0510391328672,0.0512779124362,0.0511585226517,0.0516480207681,0.0520061901215,0.0523166035612,0.0528657965698,0.0527702847422,0.0534030506,0.0529732473759,0.0533075387724,0.0528538575914,0.0526986508716,0.0528538575914,0.0524001764103,0.0526389559793,0.0521136409276,0.0519584342078,0.0514928140483,0.0512062785655,0.0511704616302,0.0516480207681,0.0522091527552,0.052125579906,0.052256908669,0.051910678294,0.0520181291,0.0522688476474,0.0523166035612,0.0532000879664,0.0529613083974,0.0525912000655,0.0521972137767,0.051910678294,0.0518748613586,0.0528061016776,0.0523882374319,0.0525195661948,0.0526508949578,0.0521972137767,0.0519464952293,0.0527464067854,0.0531165151173,0.0531165151173,0.0529613083974,0.0521136409276,0.0526628339362,0.0529851863543,0.0528419186129,0.0530448812466,0.0535105014061,0.0528657965698,0.0530210032897,0.0535821352767,0.0540358164578,0.0541910231776,0.0538925487164,0.0536895860828,0.0541790841992,0.054573070488,0.054226840113,0.0547640941431,0.0544894976388,0.0544059247897,0.0543820468328,0.0549551177983,0.0552774702164,0.0555998226345,0.055611761613,0.0551700194104,0.0553371651087,0.0553132871518,0.0554087989794,0.0557430903759,0.0553013481733,0.0543701078543,0.0545372535526,0.0543104129621,0.0536776471043,0.0530806981819,0.0537254030181,0.0531165151173,0.0532478438802,0.0529016135052,0.0533433557078,0.0540238774793,0.0535105014061,0.0537134640397,0.0546566433371,0.0546327653802,0.0538567317811,0.0548118500569,0.0549670567768,0.054919300863,0.0550386906475,0.0553132871518,0.0556714565052,0.0550625686044,0.0545133755957,0.0556595175268,0.0565668798889,0.0561848325785,0.055850541182,0.0562564664492,0.0567459645656,0.0565788188673,0.0563997341906,0.0569608661777,0.0577249607984,0.0578443505828,0.0568414763932,0.0565191239751,0.0569608661777,0.0571160728975,0.0567459645656,0.0574623032725,0.0579040454751,0.0576294489708,0.0572951575742,0.057927923432,0.0580473132165,0.0585726282682,0.0583219097208,0.0580592521949,0.0583219097208,0.0576533269277,0.0578682285397,0.0585009943975,0.0591456992337,0.0582622148285,0.0591337602553,0.0591337602553,0.0592412110613,0.0593725398243,0.0594083567596,0.0592412110613,0.0593247839105,0.0598500989622,0.0596829532639,0.0603395970786,0.0600530615958,0.0604709258415,0.0602799021863,0.0605783766475,0.0603395970786,0.0610320578286,0.0608171562165,0.0607216443889,0.0605186817553,0.0604948037984,0.0611872645484,0.0605783766475,0.0612708373976,0.0615096169665,0.0620110540614,0.0624647352424,0.0633959755614,0.0634079145398,0.0633720976045,0.0635034263674,0.063598938195,0.0638257787855,0.0635392433028,0.0636705720657,0.0635511822812,0.0638019008286,0.0631213790571,0.0633482196476,0.0628706605097,0.0626199419622,0.0629303554019,0.0637302669579,0.0640526193761,0.0639690465269,0.0642794599666,0.0638735346993,0.0642675209881,0.0641720091605,0.0648047750183,0.0652107002856,0.0653181510916,0.0658792830787,0.0658912220571,0.066392659152,0.0672403266218,0.067777580652,0.0682432008115,0.0685058583373,0.0690789293029,0.069162502152,0.069747512096,0.0694251596779,0.0705951795658,0.0704757897813,0.0709055930055,0.0707026303719,0.0707384473072,0.0711204946176,0.0714189690788,0.0716458096693,0.0711204946176,0.0718965282167,0.0716577486477,0.071932345152,0.0716935655831,0.0721114298288,0.0730307311693,0.0733172666521,0.0738664596607,0.0745469814323,0.0748215779366,0.0751200523978,0.0752394421823,0.075418526859,0.0759199639538,0.076695997553,0.0759796588461,0.0760751706737,0.0762064994366,0.0760154757814,0.0763617061564,0.0763975230918,0.0768750822297,0.0768989601866,0.077042227928,0.077495909109,0.0780689800746,0.0784032714711,0.0779615292685,0.0779973462039,0.0778779564194,0.0784152104496,0.0783674545358,0.0796688031867,0.0801463623246,0.0798478878634,0.080635860441,0.0804328978074,0.0808030061393,0.0817939413505,0.0830475340876,0.0828206934971,0.0835250932255,0.0829878391953,0.0832266187643,0.0837638727945,0.0846115402643,0.0857338042385,0.0863188141825,0.0866053496652,0.0869038241264,0.0872619934799,0.0883245625618,0.089446826536,0.0890528402472,0.0891961079885,0.0880141491221,0.0882409897127,0.0894707044929,0.0892199859454,0.089554277342,0.0900318364799,0.0895900942773,0.0894945824497,0.0899721415877,0.0901273483075,0.0916077816351,0.0914406359369,0.0901273483075,0.0909511378205,0.0916435985705,0.0923360593205,0.0928733133507,0.0939597603895,0.0948313058162,0.0958461189843,0.0963475560792,0.0975653318809,0.100072517355,0.101600706597,0.102627458743,0.103845234545,0.10626884717,0.10857307001,0.110554940433,0.11342029526,0.115246958963,0.118637628842,0.119903160558,0.121789519153,0.124081803015,0.126457659726,0.127567984722,0.129239441705,0.131519786588,0.132773379325,0.135041785231,0.136916204847,0.141441077679,0.145942072554,0.149464071196,0.155970814451,0.163850540227,0.1699036023,0.178428032912,0.185854077507,0.192336942805,0.198019896546,0.202938755667,0.206186157805,0.208490380646,0.205481758077,0.201577712124,0.197255801926,0.190569973995,0.185388457348,0.179848771348,0.174046427822,0.167229271128,0.161737341041,0.157176651274,0.154681404778,0.151565331403,0.14897457308,0.146634533304,0.144330310464,0.142288745149,0.140521776339,0.138778685485,0.137023655653,0.135376076627,0.134110544912,0.133477779054,0.133298694377,0.133979216149,0.134134422869,0.133597168838,0.133704619644,0.134289629588,0.134468714265,0.135650673132,0.135996903507,0.136032720442,0.136605791407,0.135841696787,0.13535219867,0.137381825007,0.137143045438,0.137107228502,0.137847445166,0.136916204847,0.136975899739,0.136617730386,0.137548970705,0.138826441399,0.139065220968,0.138802563442,0.13950696317,0.139853193545,0.140378508597,0.141285870959,0.142551402675,0.143984080089,0.143375192188,0.143566215843,0.14428255455,0.144569090033,0.145297367718,0.145918194597,0.146061462339,0.146061462339,0.146443509649,0.146288302929,0.147685163408,0.148270173352,0.14944019324,0.149929691356,0.150407250494,0.150789297804,0.151314612856,0.152424937852,0.152412998873,0.153021886774,0.153415873063,0.153726286503,0.153165154515,0.153726286503,0.154454564188,0.156317044826,0.156818481921,0.157355735951,0.158609328688,0.159886799382,0.16074640583,0.161773157977,0.161868669804,0.162608886468,0.163313286197,0.163193896412,0.16398186899,0.164543000977,0.16474596361,0.165557814145,0.164853414417,0.164853414417,0.166142824089,0.166656200162,0.167790403115,0.169593188861,0.170810964662,0.172207825141,0.173819587231,0.172912224869,0.17421357352,0.175550739106,0.177198318132,0.178129558451,0.178272826193,0.179335395275,0.179144371619,0.179932344197,0.179013042856,0.18198584849,0.183860268106,0.184481094986,0.18383639015,0.185460091219,0.185710809766,0.184397522137,0.185352640413,0.185483969175,0.186462965408,0.186152551969,0.185328762456,0.184039352783,0.185376518369,0.182702187197,0.182332078865,0.182558919456,0.18229626193,0.182105238275,0.1817590079,0.18183064177,0.181639618115,0.183800573214,0.182845454938,0.182869332895,0.182332078865,0.180183062744,0.180409903335,0.179072737749,0.178511605762,0.178248948236,0.177126684262,0.17459562083,0.175431349322,0.175586556042,0.174941851205,0.175192569753,0.173533051749,0.174189695563,0.17436878024,0.171837716809,0.171455669499,0.171228828908,0.169808090473,0.170130442891,0.170273710632,0.170930354447,0.169485738055,0.168244084296,0.167050186451,0.167515806611,0.167169576236,0.165271278662,0.164017685925,0.162561130554,0.162262656093,0.160985185399,0.161713463085,0.159540569007,0.158788413365,0.157093078425,0.156782664985,0.156567763373,0.155493255313,0.154060577899,0.153177093494,0.153380056128,0.15290249699,0.152962191882,0.152568205593,0.153212910429,0.151708599145,0.151792171994,0.152759229248,0.153797920373,0.152520449679,0.151147467158,0.150228165817,0.150848992696,0.150574396192,0.149989386248,0.15035949458,0.149690911787,0.14874773249,0.147888126041,0.148377624158,0.148067210718,0.14812690561,0.148222417438,0.148652220662,0.147362810989,0.147183726313,0.147362810989,0.146001767446,0.145261550783,0.144031836002,0.143578154821,0.143064778748,0.141118725261,0.1394353293,0.140211362899,0.139065220968,0.138635417744,0.138372760218,0.138707051614,0.138695112636,0.137346008071,0.136963960761,0.136796815063,0.137262435222,0.135853635765,0.135793940873,0.134623920985,0.134826883619,0.134480653244,0.134361263459,0.135089541144,0.133692680666,0.133262877442,0.131698871265,0.131639176373,0.131400396804,0.131842139006,0.130206498959,0.128391774235,0.127090425584,0.125920405696,0.12612336833,0.125944283653,0.125442846558,0.125036921291,0.124463850325,0.123293830437,0.123341586351,0.122935661084,0.122995355976,0.122708820493,0.122422285011,0.122267078291,0.122231261355,0.120929912705,0.120177757062,0.119927038515,0.120082245235,0.12027326889,0.118864469433,0.11804067992,0.11696617186,0.116882599011,0.115342470791,0.115342470791,0.114757460847,0.114375413536,0.113491929131,0.113217332627,0.113217332627,0.113157637735,0.11196373989,0.11026840495,0.109623700114,0.1081910227,0.106973246898,0.104704840993,0.103510943148,0.10180366923,0.100275479989,0.0986040230059,0.0976130877947,0.096395311993,0.0961684714024,0.0950103904929,0.0937926146912,0.0938761875403,0.0928374964153,0.0920853407731,0.091631659592,0.0915839036782,0.0910227716912,0.0901631652429,0.0886469149799,0.0886469149799,0.0880977219713,0.0870112749325,0.0870232139109,0.0868083122988,0.0867724953635,0.0862233023549,0.0857696211738,0.0851965502083,0.0856502313893,0.0847428690273,0.0854472687557,0.0853875738635,0.0848264418764,0.0837996897298,0.0835250932255,0.083537032204,0.0835967270962,0.0838474456436,0.0837041779022,0.0843727606954,0.0840384692988,0.0834176424195,0.0822118055962,0.0829162053246,0.0822356835531,0.0814954668893,0.0814238330186,0.0804567757643,0.0798478878634,0.0795016574884,0.0787017459323,0.0795135964668,0.0794419625961,0.0783555155573,0.0782361257728,0.0785465392125,0.0777466276565,0.0780928580315,0.0781286749668,0.0774839701306,0.0767198755099,0.0759080249754,0.0756811843849,0.0759557808892,0.0758005741694,0.0754901607297,0.0754304658374,0.075418526859,0.0749051507857,0.074833516915,0.0749409677211,0.0747021881521,0.0749290287426,0.0739739104667,0.0734127784797,0.072648683859,0.0721591857426,0.0723740873546,0.0720278569796,0.0717651994538,0.0720159180012,0.0722666365486,0.0716935655831,0.0711682505313,0.0706190575227,0.0702489491908,0.0699982306434,0.0691028072598,0.0691266852167,0.0686252481218,0.0682073838761,0.0679566653287,0.0685058583373,0.0687923938201,0.0690072954322,0.0687446379063,0.0693535258072,0.0695923053761,0.0695684274192,0.0697713900529,0.0694967935486,0.0695445494624,0.0688520887123,0.069162502152,0.069269952958,0.0696281223115,0.0687923938201,0.0676343129106,0.0672880825356,0.0667866454408,0.066500109958,0.0650913105011,0.0649957986735,0.06394516857,0.0640645583545,0.0633243416907,0.0632646467985,0.063706389001,0.0631213790571,0.0628109656174,0.0628587215312,0.063598938195,0.0634079145398,0.0637780228717,0.0630855621217,0.0629781113157,0.0634556704536,0.0626438199191,0.063491487389,0.0642078260959,0.0638257787855,0.0634198535183,0.0630616841648,0.0627751486821,0.0624408572855,0.0627273927683,0.0624766742209,0.0627870876605,0.0618916642769,0.06186778632,0.061629006751,0.060936546001,0.0609962408932,0.0613663492251,0.0614738000312,0.0611992035269,0.0606261325613,0.0607932782596,0.0607574613243,0.0599575497682,0.0603992919708,0.0606141935829,0.0604112309493,0.0597784650915,0.0594919296087,0.0592889669751,0.0598262210053,0.0594083567596,0.0590143704708,0.0585368113329,0.0579159844535,0.0578085336475,0.0579518013889,0.0579159844535,0.0582144589148,0.0585248723544,0.0577607777337,0.0576294489708,0.0575219981647,0.0581547640225,0.0581428250441,0.0583577266561,0.0579040454751,0.0579159844535,0.057342913488,0.0573906694018,0.0575936320354,0.0577488387553,0.0579398624104,0.0577488387553,0.0575219981647,0.0573787304234,0.0572474016604,0.0569131102639,0.0574264863372,0.0568534153716,0.0568414763932,0.0572593406389,0.0567101476302,0.0566026968242,0.0567220866087,0.0563639172552,0.0566265747811,0.0562684054277,0.056196771557,0.0565668798889,0.0562684054277,0.0561012597294,0.0565668798889,0.0565907578458,0.0563400392983,0.0566623917165,0.0570921949406,0.0577010828415,0.0571518898328,0.0574981202078,0.0573070965527,0.0572235237035,0.0569608661777,0.0565907578458,0.0562922833845,0.0565907578458,0.0560415648371,0.0558266632251,0.0560773817725,0.0552058363457,0.0555281887638,0.0551700194104,0.0549551177983,0.0548476669923,0.0549431788199,0.0546208264018,0.0547163382293,0.0547521551647,0.0547163382293,0.054680521294,0.0546327653802,0.0546208264018,0.0552297143026,0.0548715449492,0.0550506296259,0.0547521551647,0.0548596059707,0.0550745075828,0.0546566433371,0.0545850094664,0.0547640941431,0.0547402161862,0.0548476669923,0.0555759446776,0.0557550293544,0.0555401277423,0.0552058363457,0.0551222634966,0.0553252261302,0.0555998226345,0.0549551177983,0.0552535922595,0.0545372535526,0.0539522436086,0.0541074503285,0.0539641825871,0.0543939858112,0.0542626570483,0.0544656196819,0.054573070488,0.0547879721,0.0542387790914,0.0543104129621,0.0541671452207,0.0539761215655,0.0544536807035,0.0540716333931,0.0542029621561,0.0540238774793,0.0542149011345,0.0539164266733,0.0541671452207,0.0540835723716,0.0541432672638,0.0538567317811,0.0534866234492,0.0530090643112,0.0526747729147,0.0522330307121,0.0515883258758,0.0525912000655,0.0518032274879,0.0511346446948,0.0515166920052,0.0519464952293,0.0518509834017,0.0523166035612,0.0517315936172,0.0517315936172,0.0516360817896,0.0504899398586,0.051910678294,0.0528061016776,0.0522091527552,0.0516122038327,0.0517315936172,0.051433119156,0.0519584342078,0.0521017019491,0.0523046645828,0.052949369419,0.0520300680784,0.0514450581345,0.0513376073284,0.0516241428112,0.0522807866259,0.0525553831302,0.0473022326128,0.04216847188,0.0368078705566,0.0311607337505,0.0)
ycorr <- c(0.000110902427758,0.000110718140056,0.000110156703493,0.000109212717341,0.000107880298087,0.000106148343151,0.000103997074304,0.00010171545439,9.92835303088e-05,9.66933200127e-05,9.39352487451e-05,9.1008457124e-05,8.79160614852e-05,8.46707095086e-05,8.12872955374e-05,7.77938377076e-05,7.42302673121e-05,7.06391351402e-05,6.70616574493e-05,6.35366741701e-05,6.00971102482e-05,5.67715218105e-05,5.35836461984e-05,5.05512571234e-05,4.76846497067e-05,4.4982026159e-05,4.24281733227e-05,4.00054656734e-05,3.76985976208e-05,3.54874950299e-05,3.33614517948e-05,3.13058364371e-05,2.93099957008e-05,2.73638853624e-05,2.54573930347e-05,2.35863224891e-05,2.17508568571e-05,1.99466160998e-05,1.81682117937e-05,1.64150193881e-05,1.46846782376e-05,1.29743122076e-05,1.12792667297e-05,9.59595828819e-06,7.9174409544e-06,6.24173502823e-06,4.56727062318e-06,2.89545165769e-06,1.2331784357e-06,-4.18381829138e-07,-2.06821512238e-06,-3.71493672771e-06,-5.35921493559e-06,-7.00304098472e-06,-8.6429712044e-06,-1.0279324407e-05,-1.19127229035e-05,-1.35478703249e-05,-1.51917859066e-05,-1.68505001238e-05,-1.85215434387e-05,-2.02027769897e-05,-2.18982874599e-05,-2.36087946874e-05,-2.53351529228e-05,-2.70860676734e-05,-2.88622243121e-05,-3.06625756362e-05,-3.24856799172e-05,-3.4326286099e-05,-3.61864240243e-05,-3.80695418108e-05,-3.99729844868e-05,-4.18958898002e-05,-4.38355027955e-05,-4.57862310979e-05,-4.77444399569e-05,-4.97115642969e-05,-5.16883534037e-05,-5.36765196909e-05,-5.56750603581e-05,-5.7680919525e-05,-5.96923925609e-05,-6.17079473741e-05,-6.37302350021e-05,-6.57594375528e-05,-6.77956044205e-05,-6.98372954585e-05,-7.18805491781e-05,-7.39229900735e-05,-7.59629260501e-05,-7.80025507169e-05,-8.00486437917e-05,-8.21002262525e-05,-8.41587766772e-05,-8.62226890326e-05,-8.82964002969e-05,-9.03803882058e-05,-9.24784575372e-05,-9.45901577503e-05,-9.67207028812e-05,-9.88709695994e-05,-0.000101036103495,-0.000103214706227,-0.000105406661741,-0.000107612118416,-0.000109834017483,-0.000112069383878,-0.000114319120672,-0.000116584649372,-0.000118868826979,-0.000121174600121,-0.000123505590321,-0.000125867695886,-0.000128261627649,-0.000130692816744,-0.000133153800226,-0.000135644287461,-0.000138166357815,-0.000140723627866,-0.000143312382284,-0.000145927877719,-0.000148568911455,-0.000151226983694,-0.000153902453239,-0.000156587883398,-0.000159290042676,-0.000162017185278,-0.000164769123246,-0.000167542506309,-0.00017033879684,-0.000173158039378,-0.000175994946272,-0.000178849622913,-0.000181722066713,-0.000184609502297,-0.000187514606066,-0.000190426140104,-0.000193337278203,-0.000196249571585,-0.000199152333869,-0.000202040898038,-0.000204917676746,-0.000207790436805,-0.000210654249293,-0.000213512962807,-0.000216361868223,-0.000219198823624,-0.000222029563534,-0.000224853467529,-0.000227667044833,-0.000230478371751,-0.000233279179353,-0.000236068421738,-0.000238841997754,-0.000241598820404,-0.000244337798344,-0.00024705854407,-0.000249753330686,-0.000252417845219,-0.000255053454518,-0.000257658038469,-0.000260235669204,-0.000262786573976,-0.000265310875583,-0.000267810714617,-0.00027028094899,-0.000272720907038,-0.000275137342542,-0.000277537771881,-0.000279926924123,-0.000282307126758,-0.000284679943108,-0.000287039017403,-0.000289389005088,-0.000291725912295,-0.000294051833609,-0.000296374053628,-0.000298686631805,-0.000300985113886,-0.000303266033529,-0.000305522053585,-0.000307752000735,-0.000309957587429,-0.000312137754575,-0.000314293380053,-0.000316422434685,-0.000318523696044,-0.000320594087561,-0.000322636044612,-0.000324649961271,-0.000326642125233,-0.000328614930406,-0.000330570674047,-0.000332508952749,-0.000334436703661,-0.000336356097366,-0.000338265908636,-0.000340168732737,-0.00034206967166,-0.000343973089458,-0.000345874923298,-0.000347772379207,-0.000349663633833,-0.000351551202286,-0.000353431962323,-0.000355306616062,-0.000357177547854,-0.000359050099726,-0.000360919374453,-0.000362780633169,-0.000364633341467,-0.00036647812359,-0.000368316643814,-0.000370146690199,-0.000371966931854,-0.000373772029461,-0.000375560489426,-0.000377328515445,-0.000379072395531,-0.000380793377939,-0.000382491954865,-0.000384169219011,-0.000385828637989,-0.000387465727844,-0.000389080002931,-0.000390676105887,-0.000392257091661,-0.000393822756,-0.000395373441051,-0.00039691716702,-0.00039845670645,-0.000399991546136,-0.000401520011455,-0.000403045163621,-0.000404572102204,-0.000406100132673,-0.000407624736692,-0.000409145550406,-0.00041066519515,-0.000412178989565,-0.000413681019975,-0.000415171711796,-0.000416650660217,-0.000418115740193,-0.00041956008478,-0.000420981688371,-0.000422384520835,-0.000423767585605,-0.000425129408977,-0.000426466978535,-0.000427782653348,-0.000429075292074,-0.000430342541526,-0.000431588313619,-0.000432815700494,-0.000434031286337,-0.000435233588049,-0.000436421011109,-0.000437594712837,-0.0004387565999,-0.00043990747117,-0.000441048975959,-0.000442184688657,-0.00044331515592,-0.000444437820218,-0.000445547369738,-0.000446643059825,-0.000447726451531,-0.000448799134194,-0.00044986212807,-0.000450916913353,-0.000451963310807,-0.000452997195127,-0.000454018267898,-0.000455023367115,-0.000456015292038,-0.000456995359368,-0.000457963634854,-0.000458918220564,-0.00045985613432,-0.000460774856643,-0.000461674542743,-0.000462552702918,-0.00046340912436,-0.00046423947404,-0.000465042476496,-0.000465812749626,-0.000466547599802,-0.00046724630927,-0.000467909967264,-0.000468536000194,-0.000469121669484,-0.000469668730916,-0.000470180210156,-0.000470664007319,-0.00047112231293,-0.000471558770787,-0.00047197900727,-0.00047238584583,-0.000472779540142,-0.000473163234775,-0.000473543112959,-0.000473919181214,-0.000474289300096,-0.000474653083783,-0.00047500922915,-0.00047535810086,-0.000475699050438,-0.000476031233518,-0.000476356571497,-0.000476676401227,-0.000476988466899,-0.000477291299837,-0.00047758611482,-0.000477873023765,-0.000478149773629,-0.000478416465759,-0.000478672745373,-0.000478918892798,-0.000479150634158,-0.000479368499336,-0.000479571305057,-0.000479760642387,-0.000479937172959,-0.000480101812634,-0.000480258354516,-0.000480407871981,-0.000480546491388,-0.000480672928111,-0.000480792014914,-0.000480904652116,-0.000481008567045,-0.000481103625939,-0.000481185606732,-0.000481254333655,-0.000481308189083,-0.00048134291695,-0.000481366060441,-0.000481377488009,-0.000481376629465,-0.000481359757196,-0.00048133098789,-0.000481291401981,-0.000481243678278,-0.000481191759049,-0.000481134599299,-0.00048107544671,-0.000481013124244,-0.000480942927083,-0.000480868433526,-0.000480792672266,-0.000480714787224,-0.000480632082632,-0.000480547022164,-0.000480455821356,-0.000480358144105,-0.00048025381343,-0.000480140225951,-0.000480024788635,-0.000479903581872,-0.00047977444539,-0.000479637041061,-0.00047949277979,-0.000479343121433,-0.000479185118536,-0.000479021364256,-0.000478853163567,-0.00047868115357,-0.000478501876573,-0.000478309756021,-0.000478105497117,-0.00047788752853,-0.00047765597716,-0.00047740764475,-0.000477143536856,-0.000476861544762,-0.000476559596256,-0.000476237120199,-0.000475895798797,-0.000475538823675,-0.000475170376421,-0.000474792645041,-0.000474409712831,-0.000474021796221,-0.000473630053681,-0.000473234594213,-0.000472838919966,-0.000472443813593,-0.000472046540569,-0.000471649165279,-0.000471252242502,-0.000470854865887,-0.00047045423081,-0.000470046339589,-0.000469633198319,-0.000469215680377,-0.000468792054731,-0.000468359726783,-0.000467922018589,-0.000467479826233,-0.000467031485888,-0.000466576991034,-0.000466116588881,-0.000465655520197,-0.000465193838664,-0.000464730371597,-0.00046426690315,-0.000463806149348,-0.000463349477927,-0.000462895334474,-0.000462442382827,-0.00046198761422,-0.000461532158067,-0.000461070051859,-0.000460600902489,-0.000460125801305,-0.000459641018705,-0.00045914351713,-0.000458627741369,-0.000458092283507,-0.000457532736466,-0.000456950288323,-0.000456345306186,-0.000455718334944,-0.000455069918898,-0.000454399490948,-0.000453704803623,-0.000452986971786,-0.000452247572621,-0.000451489196454,-0.000450713769335,-0.000449923099589,-0.000449115743601,-0.000448293033966,-0.0004474543011,-0.000446600532677,-0.000445732005618,-0.000444850685073,-0.000443960009987,-0.000443058582127,-0.000442148685308,-0.000441232538591,-0.000440312387414,-0.000439389678858,-0.000438461904931,-0.000437527190349,-0.000436588244061,-0.000435643720294,-0.000434693594392,-0.000433736516018,-0.000432774670833,-0.000431806053647,-0.000430827429574,-0.000429835473508,-0.000428832275101,-0.000427821237563,-0.000426802573199,-0.000425775227393,-0.000424737023215,-0.00042369021036,-0.000422632218278,-0.000421563083216,-0.000420483766142,-0.000419396954507,-0.000418303531393,-0.000417201856151,-0.000416089452103,-0.000414970075859,-0.000413843639963,-0.000412710025846,-0.000411568196282,-0.000410418224876,-0.000409258236766,-0.000408088919523,-0.000406908039177,-0.000405715708516,-0.000404514304757,-0.000403301690383,-0.000402075679356,-0.000400834633216,-0.000399580165889,-0.000398310179048,-0.000397025308816,-0.000395723809374,-0.000394403325667,-0.000393064913044,-0.000391707501113,-0.00039033078883,-0.000388938785227,-0.000387532043732,-0.00038611100187,-0.000384677545181,-0.000383230914818,-0.000381773228075,-0.000380306659968,-0.000378831275713,-0.000377345644808,-0.000375850186427,-0.000374340197582,-0.000372813435183,-0.00037126972369,-0.000369709518233,-0.000368132472124,-0.00036653914757,-0.000364928953125,-0.000363301340434,-0.000361657481873,-0.000359999165342,-0.000358328081191,-0.000356647639749,-0.000354958023318,-0.000353257806606,-0.000351548535046,-0.000349827992408,-0.000348097481376,-0.000346352971757,-0.000344594838929,-0.000342819998219,-0.000341028428497,-0.000339219166496,-0.000337388803528,-0.000335536021733,-0.000333661054613,-0.00033176206355,-0.000329841396373,-0.000327902280301,-0.000325948786796,-0.000323981170265,-0.000322000485128,-0.00032000683551,-0.000318001999159,-0.000315990778438,-0.00031397222792,-0.000311948113293,-0.00030991583461,-0.000307871946914,-0.000305812523588,-0.000303734728142,-0.000301639223625,-0.000299526472676,-0.000297394720721,-0.000295240633926,-0.00029306420001,-0.000290865895869,-0.000288644851417,-0.000286403631898,-0.00028414357562,-0.000281866557394,-0.000279572930179,-0.00027726122695,-0.000274931323598,-0.000272585584284,-0.000270222095142,-0.000267840519291,-0.000265442095333,-0.000263025529189,-0.000260590904929,-0.000258137578662,-0.000255663381398,-0.000253169122517,-0.000250655742562,-0.000248123050985,-0.000245574224175,-0.000243008930748,-0.000240423393785,-0.00023782101588,-0.000235202486463,-0.000232568450095,-0.000229920897558,-0.000227258494105,-0.000224581680876,-0.000221888080849,-0.000219174569869,-0.000216441253188,-0.000213692688582,-0.000210927826564,-0.000208140593041,-0.000205329796698,-0.000202494025673,-0.000199631670107,-0.000196742786941,-0.0001938269737,-0.000190885606232,-0.000187919287479,-0.000184922333866,-0.000181892456776,-0.000178834499971,-0.000175752631035,-0.000172646929303,-0.000169505502525,-0.000166309695218,-0.000163042504928,-0.000159687325344,-0.000156154774904,-0.000152818803739,-0.000149596677784,-0.00014647307656,-0.000143425960558,-0.00014043289568,-0.000137476586222,-0.000134567542569,-0.000131719087545,-0.00012894660102,-0.000126262186332,-0.000123747924106,-0.000121026041195,-0.000118174178686,-0.000115205270652,-0.000112132557784,-0.000108972404594,-0.000105734161248,-0.000102413293105,-9.90092962126e-05,-9.5519457958e-05,-9.19449042494e-05,-8.82873007541e-05,-8.45485521521e-05,-8.07299308938e-05,-7.68311911057e-05,-7.28545170719e-05,-6.88037753173e-05,-6.46867911589e-05,-6.05100819825e-05,-5.62777554838e-05,-5.19922988678e-05,-4.7655264045e-05,-4.32678700883e-05,-3.88314016214e-05,-3.43496917422e-05,-2.98239560452e-05,-2.5256642011e-05,-2.0647788618e-05,-1.59958469479e-05,-1.13031569177e-05,-6.57694588208e-06,-1.82621603882e-06,2.93269161193e-06,7.68287861706e-06,1.24047240915e-05,1.70774315666e-05,2.16776770374e-05,2.61797405624e-05,3.05565770797e-05,3.47776102514e-05,3.88174408915e-05,4.26552763689e-05,4.62742842248e-05,4.96693554844e-05,5.28360941517e-05,5.57763765335e-05,5.8497968782e-05,6.10156518628e-05,6.33451026246e-05,6.55124844143e-05,6.75469927901e-05,6.94766333067e-05,7.1329565276e-05,7.31290339653e-05,7.48972269668e-05,7.6656804925e-05,7.84273876089e-05,8.02277327068e-05,8.20736964189e-05,8.39794925791e-05,8.59502295259e-05,8.79932688519e-05,9.01165481272e-05,9.23258313363e-05,9.46291066888e-05,9.70273484206e-05,9.95210288529e-05,0.00010210800005,0.000104783177968,0.000107540377713,0.000110378686678,0.000113295314292,0.00011628328705,0.000119334594526,0.000122441797691,0.00012560008065,0.000128806966655,0.000132061354339,0.000135364909455,0.000138717191867,0.000142117348332,0.000145562534994,0.000149054223966,0.000152596622664,0.000156191451181,0.000159840764433,0.000163542228813,0.00016729251077,0.00017108738451,0.00017492360411,0.000178799276918,0.000182711084459,0.000186656324657,0.000190628846014,0.000194622250825,0.000198632829828,0.00020265789836,0.000206695513386,0.000210745707963,0.000214807510309,0.000218880265236,0.00022296592161,0.000227063024095,0.000231171391615,0.000235293714647,0.000239429682355,0.000243580387667,0.00024774582684,0.000251924039832,0.000256114768825,0.000260316484797,0.000264527546192,0.000268746612384,0.00027297720649,0.000277217614922,0.000281468463541,0.000285731965095,0.000290009395103,0.000294302660961,0.000298612656487,0.000302940400391,0.000307285801495,0.000311650334865,0.000316031357164,0.000320427676159,0.000324838224163,0.000329259876863,0.000333688067766,0.000338121353746,0.000342558390632,0.000347000381734,0.000351446373079,0.000355897317049,0.000360351602727,0.000364811003333,0.000369275430142,0.000373747194207,0.000378227544116,0.000382718718233,0.000387220348162,0.000391730569178,0.000396247713851,0.00040077350282,0.000405305706088,0.000409843147732,0.000414385361513,0.000418927114009,0.000423466721354,0.000428000475365,0.000432523164119,0.000437030190663,0.000441517956617,0.000445979548427,0.000450406470617,0.000454791794596,0.000459128570165,0.000463410726702,0.000467631817638,0.000471785378964,0.000475866931563,0.000479873266615,0.000483800433012,0.000487643404616,0.000491403350752,0.000495082897169,0.000498682337019,0.000502203646272,0.000505650539043,0.000509027615557,0.000512336116288,0.000515579536841,0.000518761736648,0.000521887573812,0.00052496082951,0.000527980864419,0.000530948642834,0.000533866672192,0.000536734927943,0.000539550482891,0.00054231641976,0.000545034063414,0.000547702440313,0.000550319658681,0.000552883816279,0.000555396946109,0.00055786012329,0.000560273560137,0.000562636815284,0.000564952028358,0.00056722095783,0.000569441752504,0.000571618437028,0.000573751810344,0.000575847466484,0.000577906985822,0.000579931913127,0.000581925940647,0.000583890240148,0.000585827778831,0.000587740255061,0.000589629347672,0.00059149436976,0.000593336804681,0.000595155580727,0.000596949397246,0.000598720839129,0.000600469916363,0.000602198495369,0.000603907338084,0.000605595917376,0.000607263586903,0.000608912867091,0.000610549477221,0.000612175763912,0.000613797246298,0.000615412424811,0.000617019210404,0.000618620691707,0.000620215497351,0.000621805972484,0.000623396217905,0.000624988179649,0.000626578889891,0.000628165611933,0.000629744429867,0.000631315637,0.000632883720762,0.000634448601788,0.000636008187531,0.000637562875847,0.000639111611757,0.000640651845829,0.000642182866115,0.000643705028563,0.000645218339821,0.000646719644796,0.000648202766789,0.000649661651165,0.000651095901984,0.000652501236887,0.0006538742791,0.000655208555275,0.0006565022861,0.000657753630782,0.00065895982391,0.000660122791265,0.000661244910804,0.000662329588689,0.000663380730789,0.000664399071742,0.000665387312551,0.000666349246257,0.000667287869631,0.000668204139428,0.000669097485455,0.000669969947986,0.000670817926478,0.000671638346877,0.000672427791579,0.000673184363591,0.000673904851569,0.000674587273816,0.000675226307943,0.000675820629739,0.000676368048876,0.000676867674016,0.000677315594757,0.000677711268206,0.000678056651766,0.000678351707794,0.000678595732596,0.000678786922227,0.000678926847578,0.00067901653236,0.00067905890748,0.000679051547891,0.000678994581747,0.000678891784486,0.000678742115736,0.000678543095045,0.000678295900849,0.000678001556235,0.000677661862356,0.000677274359645,0.000676838038228,0.000676350147377,0.000675816681715,0.000675235107044,0.000674600917508,0.000673915639775,0.000673178384046,0.000672386721833,0.00067153665065,0.000670627977971,0.000669658369399,0.000668628310616,0.000667533828243,0.000666370805382,0.000665140336191,0.000663842318418,0.000662473469567,0.00066103363066,0.000659525981294,0.000657949378073,0.000656301772464,0.000654581994609,0.000652789704829,0.000650924199887,0.000648982885043,0.000646965107941,0.000644871330035,0.000642704729752,0.000640463202912,0.000638146451857,0.000635761181191,0.000633312496075,0.000630805719706,0.000628246839845,0.000625648577868,0.000623018490269,0.00062036417022,0.000617690794177,0.000615002763125,0.00061230846833,0.000609612057733,0.000606917065555,0.000604224833751,0.000601538719728,0.000598856875839,0.000596175636294,0.00059349519184,0.000590815491515,0.000588139534987,0.00058546683895,0.000582794864043,0.000580122394908,0.000577448836919,0.000574773965321,0.000572096212168,0.000569416370148,0.000566733538591,0.000564046609348,0.000561350688352,0.000558642042153,0.000555920839532,0.000553187235426,0.000550440598629,0.000547679129331,0.000544901465784,0.000542107045285,0.000539294305942,0.00053646175058,0.000533612698259,0.000530747866568,0.000527867577425,0.000524969047267,0.000522052112875,0.000519114961654,0.000516154695404,0.000513171029565,0.000510164497473,0.000507135970399,0.00050408309206,0.000501004995301,0.000497901646947,0.000494772413591,0.000491617214118,0.00048843730022,0.000485235753912,0.000482013659539,0.000478772088928,0.000475508491801,0.000472221744971,0.00046891547695,0.000465586309702,0.00046223497452,0.000458862047146,0.000455467854499,0.000452051325874,0.000448610849091,0.000445145390409,0.000441657274168,0.000438148198887,0.00043461715321,0.000431062255984,0.000427483438162,0.000423880107698,0.000420251820073,0.000416596132221,0.000412913458387,0.000409205087509,0.000405469123748,0.000401702713724,0.000397903890547,0.0003940743344,0.000390216778291,0.000386330896703,0.00038241777708,0.000378481107553,0.000374522068457,0.000370539861352,0.000366536377658,0.00036251651737,0.000358482636469,0.000354439070241,0.000350387070705,0.000346325681349,0.000342256221012,0.000338178586994,0.000334093118945,0.000330002403313,0.000325905571591,0.000321800255214,0.000317682329352,0.000313550930674,0.000309404357905,0.000305241763995,0.000301062573652,0.00029686663452,0.000292653859199,0.000288418898068,0.000284160812488,0.000279880769287,0.000275581561264,0.000271267410437,0.000266938167229,0.00026259692708,0.000258243407179,0.000253881384283,0.00024951368056,0.000245142569565,0.000240772937425,0.000236405587941,0.000232042042335,0.000227679550256,0.00022331644453,0.000218954140139,0.000214593517603,0.000210235573687,0.000205875344561,0.000201511437347,0.000197143513397,0.000192772400987,0.000188398953583,0.000184023276918,0.000179647210021,0.000175270596882,0.000170893628212,0.000166513438847,0.000162135672464,0.000157764691118,0.000153400451709,0.000149042578829,0.000144691448615,0.000140349032824,0.000136015345126,0.000131691030488,0.000127377753397,0.000123075945567,0.000118782652042,0.000114496627853,0.000110217642566,0.000105946065633,0.000101684909237,9.74311637466e-05,9.31865448599e-05,8.89539456331e-05,8.47320332874e-05,8.05194824434e-05,7.63193172198e-05,7.21343483366e-05,6.79631814666e-05,6.38076041697e-05,5.96638969097e-05,5.55310325279e-05,5.14120977951e-05,4.73043602823e-05,4.32098150185e-05,3.91307826632e-05,3.50687393647e-05,3.10237417988e-05,2.69974206902e-05,2.29908825147e-05,1.90045999542e-05,1.50467529599e-05,1.11168778325e-05,7.21587355776e-06,3.34325877649e-06,-5.0284138736e-07,-4.32428638926e-06,-8.12068834505e-06,-1.18930948833e-05,-1.56427562238e-05,-1.9371911951e-05,-2.30829066292e-05,-2.67789066434e-05,-3.04596706637e-05,-3.41275425681e-05,-3.77812844442e-05,-4.14206052738e-05,-4.50440545601e-05,-4.86511297448e-05,-5.22414963035e-05,-5.58118862045e-05,-5.93612578547e-05,-6.28884053066e-05,-6.63944185687e-05,-6.98776870493e-05,-7.33371551777e-05,-7.67749678372e-05,-8.01924365816e-05,-8.35883117805e-05,-8.69640362513e-05,-9.03212502205e-05,-9.36624465274e-05,-9.6991721688e-05,-0.000100308707548,-0.000103613205235,-0.000106906063338,-0.000110184298381,-0.000113448542515,-0.00011670252014,-0.000119948874869,-0.00012318638191,-0.000126416936003,-0.000129637914788,-0.000132848236645,-0.000136048785163,-0.000139238435757,-0.000142418581657,-0.000145591313912,-0.000148753554772,-0.000151900230154,-0.000155031516772,-0.000158144059491,-0.000161236257545,-0.000164308960332,-0.000167359130005,-0.000170389328159,-0.000173400092032,-0.000176392083427,-0.00017936517533,-0.000182319743356,-0.000185254682357,-0.000188169331899,-0.000191063531071,-0.000193935621513,-0.000196790271853,-0.00019962572049,-0.000202438683412,-0.000205225598299,-0.000207982932426,-0.000210711523377,-0.000213413511842,-0.000216093920821,-0.000218752624902,-0.000221391698564,-0.000224010423523,-0.000226606747526,-0.000229182587818,-0.000231740117778,-0.000234283584735,-0.000236812153674,-0.000239321466746,-0.000241806723567,-0.00024426779031,-0.000246703861779,-0.000249113537419,-0.000251497113167,-0.000253854978753,-0.000256187411148,-0.000258492461287,-0.000260769674491,-0.000263023339661,-0.000265258612582,-0.000267479160256,-0.000269681991162,-0.000271868023415,-0.000274041544464,-0.000276204560188,-0.000278353034532,-0.000280485406628,-0.000282602210551,-0.000284704017696,-0.00028678578943,-0.00028884521069,-0.000290878276067,-0.000292885348973,-0.000294861618639,-0.000296800513434,-0.000298547560065,-0.000299949966936,-0.000301005492198,-0.000301709581407,-0.000302061012138)
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(279)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Bos_taurus-male-liver-H3K4me3-ERR572243.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) : 279',bty='n')
dev.off()