# R script for Peak Model
#  -- generated by MACS
p <- c(0.0421471756277,0.0491701165902,0.0562070720421,0.0633006460315,0.0702910733784,0.0703381620631,0.0703168600391,0.0702041835437,0.070227727886,0.0702176374536,0.0702439846938,0.0702125922374,0.070191850793,0.0700937493667,0.0700943099463,0.0700505847392,0.0700253586581,0.070106642697,0.0700898253097,0.0700606751716,0.0701268235619,0.0700875829914,0.0701161725499,0.0701374745739,0.0701582160183,0.0700427366251,0.0700343279314,0.0701565342795,0.07024902991,0.0702529539671,0.0701537313816,0.0702148345557,0.0701806392014,0.0701783968831,0.0701380351534,0.0701806392014,0.0702540751262,0.0701184148682,0.0701767151444,0.0701593371774,0.0702310913635,0.0702254855677,0.0703157388799,0.0703252687327,0.0703263898919,0.0703280716306,0.0701907296338,0.0702507116488,0.0701621400753,0.0701341110964,0.0700971128442,0.0700561905349,0.0700404943067,0.070028161556,0.0700903858892,0.0701049609583,0.0703017243904,0.0703151783003,0.0702675290361,0.0703101330841,0.0703527371321,0.0703902959639,0.0702602415016,0.0703577823483,0.0703684333603,0.0705018513,0.0704059921921,0.0703919777026,0.0703947806005,0.0703319956877,0.0702949974355,0.0702439846938,0.0703880536456,0.0703387226426,0.0702793012073,0.0701884873155,0.0700987945829,0.0700943099463,0.0701369139943,0.0701576554387,0.0701873661564,0.070223803829,0.0701391563126,0.070170548769,0.0702507116488,0.0702815435256,0.0703151783003,0.0703779632131,0.0703723574174,0.0704144008858,0.070412719147,0.0703936594413,0.0704755040598,0.0703426466997,0.0703617064054,0.0704648530478,0.0704984878226,0.0705427736093,0.070593786351,0.0705988315672,0.0705814536002,0.070693569516,0.0707070234259,0.070899862801,0.070775974714,0.0706874031406,0.0706638587983,0.0705175475282,0.0705175475282,0.0705668785312,0.0706106037383,0.0706162095341,0.0705455765072,0.07046205015,0.0705556669396,0.0705349254952,0.0706094825792,0.0707238408132,0.0706061191017,0.0706016344651,0.0705332437565,0.0705057753571,0.070497927243,0.0705063359367,0.0704368240689,0.0704833521739,0.0705399707114,0.0704491568196,0.0705203504261,0.0705382889727,0.0706846002427,0.0707524303717,0.0708000796359,0.0708634251283,0.0709138772904,0.0708516529572,0.0707855045669,0.0709346187348,0.0710725213112,0.0710893386986,0.0710338413203,0.0709755410441,0.0711055955063,0.0709901161131,0.0710534616055,0.0711695015783,0.071199212296,0.0711414725994,0.0710601885605,0.0711212917346,0.0711196099958,0.0712474221398,0.0711678198396,0.0712788145962,0.0713174945871,0.0713017983589,0.0713600986351,0.0713623409534,0.0713998997852,0.0713645832717,0.0715136974397,0.0714727751304,0.0713864458753,0.0713825218182,0.0713500082027,0.0713449629865,0.0714183989113,0.0714262470254,0.0714738962896,0.071537241782,0.0714666087551,0.0715002435298,0.0716448730611,0.0717878208537,0.0718517269257,0.0719274051688,0.0718057594002,0.0719795390696,0.0720081286281,0.0720653077452,0.0720860491896,0.0721421071474,0.0721723784447,0.0721589245348,0.0722901001562,0.0723304618859,0.0724577134503,0.0724223969368,0.0724846212701,0.072406140129,0.0724739702581,0.0726001006633,0.0727318368643,0.0726931568733,0.0727665927982,0.0727783649693,0.0729700831852,0.0730160507107,0.0729897034705,0.0730844414193,0.0732072083471,0.0731825428456,0.073167407197,0.0732167381999,0.0732195410978,0.0731987996534,0.0731158338757,0.0730793962031,0.0732402825422,0.0733865938122,0.0733972448242,0.0734740442265,0.0735457984126,0.0736478238959,0.0736483844755,0.0738855096373,0.0740912423427,0.0743451848919,0.0743816225645,0.0744247871921,0.0745144799247,0.0744623460239,0.0745542810748,0.0747431963928,0.0748614786839,0.0749422021433,0.0748502670923,0.074776270588,0.0748295256479,0.0748637210022,0.0748485853536,0.0750425458879,0.0750857105154,0.0751255116655,0.0751703580318,0.0752230525122,0.0753424559625,0.0755683695327,0.0757415886225,0.0759305039406,0.0761709925799,0.076310576895,0.0763638319549,0.0765107038046,0.0766643026092,0.0767382991135,0.0768879738611,0.0769339413865,0.0769031095097,0.077005134993,0.0770314822332,0.0770881007707,0.0773633453438,0.077517504728,0.0777081017848,0.0779065469556,0.0779945579495,0.0781857155859,0.078418356111,0.0784385369759,0.0786515572158,0.0787760058823,0.0787025699575,0.0787367653118,0.0788107618162,0.0787860963147,0.078937452801,0.0790036011912,0.0790349936477,0.0791667298487,0.0792547408425,0.0793382671998,0.0794969112205,0.0794436561606,0.0795725894637,0.0797357181211,0.0798411070819,0.080055248481,0.0803304930541,0.0805317411229,0.080703278474,0.0808344540954,0.0810956841791,0.0813428997733,0.0814802417701,0.0816063721753,0.0819219784782,0.0819842028114,0.0821120149554,0.0822751436128,0.0825189957295,0.0826832455461,0.082843010726,0.0830711666146,0.0832225231009,0.0834355433408,0.0833576227793,0.0835358870854,0.0837197571872,0.0840112585681,0.08424838373,0.0845499755433,0.0848493250384,0.0852613510287,0.0856677712233,0.086110068511,0.0867216608314,0.0872536508516,0.0876359661243,0.0879033625833,0.0880283718294,0.0884286256486,0.088683689357,0.0889073606089,0.0891125327347,0.0893978677403,0.089452804539,0.0894376688904,0.089659097824,0.0899068739978,0.0901613771265,0.0902919921684,0.090481468066,0.0906569294741,0.0908480871105,0.0910555015546,0.0913705472779,0.0916827901032,0.0918386312261,0.0918834775924,0.0921407836191,0.0922478543186,0.0923874386337,0.0924479812282,0.0926083069877,0.092674455378,0.0927136959485,0.0928123579544,0.0929261556089,0.0932165358307,0.0933488326112,0.0936167896499,0.093845506118,0.0941437344539,0.0943623604896,0.0945277314653,0.0947984914019,0.0950434646778,0.0952643330318,0.0954790350105,0.0957397045146,0.0958484569529,0.0961080052978,0.0963967037809,0.0966248596694,0.0969158004708,0.0971456380981,0.0973609006563,0.0975257110525,0.0976978089831,0.0979909921028,0.0983525659311,0.0986182806514,0.0986423855733,0.0987903785821,0.0990970156117,0.0993638514911,0.0995589331845,0.0999277945474,0.100133527253,0.100260778817,0.100423346895,0.10058983903,0.100939080107,0.101178447588,0.101295608719,0.101430708398,0.1016941808,0.101804054397,0.101991848556,0.102203747637,0.102325393406,0.102453766129,0.10262530348,0.102767130114,0.103044617005,0.103284545065,0.103470096905,0.10379635422,0.104040206337,0.10430255758,0.104700008501,0.104877151648,0.105203408963,0.105350280813,0.105382794428,0.105420913839,0.10565916016,0.105675977548,0.10575221637,0.105821167659,0.105942813427,0.10627187364,0.106314477688,0.10661719066,0.106881784222,0.107236631095,0.107423304095,0.107791604878,0.10801527613,0.108233341586,0.10854782673,0.108688532204,0.108952004606,0.109218840485,0.109477828251,0.109640956908,0.109871915695,0.110010378851,0.11041063267,0.110686998402,0.110837233729,0.111172460317,0.111423039389,0.11155421501,0.111824974947,0.112019496061,0.112192715151,0.112390599742,0.112483655952,0.112711251261,0.112809352687,0.112883909771,0.113073385669,0.113377219801,0.113434398918,0.113749444641,0.113940602277,0.114151380199,0.114285919298,0.114494454901,0.114682809639,0.114892466402,0.115120061711,0.115197421693,0.115425577581,0.115544981032,0.115797802422,0.115929538623,0.116171709001,0.11631914143,0.11654561558,0.11670538076,0.116918961579,0.117049576621,0.117133663558,0.117271005554,0.117366304083,0.117526629842,0.117699288353,0.117725075013,0.117975654085,0.118201567655,0.118244171703,0.118438692817,0.11872683072,0.118923594153,0.118944335597,0.119188748293,0.119215656113,0.119428115773,0.119403450272,0.119521171984,0.119681497743,0.119836217707,0.119887230448,0.119953939418,0.120202276172,0.120304862235,0.120543108556,0.12065690621,0.121026328152,0.121124990158,0.121187775071,0.121358191263,0.121587468311,0.121823472313,0.121898589977,0.121895787079,0.122007342415,0.122129548763,0.122024720382,0.122175516289,0.12220018179,0.122252315691,0.122213075121,0.122106004421,0.122179440346,0.122273057136,0.122285950466,0.122380688415,0.122255118589,0.122313979445,0.122377885517,0.122343690163,0.122375643198,0.122382930733,0.122392460586,0.122358825811,0.122317903502,0.122097035148,0.122268011919,0.122044901247,0.122122261229,0.122118897751,0.122129548763,0.121993888505,0.121835244485,0.121819548256,0.121840289701,0.121824593473,0.121685569737,0.121618860767,0.121396310674,0.121262892735,0.121160867251,0.121145171023,0.121103688134,0.120926544987,0.120659148528,0.120480323643,0.120313270928,0.120072221709,0.11999149825,0.119777917431,0.119487537209,0.119409616647,0.119148386564,0.118986939645,0.118983576168,0.119007681089,0.118795221429,0.118815402294,0.118510447003,0.118372544427,0.118198764757,0.117885400773,0.117829903394,0.117671819953,0.11727717193,0.117052940098,0.116985109969,0.116636429471,0.116521510658,0.11633203476,0.116055108448,0.115835921833,0.11546706047,0.115276463413,0.115173316771,0.114850422933,0.114676082684,0.114530331994,0.114213043952,0.113919300253,0.113713567548,0.113473639488,0.113219696939,0.112904090636,0.112636133597,0.112264469337,0.111911304202,0.111664088608,0.111577759353,0.111638301947,0.111502641689,0.111398934467,0.111241972185,0.110988029636,0.110672983913,0.110619728853,0.110462766571,0.110246382853,0.110010378851,0.109580974893,0.109278261921,0.109083180227,0.109021516474,0.108903234183,0.108869038828,0.108654897429,0.108376289379,0.108154299865,0.107891388043,0.107663232154,0.107503466974,0.107263538915,0.106951296089,0.106612706024,0.106244405241,0.105834060989,0.105410262827,0.105061582329,0.104731961537,0.104219031223,0.103777855094,0.103269969996,0.102764887795,0.102312500075,0.101762571509,0.101497977947,0.101263655684,0.100834812306,0.100352153288,0.100141935946,0.0998302537007,0.0995084810225,0.0992870520889,0.099167088059,0.0990757135877,0.0987595467053,0.0984467433003,0.0981984065469,0.0980083700697,0.0978031979439,0.0974920762777,0.09736930935,0.0970402491373,0.0967963970205,0.0966551309667,0.0964174452253,0.0962268481685,0.0960211154631,0.0958731224543,0.0956881311933,0.0955563949923,0.0954997764549,0.0953024524432,0.0951942605845,0.0948988351465,0.0947553267743,0.0945417459548,0.0945198833512,0.0942227761745,0.0939419258056,0.0937720701932,0.093322485371,0.0932540946624,0.0929631538611,0.0927624663719,0.0926475475582,0.092478813105,0.0921979627361,0.0920964978323,0.0918582515114,0.0917130614005,0.0916340196799,0.0914759362387,0.0912769304882,0.0911283768998,0.0908071648012,0.090602553255,0.0903928964925,0.0902056629132,0.0901378327842,0.0899646136944,0.0897644867848,0.0894774700405,0.0893541425331,0.0891568185214,0.0890093860922,0.0888770893116,0.0887128394951,0.0884185352162,0.0882212112045,0.0879868889406,0.0877716263823,0.0876129823616,0.0874134160315,0.0872138497015,0.0870243738039,0.0868158382006,0.0866829808404,0.0866028179607,0.0864122209039,0.0861919131294,0.0859940285382,0.0858353845174,0.0855848054457,0.0853583312959,0.0851867939448,0.084942941828,0.084690120438,0.0845365216334,0.0844031036937,0.0842792156068,0.0841132840515,0.083921005256,0.083646881842,0.0835796122925,0.0834333010225,0.0833699555301,0.0832785810587,0.0830739695125,0.0827987249393,0.082501057183,0.0823530641742,0.0822050711654,0.0822207673936,0.0819337506493,0.0817902422772,0.0815239669773,0.08134738441,0.0812414348696,0.0811416517046,0.0810525195515,0.0808568772786,0.0806842187683,0.0805048333031,0.0804925005524,0.0803125545076,0.0802307098891,0.0801578345439,0.0798977256193,0.0797407633373,0.0796953563914,0.0797413239169,0.0796931140731,0.079536151791,0.079478972674,0.0793730231336,0.0792042886804,0.0788707438311,0.0789038180262,0.0787294777772,0.0785226239127,0.0782681207839,0.077997921427,0.0778084455294,0.0776184090522,0.0774950815448,0.0773549366502,0.0773470885361,0.0770987517827,0.0770230735395,0.0769322596478,0.0766928921677,0.0765875032069,0.0764221322311,0.0762287322765,0.0760168331957,0.0760123485591,0.0759529271237,0.075776905136,0.0757477549979,0.0757208471781,0.0756647892203,0.0757034692112,0.0756586228449,0.0754797979593,0.0754444814458,0.075175403248,0.0748822201283,0.0748132688401,0.074623232363,0.0744388016815,0.0743642445976,0.0741450579823,0.0740693797392,0.0740699403187,0.0739393252769,0.0739735206312,0.0739712783129,0.0738630864542,0.073783484154,0.0736584749079,0.0735407531964,0.0734824529202,0.0734426517701,0.0733781851186,0.0733142790466,0.0731376964793,0.0730429585305,0.0730850019989,0.0728904808851,0.0728955261013,0.0729314031943,0.0728304988701,0.072722867591,0.0726185997894,0.0725221801018,0.072434169108,0.0722194671293,0.072142667727,0.072253101904,0.0720630654268,0.0718691048926,0.0718567721419,0.0717373686916,0.0716207681392,0.0715389235207,0.0715495745327,0.0717317628958,0.0716431913224,0.0714363374578,0.0714363374578,0.0714795020854,0.0712911473469,0.0712048180918,0.071152684191,0.0711588505663,0.0710500981281,0.0709245283024,0.0708275480353,0.0707821410894,0.0707372947231,0.0706128460566,0.0706930089364,0.0707215984949,0.0706436779335,0.0705786507023,0.0705685602699,0.070508578255,0.0705096994141,0.0704435510239,0.0704424298647,0.0704693376845,0.07035554003,0.0702871493214,0.0703062090271,0.0702310913635,0.0702137133966,0.0701991383275,0.0701032792196,0.070149246745,0.0700163893849,0.0699485592558,0.0699513621537,0.0699053946283,0.0699160456403,0.0698885772409,0.0698689569556,0.069832519283,0.0697730978477,0.0697843094393,0.0698269134872,0.069843170295,0.0698829714451,0.0698717598535,0.0697955210308,0.069843170295,0.069871199274,0.0697770219047,0.0698577453641,0.0698840926043,0.0699227725952,0.0698594271028,0.069800566247,0.06969013207,0.0697176004694,0.069739463073,0.0696850868538,0.0697534775624,0.0697417053913,0.069586424848,0.0694872022625,0.069586424848,0.0695780161543,0.0696351952713,0.0696071662924,0.0694782329893,0.0693621930165,0.0692237298605,0.0692102759506,0.0693515420045,0.0693621930165,0.0691794440738,0.0691917768245,0.0692489559416,0.0692136394281,0.069301650422,0.0693991912687,0.0693846161996,0.069369480551,0.0692242904401,0.0691760805963,0.0692063518936,0.0691390823441,0.0691884133471,0.0691374006054,0.0691256284342,0.0690387385995,0.0690925542391,0.0691536574132,0.0691547785723,0.0691693536414,0.0692175634851,0.0691923374041,0.0690460261341,0.0690538742482,0.0689798777438,0.0689972557107,0.0690678887376,0.0689563334015,0.0689905287558,0.0689333496387,0.06887841284,0.0689479247078,0.0690006191882,0.0690224817917,0.0690415414974,0.0690477078728,0.0689333496387,0.068867761828,0.0688419751674,0.0689490458669,0.0688929879091,0.0688195519842,0.0689064418189,0.0688795339992,0.0687662969243,0.0688072192335,0.0688217943026,0.0689395160141,0.0689159716718,0.0689064418189,0.0689075629781,0.06887841284,0.0687668575038,0.0687775085158,0.06887841284,0.0688582319752,0.0688408540082,0.0687102389664,0.0687590093897,0.0687954470624,0.0689002754436,0.0688408540082,0.0688587925548,0.0688554290773,0.0689176534105,0.0688879426928,0.0689316679,0.0689720296297,0.0689798777438,0.0689681055726,0.0689815594825,0.0690477078728,0.0690236029509,0.0691345977075,0.0690925542391,0.0691452487195,0.0691463698786,0.069169914221,0.0691351582871,0.0691648690047,0.0690695704764,0.0691598237885,0.0691301130709,0.0690213606326,0.0689624997768,0.0688672012484,0.0688543079181,0.0689468035486,0.0690903119208,0.0689938922332,0.069020800053,0.0690292087467,0.0692231692809,0.0691996249386,0.0692775455001,0.0693403304129,0.0693997518482,0.0693033321607,0.0692450318845,0.0692013066774,0.069220366383,0.0692074730527,0.0690359357016,0.0691329159688,0.069163187266,0.0691783229146,0.0690650858397,0.0690376174404,0.0689473641282,0.068974271948,0.0688857003745,0.0689479247078,0.0689843623804,0.0690589194644,0.0689176534105,0.0688974725457,0.0690017403473,0.0690409809178,0.0690376174404,0.0691385217645,0.0692573646352,0.0691687930618,0.0691065687286,0.0690213606326,0.0690807820679,0.0691671113231,0.0691558997315,0.0690931148187,0.0691928979837,0.0691452487195,0.0691104927856,0.0690858272841,0.0691508545153,0.0692220481218,0.069195140302,0.0690320116446,0.0691250678547,0.0692725002839,0.0693358457763,0.0693251947643,0.0693223918664,0.0693616324369,0.0692977263649,0.0692018672569,0.0692562434761,0.0693745257672,0.0692657733289,0.0692007460978,0.0690734945334,0.069141885242,0.0692136394281,0.0691923374041,0.0693700411306,0.0693364063558,0.0693812527221,0.0694496434307,0.0694042364849,0.0694132057581,0.0694109634398,0.0693145437523,0.0693100591156,0.0692915599895,0.0692943628874,0.0693223918664,0.0693750863468,0.0693582689594,0.0694664608181,0.069554471812,0.0695768949951,0.0696082874515,0.0695645622444,0.0696548155566,0.0696279077368,0.0696531338178,0.0695897883254,0.0695662439831,0.0696531338178,0.0697389024934,0.0697153581511,0.0698106566795,0.0697972027696,0.069800566247,0.0699289389706,0.0699451957784,0.0699014705712,0.0698840926043,0.0697994450879,0.0697798248026,0.0698000056675,0.0697299332201,0.0697803853822,0.069700783082,0.0694597338632,0.0694406741575,0.0695449419591,0.0696430433854,0.069590348905,0.0695129889231,0.0695595170282,0.0696133326677,0.069643603965,0.0696850868538,0.0697658103132,0.0698145807365,0.0697529169828,0.0696957378658,0.069722085106,0.0696161355656,0.0696054845536,0.0695124283436,0.0695696074606,0.0695791373134,0.0696357558509,0.0696834051151,0.0696974196045,0.0696396799079,0.0697377813342,0.0698095355203,0.0698140201569,0.0698947436163,0.0698442914542,0.0698549424662,0.069785991178,0.0697344178567,0.0696800416376,0.069686208013,0.0697052677187,0.0696632242502,0.0696873291721,0.069722085106,0.0696643454094,0.0696811627968,0.0696587396136,0.0696800416376,0.069807293202,0.0698347616013,0.069785991178,0.0697904758146,0.0697142369919,0.0695729709381,0.069526442833,0.0695595170282,0.0695275639922,0.0694289019863,0.0693352851967,0.0693066956382,0.0692898782508,0.0692859541938,0.0692472742028,0.0693257553438,0.0693364063558,0.0692136394281,0.0692668944881,0.0692932417283,0.0693324822988,0.0693436938904,0.069294923467,0.0693296794009,0.0694687031364,0.0695270034126,0.0695275639922,0.0696346346917,0.0696234231002,0.0696576184545,0.0695813796318,0.0696066057128,0.0696604213524,0.0697131158328,0.0697568410399,0.0696492097608,0.0697837488597,0.069722085106,0.0697803853822,0.0696979801841,0.069707510037,0.0696122115086,0.0695623199261,0.0694614156019,0.0693111802748,0.0693313611396,0.0692668944881,0.0691794440738,0.0692170029056,0.0691710353801,0.0690751762721,0.0691065687286,0.0692013066774,0.0692938023079,0.0693263159234,0.0692545617373,0.069241668407,0.0693487391066,0.0692265327584,0.0693436938904,0.0694249779293,0.069479914728,0.0693397698333,0.0692540011578,0.0692775455001,0.0693879796771,0.0693745257672,0.0692758637613,0.0692102759506,0.0690622829418,0.0690656464193,0.0689860441191,0.06898492296,0.0690370568608,0.0689804383233,0.0689344707979,0.0688772916809,0.068924940945,0.0689681055726,0.0690011797678,0.0690084673023,0.069027527008,0.0690107096206,0.0688268395188,0.0687982499602,0.0687192082396,0.0687629334468,0.0687186476601,0.0687489189573,0.0687758267771,0.0687763873567,0.0688044163356,0.0687494795369,0.0688330058941,0.0688240366209,0.068742752582,0.0618038985563,0.0549323140801,0.0480136409192,0.041152707455,0.0)
m <- c(0.0410518728186,0.0478674433621,0.0546998106785,0.0616116827199,0.0684216543391,0.0685672263708,0.0685750648648,0.0684989194944,0.0685381119645,0.0684373313272,0.0684233340164,0.0684989194944,0.068510117343,0.0685033986338,0.0686058589484,0.0686433717412,0.0686629679762,0.0686993609841,0.0687144780797,0.0688415736612,0.0689300366651,0.0689569115017,0.0689949841869,0.0689854660156,0.0689910649399,0.0689787473064,0.0690280178402,0.0691282385851,0.0692217406208,0.0691741497643,0.0690806477286,0.0690492937525,0.0691131214895,0.0691075225652,0.0690621712784,0.0690705696648,0.069092965362,0.0690173798841,0.068958591179,0.0690464942904,0.0690767284816,0.0692010246009,0.0691612722384,0.0692228604057,0.0692917271745,0.0692928469593,0.0692318186845,0.0694233018954,0.0694283409273,0.0694496168396,0.069553196939,0.0695946289788,0.0696394203732,0.0697211646679,0.0697105267117,0.0697558779985,0.0697687555244,0.06972396413,0.0697603571379,0.0697732346638,0.069696529401,0.069601347688,0.0696035872577,0.069561035433,0.0696293423094,0.0695963086561,0.0696142252138,0.0696147851063,0.0696192642457,0.0696243032776,0.0696662952098,0.0696898106918,0.0697575576758,0.0697424405802,0.0697592373531,0.0698532992812,0.0698672965919,0.0699468013169,0.0699966317431,0.069978155293,0.0701198080776,0.0701578807628,0.0701237273246,0.0702620207547,0.070215549683,0.0702295469938,0.0701746775357,0.0700946129183,0.0700571001255,0.070164599472,0.07002126701,0.0701069305517,0.0701981930177,0.0700274258268,0.0700638188347,0.0700375038905,0.070215549683,0.0702609009698,0.0703017731172,0.0701741176433,0.070259781185,0.0701584406552,0.070100771735,0.0702373854878,0.0703236089219,0.0703773585951,0.0703891163362,0.0703320073084,0.0703924756907,0.0704199104198,0.0703717596709,0.0702905752686,0.0703258484916,0.070263700432,0.0702345860256,0.0700934931334,0.0700375038905,0.0701472428067,0.070092933241,0.0701192481852,0.0703376062327,0.0706270706187,0.0707440881364,0.0707788014671,0.0707407287819,0.0708891002757,0.0708644650088,0.0708812617816,0.0708863008135,0.0710296332754,0.070929972423,0.0708751029649,0.0707183330847,0.0707110544831,0.0707407287819,0.0707457678137,0.0707664838336,0.0706461069613,0.0706606641644,0.0704563034277,0.0703751190254,0.0702452239818,0.0703140907506,0.0703191297825,0.0702648202168,0.0702782576351,0.0702547421531,0.0703560826828,0.0705050140691,0.0706186722322,0.0707116143755,0.0707452079213,0.070767043726,0.0707334501803,0.0708493479132,0.070906456941,0.0709215740366,0.0709294125306,0.0708129549053,0.070906456941,0.070937810917,0.0709618862915,0.0709518082278,0.0710313129527,0.07103299263,0.0710268338133,0.0710111568253,0.0709014179091,0.0709282927457,0.0708179939371,0.0707760020049,0.070723932009,0.0706298700808,0.0705766803,0.0705122926706,0.0704137516031,0.070529649336,0.070679700507,0.0705861984713,0.070656185025,0.0706685026585,0.0707452079213,0.0707720827579,0.0707916789929,0.0707659239412,0.0708051164112,0.0706511459931,0.0706057947064,0.0706808202919,0.0706410679294,0.0705111728858,0.0704087125712,0.0704630221369,0.0704686210611,0.0705190113798,0.0705044541766,0.0706427476067,0.0705167718101,0.0704227098819,0.0704786991249,0.0705503653558,0.0705861984713,0.0706433074991,0.0706528256704,0.0706869791086,0.0706713021206,0.0705783599773,0.0707004165269,0.0707508068456,0.0706976170648,0.0706410679294,0.0706164326625,0.0705951567502,0.0705945968578,0.070553164818,0.070572761053,0.0706595443796,0.0705167718101,0.0705167718101,0.0705066937463,0.0705817193319,0.0706741015828,0.0705565241726,0.0705598835271,0.0705274097662,0.0704954958978,0.0704792590173,0.0705274097662,0.0706153128777,0.0705985161048,0.0705313290132,0.07043838687,0.0703835174119,0.0703118511809,0.0702345860256,0.0702110705436,0.070176357213,0.07027937742,0.0701970732329,0.070184195707,0.0701539615158,0.0702205887149,0.0702429844121,0.0703213693522,0.0704714205233,0.070442306117,0.0704355874078,0.0703056923642,0.0702032320496,0.070176357213,0.0702631405395,0.0701343652808,0.070092933241,0.0699736761535,0.0698499399266,0.0699770355081,0.0699747959384,0.0700022306674,0.0700470220618,0.0700235065797,0.0699188066954,0.070029105504,0.0700940530259,0.070211630436,0.0702256277468,0.0700906936713,0.0700050301296,0.0701058107669,0.0700391835678,0.0701349251732,0.0701830759221,0.0701287663565,0.0702060315117,0.0700951728107,0.0701651593644,0.0701808363524,0.0701808363524,0.070085094747,0.0701618000098,0.0701108497987,0.0701931539859,0.0701735577508,0.0702413047348,0.0702900153762,0.0702205887149,0.0701836358146,0.0701578807628,0.0701987529102,0.070192034201,0.070275458173,0.0701310059262,0.070104690982,0.0698784944405,0.0698129870263,0.0699031297074,0.0698846532572,0.0699697569065,0.0698695361617,0.069811307349,0.0697054876798,0.0697625967076,0.069704367895,0.0698320233689,0.0698605778828,0.0697049277874,0.0697446801499,0.0697273234846,0.0697653961698,0.0697894715442,0.0697849924048,0.0698051485323,0.0698236249824,0.0697709950941,0.0698197057354,0.0698706559465,0.0698376222932,0.0698023490701,0.0698029089625,0.069926085297,0.069906489062,0.0698818537951,0.0699244056197,0.0699652777671,0.0698566586358,0.0699014500301,0.0699663975519,0.0699501606715,0.0700296653965,0.0700274258268,0.0700414231375,0.0700587798028,0.0701265267868,0.0701718780735,0.0702922549459,0.0702827367746,0.070295054408,0.070354962898,0.0702547421531,0.0702692993563,0.0702306667786,0.0702250678543,0.0702049117269,0.0701310059262,0.0700380637829,0.0700419830299,0.0700257461495,0.0701198080776,0.0702810570973,0.0701461230218,0.0702838565594,0.0702855362367,0.0702491432288,0.0702446640894,0.0703364864478,0.0704445456867,0.0705005349296,0.0704809386946,0.0703739992406,0.0705178915949,0.0704294285911,0.0704294285911,0.070442306117,0.0705593236347,0.0705542846029,0.0704647018141,0.0704663814914,0.0704842980492,0.0705598835271,0.0705050140691,0.0705178915949,0.0706701823357,0.0708039966264,0.0707155336225,0.070664023519,0.0706852994313,0.0707076951285,0.0706802603995,0.07067578126,0.0706819400768,0.0708381500646,0.0707827207141,0.0707788014671,0.0707950383475,0.0710049980085,0.0710727449925,0.0711522497175,0.0711432914386,0.07123119455,0.0713051003507,0.0713622093785,0.0714831461433,0.0714977033464,0.0716035230156,0.0716751892466,0.0716723897844,0.0716651111829,0.0717238998879,0.071790527087,0.0718801098758,0.0719293804095,0.0718806697682,0.071953455784,0.0720189631983,0.0719271408398,0.0720189631983,0.0721466186722,0.072306747907,0.0723056281221,0.0723196254329,0.0723599376878,0.0724752755282,0.0725458219744,0.0726930736833,0.0728274478664,0.072802252707,0.072877838185,0.0728968745276,0.072976939145,0.0730810791369,0.0731297897783,0.0732580051446,0.0733901397579,0.0734315717977,0.073448928463,0.0737131976897,0.0736454507058,0.0738122986497,0.0739685086375,0.0739511519722,0.0740250577729,0.0741056822828,0.0741040026055,0.0742047832428,0.0743475558123,0.0743766702186,0.0745272812821,0.0744880888121,0.0745267213897,0.0747624361025,0.0747977093255,0.0748072274968,0.0749466407118,0.074924804907,0.07507989511,0.0751689180063,0.075258500795,0.07547629895,0.075587157651,0.0756924174278,0.0758715830052,0.076095539977,0.0762097580326,0.076396762104,0.0765132197293,0.0765580111237,0.0766307971395,0.0767282184222,0.0768116423942,0.0768161215337,0.0769818496928,0.0769465764697,0.0770691929118,0.0772153248358,0.0774135267559,0.0775042293294,0.0777276264088,0.0779286277909,0.0781033142289,0.0783143936748,0.0784532469973,0.0786570478416,0.078793101702,0.0790092201798,0.0789017208333,0.0791267975899,0.0793065230598,0.0794302592867,0.0795747115335,0.0796553360433,0.0795881489518,0.0797258824894,0.0798423401148,0.0798636160271,0.0801765958951,0.0804296672732,0.0804974142572,0.0804856565162,0.0806373873646,0.080828310683,0.0810892205551,0.0812465503278,0.0813820442957,0.0816367953511,0.0818579528607,0.0819049838248,0.0820796702628,0.0824021683021,0.0825175061426,0.0825550189354,0.0827252262339,0.0829116704129,0.0831636220062,0.0831014739465,0.083168661038,0.083308074253,0.0835146745594,0.0836512883122,0.0838853233477,0.0840992022557,0.0842727689089,0.0843365966458,0.0845711915738,0.0848796923024,0.0849412804696,0.0852329844254,0.0853936735526,0.0855465241858,0.0857111325601,0.0860806615635,0.0862385512286,0.0864115579893,0.0864681071247,0.0866791865706,0.0869792889128,0.0870716711636,0.0873017869521,0.0873768125377,0.0875626968242,0.0875873320911,0.0877860939036,0.0879630199113,0.0880822769988,0.0883151922494,0.0884848396555,0.0886208935159,0.0888689258621,0.0891578303557,0.089278207228,0.0895066433392,0.0897994670798,0.0899590364222,0.0902557794098,0.0903408830591,0.0904511818677,0.0906902559351,0.0907171307717,0.0909018952734,0.0911056961177,0.0913542883564,0.0914237150176,0.0916599896228,0.0917781269255,0.0919388160527,0.09223779861,0.0925457394462,0.0928004905016,0.092983575326,0.0931610612262,0.0933295888474,0.0936571259186,0.0939191555756,0.094181745125,0.0944023427422,0.0945137613357,0.0946352579929,0.0947416375545,0.0948228219567,0.0950501382831,0.0950954895699,0.0952220252589,0.0953099283703,0.0954163079319,0.0956313066248,0.0958994950985,0.096137449381,0.0963300523768,0.096570246229,0.0968893849138,0.0972309192957,0.0973093042358,0.0975987686219,0.0979330244022,0.0981144295494,0.0982493636249,0.0983025534057,0.0986060151024,0.0987107149867,0.0988316517515,0.0990024189425,0.0992655683843,0.0994900852485,0.0995947851328,0.0998624137141,0.100064534881,0.100276174219,0.10044694141,0.10080863192,0.100991716744,0.101268863497,0.101685423464,0.101997283548,0.102498387272,0.102836002407,0.103220648506,0.103807415772,0.104283324337,0.104884648806,0.105435023064,0.106016751298,0.106309015147,0.106672945226,0.106967448644,0.107399125707,0.107732261702,0.107921505343,0.108172897044,0.108304471765,0.108520590243,0.108664482597,0.108880041183,0.109093360198,0.109260768035,0.10943713415,0.109643734456,0.109972391312,0.110156595922,0.110363756121,0.110456138371,0.11064930126,0.110903492423,0.111129688964,0.111370442709,0.111473462916,0.111771325688,0.11179708074,0.112022157497,0.112250033715,0.112439837249,0.11251374305,0.112617883041,0.11286647528,0.113031643547,0.113195692029,0.113431966634,0.113608332749,0.113846287032,0.113990739278,0.114197339585,0.114397781075,0.114665409656,0.114756112229,0.114954314149,0.115316004659,0.115368074655,0.115650820332,0.115805350642,0.116038265893,0.116366922749,0.116532091016,0.11667822294,0.116907778836,0.117098702154,0.117278427624,0.117481108684,0.117619402114,0.11777057307,0.117918384671,0.117908306607,0.118186573145,0.118560021395,0.118857324275,0.1190404091,0.119210616398,0.119422255736,0.119672527652,0.119815860114,0.120000624616,0.12036343491,0.120629943707,0.120654578974,0.120865098527,0.121086256037,0.121211112048,0.121358363757,0.121416032678,0.121685340936,0.121881303286,0.121906498446,0.121807957378,0.122020716501,0.122039752844,0.122047591338,0.122161249501,0.122253631752,0.122473669477,0.122310180887,0.122259230676,0.122261470246,0.12231298035,0.12227154831,0.122214439282,0.122193723262,0.12211029929,0.122060468864,0.121969206398,0.122106380043,0.122072786497,0.122165168748,0.122225637131,0.122143892836,0.122206040896,0.122327537553,0.122304581963,0.122260350461,0.122176926489,0.122086783808,0.121956328872,0.12169765857,0.121546487614,0.121433389343,0.121244145702,0.121025787654,0.120869577666,0.12086341885,0.120913249276,0.120870697451,0.120857819925,0.120888054117,0.120832624766,0.120735763376,0.120638901986,0.120399827918,0.120306885775,0.120024140098,0.119741394421,0.119522476481,0.119346670258,0.119135590813,0.118995617705,0.118836608255,0.118609851821,0.118574018706,0.118505711829,0.118380855818,0.118207849057,0.117980532731,0.117819843603,0.117707305225,0.117513022552,0.117364651058,0.117368570305,0.117246513756,0.117043832696,0.116920656362,0.116819315832,0.116789081641,0.116702298314,0.116432990056,0.116364683179,0.116106572769,0.115731444842,0.115509727439,0.115277931974,0.115097086719,0.114885447381,0.114595423102,0.114398340967,0.114322195597,0.113986820031,0.113883239932,0.113866443159,0.11375838392,0.113522109315,0.113296472666,0.112989651615,0.112930303017,0.112711385077,0.112394485962,0.112239955652,0.1120367147,0.111850270521,0.111610076668,0.111486340442,0.111225990462,0.111159923155,0.110843583933,0.110612348359,0.110386151818,0.110208106025,0.110067013133,0.109735556815,0.109373306413,0.109157187935,0.109017214828,0.108668961737,0.10855922282,0.108314549829,0.108139863391,0.107938862009,0.107658915794,0.107419281834,0.107283227974,0.106987044879,0.106794441883,0.106647190174,0.106417074385,0.106276541386,0.106133208924,0.105877897976,0.105722247881,0.105466936933,0.10533032318,0.105166274698,0.104893047193,0.104584546464,0.104271006703,0.10384380878,0.103545946007,0.103339905593,0.103017967446,0.102927264873,0.102702188116,0.102535900065,0.102280029224,0.10211766042,0.101916099145,0.101834354851,0.101630554006,0.101461466493,0.101300217473,0.1010023547,0.100623307526,0.100239221319,0.100087490471,0.0998109036106,0.0995757487902,0.0993243570894,0.099145191512,0.0988686046518,0.0985584242459,0.0984027741505,0.098335587059,0.0983103918997,0.0981732182545,0.0980248467607,0.0979201468764,0.0976592370042,0.0974028062716,0.0971967658575,0.0970405558697,0.096784125137,0.0964565880658,0.0961430483053,0.095847984995,0.0956385852264,0.0953855138483,0.0953272850356,0.0951688354781,0.0948664935662,0.0947287600286,0.0945574329452,0.0945098420887,0.0943737882283,0.0941313548064,0.0940266549221,0.0937427894603,0.0934891581898,0.0932153707918,0.093035645322,0.0927747354498,0.0925630961115,0.0922719520482,0.092027838949,0.0918889856265,0.0916622291926,0.0915244956549,0.09132517395,0.0912921402967,0.0912159949263,0.091115214289,0.0909472465602,0.0908526247396,0.0906191495965,0.0904746973497,0.090309529083,0.0901258843662,0.0899271225537,0.0897009260122,0.0894904064588,0.0892815665826,0.088996581336,0.0887586270535,0.0886152945916,0.0884590846038,0.0882278490304,0.0881069122656,0.0880985138792,0.0878823954014,0.0877273051985,0.0874540776929,0.0870935069684,0.0866517518415,0.0862934206867,0.0857542442772,0.0853113693655,0.0848304217686,0.084271649124,0.083890922272,0.0834469275755,0.082997893847,0.0829021522416,0.0826222060269,0.0823377806727,0.0822700336888,0.0821586150953,0.081919541028,0.0816513525543,0.0814486714948,0.0812067979653,0.0810964991567,0.080820472189,0.0806760199422,0.0806093927431,0.0803747978151,0.0802365043851,0.0801452419191,0.0800478206364,0.079824423557,0.0796973279755,0.0795674329319,0.0795282404618,0.0793703507967,0.0792326172591,0.0791323965142,0.078983465128,0.0788602887935,0.0787455108455,0.0786828028934,0.0785702645151,0.078416294097,0.0782365686271,0.0781733007826,0.0780030934841,0.0778334460779,0.0776307650185,0.0773978497678,0.0773105065488,0.0772287622541,0.0772074863418,0.077111184844,0.077012083884,0.0769588941032,0.0767808483106,0.0767175804661,0.0766571120837,0.0766039223029,0.076381085116,0.0762707863074,0.0760361913795,0.0759214134314,0.0757668831209,0.0755854779738,0.0755490849658,0.0753867161613,0.0752159489703,0.0751599597274,0.0751918735959,0.0749561588831,0.0748805734051,0.0746168640708,0.0745759919235,0.0744752112862,0.0743374777485,0.0743078034498,0.0743296392545,0.0741247186254,0.0739657091754,0.0738800456337,0.0739225974583,0.0740547320717,0.0739841856256,0.0739242771356,0.0738878841277,0.0737798248888,0.0736359325345,0.0736628073711,0.0737361532793,0.0738352542393,0.0736460105982,0.0735289930804,0.0733890199731,0.073330231268,0.0732899190131,0.0732227319215,0.0731617036467,0.0731286699934,0.0728627210894,0.0726986726076,0.0726034908946,0.0726124491735,0.0725682176715,0.0724567990781,0.0724013697276,0.0723386617755,0.072235081676,0.0721197438356,0.0721365406084,0.0720587155607,0.0720587155607,0.0719937680389,0.0718554746089,0.0718151623539,0.0717037437605,0.0714915445297,0.0714422739959,0.0713840451833,0.0714417141035,0.0712972618567,0.071195921327,0.0711656871358,0.071235113797,0.0712457517532,0.0711976010043,0.0712328742273,0.0712418325062,0.0713246965858,0.0711634475661,0.0713258163706,0.0713112591674,0.071176325092,0.0711662470282,0.0711292941279,0.0711332133749,0.0711264946657,0.0710766642395,0.0710273937057,0.0710587476818,0.0709422900564,0.0709098162955,0.0709747638174,0.0708835013514,0.0708902200605,0.0708219131841,0.0707558458774,0.0706321096505,0.0705055739615,0.0703868767665,0.0703208094598,0.0702340261332,0.0701399642051,0.0701673989341,0.0699803948627,0.0698969708907,0.0700201472252,0.0701102899063,0.0700604594801,0.0700783760378,0.0701903545237,0.07027937742,0.0702222683922,0.0701545214082,0.0701170086155,0.0701226075398,0.0699288847592,0.0699204863727,0.0698510597115,0.0699126478787,0.0697726747714,0.0697737945562,0.0697687555244,0.0697665159546,0.0697844325124,0.0698247447673,0.0699826344324,0.0698460206796,0.0698163463809,0.0696942898312,0.0696713342416,0.0695089654371,0.0694546558714,0.0694283409273,0.0694843301702,0.0694121040468,0.0692032641706,0.0692200609435,0.0693505158796,0.0693874687799,0.0693992265209,0.0694126639392,0.0694949681264,0.0694087446922,0.0693757110389,0.0694104243695,0.0695308012418,0.0694910488794,0.0694221821105,0.0693594741584,0.0693953072739,0.0694311403894,0.0693801901783,0.0695145643614,0.0694361794213,0.0694529761942,0.069469772967,0.0695274418873,0.0695173638235,0.0695056060825,0.0694988873734,0.0695095253295,0.0695582359709,0.0694490569471,0.0695000071582,0.0694087446922,0.069323641043,0.0693130030868,0.069291167282,0.0692648523379,0.0691954256766,0.0691439155731,0.0690308173024,0.0690604916011,0.0690991241787,0.0691892668599,0.0692043839555,0.0691192803062,0.0690078617128,0.0690190595613,0.0690901658999,0.0691287984775,0.0690974445015,0.0690520932147,0.0690229788083,0.0690347365494,0.0690089814976,0.069073369127,0.0691394364337,0.0691220797684,0.0690414552585,0.0690700097724,0.069240217071,0.069335398784,0.0693225212581,0.0692295791148,0.0692223005132,0.0692055037403,0.0692267796527,0.0692469357801,0.0692250999754,0.0691702305173,0.0690101012825,0.0689193987089,0.068827016458,0.0688762869918,0.0689283569878,0.0689244377408,0.0689725884897,0.0690543327844,0.069100803856,0.0690996840712,0.0690560124617,0.0690274579478,0.0691439155731,0.06906944988,0.0690666504178,0.0690985642863,0.0690341766569,0.0690358563342,0.0689686692427,0.0689451537607,0.0689748280594,0.068954671932,0.0688992425814,0.0689115602149,0.0687671079681,0.0687503111952,0.0688326153823,0.0687928630198,0.0688600501114,0.068986025908,0.0690386557964,0.0691332776169,0.0691875871826,0.0692581336287,0.0694372992061,0.0694938483415,0.0695587958633,0.0695638348952,0.0696438995126,0.0695856706999,0.0696690946719,0.0696478187596,0.0696595765006,0.0696226236003,0.0694832103853,0.0694613745806,0.0694356195288,0.0694109842619,0.069358914266,0.0693975468436,0.0693757110389,0.0694065051225,0.0693074041625,0.0694171430787,0.0695783920983,0.0695716733892,0.0694910488794,0.0625668592045,0.0556219535098,0.0486361756678,0.0416683143834,0.0)
ycorr <- c(1.94134190322e-05,1.92392653359e-05,1.87178115816e-05,1.7845214254e-05,1.66202675594e-05,1.50414976637e-05,1.31100612808e-05,1.1175951032e-05,9.23742937431e-06,7.29316725811e-06,5.3412501083e-06,3.37853468973e-06,1.40452464407e-06,-5.82178962718e-07,-2.58012736254e-06,-4.58752923383e-06,-6.6043178485e-06,-8.63500545345e-06,-1.06758818297e-05,-1.27267034584e-05,-1.47881926053e-05,-1.68568342699e-05,-1.89302562654e-05,-2.10085581749e-05,-2.30946258636e-05,-2.51901625343e-05,-2.72963322826e-05,-2.94153642891e-05,-3.15436918483e-05,-3.36858932555e-05,-3.5839596272e-05,-3.80058791713e-05,-4.01875193827e-05,-4.23872032767e-05,-4.46014520544e-05,-4.68284866988e-05,-4.90690516312e-05,-5.13193544875e-05,-5.35816547351e-05,-5.5855395433e-05,-5.81412414541e-05,-6.04419354992e-05,-6.27539231734e-05,-6.50768285489e-05,-6.74098446651e-05,-6.97554741967e-05,-7.2113308419e-05,-7.44812430556e-05,-7.68608081875e-05,-7.92487881418e-05,-8.16458417933e-05,-8.40475175743e-05,-8.64567138038e-05,-8.88767287218e-05,-9.13080848834e-05,-9.37485582376e-05,-9.61967172253e-05,-9.86518597035e-05,-0.000101115875844,-0.000103589079341,-0.000106072245991,-0.000108569069705,-0.000111081566565,-0.000113602461436,-0.000116132125684,-0.00011866995314,-0.00012121782969,-0.000123777041024,-0.000126344152946,-0.000128918752374,-0.000131502023679,-0.000134090122528,-0.000136677633626,-0.000139268139366,-0.00014186209367,-0.000144456206991,-0.000147050009,-0.000149643407526,-0.000152239157958,-0.000154835149149,-0.000157428583274,-0.000160018822593,-0.000162606963964,-0.000165194989176,-0.000167777464196,-0.00017035787187,-0.00017293618581,-0.00017551134402,-0.000178082067597,-0.000180647739466,-0.000183210666503,-0.000185773600245,-0.000188336571506,-0.000190897510918,-0.000193458326514,-0.000196021632945,-0.000198584030064,-0.000201145244645,-0.000203703960862,-0.000206261552551,-0.000208814231875,-0.000211360433855,-0.00021389788821,-0.000216425696436,-0.000218946066366,-0.000221454486903,-0.000223949946349,-0.000226436408542,-0.000228916580819,-0.000231390182835,-0.000233856220517,-0.000236315839526,-0.000238771591452,-0.000241222555383,-0.000243666947411,-0.000246102101527,-0.000248529551705,-0.000250946795908,-0.000253348922388,-0.000255734795336,-0.000258106930366,-0.000260464607574,-0.000262807840944,-0.000265136749352,-0.000267451927347,-0.000269757404631,-0.000272056788324,-0.000274348324069,-0.000276634263062,-0.000278914492892,-0.000281186962675,-0.000283450810015,-0.000285706765385,-0.000287953949392,-0.000290194109634,-0.000292427300808,-0.000294650115614,-0.000296861762561,-0.000299064535341,-0.000301259643025,-0.000303449374427,-0.000305632184866,-0.000307808828272,-0.000309976509064,-0.000312131556977,-0.000314272947579,-0.000316399453948,-0.000318513631991,-0.000320614109331,-0.000322699263166,-0.000324768081103,-0.000326822862409,-0.000328862468428,-0.000330887684717,-0.000332903381818,-0.000334912679411,-0.000336913396136,-0.000338905558992,-0.000340885876388,-0.000342856680308,-0.000344818427391,-0.000346768006414,-0.00034870435833,-0.000350631929115,-0.000352549212311,-0.000354452805847,-0.000356345115273,-0.00035822511871,-0.000360096069444,-0.000361956920981,-0.00036380530024,-0.000365641712391,-0.000367468914962,-0.000369284785476,-0.000371086638005,-0.000372871526979,-0.000374640409262,-0.000376393554469,-0.000378130408436,-0.00037985198318,-0.000381559977503,-0.000383255139323,-0.000384936529973,-0.000386603483677,-0.0003882553604,-0.000389895559159,-0.000391524204139,-0.000393141114741,-0.00039474540409,-0.000396337833668,-0.00039791582444,-0.00039948091217,-0.000401033066168,-0.000402572885541,-0.000404100390055,-0.000405618819441,-0.000407127362488,-0.000408627770301,-0.000410118056233,-0.000411596578626,-0.000413063310264,-0.000414517654073,-0.000415959405381,-0.000417387034829,-0.000418802040862,-0.000420204069529,-0.000421591739183,-0.000422962539192,-0.000424318459473,-0.000425661332595,-0.000426992897643,-0.000428314714434,-0.000429626981105,-0.000430930557374,-0.000432225233389,-0.000433506586387,-0.000434773793694,-0.000436028855017,-0.000437271700383,-0.000438501621669,-0.000439719517313,-0.000440924263242,-0.000442113610177,-0.000443286202458,-0.000444443378665,-0.000445589504686,-0.000446729292696,-0.000447862442863,-0.000448986043588,-0.00045010204722,-0.000451206481603,-0.00045229880789,-0.000453380296114,-0.000454453636131,-0.000455516866018,-0.000456565540498,-0.000457596557469,-0.000458608216072,-0.000459603442155,-0.000460581656969,-0.000461545114284,-0.000462496477206,-0.000463433193563,-0.00046435487766,-0.00046526235289,-0.000466159832852,-0.00046704925371,-0.000467929282796,-0.00046880079787,-0.000469659876628,-0.000470506816474,-0.000471338278647,-0.00047215477972,-0.000472957788902,-0.000473745924156,-0.000474517802973,-0.000475271437471,-0.000476009485014,-0.000476733632319,-0.000477445171948,-0.000478147280072,-0.000478842338662,-0.000479532273175,-0.000480216908329,-0.000480896759093,-0.000481571686386,-0.000482240834261,-0.000482905202036,-0.000483560892877,-0.000484206388689,-0.000484838801046,-0.000485457470058,-0.000486060375456,-0.000486646477129,-0.000487214706543,-0.000487765010592,-0.000488298328773,-0.00048881601479,-0.000489318359685,-0.000489809369973,-0.000490291591824,-0.000490762943564,-0.000491223482304,-0.000491670296226,-0.000492099360046,-0.00049250955734,-0.000492900681842,-0.000493266787243,-0.00049360498504,-0.000493910114514,-0.000494176619411,-0.000494404288742,-0.000494594533606,-0.000494747503149,-0.000494871018747,-0.000494968653202,-0.0004950420525,-0.000495095851022,-0.000495136015782,-0.000495165877159,-0.000495188049006,-0.000495205716494,-0.000495216098819,-0.00049522178485,-0.000495221030862,-0.000495209416514,-0.000495189202658,-0.000495159302355,-0.000495117649214,-0.000495063032197,-0.00049499553201,-0.000494915115002,-0.000494821758207,-0.000494716654548,-0.000494600197544,-0.000494473124783,-0.000494334544601,-0.0004941822385,-0.000494016739021,-0.000493837011248,-0.000493643598861,-0.00049343705105,-0.000493220291189,-0.000492992099263,-0.000492752486763,-0.000492501089013,-0.000492237407991,-0.000491961863451,-0.00049167422925,-0.000491373957175,-0.000491063008059,-0.000490741988228,-0.000490411627054,-0.000490071609994,-0.000489722418779,-0.000489363972698,-0.00048899359189,-0.0004886127704,-0.000488221134432,-0.000487820219152,-0.000487408376094,-0.000486983288851,-0.00048654190117,-0.000486082010809,-0.000485603049097,-0.000485106141506,-0.000484594052505,-0.000484067919875,-0.000483527348888,-0.000482973041281,-0.000482406129416,-0.000481825789058,-0.000481232620826,-0.000480626444026,-0.0004800093272,-0.00047937939739,-0.000478735198205,-0.000478075803487,-0.000477402215868,-0.000476712379248,-0.000476005869671,-0.00047528176544,-0.000474546651759,-0.000473802259897,-0.000473048321456,-0.000472283573332,-0.000471509777429,-0.000470726503065,-0.000469932361074,-0.000469129463121,-0.000468321443324,-0.000467508729521,-0.00046668517693,-0.000465847602326,-0.000464993226831,-0.000464125032718,-0.000463242972804,-0.000462346912087,-0.00046143659303,-0.000460511644747,-0.000459564196271,-0.000458594095455,-0.000457601333711,-0.000456592981148,-0.000455569635564,-0.000454531098588,-0.00045347681754,-0.00045240519189,-0.000451316071436,-0.000450211651144,-0.000449094718089,-0.000447969253815,-0.000446834903264,-0.00044569039334,-0.000444532545207,-0.000443360921373,-0.000442174140294,-0.000440970747955,-0.000439753243679,-0.000438520529854,-0.000437274375073,-0.000436010043983,-0.000434728975447,-0.000433430450246,-0.000432115948865,-0.000430786338683,-0.00042944236823,-0.000428086488461,-0.000426720595314,-0.000425343349602,-0.000423952221281,-0.000422547926126,-0.000421131857875,-0.000419701267347,-0.000418256898304,-0.000416797594803,-0.000415323481487,-0.000413834185862,-0.000412327043648,-0.000410802752613,-0.000409261643934,-0.000407704734369,-0.000406128447406,-0.000404534375368,-0.000402922941901,-0.000401295376417,-0.000399650747174,-0.000397988382262,-0.000396306803436,-0.000394606336949,-0.000392885630446,-0.00039114497762,-0.000389386505506,-0.000387610978668,-0.000385819619221,-0.0003840097202,-0.000382179955639,-0.000380334048917,-0.000378473563999,-0.000376598055437,-0.000374709696225,-0.000372809936736,-0.000370897274799,-0.000368970932104,-0.0003670285292,-0.000365068005529,-0.000363093463844,-0.000361101881438,-0.000359092691767,-0.000357063772235,-0.000355017584828,-0.000352950137966,-0.000350862619143,-0.000348754529768,-0.000346627613445,-0.000344484504925,-0.000342325574254,-0.000340151698658,-0.000337960156407,-0.000335749728949,-0.000333520247649,-0.000331271112486,-0.000329002405916,-0.000326711937304,-0.000324400557869,-0.000322068052719,-0.000319712434514,-0.000317330508619,-0.000314924570155,-0.000312501486336,-0.000310059588052,-0.000307600710237,-0.000305124568265,-0.000302634951328,-0.000300129207046,-0.000297607608061,-0.00029507011957,-0.000292520374607,-0.000289958159849,-0.00028737852967,-0.000284779080352,-0.000282160526454,-0.000279523339896,-0.000276867173293,-0.000274193557995,-0.000271501917425,-0.000268792075042,-0.000266063274443,-0.000263314999977,-0.000260549544253,-0.000257768893679,-0.000254973904217,-0.000252162448539,-0.00024933371865,-0.000246484775411,-0.000243615051297,-0.000240725743279,-0.000237815818647,-0.00023488574665,-0.000231933308933,-0.000228958401688,-0.000225960147878,-0.000222939217664,-0.000219895519131,-0.000216830468344,-0.000213747933527,-0.000210646898878,-0.000207528620732,-0.00020439190123,-0.000201234685815,-0.000198057913296,-0.000194862950632,-0.00019165057938,-0.00018841987129,-0.000185172073524,-0.000181904855027,-0.000178617771625,-0.000175309180153,-0.000171980932704,-0.000168636687616,-0.00016527803692,-0.00016190315441,-0.000158512518272,-0.000155106750664,-0.000151686111986,-0.000148250608084,-0.000144799488547,-0.000141332697156,-0.000137850448064,-0.000134352348999,-0.000130835839967,-0.000127300627602,-0.000123746276993,-0.000120170910252,-0.000116573389249,-0.000112952440993,-0.000109310682323,-0.000105650813323,-0.000101972685896,-9.82762864908e-05,-9.45617383535e-05,-9.08296733231e-05,-8.70804406706e-05,-8.33152035651e-05,-7.95349819694e-05,-7.57425241327e-05,-7.19366303818e-05,-6.81167445993e-05,-6.42814045354e-05,-6.04304359088e-05,-5.65646451516e-05,-5.26819280248e-05,-4.87828874994e-05,-4.48676247411e-05,-4.09365775522e-05,-3.69886154651e-05,-3.30228159389e-05,-2.90386931721e-05,-2.50375084554e-05,-2.10208076414e-05,-1.69876881499e-05,-1.29400710868e-05,-8.88081351126e-06,-4.81016136466e-06,-7.28652092138e-07,3.36273447177e-06,7.46267244064e-06,1.15711895534e-05,1.5687298319e-05,1.98128947477e-05,2.39487675959e-05,2.80927473347e-05,3.22487627575e-05,3.64170813266e-05,4.05985391504e-05,4.47935817065e-05,4.90032281576e-05,5.32291504556e-05,5.74722666365e-05,6.17301967119e-05,6.6002584304e-05,7.02899039254e-05,7.45905177829e-05,7.89027077111e-05,8.32269444232e-05,8.75644829829e-05,9.19123684959e-05,9.62685593977e-05,0.000100631718701,0.000105003299661,0.00010949661899,0.000114226705837,0.000119290218896,0.000124765762889,0.000131275763552,0.000136728648031,0.000141733580057,0.000146364046018,0.000150713654622,0.000154890725793,0.000159007484835,0.000162952271951,0.000166610433191,0.000169883383954,0.000172694673185,0.000174420085029,0.000177151932267,0.000180277896663,0.000183725118214,0.000187402346471,0.000191198528539,0.000195000025808,0.000198803925718,0.000202612408731,0.000206427744527,0.000210249806088,0.000214079488931,0.000217915954384,0.000221758697524,0.000225607283182,0.000229460184044,0.000233319423616,0.000237186005462,0.000241060217266,0.000244937791434,0.000248817348436,0.000252696496074,0.000256577086146,0.000260459292465,0.000264344866236,0.000268236245288,0.000272131589729,0.000276028438942,0.00027992451473,0.000283823501397,0.000287726304535,0.000291632907172,0.000295541449363,0.000299452447062,0.000303364015205,0.000307274486989,0.000311183357612,0.000315093383308,0.000319004926238,0.000322916290578,0.000326822934347,0.000330725955805,0.000334625678891,0.000338524114279,0.000342418206803,0.000346310064472,0.000350197868463,0.000354081787183,0.000357961737562,0.000361838836613,0.000365715725444,0.000369591537366,0.000373466691399,0.000377338273182,0.000381209775832,0.000385077420463,0.000388942278082,0.000392805497295,0.000396665032126,0.000400518269869,0.000404363918919,0.000408202148193,0.000412034317621,0.000415859281576,0.000419676786149,0.000423485063376,0.000427286937141,0.000431078148241,0.000434858065661,0.000438627281397,0.000442387333363,0.000446138408269,0.000449878021597,0.000453605230816,0.000457320663794,0.000461026141936,0.00046471792403,0.000468395252871,0.00047205846175,0.000475708681466,0.000479343432612,0.000482962378335,0.000486567019578,0.000490156061945,0.000493728247028,0.000497280303467,0.000500814580848,0.00050433476897,0.000507841247479,0.000511334649183,0.000514814929715,0.000518280463744,0.00052172842418,0.000525158243351,0.000528570805056,0.00053196865258,0.000535352081997,0.000538716293693,0.000542060237569,0.000545383160047,0.000548683675891,0.000551960374637,0.000555216941547,0.000558455342448,0.000561673569293,0.000564872016291,0.000568046751684,0.000571198676959,0.0005743270714,0.000577427762553,0.00058050297064,0.000583555519275,0.000586585438065,0.000589590544658,0.000592569023763,0.00059551981756,0.000598442954655,0.000601339420998,0.000604210176343,0.000607057464091,0.000609883782431,0.000612687711743,0.00061546555425,0.000618215720292,0.000620938742971,0.000623635235917,0.000626306164766,0.000628948845524,0.00063156504284,0.000634152114263,0.000636707247804,0.0006392265966,0.000641707379103,0.000644153811123,0.000646567212587,0.000648945536128,0.000651288408782,0.000653594798053,0.000655866635304,0.000658104555938,0.000660309144151,0.000662483041053,0.000664630257632,0.000666749307015,0.000668837852334,0.000670896601989,0.000672925674463,0.000674925764839,0.000676895167525,0.000678832001825,0.000680733907062,0.000682601394524,0.00068443233812,0.000686227734158,0.00068798842867,0.000689714458792,0.000691404075938,0.000693058548264,0.000694676555708,0.000696257413942,0.000697802632032,0.000699311129147,0.000700780066753,0.000702209107116,0.000703595480142,0.000704938622258,0.000706239434576,0.00070749884218,0.000708715681322,0.000709891659488,0.000711028568281,0.000712125506684,0.000713185629016,0.0007142073229,0.000715191792292,0.000716139036838,0.00071704740951,0.000717915759224,0.000718743730059,0.00071953482768,0.000720284265598,0.000720989731416,0.00072165245245,0.000722271376504,0.000722849425288,0.000723386140393,0.000723883845164,0.000724344770344,0.000724764728376,0.000725140126631,0.000725471298999,0.000725762162196,0.000726015287434,0.000726228150141,0.000726399491333,0.00072652918394,0.000726617968832,0.000726662809076,0.000726666132768,0.000726631008872,0.000726558547965,0.000726444017877,0.000726287011865,0.000726088345891,0.000725851723445,0.000725576153727,0.000725260564678,0.000724903147057,0.000724505133699,0.000724063090178,0.000723576745658,0.000723051577913,0.000722487579636,0.000721883762804,0.000721237071257,0.000720546120528,0.000719810214707,0.000719032184221,0.000718213502313,0.000717356269251,0.000716462256663,0.000715531030934,0.000714555380456,0.000713539117344,0.000712482178349,0.000711386163668,0.00071025034813,0.000709077687991,0.000707868234676,0.000706621236185,0.000705333823408,0.000704005425604,0.00070263868778,0.000701234911929,0.000699794211013,0.000698316207314,0.000696804695061,0.000695256735755,0.000693668447982,0.000692037537314,0.000690366789629,0.000688656327236,0.000686908573264,0.000685121591548,0.000683294187871,0.000681427404159,0.000679521643126,0.000677575547407,0.000675592209714,0.000673574618257,0.000671521246532,0.00066943253744,0.000667308257382,0.000665149532523,0.000662956040422,0.000660730202787,0.00065846897607,0.000656174189005,0.000653843845193,0.000651478002925,0.000649078343174,0.000646646073868,0.000644179992285,0.000641680014572,0.00063914654716,0.00063657897988,0.000633978583905,0.00063134353046,0.000628675540564,0.000625975233747,0.000623244566666,0.000620480189368,0.000617683202912,0.000614854960295,0.000611997272473,0.000609107662279,0.000606187555989,0.000603239081762,0.000600263569607,0.000597260037867,0.000594226637309,0.000591163789233,0.000588072739303,0.000584951449967,0.000581799290837,0.000578617886595,0.000575406365857,0.000572164120365,0.000568889244293,0.00056558421462,0.000562248494261,0.000558883987503,0.000555490054351,0.000552067402566,0.000548615833878,0.000545134846883,0.000541623938599,0.000538083477575,0.000534517038259,0.000530923865929,0.000527302467393,0.000523653978788,0.000519978040302,0.000516276832459,0.00051255247952,0.000508807408397,0.000505040737651,0.000501252195314,0.000497443555369,0.000493611007786,0.000489757335133,0.000485883709869,0.000481990224148,0.000478076060963,0.000474139821171,0.000470179931624,0.000466197363792,0.000462196024356,0.000458176332763,0.000454139426795,0.000450086166009,0.000446014343818,0.000441925552355,0.00043781907812,0.000433696222575,0.000429559223517,0.000425409912823,0.000421245150332,0.000417061244863,0.000412859291852,0.000408639781369,0.000404406266369,0.000400160670151,0.00039589974009,0.000391624191197,0.000387332868662,0.000383023856862,0.000378700313383,0.000374365724854,0.000370020703128,0.000365664972959,0.000361296465724,0.000356911572438,0.000352512581456,0.000348103349104,0.000343685493899,0.000339262011484,0.000334831432621,0.000330389073438,0.000325936580198,0.000321474705471,0.000317002008792,0.000312522127317,0.000308037545981,0.000303545004792,0.000299043411645,0.000294530179138,0.000290005435143,0.000285470147208,0.000280925900525,0.000276373348536,0.000271814312212,0.000267248970622,0.000262675383147,0.000258092775031,0.000253502743123,0.000248907666592,0.000244307011344,0.000239702814971,0.00023509636949,0.000230486410374,0.000225872747138,0.000221252840778,0.00021662981744,0.000212006092611,0.000207382328886,0.000202757663344,0.000198131590261,0.000193505690709,0.00018888001639,0.000184254227002,0.000179630175729,0.000175009515834,0.000170394214118,0.000165780057132,0.000161166018511,0.000156552903632,0.000151942099401,0.000147333493565,0.000142728963207,0.000138128763487,0.000133532472818,0.000128939947927,0.000124347725069,0.000119759421763,0.000115178193426,0.000110602870068,0.000106035918384,0.000101479908581,9.69307330354e-05,9.23866676206e-05,8.78469506389e-05,8.33138131026e-05,7.879000466e-05,7.42751545867e-05,6.97674856091e-05,6.52704723451e-05,6.0781984229e-05,5.62993161608e-05,5.18228216778e-05,4.73570301837e-05,4.29043016152e-05,3.84654170624e-05,3.40394423169e-05,2.96277461738e-05,2.52308821215e-05,2.08464900686e-05,1.64757870743e-05,1.21195595163e-05,7.7786035574e-06,3.45322154476e-06,-8.57554935348e-07,-5.15416989941e-06,-9.43633700929e-06,-1.3704889517e-05,-1.79615704095e-05,-2.22038295348e-05,-2.64303737857e-05,-3.06418904327e-05,-3.48361405494e-05,-3.90155529755e-05,-4.31801476502e-05,-4.73315691853e-05,-5.14709039996e-05,-5.55964969627e-05,-5.97089950211e-05,-6.38082483611e-05,-6.78929253176e-05,-7.19649987824e-05,-7.60246869336e-05,-8.00664471922e-05,-8.40882175709e-05,-8.80885587977e-05,-9.20638127357e-05,-9.60145407815e-05,-9.9942115438e-05,-0.000103844737227,-0.000107724982933,-0.000111583101362,-0.000115416045858,-0.000119230168593,-0.000123029211505,-0.000126811037721,-0.000130577329008,-0.000134330347268,-0.000138065214508,-0.000141781478028,-0.000145480113017,-0.000149155974259,-0.000152811717605,-0.000156447060119,-0.000160058665488,-0.000163646115788,-0.00016721240776,-0.000170756664491,-0.00017427494047,-0.000177768815056,-0.000181235951132,-0.000184678770779,-0.000188098670213,-0.000191492127335,-0.000194859001997,-0.000198200037367,-0.000201513063374,-0.000204794208505,-0.000208047943518,-0.000211279201406,-0.000214489406213,-0.000217678002468,-0.000220840611322,-0.000223979966,-0.000227095619753,-0.000230189599155,-0.000233258786775,-0.000236306594306,-0.000239332839138,-0.00024233374807,-0.000245307261732,-0.000248254623655,-0.00025117855573,-0.000254076487685,-0.000256947162249,-0.000259790258731,-0.000262607967489,-0.000265402009095,-0.000268172735953,-0.000270920257267,-0.000273642868811,-0.000276337723878,-0.000279003192784,-0.000281641830527,-0.000284255397832,-0.000286845109427,-0.000289411860448,-0.000291950382444,-0.000294460006906,-0.000296940530384,-0.000299394057916,-0.000301822513185,-0.000304227143357,-0.000306606577337,-0.000308959891561,-0.000311287322338,-0.00031358488136,-0.000315853895722,-0.000318094553121,-0.000320306582954,-0.000322487641415,-0.000324639249723,-0.00032676264761,-0.0003288577041,-0.000330926053021,-0.000332965524234,-0.000334976512197,-0.000336963103862,-0.000338924302824,-0.00034085953438,-0.000342770184106,-0.000344655240918,-0.00034651106571,-0.000348337705581,-0.000350135071879,-0.000351902346306,-0.000353642035324,-0.000355351874276,-0.00035703112593,-0.000358679602249,-0.000360300693105,-0.000361892651897,-0.000363458722142,-0.00036500034713,-0.000366514904389,-0.000368004094233,-0.000369466776675,-0.00037089950087,-0.000372305688829,-0.000373685810333,-0.00037503930008,-0.000376367093203,-0.000377666914574,-0.000378937302491,-0.000380178650031,-0.000381392923159,-0.000382577196894,-0.000383737090946,-0.000384869868328,-0.000385975985476,-0.000387052734257,-0.00038809899513,-0.000389115357712,-0.000390104655946,-0.000391069691665,-0.000392007287264,-0.000392918190264,-0.000393802993742,-0.00039465942051,-0.000395492475167,-0.000396299767489,-0.000397082693529,-0.000397844614211,-0.000398581882338,-0.000399292415691,-0.000399975452609,-0.000400634086596,-0.000401266023287,-0.00040187390081,-0.000402455120229,-0.000403009502454,-0.000403538948902,-0.000404043344894,-0.000404520432044,-0.000404968849637,-0.000405391837512,-0.000405790374714,-0.000406165572804,-0.000406519416283,-0.000406848899621,-0.00040715883193,-0.00040744719418,-0.000407710040427,-0.000407938118998,-0.000408123033253,-0.000408263515135,-0.000408357079179,-0.000408405511032)
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(203)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('G1E-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) : 203',bty='n')
dev.off()