# R script for Peak Model
#  -- generated by MACS
p <- c(0.0266770410715,0.0312194058373,0.0356976431005,0.0401972561979,0.0445793022073,0.0443869196995,0.0446968692953,0.0447075572124,0.0442907284457,0.0441517855234,0.0441838492747,0.0439273392644,0.0440342184354,0.0436387655028,0.0432433125703,0.0431684971506,0.0428478596377,0.0427944200522,0.0428692354719,0.0428585475548,0.0428692354719,0.0431257454822,0.04265547713,0.0429012992232,0.0430402421454,0.0428906113061,0.0427730442181,0.0425913496274,0.0426127254616,0.042431030871,0.0420142021042,0.0416828766743,0.0419393866846,0.0417042525085,0.0418538833478,0.0421424571094,0.0420890175239,0.0424203429539,0.0424630946223,0.0428371717206,0.0428051079693,0.042879923389,0.0429119871403,0.0431684971506,0.0430723058967,0.0428478596377,0.0430509300625,0.0429761146429,0.0426982287984,0.0425806617103,0.0427730442181,0.0429119871403,0.043104369648,0.0430936817309,0.0431578092335,0.0432753763216,0.0431364333993,0.0435211984148,0.0437349567567,0.0440342184354,0.0442266009431,0.0442479767773,0.044322792197,0.0445793022073,0.0448358122176,0.045103010145,0.0455625905801,0.0456374059998,0.0460862985178,0.0461824897717,0.0465886306213,0.0468558285487,0.0471978418958,0.0471871539787,0.0476360464967,0.0483628248592,0.0485979590354,0.048897220714,0.0493995528175,0.0498698211698,0.0503828411904,0.0510027403819,0.0512378745581,0.0522852904335,0.052563176278,0.0525738641951,0.0531723875524,0.0537388471585,0.0540808605056,0.0544870013552,0.0547541992826,0.0555344172306,0.0561543164222,0.056688712277,0.0572765477173,0.0578430073234,0.0587194165252,0.0592645002971,0.060034030328,0.061028006618,0.0613165803795,0.0616265299753,0.0621074862447,0.062481563343,0.0633259087936,0.0641702542442,0.0643519488348,0.0647153380161,0.0651107909486,0.0654207405444,0.0663185255805,0.0665322839224,0.0671521831139,0.0676758910516,0.0683919814971,0.0687233069271,0.0694500852896,0.0700379207299,0.0701234240666,0.0704440615795,0.0711387761907,0.0719296820558,0.0722289437345,0.0725282054132,0.0726778362526,0.0729557220971,0.0731587925219,0.0737786917134,0.074398590905,0.0749650505111,0.0750505538479,0.0751253692675,0.0752429363556,0.0754887584488,0.075627701371,0.0757132047078,0.0758628355472,0.0754780705317,0.075734580542,0.0757773322104,0.0758093959617,0.0762796643139,0.0767285568319,0.0768781876713,0.0767926843345,0.0771560735158,0.0768247480858,0.0771346976816,0.0774873989457,0.077295016438,0.0773698318577,0.0772843285209,0.077070570179,0.0770812580961,0.0771667614329,0.0771667614329,0.0772736406038,0.0775087747799,0.0773591439406,0.0772415768525,0.0771240097645,0.0766109897439,0.0766323655781,0.0764399830703,0.0764613589045,0.0758948992984,0.0761086576404,0.0758735234643,0.0754139430291,0.0752429363556,0.0752536242727,0.0750719296821,0.0746551009153,0.0744947821589,0.0743344634024,0.074174144646,0.0736825004596,0.0728488429261,0.0730198495996,0.0729877858483,0.0727954033406,0.0723999504081,0.0723678866568,0.0722289437345,0.0717479874652,0.0718014270507,0.0716517962113,0.0716517962113,0.0712884070301,0.0708822661804,0.0708074507608,0.0708929540975,0.0706364440872,0.0705830045018,0.0706043803359,0.0702303032376,0.0699844811444,0.0699310415589,0.0696317798802,0.0698562261392,0.0693432061186,0.0695676523776,0.0692470148648,0.0688515619322,0.0687339948441,0.06871261901,0.0686271156732,0.0683599177458,0.0682102869064,0.0679965285645,0.0674086931242,0.0670239281088,0.0668956731036,0.0664360926685,0.0661154551556,0.0657734418086,0.0657413780573,0.0655917472179,0.0649397842751,0.0644695159229,0.0646298346793,0.0642557575809,0.0640633750732,0.0636999858919,0.0630266471149,0.0629838954465,0.0622891808353,0.0617547849805,0.0616158420582,0.0612631407941,0.0611241978718,0.0609104395299,0.0607608086906,0.0611562616231,0.0613165803795,0.0610707582863,0.0613807078821,0.0617334091463,0.0619578554053,0.0618189124831,0.0617547849805,0.0618509762343,0.0616692816437,0.0613913957992,0.0614875870531,0.0617440970634,0.0615517145557,0.0615196508044,0.0616158420582,0.0618937279027,0.0619044158198,0.062150237913,0.0625243150114,0.0626098183482,0.0626953216849,0.0627487612704,0.0633045329594,0.0636679221407,0.063924432151,0.064373324669,0.0649504721922,0.0652069822025,0.0654634922128,0.0657627538915,0.0663933410001,0.0668956731036,0.0669704885233,0.0676865789687,0.0683919814971,0.0686698673416,0.068937065269,0.0695997161289,0.0700699844811,0.0710746486882,0.0715876687088,0.0719296820558,0.0728488429261,0.0736397487912,0.0746016613298,0.0757132047078,0.0768247480858,0.0775942781167,0.0784813752357,0.0792081535982,0.0798173648727,0.0809289082506,0.082190082468,0.0828313574937,0.0834405687682,0.0844345450581,0.0853964575968,0.0865186888918,0.0876195443527,0.0887524635649,0.0903556511293,0.0914885703415,0.0925787378852,0.0935727141752,0.0947483850557,0.095560666755,0.0964263880398,0.0972707334904,0.0986601627128,0.0995258839976,0.100284726111,0.101417645324,0.102058920349,0.103084960391,0.104111000432,0.105169104224,0.106088265095,0.107178432638,0.107862459332,0.108749556451,0.109796972327,0.110320680265,0.111400159891,0.111977307414,0.112661334109,0.113078162875,0.113933196243,0.114638598771,0.115247810046,0.115846333403,0.116370041341,0.117203698874,0.117353329714,0.118005292657,0.118272490584,0.118988581029,0.119223715205,0.119223715205,0.11975811106,0.120431449837,0.120388698169,0.120431449837,0.120623832345,0.121115476531,0.121265107371,0.121382674459,0.121254419454,0.121200979868,0.120944469858,0.120602456511,0.120794839019,0.12090171819,0.120880342355,0.120549016925,0.120313882749,0.120217691495,0.120602456511,0.12057039276,0.120858966521,0.120773463184,0.120858966521,0.12075208735,0.120506265257,0.120260443164,0.120057372739,0.11957641647,0.11924509104,0.119309218542,0.119009956864,0.118871013941,0.118796198522,0.118550376428,0.118283178501,0.117834285983,0.11743883305,0.117064755952,0.116915125113,0.116861685527,0.116573111766,0.116551735931,0.115536383807,0.115162306709,0.114948548367,0.114884420865,0.11486304503,0.115044739621,0.114488967932,0.113772877487,0.112907156202,0.11243688785,0.112383448264,0.112030747,0.111838364492,0.111165025715,0.110833700285,0.110513062772,0.110010730669,0.10978628441,0.109690093156,0.10879230812,0.108022778089,0.107424254732,0.10706086555,0.107050177633,0.106622660949,0.106302023436,0.105853130918,0.10522254381,0.104752275458,0.10455989295,0.104698835872,0.104004121261,0.103362846235,0.102432997448,0.101877225759,0.100829809883,0.100594675707,0.100092343604,0.0995045081634,0.0989914881428,0.0981792064435,0.0980830151897,0.0976554985058,0.097559307252,0.097003535563,0.0969821597288,0.0965118913766,0.0961485021953,0.0962553813663,0.096116438444,0.095785113014,0.0952614050763,0.0947590729728,0.0942888046206,0.09410711003,0.0936795933461,0.0931558854084,0.0929421270665,0.0922367245382,0.0917557682689,0.0911786207457,0.0910396778234,0.0906228490567,0.0905800973883,0.090548033637,0.0904411544661,0.0906656007251,0.0905800973883,0.0906442248909,0.0905052819686,0.0907404161447,0.0911679328286,0.0916382011808,0.0918519595227,0.0920336541134,0.0920229661963,0.0922046607869,0.0926108016365,0.0930169424862,0.0934978987555,0.0940857341958,0.094000230859,0.094331556289,0.0947590729728,0.0952186534079,0.0962126296979,0.0972707334904,0.0981364547751,0.0988204814693,0.0996968906712,0.100626739459,0.101823786173,0.103084960391,0.103918617924,0.104859154629,0.105500429654,0.105863818836,0.106750915954,0.107285311809,0.108471670607,0.109722156907,0.110684069446,0.111507039062,0.112479639518,0.113473615808,0.114585159186,0.11618834675,0.117139571372,0.1190954602,0.120057372739,0.121029973195,0.122376650749,0.123691264552,0.125518898375,0.127293092613,0.128853528509,0.129794065213,0.131386564861,0.132230910311,0.133876849544,0.135394533772,0.136954969668,0.138408526393,0.139488006019,0.140759868154,0.141817971946,0.143656293687,0.144532702889,0.146167954204,0.14747188009,0.148177282618,0.148850621395,0.149940788939,0.150678255219,0.151490536918,0.152559328628,0.15295478156,0.153991509519,0.154536593291,0.154985485809,0.155926022513,0.156962750471,0.157283387984,0.157956726761,0.158362867611,0.158854511797,0.15983780017,0.160190501434,0.160521826864,0.160543202698,0.160789024792,0.16075696104,0.161269981061,0.161654746076,0.161708185662,0.162018135258,0.162167766097,0.162296021102,0.162467027776,0.162798353206,0.162841104874,0.162862480708,0.162798353206,0.162552531113,0.162520467361,0.16241358819,0.16149442732,0.161430299817,0.161280668978,0.161131038139,0.160992095217,0.160778336875,0.160276004771,0.159613353911,0.159014830554,0.158309428025,0.15792466301,0.157251324233,0.156748992129,0.156203908358,0.155509193746,0.154782415384,0.154365586617,0.154109076607,0.153852566596,0.153040284897,0.152399009871,0.152003556939,0.151276778576,0.150517936462,0.149940788939,0.149043003903,0.148305537624,0.147525319676,0.147001611738,0.146531343386,0.146114514619,0.145580118764,0.14497090749,0.144265504961,0.143378407842,0.143047082412,0.142192049045,0.141550774019,0.139936898537,0.139060489336,0.138323023056,0.136912217999,0.135918241709,0.135223527098,0.134731882912,0.133620339534,0.132615675327,0.131814081545,0.131354501109,0.13046740399,0.129120726436,0.128682521835,0.127720609297,0.12664112967,0.125711280883,0.125102069608,0.124556985836,0.123456130375,0.122729352013,0.121778127391,0.121275795288,0.120057372739,0.119191651454,0.118561064346,0.117086131786,0.116081467579,0.1145317196,0.11361255873,0.11261858244,0.111432223643,0.110587878192,0.109219824804,0.108300663933,0.106708164286,0.105682124245,0.104549205033,0.103790362919,0.102379557862,0.101449709075,0.101054256142,0.0998678973447,0.0993014377386,0.098563971459,0.097901320599,0.0972386697391,0.0964370759569,0.0958813042679,0.0957744250969,0.0948338883925,0.0935940900094,0.0930596941546,0.0927604324759,0.0920977816159,0.091884023274,0.0912961878337,0.0908686711499,0.090430466549,0.0901098290361,0.0895326815129,0.0895861210984,0.0889127823213,0.0886028327255,0.088207379793,0.0877371114408,0.087651608104,0.0876088564356,0.0874806014305,0.0869355176586,0.087095836415,0.0871599639176,0.0872561551715,0.0869141418244,0.0867217593167,0.0865293768089,0.0865507526431,0.0867110713996,0.0869462055757,0.087544728933,0.0879188060314,0.0878226147775,0.0882928831298,0.0888593427359,0.0896288727668,0.0903022115438,0.0911465569944,0.0912427482483,0.091884023274,0.0923436037091,0.0931345095742,0.0940750462787,0.0945453146309,0.0949835192318,0.0953896600815,0.0962660692834,0.0967256497185,0.0978799447648,0.0987563539667,0.0996327631686,0.100028216101,0.100712242795,0.101952041178,0.10282845038,0.104132376266,0.104987409634,0.106120328846,0.106932610545,0.107306687643,0.107883835167,0.108963314793,0.109593901902,0.110021418586,0.111207777384,0.111816988658,0.112351384513,0.112885780368,0.113302609134,0.113740813735,0.11420039417,0.114756165859,0.115226434212,0.115899772989,0.11626316217,0.116829621776,0.117460208885,0.11810148391,0.118625191848,0.119031332698,0.119822238563,0.120057372739,0.120549016925,0.120965845692,0.121168916117,0.121297171122,0.121585744884,0.121500241547,0.121703311972,0.12207738907,0.12215220449,0.122569033257,0.122750727847,0.122782791598,0.122793479516,0.12248352992,0.122536969505,0.123135492863,0.12332787537,0.123680576635,0.123637824966,0.123359939122,0.123285123702,0.122921734521,0.122836231184,0.122686600345,0.122365962832,0.121575056967,0.121115476531,0.120581080677,0.11983292648,0.119619168138,0.119330594376,0.119127523952,0.118753446853,0.118144235579,0.117609839724,0.117064755952,0.116679990937,0.115899772989,0.115985276325,0.115440192554,0.114809605445,0.11435002501,0.113954572077,0.113740813735,0.113398800388,0.11302472329,0.112501015352,0.11210556242,0.111464287394,0.1107802607,0.110096234006,0.109177073135,0.108439606856,0.107638013073,0.107039489716,0.10647303011,0.105457677986,0.104987409634,0.104292695022,0.103929305841,0.103512477074,0.103213215396,0.102261990774,0.101706219085,0.100573299873,0.0999106490131,0.099675514837,0.0987242902154,0.0981685185264,0.0967363376356,0.0958706163508,0.095229341325,0.0946094421335,0.0942033012838,0.0936154658436,0.0927604324759,0.0918412716056,0.0911679328286,0.0903663390464,0.0899815740309,0.0889662219068,0.088100500622,0.087758487275,0.0867003834825,0.0862087392961,0.0853537059284,0.0843704175555,0.0838573975349,0.082863421245,0.0822648978876,0.0819121966235,0.0809930357532,0.0802448815565,0.079293656935,0.0783638081476,0.0775729022825,0.0768354360029,0.075959026801,0.0751681209359,0.0743665271537,0.0737038762938,0.0732015441903,0.0723037591542,0.0718655545533,0.0714380378694,0.0709677695172,0.0707005715898,0.0701127361495,0.0695355886263,0.0686591794245,0.0681247835697,0.0673980052072,0.0670025522746,0.0668422335182,0.0663505893317,0.0656772505547,0.0653673009589,0.0649825359435,0.0644374521716,0.0644588280058,0.0643412609177,0.064041999239,0.0638068650629,0.0634755396329,0.0631549021201,0.0630266471149,0.0629197679439,0.0630480229491,0.0633900362962,0.0632404054568,0.0625029391772,0.062363996255,0.0619364795711,0.0617440970634,0.0617334091463,0.0622250533327,0.0620219829079,0.0615624024728,0.0612952045454,0.0612952045454,0.0615517145557,0.0617868487318,0.0620967983276,0.0622464291669,0.0622784929182,0.0621074862447,0.0621609258301,0.0626418820994,0.0628770162756,0.0630800867004,0.0634434758816,0.0637961771458,0.0642236938297,0.0646618984306,0.0646191467622,0.0649611601093,0.0653993647102,0.0656451868034,0.065933760565,0.0662116464095,0.0663078376634,0.0667674180985,0.0668422335182,0.0667887939327,0.0673445656217,0.0675476360465,0.0675690118807,0.0680713439842,0.0687767465125,0.0691721994451,0.069610404046,0.0692683906989,0.069717283217,0.0703264944914,0.0708074507608,0.0712135916104,0.0721434403978,0.0723465108226,0.0725923329158,0.0725923329158,0.0730305375167,0.074067265475,0.0744092788221,0.0745161579931,0.0749864263453,0.075510134283,0.0757025167907,0.0758842113813,0.0762155368113,0.0770812580961,0.0773270801893,0.0772629526867,0.0777011572877,0.0784386235673,0.078631006075,0.0787699489973,0.0788127006656,0.0793150327692,0.0794860394427,0.0799028682094,0.0805013915668,0.0809823478361,0.0808113411626,0.0806510224061,0.0808434049139,0.0809502840848,0.0811319786755,0.0812281699293,0.0812709215977,0.0812388578464,0.0811640424268,0.0810999149242,0.0812709215977,0.0808861565823,0.0809609720019,0.0808220290797,0.0806403344891,0.0805655190694,0.0804907036497,0.080298321142,0.0799242440436,0.0800204352975,0.079742549453,0.0801380023855,0.0799990594633,0.0798814923752,0.0800204352975,0.0798066769556,0.0792829690179,0.0789302677537,0.0787806369144,0.0780111068834,0.0777011572877,0.0773377681064,0.0769530030909,0.0767499326661,0.0764506709874,0.0760872818062,0.0758735234643,0.0757666442933,0.0755635738685,0.0755635738685,0.0755849497027,0.0750184900966,0.0744734063247,0.0742917117341,0.0734901179519,0.0731801683561,0.0730412254338,0.0724640779106,0.0723251349884,0.0717479874652,0.071053272854,0.0709677695172,0.0705830045018,0.0700058569786,0.0695890282118,0.0689691290203,0.068605739839,0.0681889110723,0.0675690118807,0.067162871031,0.0666498510104,0.0660727034873,0.0652176701196,0.0649825359435,0.064822217187,0.0642878213322,0.0635610429697,0.0628235766901,0.0623426204208,0.0620433587421,0.0623105566695,0.0614341474676,0.0613593320479,0.0604294832606,0.0600981578306,0.0598416478203,0.0593927553023,0.0590079902868,0.0584415306807,0.0579712623285,0.057020037707,0.0569772860386,0.0564322022667,0.0563253230957,0.0556412964016,0.0554061622255,0.0550855247126,0.054796950951,0.0542625550962,0.0537281592414,0.0533861458943,0.0528838137908,0.0528517500395,0.0521356595941,0.0519646529206,0.0513661295632,0.0509493007965,0.0507248545374,0.0507034787033,0.0502225224339,0.0499018849211,0.0499018849211,0.0495812474082,0.0495064319885,0.0492606098953,0.0490254757192,0.048672774455,0.0483948886105,0.0478391169215,0.0475505431599,0.0471230264761,0.0466955097923,0.0462786810255,0.0459901072639,0.0453915839066,0.0449106276372,0.0448358122176,0.0443548559483,0.0443121042799,0.0443762317824,0.0443334801141,0.0442052251089,0.0439380271815,0.0439487150986,0.0441517855234,0.044109033855,0.0438738996789,0.0440555942696,0.0437349567567,0.0439273392644,0.0437028930054,0.0432753763216,0.0436173896686,0.043104369648,0.0429440508916,0.0427089167155,0.0427837321351,0.0426661650471,0.0428264838035,0.04265547713,0.0429012992232,0.0432753763216,0.0431150575651,0.0433822554925,0.0435211984148,0.0439273392644,0.0440021546841,0.0442266009431,0.0445365505389,0.0442907284457,0.044098345938,0.0441517855234,0.0444082955337,0.0441410976063,0.0442052251089,0.0446113659586,0.0447075572124,0.0449533793056,0.0448678759689,0.0450816343108,0.0455091509946,0.0457870368391,0.0459366676785,0.0466741339581,0.046994771471,0.0469306439684,0.0473154089838,0.0473154089838,0.0475826069112,0.047999435678,0.0480421873464,0.0483628248592,0.0479459960925,0.0482345698541,0.0481063148489,0.0484269523618,0.0485231436157,0.0488117173773,0.0486834623721,0.0487155261234,0.0486407107037,0.0482986973567,0.0487475898747,0.0485338315328,0.0488651569628,0.0486407107037,0.048448328196,0.0485231436157,0.0485658952841,0.0485765832012,0.0489292844653,0.0492178582269,0.0493674890663,0.0496133111595,0.0493781769834,0.0497201903304,0.0496667507449,0.0494957440714,0.0497629419988,0.0499553245065,0.0497415661646,0.050115643263,0.0500622036775,0.0500728915946,0.050008764092,0.0497415661646,0.0500728915946,0.0501690828485,0.0501583949314,0.0499873882578,0.0500194520091,0.0494957440714,0.0496026232424,0.0493568011492,0.0493781769834,0.049228546144,0.0488544690457,0.0486193348695,0.0484910798644,0.0483200731909,0.0484269523618,0.0481811302686,0.0478604927557,0.0476787981651,0.0476787981651,0.0475291673258,0.0475077914916,0.0473902244035,0.0472405935642,0.0474757277403,0.047112338559,0.0475826069112,0.0475398552429,0.0473688485693,0.0473260969009,0.04721921773,0.0472940331496,0.0466848218752,0.0465245031187,0.0460862985178,0.0459901072639,0.0453488322382,0.0448678759689,0.0452312651501,0.0446006780415,0.0445258626218,0.0441197217721,0.0445793022073,0.0445579263731,0.0443869196995,0.0440769701038,0.0439700909328,0.0441945371918,0.043660141337,0.0438738996789,0.0437563325909,0.0434998225806,0.0426020375445,0.0420035141871,0.0416615008401,0.0415118700007,0.0412232962391,0.0405927091305,0.0404003266227,0.0401865682808,0.0399407461876,0.0396949240944,0.0401438166124,0.0398338670167,0.0398659307679,0.0398124911825,0.039427726167,0.039427726167,0.0391605282396,0.0386154444677,0.0382627432036,0.0381344881984,0.037974169442,0.03809173653,0.037867290271,0.0374397735872,0.0376321560949,0.0375680285923,0.0372260152452,0.0370656964888,0.0370122569033,0.0368091864785,0.0365633643853,0.036413733546,0.0359969047792,0.0360182806134,0.0354838847586,0.0350029284893,0.0350670559919,0.0350991197431,0.0314331641792,0.0279382152889,0.0242295080566,0.0206383679123,0.0)
m <- c(0.0198353080687,0.0232393166849,0.0268895271821,0.0302935357983,0.0335476824,0.0339651551548,0.0342755836135,0.0345431943538,0.0347786918052,0.0350784158343,0.0350998246936,0.0354423664411,0.0354744797299,0.0355172974484,0.0358170214775,0.0356457506037,0.0354316620115,0.0356457506037,0.0360204056401,0.0361488587954,0.0363415385284,0.036491400543,0.0363736518172,0.0368125334313,0.0370266220235,0.0374655036375,0.0379793162588,0.0380328384069,0.0381719959918,0.0380114295477,0.0379900206885,0.0381612915622,0.0388570794869,0.0389855326422,0.0392317345233,0.0394137098267,0.0397669560038,0.0403342907732,0.0404734483581,0.0410407831275,0.0415438913192,0.0418436153483,0.0419185463556,0.0419399552148,0.0421968615255,0.0425072899842,0.0426143342803,0.0427641962948,0.0429461715982,0.0430960336128,0.0434064620715,0.0437061861006,0.0441022499962,0.0445625404694,0.0447552202024,0.0446802891952,0.0449264910762,0.0452155106757,0.0458149587339,0.0459862296077,0.0460718650445,0.0460718650445,0.046114682763,0.0462966580664,0.0463501802144,0.04674624411,0.0467569485396,0.0468532884061,0.0467890618285,0.047078081428,0.0472600567313,0.0473992143163,0.0473992143163,0.0476347117677,0.0476775294862,0.0476561206269,0.0478809136488,0.0481271155298,0.048095002241,0.0483090908332,0.0485445882846,0.0487907901657,0.0488978344618,0.0489406521802,0.0492938983574,0.0494865780904,0.0495401002384,0.0496043268161,0.0499575729932,0.0500539128597,0.050128843867,0.0501716615855,0.0503429324592,0.0501930704447,0.0503322280296,0.0500325040005,0.0502358881631,0.0498719375564,0.0495722135273,0.049304602787,0.049358124935,0.0490798097652,0.0488978344618,0.0488550167433,0.0485874060031,0.0490048787579,0.0486088148623,0.048533883855,0.0487586768768,0.0485767015735,0.0480735933818,0.0479344357968,0.0476775294862,0.047516963042,0.0474420320347,0.0471637168648,0.0471851257241,0.0471851257241,0.0469710371318,0.0470566725687,0.0472279434425,0.0471744212945,0.0471958301537,0.0473671010274,0.0471530124352,0.0466284953843,0.046553564377,0.0462966580664,0.0459327074596,0.0456222790009,0.0452048062461,0.0451405796684,0.0447980379209,0.0447016980544,0.0446053581879,0.0446481759063,0.0440273189889,0.0436526639525,0.0435884373749,0.0434385753603,0.0434171665011,0.0432458956273,0.043310122205,0.0428712405909,0.0424751766953,0.0423574279696,0.042539403273,0.0426464475691,0.0424323589769,0.0420577039405,0.0417579799114,0.0412548717197,0.0408588078241,0.0406661280911,0.0406126059431,0.0402058376179,0.0404520394989,0.0404841527877,0.0404948572174,0.0406019015135,0.0404306306397,0.0406661280911,0.0407945812465,0.0408052856761,0.0409658521202,0.0409872609795,0.0406875369504,0.0404841527877,0.040559083795,0.0404520394989,0.0407089458096,0.0409765565498,0.0413190982974,0.0418864330668,0.0421219305182,0.0427963095837,0.0428391273021,0.0431602601904,0.0433743487826,0.0439952057001,0.0442307031515,0.0442092942923,0.0442092942923,0.0443377474476,0.0443912695957,0.0441878854331,0.044712402484,0.0449800132243,0.0449157866466,0.0447980379209,0.044905082217,0.0451941018165,0.045343963831,0.0450870575204,0.045343963831,0.0458042543043,0.046114682763,0.0460611606149,0.0465321555178,0.0470673769983,0.0474848497532,0.0476561206269,0.0481271155298,0.0483947262701,0.0489299477506,0.0494865780904,0.0497970065491,0.0505891343403,0.0513812621315,0.051723803879,0.0520663456266,0.0525908626775,0.0531367885876,0.0540680739638,0.0546247043035,0.055106403636,0.0555988073981,0.0559627580049,0.0558021915607,0.0563588219004,0.056947565529,0.0573971515727,0.0577289888906,0.0582320970823,0.0585746388299,0.0587245008444,0.0592918356138,0.0599233969608,0.0604907317302,0.061100884218,0.0612828595214,0.0620749873126,0.0627172530892,0.0631668391329,0.0635950163173,0.0642051688051,0.0642372820939,0.0644192573973,0.0654040649215,0.0654361782103,0.065885764254,0.0659606952613,0.0660035129797,0.066131966135,0.0664745078826,0.0667314141932,0.0673950888291,0.0677804482951,0.0678446748728,0.0684120096421,0.068883004545,0.0692148418629,0.0696965411954,0.0701247183798,0.0705957132827,0.0707669841565,0.0710024816079,0.0713664322147,0.0718160182583,0.0723512397389,0.0728650523602,0.0732611162558,0.0735822491441,0.0740639484766,0.07424592378,0.0750273471415,0.0752521401634,0.0755946819109,0.0758729970808,0.0760121546657,0.0762155388283,0.0762476521172,0.0766972381608,0.0767614647385,0.0773287995079,0.0774465482336,0.0773609127967,0.0776927501146,0.0775214792408,0.0777997944107,0.0779817697141,0.0786133310611,0.0785491044835,0.0791913702601,0.0789451683791,0.079277005697,0.0799942024809,0.079855044896,0.0802296999324,0.0797694094591,0.080047724629,0.0801547689251,0.0803795619469,0.0800263157698,0.0800049069105,0.0797694094591,0.0796409563038,0.0797587050295,0.0797265917407,0.079662365163,0.0795553208669,0.0791806658305,0.0789665772383,0.0786133310611,0.0783671291801,0.0778212032699,0.0775321836705,0.0771575286341,0.0768149868865,0.076911326753,0.0762690609764,0.0759800413769,0.0756910217774,0.0754020021779,0.0751879135857,0.0751450958673,0.0747597364013,0.0744814212314,0.0736999978698,0.0730042099451,0.0728329390714,0.0721478555763,0.0715269986588,0.071302205637,0.0707990974453,0.0706813487196,0.0704458512682,0.0700711962318,0.0699320386468,0.0695680880401,0.0691720241445,0.0692255462925,0.0690221621299,0.0684869406494,0.0682728520572,0.067866083732,0.0670953648,0.0667849363413,0.0665387344602,0.0665387344602,0.0665494388899,0.0658215376763,0.0656395623729,0.0652434984773,0.0645798238415,0.0639910802129,0.0638840359168,0.063327405577,0.0629848638295,0.0626209132227,0.0619572385869,0.062064282883,0.0616896278466,0.0616361056985,0.0616254012689,0.0616575145578,0.0614755392544,0.0614006082471,0.0614327215359,0.0613042683806,0.0610259532107,0.0609831354923,0.0608225690481,0.0608332734777,0.0610045443515,0.0606512981743,0.0608760911962,0.0608653867666,0.060854682337,0.0609938399219,0.061100884218,0.0607797513297,0.0609617266331,0.060854682337,0.0610259532107,0.0616146968393,0.0615718791209,0.061678923417,0.0617431499946,0.0618930120092,0.0620963961718,0.0624389379193,0.0626637309412,0.0630919081256,0.0637020606134,0.0637876960503,0.0643229175308,0.0651899763293,0.0653291339142,0.0659713996909,0.0664209857345,0.0669562072151,0.067726926147,0.0684013052125,0.0687973691081,0.069514565892,0.0699106297876,0.0704672601274,0.0714306587923,0.0719551758433,0.0731112542412,0.0742780370688,0.0750166427119,0.075648204059,0.0763761052725,0.0769969621899,0.0779603608549,0.0787417842165,0.0797051828814,0.0804223796654,0.0813750739007,0.0820494529662,0.0824455168618,0.0831841225049,0.0839976591553,0.0846720382208,0.085217964131,0.0860743184998,0.0866844709876,0.0872732146162,0.0878726626744,0.0885042240214,0.0894676226864,0.0900670707446,0.0904738390698,0.0913730111571,0.0919938680745,0.092807404725,0.0938671432564,0.0947984286326,0.0953336501131,0.0960722557562,0.0965646595183,0.0972818563022,0.0981168018119,0.0990159738992,0.100268392164,0.100600229482,0.101338835125,0.102045327479,0.102698297685,0.10312647487,0.103918602661,0.104592981726,0.105513562673,0.106070193013,0.106594710064,0.107579517588,0.107954172624,0.108382349809,0.109120955452,0.109859561095,0.110598166738,0.111454521107,0.111829176143,0.112503555209,0.112942436823,0.113167229845,0.11385231334,0.114719372138,0.115168958182,0.115714884092,0.116464194165,0.116474898594,0.117074346652,0.117267026385,0.117481114978,0.117866474444,0.118080563036,0.118465922502,0.118498035791,0.119172414856,0.119407912308,0.120232153388,0.120756670439,0.121174143193,0.121966270985,0.122351630451,0.122565719043,0.122576423472,0.123240098108,0.12319728039,0.123507708849,0.123807432878,0.123957294892,0.124246314492,0.124257018921,0.124449698654,0.124342654358,0.125049146712,0.125177599868,0.125241826445,0.124792240402,0.124460403084,0.123946590463,0.123539822137,0.122779807635,0.122351630451,0.12236233488,0.121634433667,0.121377527356,0.121067098897,0.121152734334,0.120778079298,0.120628217283,0.120574695135,0.12015722238,0.120060882514,0.119536365463,0.118936917405,0.118198311762,0.11740618397,0.116453489735,0.115725588522,0.115233184759,0.114184150658,0.113681042466,0.112546372927,0.111754245136,0.111261841374,0.110598166738,0.109880969954,0.1091744776,0.108446576386,0.107493882151,0.106862320804,0.106220055027,0.10533158737,0.104689321593,0.103372676751,0.1028481597,0.102205893923,0.101381652843,0.100568116193,0.0997331706831,0.0992193580618,0.0986841365812,0.0983094815449,0.097838486642,0.0972925607318,0.09624352663,0.095611965283,0.0948626552102,0.0944344780258,0.0937922122491,0.0933319217759,0.0927967002953,0.092422045259,0.0917262573343,0.0913516022979,0.0910304694096,0.0906237010844,0.0909020162542,0.0909448339727,0.0906237010844,0.0901098884631,0.0901527061815,0.0897780511451,0.0896281891306,0.0898422777228,0.0897245289971,0.0895746669825,0.0890715587908,0.0881081601258,0.0882366132812,0.0885149284511,0.0880011158297,0.0883864752957,0.0886433816064,0.0882259088516,0.0883757708661,0.0886326771768,0.0890073322132,0.0897780511451,0.0903239770553,0.090302568196,0.090880607395,0.0912338535722,0.0914372377348,0.0925290895551,0.0934710793608,0.0939313698341,0.0948305419214,0.0955049209869,0.0963933886445,0.0977635556347,0.0987483631589,0.0990694960472,0.100054303571,0.101092633244,0.101531514858,0.102527026811,0.102998021714,0.104357484275,0.105245951933,0.105802582272,0.106594710064,0.108007694772,0.109356452903,0.110351964857,0.111572269833,0.11274975709,0.11384160891,0.11439823925,0.115072618315,0.115928972684,0.117117164371,0.117759430148,0.118166198473,0.118562262368,0.119686227477,0.120489059698,0.121623729237,0.122897556361,0.12401081704,0.125306053023,0.126387200414,0.127575392101,0.12869935721,0.130026706481,0.130379952659,0.131942799382,0.132713518314,0.133698325838,0.134586793496,0.135089901687,0.13584991619,0.137005994588,0.137905166675,0.138440388155,0.139307446954,0.139649988701,0.140067461456,0.140720431663,0.141501855024,0.142186938519,0.142872022014,0.143193154903,0.143985282694,0.144520504174,0.145077134514,0.145558833847,0.146500823652,0.146896887548,0.147410700169,0.148288463397,0.148973546892,0.149712152536,0.150365122742,0.151392747984,0.152291920072,0.153094752293,0.153897584513,0.154646894586,0.155406909088,0.155867199562,0.156402421042,0.156723553931,0.157141026685,0.157162435545,0.157729770314,0.157911745617,0.15810442535,0.158350627231,0.158511193676,0.159046415156,0.159089232875,0.159892065095,0.160459399865,0.160812646042,0.161369276382,0.161711818129,0.162075768736,0.162482537061,0.162471832632,0.162343379476,0.162418310483,0.162214926321,0.161615478263,0.161850975714,0.16169040927,0.161754635848,0.161454911819,0.161101665641,0.161487025107,0.160898281479,0.160769828323,0.160395173287,0.160480808724,0.160116858117,0.159966996103,0.159592341066,0.159185572741,0.158853735423,0.157965267765,0.157965267765,0.157215957693,0.156937642523,0.155995652717,0.155010845193,0.153266023166,0.151960082754,0.151489087851,0.150225965157,0.149176931055,0.147539153325,0.146725616674,0.14546249398,0.144434868737,0.143450061213,0.142604411274,0.141940736638,0.140356481056,0.139575057694,0.138365457148,0.137691078083,0.135892733908,0.134158616311,0.133259444224,0.13226393227,0.13117208045,0.129373736275,0.127982160426,0.126151702962,0.124610265098,0.12290826079,0.121709364674,0.120649626142,0.118712124383,0.116988711216,0.116014608121,0.114815712005,0.113424136155,0.112364397624,0.111240432515,0.110384078146,0.109923787673,0.108992502296,0.108211078935,0.107215566981,0.105802582272,0.104592981726,0.103961420379,0.103640287491,0.102998021714,0.102077440768,0.100771500355,0.0994762643724,0.0986734321516,0.0978170777828,0.0969928367027,0.0966717038144,0.0960829601858,0.095033926084,0.0942846160112,0.0938671432564,0.0935781236569,0.0936637590938,0.0934710793608,0.0932676951982,0.0932676951982,0.0928395180138,0.092422045259,0.092090207941,0.0923899319701,0.092282887674,0.0920152769338,0.091458646594,0.0911161048465,0.0911696269945,0.0909127206839,0.0908377896766,0.0910625826984,0.0911268092761,0.0907842675285,0.0906558143732,0.0909983561207,0.0916406218974,0.0920259813634,0.0922400699556,0.0927003604288,0.0931071287541,0.0928930401618,0.0934496705016,0.0935888280865,0.0939099609749,0.0938671432564,0.0941454584263,0.0944665913146,0.0942739115816,0.0944772957442,0.0947984286326,0.0953871722611,0.0953122412539,0.0956333741422,0.0958902804528,0.0965753639479,0.0966074772368,0.0969500189843,0.0979883486565,0.0985342745667,0.0990587916176,0.0996368308166,0.100514594045,0.101317426265,0.101874056605,0.102312938219,0.102805341981,0.103415494469,0.104025646957,0.104603686156,0.105278065221,0.105791877843,0.106487665767,0.1066803455,0.107451064432,0.107975581483,0.108746300415,0.108821231423,0.108831935852,0.109056728874,0.109581245925,0.110084354117,0.11053394016,0.111026343922,0.111037048352,0.111122683789,0.1113795901,0.111497338825,0.11246073749,0.112792574808,0.112899619104,0.113220751993,0.112963845682,0.113499067162,0.114002175354,0.114408943679,0.11467655442,0.115308115767,0.115168958182,0.115383046774,0.116078834699,0.116217992284,0.116903075779,0.116774622623,0.117159982089,0.117117164371,0.117213504237,0.117331252963,0.117716612429,0.117620272563,0.117320548534,0.117759430148,0.117566750415,0.117802247866,0.117770134577,0.118219720621,0.118658602235,0.118979735123,0.11905466613,0.11961129647,0.120018064795,0.119782567344,0.119825385062,0.119857498351,0.11987890721,0.119771862914,0.119514956604,0.119589887611,0.119461434456,0.119290163582,0.118861986397,0.119193823715,0.119097483849,0.118883395257,0.118829873109,0.11879775982,0.119022552842,0.118819168679,0.118744237672,0.118562262368,0.118412400354,0.117941405451,0.117652385851,0.117652385851,0.117042233364,0.116507011883,0.115746997381,0.115201071471,0.114355421531,0.113798791192,0.11301736783,0.112407215342,0.111722131847,0.11110127493,0.110726619893,0.110298442709,0.109613359214,0.108596438401,0.108093330209,0.106787389797,0.106091601872,0.105128203207,0.104528755149,0.103490425476,0.102537731241,0.101552923717,0.100396845319,0.0997759884015,0.0986948410109,0.0980632796638,0.0973781961687,0.096050846897,0.0947127931957,0.093299808487,0.0921651389483,0.0907414498101,0.0895960758417,0.0883650664365,0.0872625101866,0.0861171362183,0.0844793584878,0.0834089155267,0.0828415807574,0.0819317042405,0.0810325321532,0.0806150593983,0.0799834980513,0.0793519367043,0.0787096709276,0.0779389519957,0.0774251393743,0.0769220311826,0.0755839774813,0.0747169186828,0.0737963377363,0.0730791409524,0.07231912645,0.0711416391929,0.0701247183798,0.0695359747512,0.0691185019964,0.0684013052125,0.0680801723242,0.0681551033315,0.0677590394359,0.066902685067,0.0663032370088,0.0658750598244,0.0658429465355,0.0653291339142,0.0646333459895,0.0646012327007,0.0642265776643,0.0640338979313,0.0637234694726,0.0635414941692,0.0632952922882,0.0635093808804,0.063081203696,0.063273883429,0.0632845878586,0.0629741593999,0.0630169771183,0.06269584423,0.0627386619484,0.0627172530892,0.062888523963,0.0626744353708,0.0630597948368,0.0632203612809,0.0633167011474,0.0635521985989,0.0633702232955,0.0635521985989,0.063659242895,0.0635950163173,0.0636806517542,0.0641623510867,0.0640874200794,0.0642158732347,0.064483483975,0.0645155972638,0.0648367301521,0.064922365589,0.0649116611594,0.0649758877371,0.0655539269361,0.0655646313657,0.0658643553948,0.0655967446545,0.0656716756618,0.0661212617054,0.0662068971423,0.0661426705646,0.066656483186,0.0671167736592,0.0668063452005,0.0669669116447,0.0665708477491,0.0672238179553,0.0673736799699,0.0673736799699,0.0683156697756,0.0688615956858,0.0691185019964,0.0692897728702,0.0698892209284,0.0700176740837,0.0707669841565,0.0706278265715,0.0709810727487,0.0713771366443,0.0711630480521,0.0711309347632,0.0711951613409,0.071880244836,0.0721478555763,0.0726188504791,0.0727687124937,0.0731647763893,0.0735608402849,0.0737321111587,0.0738177465955,0.0740960617654,0.0743315592169,0.0742138104911,0.0743315592169,0.0744064902241,0.0748025541197,0.0748453718382,0.0749738249935,0.0755518641925,0.0761299033915,0.0765794894351,0.0766223071535,0.0769755533307,0.0772003463525,0.0772859817894,0.0773180950782,0.0776713412554,0.0778319076996,0.0775214792408,0.0776178191073,0.0779924741437,0.0779710652845,0.0779389519957,0.0779496564253,0.0783350158913,0.0783778336097,0.0787631930757,0.0786668532092,0.0786133310611,0.078120927299,0.0777890899811,0.0778961342772,0.0782065627359,0.0781958583063,0.0784634690466,0.07864544435,0.0786561487796,0.078891646231,0.0788809418014,0.0792341879786,0.0791378481121,0.0791699614009,0.0790522126752,0.0788595329422,0.0785169911946,0.0783457203209,0.0777248634034,0.0775857058185,0.0776927501146,0.0775214792408,0.0775964102481,0.0776071146777,0.0775000703816,0.0772324596414,0.0771575286341,0.0770183710491,0.0773180950782,0.0769327356123,0.0766223071535,0.0764617407094,0.0759265192288,0.0756160907701,0.0752414357338,0.0751129825784,0.0745884655275,0.0741388794839,0.0731754808189,0.0728757567898,0.072458284035,0.0716340429549,0.0713878410739,0.0708740284526,0.0705421911347,0.0702103538167,0.0697714722027,0.0693754083071,0.0692790684406,0.0686796203824,0.0680159457465,0.0677697438655,0.0670418426519,0.0666885964748,0.0660249218389,0.0652220896181,0.0645905282711,0.0636806517542,0.0628242973853,0.0621606227495,0.0615183569728,0.0609296133442,0.0605656627375,0.0597842393759,0.0591526780288,0.0586388654075,0.0579216686236,0.0575684224465,0.0572365851285,0.056701363648,0.0566264326407,0.056262482034,0.0559199402864,0.0553740143763,0.0548280884661,0.0546139998739,0.0543892068521,0.053950325238,0.0531474930172,0.052879882277,0.0522376165003,0.0518950747528,0.0514454887091,0.0512528089761,0.0507711096437,0.0502144793039,0.0497541888306,0.0495722135273,0.0495186913792,0.0493474205054,0.0487907901657,0.0484268395589,0.0479237313672,0.0479986623745,0.047709642775,0.047763164923,0.0473885098867,0.0468318795469,0.0464572245105,0.0460504561853,0.0462217270591,0.0459112986004,0.0456222790009,0.0453546682606,0.0452262151053,0.0450442398019,0.0446695847655,0.0447445157728,0.0448622644985,0.044958604365,0.0446053581879,0.0446695847655,0.0447338113432,0.044134363285,0.0443056341588,0.0443056341588,0.0447980379209,0.0447980379209,0.0447873334913,0.0444126784549,0.0446160626175,0.0444769050325,0.0443912695957,0.0442735208699,0.0442628164403,0.043941683552,0.0438346392559,0.0437704126782,0.043502801938,0.0435242107972,0.0433529399234,0.0433743487826,0.043363644353,0.0437704126782,0.0436847772414,0.0434813930788,0.0436740728117,0.043695481671,0.0439095702632,0.0442949297292,0.0443912695957,0.0442735208699,0.0443591563068,0.044573244899,0.044519722751,0.0448943777874,0.0448729689281,0.0453867815495,0.0456650967193,0.0454724169863,0.0453653726902,0.0457507321562,0.0457828454451,0.0457614365858,0.0413726204454,0.0368446467201,0.0321989242691,0.0272641822185,0.0)
ycorr <- c(-0.000205067615697,-0.000205373697,-0.000206292202181,-0.000207825246619,-0.000209967031161,-0.000212720752092,-0.000216082405959,-0.000219478324875,-0.000222905544637,-0.000226360070959,-0.000229840844124,-0.000233347374167,-0.000236876465144,-0.000240424247553,-0.00024398999743,-0.000247574189846,-0.000251168751375,-0.000254776485393,-0.000258396649266,-0.000262027860598,-0.00026566791557,-0.00026931301755,-0.000272961741082,-0.000276611698113,-0.000280260844854,-0.000283903273656,-0.000287541098766,-0.000291171981013,-0.000294791892395,-0.000298401307014,-0.000302000014094,-0.000305588541913,-0.000309167489403,-0.000312737200873,-0.000316297959528,-0.000319850457733,-0.000323396573038,-0.000326933538305,-0.000330461459456,-0.000333977927697,-0.00033748068717,-0.000340967327774,-0.000344436654616,-0.000347885127571,-0.000351311280739,-0.000354712441668,-0.000358087290383,-0.000361433545749,-0.000364751230407,-0.000368041441206,-0.000371302393568,-0.000374534650877,-0.00037773783668,-0.000380910633636,-0.000384054729007,-0.000387169981098,-0.000390256873036,-0.000393314179253,-0.000396339881772,-0.000399331322915,-0.000402285845338,-0.00040520282319,-0.000408075213803,-0.000410903184062,-0.000413685282033,-0.000416420698745,-0.000419104231288,-0.000421734737703,-0.000424313369495,-0.000426836560985,-0.000429306854775,-0.000431723203226,-0.000434089390972,-0.000436408009144,-0.000438677951725,-0.000440896844799,-0.000443063194259,-0.000445178811602,-0.000447240548212,-0.000449249648212,-0.000451205823854,-0.000453106947507,-0.000454951944898,-0.000456736638198,-0.000458455329715,-0.000460106565993,-0.000461693692538,-0.000463214201281,-0.000464667424804,-0.000466051751698,-0.000467365425107,-0.000468610908606,-0.000469786683861,-0.00047089165059,-0.000471927986131,-0.000472900505191,-0.000473806421426,-0.000474646380273,-0.000475422031,-0.000476134449584,-0.000476782965917,-0.000477362439675,-0.000477874398901,-0.000478322817228,-0.000478709620521,-0.000479032282503,-0.000479291630426,-0.000479486533865,-0.000479613579465,-0.000479672944355,-0.000479665455078,-0.00047959968693,-0.000479477951538,-0.000479297018944,-0.000479059019876,-0.000478764743178,-0.000478417239996,-0.0004780212075,-0.000477584350371,-0.000477113797747,-0.000476616688158,-0.000476093744864,-0.000475545440382,-0.00047497776012,-0.000474395414779,-0.000473799471496,-0.000473196781865,-0.000472592880467,-0.000471989159952,-0.000471384954872,-0.000470776751697,-0.000470161303876,-0.000469542031722,-0.00046892135778,-0.000468299985321,-0.000467683110822,-0.000467070661018,-0.000466460827874,-0.000465853960921,-0.000465254038869,-0.000464668828839,-0.00046410639904,-0.000463571843536,-0.000463067517735,-0.00046259637208,-0.000462160613241,-0.000461762032467,-0.00046140349256,-0.00046109100928,-0.000460824364626,-0.00046060162574,-0.000460419106671,-0.000460276531581,-0.000460175925309,-0.000460117767537,-0.000460101331464,-0.00046012937222,-0.000460202303379,-0.00046031897033,-0.000460478199157,-0.000460683742687,-0.00046094125876,-0.000461254926642,-0.000461626330626,-0.000462055402613,-0.000462544028754,-0.000463091148827,-0.000463696865315,-0.00046436073346,-0.000465085551234,-0.000465869060199,-0.00046670957868,-0.000467602246805,-0.000468540712382,-0.000469522807578,-0.000470547473611,-0.000471612347372,-0.000472716478454,-0.000473856297746,-0.000475030591003,-0.00047623761562,-0.000477476612534,-0.000478746071299,-0.000480048756273,-0.000481387031633,-0.000482758280318,-0.000484162752613,-0.000485600621515,-0.000487074309947,-0.000488582850755,-0.000490124530353,-0.000491694109216,-0.000493289296419,-0.000494907857282,-0.000496545134761,-0.000498199825906,-0.000499869691629,-0.000501550681549,-0.000503234998501,-0.000504919178452,-0.000506601139341,-0.000508280940083,-0.000509958020673,-0.000511627366047,-0.000513284402247,-0.000514926221148,-0.000516549395235,-0.000518151931982,-0.000519731900038,-0.000521287349237,-0.000522813010421,-0.000524304352997,-0.000525755844851,-0.000527170925893,-0.000528550762871,-0.000529894169078,-0.000531195769904,-0.000532449088592,-0.000533652612064,-0.000534803046261,-0.000535901826447,-0.000536950337065,-0.000537948295916,-0.000538891243571,-0.00053977123759,-0.000540587306046,-0.000541337428405,-0.000542024602477,-0.000542649628294,-0.000543211271392,-0.000543705876427,-0.000544130266268,-0.000544480183096,-0.000544755532012,-0.000544955331943,-0.000545078011217,-0.00054512420353,-0.000545091637199,-0.000544977771903,-0.000544782664626,-0.000544505895534,-0.000544148779776,-0.000543712041666,-0.000543193787831,-0.000542593817047,-0.000541913445906,-0.000541151507018,-0.000540305545328,-0.000539378278538,-0.000538368482391,-0.000537275728972,-0.000536096757984,-0.00053483333653,-0.000533485572739,-0.000532055714059,-0.000530541168536,-0.000528945401396,-0.000527270115915,-0.000525513162707,-0.000523674407861,-0.000521755440055,-0.000519760445928,-0.00051768970368,-0.000515541360941,-0.000513316624211,-0.000511016759701,-0.00050864115473,-0.000506188838241,-0.000503661570131,-0.000501061344097,-0.00049838690211,-0.000495636637354,-0.000492808651043,-0.000489904328617,-0.000486925014344,-0.000483868910135,-0.000480737420753,-0.000477533776152,-0.000474259406426,-0.000470915098337,-0.000467504280258,-0.000464028640106,-0.000460489161256,-0.000456889425617,-0.000453228735556,-0.000449509736224,-0.000445734416083,-0.000441904555451,-0.000438020579289,-0.000434084630349,-0.000430097668338,-0.000426059649595,-0.00042197597641,-0.000417848157575,-0.000413678848172,-0.000409475620013,-0.000405238567275,-0.000400969211773,-0.000396667464308,-0.000392336936267,-0.000387976816674,-0.000383588734145,-0.00037917473209,-0.000374735272857,-0.000370274904498,-0.000365791526697,-0.000361286872448,-0.00035676896086,-0.000352243958175,-0.000347715254141,-0.00034318816621,-0.000338669943554,-0.000334167214373,-0.00032968485522,-0.000325226521902,-0.000320796306388,-0.000316400236878,-0.000312037481326,-0.000307707668427,-0.000303411879872,-0.000299156177465,-0.000294942288416,-0.000290767921516,-0.000286634192239,-0.000282544045567,-0.000278502442034,-0.000274512280114,-0.000270576866359,-0.000266704502851,-0.000262898709446,-0.00025916086848,-0.000255490466405,-0.000251890030861,-0.000248367420264,-0.000244924452491,-0.000241560153164,-0.000238275129596,-0.000235070336387,-0.000231946733164,-0.000228902677503,-0.00022593949331,-0.000223060772874,-0.000220270888288,-0.000217567781652,-0.000214951514693,-0.000212424041324,-0.000209986536579,-0.000207639175523,-0.000205381794999,-0.00020321603327,-0.000201142348172,-0.000199160417966,-0.000197269844647,-0.000195470511718,-0.000193764095023,-0.000192148775415,-0.000190624328622,-0.000189189057573,-0.000187840678083,-0.00018657780174,-0.000185397673266,-0.000184299095562,-0.000183279941366,-0.000182337892735,-0.000181469556454,-0.000180674115659,-0.000179949719357,-0.000179294039807,-0.000178707955194,-0.000178190710997,-0.000177740001066,-0.000177356905478,-0.000177038702541,-0.00017678300656,-0.000176586173481,-0.000176443028384,-0.000176352171115,-0.0001763113168,-0.000176315509289,-0.000176362429701,-0.000176449392072,-0.000176572288804,-0.000176725601128,-0.000176903558176,-0.000177105842396,-0.000177331565056,-0.000177578080701,-0.000177843219923,-0.000178123338794,-0.000178415245024,-0.000178713182643,-0.000179013411171,-0.000179314080552,-0.000179613729029,-0.000179907946307,-0.000180191959609,-0.000180460540897,-0.000180709185022,-0.000180929678479,-0.000181117621347,-0.000181273602573,-0.000181394256679,-0.000181475780909,-0.000181514608121,-0.000181504069375,-0.000181445073404,-0.000181332403203,-0.00018116386087,-0.000180937791262,-0.000180652034976,-0.000180300782141,-0.000179878746654,-0.00017938324693,-0.000178811041591,-0.000178159518171,-0.000177425931021,-0.000176608926004,-0.000175705495279,-0.000174716356223,-0.000173639246979,-0.000172473030152,-0.000171217994907,-0.000169870143777,-0.000168428400188,-0.000166891863801,-0.000165257870321,-0.00016352223623,-0.000161683367547,-0.000159741021005,-0.000157688122251,-0.000155524301952,-0.000153246289523,-0.000150855074121,-0.00014834913715,-0.000145729458944,-0.000142992549003,-0.000140138466671,-0.00013716642986,-0.000134072120003,-0.000130854061571,-0.000127515574598,-0.000124055183098,-0.000120474893065,-0.000116774288281,-0.000112955053676,-0.000109015768326,-0.000104958284665,-0.000100784027639,-9.64945223089e-05,-9.20948858279e-05,-8.75844040063e-05,-8.29626225916e-05,-7.82297444076e-05,-7.33847472034e-05,-6.84243189009e-05,-6.33509729495e-05,-5.81676551274e-05,-5.28754355769e-05,-4.7478894469e-05,-4.19822958535e-05,-3.63858939753e-05,-3.06931524577e-05,-2.49073368145e-05,-1.90328843289e-05,-1.3076665101e-05,-7.04414548447e-06,-9.35667413346e-07,5.24872441221e-06,1.15082338185e-05,1.78420860605e-05,2.42472264015e-05,3.07187292918e-05,3.72541063693e-05,4.38505636643e-05,5.05095845094e-05,5.72307324843e-05,6.4009465057e-05,7.08413237763e-05,7.77206362733e-05,8.46428562501e-05,9.16041561501e-05,9.86015312062e-05,0.000105633025897,0.000112694138937,0.000119778290601,0.000126879680687,0.000133994497028,0.000141117310992,0.00014824454633,0.000155370853711,0.000162492635598,0.000169609281403,0.000176715920502,0.000183809464892,0.000190885640939,0.00019794234424,0.00020497482707,0.000211979472385,0.000218953072069,0.000225893219199,0.000232798476835,0.00023966257391,0.000246479836777,0.000253246366503,0.000259957092817,0.000266607396977,0.000273191857905,0.000279704652854,0.000286141310307,0.000292500119667,0.000298773672887,0.000304956527739,0.000311047229412,0.000317041109601,0.000322938391466,0.000328735098153,0.000334430313601,0.000340023134541,0.000345510989608,0.000350890337199,0.000356159862288,0.000361319888728,0.000366368768979,0.000371301821186,0.000376116165728,0.000380807283083,0.000385375246504,0.000389818005302,0.000394135075371,0.000398323927651,0.000402385142152,0.000406313845617,0.00041010903602,0.000413772088537,0.000417303024756,0.000420703413662,0.000423971066457,0.0004271059094,0.000430107879295,0.000432975584643,0.00043571010576,0.000438311121594,0.000440781231611,0.000443118814399,0.000445322680884,0.000447393641545,0.000449332780736,0.000451140573017,0.000452816437669,0.00045436422656,0.00045578359798,0.000457076039985,0.000458241646979,0.000459282175177,0.000460200901981,0.00046100232941,0.000461688647995,0.000462262094517,0.000462728458344,0.000463090922875,0.000463349453861,0.000463511396654,0.000463579100901,0.000463558287354,0.000463451322829,0.000463259129011,0.000462983589863,0.00046262841326,0.000462195914404,0.000461686277361,0.000461103755879,0.000460452928234,0.000459735747792,0.000458955457328,0.000458114931435,0.000457216894502,0.000456267657698,0.000455272252965,0.000454234258075,0.000453156637403,0.000452046284425,0.000450903866326,0.000449731290308,0.000448531214043,0.000447308328563,0.000446068747859,0.000444818632626,0.000443559032057,0.000442294073134,0.000441030104799,0.000439793956205,0.000438622538411,0.000437555401672,0.000436628682064,0.000435984859218,0.000434989726878,0.000433744620539,0.000432273236882,0.000430604241183,0.000428762444046,0.0004267691679,0.000424608492248,0.000422251046682,0.000419670964398,0.000416844527531,0.000413638313416,0.000410698898613,0.000407931700818,0.000405321659003,0.000402852884873,0.000400506955873,0.000398268004161,0.000396140686806,0.000394130475178,0.000392237108018,0.000390462434331,0.000388811520581,0.000387282246678,0.000385878321684,0.000384601462076,0.000383454152824,0.000382442733073,0.000381571334852,0.000380839615449,0.00038024850951,0.000379800708745,0.000379495113354,0.00037933595134,0.00037932355146,0.000379458471174,0.000379742237068,0.000380174742353,0.000380754189479,0.000381481643373,0.000382359986085,0.00038338966488,0.000384571889188,0.000385907942989,0.000387396953642,0.000389042672933,0.000390844471028,0.000392798571972,0.000394905149659,0.000397160603171,0.000399561087313,0.000402104131716,0.000404787679776,0.00040760991121,0.000410565215595,0.000413648784345,0.000416854995424,0.000420183311411,0.000423630447763,0.000427193173714,0.00043087205011,0.000434663293267,0.000438563070631,0.000442566154779,0.000446670536192,0.000450874028573,0.000455172318135,0.000459562497366,0.000464037501685,0.000468595623395,0.00047322782213,0.000477929050637,0.000482693847169,0.000487516352175,0.000492392937135,0.000497314842935,0.000502277705764,0.000507275111622,0.000512302931525,0.000517355949364,0.000522429905423,0.00052752099549,0.00053262247564,0.000537730115752,0.000542838683556,0.000547944138751,0.000553042467399,0.000558127151454,0.000563194094697,0.000568236447501,0.000573251094297,0.000578231124099,0.000583172823268,0.000588070806731,0.000592919385245,0.000597711729059,0.000602441063109,0.000607102948054,0.000611692205978,0.000616203100636,0.000620628619722,0.000624963047501,0.00062920088786,0.000633335035034,0.000637361452988,0.000641276716324,0.000645078086451,0.00064876185463,0.00065232232271,0.000655757878058,0.000659063942473,0.000662236858437,0.00066527102971,0.000668163770104,0.000670912890002,0.000673515267127,0.000675968652123,0.000678268805295,0.00068041427691,0.000682399981318,0.000684224445773,0.000685887727491,0.000687391222923,0.000688735044538,0.000689918264208,0.000690940042477,0.000691795486066,0.000692484284555,0.000693004788613,0.000693356463242,0.000693540332469,0.000693553740603,0.000693393625078,0.000693058056185,0.000692546263681,0.00069185680309,0.000690991911098,0.000689952713556,0.000688734372817,0.000687339641574,0.00068576633013,0.000684015793388,0.000682088281766,0.000679987742172,0.000677715047643,0.000675270204594,0.000672654383785,0.000669867855393,0.000666916908115,0.000663806055865,0.000660536290357,0.000657110845151,0.000653533806395,0.000649806606484,0.000645928789689,0.000641904963759,0.000637735380938,0.000633425389189,0.000628976136313,0.000624389571418,0.000619668968697,0.000614816367134,0.000609836367153,0.000604730993048,0.000599506722426,0.000594168337503,0.000588720222934,0.000583168087494,0.000577516884141,0.000571769308213,0.000565928454818,0.000560000984313,0.000553992272385,0.000547907262224,0.00054175048259,0.00053552657837,0.000529242088586,0.000522898767112,0.000516502097839,0.000510055896265,0.000503569447663,0.000497047085007,0.000490490321767,0.000483903246706,0.000477290034966,0.000470654480592,0.00046399981187,0.000457332198148,0.000450658958672,0.000443984773237,0.000437313338336,0.00043064830121,0.000423994803366,0.000417361015108,0.000410752093364,0.000404172148536,0.000397628237767,0.00039112611998,0.000384665478072,0.000378252370169,0.000371891340782,0.000365587818219,0.000359346574545,0.000353170974505,0.000347063379535,0.000341030180194,0.000335077473024,0.000329207411,0.000323427589726,0.000317743801838,0.000312159294023,0.000306678162288,0.00030130490442,0.000296044248652,0.000290902216365,0.000285884323689,0.00028099295289,0.000276231516851,0.000271603411022,0.000267107696235,0.000262745806659,0.000258523084987,0.000254443386084,0.000250508720294,0.00024672019883,0.000243078781685,0.000239584061635,0.000236238318388,0.000233044569288,0.000230003895127,0.000227121848185,0.000224397722755,0.000221829649695,0.000219418946651,0.000217167315986,0.000215076170238,0.000213147318503,0.000211379940365,0.000209772148628,0.000208324022094,0.000207036840742,0.000205907144471,0.000204937025377,0.000204124698852,0.00020346708159,0.000202960797645,0.00020260337064,0.000202392096529,0.000202328276288,0.000202411294046,0.000202633279138,0.000202993464324,0.000203489281975,0.000204118208965,0.000204879247804,0.000205769477553,0.000206785052194,0.000207924254855,0.000209181830591,0.000210554508121,0.000212042081965,0.000213641780724,0.000215347094849,0.000217152502904,0.000219054232451,0.000221045440898,0.000223124043381,0.000225286579315,0.000227526146229,0.000229839332244,0.000232219568837,0.000234658268387,0.000237152808054,0.000239699399048,0.000242293140042,0.000244932230172,0.000247613237523,0.00025032714912,0.000253069021436,0.000255833271834,0.000258611906917,0.000261401045564,0.000264196488291,0.000266991377527,0.000269782391685,0.000272563007817,0.000275325374391,0.000278066140785,0.000280782212512,0.000283468240538,0.00028611984699,0.000288734429283,0.00029130637555,0.000293831738414,0.000296304688516,0.000298718417855,0.000301069260572,0.000303351187302,0.000305557855059,0.000307684566885,0.000309728562259,0.000311687840782,0.000313557134827,0.000315330700376,0.000317001733482,0.000318567754182,0.000320022032712,0.000321362368578,0.000322586459298,0.000323690879676,0.000324672149774,0.000325523345403,0.000326240693766,0.000326823558732,0.000327268244118,0.000327574113675,0.000327739769936,0.000327767008296,0.00032765275164,0.000327393029396,0.000326985491469,0.000326430847516,0.000325725953556,0.000324866359409,0.00032385211149,0.000322684863934,0.000321366598112,0.000319892868483,0.000318262017043,0.00031647453332,0.00031453124866,0.000312430833314,0.000310176713093,0.00030777362154,0.000305223512593,0.000302523654596,0.000299672939397,0.000296669039021,0.000293516283693,0.000290214318927,0.000286766305093,0.000283177043406,0.000279447024739,0.000275574475089,0.000271560849297,0.000267407327148,0.000263116762329,0.000258693343198,0.000254137841346,0.000249452991704,0.000244642044881,0.000239703087747,0.000234637186282,0.000229447828903,0.000224136734742,0.000218707155928,0.000213161842944,0.00020750403157,0.000201738027108,0.000195870170483,0.000189902238986,0.00018383666616,0.000177678180849,0.000171428293552,0.00016509197532,0.000158674052502,0.000152178725176,0.00014561328501,0.000138979565935,0.000132279298735,0.000125515776989,0.000118695127924,0.000111821725418,0.000104903960043,9.79475123119e-05,9.09552657115e-05,8.39302970393e-05,7.68755098267e-05,6.97920904034e-05,6.26870635426e-05,5.55660219587e-05,4.84329169374e-05,4.12907352821e-05,3.41449792992e-05,2.69953348708e-05,1.98482126102e-05,1.27093190314e-05,5.58276032411e-06,-1.52298047952e-06,-8.60258701971e-06,-1.56520631952e-05,-2.26679242956e-05,-2.96438317462e-05,-3.65746719723e-05,-4.3452861938e-05,-5.02723738154e-05,-5.7029131647e-05,-6.37195884763e-05,-7.03394043473e-05,-7.68866941266e-05,-8.33585971309e-05,-8.97470705772e-05,-9.60459429233e-05,-0.00010225238418,-0.00010836251919,-0.000114374250755,-0.000120282917994,-0.000126085305836,-0.000131775673422,-0.000137348257139,-0.000142798704026,-0.000148120973263,-0.000153313594744,-0.00015837729273,-0.000163310223135,-0.000168108241238,-0.000172770593611,-0.000177295008396,-0.000181678681702,-0.00018592151207,-0.000190021461078,-0.000193980387547,-0.000197797368137,-0.000201469367686,-0.000204994451633,-0.000208371135026,-0.000211600221361,-0.000214678691012,-0.000217604808583,-0.000220378419805,-0.000222998051249,-0.00022546621821,-0.000227781102692,-0.000229944351081,-0.000231955474922,-0.000233813352881,-0.000235515558738,-0.000237063138633,-0.000238459591418,-0.000239704688669,-0.000240801188084,-0.000241747763512,-0.000242547043476,-0.000243200164077,-0.000243708996081,-0.000244077843588,-0.000244309654721,-0.000244407497238,-0.000244372349838,-0.000244205993409,-0.00024391362203,-0.000243496763383,-0.000242958324541,-0.000242298036328,-0.000241516950608,-0.000240616103477,-0.000239599931247,-0.000238469999742,-0.000237232731154,-0.000235892496701,-0.000234451506569,-0.000232913805582,-0.000231283435482,-0.000229564145665,-0.000227760923428,-0.000225882030862,-0.000223930872647,-0.000221912344135,-0.000219829862654,-0.000217685818747,-0.000215483162763,-0.000213226991676,-0.000210920829595,-0.000208569937905,-0.000206180316024,-0.000203753526258,-0.000201289972035,-0.000198793058464,-0.000196263018559,-0.000193704446169,-0.000191122561274,-0.000188521910333,-0.000185905237939,-0.000183276484194,-0.000180637001227,-0.00017799038822,-0.000175344141552,-0.00017270419567,-0.000170079097911,-0.000167476933538,-0.000164897903421,-0.000162343880997,-0.000159818307463,-0.000157326154799,-0.000154873415574,-0.000152465789203,-0.000150108955015,-0.000147807624537,-0.000145563664692,-0.000143377514792,-0.00014125237579,-0.00013919501637,-0.000137210307067,-0.000135302318665,-0.000133472236585,-0.000131722542463,-0.000130054731809,-0.000128470351376,-0.00012696949599,-0.000125556287875,-0.000124234109969,-0.000123004138931,-0.000121870566209,-0.000120835852904,-0.00011990307159,-0.000119074509936,-0.000118351451826,-0.000117735290271,-0.000117228519175,-0.000116832907056,-0.000116547736948,-0.000116376445689,-0.000116319425321,-0.000116375557694,-0.00011654688129,-0.000116834028866,-0.000117235763849,-0.000117750823286,-0.000118383057439,-0.000119130942669,-0.000119999161458,-0.000120988341848,-0.000122097756772,-0.00012332875595,-0.000124680175073,-0.000126150282202,-0.000127737752744,-0.000129446711886,-0.000131274718641,-0.000133219174519,-0.000135278211703,-0.000137446709289,-0.000139722940826,-0.000142104880838,-0.000144590951502,-0.000147180593911,-0.000149871723886,-0.000152659551955,-0.000155540774813,-0.000158517002174,-0.000161586677229,-0.000164749257134,-0.000168002713607,-0.000171341442123,-0.000174759436414,-0.000178254721426,-0.00018182579184,-0.000185468447731,-0.000189182782973,-0.000192963212257,-0.000196802712125,-0.000200693916573,-0.000204633048811,-0.000208616312443,-0.000212649048807,-0.000216726564502,-0.000220842445874,-0.000224994028174,-0.000229177741615,-0.000233387809236,-0.000237622713873,-0.000241881759672,-0.000246161144953,-0.000250458740055,-0.000254766786049,-0.000259075934519,-0.000263385630985,-0.000267692795618,-0.000271990641207,-0.000276278333795,-0.000280550870962,-0.000284802881661,-0.000289031399147,-0.00029323141948,-0.000297394487679,-0.000301521202223,-0.00030560671476,-0.000309644527478,-0.000313632432746,-0.000317566451243,-0.000321438841577,-0.000325251506165,-0.000328997977433,-0.000332676592595,-0.000336286456393,-0.000339824184168,-0.000343287242452,-0.000346673757002,-0.000349981580733,-0.000353202057241,-0.000356333630444,-0.000359143768003,-0.000361396160129,-0.000363092485899,-0.000364223266973,-0.0003647877611)
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(125, 311, 516)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('L44-Tetrahymena_thermophila-H3K27ac.36mers.MACS-2.0.10_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) : 125,311,516',bty='n')
dev.off()