# R script for Peak Model
#  -- generated by MACS
p <- c(0.0417764790134,0.0487398892936,0.055815952179,0.0627850519847,0.0698417704834,0.0699515783259,0.0700289558729,0.0700079046285,0.0700175768219,0.0700033530081,0.0700613861683,0.0700118872963,0.0699811638586,0.0699749053805,0.0699316649866,0.0699009415488,0.0698503047717,0.0697609792211,0.0697598413159,0.0698087712354,0.0698093401879,0.0698201502864,0.0697473243598,0.0697752030348,0.0698457531513,0.0697985300895,0.0698389257206,0.0698611148701,0.0700488692122,0.0700841442704,0.0700653688362,0.0701359189526,0.0702451578425,0.0701848488721,0.0701302294271,0.0701205572337,0.0701091781827,0.0702184170726,0.0701251088541,0.0701234019965,0.0700835753179,0.0701211261863,0.0700500071173,0.070216710215,0.0701364879052,0.0702468647002,0.0702508473681,0.0702150033573,0.070277588138,0.0702514163206,0.070255967941,0.070310587386,0.0703026220503,0.0702269513609,0.0702923809043,0.0702144344048,0.0701894004925,0.0702730365176,0.0702337787915,0.0702474336528,0.0702565368936,0.0701535564817,0.070249709463,0.0702070380216,0.0702457267951,0.0702673469921,0.0702599506089,0.0702315029813,0.0702218307879,0.0702258134558,0.0703481382544,0.0704750146734,0.0704659114326,0.0704727388632,0.070558081746,0.0706365971981,0.0706587863476,0.0707350259896,0.0707310433217,0.0707964728651,0.0707003198839,0.0707236469385,0.0706821134022,0.0707242158911,0.0707259227487,0.0707976107702,0.0708687298392,0.0709483831964,0.0711133794364,0.0711270342977,0.0711059830533,0.0710849318088,0.0710456740828,0.0710223470282,0.0710320192215,0.0710012957837,0.0709466763388,0.0707998865804,0.0707634736171,0.07073957761,0.0708226446825,0.0707947660075,0.0707685941901,0.0709313146199,0.0708300410657,0.0707896454345,0.0709040048974,0.0709830893021,0.0709341593826,0.0709614691051,0.0708886431785,0.0709574864373,0.07106957009,0.0710092611195,0.0710860697139,0.0710724148527,0.0711992912717,0.0711378443962,0.0712283078519,0.0711992912717,0.0712982890157,0.0713460810301,0.0713915972342,0.0714547509674,0.0714854744052,0.0715292837517,0.0714416650588,0.071516197843,0.0715400938502,0.0714638542083,0.0714513372521,0.0715912995799,0.0716106439666,0.071608937109,0.0716379536891,0.0716635565539,0.0716095060615,0.0717164691412,0.0717517441994,0.0718848790965,0.0719508775925,0.0718046567867,0.0718052257393,0.0717949845934,0.0718160358378,0.0718097773597,0.0718865859542,0.0718609830894,0.0718262769837,0.0719298263481,0.0719389295889,0.0719690840742,0.0720754782013,0.0720982363034,0.0722427502515,0.0723502822838,0.0724748828926,0.0724128670645,0.0723775920063,0.0723474375211,0.0724276598308,0.0725169853815,0.072423677163,0.0725118648085,0.0725334850055,0.0725801391147,0.0724509868855,0.0725989145489,0.0727491180226,0.0728924940656,0.0729493893208,0.0729419929376,0.0731024375572,0.0731980215858,0.0731599017649,0.0732344345492,0.0732691406548,0.0732475204578,0.0733038467605,0.0733237600998,0.0733283117202,0.0734017065994,0.0736139259011,0.0736452182915,0.0737504745135,0.0737533192763,0.0739530216219,0.0740981045226,0.0741567066355,0.0741549997778,0.074366650127,0.0744059078531,0.074333650879,0.0742961000106,0.0743313750688,0.074300651631,0.0743063411565,0.0743211339229,0.0744372002434,0.0745350600823,0.0745669214252,0.0744502861521,0.0745208362685,0.074663643359,0.0746118686768,0.0747427277637,0.0748201053107,0.0749236546751,0.0748417255077,0.0749202409598,0.0749020344782,0.0751347360718,0.0750499621416,0.0751774075132,0.075384506242,0.0755984324014,0.0755677089637,0.075599001354,0.0757065333863,0.0757611528312,0.0758152033236,0.0758891671554,0.0760143367167,0.0759756479432,0.0760422153918,0.0759437866003,0.0761525921868,0.076149747424,0.0762390729747,0.0763062093758,0.0763221400472,0.0763022267079,0.0763983796891,0.0765002221959,0.0764461717035,0.0765372041117,0.0765679275495,0.0766652184359,0.0767727504681,0.0767460096982,0.0768859720259,0.0770998981854,0.0772427052758,0.0772933420529,0.0773758401729,0.0775533533691,0.0776170760549,0.077849208696,0.0778731047031,0.0780904445779,0.0782150451867,0.0782343895735,0.0782890090184,0.0784881424115,0.0786138809254,0.0787242577205,0.0788056179354,0.0787680670669,0.0790531122953,0.079109438598,0.0791327656526,0.079203315769,0.0793444160018,0.0794018802095,0.0796004446501,0.0796453919017,0.079886058831,0.0800499171659,0.0800732442205,0.0801989827345,0.080309928482,0.0806063527615,0.0807514356622,0.0808931048475,0.0809619481063,0.0810450151788,0.0810797212845,0.081200908178,0.0812202525648,0.0814210928155,0.08166289765,0.0816509496464,0.0816634666025,0.0817675849195,0.08196614936,0.0819758215534,0.0820196308999,0.0821106633082,0.0823166241319,0.0825060853316,0.0825481878204,0.0827558555018,0.0829657989934,0.083149001715,0.0832206897365,0.0835927847053,0.0838294689668,0.0839819482507,0.0841492203009,0.0842209083224,0.0845787794774,0.0847932745894,0.0850401999968,0.0853309347508,0.0856939264787,0.086065452495,0.0865098044379,0.0869120538919,0.0872824420031,0.0876602264974,0.0878531014124,0.0880994578673,0.0884277434896,0.0886615829884,0.0888356824692,0.0889574383153,0.0890746425409,0.0892202943941,0.0893460329081,0.0895753207864,0.089763644081,0.090011138441,0.0900970502763,0.0902705808046,0.0903462514939,0.090539126409,0.0907860518164,0.0910187534101,0.0912400759527,0.0913447632222,0.0914136064809,0.0916207052097,0.0918994919601,0.0921014701159,0.0923836705816,0.0925572011098,0.0926175100803,0.0927796615576,0.0927864889882,0.0930055357206,0.0932063759713,0.0933389419159,0.0933878718353,0.0935699366519,0.0937923970996,0.0939272388543,0.0941246653898,0.0942925063925,0.0945792584786,0.0946492396424,0.0949325780132,0.0951664175119,0.0953001213616,0.0955498915318,0.0956050799293,0.0957797483626,0.0959527099384,0.0961398953279,0.0962411688821,0.0963367529108,0.0964306300818,0.0965023181033,0.0968601892583,0.0968801025976,0.0971526308699,0.0974092284707,0.0976038102434,0.0977790476293,0.0979201478621,0.0981721938425,0.0984481358301,0.0986592172268,0.0986387349349,0.0987969037443,0.0990324501007,0.0991217756513,0.0992657206469,0.0993789422047,0.0995058186237,0.0996981245862,0.0997942775674,0.0999126196982,0.10012939062,0.10034331678,0.100422970137,0.100683550406,0.100874149511,0.101091489385,0.101356621274,0.101511945321,0.101717337192,0.101987020702,0.102122431409,0.10227434174,0.102367649959,0.102409183495,0.102512163907,0.102579869261,0.102845570102,0.102997480433,0.103149959717,0.103306421669,0.103495882869,0.103656896441,0.103877081078,0.104112627435,0.104316312448,0.104476757068,0.104673614651,0.10488981662,0.104956384069,0.105015555134,0.10519306833,0.105378546862,0.10565676466,0.105691470766,0.105854760148,0.106108512986,0.106278629799,0.106404937266,0.106784428618,0.107063215368,0.107327778304,0.107540566559,0.107684511554,0.107953626111,0.108126587687,0.108349048135,0.108553871053,0.108674488994,0.108705781385,0.108802503318,0.108923690212,0.109049428726,0.109174029335,0.109434040651,0.109580830409,0.109666173292,0.10975037827,0.109927891466,0.110167989442,0.110435397142,0.1105821869,0.110699960078,0.110820009067,0.110889421278,0.111115864394,0.111307032451,0.111572733293,0.111823072415,0.111881105576,0.11192434597,0.111988068655,0.112188908906,0.112386335442,0.112463144036,0.112536538915,0.11264236409,0.112628140276,0.112801101852,0.11308842289,0.113384278217,0.113640306865,0.113768890142,0.113860491503,0.114072141852,0.114249655048,0.114386203661,0.114552337806,0.114591595532,0.1147406611,0.114780487779,0.114948897734,0.115269786974,0.115359112524,0.115484282086,0.11558327983,0.115775016839,0.115921237645,0.116118095228,0.116126060564,0.116238144217,0.116309832238,0.116164749337,0.116367296446,0.116449794566,0.116688754637,0.116836113348,0.117000540636,0.117114331146,0.117254862426,0.117326550448,0.117396531612,0.117596233957,0.117640612256,0.117889244522,0.117839176697,0.117888106616,0.117806746402,0.117828366599,0.117935329678,0.117963208353,0.118107153349,0.118172582892,0.118272718541,0.118235736626,0.118384802194,0.118449662785,0.118566298058,0.118622055408,0.118597021496,0.118712518864,0.118709105149,0.118674399043,0.118595314638,0.118608400547,0.118517937091,0.118457628121,0.11829035607,0.118123652973,0.118132187261,0.117993362838,0.117858521084,0.117962070448,0.117996776554,0.11779081573,0.117641750162,0.117527390699,0.117488701925,0.117370359794,0.117337929499,0.117190570788,0.117108072668,0.116729150269,0.116464587332,0.116474259525,0.116335435103,0.116139146473,0.116077699597,0.116017390626,0.115796637036,0.115489402658,0.115356267761,0.115076912059,0.115058705577,0.114831124556,0.114780487779,0.114705386042,0.114616060492,0.114422047671,0.114115382246,0.11413188187,0.113915110948,0.113929903714,0.113586825326,0.113261953419,0.113098664036,0.112896116928,0.112672518575,0.112553038539,0.112489315853,0.112304406274,0.112161030231,0.11196018998,0.111862899094,0.111836727277,0.111611422066,0.111410012863,0.111231361762,0.111144312021,0.110855284125,0.110731821421,0.110523015835,0.110374519219,0.1101361281,0.109933012039,0.109852789729,0.109789635996,0.10969917254,0.109453385038,0.109424368457,0.109245717356,0.109261648028,0.109229786685,0.109205890678,0.109013584715,0.108870208672,0.108649455082,0.108355306613,0.108156742172,0.107946229728,0.107804560543,0.107675977266,0.107474568063,0.107288520578,0.107184971214,0.106988113631,0.106776463282,0.106659828009,0.106498245484,0.106056738304,0.105608403693,0.104961504642,0.104477894973,0.103965268724,0.103357058446,0.102757382457,0.102372201579,0.101848196279,0.101345811176,0.101133022922,0.100921372572,0.100702894792,0.100503761399,0.100293817908,0.100241474273,0.100014462205,0.0998244320526,0.099492732715,0.0992600311214,0.0990995865018,0.0988020243172,0.0986017530191,0.0982763121595,0.0980834372445,0.0979008034754,0.0978279775487,0.0975685351852,0.0976299820608,0.0975668283275,0.0972954379604,0.0971776647822,0.0971293038153,0.0970445298851,0.0968766888823,0.0967862254266,0.0965694545044,0.0964795600012,0.096284409276,0.0960363459635,0.0958616775301,0.0957109051039,0.095497547897,0.0954218772076,0.0953962743428,0.095118056545,0.0950099555602,0.0947311688099,0.0945764137158,0.094644688022,0.0945650346648,0.0944142622386,0.0942885237246,0.0940541152733,0.0938060519608,0.0936347972427,0.0936063496152,0.0933804754521,0.0932627022739,0.0929748122828,0.0927825063203,0.0926556299013,0.0923677399101,0.0921942093819,0.0921219524078,0.0920787120139,0.0918169938401,0.0917965115482,0.0915160179402,0.091325987788,0.0913339531237,0.0911746464092,0.0911382334459,0.091089872479,0.090776379623,0.0905169372595,0.0901886516371,0.0900765679844,0.0898683313505,0.0897562476978,0.0894126003566,0.0892948271784,0.0891047970261,0.0888163380824,0.088690030616,0.0885728263903,0.0885466545729,0.0883532107054,0.0882934706874,0.0881216470168,0.0879520991564,0.0877148459424,0.0875925211437,0.0874497140533,0.0872841488607,0.0870326718329,0.086857434447,0.086687317634,0.0865593033099,0.0864187720296,0.0862685685559,0.0860677283052,0.0858008895585,0.0855898081618,0.085448707929,0.0853377621814,0.0850868541061,0.0848962550013,0.0848274117425,0.0846538812142,0.0846112097729,0.0844302828614,0.0843307161649,0.0842425285194,0.0840598947503,0.0838943295577,0.0838323137296,0.08375436723,0.0834943559139,0.0832986362361,0.0830875548394,0.0830317974894,0.0827057876772,0.0825567221087,0.0824793445617,0.082423018259,0.0823410890916,0.082037268429,0.0819388396375,0.0818631689482,0.0816304673545,0.0815121252238,0.0816065713474,0.081525780085,0.0813323362174,0.0812014771305,0.0810177054563,0.0810461530839,0.0808373474975,0.0807138847937,0.0806365072467,0.0805107687328,0.0802177581687,0.0800635720272,0.0799696948561,0.0797859231819,0.0796749774343,0.0795236360556,0.079424069359,0.0791993331011,0.0791339035577,0.0789307874967,0.0789091672998,0.0788107385083,0.0786929653301,0.0786252599765,0.0784744875503,0.0784107648645,0.0783043707373,0.0781655463147,0.0781160474427,0.0781149095376,0.0780170496987,0.0778731047031,0.0778150715429,0.0777365560907,0.0775789562339,0.07745321772,0.0772944799581,0.0773798228408,0.0772068612651,0.07704072712,0.0769536773796,0.0768137150519,0.076649856717,0.0764990842908,0.0763887074958,0.0762282628762,0.0762055047741,0.076199246296,0.0760917142638,0.0760302673882,0.0759204595457,0.0759369591697,0.0758396682834,0.0758180480864,0.0758254444696,0.0758447888563,0.0756638619449,0.0755199169493,0.0753754030012,0.0752593366806,0.0752013035204,0.0750027390798,0.0750095665104,0.0749811188829,0.0748661904674,0.0747285039499,0.0747051768953,0.0745322153196,0.0744793027323,0.074426390145,0.0743199960178,0.0743182891601,0.0741720683543,0.0739535905745,0.0739308324724,0.0737567329916,0.073689027638,0.0735866161787,0.0735484963577,0.0734176372708,0.0732981572349,0.0732082627318,0.0732031421588,0.0731581949072,0.0730825242178,0.0730865068857,0.073050662875,0.0729892159994,0.0729937676198,0.0730432664918,0.0730694383092,0.0730216462948,0.0729897849519,0.0729226485508,0.0728845287299,0.0729089936896,0.0729573546565,0.072968164755,0.0728811150145,0.0727917894639,0.0727934963216,0.0728054443252,0.0727553765006,0.0727468422123,0.0727769966976,0.0725983455964,0.0724481421227,0.0724293666885,0.07233605847,0.0721744759453,0.0721659416571,0.0721073395442,0.0719281194905,0.0718598451843,0.0716743666524,0.0717551579147,0.0717460546739,0.0716447811197,0.0716846077983,0.071768812776,0.0717033832325,0.0715617140472,0.0716288504483,0.071631695211,0.0716601428386,0.0715736620508,0.0714945776461,0.0713750976102,0.071295444253,0.0712135150855,0.0711179310568,0.0710690011374,0.0710371397945,0.0709279009046,0.0708624713611,0.0708106966789,0.0707310433217,0.0707464050406,0.0708044382009,0.0708596265984,0.0708584886933,0.0708636092662,0.0708277652555,0.0708920568938,0.0709017290872,0.0709694344409,0.0711042761956,0.0710889144767,0.070932452525,0.0708289031606,0.0708493854524,0.070932452525,0.0708789709851,0.0708562128831,0.070816955157,0.07071283684,0.0706149770011,0.0705432889796,0.0705523922205,0.0705262204031,0.0704624977173,0.0703037599554,0.0703077426232,0.0702474336528,0.0702218307879,0.070183710967,0.0700192836795,0.0700130252015,0.0699988013877,0.0700391970188,0.0699481646106,0.0700551276903,0.070096092274,0.0701120229454,0.0701416084781,0.0701450221934,0.0703305007253,0.0703862580754,0.0703703274039,0.070288967189,0.0703737411192,0.0702832776635,0.0701990726859,0.0701848488721,0.0701023507521,0.0701717629634,0.0701023507521,0.0700574035005,0.0700067667234,0.0699214238406,0.0698440462936,0.06974960017,0.0697587034108,0.0696841706266,0.0696119136525,0.0695260018172,0.0694452105549,0.0693729535808,0.0694435036972,0.0695413635361,0.0695720869739,0.0696136205102,0.0696215858459,0.0695658284958,0.0695954140285,0.0696198789882,0.0696437749954,0.0696841706266,0.0697649618889,0.0696995323455,0.0696329648969,0.0696272753714,0.0695698111637,0.0695925692657,0.0696449129005,0.0695345361055,0.0695396566784,0.0695544494448,0.0693996943507,0.0694918646641,0.0694651238942,0.0693928669201,0.0693251615665,0.0693149204205,0.0693046792746,0.0693615745298,0.0693291442343,0.0692631457383,0.0693251615665,0.0692119400087,0.0692728179317,0.0693570229093,0.0694992610473,0.0694759339927,0.0693729535808,0.0693354027124,0.0693684019604,0.0693439370007,0.0693570229093,0.0694400899819,0.0694725202773,0.0694270040732,0.0692449392567,0.0692739558368,0.0693684019604,0.0692995587016,0.0691999920051,0.0692563183077,0.0691539068484,0.0691123733121,0.0690594607248,0.0691237523632,0.0692494908771,0.06928135222,0.0692443703041,0.0693223168037,0.069380349964,0.0694645549416,0.069523726007,0.0694952783794,0.0694275730258,0.0693695398655,0.0692972828914,0.0692125089612,0.0692034057204,0.0691465104652,0.0691857681913,0.0690497885314,0.0689075503935,0.0689786694625,0.0690150824258,0.0690480816738,0.0691618721841,0.0691760959979,0.0693251615665,0.0693137825154,0.0693177651833,0.0692460771618,0.0692654215485,0.0691846302862,0.0691300108412,0.0690970115932,0.0691169249325,0.0692278706801,0.0691254592208,0.0691834923811,0.0691317176989,0.0692403876362,0.0692790764098,0.0692830590776,0.069276231647,0.069165854852,0.069099856356,0.0689997207069,0.0689365669736,0.0689212052547,0.0688893439119,0.0689485149772,0.0689542045027,0.0689308774481,0.0689672904114,0.0690475127212,0.0690304441447,0.0690913220677,0.0690867704473,0.0691698375198,0.0691806476183,0.0690588917723,0.0690856325422,0.0691812165709,0.0691459415127,0.0692910244134,0.0692750937419,0.0691988541,0.0691789407607,0.0690247546192,0.0688847922914,0.0690162203309,0.0689559113604,0.068890481817,0.068885361244,0.0687681570183,0.0688261901786,0.068824483321,0.0688057078868,0.068880240671,0.0689854968931,0.0687692949234,0.0687818118796,0.0688176558903,0.0688620341894,0.0689547734553,0.0689212052547,0.0689667214589,0.0690429611008,0.0690901841626,0.0691186317902,0.0693154893731,0.0694008322558,0.0694014012084,0.0694144871171,0.0693541781466,0.0694406589344,0.0693951427303,0.0693120756578,0.0692494908771,0.0693359716649,0.0692386807786,0.0691186317902,0.0690856325422,0.0691527689433,0.0692034057204,0.0691294418887,0.0691709754249,0.0692477840194,0.0692887486031,0.0691157870274,0.0691590274214,0.0691977161949,0.0692511977347,0.0691630100892,0.0691243213157,0.0691072527392,0.0690344268125,0.0690099618528,0.0690543401518,0.0691561826586,0.0691675617096,0.069182354476,0.0690554780569,0.0690634433927,0.0691174938851,0.0690640123452,0.069122614458,0.0691561826586,0.0691123733121,0.0691704064724,0.0692494908771,0.0690577538672,0.0691334245565,0.069061736535,0.0689200673496,0.0689416875466,0.0689473770721,0.0689035677256,0.0689126709665,0.0687277613872,0.0686134019243,0.0687994494087,0.068791484073,0.068840982945,0.0688170869378,0.0687562090148,0.0687027274749,0.068741985201,0.0686515217452,0.0687050032851,0.0686515217452,0.0687061411902,0.0687505194892,0.068764743303,0.0687613295877,0.0688119663648,0.0688711374302,0.0688677237149,0.0689274637328,0.0689781005099,0.0691135112172,0.0690401163381,0.0690406852906,0.06903385786,0.0690583228197,0.0690219098564,0.0690071170901,0.0689661525063,0.0690247546192,0.0690207719513,0.0689223431599,0.068906981441,0.0688205006531,0.0687727086388,0.0687345888178,0.0686879347086,0.068665745559,0.0686287636432,0.0685041630344,0.0685070077971,0.0685280590415,0.0685724373406,0.0686526596503,0.0687055722377,0.0687135375734,0.0687772602592,0.0686919173764,0.0687209339566,0.0688569136164,0.0687539332045,0.0687328819601,0.0687021585223,0.0686464011723,0.0685786958186,0.0686253499279,0.0685508171436,0.0686646076539,0.0686856588983,0.0686139708768,0.0687351577703,0.0687209339566,0.0686668834641,0.0687215029091,0.0688040010291,0.068847241423,0.0689371359262,0.0689058435359,0.0687903461679,0.0687078480479,0.0686139708768,0.0686190914498,0.0686782625152,0.0686025918258,0.0684933529359,0.0683613559439,0.0682202557111,0.068093379292,0.0680808623359,0.0680962240548,0.0681115857737,0.0680950861497,0.0680797244308,0.0680148638399,0.0678737636071,0.067845884932,0.0679932436429,0.0680774486206,0.0613063443029,0.0544715172993,0.0476452245841,0.0407904842413,0.0)
m <- c(0.0407975046777,0.0476264079421,0.0544774424369,0.0613057782339,0.0681517055217,0.068272576088,0.0682935723836,0.0682101546688,0.0681465983147,0.0682731435555,0.0684819715762,0.0684581379434,0.0684076333406,0.0684422488549,0.0685165870905,0.0684711896947,0.068446221127,0.0684762969017,0.0685529050072,0.0685029678718,0.0683798274356,0.0684870787832,0.0685426905931,0.0686153264264,0.0686113541543,0.0685914927936,0.0686488070058,0.0686856923899,0.0687055537506,0.0686862598573,0.0687861341281,0.0687753522466,0.0687435740696,0.0687186055019,0.0687038513482,0.0687430066021,0.0687208753717,0.068749248744,0.0687611655604,0.0688082653586,0.0688179123052,0.068803725619,0.0689790730603,0.0688723891802,0.0688570675591,0.0688116701633,0.0688814686593,0.0690573835681,0.0690982412243,0.0691901709508,0.0691742818623,0.0692196792581,0.069182793874,0.0693587087828,0.0693587087828,0.0694472337046,0.0695000081772,0.0694682300001,0.0694007013739,0.0692883428193,0.0692730211982,0.0693388474221,0.0693921893622,0.0693938917645,0.0694687974676,0.0694943335027,0.0693728954689,0.06938821709,0.0694744721421,0.0695028455144,0.0695703741407,0.069485821491,0.0694012688413,0.0692741561331,0.0692707513284,0.0692684814586,0.06938821709,0.0693570063804,0.0692718862633,0.0693910544273,0.0693950266994,0.0694222651369,0.0693541690432,0.0694251024741,0.0693513317059,0.0693518991734,0.0692446478258,0.0691952781578,0.0692281912698,0.0691311543363,0.0691436386201,0.069171444525,0.0692645091865,0.0692928825588,0.0693893520249,0.0695244092775,0.0696384702344,0.0696844350977,0.0697094036654,0.0697576383984,0.0697973611197,0.0697967936523,0.0697400469075,0.0697684202799,0.0697610432031,0.0697349397005,0.0696464147787,0.0697706901497,0.0699051799348,0.0699119895442,0.0698541078645,0.069902910065,0.0700351299803,0.0700969839321,0.0700583961456,0.0699749784308,0.0699681688215,0.0698870209765,0.0697434517122,0.0698694294856,0.0699545496027,0.0699613592121,0.06984843319,0.0697967936523,0.0699449026561,0.069989165117,0.0700504516014,0.0700879044529,0.0700856345831,0.070038534785,0.0699920024543,0.0700629358852,0.0701525957419,0.0702416881312,0.0701242223696,0.0702076400844,0.0701707547003,0.0701798341794,0.0701911835284,0.0701474885349,0.0701242223696,0.0699176642186,0.0698665921484,0.0698365163736,0.069929581035,0.0699170967512,0.0698909932486,0.0698620524088,0.0699607917447,0.0699534146678,0.0700243480988,0.070157702949,0.0701616752211,0.0701622426886,0.070157702949,0.0701372741209,0.0702473628057,0.0702416881312,0.070114575423,0.070184373919,0.0700646382876,0.0700425070571,0.0700714478969,0.0700215107615,0.0700339950454,0.0699267436978,0.0699074498046,0.0699312834374,0.0700022168683,0.0699704386913,0.0701089007485,0.0701174127602,0.0701219524998,0.0701707547003,0.0700896068553,0.0702070726169,0.0702309062497,0.0702853831247,0.0702365809242,0.070217287031,0.0702127472914,0.07025530735,0.0702473628057,0.0702717639059,0.0703602888278,0.0703563165556,0.0703375901299,0.0703483720114,0.07044427401,0.0706531020307,0.0705606048368,0.0705872758068,0.0706599116401,0.0705957878185,0.0705600373693,0.0705044255595,0.0704414366728,0.0703443997392,0.0703069468877,0.0701242223696,0.0701923184633,0.0700623684178,0.0700118638149,0.070054991341,0.070081662311,0.0701804016469,0.0701855088539,0.0702933276689,0.0703608562952,0.0702598470895,0.070330213053,0.070346669609,0.0703835549931,0.0703330503903,0.070374475514,0.0703977416793,0.0704261150517,0.0703551816207,0.0703205661064,0.0704266825191,0.0702893553968,0.0703585864254,0.0703863923304,0.0704255475842,0.0703557490882,0.0703404274671,0.0704578932288,0.0704902388733,0.0706020299604,0.070558334967,0.0706587767052,0.0706065697,0.0706309708003,0.0706287009305,0.0706633164448,0.0705293941272,0.0704959135477,0.0705220170503,0.0703926344723,0.070493643678,0.0705078303641,0.070487401536,0.0703943368746,0.0703926344723,0.0703041095505,0.0703688008395,0.0702910577992,0.0702592796221,0.0702042352797,0.0701049284763,0.0700595310805,0.0701418138604,0.0702581446872,0.0701707547003,0.0701401114581,0.070103226074,0.0700998212693,0.0700884719204,0.0701560005466,0.0702399857289,0.0701236549021,0.0701378415883,0.0699414978514,0.0700481817316,0.0700731502993,0.0700862020506,0.0700742852342,0.0699976771288,0.0699937048566,0.0698881559114,0.069951144798,0.0700078915428,0.0701866437888,0.070157702949,0.0701650800258,0.0702218267706,0.0703046770179,0.0704232777144,0.0704981834175,0.0706525345633,0.0707433293549,0.0707376546804,0.0706304033328,0.0706184865164,0.0707143885151,0.0707626232481,0.0707892942182,0.0708000760997,0.0708318542767,0.0707478690945,0.0707700003249,0.0707989411648,0.0709470501686,0.0709249189381,0.0709073274473,0.0709703163339,0.0708290169395,0.0707796472715,0.0706792055333,0.0706752332612,0.0706809079357,0.0706269985281,0.0706428876167,0.0707359522781,0.070818235058,0.070763758183,0.0708959780983,0.070915839459,0.0709765584759,0.0710446545696,0.0711031037167,0.0711343144263,0.0710327377532,0.0710594087232,0.0710662183326,0.071137719231,0.0711921961059,0.071381162766,0.0714537985993,0.0715321091071,0.0714702551553,0.0715667246214,0.0717102938856,0.0717698779676,0.0717477467371,0.0716580868804,0.0716983770692,0.0716285785731,0.0716132569521,0.0716768133062,0.0718067633517,0.0717159685601,0.071646170064,0.071614391887,0.0717029168088,0.0717897393283,0.0716507098036,0.0716773807736,0.0716683012945,0.0715809113076,0.0715298392373,0.0716172292242,0.0717755526421,0.0717738502397,0.0717267504416,0.0718158428309,0.0720167263073,0.0719991348164,0.0720939018802,0.0721744822577,0.0721018464244,0.0721200053828,0.0721148981757,0.0722630071796,0.0723997668344,0.0724224655323,0.0723872825506,0.0724905616261,0.0725700070687,0.0726778258838,0.072821395148,0.0729320513003,0.0728247999527,0.07285430826,0.0728435263785,0.0728577130646,0.0729172971466,0.0729331862352,0.0729899329799,0.0731261251674,0.0732163524915,0.0731919513913,0.0733343857206,0.073324738774,0.0733332507857,0.0733355206555,0.0733871601933,0.0734405021333,0.0734739827127,0.0733440326672,0.0734325575891,0.0734660381685,0.0734989512804,0.073672028852,0.073746934555,0.0738496461631,0.0738961784938,0.0739364686825,0.0739659769898,0.0741021691772,0.0740522320418,0.0741430268335,0.074251413116,0.0742502781811,0.0743268862865,0.0742712744766,0.0744080341315,0.0743853354336,0.0745124481418,0.0744976939882,0.0746049453358,0.0747428399256,0.0748313648474,0.074943723402,0.0751105588316,0.075279664131,0.0752507232912,0.0754436622234,0.0754822500098,0.075550913571,0.0756666769303,0.0757149116633,0.0756859708235,0.0756865382909,0.0756910780305,0.0758647230695,0.076026451292,0.0760258838246,0.0760627692087,0.076162076012,0.0761893144495,0.0762891887203,0.0764299206473,0.0764543217475,0.0765445490717,0.0765961886094,0.0766154825026,0.0768203382512,0.0768106913046,0.0770705913956,0.0771591163174,0.0771942992992,0.0772788519489,0.0774065321246,0.0774547668576,0.0774275284202,0.0776340865711,0.0775966337195,0.0777209090906,0.0776176300151,0.0777175042859,0.0777946798588,0.077992725998,0.0782043913559,0.0783263968572,0.078560760913,0.078577217469,0.0787565371824,0.0789341544935,0.0790788586927,0.0791775980286,0.0793132227485,0.0793183299556,0.0793257070324,0.0794471450662,0.0794159343565,0.0795464518695,0.079665052566,0.0796911560686,0.079774006316,0.0799300598641,0.0799391393432,0.0801139193171,0.0801927972923,0.0803062907818,0.0805905919731,0.0807273516279,0.0808368728453,0.0810065456122,0.0811421703321,0.0812613384961,0.0814406582096,0.0815496119595,0.0817459556964,0.0819065489841,0.0820194750061,0.0821250239514,0.0822952641857,0.0825205487624,0.0828110920955,0.0829631733715,0.0831850531435,0.0833342970822,0.0834432508322,0.0835209938725,0.0836208681433,0.0838592044712,0.0840095833449,0.0841701766325,0.0841627995557,0.0842978568082,0.0844124852327,0.0846014518927,0.0848244665996,0.0850951485721,0.0852148842036,0.0852307732921,0.0852506346528,0.0853902316449,0.0856467269312,0.0857426289298,0.0859696159089,0.0859747231159,0.0860865142031,0.0861018358242,0.0861818487343,0.0863640057849,0.0865450279007,0.0866346877574,0.0867476137795,0.086942255114,0.0869479297885,0.0872095322819,0.0873826098534,0.0875148297687,0.087744654085,0.0879114895145,0.0880278203413,0.0882173544688,0.0883053119232,0.0884426390455,0.0886707609594,0.0887836869815,0.0889590344228,0.0892433356141,0.0893869048783,0.0895753040709,0.089807398257,0.0899753686215,0.090239808452,0.0904123185561,0.0905382963295,0.0907630134387,0.0909321187381,0.091035965281,0.0912175548643,0.0913475049098,0.0916420205151,0.0918236100983,0.0919700166998,0.0921277726502,0.0922565877608,0.0923780257946,0.0925709647268,0.0928030589128,0.0930255061523,0.0931946114517,0.0931475116535,0.0932802990363,0.0934113840167,0.0935878663929,0.0937581066272,0.0938063413602,0.0937234911129,0.0937983968159,0.0939152951101,0.0940480824929,0.0943562173169,0.0944844649601,0.0946166848754,0.0947857901748,0.0950110747515,0.0951989064766,0.0955257677264,0.0957005477003,0.095773751001,0.0960075475894,0.0961380651024,0.0962277249591,0.0964269060332,0.0965795547766,0.0967446878039,0.0969211701801,0.0970789261305,0.0971901497502,0.0974125969897,0.0975607059935,0.0976492309153,0.0979295598345,0.0980362437146,0.0982524488121,0.0984714912469,0.0986598904395,0.0987728164616,0.0989146833235,0.0990690344692,0.0992392747035,0.0994571822034,0.0995820250419,0.0997755314415,0.0998368179258,0.0999452042083,0.100035999,0.100283982275,0.100513806591,0.100691991369,0.100779948824,0.100968915484,0.101214628889,0.101433103856,0.101727051994,0.102060155386,0.102456247664,0.102902277078,0.103436263946,0.103999191654,0.104625675716,0.105062625651,0.105468932343,0.105854810208,0.10631445884,0.106589113085,0.107001094452,0.107191763514,0.107281990838,0.107405131274,0.107445421463,0.107546430669,0.107778524855,0.107983948071,0.108196748364,0.10840444145,0.108574681684,0.108760243539,0.108983825714,0.109162010492,0.1094582285,0.109605202569,0.109774875336,0.109900853109,0.109866805062,0.110103438988,0.110292973115,0.110331560902,0.11048988432,0.11070552195,0.110804261286,0.111055649365,0.111099911826,0.111301930237,0.111493166767,0.111646950445,0.111725260953,0.112103194273,0.112175830106,0.112178667444,0.112297835608,0.112470345712,0.112750107163,0.112955530379,0.113174572814,0.113184787228,0.113256855594,0.11327104228,0.113403262196,0.11360244327,0.113757361883,0.113804461681,0.113822620639,0.113886744461,0.114061524435,0.114180125131,0.114535359754,0.114588701694,0.114910455736,0.114924642423,0.115063671947,0.115425716179,0.115703207761,0.115740093145,0.115955163307,0.116243436771,0.116165126263,0.11641481194,0.116514118743,0.116753590006,0.116958445755,0.116916453164,0.116947663873,0.117130955859,0.117145710012,0.117305735833,0.117587767154,0.117719419602,0.117646216301,0.117802837317,0.117837452831,0.11804003871,0.118109837206,0.118283482245,0.118382221581,0.118254541405,0.118227302968,0.118168286353,0.118399245604,0.118501389745,0.11861147843,0.118504227082,0.118508199354,0.118520116171,0.118408325083,0.118504794549,0.118423079237,0.118441238195,0.11828234731,0.117980454628,0.117753467649,0.11781759147,0.117760844726,0.11768196675,0.11766437526,0.117644513899,0.117545774563,0.117343188684,0.117189405006,0.117277929928,0.117254663762,0.117069669375,0.11692836998,0.116634421842,0.116345580911,0.116160019056,0.116089085625,0.116084545885,0.116037446087,0.115737255808,0.115517078438,0.115298603471,0.115152196869,0.115073318894,0.11508523571,0.114848034317,0.114703897585,0.114470668465,0.114291348751,0.11424481642,0.114109759168,0.113896391408,0.113734663185,0.113654650275,0.113589958986,0.113527537567,0.113427095828,0.113287498836,0.11324210144,0.113092290034,0.113072996141,0.113097964709,0.11313541756,0.112945883433,0.112739892749,0.112612212574,0.112336423394,0.112244493668,0.112005589872,0.111949978062,0.111786547437,0.111616307203,0.111227024534,0.111164035647,0.111067566181,0.1108632779,0.110790074599,0.110581814046,0.110391712451,0.110143729177,0.109978028682,0.109726640603,0.109713021384,0.109472982654,0.109294230408,0.109157470753,0.108962829418,0.108862955147,0.108754568865,0.108489561567,0.108238173488,0.108109358377,0.1079084749,0.107725182915,0.107466417759,0.107147501053,0.107126504758,0.106932430891,0.106740626893,0.106741761828,0.10656130718,0.106338292473,0.106119250038,0.106025050442,0.105849703001,0.105767420221,0.105373597812,0.105184631152,0.105055248574,0.104786836471,0.104602977018,0.104517289434,0.104336267318,0.104127439297,0.104006568731,0.103848245313,0.103759152924,0.103548055033,0.103322770456,0.103207574565,0.102974912911,0.102600384396,0.102383611831,0.102106120249,0.101916018654,0.101694138882,0.101526735985,0.101340606662,0.101136885848,0.100844072645,0.100653403583,0.100630137418,0.100449682769,0.100335621812,0.100127928726,0.0998873225287,0.099683601715,0.099618910426,0.0994645592802,0.0993539031279,0.0992858070342,0.099099110244,0.0990525779133,0.0988647461881,0.0986661325814,0.0985271030568,0.0983307593199,0.0982507464098,0.098188892458,0.0979352345089,0.0977201643463,0.097544816905,0.0973745766707,0.097213983383,0.0970511202256,0.0969393291384,0.0967781683833,0.096391155584,0.0961165013394,0.0960620244644,0.0958758951416,0.0958509265739,0.0956057806365,0.0955019340936,0.0953192095755,0.0951234333061,0.0950405830587,0.0949043908713,0.0947562818675,0.0946127126032,0.0944753854809,0.0942790417441,0.0941939216269,0.0940753209304,0.0940367331439,0.0940662414512,0.0938540086258,0.0937649162365,0.0937132766988,0.0935140956247,0.093424435768,0.0932593027407,0.0930561493945,0.092817245599,0.0925584804429,0.0922418336072,0.0920676211008,0.0918979483339,0.0915410113094,0.0912782738811,0.0909724089269,0.0906727861146,0.0904191281655,0.0901978158609,0.0900843223714,0.0899430229769,0.0897086589211,0.0895543077753,0.0894788346048,0.0895117477168,0.0892580897677,0.0891724021831,0.0891043060894,0.0890316702561,0.0888506481403,0.0886066371379,0.0884920087134,0.0883444671771,0.0881957907058,0.087955184508,0.0879597242476,0.087781539469,0.087544338076,0.0872100997493,0.0869490647234,0.0866414973668,0.0863974863644,0.0860785696588,0.085594519926,0.0851592723937,0.0847535331687,0.0842779954476,0.083877930897,0.0835714984753,0.083260526314,0.0831180919847,0.0828519497518,0.0826618481568,0.0825988592701,0.0824042179356,0.0822566763992,0.0822248982222,0.0822039019266,0.0821085673954,0.081982589622,0.0817930554945,0.0816653753188,0.0814503051562,0.0812698505079,0.0812721203776,0.0811915400001,0.0811086897527,0.0809180206903,0.0808039597334,0.0807267841605,0.0806098858663,0.0805151188025,0.0803709820709,0.080320477468,0.0801042723705,0.0799016864917,0.0796372466611,0.0794948123318,0.0794352282498,0.0791985943241,0.0790629696041,0.0789142931329,0.0786804965445,0.0785238755289,0.0783678219808,0.0783530678272,0.078295753615,0.0781953118768,0.0779609478209,0.0779042010761,0.0777487149955,0.0775597483355,0.0776528129969,0.0773821310244,0.0774110718642,0.0772374268252,0.0770808058097,0.0769514232316,0.0768697079192,0.0767783456601,0.0767193290456,0.0767170591758,0.0764906396642,0.0765638429649,0.0763646618908,0.0762313070406,0.0761773976331,0.0761847747099,0.0761666157516,0.0760372331735,0.0759850261684,0.0759651648077,0.0759634624054,0.0758357822296,0.0757177490005,0.0756666769303,0.0754856548145,0.0753437879526,0.0752711521193,0.0753137121779,0.0752944182846,0.0751463092808,0.0751491466181,0.0751661706415,0.0751877344045,0.0751213407131,0.0753256289943,0.0752490208888,0.0751026142873,0.0751020468199,0.0750129544306,0.0749403185973,0.074743407393,0.0746021079986,0.0744857771718,0.0745396865793,0.0742474408438,0.0741350822892,0.074137352159,0.0739608697828,0.0737282081293,0.0737378550759,0.0737338828037,0.0736192543793,0.0735233523807,0.0733934023352,0.0734546888195,0.0734671731034,0.0733548145487,0.0732912581946,0.0733684337675,0.0732396186569,0.0731947887285,0.0731817369772,0.0731715225632,0.0731062638067,0.0729865281753,0.0729774486961,0.0730007148614,0.0729695041518,0.0729519126609,0.0729377259748,0.0729507777261,0.0729087851349,0.0728650901415,0.0727811049592,0.0727101715283,0.0724695653305,0.0723072696405,0.0723532345037,0.072242010884,0.0720865248034,0.0719055026876,0.071808465754,0.0717738502397,0.0717846321212,0.071846486073,0.071949197681,0.0719020978829,0.0717483142046,0.071641062857,0.0716961071994,0.0716456025966,0.0716864602528,0.0716013401357,0.0715610499469,0.0714764972972,0.0714169132152,0.071407833736,0.0713334955004,0.0713686784821,0.0713959169196,0.0713800278311,0.0713681110147,0.0713221461514,0.0711524733846,0.071050329244,0.0710179835995,0.0710435196347,0.0710679207349,0.0710077691855,0.0708937082285,0.070828449472,0.0707234679942,0.0706933922195,0.0706627489773,0.0707007692963,0.0705918155464,0.0705509578902,0.0704499486845,0.0704703775126,0.0704970484826,0.0704845641988,0.0704669727079,0.0704732148498,0.0705129375712,0.0705271242574,0.0705804661974,0.0705384736063,0.0704834292639,0.0704964810152,0.0704720799149,0.0704385993355,0.0704448414775,0.0704295198564,0.0704085235608,0.0703296455856,0.0702672241664,0.0702751687106,0.0702797084502,0.0702524700127,0.0701281946417,0.0702167195635,0.0702218267706,0.0702859505921,0.0703455346741,0.0702581446872,0.070211044889,0.0701089007485,0.0701270597068,0.0700776900389,0.0701151428904,0.0699392279816,0.069902910065,0.0697774997591,0.0698177899479,0.0699074498046,0.0699834904426,0.0700124312824,0.0700339950454,0.0699619266796,0.0698507030598,0.0700266179686,0.0700635033527,0.0700697454946,0.0699914349868,0.0698836161718,0.0697752298893,0.069729265026,0.0696980543164,0.069719050612,0.0698041707291,0.069654359323,0.0695856957618,0.0694880913608,0.0694926311004,0.0695431357032,0.069643009974,0.0697326698307,0.0697780672265,0.0697911189778,0.0697684202799,0.0698580801366,0.0699182316861,0.0700152686196,0.06984843319,0.0698626198762,0.0697757973567,0.0696520894532,0.0695726440105,0.069528949017,0.0694846865561,0.0694653926629,0.069350196771,0.0693303354104,0.0694381542254,0.0693337402151,0.0693360100848,0.069421130202,0.0694205627345,0.0693978640366,0.0694648251955,0.0694574481186,0.0694279398114,0.069345089564,0.069328633008,0.0693700581317,0.0694324795509,0.0693377124872,0.0693609786525,0.0693910544273,0.0693978640366,0.0693740304038,0.0692974222984,0.0693343076825,0.0693416847593,0.0693853797528,0.0692667790562,0.0692872078844,0.0692542947724,0.0690999436266,0.0689785055929,0.0689796405278,0.0691226423246,0.0691073207035,0.0692179768557,0.0691362615433,0.0691930082881,0.0692196792581,0.0691708770576,0.0692889102867,0.0693127439195,0.0692645091865,0.0691935757555,0.0692196792581,0.0690380896749,0.06906362571,0.0689631839718,0.0688377736659,0.0688621747661,0.0687991858794,0.0688513928846,0.0688099677609,0.0687946461398,0.068770812507,0.0687861341281,0.0687066886855,0.0688275592518,0.0689785055929,0.0690624907751,0.0691646349157,0.0690727051892,0.069161230111,0.0691748493297,0.0692066275068,0.0623141678883,0.0554954790379,0.0485621617632,0.0415942289741,0.0)
ycorr <- c(-2.3029811923e-05,-2.32309221552e-05,-2.38368856739e-05,-2.48509952367e-05,-2.62751376278e-05,-2.81135795695e-05,-3.03713894902e-05,-3.26317819279e-05,-3.49009505008e-05,-3.71811223641e-05,-3.94756230023e-05,-4.17841967829e-05,-4.41055323008e-05,-4.6434650684e-05,-4.87685044692e-05,-5.11089420387e-05,-5.34567263574e-05,-5.58092760232e-05,-5.81658920412e-05,-6.05265823189e-05,-6.28915032376e-05,-6.52619425968e-05,-6.7638438118e-05,-7.00245475262e-05,-7.24223197797e-05,-7.48353591305e-05,-7.72586568487e-05,-7.9695580471e-05,-8.21454072881e-05,-8.46055510902e-05,-8.70742695681e-05,-8.95527491171e-05,-9.20403904687e-05,-9.45401699059e-05,-9.70512366595e-05,-9.95694083398e-05,-0.000102092965953,-0.000104623106341,-0.000107156404771,-0.00010969793538,-0.000112251397072,-0.000114817140416,-0.000117391154334,-0.000119970490108,-0.000122554358306,-0.000125142622713,-0.000127744989985,-0.000130358252785,-0.000132986867342,-0.000135623646237,-0.000138268569275,-0.000140922730115,-0.000143588653808,-0.000146266292931,-0.000148959224683,-0.000151670139762,-0.000154390233313,-0.000157116855214,-0.00015985285529,-0.000162597150185,-0.000165354225831,-0.00016811989097,-0.000170892793144,-0.000173671708383,-0.000176457506436,-0.000179246976867,-0.000182040741325,-0.000184844375697,-0.000187651191563,-0.000190465078417,-0.000193282644936,-0.0001961054667,-0.000198932396971,-0.000201764067003,-0.000204599083991,-0.00020743490033,-0.000210271387622,-0.000213104521242,-0.000215939867661,-0.000218780764248,-0.000221623681558,-0.000224465657379,-0.000227305521536,-0.000230145230789,-0.000232977938678,-0.000235806087524,-0.000238631444262,-0.000241452973179,-0.000244267580083,-0.00024706535597,-0.000249845755642,-0.000252612302252,-0.000255367380906,-0.000258109697184,-0.000260841324756,-0.000263565796505,-0.000266278852468,-0.000268981756249,-0.000271673393474,-0.00027436140523,-0.000277048029258,-0.000279730669818,-0.000282403714913,-0.000285064114132,-0.000287710607107,-0.000290341265995,-0.000292957816686,-0.00029556261546,-0.000298156808993,-0.000300735577403,-0.000303294025887,-0.000305832817383,-0.00030835752014,-0.000310871158452,-0.000313379285783,-0.000315880793999,-0.000318374584289,-0.000320855877358,-0.000323322017035,-0.000325774907958,-0.000328219248004,-0.000330653924565,-0.00033307885337,-0.000335491695002,-0.000337892487707,-0.000340279379124,-0.000342655847297,-0.000345021565148,-0.000347380090411,-0.000349730273441,-0.000352070975861,-0.000354404907923,-0.000356734701634,-0.000359057712907,-0.000361369971753,-0.000363668796946,-0.000365950739098,-0.00036821901089,-0.000370473338501,-0.000372715929814,-0.000374947828102,-0.000377166284054,-0.000379363529618,-0.00038154241691,-0.000383708492629,-0.000385863786153,-0.000388009770833,-0.000390146002398,-0.000392267217459,-0.000394372687782,-0.000396460957601,-0.000398531734856,-0.000400590460408,-0.000402639559553,-0.00040467331419,-0.00040669021234,-0.00040869006626,-0.000410674346894,-0.00041264756903,-0.000414607951137,-0.000416555331128,-0.000418489275646,-0.000420410013453,-0.000422313832762,-0.000424202715479,-0.000426076597773,-0.000427939740901,-0.000429790570757,-0.000431625777231,-0.000433447307991,-0.000435255012427,-0.000437050083237,-0.000438829942023,-0.00044059620937,-0.000442346599023,-0.000444081792401,-0.000445798710387,-0.000447495195103,-0.000449173991964,-0.000450834332467,-0.000452474870512,-0.000454099331476,-0.000455707603491,-0.000457299743876,-0.000458877160254,-0.000460442302491,-0.00046199573712,-0.000463539333302,-0.000465070129598,-0.000466588608384,-0.000468094152504,-0.000469580875685,-0.000471049175858,-0.000472498833402,-0.000473931900834,-0.000475346073771,-0.000476741864175,-0.000478117690541,-0.000479476383629,-0.000480817461983,-0.000482141912538,-0.000483455628804,-0.000484760610715,-0.000486056416961,-0.000487341649306,-0.000488613223644,-0.000489870898887,-0.000491114930502,-0.00049234558535,-0.000493563108248,-0.000494769472443,-0.000495962400526,-0.000497139859808,-0.000498301433889,-0.000499445783898,-0.000500576655959,-0.000501694694249,-0.000502802106821,-0.000503898817444,-0.000504982827961,-0.000506053279756,-0.000507108565966,-0.000508148836577,-0.000509174250804,-0.000510186399394,-0.000511185421465,-0.000512168730251,-0.000513133334156,-0.00051407727865,-0.000515002308841,-0.000515909356962,-0.00051680060738,-0.000517676167532,-0.000518536115742,-0.000519378689721,-0.00052020454067,-0.000521015940746,-0.00052181469836,-0.000522604078937,-0.000523383724383,-0.00052415024178,-0.000524905238414,-0.000525647058795,-0.000526376814477,-0.000527095521926,-0.000527804155192,-0.00052850064566,-0.000529182816237,-0.000529851362289,-0.000530504646855,-0.00053114427421,-0.000531769015598,-0.000532377742829,-0.000532969591776,-0.000533543286139,-0.000534095371079,-0.000534625590098,-0.000535137668481,-0.000535628218293,-0.000536097198475,-0.000536545319503,-0.000536968743494,-0.000537368547376,-0.000537745378386,-0.000538101365999,-0.000538439233889,-0.000538760729122,-0.000539065292289,-0.000539351865102,-0.000539625668952,-0.000539881757216,-0.000540124756134,-0.000540357742423,-0.000540582031304,-0.000540795437539,-0.000540993845388,-0.000541175989732,-0.00054134254671,-0.000541493464198,-0.000541626685289,-0.000541744376385,-0.000541848039268,-0.000541932189505,-0.000541991641238,-0.000542024346494,-0.000542031364654,-0.000542013572812,-0.000541967608901,-0.00054188790032,-0.000541770991252,-0.00054161644499,-0.000541417214529,-0.000541175683531,-0.00054089597475,-0.000540583079839,-0.000540239796281,-0.0005398682183,-0.000539470904198,-0.000539053625053,-0.000538620030179,-0.000538171702913,-0.000537713811366,-0.000537250543044,-0.000536781069128,-0.000536302962116,-0.000535815336488,-0.000535316167639,-0.000534802654817,-0.000534273796956,-0.000533730553406,-0.000533175894825,-0.000532610820581,-0.000532030052287,-0.000531433655672,-0.000530824081688,-0.000530200221642,-0.000529561801304,-0.000528909215249,-0.000528246083827,-0.000527570407081,-0.000526877551853,-0.000526164681092,-0.000525433023828,-0.000524685711667,-0.000523917333123,-0.000523127602334,-0.000522318726646,-0.000521490671218,-0.000520643415348,-0.000519774484048,-0.000518888974754,-0.000517987166099,-0.00051707143321,-0.000516138286068,-0.000515188644654,-0.00051422597733,-0.000513247898626,-0.000512256963145,-0.000511250448539,-0.000510232076441,-0.000509200330446,-0.000508151002931,-0.000507083096922,-0.000505997444495,-0.000504897774077,-0.000503782428235,-0.000502652417297,-0.000501505941436,-0.000500342955037,-0.000499163797953,-0.000497964008346,-0.000496747696709,-0.000495518040149,-0.000494276300326,-0.000493018566926,-0.000491744407271,-0.000490455232145,-0.000489151344488,-0.000487833725242,-0.000486499663235,-0.000485152571363,-0.000483791902514,-0.000482415371087,-0.000481021073712,-0.000479612383048,-0.000478192210426,-0.000476758160217,-0.000475309815893,-0.000473847827476,-0.00047237293585,-0.000470885780697,-0.000469390760809,-0.000467886809157,-0.000466371932752,-0.000464846685718,-0.000463306549765,-0.000461750788433,-0.000460178630195,-0.000458588708661,-0.000456980694295,-0.000455357154911,-0.000453711179648,-0.000452039093325,-0.000450346905127,-0.000448633749952,-0.00044689767267,-0.000445143388362,-0.000443373401868,-0.000441588675963,-0.000439788474115,-0.000437970209557,-0.000436136153078,-0.000434292023158,-0.000432435132216,-0.000430563654354,-0.000428683820116,-0.000426792945132,-0.000424887361641,-0.000422965718873,-0.000421030701373,-0.000419082732957,-0.000417122289572,-0.00041514747344,-0.000413160506938,-0.000411162172246,-0.000409148803924,-0.000407118616358,-0.000405075653039,-0.000403018564688,-0.000400945122118,-0.00039885417028,-0.00039674523803,-0.000394616468236,-0.000392464267811,-0.000390290133232,-0.000388094102199,-0.000385877071853,-0.000383637261224,-0.000381375428108,-0.000379094042466,-0.00037679559991,-0.000374482918898,-0.000372157768847,-0.000369820280197,-0.00036747019071,-0.000365103376108,-0.000362722094682,-0.000360325241032,-0.000357914836296,-0.000355490207788,-0.000353050690138,-0.000350594289691,-0.000348117683821,-0.000345621430205,-0.00034310685088,-0.000340577205012,-0.000338034632935,-0.000335477823378,-0.000332909490118,-0.000330326876422,-0.000327725818671,-0.000325104797585,-0.000322465906149,-0.000319810997102,-0.000317139589973,-0.000314452851384,-0.000311747420185,-0.000309022886263,-0.000306278542946,-0.000303513863539,-0.000300731260036,-0.000297935878839,-0.00029512735223,-0.000292305130831,-0.000289468313112,-0.000286616470736,-0.000283749365452,-0.000280868780077,-0.000277973022783,-0.000275064173519,-0.000272142842835,-0.000269208369872,-0.000266260307499,-0.000263298925063,-0.000260321544147,-0.000257329155256,-0.000254321343526,-0.000251298344199,-0.000248260533212,-0.000245209546156,-0.000242143211905,-0.000239059270275,-0.000235957126014,-0.000232836374382,-0.000229698769913,-0.00022654545436,-0.000223374322029,-0.000220187493668,-0.000216985934803,-0.000213769871539,-0.00021053963714,-0.000207293163044,-0.000204032265569,-0.000200755349971,-0.000197462690243,-0.000194154264428,-0.000190832311362,-0.000187495132599,-0.00018414068452,-0.000180765750018,-0.000177373186768,-0.000173965112994,-0.00017054404975,-0.000167110019255,-0.000163665789295,-0.000160207851735,-0.000156734895584,-0.000153250394326,-0.000149757745642,-0.000146256593465,-0.000142748041881,-0.000139227084063,-0.000135689281017,-0.000132135608753,-0.000128566205035,-0.00012498220746,-0.000121387922518,-0.000117779552344,-0.000114152030015,-0.000110503468856,-0.000106835003454,-0.000103150355937,-9.9453532505e-05,-9.57477484232e-05,-9.20321645268e-05,-8.83067380772e-05,-8.45684659904e-05,-8.08173647037e-05,-7.70578569312e-05,-7.32914258668e-05,-6.95146225092e-05,-6.5727401236e-05,-6.19263085604e-05,-5.8108277151e-05,-5.42706040084e-05,-5.04133955245e-05,-4.65367037623e-05,-4.26432994769e-05,-3.87309166597e-05,-3.4801492485e-05,-3.08565011588e-05,-2.68977037063e-05,-2.29257504238e-05,-1.89432778841e-05,-1.49520441935e-05,-1.09524910615e-05,-6.94634981887e-06,-2.93297174882e-06,1.09023704881e-06,5.12327844064e-06,9.16593235151e-06,1.32200675217e-05,1.72804306482e-05,2.13507542208e-05,2.54311451085e-05,2.95214466403e-05,3.36207574903e-05,3.77313342729e-05,4.18532590697e-05,4.59832964588e-05,5.01214062801e-05,5.42667956828e-05,5.84238458366e-05,6.25919253533e-05,6.67695130858e-05,7.09593732455e-05,7.51623413335e-05,7.93759198434e-05,8.35968390375e-05,8.7825405717e-05,9.20604058204e-05,9.6302745354e-05,0.000100552195934,0.000104805871276,0.000109068040038,0.000113334608149,0.000117604037214,0.000121878543062,0.000126161355677,0.000130453340339,0.000134756000723,0.000139069610732,0.000143393600952,0.000147729998478,0.000152075265422,0.000156428046299,0.000160789758967,0.000165160219902,0.000169535050717,0.000173912864039,0.000178293773122,0.000182676292002,0.000187059481467,0.000191439628695,0.000195816023199,0.000200190402722,0.000204564885229,0.000208939172644,0.000213313168308,0.000217688712658,0.000222198763788,0.000226977074735,0.000232135232011,0.000237767768673,0.000244604555856,0.000250200403247,0.000255265293558,0.000259881913405,0.000264158965138,0.000268225360011,0.000272211279661,0.000275983040857,0.000279402779137,0.000282355166816,0.000284751161921,0.000285865275081,0.000288142411798,0.000290871795352,0.000293966655293,0.000297318887029,0.000300796046225,0.000304267396015,0.000307734777552,0.000311204556165,0.000314678936237,0.000318154735449,0.000321628031341,0.000325097943761,0.000328566273965,0.000332033910383,0.000335503151562,0.000338978049001,0.000342456974643,0.00034593856687,0.000349419334368,0.00035289824571,0.000356376167237,0.000359854874454,0.000363332044438,0.000366807296777,0.000370280791025,0.0003737469049,0.00037720516302,0.000380654074482,0.000384094135149,0.000387527191287,0.000390953698662,0.000394373731775,0.000397787874475,0.000401196244471,0.000404595064346,0.000407986000985,0.000411372946443,0.000414754911351,0.000418134294033,0.000421508099229,0.000424874350432,0.000428230943655,0.000431576271787,0.000434909897925,0.000438235710529,0.000441556340563,0.000444868867465,0.000448171798502,0.000451462671391,0.0004547418972,0.000458010807984,0.000461272600262,0.00046452921123,0.000467779591925,0.000471022621136,0.000474255148353,0.000477477382986,0.000480689753143,0.000483893846517,0.000487091614324,0.000490284444682,0.000493469768183,0.00049664342577,0.00049980365,0.000502951639527,0.000506086972898,0.000509209795513,0.0005123182281,0.000515412613639,0.000518491286022,0.000521551943846,0.000524592607986,0.000527614686968,0.000530620880352,0.000533611063858,0.000536584418769,0.000539540765446,0.000542482106378,0.000545406342454,0.000548313074847,0.00055119699456,0.000554059659729,0.000556902932853,0.000559727004642,0.000562531585433,0.000565317380467,0.000568082159791,0.000570826998517,0.000573552814504,0.00057625892176,0.000578948393938,0.000581624737185,0.000584285677181,0.000586928660684,0.000589552951388,0.00059215397109,0.000594733639158,0.00059729356243,0.000599829962151,0.000602342189456,0.000604832950643,0.000607299334,0.000609741668198,0.000612159739143,0.00061455150665,0.000616918564043,0.00061926251933,0.000621578995406,0.000623871112997,0.000626140059607,0.00062838347721,0.000630597360397,0.000632782581196,0.000634941003439,0.000637072943367,0.000639178431576,0.000641258318185,0.000643312739039,0.000645340569633,0.000647336887726,0.000649302940998,0.000651241986533,0.000653155862053,0.000655040646437,0.000656897073788,0.000658727084084,0.000660530057506,0.000662306155939,0.00066405620903,0.000665784117394,0.00066748969836,0.000669167564423,0.00067081424242,0.000672431957332,0.00067402030074,0.000675575695671,0.000677097089505,0.000678584627165,0.000680034953515,0.000681447321596,0.000682819434449,0.000684157643702,0.00068546395284,0.000686736670792,0.000687974678251,0.000689180257177,0.000690352585571,0.000691491817815,0.000692598531052,0.000693672698658,0.000694716029934,0.000695725302941,0.000696696016907,0.000697632384674,0.000698534667469,0.000699404025041,0.000700240417945,0.000701043076261,0.000701812019883,0.0007025468651,0.000703246667004,0.000703912088921,0.000704547827723,0.000705150600425,0.000705719315093,0.000706254170308,0.00070675561359,0.000707220338774,0.000707649682601,0.000708042774495,0.000708400283951,0.000708721587337,0.000709004182822,0.000709246858623,0.000709451364395,0.000709616253734,0.000709742432037,0.000709830812245,0.000709885437643,0.000709906832197,0.000709895530163,0.000709849780593,0.000709772985207,0.000709663129412,0.000709523125749,0.000709351242293,0.000709145615074,0.000708906191238,0.0007086288554,0.000708313821337,0.000707959325837,0.000707565617779,0.000707134326858,0.00070666588408,0.000706160842707,0.000705617045516,0.00070503562833,0.000704418110854,0.000703762990124,0.000703069416512,0.000702336277996,0.000701568988189,0.000700764586183,0.000699923938536,0.000699044510348,0.000698129061532,0.00069717729544,0.000696190761321,0.000695172020889,0.000694122683272,0.000693045641605,0.000691938951504,0.000690799884015,0.000689627975795,0.000688423044724,0.000687187354875,0.000685917865123,0.000684613505503,0.000683273765464,0.000681896954574,0.00068048535552,0.000679036841963,0.000677553400428,0.000676037739308,0.000674489629802,0.000672905834161,0.000671288738853,0.000669640491615,0.000667963467311,0.00066625699169,0.000664519787715,0.000662749942802,0.000660948760239,0.000659114668626,0.000657248230049,0.000655354213247,0.000653433303847,0.000651480275288,0.000649492012521,0.000647469502117,0.000645413139729,0.00064332605112,0.000641208535991,0.000639059523146,0.000636879011702,0.000634663329068,0.000632411303243,0.000630127227233,0.000627815176526,0.000625474174441,0.000623105482537,0.000620707649975,0.000618278569555,0.000615821079226,0.000613336598485,0.000610824821993,0.000608286829032,0.000605721688724,0.0006031269143,0.000600503034993,0.000597853561374,0.00059517648427,0.000592473514915,0.000589744053322,0.000586984238537,0.000584196449674,0.000581383047613,0.000578543976105,0.000575681882151,0.0005727967272,0.000569883630142,0.000566942631134,0.000563972813062,0.000560976734262,0.000557956195804,0.000554913811747,0.000551846735068,0.000548754906341,0.000545637925743,0.000542495190715,0.000539328052126,0.0005361409028,0.000532936592158,0.000529713157687,0.00052647143568,0.000523208808366,0.000519924545799,0.000516621755596,0.000513297330032,0.000509953539981,0.000506589926347,0.000503206672375,0.00049979955457,0.000496367898253,0.000492912794851,0.000489433357384,0.000485931664102,0.000482404950064,0.000478854262667,0.00047528152765,0.000471685510577,0.000468063385847,0.000464417135779,0.000460749303183,0.000457058988678,0.000453348643962,0.000449617204699,0.0004458673655,0.000442102948983,0.000438320925485,0.000434521847939,0.000430707369998,0.000426882197438,0.000423046173334,0.00041919966987,0.000415343265908,0.000411476930056,0.000407599495565,0.000403708150872,0.000399804374053,0.000395891545062,0.000391971426472,0.00038804054732,0.000384097143583,0.000380141305875,0.000376171104634,0.000372188082119,0.000368191516887,0.000364182672978,0.000360160818699,0.000356122937961,0.000352066640893,0.000347991219282,0.000343898060362,0.000339787791997,0.000335662094025,0.000331522954073,0.000327369590475,0.000323203603964,0.000319025121739,0.000314835881319,0.000310638091922,0.000306433993237,0.000302226280363,0.000298015384053,0.000293800842743,0.00028957731051,0.000285348221272,0.000281116312208,0.000276880485683,0.000272640835393,0.000268397810502,0.000264150999785,0.000259894815716,0.000255628750837,0.000251353086912,0.00024707084652,0.000242785136833,0.000238492713163,0.000234193369239,0.000229888301977,0.000225578568812,0.000221265043866,0.000216951102278,0.000212640346506,0.000208330927148,0.000204025181885,0.000199721116144,0.000195415966205,0.000191112392128,0.000186809794961,0.000182507467635,0.000178206094767,0.000173904590156,0.000169600440721,0.000165296006876,0.000160991959452,0.000156688133986,0.000152385738948,0.000148085557215,0.000143786142171,0.000139487720768,0.000135190984983,0.000130895055127,0.00012660029839,0.000122307417617,0.000118013238462,0.000113718528625,0.000109422323365,0.000105125777841,0.000100830813307,9.65386641519e-05,9.22473928777e-05,8.7960448139e-05,8.36779872599e-05,7.94022279908e-05,7.51358608466e-05,7.08799109871e-05,6.66351914137e-05,6.24032780788e-05,5.81817228237e-05,5.39730875245e-05,4.97751723098e-05,4.55895968609e-05,4.14157128231e-05,3.7255766754e-05,3.31052797251e-05,2.89629494423e-05,2.48301571298e-05,2.07057100058e-05,1.65902993365e-05,1.24868701441e-05,8.39670975391e-06,4.32148344302e-06,2.59716273689e-07,-3.79258788843e-06,-7.83350355793e-06,-1.18621876751e-05,-1.58776540865e-05,-1.98794511307e-05,-2.38659473694e-05,-2.78392943466e-05,-3.18021733764e-05,-3.57562346713e-05,-3.97018361565e-05,-4.36356309727e-05,-4.75552647959e-05,-5.14616531303e-05,-5.53546015814e-05,-5.92360141853e-05,-6.31032339428e-05,-6.69603686421e-05,-7.08042948217e-05,-7.4633466049e-05,-7.84457755825e-05,-8.22405487505e-05,-8.6019696731e-05,-8.9781166733e-05,-9.35244640748e-05,-9.72476910409e-05,-0.000100951444019,-0.000104637558682,-0.000108302859624,-0.000111949249594,-0.000115576397302,-0.000119187173936,-0.000122780110705,-0.000126354929806,-0.000129916211042,-0.00013346289609,-0.000136996912331,-0.000140515199435,-0.000144018931089,-0.0001475077001,-0.000150980361801,-0.000154435454773,-0.00015787362718,-0.000161295914705,-0.000164698400899,-0.000168077737118,-0.000171436711711,-0.000174772783925,-0.000178084716823,-0.00018137403577,-0.000184639635977,-0.000187882925248,-0.000191103252395,-0.000194297520824,-0.000197467986283,-0.000200619081886,-0.000203747517072,-0.000206853258794,-0.000209937482572,-0.000213000606264,-0.000216040271435,-0.000219057205152,-0.000222051452621,-0.000225026125281,-0.000227980237159,-0.000230913254846,-0.000233823726548,-0.000236714676798,-0.000239581486714,-0.000242420619002,-0.000245236729449,-0.000248029814682,-0.000250799807695,-0.000253545924206,-0.000256266492114,-0.000258962581811,-0.000261632331953,-0.000264275738509,-0.000266895239974,-0.00026949616251,-0.000272078074162,-0.000274639841842,-0.000277180917935,-0.000279701631314,-0.000282199974804,-0.000284674662123,-0.000287128762051,-0.000289560659615,-0.000291971154558,-0.000294358411667,-0.000296720775022,-0.000299057711155,-0.000301368649434,-0.000303652812541,-0.000305911740041,-0.000308145552175,-0.000310354612852,-0.000312536254063,-0.000314693257791,-0.000316821965559,-0.00031892472156,-0.000321002624946,-0.000323059182915,-0.000325092348236,-0.000327100851089,-0.000329085236386,-0.0003310436187,-0.000332978293901,-0.000334889364748,-0.000336777956449,-0.000338644544883,-0.000340485842375,-0.000342295110943,-0.000344071309752,-0.00034581836236,-0.000347536502665,-0.000349227000429,-0.000350893793477,-0.000352531305478,-0.0003541428684,-0.000355721035384,-0.000357269313247,-0.00035879230318,-0.00036029699609,-0.000361780161206,-0.000363239871007,-0.000364677056662,-0.000366085414519,-0.000367467856333,-0.000368827210068,-0.000370164236257,-0.000371483993205,-0.000372782487648,-0.000374053756769,-0.000375297518174,-0.00037651593731,-0.000377708137566,-0.000378879034205,-0.000380030468246,-0.000381155571837,-0.000382258478948,-0.000383331411242,-0.00038437565358,-0.000385397133061,-0.000386396378581,-0.000387372966164,-0.000388327871512,-0.000389260142502,-0.00039016370275,-0.000391041192766,-0.000391893071224,-0.000392718141677,-0.000393520725787,-0.000394297665794,-0.00039504817902,-0.00039577456158,-0.000396472380078,-0.000397140763517,-0.00039778744845,-0.000398412116074,-0.00039901539903,-0.000399600317609,-0.000400166029461,-0.000400710528973,-0.000401235255494,-0.000401736872077,-0.000402216117432,-0.000402678057238,-0.000403119467035,-0.00040353381564,-0.0004039210161,-0.000404282400079,-0.000404618273609,-0.000404929324544,-0.000405219435101,-0.000405471670238,-0.000405670665404,-0.000405816498334,-0.000405909341706,-0.000405953516274)
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(185)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('G1E-ER4-H3K27ac.pooled.sorted.MACS-2.1.0.p1e-1_model.pdf',height=6,width=6)
plot(x,p,type='l',col=c('red'),main='Peak Model',xlab='Distance to the middle',ylab='Percentage')
lines(x,m,col=c('blue'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 185',bty='n')
dev.off()