# R script for Peak Model
#  -- generated by MACS
p <- c(0.0428295644803,0.0499000391058,0.0570990458721,0.0642202092292,0.071383613196,0.0714258538057,0.0714475775478,0.0714481809851,0.0715043006522,0.0713739581995,0.0714318881785,0.0715024903404,0.0714699047272,0.0713685272639,0.0713268900915,0.0712532707432,0.0711368073479,0.0712086163844,0.0712188748182,0.0711995648252,0.0712134438826,0.0711573242155,0.0710505158167,0.0711247386023,0.0711796513949,0.0711555139036,0.0711989613879,0.0712182713809,0.0713093904104,0.0711730135848,0.0711784445203,0.0711349970361,0.0711386176598,0.0711989613879,0.07115853109,0.0712508569941,0.0712701669871,0.0711543070291,0.0710577570641,0.0711307729751,0.0711929270151,0.0712188748182,0.0713854235078,0.0713866303824,0.0714113713109,0.0713830097587,0.0713546482065,0.0714198194329,0.0714536119206,0.0713974922534,0.0712930976038,0.0714427500495,0.0713462000845,0.0713317175898,0.0713027526003,0.0713462000845,0.0712985285393,0.0712375813739,0.0711223248532,0.0712810288582,0.0713401657117,0.0711724101475,0.0711947373269,0.0711259454768,0.0711108595448,0.0710873254908,0.0711844788931,0.0711362039106,0.0712146507572,0.0712261160655,0.0711543070291,0.0711784445203,0.0711597379646,0.0711211179786,0.0710372401965,0.0710088786443,0.0710251714509,0.0710643948742,0.0710945667382,0.0709105183674,0.0708266405853,0.0708869843134,0.0708091409041,0.0709539658517,0.0710342230101,0.0710173267662,0.0708296577717,0.0708543987002,0.0708893980626,0.0711784445203,0.0712816322954,0.0711657723374,0.0712520638686,0.0711452554698,0.0711941338896,0.0712152541945,0.0713908544434,0.0713691307012,0.071229133252,0.0711072389211,0.0710867220536,0.0711989613879,0.0712774082345,0.0713606825793,0.0714089575618,0.0714318881785,0.0713546482065,0.0715012834658,0.0716056781155,0.0715211968961,0.071572489065,0.0714572325443,0.0712194782555,0.0712001682625,0.0711573242155,0.0711983579506,0.0712641326143,0.0711416348462,0.0710891358027,0.0711500829681,0.0710927564264,0.071325683217,0.0714928353439,0.0714186125583,0.0713775788232,0.0714065438127,0.0714095609991,0.0715706787532,0.0717438652529,0.0716666252809,0.0718229155368,0.0716859352739,0.0717112796397,0.0717993814828,0.0718440358416,0.0718042089811,0.0719423961185,0.0719315342474,0.0718965348851,0.0719858436028,0.0719182586272,0.0719629129861,0.0719212758137,0.0719031726952,0.0719309308102,0.0719025692579,0.0718120536657,0.0716551599726,0.0716521427862,0.071754727124,0.0717034349551,0.0718102433539,0.0719852401655,0.0720642904493,0.0720944623134,0.0722139428951,0.0721487716687,0.0723497162834,0.0723708365882,0.0723756640865,0.0725983324433,0.0725530746472,0.0725705743284,0.072601953067,0.0726894514728,0.072756433011,0.0727811739396,0.072837897044,0.0729036717077,0.072910912955,0.0728234145493,0.0727920358106,0.0728010873698,0.072923585138,0.072900051084,0.0728982407721,0.0729863426152,0.0729471191919,0.0730122904183,0.0730750478956,0.0731184953798,0.0731921147282,0.0731450466202,0.0730370313468,0.0730611688381,0.0730684100855,0.0732488378326,0.073286250944,0.0732259072159,0.0733121987471,0.073356853106,0.0735125399245,0.0735620217816,0.0737050364173,0.0738275341854,0.0737889141994,0.0737442598406,0.0737943451349,0.0738444304293,0.0738064138806,0.0738474476157,0.0737943451349,0.0738208963753,0.0739898588141,0.0740598575387,0.0742740777736,0.0743422661864,0.0744876945712,0.0745220904962,0.0747157938635,0.0748280331979,0.0748932044242,0.0751430274587,0.0751955265022,0.0752106124342,0.0752588874167,0.0753831954967,0.0752902661554,0.0754797454617,0.0755062967021,0.0755606060574,0.0758062050309,0.0758176703393,0.0758285322103,0.076014390893,0.076106716797,0.0762714551748,0.0765822253747,0.0767023093937,0.0766920509599,0.0767475671898,0.0766721375296,0.0767107575156,0.0768054971688,0.0768760993307,0.0770420445831,0.0770335964612,0.0769201502523,0.0769889421023,0.0772574716925,0.0774288478804,0.0777498765141,0.0777203080873,0.0778452196046,0.0779888376775,0.0780908185781,0.0781089216965,0.0783225384941,0.0785621030948,0.0785958955825,0.0788095123801,0.078854166739,0.0790943347769,0.0792482112837,0.0793743296755,0.0794980343181,0.0797961323351,0.0799023372966,0.080006128509,0.0801473328329,0.0803126746479,0.0804623270937,0.0806373239053,0.0807453391787,0.0807604251107,0.0808829228788,0.0809686109728,0.0811375734115,0.0811436077844,0.0812630883661,0.0813698967649,0.0814187751846,0.0816221335485,0.0818134231666,0.0819920406019,0.0820300571506,0.0822442773855,0.082447032312,0.082695648472,0.0829943499262,0.0831657261141,0.0834680481921,0.0836925268607,0.0837534740261,0.0839091608447,0.0841674320011,0.0842917400811,0.0843261360061,0.0844788056383,0.0846000965319,0.0846049240301,0.084679750253,0.0848450920681,0.0850677604249,0.0853085319002,0.0855426655653,0.0858099882809,0.0861654128397,0.0865630780081,0.0868720378961,0.0873517705348,0.0879183981419,0.0884156304618,0.0888223471894,0.0893225966956,0.0899731020849,0.0905608499969,0.0911244604177,0.0915794521278,0.0920157372822,0.0925467620898,0.0928442566695,0.0931966640418,0.0936806207414,0.0940607862287,0.094173025563,0.0944023317299,0.0946081038429,0.0947547391022,0.0949822349573,0.0950805952342,0.095380503563,0.0954692088433,0.0956333437839,0.095843943395,0.0960394570742,0.0960877320567,0.0963218657219,0.0964431566154,0.0966947899617,0.0968631489632,0.0969850432941,0.0971570229192,0.0973603812831,0.0975353780946,0.0976711514829,0.0978847682805,0.0980645925904,0.0984169999627,0.0986734608072,0.098861733239,0.0988671641746,0.0992895702715,0.0995279279976,0.0998218019536,0.100288258972,0.100418601425,0.100682303517,0.100891696253,0.100981608408,0.101253758622,0.101732284386,0.101829437789,0.10198452117,0.101956763055,0.101965211177,0.102299515431,0.102557786587,0.102866143038,0.103079156398,0.103279497576,0.103355530673,0.103663887124,0.103970433263,0.104369908743,0.104529216185,0.10463240396,0.104657144889,0.104661972387,0.104895502615,0.105087395671,0.1053160984,0.105266013106,0.105423510236,0.105498336459,0.105732470124,0.105997982528,0.106122290608,0.10627496024,0.1063859927,0.106646677606,0.106795726614,0.107063652767,0.107179512725,0.107295372683,0.107547006029,0.107617608191,0.107996566804,0.108256044835,0.108402076657,0.108425007274,0.108735777474,0.108862499303,0.108983186759,0.109120167022,0.109117753273,0.109307232579,0.109394730985,0.10954015937,0.109792396153,0.110040408876,0.110059718869,0.110321007212,0.110521348389,0.110770567986,0.111021597895,0.111212887513,0.111446417741,0.111512795842,0.111702878586,0.111784946056,0.111973821925,0.112145198113,0.112379935216,0.11270518791,0.11292725283,0.113254919274,0.113391899536,0.113747324095,0.113886718107,0.114231280795,0.114555930052,0.114612653157,0.114724289054,0.114865493377,0.115125574846,0.115301175095,0.115531688136,0.115669271836,0.115963145792,0.116179779776,0.116351759401,0.116559341826,0.116739769573,0.117081918512,0.117206830029,0.117125365996,0.117209847215,0.117299155933,0.117413809017,0.117538720534,0.117537513659,0.117740268586,0.117903196652,0.117798802002,0.117906817275,0.118190432798,0.118322585562,0.118404049595,0.118527754238,0.118436031771,0.118592322027,0.118737146974,0.118816197258,0.11892904003,0.118933264091,0.118965849704,0.119071451228,0.119096795594,0.118996021568,0.119070847791,0.118980332199,0.118825852255,0.118767922276,0.118563960475,0.118648441694,0.118609218271,0.118276120892,0.118206122167,0.11814336469,0.118146985313,0.118073969402,0.118109572202,0.118061900657,0.117988884746,0.117893541655,0.117771647324,0.117952678509,0.117885093533,0.117890524469,0.117771043887,0.117757768267,0.117823542931,0.117681735169,0.117690183291,0.117690786729,0.117738458274,0.117649149556,0.117722768905,0.117550789279,0.117478980243,0.11742406745,0.117299155933,0.117376395905,0.117520013978,0.117429498386,0.117367947783,0.11736191341,0.117380619966,0.117419843389,0.117428291511,0.117429498386,0.117391481837,0.117427084637,0.117337775919,0.117323293424,0.117371568407,0.117299155933,0.117124159121,0.116994420106,0.116889422019,0.116701753025,0.116486325915,0.11640968938,0.1163565869,0.116088660747,0.115946249548,0.115888319569,0.115769442425,0.115625824352,0.11545082754,0.115434534734,0.115255917298,0.114904113363,0.114600584411,0.114432828847,0.114218005175,0.113754565342,0.113584396029,0.113361727672,0.113249488338,0.11292725283,0.112750445706,0.112550707966,0.112364849284,0.112098130005,0.111694430464,0.111532709273,0.111237628442,0.110976943536,0.110544279006,0.110252818799,0.109922738606,0.109546193742,0.10924266479,0.10889870554,0.108540263794,0.108389404474,0.108020704295,0.107693037851,0.107496920735,0.107340630479,0.107120375871,0.10692546563,0.106364872395,0.106028757829,0.105826002903,0.105541180506,0.105326960271,0.105097050667,0.104864123877,0.104404908105,0.104118878834,0.103918537657,0.10376466115,0.103672938683,0.103468976882,0.103120190133,0.103039932975,0.1029011424,0.102752093392,0.102686922165,0.102568045021,0.102377962277,0.102408134141,0.102440719755,0.102450978188,0.102382186338,0.102160121419,0.101950728682,0.101692457526,0.101557287575,0.101228414256,0.101031693703,0.100706441008,0.10041075674,0.100052918432,0.0999515409691,0.0997210279277,0.0995991335968,0.0995019801945,0.0990916428432,0.0989697485124,0.0988532851171,0.0989287147773,0.0986734608072,0.098687943302,0.0984145862136,0.0980814888343,0.0976868408523,0.0972469350742,0.0968510802176,0.0964232431851,0.0958807530692,0.0951433527114,0.0944813820138,0.0936926894871,0.0931025278259,0.0926789148544,0.0921708206635,0.091785827678,0.0916403992932,0.0914364374921,0.0911884247695,0.0910442032593,0.0910520479439,0.0909241192403,0.0907400708695,0.0904468003508,0.0904226628595,0.0902796482238,0.0900050842608,0.0895995744078,0.0893388895022,0.0889713961979,0.0886183853883,0.0885013185557,0.0884023548416,0.0883709761029,0.0881627902409,0.0879008984608,0.0877325394593,0.0876408169925,0.0874000455173,0.0872884096202,0.0873294433554,0.087148412171,0.0869058303839,0.0866578176612,0.0865359233304,0.0863675643289,0.086292738106,0.0861539475313,0.0860634319391,0.0859143829306,0.0856494739641,0.0854895630846,0.0851522416443,0.0849754345209,0.0847443180421,0.084621820274,0.0844462200251,0.084362342243,0.084338808189,0.0841583804419,0.0839157986548,0.0837323537213,0.083817438378,0.0838053696323,0.0836864924879,0.0835712359672,0.0833461538612,0.0831548642431,0.082970212435,0.0829128858932,0.0829086618323,0.0828253874874,0.0826268566219,0.0824615148068,0.0823577235944,0.0822466911346,0.0821772958473,0.0821018661871,0.0818592844,0.0817066147678,0.081627564484,0.0814586020452,0.0813976548798,0.0812805880472,0.0810947293646,0.0809179222411,0.0807821488528,0.0806578407729,0.0805739629908,0.0805148261372,0.0802607790418,0.0801545740802,0.0799150094795,0.0797454436035,0.0796688070688,0.0795656192937,0.0794407077764,0.0793266581302,0.0792313150398,0.0789784748189,0.0789193379653,0.0788722698574,0.0787214105371,0.0786001196435,0.0785011559294,0.0783496931718,0.0782314194646,0.0780546123412,0.0779858204911,0.0779399592577,0.0777541005751,0.0775441044012,0.0775676384551,0.0774958294187,0.0773407460374,0.0772067829609,0.077136180799,0.0769810974177,0.0769261846251,0.0768978230729,0.0767783424911,0.0767336881323,0.0766075697405,0.0765104163382,0.0763215404692,0.0762304214397,0.0759872362153,0.0759745640324,0.0757301719335,0.0755648301184,0.0754513839095,0.0752794042843,0.0750289778125,0.0749306175357,0.07491191098,0.0748895838006,0.0748769116176,0.0747194144872,0.0746421745152,0.0745522623603,0.0745395901774,0.0743126977596,0.0742638193398,0.0739264978995,0.0739693419465,0.0739614972619,0.0738577060495,0.0737527079625,0.0737871038876,0.073758138898,0.0736670198686,0.073723742973,0.0736790886142,0.0737327945322,0.0736302101944,0.0733858180955,0.0732916818796,0.0733031471879,0.0730720307092,0.0730225488521,0.0728584139116,0.0728704826572,0.0728010873698,0.0727419505163,0.072601953067,0.0725331612169,0.0726272974328,0.0724770415498,0.072509627163,0.072404629076,0.0725229027831,0.0724173012589,0.0724269562554,0.0724480765603,0.0724613521804,0.0724673865533,0.0723774743983,0.0724951446682,0.0724649728041,0.0724758346752,0.0723557506562,0.0722290288271,0.0722332528881,0.0722187703934,0.0721379097977,0.0722048913359,0.0721192032419,0.0720775660695,0.0720045501585,0.0719436029931,0.0719586889251,0.0721511854178,0.0720884279406,0.071936965183,0.0719399823694,0.0719254998746,0.0719152414408,0.0719098105053,0.0719031726952,0.0718681733329,0.0717559339986,0.0716841249621,0.0715676615668,0.0715791268751,0.0714886112829,0.0715012834658,0.0714107678736,0.0714246469311,0.0714125781855,0.0714656806662,0.0715272312689,0.0715429206383,0.0716358499796,0.0717233483854,0.0716986074568,0.0716491255998,0.0716286087322,0.0714186125583,0.07153809314,0.0714059403754,0.0713649066403,0.0713576653929,0.0713431828981,0.0712574948042,0.0713226660306,0.0712599085533,0.0714391294259,0.0714397328631,0.0713087869731,0.0713679238267,0.071364303203,0.0713099938477,0.0714741287882,0.0715018869031,0.0715399034518,0.0715085247132,0.0714210263074,0.0714234400565,0.0713842166333,0.071317235095,0.071422233182,0.0714813700356,0.0713980956907,0.0714300778666,0.0714252503684,0.0713908544434,0.0713769753859,0.0715320587672,0.0716092987392,0.071692573084,0.0717378308801,0.071677487152,0.071735417131,0.0717553305613,0.0718880867632,0.0721089448081,0.0721047207472,0.0721542026042,0.0721566163534,0.0721288582384,0.0720311013989,0.0719973089111,0.0719816195418,0.0719840332909,0.0717317965073,0.0716014540545,0.0716509359116,0.0715374897027,0.0716068849901,0.0716823146502,0.0717450721275,0.0717758474288,0.0716998143314,0.0718066227302,0.0720268773379,0.071956275176,0.071990671101,0.0719816195418,0.0719170517527,0.0719556717387,0.0718506736517,0.0718657595838,0.0720051535958,0.0720081707822,0.0719544648641,0.0722060982104,0.0722000638376,0.0723014413009,0.0723388544123,0.0723153203584,0.0724498868721,0.072520489034,0.0724836793599,0.0725035927901,0.0725253165323,0.0724661796787,0.0725886774468,0.0725180752849,0.0725222993459,0.0725186787222,0.0725349715288,0.072443249062,0.0723998015778,0.0722362700745,0.0723153203584,0.0722742866232,0.0721813572819,0.072273683186,0.072269459125,0.0723418715987,0.0723436819106,0.0724685934278,0.0724559212449,0.0724915240445,0.0723720434628,0.0723358372259,0.0724523006212,0.0724685934278,0.0725029893529,0.0725168684103,0.0725530746472,0.072539799027,0.0726333318056,0.0727039339675,0.0727721223803,0.0727618639466,0.0727232439606,0.0727075545912,0.0727473814518,0.0726707449171,0.072471007177,0.0724070428251,0.0724595418686,0.0724311803164,0.0724945412309,0.0725416093389,0.0726049702534,0.0726097977517,0.0725687640165,0.0724872999835,0.0726580727342,0.0728197939256,0.0726924686592,0.0727872083124,0.0727286748961,0.0728053114308,0.0728457417287,0.0729036717077,0.0729803082424,0.0731625463014,0.0731734081724,0.0731673737996,0.0732096144093,0.0732295278396,0.0732240969041,0.0731390122474,0.0730068594828,0.0729682394968,0.0729809116797,0.0730690135228,0.0730865132039,0.0731028060105,0.0730708238346,0.0731299606882,0.0731812528571,0.0732965093778,0.0734135762104,0.0734817646232,0.0734630580675,0.0732856475068,0.0731878906672,0.0730955647631,0.0731160816307,0.0731728047351,0.0731305641255,0.0730472897806,0.0730207385403,0.0729760841814,0.0730672032109,0.0731040128851,0.0732391828361,0.0732971128151,0.0733942662174,0.0732361656497,0.0732651306392,0.0732778028221,0.0732506481444,0.0733834043463,0.0733960765292,0.0734497824473,0.0734021109021,0.0732428034598,0.0731335813119,0.0731353916237,0.073217459094,0.0732922853169,0.0733134056217,0.0732578893918,0.0732530618936,0.0732059937856,0.0732102178466,0.0734226277696,0.0735421083513,0.073429869017,0.0732790096967,0.0732916818796,0.073275389073,0.0731993559755,0.0732078040975,0.0732361656497,0.0731830631689,0.0729543604393,0.0730448760315,0.0730822891429,0.0731088403833,0.073054531028,0.0730756513329,0.0730527207162,0.0728686723454,0.072900051084,0.0729609982494,0.0730183247911,0.0727733292549,0.0728940167112,0.0729839288661,0.0728560001624,0.0728481554778,0.0729078957686,0.0729314298226,0.0728445348541,0.0727691051939,0.0727715189431,0.072872292969,0.0728698792199,0.0727860014378,0.0726960892829,0.0727232439606,0.0728107423663,0.0727835876887,0.0727353127062,0.0728270351729,0.0729296195108,0.0728789307791,0.0728125526782,0.0726954858456,0.072803501119,0.0726067805653,0.0724148875098,0.072501179041,0.0724728174888,0.0723473025343,0.072222391017,0.0722368735118,0.072230839139,0.0722791141215,0.072192219153,0.0722688556877,0.0722054947732,0.0720661007612,0.0721318754248,0.0720522217037,0.0721590301025,0.0720492045173,0.0719653267352,0.0719580854878,0.0720455838936,0.0719985157857,0.0720588595138,0.0721041173099,0.0721632541635,0.072370233151,0.0722954069281,0.0722785106842,0.0722996309891,0.0723623884663,0.0723219581685,0.0723050619246,0.0722700625623,0.0722555800675,0.0722145463324,0.0720630835748,0.0720908416897,0.0721234273029,0.0721578232279,0.0721041173099,0.0721167894928,0.0722296322644,0.0722332528881,0.0721463579196,0.0720087742194,0.0719918779756,0.0719580854878,0.0717577443104,0.0715151625233,0.0713956819416,0.0713353382135,0.0712152541945,0.0712454260586,0.0713130110341,0.0713280969661,0.0713268900915,0.0712882701055,0.0715773165633,0.0717836921135,0.0717716233679,0.071847053028,0.0717722268052,0.0716702459046,0.0716400740405,0.0715742993769,0.0715779200006,0.071533869079,0.0714487844224,0.0712973216647,0.0713057697867,0.0712375813739,0.0712629257397,0.0712574948042,0.0712140473199,0.0712683566752,0.0712176679436,0.0711259454768,0.0710197405153,0.0711174973549,0.0710034477087,0.0710728429961,0.0710758601825,0.0709895686513,0.0709062943064,0.0708875877507,0.0708743121305,0.0708489677647,0.0708169855888,0.0707409524914,0.070810951216,0.0706836259496,0.0706293165943,0.0707542281115,0.070806727155,0.0708031065313,0.0707608659216,0.0707089703154,0.0707264699966,0.0706425922145,0.070671557204,0.0706588850211,0.0706818156378,0.0704633713419,0.0704235444814,0.0703221670181,0.0701888073789,0.0701592389521,0.0701007055359,0.0701176017797,0.0700168277537,0.0700204483774,0.0699848455778,0.0699824318287,0.0698689856198,0.0697579531601,0.0698418309422,0.0699504496528,0.0698919162365,0.069901571233,0.0698430378167,0.0696632135069,0.0695515776098,0.0694242523435,0.0694664929532,0.0695280435559,0.0695057163765,0.0694284764044,0.0693844254829,0.0693234783175,0.0693174439447,0.0692534795929,0.0692311524134,0.0693608914289,0.0693572708052,0.06930959926,0.0691364127603,0.0690700346593,0.0691352058857,0.0690627934119,0.0691454643195,0.0691629640007,0.0690947755879,0.0690603796628,0.0689415025184,0.0688877966004,0.0689173650271,0.0688877966004,0.0687321097818,0.0687296960327,0.0686355598168,0.0687610747713,0.0688129703775,0.0687085757278,0.0687140066633,0.0686126292001,0.0686566801216,0.068528751418,0.0685359926653,0.0684877176828,0.0683772886603,0.0682789283835,0.0681377240597,0.06809548345,0.0680985006364,0.0682300499637,0.0680966903245,0.0613339687126,0.0544964208777,0.0476703383512,0.040887703309,0.0)
m <- c(0.0405504397355,0.047311562153,0.0540938074202,0.0609768388557,0.0678677159211,0.0679835898392,0.0679178072503,0.068050579448,0.0682147341653,0.0680457513681,0.0681320532967,0.068171884956,0.0682799132442,0.0681767130359,0.0682394780749,0.0683209519235,0.0684657943211,0.0684211345819,0.0683360396733,0.068413288952,0.0685110575704,0.0684525171014,0.0684670013411,0.0685237312802,0.0683776818626,0.0682509447647,0.0682068885354,0.0682539623147,0.0684857101508,0.0686142577787,0.06853218042,0.0686329665884,0.0686613315579,0.0686981456673,0.0688122090554,0.0689872269525,0.0691610378296,0.0692461327382,0.0691900063091,0.0692123361787,0.0692763082377,0.0692926030074,0.0693372627466,0.0695261613735,0.0694633963345,0.0694869332242,0.0695448701832,0.0695134876637,0.0695400421033,0.0694688279245,0.0696323791317,0.0696438458215,0.0697247161602,0.0695865123725,0.0697331653001,0.0696963511907,0.0696969547007,0.0697482530498,0.0697657548395,0.0698719725977,0.0698834392876,0.0700210395653,0.0700439729449,0.0701640714329,0.0701423450733,0.0702250259419,0.0702425277316,0.070220197862,0.0702455452815,0.0703046892606,0.0703270191302,0.0703596086696,0.0703674542995,0.0702081276622,0.0702425277316,0.0702376996517,0.0701332924234,0.0701465696432,0.0702684786612,0.0702986541607,0.0702389066716,0.0703107243605,0.0702926190608,0.0705110896771,0.0704537562281,0.0705008300073,0.0706305846551,0.0708031885123,0.0707995674523,0.0708448307016,0.0707995674523,0.0707428375133,0.0707941358624,0.0707736165228,0.0709842415092,0.071120031257,0.0712962561741,0.0713867826726,0.0713922142625,0.071479119701,0.0716245656086,0.0717482851565,0.0718062221156,0.0719196819937,0.0718080326455,0.0717971694657,0.0718164817854,0.0717645799263,0.0718514853648,0.0718086361555,0.0718683836445,0.071960720673,0.0720500401515,0.0720566787614,0.0721315140002,0.0721598789697,0.0722093667889,0.0723004967974,0.0723511916365,0.0724163707154,0.0725201744337,0.0724815497943,0.0724344760151,0.0724030934956,0.0724664620446,0.0724767217144,0.0723886092559,0.0723053248773,0.0722286791085,0.0722178159287,0.0721737596995,0.07214177367,0.0722129878488,0.0723421389867,0.0723711074662,0.072319809117,0.0722932546775,0.0723958513758,0.0724513742948,0.0725310376135,0.0725569885431,0.0726336343118,0.0726161325221,0.0725292270835,0.0726016482823,0.0726378588817,0.0727295924002,0.0726867431909,0.0726668273613,0.0726644133213,0.0725913886125,0.0726167360321,0.0726119079522,0.07274407664,0.072683725641,0.0728140837988,0.0727983925391,0.072805634659,0.0729746174561,0.0729426314267,0.0729293542069,0.0730186736854,0.0731200633637,0.0730615228947,0.0732142109222,0.073101354554,0.0730379860051,0.0730844562743,0.0729728069262,0.0730156561355,0.0732057617823,0.0730814387244,0.0729866876559,0.0729522875865,0.0728219294287,0.0728171013488,0.0729329752668,0.0728949541375,0.072920905067,0.0727501117399,0.0726547571615,0.0726686378912,0.0727796837294,0.0728720207578,0.0729637542763,0.0730609193847,0.0730210877254,0.0730633334247,0.0730313473952,0.073163516083,0.0731496353532,0.0731514458832,0.0732184354921,0.0732431794017,0.0731423932333,0.0731363581334,0.0732057617823,0.0732576636414,0.0732009337024,0.0732305056919,0.0733162041105,0.0732286951619,0.0728991787074,0.0728255504886,0.0728152908188,0.072864175128,0.0728973681774,0.0727929609492,0.0728110662489,0.0728895225476,0.0727995995591,0.0729709963962,0.0731393756834,0.0732274881419,0.0732504215216,0.0731260984636,0.0731116142239,0.0731828284027,0.0730820422344,0.0730862668043,0.073103768594,0.0731104072039,0.0731188563437,0.0729860841459,0.0729553051365,0.0730047929556,0.0729287506969,0.0729715999062,0.0731900705226,0.0730802317044,0.0730464351449,0.0729752209661,0.0729878946759,0.0730651439546,0.0730566948148,0.0730790246844,0.0731804143627,0.0731218738937,0.0730331579252,0.0730271228253,0.0730814387244,0.073104975614,0.0731761897928,0.0732474039716,0.0733940568992,0.0733711235195,0.0731955021125,0.0732920637109,0.0733391374901,0.0733976779591,0.07334275855,0.0732576636414,0.0731267019736,0.0730325544152,0.072923922617,0.0728973681774,0.0729589261964,0.0728285680386,0.0727386450501,0.0725847500026,0.0726897607409,0.0727796837294,0.0727501117399,0.072862968108,0.072921508577,0.0728677961879,0.0729106453972,0.0729034032773,0.0728774523478,0.0730717825645,0.072981256066,0.0728895225476,0.0729969473258,0.0729130594372,0.0728267575086,0.072860554068,0.0727700275695,0.0728430522783,0.0728895225476,0.0728466733383,0.0728484838682,0.0728677961879,0.0728756418178,0.0727627854497,0.0727790802194,0.0726758800111,0.0728346031385,0.0728478803582,0.0728792628777,0.0728913330775,0.0728551224781,0.0727476976999,0.0726909677609,0.0727839082993,0.0729480630166,0.0730192771954,0.0728883155276,0.0727724416095,0.0729625472563,0.0729432349367,0.0729323717568,0.0731140282638,0.0731351511135,0.0730059999756,0.072800806579,0.0728309820785,0.072803220619,0.0728581400281,0.0725913886125,0.0724519778048,0.0724073180656,0.0723089459372,0.0722793739477,0.0724121461455,0.0723771425661,0.0724278374052,0.0724743076745,0.0723270512369,0.0724157672054,0.0724574093947,0.0724990515841,0.0724030934956,0.0723391214367,0.0722335071885,0.0723560197164,0.0722956687174,0.0721725526795,0.0722208334787,0.0721212543303,0.072083836711,0.0720862507509,0.0721840193693,0.07213875612,0.0721580684397,0.0721954860591,0.07213875612,0.0723065318973,0.0723421389867,0.072321619647,0.0724187847554,0.0723578302464,0.0724012829657,0.0724984480741,0.0724290444252,0.0722908406375,0.0722323001685,0.0721580684397,0.0721707421495,0.0721840193693,0.0721206508203,0.0721254789003,0.072021675182,0.0719468399432,0.0719154574238,0.0718019975456,0.0718291554952,0.0717060394572,0.0715835269293,0.071597407659,0.0715750777894,0.0716197375287,0.071598614679,0.0715726637495,0.0716161164687,0.0717084534972,0.0717356114467,0.0718683836445,0.0719540820631,0.0719522715331,0.0720108120022,0.0720150365721,0.0720759910811,0.072018657632,0.0720059839223,0.0719697733229,0.0719359767634,0.071839415165,0.0719245100736,0.0718098431755,0.0717084534972,0.0717271623069,0.0717356114467,0.0716909517075,0.0717392325067,0.0716293936885,0.0717018148873,0.0716191340187,0.0714942074508,0.0716903481975,0.0718321730451,0.0717621658863,0.0717736325761,0.0718128607255,0.0718545029148,0.0721230648603,0.0720524541915,0.072083233201,0.0721562579098,0.0719836540526,0.0718545029148,0.0718442432449,0.0718062221156,0.0718032045656,0.0717627693963,0.0716818990576,0.0717494921765,0.0717108675372,0.0715660251396,0.0718581239747,0.0720041733923,0.0720349524018,0.0720542647214,0.0721254789003,0.0721278929402,0.0721182367804,0.0721816053293,0.0723614513063,0.0724737041645,0.0722522159982,0.0720621103513,0.0720500401515,0.072024089222,0.0720910788308,0.0721598789697,0.0722739423578,0.0721755702294,0.0721230648603,0.072203331689,0.0722793739477,0.0725165533738,0.0725847500026,0.072621564112,0.072564230663,0.072561213113,0.0724906024442,0.0724936199941,0.0724543918448,0.0724700831045,0.0724785322444,0.0724652550246,0.0725123288038,0.0726046658323,0.0727114871005,0.072679501071,0.0727145046505,0.0728865049976,0.0731104072039,0.0732268846319,0.0733288778202,0.0734556149181,0.0735274326069,0.0735666607563,0.0736897767942,0.0737308154736,0.0739191105904,0.0739408369501,0.074006016029,0.0739987739091,0.0740186897388,0.0740301564286,0.0741080092173,0.0742751814845,0.0742975113541,0.0743862273227,0.0744182133521,0.0745033082607,0.0744930485909,0.0745395188601,0.0746572033082,0.0747006560274,0.0746855682777,0.0746741015879,0.0747929930559,0.0750030145324,0.0750838848711,0.07514664991,0.0752450220384,0.0753560678765,0.0755600542531,0.0755594507431,0.0757217949304,0.075870258388,0.0758817250778,0.0759390585268,0.0759746656162,0.0761846870927,0.0762740065713,0.0763778102895,0.0763898804893,0.076529894807,0.076588435276,0.0766161967356,0.0769276078904,0.07695355882,0.0770169273689,0.0770440853184,0.0773277350137,0.0774182615122,0.0774478335017,0.0775643109298,0.0776264724588,0.0777423463768,0.0777411393569,0.0779590064632,0.0782028244992,0.0783530984867,0.0783530984867,0.0785039759842,0.078691667591,0.0788866013178,0.0790676543148,0.0791962019427,0.0793163004307,0.0794581252783,0.0796222799956,0.0796753888747,0.0798232488222,0.0799626596299,0.0800399089086,0.0800731019581,0.0802674321748,0.0804140851024,0.080497369481,0.0806337627387,0.0807472226169,0.0808468017652,0.0808528368651,0.0809300861438,0.0811545918601,0.0813338343271,0.0814702275848,0.0815649786532,0.0816947333011,0.08175810185,0.081820263379,0.0820248532656,0.0822704818315,0.0824473102586,0.0826331913355,0.0828902865912,0.08296391481,0.0830972905178,0.0832433399353,0.083383957763,0.0835686318199,0.0836525197085,0.0837907234962,0.083924099204,0.0839778115931,0.084045404712,0.0842699104283,0.0844352721655,0.0845807180731,0.0848100518693,0.0849597223468,0.0852367334322,0.0853230353607,0.0854932251779,0.0856296184356,0.0858396399121,0.0859446506504,0.0861009597378,0.0863550374436,0.0864413393721,0.0865270377907,0.0865487641503,0.0867255925774,0.0868251717258,0.0869398386238,0.086992947503,0.0871830531498,0.0874618747652,0.087591629413,0.0876218049125,0.087712331411,0.0878499316887,0.0879742547466,0.0881728095333,0.0882995466312,0.0883454133905,0.0885023259879,0.0885662980468,0.0885246558575,0.0888083055528,0.0890557446486,0.0892591275153,0.0894685454818,0.08957536675,0.0897642653769,0.0899881675831,0.0900750730217,0.0902434523089,0.090537361674,0.0908155797794,0.0908004920296,0.0909254185975,0.0910485346355,0.0913327878408,0.0915850550166,0.0919399188907,0.0925011831813,0.0929097594445,0.0934432622757,0.0937413962107,0.0945241486677,0.0951994763465,0.0960190429128,0.0967758444402,0.0974427229791,0.0978549203023,0.0981500366874,0.0985652515605,0.0988772662253,0.0992423897692,0.0994487901858,0.0998030505499,0.0998356400893,0.0998839208885,0.100078251105,0.100361297291,0.100599080227,0.100843501773,0.10098170556,0.101340794004,0.101568920781,0.101535727731,0.101789805437,0.101967840884,0.102066816522,0.102252697599,0.102415041786,0.102457287486,0.102645582603,0.102872502359,0.102937077928,0.103169429274,0.103261162792,0.103338412071,0.103515844008,0.103757851514,0.103841739403,0.104213501557,0.104433782703,0.104387312434,0.104571986491,0.104847187046,0.105045138323,0.105388535507,0.105386724977,0.105464577766,0.105680030832,0.105654683413,0.10580435389,0.106107315905,0.106443470969,0.106656509996,0.106969731681,0.107095865269,0.10760341717,0.107988456544,0.108292022069,0.108779054631,0.109049427106,0.109303504812,0.109640263386,0.109888909502,0.110094706409,0.110468882602,0.110809865747,0.110971002914,0.111275171949,0.111608912973,0.111964380358,0.112076029706,0.112205180844,0.112485209479,0.112818950503,0.112935427931,0.113108635299,0.113438151753,0.113741113768,0.113841899936,0.113959584384,0.114271599049,0.114608357624,0.1148485546,0.114973481168,0.115261958943,0.1154405979,0.11543758035,0.11544784002,0.115636738646,0.115952374371,0.116083336039,0.116153343198,0.116187139757,0.116161792338,0.116144894058,0.116272838176,0.116455701703,0.116738747888,0.116779786567,0.116836516507,0.117030846723,0.117178706671,0.117345878938,0.117553486375,0.117668153273,0.117717037582,0.117762904341,0.117769542951,0.117768939441,0.117768335931,0.11781058163,0.11780816759,0.11780997812,0.117874553689,0.117936111708,0.117980771448,0.118001290787,0.117909557269,0.118042932976,0.118043536486,0.118097852386,0.118048364566,0.118172084114,0.118263214123,0.118189585904,0.118126217355,0.118250540413,0.118290372072,0.118113543645,0.118207087694,0.118129234905,0.118077333046,0.117988617077,0.11782446236,0.117897487069,0.117951802968,0.117999480257,0.118091213776,0.118318737042,0.118243298293,0.118334428302,0.118470218049,0.11841529864,0.118491340899,0.118758092315,0.118898710142,0.118919832992,0.118854653913,0.118851636363,0.118795509934,0.118657306146,0.118682050056,0.118631958727,0.118559537528,0.11843219692,0.118241487763,0.118055606686,0.117990427607,0.117910160779,0.117916195879,0.117912574819,0.117779199111,0.117734539372,0.117753248181,0.117513654715,0.117432784377,0.117346482448,0.117287941979,0.117077920503,0.116962046584,0.116937906185,0.116776165508,0.11661804589,0.116511828132,0.116363364674,0.116176276578,0.11604350438,0.115795461774,0.115678380836,0.115460513729,0.115192555294,0.115016933887,0.114773719361,0.114558869804,0.114481017016,0.114193746261,0.114015107303,0.113823191127,0.113385646384,0.113127344108,0.112796620634,0.112703680095,0.112610739557,0.112295103832,0.111934204858,0.111708492122,0.111467691636,0.111350007188,0.111343972088,0.111273361419,0.111182834921,0.110735030508,0.110481556312,0.110397064914,0.110355422724,0.110311970005,0.11001081852,0.109796572474,0.109710874055,0.10942299979,0.109079602606,0.108994507697,0.10879957397,0.108550324344,0.108305299288,0.108114590132,0.107980610914,0.107655922539,0.107336665755,0.107208721637,0.107234672566,0.1069950791,0.106725310135,0.106614867807,0.106270867112,0.106087400075,0.105910571648,0.105885224229,0.105587693804,0.105352928418,0.105121180581,0.105043327793,0.105066864682,0.104664323519,0.10457741808,0.104357136934,0.104252126196,0.103892434242,0.103800700723,0.103601542427,0.10337462267,0.103113302845,0.102846551429,0.102666705452,0.102687224792,0.102380641717,0.10221829753,0.102031812943,0.101794030007,0.101489860972,0.101285874595,0.101134997098,0.100903249262,0.100823585943,0.100299135762,0.100251458472,0.0999309946677,0.0997499416708,0.0996847625918,0.0995731132437,0.0993709373971,0.0991856598301,0.0989164943746,0.0986968167383,0.0986147393796,0.098291861535,0.0981174471479,0.0980293346894,0.097751116584,0.0975899794167,0.0974680703987,0.097150020634,0.0970492344657,0.09678972517,0.0966062581331,0.0965151281246,0.0963956331466,0.0961397449108,0.0959442076741,0.0957866915667,0.0955108875013,0.0953316450343,0.0950202338794,0.0948735809519,0.0946412296057,0.0942471375823,0.0939984914664,0.0938289051592,0.0936538872622,0.0933310094175,0.0930787422417,0.0929151910344,0.0928608751354,0.0927063765779,0.0924221233727,0.0923267687942,0.0917854203332,0.0912657982319,0.0907365199707,0.0902663856885,0.0896791704683,0.0891160956476,0.0884365433989,0.0877588016802,0.0872210742792,0.0865475571304,0.0862940829346,0.08597120509,0.0857153168542,0.0854364952388,0.085246993102,0.0849319608872,0.084703230601,0.0845360583338,0.0842898262579,0.0842813771181,0.084044197692,0.0838848710547,0.083622947719,0.0834702596916,0.0832149749658,0.0830616834284,0.0829186515607,0.0828281250622,0.0826965598844,0.0824273944289,0.0823320398505,0.082179351823,0.0820906358545,0.0818643196083,0.0817707755598,0.0817170631707,0.0815420452736,0.0811781287497,0.0810284582722,0.0808262824255,0.0806717838681,0.0805124572308,0.0803235586039,0.0802493268751,0.0801123301074,0.0798805822713,0.0797109959641,0.0797622943132,0.0797230661639,0.0796289186055,0.0794013953392,0.0792607775116,0.0790736894147,0.0788552187983,0.0786844254712,0.0784762145246,0.0782583474183,0.0780718628314,0.0778877922844,0.0777996798259,0.0776210408689,0.0774961143009,0.0773283385237,0.077313854284,0.0772631594448,0.0772975595142,0.0772251383154,0.077134008307,0.0770857275078,0.0768364778819,0.0768388919219,0.0766801687945,0.0766300774653,0.0765099789773,0.07635246287,0.0761925327226,0.0761871011327,0.0760543289349,0.0759360409769,0.0759644059464,0.075870258388,0.0757423142701,0.0756638579714,0.0755359138535,0.0754646996747,0.0752860607177,0.0752432115084,0.07514966746,0.0750573304315,0.0750657795714,0.0749438705534,0.0748980037941,0.0748056667657,0.0746360804585,0.074668669998,0.0746427190684,0.0745238276004,0.0745141714405,0.0744176098421,0.0742606972447,0.0741798269061,0.0742311252552,0.0742359533352,0.0743765711628,0.0742293147253,0.0742679393646,0.0741617216064,0.0741037846474,0.074006016029,0.0739698054296,0.0738780719111,0.0738563455515,0.0736909838142,0.0735883871159,0.0736083029456,0.0734598394881,0.073403109549,0.0732932707308,0.07334637961,0.0731568774731,0.0731405827034,0.0729945332858,0.0728756418178,0.0727549398198,0.072683122131,0.0726855361709,0.0727006239207,0.0726469115316,0.0725213814537,0.0725883710626,0.0726408764317,0.0726541536515,0.0726583782214,0.072684932661,0.0726131149722,0.0725322446335,0.0725250025136,0.0723554162064,0.0722504054682,0.0721846228793,0.0721683281096,0.0720717665112,0.0721659140696,0.0720452120716,0.0720071909422,0.0720011558423,0.0718689871545,0.0719558925931,0.0720265032619,0.0720850437309,0.0718587274847,0.0718291554952,0.0717295763469,0.071778460656,0.0718207063553,0.0718605380147,0.0719166644437,0.0718828678843,0.0718339835751,0.0717362149567,0.071780874696,0.0718013940357,0.0718327765551,0.0717621658863,0.0716927622375,0.0715660251396,0.0714923969208,0.0715080881805,0.0714954144707,0.0715056741406,0.0715720602395,0.0714296318818,0.0712739263044,0.0713258281636,0.0713143614738,0.0713270351835,0.0713228106136,0.0713246211436,0.0713511755831,0.0713789370427,0.0713101369038,0.0713662633329,0.0714338564518,0.0713125509438,0.0712509929248,0.0712479753749,0.0711990910657,0.0711049435072,0.0710204521086,0.0710101924388,0.0710687329078,0.0710035538289,0.0711109786071,0.0711526207964,0.071119427747,0.0710144170087,0.0711025294673,0.0712027121256,0.0712214209353,0.0712099542455,0.0711900384158,0.0712190068953,0.0710228661486,0.0709257010402,0.0709172519004,0.0709854485292,0.0709178554104,0.0708466412315,0.070760942813,0.0706734338644,0.0707675814229,0.0708134481821,0.0708490552715,0.0709220799803,0.0709154413704,0.0709522554798,0.0708858693809,0.0709691537595,0.0709118203105,0.0709558765397,0.0707736165228,0.0707929288424,0.0708967325607,0.0709492379298,0.0710958908574,0.0710276942285,0.0711363260267,0.0711139961571,0.0712069366955,0.0711900384158,0.0713282422035,0.0713632457829,0.0712902210742,0.0712328876251,0.0712346981551,0.071298066704,0.0712703052445,0.0712177998754,0.0712914280941,0.071360831743,0.0712727192844,0.0712002980857,0.0712715122645,0.0713197930637,0.0711429646366,0.0711719331161,0.0711701225862,0.0711109786071,0.0710536451581,0.0709546695197,0.0709854485292,0.0710518346281,0.0710433854883,0.0710747680077,0.0711568453664,0.0711538278164,0.0710729574778,0.0712268525252,0.071360228233,0.0715050706306,0.0715280040102,0.0715666286496,0.0716517235581,0.0716541375981,0.0716215480586,0.0715611970597,0.0716849166076,0.0717048324373,0.0716179269987,0.0716650007779,0.0717084534972,0.0715684391795,0.0715298145402,0.0715201583803,0.0716306007085,0.0718110501955,0.071841225695,0.0717506991965,0.0718267414552,0.0717929448958,0.0716945727674,0.0717573378064,0.071781478206,0.0718176888054,0.0716161164687,0.0715823199093,0.0715913725591,0.0716505165382,0.0716420673983,0.0715654216296,0.0717621658863,0.0718937310641,0.0718496748349,0.0718786433144,0.0719933102125,0.0719540820631,0.0720017593523,0.0720693524712,0.0720319348518,0.0720717665112,0.0719697733229,0.0719498574932,0.0719945172324,0.0718943345741,0.0719697733229,0.0720609033313,0.072022278692,0.0647916255023,0.0576273584114,0.0504311052911,0.0432288170709,0.0)
ycorr <- c(6.00953759001e-05,5.99549530345e-05,5.95280066427e-05,5.88072799927e-05,5.77887568175e-05,5.64693484142e-05,5.4851688654e-05,5.32298418111e-05,5.16064016912e-05,4.99814751864e-05,4.8349949693e-05,4.67063094956e-05,4.50480031212e-05,4.33741774714e-05,4.16880034215e-05,3.99945292899e-05,3.82923737998e-05,3.65781969901e-05,3.48598367576e-05,3.31349437788e-05,3.14042290502e-05,2.967431004e-05,2.7943110477e-05,2.62065316486e-05,2.44690833074e-05,2.27245945586e-05,2.09720271774e-05,1.92187458141e-05,1.74618595404e-05,1.56953961855e-05,1.3921176723e-05,1.21326674222e-05,1.03322902117e-05,8.52204402525e-06,6.69967981306e-06,4.86684751509e-06,3.02733815945e-06,1.17713831367e-06,-6.92110521738e-07,-2.57533215127e-06,-4.47372281999e-06,-6.38914610106e-06,-8.32394253264e-06,-1.02828993044e-05,-1.22641532678e-05,-1.42667887055e-05,-1.62942975588e-05,-1.8345994741e-05,-2.04191448124e-05,-2.2511211613e-05,-2.46226778683e-05,-2.67535299938e-05,-2.89052970518e-05,-3.10704308587e-05,-3.32508602183e-05,-3.54507415983e-05,-3.76674456649e-05,-3.98981309655e-05,-4.2139996824e-05,-4.43959435871e-05,-4.66677605327e-05,-4.89522235143e-05,-5.12459467931e-05,-5.35492015514e-05,-5.58662037673e-05,-5.81910473315e-05,-6.05205105873e-05,-6.28563774776e-05,-6.52065001779e-05,-6.75724700678e-05,-6.99484018618e-05,-7.23351953105e-05,-7.47359191791e-05,-7.71460109801e-05,-7.95593248234e-05,-8.19756264229e-05,-8.44015174569e-05,-8.68354784298e-05,-8.92727194945e-05,-9.17072326063e-05,-9.4138240362e-05,-9.65658354726e-05,-9.89880706739e-05,-0.000101407660291,-0.000103832349121,-0.000106262537078,-0.000108695315597,-0.000111129717642,-0.00011356625679,-0.000116005580938,-0.000118449495059,-0.000120897760348,-0.000123349720981,-0.000125802945079,-0.000128252586916,-0.000130693214785,-0.000133126371604,-0.000135552496757,-0.000137968449251,-0.000140375087418,-0.000142774820787,-0.000145165326001,-0.000147546316577,-0.000149920868636,-0.000152287652958,-0.000154652055125,-0.000157015090669,-0.000159377070839,-0.000161736438183,-0.000164095356629,-0.000166453327559,-0.000168805656894,-0.000171153813034,-0.00017350048801,-0.000175843976328,-0.000178183122092,-0.000180517232548,-0.000182844547951,-0.000185163145191,-0.000187474367177,-0.000189775377542,-0.0001920699954,-0.000194362251738,-0.000196651767352,-0.000198938605611,-0.000201226616355,-0.00020351505344,-0.000205803115424,-0.00020809682682,-0.000210395363253,-0.000212698384098,-0.000215012708224,-0.000217334054734,-0.000219660705212,-0.000221990891071,-0.000224320828639,-0.000226646402515,-0.00022896838582,-0.000231285333399,-0.000233592278997,-0.000235891935102,-0.000238182233666,-0.000240455081032,-0.000242708453043,-0.000244943035075,-0.000247162439691,-0.000249369386576,-0.000251565217893,-0.000253749909608,-0.00025592068502,-0.000258079411454,-0.000260224163842,-0.0002623572702,-0.000264479585162,-0.00026659459095,-0.000268698303076,-0.000270789302515,-0.000272867953799,-0.000274931391599,-0.000276983324078,-0.000279025158107,-0.000281051829241,-0.000283063437759,-0.000285059122306,-0.000287037634235,-0.000288998538019,-0.000290942038336,-0.00029286592832,-0.000294768541985,-0.000296650551365,-0.000298509486623,-0.000300347853628,-0.00030216668384,-0.000303969581736,-0.00030575447029,-0.000307516501143,-0.000309255755987,-0.000310971759711,-0.000312670136869,-0.000314350815608,-0.000316011810796,-0.0003176508182,-0.000319265768329,-0.000320858833389,-0.000322430478139,-0.000323987429769,-0.000325537008811,-0.000327079075233,-0.000328609457082,-0.000330123623682,-0.000331622774775,-0.000333111212778,-0.000334593794077,-0.000336065662496,-0.000337528763255,-0.000338981658047,-0.000340415754516,-0.000341828739121,-0.00034322383071,-0.000344607471358,-0.000345980219003,-0.000347340072364,-0.000348686442379,-0.000350018895095,-0.000351336735457,-0.000352638423806,-0.00035392579651,-0.000355205807458,-0.000356475342382,-0.000357729969022,-0.000358972322002,-0.000360198904072,-0.000361412391846,-0.00036261147639,-0.000363798533246,-0.000364973911901,-0.00036613803723,-0.000367287930297,-0.000368423891531,-0.000369553129705,-0.000370668958598,-0.000371774533092,-0.000372871248738,-0.000373960813506,-0.000375038829276,-0.000376104691509,-0.000377161114899,-0.000378208362729,-0.00037924692972,-0.000380273225279,-0.00038128563373,-0.000382292359507,-0.000383283337184,-0.000384260777431,-0.000385222219066,-0.000386172091208,-0.000387105451252,-0.000388023955978,-0.00038892717031,-0.000389813012965,-0.000390687121243,-0.00039154401862,-0.000392388198896,-0.000393222150175,-0.000394043366688,-0.000394852275905,-0.000395651823722,-0.0003964431209,-0.000397226249763,-0.000397999529726,-0.000398761788662,-0.000399509707511,-0.000400244992928,-0.00040096149944,-0.000401667093997,-0.000402361524152,-0.000403043853873,-0.000403711650566,-0.000404362924695,-0.00040500082114,-0.00040562562374,-0.000406241572773,-0.000406848697586,-0.000407451128538,-0.000408047611365,-0.000408633824176,-0.000409211856876,-0.000409779543046,-0.000410337514546,-0.000410887987044,-0.000411429941493,-0.000411962965681,-0.000412482733898,-0.000412989265554,-0.0004134820969,-0.000413964093646,-0.000414431922044,-0.000414886542444,-0.000415330763327,-0.000415766422151,-0.000416194894758,-0.000416610233053,-0.000417013828648,-0.00041740004828,-0.000417763596314,-0.000418099188456,-0.000418403492641,-0.000418674654377,-0.000418908351008,-0.000419097511853,-0.000419234932056,-0.000419319853937,-0.000419353466301,-0.00041934135085,-0.000419291768681,-0.000419209600406,-0.000419101300694,-0.000418970694555,-0.000418820826253,-0.000418656855275,-0.000418486474527,-0.000418314312331,-0.000418145298101,-0.000417980609337,-0.000417816935982,-0.000417654966193,-0.000417494818844,-0.000417333165389,-0.000417170552082,-0.000417009292051,-0.000416848234834,-0.000416685558641,-0.000416520446671,-0.000416349976517,-0.000416174485369,-0.000415993199042,-0.000415803237399,-0.000415605013603,-0.000415402287325,-0.0004151915968,-0.000414970260955,-0.000414740191575,-0.000414500426091,-0.000414252663058,-0.000413996845371,-0.000413735083505,-0.000413468501553,-0.000413201183644,-0.000412929043997,-0.000412651129415,-0.000412373048218,-0.000412098432958,-0.000411825225367,-0.000411551681845,-0.000411277801376,-0.000411000528305,-0.000410718451801,-0.00041043015628,-0.000410134524238,-0.000409831917214,-0.000409522152701,-0.00040920130327,-0.000408869903819,-0.000408526323922,-0.00040817546312,-0.000407816083527,-0.000407453836381,-0.000407089293285,-0.000406723210426,-0.000406356571103,-0.000405991636294,-0.000405628645055,-0.000405263926952,-0.000404900365972,-0.000404535574532,-0.00040416872327,-0.000403798995233,-0.000403422714435,-0.000403042651553,-0.000402661104219,-0.000402275222232,-0.000401884930206,-0.000401492026035,-0.000401099537079,-0.000400703716422,-0.000400309453034,-0.000399915436923,-0.000399523570354,-0.000399129460663,-0.000398732276682,-0.00039832820439,-0.000397919243347,-0.000397508941342,-0.000397094470389,-0.000396675846033,-0.000396252212026,-0.000395821960805,-0.000395387345234,-0.000394950753281,-0.000394514468657,-0.000394079113534,-0.000393644207192,-0.000393208338329,-0.000392766831863,-0.000392323171791,-0.000391878193318,-0.000391434471544,-0.000390990276206,-0.000390545509719,-0.000390096241845,-0.000389643536221,-0.000389184941112,-0.000388721313981,-0.000388254478609,-0.0003877884245,-0.000387318132542,-0.000386844455595,-0.000386366688658,-0.000385884845638,-0.000385398715822,-0.000384909716847,-0.000384420405489,-0.000383926720518,-0.000383430256833,-0.000382927690952,-0.000382416336476,-0.00038189769689,-0.000381372617607,-0.000380841097926,-0.000380305664479,-0.000379764709868,-0.00037921724792,-0.00037866599872,-0.000378117167591,-0.000377568248785,-0.00037702218775,-0.000376478883993,-0.000375936763071,-0.000375393643953,-0.000374847714796,-0.000374296427934,-0.000373740154105,-0.000373179350328,-0.000372610870142,-0.000372032451543,-0.000371449103025,-0.000370858218487,-0.000370259673261,-0.000369655591297,-0.000369043962659,-0.00036842760292,-0.000367809659772,-0.000367190498874,-0.000366566063956,-0.000365937339637,-0.000365301228111,-0.000364655666004,-0.000364004256343,-0.000363346159172,-0.000362683290472,-0.000362015457982,-0.00036133892423,-0.000360651093546,-0.000359951337358,-0.000359244100003,-0.000358528673044,-0.000357806447682,-0.000357074753844,-0.000356332623585,-0.000355581398529,-0.000354820416086,-0.000354051251616,-0.000353275017781,-0.000352495362969,-0.000351708026468,-0.00035091212045,-0.000350107524099,-0.000349296245196,-0.000348479029174,-0.0003476545899,-0.000346823045535,-0.00034598271043,-0.000345133685822,-0.000344273650417,-0.000343403755232,-0.000342526793466,-0.000341641523447,-0.000340744118415,-0.000339833544073,-0.000338908510454,-0.000337968874603,-0.000337014331644,-0.000336046629814,-0.00033506582273,-0.000334069827928,-0.00033305929061,-0.000332034553468,-0.00033099757793,-0.000329949656804,-0.00032889325227,-0.000327829119306,-0.000326757812375,-0.000325677997498,-0.00032458952996,-0.000323493461707,-0.000322387914811,-0.000321269130919,-0.000320136578401,-0.000318990482519,-0.000317830754978,-0.000316655051458,-0.000315461639273,-0.000314249333385,-0.000313020740399,-0.000311773645618,-0.000310507939158,-0.000309231456839,-0.00030794430661,-0.000306647315935,-0.000305335803551,-0.000304011605317,-0.000302672551347,-0.000301322344588,-0.000299957557182,-0.000298579004271,-0.000297187509674,-0.000295779260797,-0.000294354057431,-0.000292908713438,-0.000291447599964,-0.000289973394277,-0.000288485031022,-0.000286981537768,-0.00028546344263,-0.000283933995156,-0.000282388988839,-0.000280828463593,-0.000279254429025,-0.000277664620127,-0.000276059870899,-0.000274434576497,-0.000272792786808,-0.000271134784787,-0.00026946124485,-0.000267767239634,-0.000266056426774,-0.000264329632737,-0.000262581050081,-0.000260813724247,-0.000259026056455,-0.0002572189935,-0.000255393184408,-0.000253545467401,-0.000251676064096,-0.00024979037028,-0.000247888188063,-0.000245965730962,-0.000244025435702,-0.000242071664507,-0.000240100232842,-0.000238115018276,-0.00023611732224,-0.000234108083619,-0.000232087103233,-0.00023005122276,-0.000227998879159,-0.00022593059707,-0.000223845745923,-0.000221739634885,-0.000219615480335,-0.000217474059409,-0.000215310309916,-0.000213125030878,-0.000210915765348,-0.000208679448522,-0.000206418055586,-0.000204130063689,-0.000201820078958,-0.000199493736436,-0.000197151558313,-0.000194787012225,-0.000192402530619,-0.000189997706774,-0.000187568941879,-0.000185120326846,-0.000182655137344,-0.000180174874029,-0.000177674059615,-0.000175149807601,-0.000172598306497,-0.000170022501649,-0.000167425117504,-0.000164802346607,-0.000162162456619,-0.000159508424613,-0.000156834869418,-0.000154142485493,-0.000151430630288,-0.000148701372692,-0.000145955939946,-0.000143195432099,-0.000140416837204,-0.000137622496712,-0.000134811503884,-0.00013197734276,-0.000129119112313,-0.00012623841542,-0.000123336452075,-0.000120413300124,-0.000117470209305,-0.000114364142632,-0.000110953365112,-0.000107120560074,-0.000102767697393,-9.7125979948e-05,-9.26998415476e-05,-8.8769707953e-05,-8.52565914373e-05,-8.20542520103e-05,-7.90334216799e-05,-7.60649558493e-05,-7.32870170966e-05,-7.08420766426e-05,-6.88485613789e-05,-6.74057221938e-05,-6.72833611692e-05,-6.59769355104e-05,-6.42038417708e-05,-6.20447403111e-05,-5.96052466785e-05,-5.70101640447e-05,-5.43911880132e-05,-5.17495705364e-05,-4.90855466712e-05,-4.63966728124e-05,-4.36791773039e-05,-4.09387705232e-05,-3.81742465098e-05,-3.53883866458e-05,-3.2579764833e-05,-2.9748806015e-05,-2.69014918661e-05,-2.40380444334e-05,-2.1156470781e-05,-1.82537600622e-05,-1.53328258484e-05,-1.23946174945e-05,-9.43885468305e-06,-6.46702430368e-06,-3.48037663093e-06,-4.79075763823e-07,2.54259900102e-06,5.58877807096e-06,8.66034484228e-06,1.17502513636e-05,1.48570509034e-05,1.79812288756e-05,2.11218637934e-05,2.42848618956e-05,2.7468685102e-05,3.06764115768e-05,3.39079092852e-05,3.71568136536e-05,4.04185771955e-05,4.36926835281e-05,4.69843379162e-05,5.02969794e-05,5.3632029069e-05,5.69877273288e-05,6.03649173066e-05,6.3761996128e-05,6.71744566091e-05,7.06021604906e-05,7.40487235555e-05,7.75169156909e-05,8.1006613335e-05,8.45154204147e-05,8.80416272237e-05,9.15826241791e-05,9.5140166752e-05,9.87099177141e-05,0.000102295145816,0.000105899714441,0.000109521258788,0.000113162938901,0.000116824211128,0.000120505546212,0.000124205947976,0.00012792396688,0.000131659396718,0.00013541312382,0.000139185254764,0.000142974798376,0.00014678166412,0.000150603798765,0.000154434616836,0.000158277457427,0.000162128249075,0.000165990171649,0.000169861305296,0.000173741412616,0.000177630065407,0.000181528147028,0.000185435580886,0.000189352723508,0.000193281703705,0.000197219192791,0.000201163902813,0.000205113956835,0.000209068912107,0.000213031452677,0.000217003900914,0.000220983971554,0.000224970106274,0.000228961269603,0.00023295479264,0.000236953123161,0.000240958533706,0.00024497135116,0.000248995344471,0.0002530281123,0.000257066437725,0.00026110723225,0.000265151602231,0.000269200653961,0.000273256880317,0.000277320028841,0.000281390809737,0.000285469044481,0.000289545825134,0.000293621777019,0.000297696288153,0.000301770658677,0.000305843371828,0.000309911816836,0.000313976422753,0.000318032724437,0.000322079764856,0.000326116232098,0.000330147404457,0.000334179293211,0.000338209733777,0.000342239807011,0.000346269826855,0.000350301676487,0.000354334426336,0.000358364617542,0.000362395052845,0.000366427005996,0.000370457509135,0.000374479120553,0.000378492383703,0.000382499692408,0.000386499744297,0.00039049252638,0.000394477272706,0.000398458804107,0.000402437048521,0.000406408785952,0.000410374071298,0.000414337168091,0.000418298570483,0.000422255345294,0.000426205290031,0.000430145623552,0.000434075015152,0.000437990517383,0.0004418882036,0.000445769943209,0.000449637932335,0.000453488772553,0.000457319465313,0.000461128620719,0.0004649200172,0.000468695034891,0.000472452192238,0.000476192796726,0.000479918197276,0.000483628542114,0.00048732192835,0.000490995881633,0.000494652769108,0.000498291614181,0.000501909684948,0.000505505183086,0.000509083256775,0.000512642644969,0.000516181310568,0.00051969965735,0.000523198373696,0.000526676168304,0.000530132161039,0.000533565586583,0.000536976556464,0.000540366341501,0.000543729572811,0.000547059071945,0.000550360295317,0.000553633436131,0.000556876266405,0.000560087469519,0.000563267513754,0.000566419026773,0.000569540850345,0.000572630582015,0.000575690214309,0.000578725720343,0.000581736573365,0.000584715803641,0.000587665926852,0.000590587181081,0.000593478823662,0.00059633883731,0.000599168154262,0.000601968730491,0.000604741363255,0.000607488033185,0.000610201686744,0.000612881269059,0.000615526830095,0.000618138271773,0.000620717864271,0.000623263990906,0.000625776653851,0.000628253618149,0.000630691866822,0.000633090554402,0.000635452417613,0.000637785268426,0.000640089974527,0.000642365284305,0.000644606239623,0.000646812997041,0.000648986315542,0.000651129263756,0.000653240774825,0.000655320710872,0.000657367351951,0.000659374001964,0.000661335944584,0.000663256086943,0.000665140320407,0.000666988504939,0.000668801713937,0.000670577009679,0.000672312871594,0.000674008078605,0.000675661495755,0.000677279683049,0.000678863978131,0.000680414693951,0.000681926942097,0.000683399196109,0.000684828129476,0.000686210316007,0.000687549063454,0.000688844610771,0.000690098545696,0.000691311471749,0.000692477714467,0.000693598449111,0.000694671580458,0.000695702925321,0.000696695306175,0.000697653415236,0.000698576251256,0.000699462156486,0.000700309168462,0.000701113979899,0.000701877610251,0.000702600214101,0.000703282382829,0.000703922166593,0.00070451285574,0.000705049340759,0.000705532455953,0.000705965296722,0.000706349763647,0.000706688495401,0.000706983644243,0.000707235101638,0.000707445304423,0.000707610569784,0.000707733045834,0.000707816032305,0.000707861727633,0.000707865564738,0.000707828986171,0.000707748554168,0.00070762614678,0.000707460431996,0.000707246379832,0.00070698379908,0.000706676925915,0.000706327410365,0.000705933443558,0.000705495347497,0.000705013602057,0.000704483692601,0.000703906950441,0.000703277758525,0.000702601806623,0.000701886268493,0.000701128715134,0.000700328092761,0.000699484283094,0.000698597484254,0.000697666510734,0.000696693739046,0.000695679293877,0.000694626599212,0.000693535760599,0.000692400188091,0.000691218300962,0.000689990184896,0.000688712263239,0.000687385389598,0.000686013076135,0.00068459490407,0.000683130295741,0.000681618130336,0.000680058019195,0.000678451982471,0.000676800603455,0.000675099093765,0.000673348441076,0.000671551932166,0.000669704473574,0.000667807021415,0.000665861070268,0.000663869621566,0.000661834754798,0.000659754514341,0.000657629786952,0.000655465646127,0.000653264443357,0.000651026643482,0.000648752183499,0.000646443841766,0.000644101282556,0.00064172529387,0.000639310228446,0.000636858234215,0.000634370515018,0.000631845009788,0.000629281432672,0.000626678114585,0.00062403496673,0.000621353698772,0.000618633485286,0.00061586890329,0.000613064098272,0.000610221736254,0.000607341510818,0.000604425892429,0.000601475773789,0.000598493122537,0.00059548087853,0.000592436110358,0.000589358616922,0.000586250825008,0.000583113896706,0.000579942913694,0.000576736201288,0.000573494245171,0.000570213029152,0.000566893018017,0.000563534080948,0.000560137466977,0.000556705047706,0.000553236660822,0.00054973378734,0.000546197956245,0.000542631799162,0.000539037643048,0.000535416749428,0.000531768335294,0.000528090664399,0.000524380143516,0.000520636783581,0.000516863565394,0.000513061602453,0.000509230239784,0.000505369757456,0.000501476570712,0.000497551763935,0.000493594729957,0.000489609569698,0.00048559827677,0.000481563072552,0.000477504836261,0.000473418540374,0.000469305155697,0.000465164986668,0.000460996886874,0.000456806110632,0.000452594158404,0.000448359122687,0.000444102849332,0.000439822118308,0.000435516884095,0.000431187456928,0.000426834199971,0.000422460026218,0.00041806844204,0.000413656009721,0.000409222416177,0.000404764437926,0.00040028445309,0.00039578365665,0.000391266425441,0.000386731323982,0.00038218365625,0.000377621791943,0.00037304493586,0.00036845089919,0.000363846521153,0.000359232713811,0.000354611759511,0.000349980299391,0.00034533670793,0.000340680857006,0.000336009807009,0.000331321919236,0.000326623027994,0.000321912170923,0.000317187819805,0.000312450953162,0.0003076977413,0.000302929981439,0.00029815146943,0.000293366075464,0.000288578139112,0.000283789573681,0.000278995875342,0.000274197234274,0.000269392047651,0.000264581622135,0.000259767895575,0.000254957696762,0.000250145046245,0.000245326848631,0.000240499721487,0.000235662616428,0.000230820005894,0.000225977388713,0.000221133640161,0.000216289852503,0.000211446920949,0.000206599980969,0.000201746569161,0.000196894421272,0.000192045689855,0.000187201682698,0.00018235804569,0.000177514700069,0.000172669476676,0.000167824796487,0.000162978723162,0.00015812930512,0.000153282519425,0.000148435280497,0.000143588357425,0.000138740636162,0.000133895140082,0.00012905287547,0.000124211750653,0.000119374002313,0.000114539561696,0.000109713001346,0.000104894597332,0.000100083308199,9.52790157835e-05,9.04834103238e-05,8.56967430479e-05,8.09149420259e-05,7.61461374704e-05,7.13937399072e-05,6.66548844076e-05,6.1931154814e-05,5.72184488226e-05,5.25202150406e-05,4.78354884692e-05,4.31656634087e-05,3.85076660524e-05,3.38641549199e-05,2.92346720048e-05,2.46102152664e-05,1.99955198137e-05,1.53900822406e-05,1.07970428557e-05,6.21773404328e-06,1.65255832907e-06,-2.89808085297e-06,-7.43076489567e-06,-1.19452036915e-05,-1.6441259925e-05,-2.09198166234e-05,-2.53779243475e-05,-2.98202149168e-05,-3.42421854737e-05,-3.86473139324e-05,-4.30338964419e-05,-4.73996287042e-05,-5.17475290105e-05,-5.60760498869e-05,-6.03864863011e-05,-6.46741023663e-05,-6.89366001935e-05,-7.31706944794e-05,-7.73795475892e-05,-8.15620344398e-05,-8.57187231566e-05,-8.98513855307e-05,-9.39607138779e-05,-9.80454369759e-05,-0.000102108045558,-0.000106146779428,-0.000110164241761,-0.000114161951135,-0.0001181390387,-0.000122092819613,-0.000126026966476,-0.000129941289301,-0.000133832044012,-0.000137700355084,-0.000141543320612,-0.000145360926455,-0.000149152994255,-0.000152918840949,-0.000156657194256,-0.000160371573615,-0.000164059218152,-0.000167719773069,-0.000171353177631,-0.000174960175185,-0.000178540795958,-0.000182097883117,-0.000185630713014,-0.000189136543417,-0.000192618833947,-0.000196074181726,-0.000199501973086,-0.000202905358291,-0.000206283044952,-0.000209633598051,-0.000212957496942,-0.000216253439126,-0.000219520151234,-0.000222760762461,-0.000225976325275,-0.000229165335147,-0.000232329833585,-0.00023546480944,-0.000238569423579,-0.000241645823677,-0.000244693893289,-0.000247714207856,-0.000250707443282,-0.000253670056921,-0.000256599081252,-0.000259497755707,-0.000262367758528,-0.000265209089743,-0.000268025000463,-0.000270812886126,-0.000273570967587,-0.000276298415122,-0.000278994397085,-0.000281664225705,-0.00028430927436,-0.000286928048386,-0.000289516434846,-0.000292074546892,-0.00029460336598,-0.000297102856763,-0.000299577718405,-0.00030202569905,-0.000304449273955,-0.000306845445237,-0.000309210956318,-0.000311544091457,-0.000313845925861,-0.000316119880974,-0.000318364325219,-0.000320579339665,-0.000322762563421,-0.000324913551464,-0.000327034354498,-0.000329121996221,-0.00033117720055,-0.000333202080732,-0.000335200681437,-0.000337170666014,-0.000339112802077,-0.000341026740247,-0.000342910462997,-0.00034476692408,-0.000346596613705,-0.000348400911125,-0.00035018464697,-0.00035194873586,-0.000353687226374,-0.000355399579755,-0.000357084306059,-0.000358737626968,-0.000360357901648,-0.000361947562234,-0.000363501703654,-0.000365019419379,-0.000366499240201,-0.000367942880621,-0.000369354338652,-0.000370736805716,-0.000372090779426,-0.000373307573062,-0.000374276121044,-0.000374998770156,-0.000375474659516,-0.000375710344638)
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(266)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('A549-100nM-Dex-5h-H3K27ac.pooled.sorted.pseudoRep1.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) : 266',bty='n')
dev.off()