# R script for Peak Model
#  -- generated by MACS
p <- c(0.0427245364016,0.0498583658209,0.0568588822207,0.0639216582629,0.0711100088379,0.0711954839402,0.0711476460229,0.0711416662832,0.0712004084317,0.0713059332493,0.0712566883344,0.0711965391884,0.0713094507432,0.071329852208,0.0712879940303,0.0712236238916,0.071220458147,0.0710132777551,0.0710227749887,0.070932375395,0.0709270991541,0.0709724748257,0.070966495086,0.0709728265751,0.0709341341419,0.0709988560301,0.0710379002126,0.0712074434195,0.0712426183587,0.0711251340618,0.0710537289352,0.0710477491956,0.0710502114413,0.0710294582272,0.0710379002126,0.0710396589595,0.0709112704315,0.0709232299108,0.0708539352806,0.0709007179497,0.0709545356067,0.0708898137186,0.0708599150202,0.0708796129862,0.0708272023268,0.0707705706747,0.0707973036285,0.070744892969,0.0706988137987,0.0706759500882,0.0706780605846,0.0707491139617,0.0706903718133,0.0706643423583,0.0707178082659,0.0707118285262,0.0707698671759,0.070832830317,0.0708877032222,0.0709700125799,0.0709214711638,0.0708852409765,0.0708806682344,0.0709900622953,0.0708950899594,0.0708616737672,0.0709084564363,0.0707863993973,0.0707399684776,0.0706499206332,0.070586957492,0.0705542447986,0.070586957492,0.0705028893873,0.0705851987451,0.0705809777524,0.0705749980127,0.0706414786478,0.0706414786478,0.0706059519592,0.070702683042,0.0706956480542,0.0707420789739,0.0707251950031,0.0707012760444,0.0707251950031,0.0706829850761,0.0706629353607,0.0706274086721,0.0707230845067,0.0706347954093,0.0706323331636,0.0706411268984,0.0706516793802,0.0706562521223,0.0706013792171,0.0706045449616,0.0706453478911,0.070712532025,0.0706696185992,0.0706956480542,0.0707121802756,0.0707083110323,0.0706822815773,0.0707266020007,0.0707751434168,0.0707930826357,0.0707944896333,0.0708535835312,0.0709147879254,0.0709330788938,0.0710565429304,0.0710614674219,0.0711068430934,0.0710702611567,0.0710611156725,0.0711089535898,0.0711005116044,0.0709752888208,0.0708585080227,0.0708922759643,0.0708060973633,0.0708384583073,0.0708483072903,0.0708384583073,0.0708877032222,0.0709091599351,0.0710069462661,0.0711353347942,0.0711926699451,0.0712591505802,0.0712602058283,0.0711606607504,0.07117824822,0.0712820142906,0.0713608061545,0.0713414599379,0.0712443771057,0.0712872905315,0.0713653788965,0.0713073402469,0.0713449774318,0.071484270191,0.07146175823,0.0714385427701,0.0714350252762,0.07150220941,0.0715908502568,0.0716003474904,0.0715810012738,0.0716443161644,0.0717107967995,0.0717846641718,0.071871898021,0.0718880784931,0.0718968722279,0.0719025002181,0.0718602902911,0.0719119974517,0.0720421447268,0.0721008868752,0.072119529593,0.0721909347196,0.0723126400092,0.072463188749,0.0725043434279,0.0725159511578,0.0726088129973,0.0726995643404,0.0727150413137,0.0727006195886,0.0727273525424,0.0727477540071,0.0727688589707,0.0728385053503,0.0728276011191,0.0729172972141,0.073036540258,0.0730678459539,0.073158597297,0.0733696469322,0.0734294443289,0.073438589813,0.0734319065746,0.073360501448,0.0734730612535,0.073520195672,0.0734969802121,0.0734642675187,0.0735339138983,0.0734635640199,0.0735937112949,0.0736506946964,0.0737453152829,0.0737671237452,0.0738624478304,0.0738402876187,0.0738944570251,0.0739669173998,0.0739743041371,0.0740682212247,0.0741181696384,0.0742046999888,0.0742648491349,0.074365449461,0.0744502210645,0.07455117314,0.0746799134174,0.0747625745246,0.074857195111,0.0749521674469,0.0750225173253,0.0751234694008,0.0751561820942,0.0753113035761,0.0753292427951,0.0755357196882,0.0755849646031,0.0757516938149,0.0758347066714,0.075930382506,0.0760499772993,0.0761094229466,0.076189621808,0.0761794210756,0.0762765039078,0.0763373565526,0.076423886903,0.0765097137547,0.0766384540322,0.0767309641223,0.0767260396308,0.0768428204289,0.0770088461419,0.0771242199425,0.0772360762492,0.0773363248259,0.0774474776338,0.0774295384148,0.0774858183175,0.0776367188067,0.0777556101012,0.0778435474492,0.0779279673033,0.0781471071745,0.0782638879726,0.0782874551819,0.0784805655981,0.0786722690168,0.0787447293915,0.0788576409463,0.0791126592555,0.0792800919661,0.0794724988836,0.0795351102754,0.0797067639787,0.0798717344435,0.0799459535652,0.0801752941688,0.0803472996215,0.080474281152,0.080482371388,0.0805059385973,0.0806111116655,0.080712063741,0.0808379900234,0.0809853730186,0.08122174861,0.0813089824593,0.0815246048366,0.0816593248537,0.0818246470679,0.0820170539854,0.0821081570779,0.0823575473968,0.0825643760393,0.0828426098084,0.0828964274654,0.0830276299886,0.0831595360106,0.0833790276312,0.0835992227506,0.083777207943,0.0839850918337,0.0841690567657,0.0842946312986,0.0844212610797,0.084628793221,0.0847927084377,0.085001999326,0.0851145591314,0.085264052623,0.0854705295161,0.0856822826501,0.0858180579154,0.0860210173146,0.0861385016115,0.0863101553148,0.0865690428674,0.0868082324539,0.0870938529602,0.0874990682598,0.0878525763988,0.0882975393797,0.0887892850297,0.0892307305167,0.0897010194538,0.0901790468775,0.0905923524132,0.0909328458246,0.091314493915,0.0916950867571,0.0920886943268,0.0923243664194,0.0926342576338,0.0928963109308,0.0931974084104,0.0934506679726,0.0935913677294,0.093846737788,0.0940535664305,0.0941488905158,0.0942051704185,0.0944742587034,0.0945671205429,0.0947570652145,0.0949262566721,0.0951091663559,0.0954718199791,0.0956666891423,0.0958597995585,0.0960821051742,0.0963635046879,0.0965084254374,0.0966716371553,0.0968394216152,0.0969970053429,0.0971746387858,0.0972861433431,0.0975098559564,0.0977251265843,0.0979537636891,0.0981971742684,0.0984156106408,0.0986744981934,0.0989077080403,0.099149711622,0.0992496084493,0.0995035715103,0.0997360778584,0.100009035387,0.100211994786,0.100327720336,0.100482841818,0.100659771762,0.100830370217,0.100968607728,0.101161718144,0.101350959317,0.101514171035,0.101674217008,0.101810695773,0.102056216848,0.102192343863,0.102314049152,0.102520877795,0.102787503834,0.103049908881,0.103104781786,0.103222266083,0.103283822226,0.103480801886,0.103584919706,0.103820591798,0.104012295217,0.104145608237,0.104289825487,0.104498412877,0.104705593269,0.104862825247,0.10494232061,0.105026036965,0.105242011092,0.105411554299,0.105576876513,0.105743605725,0.10587938099,0.105889229973,0.106061938924,0.106263843075,0.106540669847,0.10678759792,0.106898750728,0.106940257156,0.107107338117,0.10720442095,0.107324367492,0.107583958544,0.107764757731,0.10795048141,0.108159068799,0.108263890118,0.108480919493,0.108732772058,0.108900204768,0.109013819822,0.109191453265,0.109416572876,0.109574860102,0.109682847166,0.109761639029,0.11005640502,0.110257957422,0.110440867105,0.110663524471,0.110944923984,0.111132054661,0.11130019087,0.111467271831,0.111643146527,0.11188444661,0.111955499987,0.112074039533,0.112230216263,0.112425437175,0.11263683856,0.11282748673,0.112936529042,0.113105017001,0.113387823512,0.1135679192,0.113809922782,0.113953436534,0.114179611393,0.114253830515,0.114453975919,0.114663970306,0.114874668192,0.115134259243,0.115197574134,0.115348122873,0.115457516934,0.115515203835,0.115564097,0.115692133779,0.115744192689,0.115721328978,0.115839516774,0.11580715583,0.115862028735,0.115936599606,0.115949966083,0.116144131747,0.116178251439,0.116238048835,0.116287997249,0.116429400504,0.116381914336,0.116473720928,0.11655919603,0.116493770643,0.116532814826,0.116587687731,0.116561658276,0.116584170237,0.116595074468,0.116556382035,0.116557789032,0.116612661938,0.116578893996,0.116558492531,0.116564472271,0.116516634354,0.116544422556,0.116529649081,0.11655321629,0.116685122312,0.116654168366,0.116578190497,0.116576080001,0.116743864461,0.116763914176,0.116818435332,0.116858183013,0.116833912305,0.11672100075,0.116642560636,0.1166921573,0.116722759497,0.116641857137,0.11642623476,0.116311212709,0.116155739477,0.116130765271,0.116085741348,0.116176140942,0.116040365677,0.116103328818,0.116011522227,0.116035792935,0.116129006524,0.116257395052,0.11624684257,0.116259505548,0.11624121458,0.116140262504,0.116196894156,0.116052676906,0.116004487239,0.115816653064,0.115781829874,0.115622487399,0.115484601637,0.115320686421,0.115197222384,0.115152198462,0.114925320104,0.114778288858,0.114700552243,0.114748741909,0.114582012698,0.114410710744,0.114313627911,0.11412931123,0.113985093979,0.113819420016,0.113744497395,0.113578823432,0.113404003984,0.113190843852,0.113030797879,0.112924569562,0.11280427127,0.112711409431,0.112472219844,0.112220719029,0.111932636277,0.111707868415,0.111454960603,0.111283306899,0.111059946035,0.11069869941,0.110416948147,0.110173537568,0.110019823083,0.109811939193,0.109624456767,0.109479887766,0.109334263518,0.109066582231,0.108759505012,0.108547751878,0.108223790688,0.10799093259,0.107717975062,0.107368687916,0.107160100526,0.106889253494,0.106577251784,0.106320474727,0.106166408494,0.106029226231,0.105969077085,0.105710541282,0.105514265121,0.105319395958,0.105078799374,0.104938451366,0.104761873171,0.10469328204,0.104475197417,0.104232138587,0.103976768528,0.103924357869,0.103717529227,0.103625019136,0.103485726377,0.103337639883,0.103216989842,0.102973579262,0.102711877715,0.102547610749,0.102417111724,0.102154706678,0.102035463634,0.101856423193,0.101618640604,0.101340406835,0.101102624246,0.100850068183,0.100750874854,0.100635501054,0.100445908132,0.100235210246,0.100121946941,0.099973508698,0.0998183872162,0.0996101515761,0.0993751829822,0.0991616711013,0.0988567043784,0.098406816906,0.0980212995724,0.0976248780076,0.0970620789804,0.0965031491965,0.0960789394297,0.0956578954075,0.0952273541517,0.0948073653776,0.0944686307131,0.0942157229002,0.0939051281871,0.0936043824569,0.0934193622767,0.0933064507219,0.0931467564979,0.0929026424199,0.092807670084,0.0926680255754,0.0924446647115,0.0922533130422,0.0921435672319,0.0920429669058,0.0919015636502,0.0918108123071,0.0916120739006,0.0914172047374,0.0911692214161,0.0910612343527,0.0909486745473,0.0908259140095,0.0906690337806,0.0905142640481,0.090307787155,0.0900865367874,0.0900035239309,0.0899651832472,0.0898635276729,0.0895677064342,0.0894435388989,0.0892750509401,0.0890393788474,0.088874760132,0.0888642076502,0.0886883329542,0.0884533643603,0.0882862833991,0.0880467420632,0.0880326720875,0.0878307679365,0.0876510239972,0.0874287183814,0.087280280138,0.0870537535295,0.0869700371742,0.0868427038943,0.0867294405901,0.0865978863175,0.0864181423782,0.0862897538501,0.0861764905459,0.0861800080398,0.085887704295,0.0857452457913,0.0855623361074,0.0853825921681,0.0851711907835,0.0850385812627,0.0849115997322,0.0848366771117,0.0847153235715,0.0845612573378,0.0845647748317,0.0843329719824,0.0841553385394,0.084003382802,0.0837838911814,0.08365163341,0.0835155063953,0.0833589779159,0.0832337551323,0.0830571769375,0.0829924550494,0.082844016806,0.0826526651367,0.082480659684,0.0824781974383,0.0823287039467,0.0821552914964,0.0819428348637,0.0817754021531,0.0816026932016,0.0813645588632,0.081327625177,0.081203809391,0.0811056713107,0.0808918076803,0.0807704541401,0.0806202571497,0.080526340062,0.0803465961227,0.080194288636,0.0800609756164,0.0798224895286,0.0797728928643,0.0795646572243,0.0795045080782,0.0792547660099,0.0791203977422,0.0789462817931,0.0788404052261,0.0786926704815,0.0786363905788,0.0785554882186,0.0783437350846,0.078319816126,0.0781643428947,0.0781245952134,0.0779930409408,0.0778790741378,0.0777953577825,0.0778280704759,0.0776669692544,0.0775702381716,0.077482652573,0.0773074813758,0.0771038184778,0.0769705054582,0.0768952310883,0.0767059899154,0.0765951888569,0.0763405222971,0.0762269072435,0.0761730895865,0.0761115334429,0.0760049533771,0.0759384727421,0.0759170160291,0.0757808890144,0.0758308374281,0.0756612942212,0.0755842611043,0.0754952685081,0.0754112004034,0.0752891433644,0.0751881912889,0.0751361323789,0.0750077438508,0.0749423184639,0.0747397108141,0.0746630294466,0.0746461454758,0.074461477045,0.074287361096,0.0741593243173,0.0740868639425,0.0739669173998,0.0738677240713,0.073782248969,0.0737294865602,0.0736197407499,0.0734551220345,0.0734248715868,0.0733408034821,0.0732831165818,0.0732616598689,0.0732616598689,0.0732096009589,0.0730847299247,0.072972873618,0.0730727704454,0.0729799086059,0.0728859915182,0.0728071996544,0.0728353396058,0.0727783562042,0.0726738866348,0.0725155994084,0.0724498222721,0.0724747964789,0.0722767615712,0.0723559051844,0.0723404282112,0.0723228407416,0.0721582220261,0.0720238537584,0.0719566696245,0.0719570213739,0.0718968722279,0.0718532553033,0.0717927544078,0.0717523032278,0.0716566273931,0.0715736145366,0.0715528613225,0.0715968299965,0.0715943677507,0.0715890915099,0.071539846595,0.0715117066436,0.0714540197433,0.0713748761301,0.0714832149429,0.0715088926485,0.0714540197433,0.0714350252762,0.0714132168139,0.0713185962274,0.0713136717359,0.0712398043636,0.0712531708405,0.0712215133952,0.0711476460229,0.0710991046068,0.0710692059085,0.0709897105459,0.0709788063147,0.0710600604243,0.0710575981785,0.0711205613197,0.0711121193343,0.0711230235655,0.0711040290983,0.0710491561931,0.0710491561931,0.0710537289352,0.070930616648,0.0708834822295,0.0708855927258,0.070828257575,0.0707930826357,0.0707586111953,0.0707572041978,0.0707944896333,0.0708032833681,0.0707737364192,0.0707944896333,0.0707512244581,0.0708423275506,0.0708356443122,0.0708426793,0.0709429278767,0.0708746884947,0.070916194923,0.0710234784875,0.0709883035483,0.0710519701883,0.0711265410594,0.0710424729547,0.0709791580641,0.0710670954121,0.0709221746626,0.0709351893901,0.0708532317818,0.0708891102198,0.0709819720593,0.0709777510666,0.0709668468354,0.0710583016773,0.0710927731177,0.0709281544023,0.0710720199036,0.0711673439888,0.0712496533466,0.07112618931,0.0711152850788,0.0711212648185,0.0711993531835,0.0710660401639,0.0712334728745,0.071336183697,0.0713506054221,0.0712890492785,0.0712517638429,0.0712345281227,0.0712872905315,0.0713389976921,0.071284124787,0.0713270382128,0.0712728688064,0.071328093461,0.0712215133952,0.0712317141276,0.0713171892298,0.0713572886605,0.0713312592055,0.0713671376435,0.071390001354,0.0714262315414,0.0713695998893,0.0713491984245,0.0714167343078,0.0713896496046,0.0713667858941,0.0713404046897,0.0713548264148,0.0713249277165,0.0713400529403,0.0713506054221,0.0713358319476,0.0713678411423,0.071284124787,0.0713664341447,0.0714603512324,0.071476179955,0.071459999483,0.0714089958212,0.0713484949257,0.0713938705973,0.0714346735268,0.0714279902883,0.0714638687263,0.0714916569283,0.0714202518017,0.071388242607,0.0713579921593,0.0714227140474,0.0715141688894,0.0714561302397,0.0714993954149,0.0715324598578,0.071582056522,0.0715679865463,0.0715416053419,0.0716123069697,0.0716654211279,0.0716249699479,0.0716070307289,0.0716531098992,0.0715549718188,0.0715950712495,0.0715208521278,0.0714575372373,0.0714765317044,0.0714385427701,0.071451909247,0.0714543714927,0.0713794488722,0.071336183697,0.0714406532664,0.0713643236484,0.0714378392713,0.0715173346339,0.0715623585561,0.0716583861401,0.0716801946024,0.0718261706001,0.0719679256051,0.0720470692183,0.0720161152718,0.0720463657195,0.0720970176319,0.0720453104713,0.072021743262,0.0720829476562,0.0721350065663,0.0720530489579,0.071951745133,0.0719186806902,0.0719088317072,0.0718831540016,0.0718894854906,0.0719911410649,0.0720382754835,0.072013653026,0.0719580766221,0.0719440066464,0.072025260756,0.0720329992426,0.0720759126684,0.072165257014,0.0721153086003,0.0721592772743,0.072111439357,0.0720393307316,0.0720206880139,0.0720147082742,0.0720534007073,0.0720808371599,0.0720389789822,0.071945413644,0.0719489311379,0.0719313436683,0.0720386272329,0.0720256125053,0.0720840029044,0.0721466142962,0.0720358132377,0.0721262128315,0.0722137984301,0.0723080672671,0.0723836933864,0.0723636436711,0.0722275166564,0.0723960046151,0.0723868591309,0.0724065570969,0.072481127968,0.0723326897246,0.0722992735323,0.0722845000579,0.072251435615,0.0722841483085,0.0723478149484,0.072305253272,0.0723748996516,0.0723977633621,0.0724199235738,0.0725750450557,0.0726594649097,0.0727326287833,0.0727255937954,0.0727094133234,0.0727312217857,0.0726425809389,0.0725855975374,0.0725454981067,0.0725694170654,0.0724431390337,0.0723333932234,0.0723523876905,0.0724072605957,0.0724216823208,0.0724772587247,0.0725606233306,0.0726081094985,0.0727329805327,0.0726675551458,0.0727681554719,0.0728666453016,0.0727442365132,0.0727234832991,0.0727407190193,0.0726963985959,0.0726939363502,0.072622882973,0.0725571058367,0.0725286141359,0.072499067187,0.0723520359411,0.0723868591309,0.0724283655592,0.0724065570969,0.0724357522964,0.0723639954205,0.0723967081139,0.0724062053475,0.0724083158439,0.0724695202381,0.0725310763817,0.0726010745107,0.0726376564474,0.0726320284572,0.0725848940386,0.0725514778464,0.072585245788,0.0725820800435,0.0726545404183,0.0726555956664,0.0727115238198,0.0726876048611,0.0726401186932,0.0726432844377,0.0726594649097,0.0727818736982,0.0727762457079,0.0727175035594,0.0726967503453,0.0725736380581,0.072648912428,0.0727400155205,0.0727755422091,0.0726795146251,0.0726791628757,0.0725859492868,0.0725469051043,0.0725381113695,0.0725855975374,0.0726598166591,0.072489218204,0.0724016326054,0.0723471114496,0.0723580156808,0.0723720856565,0.0723203784959,0.0723724374059,0.0723970598633,0.072377010148,0.0723748996516,0.0724473600264,0.072331282727,0.0722795755664,0.0723027910263,0.0723629401723,0.072461430002,0.0724055018487,0.0723974116127,0.0723896731261,0.0723601261771,0.0723365589679,0.0723267099849,0.0723548499363,0.0724026878536,0.0722236474131,0.0720906861429,0.0720956106344,0.0721262128315,0.0720428482256,0.0719816438313,0.07195350388,0.0720417929774,0.0720249090066,0.0719471723909,0.0719169219432,0.0719348611622,0.0718585315441,0.0717206457825,0.0716728078652,0.0717582829674,0.0716478336583,0.0716562756437,0.0716038649843,0.0716502959041,0.0717252185246,0.0717354192569,0.0716608483858,0.0717192387849,0.0716527581498,0.0716130104685,0.071661903634,0.0716485371571,0.0717041135611,0.0716383364247,0.0715584893128,0.0715472333322,0.0716203972058,0.0715187416315,0.0715088926485,0.0714642204757,0.07146175823,0.0713425151861,0.0711694544852,0.0710526736871,0.07112618931,0.0711012151031,0.0710329757211,0.0710737786506,0.0711121193343,0.0710730751518,0.0710850346311,0.0710354379668,0.0710590051761,0.0710896073732,0.0710435282029,0.0710604121737,0.0710160917503,0.0709176019205,0.070922526412,0.0708599150202,0.0707747916674,0.0707649426844,0.0707723294216,0.0707582594459,0.0707069040347,0.070678412334,0.070642533896,0.0706347954093,0.0706456996405,0.0705778120078,0.0705422853192,0.0705957512268,0.0704768599323,0.0704599759615,0.0704156555381,0.0703256076938,0.0703847015916,0.0703066132266,0.0701704862119,0.0702070681487,0.0701451602557,0.0701194825501,0.0701986261633,0.0702651067983,0.0702594788081,0.0703284216889,0.0702756592801,0.0703115377181,0.0703540993945,0.0703045027302,0.0703308839346,0.0702133996377,0.070155360988,0.0699956667641,0.0700037570001,0.0698620019951,0.0697708989026,0.0696766300655,0.0695858787224,0.0695851752236,0.0695359303087,0.0695229155812,0.0694603041894,0.0694631181846,0.0693948788025,0.0694128180215,0.0624956662276,0.0555971571516,0.0486768396132,0.0416879309433,0.0)
m <- c(0.0413099417378,0.0482070655633,0.0551164987731,0.062009753935,0.0689469711833,0.0690408742001,0.0690556454611,0.0690999592443,0.069091166827,0.069104882998,0.0691449764209,0.0692121504891,0.069262443116,0.0693844818681,0.0694112108167,0.0693479054121,0.0693531808625,0.0695068723169,0.0695747497784,0.0696373517896,0.0696626739514,0.0696781486059,0.0696739282456,0.069666542615,0.0696953817438,0.0697446192806,0.0698079246852,0.069693974957,0.0697112080949,0.069740750617,0.0697558735748,0.0697970220877,0.0698163654058,0.0697762719829,0.0698212891595,0.0698525901651,0.069925743077,0.0699985442922,0.0700840065884,0.0701413331491,0.0702433251898,0.0702215199949,0.0702904525465,0.0703558681312,0.0703738046625,0.0704364066737,0.0704923264477,0.0704926781444,0.0704786102767,0.0705197587897,0.0705651276629,0.0706189372568,0.0706143651998,0.0705788438339,0.0705806023174,0.0705851743744,0.0705063943154,0.0705742717769,0.0706196406502,0.0706667680069,0.070672395154,0.0706488314756,0.0707040478562,0.0708496502867,0.0709129556912,0.070923506592,0.0710058036179,0.0710729776861,0.0711260838866,0.0711549230153,0.0712238555669,0.0713293645745,0.0714345218854,0.0713817673816,0.0713469494091,0.0714070895434,0.0714239709846,0.0714225641979,0.071391614889,0.0713659410305,0.0713068559862,0.0712903262417,0.0712737964972,0.0713954835526,0.0714165853541,0.0714303015251,0.0715966540604,0.0717193962059,0.0717805914302,0.0717524556949,0.0717981762648,0.0718544477356,0.0719047403625,0.0719026301824,0.0720074357965,0.0720876226423,0.0720179866973,0.0719961815024,0.072092546396,0.0721741400285,0.0721368601792,0.0722479963338,0.0721938350433,0.0721407288428,0.0721509280469,0.0721111863207,0.0720865675522,0.072074258168,0.0720141180337,0.0720521012764,0.072087974339,0.0720918430026,0.0721716781517,0.0723063779847,0.0723753105363,0.0723921919775,0.0723781241098,0.0723900817974,0.0723559672183,0.0723605392752,0.0724372091541,0.0723862131338,0.0723633528488,0.0723408442605,0.0723018059277,0.072403094575,0.0725152858197,0.0725346291378,0.0725958243622,0.0725518622757,0.0725040315256,0.0725142307296,0.0725694471103,0.0725729640772,0.0726264219743,0.072602858296,0.0725511588823,0.0726134091967,0.072551510579,0.0726932443458,0.072732986072,0.0728019186236,0.072760418414,0.0728015669269,0.0728100076475,0.0727424818827,0.0728599485778,0.0728497493737,0.0730136400322,0.0729872627803,0.0730044959182,0.0730164536057,0.0730839793706,0.073094881968,0.0730931234845,0.0731423610214,0.0730632292657,0.0730227841462,0.0729935933207,0.072955610078,0.0729214954989,0.0729781186663,0.0729893729604,0.0729928899273,0.0729359150633,0.0729341565798,0.0729911314439,0.0730090679752,0.0729433006938,0.0730329833502,0.0731346236942,0.0730625258723,0.0730934751812,0.0730565470286,0.0731849163211,0.0732605311099,0.0732703786173,0.0732246580473,0.0732872600585,0.0732672133471,0.073276357461,0.0732527937827,0.0732218444738,0.0732454081522,0.0731592424626,0.0730491613981,0.0729865593869,0.0730196188759,0.0730656911426,0.0730062544016,0.0729619406185,0.0729742500027,0.0729524448078,0.0728522112506,0.0728571350043,0.0728916012801,0.0729250124658,0.0729091861147,0.0728367365961,0.0728191517615,0.0727519776934,0.0727576048404,0.0728103593442,0.0728086008608,0.0728356815061,0.0728486942837,0.0728124695244,0.0728736647488,0.0728110627376,0.0728546731274,0.0729953518042,0.0729383769401,0.0727379098257,0.0727860922725,0.0727839820923,0.0727059054267,0.0726355660883,0.0725954726655,0.0726397864486,0.0725866802482,0.0725775361342,0.0726408415387,0.0728230204251,0.0727896092394,0.0726872655021,0.0727783549453,0.0727878507559,0.0727076639102,0.0726644052171,0.0726774179947,0.0725916040018,0.0724860949943,0.0724431879979,0.0724185692294,0.0723865648305,0.0723141153119,0.0722961787806,0.072342602744,0.072371090176,0.0722698015287,0.0722747252824,0.0723236111226,0.0721709747583,0.0721287711553,0.0721224406148,0.0720693344143,0.072110834624,0.072083402282,0.0720450673426,0.0720243172378,0.0719300625243,0.0718783631106,0.0719286557376,0.0720011052561,0.0720355715319,0.0720633555706,0.0720324062617,0.0719982916826,0.0720211519675,0.0721259575817,0.0721319364255,0.0721006354199,0.0721523348336,0.0721150549843,0.0721428390229,0.0721238474016,0.0721435424163,0.0721516314402,0.0721878561995,0.0721002837232,0.0722096613944,0.0721871528061,0.0722209156886,0.0722444793669,0.0721533899237,0.0721818773557,0.0722001655837,0.072218102115,0.0721889112896,0.0722219707786,0.0721628857344,0.0721270126718,0.0719645288001,0.0718780114139,0.0718857487411,0.0719072022393,0.0717939559045,0.0717492904247,0.0716775442995,0.0716652349153,0.0716079083545,0.0716814129631,0.0717394429173,0.0717725024063,0.0718045068053,0.0716487051708,0.071633582213,0.0716691035789,0.0716585526781,0.0716634764318,0.0716954808308,0.0716574975881,0.0715811794059,0.0716057981744,0.0715660564482,0.0716110736247,0.0716529255311,0.0716219762222,0.0716571458914,0.0716261965825,0.0715389758029,0.0716114253214,0.0716416712369,0.0716719171524,0.0717355742537,0.071791142331,0.0717834050038,0.0717746125865,0.0717084936084,0.0717317055901,0.0716645315219,0.0715832895861,0.071586806553,0.0714696915546,0.0714077929368,0.0714088480269,0.0714992340767,0.0715245562385,0.0715790692258,0.0715463614334,0.0716620696451,0.0717046249448,0.0717000528878,0.0717070868216,0.0717095486985,0.0716567941947,0.0715108400675,0.0715175223047,0.0714310049185,0.0714165853541,0.0713726232676,0.0713191653704,0.0712966567821,0.0713771953246,0.0713360468116,0.0713877462254,0.0713919665857,0.0713617206702,0.0714306532218,0.0714587889571,0.071479539062,0.0714401490325,0.0715287765988,0.0715094332808,0.071610721928,0.0715716835952,0.0716065015677,0.0714960688065,0.0715382724095,0.0715291282955,0.0714538652034,0.0715023993469,0.0714390939424,0.0713416739587,0.0713416739587,0.0712755549806,0.0712453090651,0.0712885677582,0.0712963050855,0.0712723897104,0.0713001737491,0.0712572667527,0.0712178767232,0.0713416739587,0.0713462460157,0.0714137717806,0.0714222125012,0.0714405007291,0.071321978944,0.071318461977,0.0713757885378,0.0714186955343,0.0713191653704,0.0712864575781,0.0711823553573,0.0711665290061,0.0711433170245,0.0711197533461,0.0711485924748,0.071099354938,0.0710990032413,0.0711056854784,0.0712875126682,0.07131283483,0.0713293645745,0.0713434324422,0.0714865729958,0.0715087298874,0.0715716835952,0.0716733239392,0.0715657047515,0.0716131838049,0.0716029846008,0.0715716835952,0.0716293618527,0.0716666417021,0.071629010156,0.0716448365072,0.0716525738344,0.07177742616,0.0719553846861,0.0719698042505,0.0720317028683,0.0720911396092,0.0720992286331,0.0721083727471,0.0721076693537,0.0722571404478,0.0722975855674,0.0722796490361,0.0723373272936,0.0723682766025,0.0723517468579,0.0723869165271,0.0724913704446,0.0725743708639,0.0727041469433,0.0726573712832,0.0726728459377,0.0726612399469,0.0726640535204,0.0727583082338,0.0728124695244,0.0729440040872,0.0730097713686,0.0730037925248,0.0730660428393,0.0731708484535,0.0733153957938,0.0734588880442,0.0735003882538,0.073600621811,0.0738102330394,0.0739101148999,0.0739748270912,0.0741299253324,0.0742104638748,0.0742976846544,0.0743613417557,0.0745016687357,0.0746479745596,0.0746968603998,0.0747147969311,0.0747506699936,0.0748378907732,0.0749950991945,0.0750278069869,0.0751382397481,0.0752553547466,0.0752782150315,0.0753432789195,0.0755360087067,0.0756014242914,0.0757224079534,0.0757930989885,0.0758982562994,0.0760610918678,0.0761929781272,0.0763311949272,0.0764862931683,0.0766568660639,0.0767831251763,0.076899888478,0.0770486561787,0.0771643643904,0.0772434961461,0.0773694035618,0.0775016415179,0.077543845121,0.0775642435291,0.0777101976562,0.0777685793071,0.0779317665722,0.0780028093039,0.0781434879807,0.07827220897,0.0783636501099,0.0784512225862,0.0786130030644,0.0788468813646,0.0789967041553,0.079131755685,0.0791890822458,0.0793255405623,0.0794964651546,0.0795618807393,0.0796279997174,0.0797517969529,0.0798400728226,0.0799047850139,0.0799406580765,0.0799913024001,0.0801938796947,0.0803074777262,0.0804010290462,0.0804509699765,0.0806989161443,0.0808448702715,0.0809602267864,0.0810861342021,0.0811603422041,0.0812686647852,0.0814589326956,0.0815380644513,0.0817719427514,0.0819449775238,0.0819449775238,0.0820578721619,0.0822411061384,0.0823476702361,0.0825660738818,0.0828034691488,0.0828463761452,0.0830278516383,0.0830563390703,0.0833296074,0.0836197571708,0.0837650079046,0.0839457800042,0.084183526968,0.0843671126412,0.084466642805,0.0846305334634,0.0847824664343,0.0848886788353,0.0849600732638,0.0850377982327,0.0852329898967,0.085367338033,0.0854672198935,0.0855941823993,0.085687030326,0.0858540862547,0.0860253625436,0.0861301681578,0.0863112919542,0.0864220764121,0.0865395431072,0.0866235986166,0.0867533746959,0.0868919431926,0.0870487999172,0.0871652115222,0.0873600514895,0.0876459809001,0.0878313250567,0.0879765757905,0.0881172544673,0.0882737594952,0.0884840741169,0.0886282697606,0.0887566390532,0.0888948558531,0.0890049369177,0.0891649589125,0.0893207605471,0.0894930919261,0.089723804956,0.0899348229712,0.0900589719034,0.0902988290473,0.0904894486543,0.0906881572853,0.0907845221789,0.090901988874,0.0910053877014,0.0911144136759,0.0912747873674,0.0914179279211,0.0915128860279,0.0916317595097,0.0918473495819,0.091983104505,0.092150863827,0.0923485173679,0.0925771202177,0.0928925921503,0.0930072452719,0.0931630469064,0.0933550733002,0.0934415906864,0.0935643328319,0.093727520097,0.0939265804246,0.0940827337558,0.0942255226128,0.0942455693242,0.0945167274737,0.0948093391214,0.0951571671497,0.0955211732258,0.0958816623351,0.0962361726005,0.0966321830757,0.0970668801869,0.0975353401805,0.0981944197812,0.0985879683795,0.0989649872333,0.0992421242265,0.0995815115342,0.0999092928511,0.100191705295,0.100472007558,0.10068970781,0.100891933408,0.100988298302,0.101264028508,0.101536241748,0.101817950798,0.101994854234,0.102141863451,0.102390161316,0.102593793701,0.102717590936,0.102798129479,0.102968702374,0.102965888801,0.102988749086,0.103061550301,0.103258500448,0.103391441798,0.103505391526,0.103678074602,0.103864122152,0.104069161323,0.104283696305,0.104549227308,0.104734923161,0.104992716836,0.105195645828,0.10541756644,0.105619792038,0.105692593253,0.105870551779,0.106097044449,0.106199739883,0.106416033349,0.106647449772,0.10685495082,0.107015324512,0.107289647931,0.107491521832,0.107734895943,0.10797123612,0.10815517349,0.108420001099,0.108576506127,0.108737583212,0.10884942276,0.109060089079,0.109188810068,0.109421633278,0.109725147523,0.109936868932,0.110252340864,0.110486570861,0.110701809236,0.111028535463,0.111253269649,0.111357020174,0.111721729643,0.112066040704,0.112215160102,0.112370961736,0.112540831239,0.112730044059,0.112841180213,0.113038833754,0.113312102084,0.113700726929,0.113733786418,0.113873761701,0.114032728606,0.114316899533,0.114372819307,0.114427332294,0.114684422576,0.114849016628,0.114949953578,0.114958042602,0.115155344446,0.115205637073,0.115228145662,0.115232717719,0.115415248302,0.115600240762,0.115647368118,0.115743029619,0.115871750608,0.116048302347,0.116027200546,0.116041971807,0.116207620949,0.116292028155,0.116401757523,0.116490033392,0.116588156769,0.116541029413,0.116577957565,0.116539974323,0.116620512865,0.116711250612,0.116714767578,0.116764356812,0.116691907293,0.116634580733,0.116622271348,0.116672915672,0.116630360372,0.116618754382,0.116649351994,0.11650937671,0.116496715629,0.11655087692,0.11654560147,0.116544194683,0.116487571515,0.116444664519,0.116408791456,0.116393668499,0.116372918394,0.116460842567,0.116491088482,0.11632227407,0.116399295646,0.116398592252,0.116420045751,0.116396130376,0.116423562718,0.116347596232,0.116311019776,0.11627233314,0.116263540723,0.116347947929,0.116238921954,0.116257210182,0.116168582616,0.116122862046,0.116029662423,0.116051467617,0.115981479976,0.116007857228,0.115998361417,0.115967412108,0.11584924202,0.115733533808,0.115703287892,0.115699419229,0.115636113824,0.11552497767,0.115434239923,0.115277383199,0.115091687345,0.115044559988,0.115054407496,0.114998136025,0.114946084915,0.114800834181,0.114748783071,0.114669651315,0.114603884033,0.114506112353,0.114303886755,0.114102012854,0.113957113817,0.113743633925,0.113616319723,0.113406005101,0.113232266935,0.113052901622,0.112893934717,0.112703666807,0.112553492319,0.112315745356,0.112114574848,0.111994646276,0.111653148788,0.111416105218,0.111182578614,0.111015874382,0.110777775722,0.110642372496,0.110556206806,0.110453159675,0.11015070052,0.109914360343,0.10982221581,0.109755041742,0.109498303157,0.109337577768,0.109070288283,0.10884731258,0.108627853844,0.108484009897,0.10829444538,0.108164317604,0.107984952291,0.107678976169,0.107674404112,0.107510513454,0.107396212029,0.107156706582,0.106998091374,0.106791293719,0.106694225432,0.106430101216,0.106184265229,0.106127993758,0.105937374151,0.105735851946,0.105563168871,0.105386265435,0.105287790361,0.105033865349,0.10485731361,0.104690609378,0.10457349438,0.104434925883,0.104184166142,0.10407478847,0.104038212014,0.103929889433,0.103690383986,0.103597887756,0.103474090521,0.103385111257,0.103340094081,0.103099533544,0.10300316865,0.102733417287,0.102435178493,0.102321580461,0.102085591981,0.101804586324,0.101545737559,0.101418071659,0.101204240071,0.101047735043,0.100902132612,0.100694631564,0.100629215979,0.100384435082,0.100209290129,0.100097802278,0.0999163267849,0.0996880756319,0.0994872568208,0.0993114084748,0.0991105896637,0.0989505676689,0.098664989955,0.098395590289,0.0982630006362,0.0979995798139,0.0978437781794,0.0976127134528,0.0973454239669,0.0971157660271,0.0968723919162,0.0966497679103,0.09641377943,0.0962713422697,0.0960480148704,0.0958113229967,0.0955886989907,0.0954121472513,0.0951645527802,0.0949130896455,0.0945789777881,0.0943936336315,0.0942800356,0.0940524878403,0.0937662067331,0.0936568290619,0.0934904765266,0.0931932928219,0.0930993898052,0.0929576560383,0.092897515904,0.0926112347968,0.092340428344,0.0922176861985,0.0921308171156,0.0918842777346,0.0916264840594,0.0915244920187,0.0912533338692,0.0909951884973,0.0905808897942,0.0903990626045,0.0900755016479,0.0896682368787,0.0892673026499,0.0888575760038,0.088507989492,0.0880514871859,0.0875735313815,0.0871398893604,0.0868887779223,0.0864730724325,0.0860847992846,0.0857608866313,0.0854728470406,0.0852945368178,0.0850307642988,0.0847972376954,0.0845352236599,0.0843910280162,0.0841947812621,0.0840294838169,0.0838244446455,0.0836943168695,0.0835589136431,0.0832845902234,0.0831833015761,0.0829849446419,0.0829202324506,0.0827306679336,0.0825157812548,0.0824169544844,0.0823047632397,0.0820754569965,0.0818767483656,0.0818243455585,0.0816108656665,0.0814016061348,0.0811828507924,0.0809647988434,0.0807587045819,0.080573712122,0.0804963388497,0.0803771136712,0.0802279942738,0.0799582429111,0.079781339475,0.0796944703921,0.0796958771789,0.0795991605886,0.0795959953184,0.079437731807,0.0792988116137,0.0791264802347,0.0789200342765,0.0787895548038,0.078788148017,0.078709367958,0.0784955363693,0.0783629467165,0.0781353989568,0.0780260212856,0.0778860460022,0.0777921429855,0.0777520495626,0.0777073840827,0.0774759676594,0.0773310686223,0.0772178222875,0.0772262630081,0.0772266147048,0.0771028174693,0.0769434988678,0.0768358796801,0.076700124757,0.0766058700436,0.0764148987399,0.0762956735613,0.0761444439838,0.0759819601121,0.0758205313305,0.0757276834038,0.0757072849957,0.0757544123524,0.0756478482548,0.0755135001184,0.0755521867545,0.0755135001184,0.0755430426406,0.0755338985266,0.0754463260503,0.0753668425979,0.0752349563384,0.0751157311599,0.0750373027976,0.0749701287294,0.074881501163,0.0747242927417,0.0745382451917,0.0743553629119,0.0742291037995,0.0742083536947,0.0741636882148,0.0740205476612,0.0739881915655,0.0738784621976,0.0737817456074,0.073744465758,0.0737300461936,0.0736969867046,0.0737413004878,0.0736083591382,0.0734726042151,0.0733713155679,0.0733748325348,0.0733681502976,0.073284446485,0.0732028528524,0.0731349753909,0.0729425973004,0.0727667489544,0.0727491641198,0.0727737828883,0.0727583082338,0.0726204431306,0.0725307604741,0.072547993612,0.0724948874116,0.0724326370971,0.0725138790329,0.0724537388986,0.0723943021577,0.0723496366778,0.0722402590066,0.0721797671756,0.0721358050891,0.0720190417874,0.0720327579584,0.0719634737101,0.0719036852724,0.0719328760979,0.0718695706933,0.0717784812501,0.0718090788623,0.0717707439229,0.0717503455147,0.0717141207555,0.071642726327,0.0716870401102,0.0716209211321,0.071582234496,0.0715815311026,0.0715438995566,0.0715431961632,0.071479539062,0.0714405007291,0.0713831741684,0.0713072076829,0.0711714527598,0.0710997066347,0.0710346427467,0.0709618415314,0.0709632483182,0.0708338239356,0.0709045149706,0.0709759093991,0.0710546894581,0.0710624267853,0.0711257321899,0.0711042786917,0.0711366347873,0.0711081473553,0.0710497657044,0.0710835285868,0.0709910323569,0.0709136590846,0.0708478918032,0.0708102602572,0.0707849380954,0.0707163572405,0.0706024075123,0.0705858777678,0.0706590306797,0.0706664163102,0.070672395154,0.0706477763855,0.0705943184884,0.0705883396446,0.0705035807418,0.0705964286685,0.0706185855601,0.0706896282919,0.070607331266,0.0705809540141,0.0706097931428,0.0705204621831,0.0704940849312,0.0704648941057,0.0705334749607,0.0704638390157,0.0704068641516,0.0703889276203,0.0704170633556,0.070404050578,0.0703375799032,0.0703509443775,0.0703502409842,0.0704367583704,0.0704532881149,0.0703773216294,0.0703854106533,0.0703558681312,0.0703702876956,0.0703421519602,0.0703147196183,0.0703776733261,0.0704276142564,0.0702929144234,0.0702689990483,0.0703477791073,0.0704592669587,0.070445199091,0.0703878725302,0.0704251523795,0.0705134282492,0.0704898645709,0.0704673559826,0.0705668861464,0.0705489496151,0.0705573903357,0.0705489496151,0.07052397915,0.0705521148853,0.0705535216721,0.0704286693465,0.0704114362086,0.0704761483999,0.0703495375908,0.0703621986717,0.0704212837159,0.0703987751276,0.0704395719439,0.0704026437913,0.0704487160579,0.0706168270766,0.0706555137128,0.0705672378431,0.070793378816,0.0708366375091,0.0707866965788,0.0708412095661,0.0708123704374,0.0708637181544,0.0707687600476,0.0707019376761,0.0707416794023,0.0708957225533,0.0708809512923,0.0708830614724,0.0710036934378,0.0708876335294,0.0709115489045,0.0709080319376,0.0709787229726,0.0710279605095,0.0710075621014,0.0709157692648,0.0708475401065,0.0708482434999,0.070831010362,0.0710202231823,0.0710392148037,0.0710293672963,0.0709941976271,0.0710455453441,0.0710863421604,0.0710701641125,0.0710771980464,0.0710881006438,0.0710838802835,0.0710321808698,0.071030774083,0.0711468339914,0.0713694579974,0.0713617206702,0.0713511697694,0.071392669979,0.0714380388523,0.0714514033266,0.071471450038,0.071420102321,0.071433818492,0.0714000556096,0.0713019322325,0.0712544531791,0.0712941949053,0.0713124831333,0.0712924364218,0.0713022839292,0.0712308895008,0.071247770942,0.0712593769328,0.0712766100707,0.071331123058,0.0713318264513,0.0714239709846,0.0714355769755,0.0643274351348,0.0571841236249,0.0501160752071,0.0430149673003,0.0)
ycorr <- c(4.90373436573e-05,4.88931761205e-05,4.84610780086e-05,4.77367311703e-05,4.67206510238e-05,4.54129057449e-05,4.38108696451e-05,4.22031863573e-05,4.05899380458e-05,3.89706992479e-05,3.73436827142e-05,3.57103456882e-05,3.40727245898e-05,3.24326635731e-05,3.07892288214e-05,2.9139914519e-05,2.74826623453e-05,2.58192313974e-05,2.41496598758e-05,2.24732249064e-05,2.07888421529e-05,1.90947288337e-05,1.73882442663e-05,1.56665313652e-05,1.39287875155e-05,1.2176535507e-05,1.04118363313e-05,8.63786637307e-06,6.85457854981e-06,5.06028634828e-06,3.2567750393e-06,1.44219906455e-06,-3.82872957524e-07,-2.21884253115e-06,-4.06205178488e-06,-5.91415542965e-06,-7.77481705157e-06,-9.64785193551e-06,-1.153705383e-05,-1.34410900005e-05,-1.53605383776e-05,-1.72956934995e-05,-1.92442465021e-05,-2.12041022954e-05,-2.31775717833e-05,-2.51653161703e-05,-2.71674731531e-05,-2.91849121068e-05,-3.12140287766e-05,-3.32558508751e-05,-3.53110707613e-05,-3.73766478081e-05,-3.9456683773e-05,-4.15516333458e-05,-4.3660890568e-05,-4.57875444006e-05,-4.79325498318e-05,-5.00912397211e-05,-5.22616620954e-05,-5.44455467864e-05,-5.66409900535e-05,-5.88466678946e-05,-6.10629803373e-05,-6.32882052512e-05,-6.55251284755e-05,-6.77697781701e-05,-7.00192833854e-05,-7.22730434712e-05,-7.45358539624e-05,-7.68038478875e-05,-7.90755250565e-05,-8.13536272206e-05,-8.36392661214e-05,-8.5930730709e-05,-8.82247986271e-05,-9.05212242695e-05,-9.28204552776e-05,-9.511958575e-05,-9.74176920967e-05,-9.97163653728e-05,-0.000102020227789,-0.000104328195676,-0.000106637739758,-0.000108949576102,-0.000111266664002,-0.000113586389082,-0.000115905982632,-0.000118231117107,-0.00012056276232,-0.000122900348929,-0.000125239740869,-0.000127580082392,-0.000129919192941,-0.000132256184413,-0.000134586630826,-0.000136909332782,-0.000139229063367,-0.000141545438803,-0.00014385663328,-0.000146161784925,-0.000148459462145,-0.000150749449402,-0.000153033000129,-0.000155313478209,-0.000157591600764,-0.000159872933429,-0.000162153399457,-0.000164431824809,-0.000166708203044,-0.000168982213732,-0.000171255704418,-0.000173529834902,-0.00017580317493,-0.000178073171428,-0.000180339705192,-0.000182599969614,-0.000184854289923,-0.000187106939916,-0.000189354839961,-0.000191599612392,-0.000193840470597,-0.000196076911999,-0.000198309050044,-0.000200539604531,-0.000202767684528,-0.00020499348072,-0.000207218513459,-0.000209439727241,-0.000211658089868,-0.00021387449719,-0.000216088377517,-0.000218298609432,-0.000220504888302,-0.00022270613336,-0.000224902192797,-0.00022709466704,-0.000229284227787,-0.000231470161408,-0.000233653234018,-0.000235828107719,-0.000237996213761,-0.000240156811641,-0.000242312706433,-0.000244461473833,-0.000246604330348,-0.00024873927144,-0.000250864953024,-0.000252979869501,-0.000255085614726,-0.000257184082073,-0.000259277958535,-0.000261367424219,-0.000263450039523,-0.000265525578114,-0.000267595050104,-0.000269658266866,-0.000271715032191,-0.000273762746006,-0.000275799554808,-0.000277823747916,-0.000279830483167,-0.00028182196951,-0.00028379632031,-0.000285755059363,-0.00028769570395,-0.000289618748644,-0.000291522579942,-0.000293407917893,-0.000295277648555,-0.000297133315871,-0.00029897606212,-0.000300803460993,-0.000302613759542,-0.000304409194684,-0.000306191342043,-0.000307959315646,-0.000309714659801,-0.000311460574233,-0.000313196767453,-0.000314920427978,-0.000316630481029,-0.000318327732322,-0.000320017782489,-0.000321697297235,-0.000323366119666,-0.000325021330753,-0.00032666543303,-0.000328296512093,-0.000329913875632,-0.000331516364676,-0.000333109356603,-0.000334693694629,-0.000336264136393,-0.000337823463724,-0.000339373802429,-0.000340915653559,-0.00034244787439,-0.000343970716417,-0.000345482371578,-0.000346984646644,-0.00034847643722,-0.000349955456307,-0.000351426608208,-0.000352892277019,-0.000354346611254,-0.000355789494649,-0.000357219879824,-0.000358641525176,-0.000360053452854,-0.000361458828401,-0.000362855047661,-0.000364244670066,-0.000365627995882,-0.000366998148224,-0.000368359159129,-0.000369715587045,-0.000371067966111,-0.000372413887916,-0.000373753017677,-0.000375085683739,-0.000376412094328,-0.000377733649444,-0.000379046048822,-0.000380351953394,-0.000381650531131,-0.000382938226139,-0.000384215037613,-0.000385480529624,-0.000386734845779,-0.000387975162155,-0.000389203408613,-0.000390418087993,-0.000391619585687,-0.000392811550383,-0.000393991106509,-0.000395164116165,-0.000396328841329,-0.000397482857386,-0.000398627879747,-0.000399766239942,-0.000400898280385,-0.00040202214157,-0.000403138533973,-0.000404245718397,-0.000405343905559,-0.000406430267712,-0.000407501070285,-0.000408560181656,-0.00040960651536,-0.000410640260368,-0.000411660584329,-0.000412666935815,-0.000413659069909,-0.000414635869133,-0.000415597335881,-0.000416542899173,-0.00041747749701,-0.000418402488561,-0.000419316049225,-0.000420218935803,-0.000421110648094,-0.000421991169453,-0.000422861934692,-0.000423719815517,-0.000424566860477,-0.000425405070616,-0.000426233619078,-0.000427047860313,-0.000427850872634,-0.000428643267776,-0.00042942276593,-0.000430192919853,-0.000430954044505,-0.00043170964943,-0.000432460299273,-0.000433202922584,-0.000433936493468,-0.00043466372609,-0.000435384533011,-0.000436093812887,-0.000436793230165,-0.00043748141077,-0.000438153525896,-0.000438805265201,-0.000439434781689,-0.000440041422927,-0.0004406238434,-0.000441178579902,-0.000441700920376,-0.00044219245667,-0.000442651577749,-0.000443073244748,-0.000443459713239,-0.000443814466769,-0.000444139772666,-0.000444434531652,-0.000444703495533,-0.000444950404912,-0.000445180885696,-0.000445398442573,-0.000445604905936,-0.000445803643115,-0.000445999245714,-0.000446192354788,-0.000446381176621,-0.000446568829502,-0.00044675594931,-0.000446941555916,-0.000447121944234,-0.00044729685736,-0.000447465224939,-0.000447628801766,-0.000447785776166,-0.000447933658157,-0.000448074291881,-0.000448206613144,-0.000448329037803,-0.00044844101411,-0.000448545988919,-0.000448643320392,-0.000448728988187,-0.000448802166975,-0.000448861134864,-0.000448907569451,-0.000448942904912,-0.000448968576172,-0.000448984161536,-0.00044899179556,-0.000448987786647,-0.000448969045014,-0.000448941244658,-0.000448908708622,-0.000448873121703,-0.000448837476098,-0.000448800939617,-0.000448762317668,-0.000448716992496,-0.000448662777666,-0.000448600356663,-0.000448535823231,-0.000448468142333,-0.000448393937416,-0.000448309987701,-0.000448213728648,-0.000448101940039,-0.000447975939939,-0.000447838583662,-0.000447693004641,-0.000447542206632,-0.00044738275433,-0.000447212404431,-0.000447030795712,-0.000446842250542,-0.000446648400427,-0.000446450390864,-0.000446246732853,-0.000446038048465,-0.000445822806867,-0.000445600222496,-0.000445368137977,-0.00044512902071,-0.000444881569617,-0.000444625429885,-0.000444357290805,-0.000444078044829,-0.000443790884861,-0.000443499274476,-0.000443200801215,-0.000442893965385,-0.000442581569997,-0.000442264780862,-0.000441945671399,-0.000441625177125,-0.000441303176697,-0.000440979028829,-0.000440648623714,-0.00044030956683,-0.000439959428208,-0.000439600792802,-0.000439233401308,-0.000438853741761,-0.000438460561235,-0.000438051108074,-0.000437625615505,-0.000437187415285,-0.000436737995607,-0.000436277382571,-0.000435807606085,-0.000435327374094,-0.000434835329886,-0.000434333797213,-0.0004338239583,-0.000433308112648,-0.000432788302522,-0.000432261761939,-0.000431724895732,-0.000431177557593,-0.000430622988274,-0.000430060196516,-0.000429490684671,-0.00042891391772,-0.000428329013233,-0.000427731852123,-0.000427120791074,-0.000426495609586,-0.000425861744435,-0.000425220717789,-0.000424571013492,-0.000423911436184,-0.000423242514452,-0.000422562594149,-0.000421873308985,-0.000421177502836,-0.000420476957658,-0.000419771908557,-0.000419058691997,-0.000418332326053,-0.000417593113736,-0.000416841972373,-0.000416077030999,-0.000415299848388,-0.000414510947716,-0.000413709733185,-0.000412894876541,-0.000412066641784,-0.00041122527874,-0.000410374679842,-0.000409515182875,-0.000408645784692,-0.000407766572753,-0.000406878000962,-0.000405977909254,-0.000405065182495,-0.000404139382932,-0.000403199750882,-0.000402246919841,-0.000401281020432,-0.000400299063012,-0.000399303338149,-0.000398293966359,-0.000397270287705,-0.000396231287405,-0.000395175667466,-0.000394104966346,-0.000393018592047,-0.000391916440993,-0.000390797488781,-0.000389665233106,-0.000388520994997,-0.000387364371108,-0.00038619512636,-0.000385015182773,-0.00038382512228,-0.00038262442184,-0.000381412199596,-0.000380188696533,-0.000378953225881,-0.000377704873854,-0.000376440869653,-0.000375160526975,-0.00037386260472,-0.000372546550927,-0.000371210073297,-0.00036985419049,-0.000368481041507,-0.000367093301079,-0.000365690305669,-0.000364270359519,-0.000362834494128,-0.000361381385928,-0.000359911358989,-0.000358423888179,-0.000356922706218,-0.000355407944744,-0.000353881690309,-0.000352339545582,-0.00035078121012,-0.000349209059193,-0.000347621418682,-0.000346018725278,-0.000344401141304,-0.000342770328647,-0.000341124641169,-0.000339460649264,-0.000337777745675,-0.000336074554637,-0.000334353196008,-0.000332611047734,-0.000330847841796,-0.000329066096347,-0.000327267784115,-0.000325452464572,-0.000323616691193,-0.000321763752834,-0.00031989304184,-0.000318005714727,-0.000316100504816,-0.000314177167895,-0.000312238114715,-0.000310282282672,-0.000308306894972,-0.000306311084706,-0.00030429720641,-0.000302267795795,-0.000300220406724,-0.000298155537743,-0.000296072778098,-0.000293973794985,-0.000291857961943,-0.000289723959905,-0.000287573035666,-0.00028540634105,-0.000283223130325,-0.000281020635784,-0.000278796982121,-0.000276553181865,-0.000274289710625,-0.000272004097544,-0.000269695052366,-0.000267365857698,-0.000265013426913,-0.000262636648389,-0.000260239345931,-0.000257819992508,-0.000255380878975,-0.000252922073026,-0.000250445673138,-0.000247954376403,-0.000245450442688,-0.000242929907015,-0.000240395955186,-0.000237850634293,-0.000235289639225,-0.000232711849833,-0.000230117551616,-0.000227506621693,-0.000224876140215,-0.000222223331083,-0.000219546106041,-0.000216847276404,-0.000214129150757,-0.000211386431836,-0.000208622816281,-0.000205838548256,-0.000203032717784,-0.000200206072483,-0.000197358951388,-0.000194495279771,-0.000191615687942,-0.000188716764794,-0.000185795676896,-0.00018285472092,-0.000179893503887,-0.000176913850632,-0.000173918167954,-0.000170904718627,-0.00016787238232,-0.000164821424258,-0.000161751071909,-0.000158662309351,-0.000155557533447,-0.000152436680345,-0.000149298454922,-0.00014614209154,-0.000142963607461,-0.000139767059617,-0.000136558246575,-0.0001333353994,-0.000130094047579,-0.000126834448222,-0.000123555600384,-0.000120257870982,-0.000116942076201,-0.000113607411718,-0.000110255519486,-0.000106885035205,-0.000103492200846,-0.000100072561609,-9.66330668868e-05,-9.31762281835e-05,-8.97018639973e-05,-8.6211089339e-05,-8.27015134789e-05,-7.91723863525e-05,-7.56257957879e-05,-7.20624926933e-05,-6.84833085095e-05,-6.48880207239e-05,-6.12786181464e-05,-5.76512327534e-05,-5.38605465151e-05,-4.97613339087e-05,-4.52351369962e-05,-4.01897168801e-05,-3.38240758154e-05,-2.8758741053e-05,-2.42242719392e-05,-2.0132625227e-05,-1.63741345925e-05,-1.28124237002e-05,-9.30643169527e-06,-6.00313197201e-06,-3.04666790653e-06,-5.56479461176e-07,1.37315537628e-06,1.93984994829e-06,3.76535281568e-06,6.07969366838e-06,8.79565157384e-06,1.1802655925e-05,1.49645695451e-05,1.81416876655e-05,2.13340684293e-05,2.45429703569e-05,2.77700969915e-05,3.10176778263e-05,3.42855297417e-05,3.75740514629e-05,4.08837481626e-05,4.42125095922e-05,4.75622480039e-05,5.09334487616e-05,5.4323560238e-05,5.773261846e-05,6.11555415489e-05,6.45913018929e-05,6.80384419616e-05,7.14952273833e-05,7.49612750981e-05,7.84387102723e-05,8.19255717267e-05,8.54206000446e-05,8.89250376295e-05,9.24385933243e-05,9.59648518653e-05,9.95048430747e-05,0.000103058019218,0.000106624247009,0.000110205618455,0.00011380060545,0.000117408034063,0.00012103057477,0.000124667241418,0.000128316912132,0.000131979736394,0.000135651998418,0.000139335861207,0.000143033096339,0.000146740528837,0.000150459680911,0.000154191683124,0.00015793377249,0.000161687206191,0.000165451211243,0.000169225030235,0.000173009457265,0.000176803603715,0.000180607111229,0.000184419030346,0.000188238968269,0.000192065548204,0.000195898693938,0.000199736901429,0.000203578529038,0.000207425383053,0.000211280833978,0.000215144267632,0.000219018397236,0.000222900058607,0.000226790757465,0.000230690728251,0.000234599107853,0.000238515839955,0.000242445433253,0.000246385714736,0.000250334247018,0.000254285991688,0.000258239813995,0.000262196418373,0.000266154778589,0.000270113616788,0.000274075420978,0.000278039853996,0.000282004034471,0.000285966180021,0.000289925955753,0.000293886103516,0.000297845819231,0.000301804245401,0.000305761074497,0.000309720609938,0.000313679626326,0.000317635207521,0.000321589229817,0.00032554448089,0.000329497684822,0.000333451061771,0.000337400962294,0.000341350641475,0.000345300106456,0.000349244262465,0.000353181028997,0.000357115687006,0.000361047239443,0.000364972488207,0.000368888888491,0.000372798511013,0.000376701190204,0.000380598548486,0.000384489598597,0.000388377037769,0.000392260893834,0.000396139165177,0.000400006016773,0.000403862858276,0.000407714504974,0.000411558974023,0.000415395655103,0.000419223281453,0.000423039118503,0.00042684122872,0.00043062880373,0.000434402993393,0.000438164245641,0.000441913370403,0.000445649364909,0.00044937181377,0.000453081816225,0.000456778208944,0.000460460695862,0.000464129432138,0.000467786427366,0.000471428920313,0.000475058295212,0.000478675796078,0.000482280395169,0.000485870361948,0.000489443125547,0.000492999357725,0.000496541258858,0.000500068546243,0.000503580025839,0.000507073462619,0.000510550200857,0.000514009026543,0.000517449651465,0.000520871740559,0.000524278262967,0.000527665665423,0.000531033716377,0.000534380947382,0.000537706762094,0.000541013188883,0.000544301180788,0.000547569117139,0.000550815190239,0.000554037799945,0.000557236632738,0.000560409989738,0.000563558412868,0.000566679599995,0.000569775117717,0.000572843689213,0.000575883638555,0.000578893868058,0.000581872520058,0.000584821473689,0.000587740329346,0.000590628930952,0.000593488507963,0.000596320955007,0.000599127033659,0.000601905285723,0.000604656460525,0.000607379962688,0.000610079785032,0.000612756856522,0.000615407510311,0.000618035080042,0.000620637870117,0.0006232133093,0.000625757675124,0.000628270255513,0.000630750779082,0.000633197305947,0.000635608131459,0.000637979804811,0.000640314988473,0.000642613403098,0.000644871470686,0.000647092138389,0.00064927894211,0.000651433421552,0.000653556419118,0.000655648355055,0.000657709753728,0.000659742486225,0.000661743256395,0.00066370939994,0.000665643515104,0.000667543601992,0.000669409477061,0.0006712372244,0.000673025004818,0.000674773415965,0.000676482602374,0.000678152740879,0.000679785893232,0.000681383586975,0.000682945688505,0.000684472926746,0.000685961746442,0.000687413905793,0.000688831651353,0.000690215296751,0.000691562689111,0.00069287167929,0.000694141892571,0.000695374094544,0.000696567253542,0.000697721055403,0.000698835501071,0.000699912577436,0.000700949771329,0.000701944983393,0.000702900437863,0.000703817435753,0.000704695761394,0.000705534934922,0.000706331188804,0.000707084926862,0.000707797362285,0.000708468896832,0.000709101899868,0.000709697396432,0.000710254601662,0.000710772420582,0.00071124966437,0.000711684774788,0.000712078846866,0.000712433021906,0.000712750015659,0.000713028789561,0.000713264709116,0.000713457201681,0.000713603837354,0.000713704464434,0.000713758802754,0.000713769569884,0.000713741367621,0.000713673945579,0.000713564630671,0.000713411123581,0.000713215276575,0.000712980433847,0.000712707278245,0.000712398598991,0.000712056494799,0.000711679651307,0.000711264039873,0.000710807613454,0.000710309511026,0.000709771804831,0.000709194252406,0.000708571465568,0.000707906222866,0.000707195864764,0.000706439054438,0.000705636659367,0.000704789001574,0.000703897654832,0.000702963018169,0.000701985485677,0.000700965658702,0.000699907034964,0.000698811408407,0.000697677913297,0.000696507363831,0.000695298957873,0.000694053088161,0.00069277137874,0.000691452223267,0.000690094966585,0.000688700710375,0.000687268280143,0.000685793928015,0.000684278897999,0.000682723273552,0.000681128422849,0.000679493582783,0.000677815379071,0.000676093124046,0.000674331314036,0.00067252945947,0.000670686455655,0.000668803846322,0.000666881768824,0.000664918388111,0.00066291206394,0.000660864231299,0.000658777235583,0.000656653754771,0.00065449273944,0.000652290048488,0.00065004778261,0.000647765020299,0.000645441913816,0.000643079531093,0.000640680018672,0.000638244018734,0.000635771473611,0.000633262069452,0.000630715354859,0.000628133882745,0.000625519209563,0.000622869784557,0.00062018905985,0.000617476461014,0.000614731242155,0.000611952377937,0.000609139474501,0.000606293158395,0.00060341138861,0.000600492895248,0.000597539216953,0.000594550822613,0.000591530235743,0.000588475372857,0.000585388424054,0.000582270506733,0.000579122332841,0.000575942470485,0.00057273145393,0.000569492489768,0.000566227753014,0.00056293460159,0.000559608255548,0.000556250004219,0.000552860602639,0.000549437969979,0.000545982181429,0.000542498298173,0.000538986493195,0.000535446150443,0.000531872066552,0.000528267502985,0.000524633299979,0.000520973978696,0.000517286722458,0.000513574206587,0.000509834988555,0.00050606850695,0.000502271886426,0.000498445151703,0.000494592661752,0.00049071600168,0.000486813126247,0.000482887014456,0.000478937551896,0.000474963639207,0.000470965053126,0.000466942046939,0.000462895326151,0.000458827562162,0.000454738036148,0.000450623035048,0.000446486170946,0.000442323137591,0.00043813394287,0.00043391998583,0.000429684428544,0.000425426516544,0.000421148037306,0.000416848420722,0.000412525253533,0.00040818188352,0.000403820446731,0.000399439561976,0.000395042075517,0.000390627651617,0.000386197008571,0.000381748308823,0.000377282428359,0.000372801239419,0.000368305899753,0.000363797140324,0.000359272744475,0.000354733214015,0.000350178040828,0.000345606829109,0.000341018947604,0.000336416054172,0.000331799266292,0.000327169589023,0.000322528150903,0.000317873791115,0.000313208009583,0.000308531810069,0.000303844961006,0.00029915085761,0.000294451140621,0.000289745989306,0.000285034544927,0.000280313197808,0.000275582445961,0.00027084342206,0.000266098957339,0.000261349191312,0.0002565956987,0.000251837316687,0.000247071804167,0.000242298179232,0.000237517994889,0.000232733290592,0.000227947803817,0.000223160871946,0.000218369952698,0.000213575132734,0.000208774057483,0.000203967367183,0.000199156868401,0.000194349018846,0.000189544712083,0.000184743020962,0.000179937821859,0.000175132962685,0.000170326918997,0.000165519832053,0.000160714818277,0.000155914809749,0.000151120005398,0.000146327414693,0.000141533471933,0.000136740320554,0.000131950940035,0.000127166420645,0.000122384793625,0.000117610668468,0.000112845975506,0.000108087446944,0.000103334128409,9.85856349859e-05,9.3844952858e-05,8.91101277128e-05,8.43827792432e-05,7.96623155328e-05,7.4952452843e-05,7.02520585634e-05,6.55577845034e-05,6.08698259341e-05,5.61897258475e-05,5.15174449692e-05,4.68549468147e-05,4.22050253299e-05,3.75679395282e-05,3.29401110401e-05,2.83236105261e-05,2.37185288203e-05,1.91274666619e-05,1.45503725879e-05,9.98668256182e-06,5.43796274689e-06,9.05294349269e-07,-3.61150797383e-06,-8.11548476242e-06,-1.26003772486e-05,-1.70669547066e-05,-2.15164716097e-05,-2.59480123217e-05,-3.03631631777e-05,-3.47599636116e-05,-3.91379908207e-05,-4.34990082251e-05,-4.78447311956e-05,-5.21733258365e-05,-5.64845721758e-05,-6.07807354448e-05,-6.50592205472e-05,-6.93226218861e-05,-7.35682059809e-05,-7.77932579068e-05,-8.19984286334e-05,-8.61843377447e-05,-9.03468696146e-05,-9.44852262314e-05,-9.86012520652e-05,-0.000102694019139,-0.000106763778582,-0.000110811226075,-0.000114832753639,-0.000118832955486,-0.00012281130827,-0.000126766703099,-0.000130699766326,-0.000134613217508,-0.000138507318275,-0.000142381514804,-0.00014623622267,-0.00015006913902,-0.000153881229568,-0.000157673628389,-0.000161444756269,-0.00016519417799,-0.000168922296951,-0.000172627015745,-0.000176307611897,-0.000179963522426,-0.00018359356447,-0.000187198547433,-0.000190778071596,-0.000194329383865,-0.000197854502944,-0.000201355626466,-0.000204833182309,-0.000208286832974,-0.000211715624563,-0.00021511780158,-0.000218492341608,-0.000221838647067,-0.000225160016031,-0.000228458425984,-0.000231731603563,-0.000234977731794,-0.000238194506411,-0.000241382005356,-0.00024454013014,-0.000247669659458,-0.000250772638423,-0.000253849059498,-0.000256899170759,-0.000259918596491,-0.000262908532306,-0.000265866688435,-0.000268796435394,-0.000271695746582,-0.00027456606152,-0.000277409193775,-0.000280225116594,-0.000283014739675,-0.000285776661653,-0.00028851124778,-0.000291217104802,-0.000293895258612,-0.000296545835255,-0.000299168851658,-0.000301765226658,-0.000304335708464,-0.000306878026173,-0.000309391723999,-0.000311875079073,-0.000314328379684,-0.000316755033433,-0.000319154310425,-0.000321525499929,-0.000323870764682,-0.000326187088222,-0.000328471605828,-0.000330727293059,-0.000332953174624,-0.000335150125907,-0.000337317528642,-0.000339453831217,-0.000341559293187,-0.000343635642339,-0.000345680786038,-0.000347694876351,-0.000349679189135,-0.000351631338649,-0.000353547796344,-0.000355431610794,-0.000357284484578,-0.000359107015752,-0.000360899517074,-0.000362659130572,-0.000364385837059,-0.00036608184099,-0.000367748956897,-0.000369388614306,-0.000371003844793,-0.000372593723894,-0.000374154167975,-0.000375682258423,-0.000377178747221,-0.000378645631067,-0.000380083900258,-0.000381493921979,-0.000382873587098,-0.000384222259198,-0.000385539150135,-0.000386824414742,-0.000388079565588,-0.000389311304849,-0.000390522371611,-0.000391712829845,-0.000392881222618,-0.000393932397978,-0.00039477146463,-0.000395398671748,-0.000395814641376,-0.00039601975969)
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(248)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('A549-100nM-Dex-12h-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) : 248',bty='n')
dev.off()