# R script for Peak Model
#  -- generated by MACS
p <- c(0.0336993977369,0.0395280242422,0.0456111230067,0.0513064545192,0.057377435557,0.0576924964492,0.057668260996,0.0574864950966,0.0581408523342,0.0584922664063,0.058019675068,0.0576440255427,0.0563595465207,0.0557051892831,0.0553658929377,0.0554870702039,0.0554143638442,0.0551477738585,0.0551235384053,0.0548933015994,0.0549054193261,0.0549660079592,0.0554143638442,0.0561535451682,0.0558021310961,0.055741542463,0.0563110756143,0.0571108455713,0.057825791442,0.0578863800752,0.0584801486797,0.0587830918452,0.0593647427231,0.0591587413705,0.0593283895432,0.0589042691114,0.0593162718166,0.0588315627517,0.0578379091687,0.0584922664063,0.0575834369096,0.0576924964492,0.0572199051109,0.0574986128232,0.0580681459745,0.0588315627517,0.0582620296005,0.0586740323056,0.0591829768238,0.0588073272985,0.059110270464,0.0585407373128,0.0596313327088,0.0594495668094,0.0593889781763,0.0592193300036,0.0594132136296,0.0588194450251,0.058758856392,0.0589648577446,0.0596434504354,0.0599221581477,0.0594132136296,0.0595222731692,0.0593647427231,0.0590860350108,0.0590860350108,0.0592556831835,0.0593283895432,0.0584074423199,0.0580560282479,0.0584316777732,0.0580560282479,0.0578015559888,0.0580317927946,0.0582741473271,0.0587467386654,0.0587952095718,0.0589285045647,0.0592193300036,0.0593526249965,0.0594253313562,0.0595949795289,0.059849451788,0.0597888631549,0.0598130986081,0.0598979226945,0.0603341608529,0.060297807673,0.0609279294574,0.060843105371,0.0612187548963,0.062127584393,0.0629637075299,0.0627819416306,0.0632060620624,0.0629031188968,0.0631818266091,0.063412063415,0.0632666506955,0.063666535674,0.0634968875013,0.063218179789,0.0632666506955,0.0639937142928,0.0638119483935,0.0645511297175,0.0645147765376,0.0643814815448,0.0647086601636,0.0641391270123,0.0644178347246,0.0649146615161,0.0646480715305,0.064308775185,0.0645753651707,0.0635938293143,0.0633514747819,0.0638361838468,0.0634847697747,0.0635817115877,0.0635574761344,0.0631939443358,0.0632787684221,0.0634605343215,0.0628910011702,0.0634362988682,0.063666535674,0.0637998306669,0.0640058320195,0.0645632474441,0.0646965424369,0.0645147765376,0.0645874828973,0.0646601892571,0.0656053719336,0.0657750201063,0.0662476114446,0.0656174896602,0.0662960823511,0.0664172596173,0.0669504395887,0.0673624422939,0.0670352636751,0.067423030927,0.0671079700348,0.0665263191569,0.066041610092,0.0666596141498,0.0668413800491,0.0662233759914,0.0662839646245,0.066041610092,0.0669383218621,0.066877733229,0.0674109132004,0.0687196276756,0.0688892758483,0.0691437481074,0.0685742149561,0.0693497494599,0.0689256290282,0.0692891608268,0.0693618671866,0.069798105345,0.0697738698917,0.0690104531145,0.0698344585248,0.0694951621794,0.0702828144099,0.0701979903235,0.0705857575754,0.0713491743526,0.0711795261799,0.0711189375468,0.071337056626,0.071882354324,0.0715551757052,0.0720156493169,0.0718460011442,0.0720641202234,0.0716157643383,0.0716036466117,0.0723307102091,0.0725851824681,0.0727911838207,0.0732274219791,0.0737484842239,0.0741241337492,0.0748390796199,0.0757842622964,0.0771535654048,0.0768990931457,0.0771050944983,0.077274742671,0.0778563935489,0.0780866303547,0.0787046344124,0.0782926317073,0.0778685112755,0.077626156743,0.0777958049157,0.0783047494339,0.0779775708151,0.0783895735202,0.0773595667573,0.0774807440236,0.0769354463256,0.0774686262969,0.0780260417216,0.0787167521391,0.0785228685131,0.0786561635059,0.0788864003118,0.0795649930026,0.0803405275065,0.0803284097798,0.080740412485,0.0817461837946,0.0819037142407,0.0814674760823,0.0816492419817,0.0812008860966,0.0817704192479,0.0811402974635,0.0817219483414,0.0817583015213,0.0820854801401,0.0815886533486,0.0819643028739,0.0820127737803,0.0819643028739,0.0820854801401,0.0818552433343,0.0823884233056,0.0824247764855,0.0830791337231,0.0829458387303,0.0840727873061,0.0839394923133,0.0846665559106,0.084945263623,0.0864599794508,0.0871022189617,0.0873203380409,0.0877081052929,0.0877444584727,0.0885926993363,0.0881564611779,0.0878535180123,0.0881322257246,0.0889319956817,0.0892591743005,0.0896469415524,0.0893682338401,0.0891258793077,0.0895742351927,0.0894651756531,0.0898408251784,0.091040480114,0.0904467115095,0.0905194178693,0.0904224760563,0.0905678887757,0.0921068400568,0.0926642554814,0.0932337886327,0.0937184976976,0.0938881458703,0.0944334435683,0.0954876857844,0.0955361566909,0.0963601621013,0.0967479293532,0.0963722798279,0.0973659334109,0.0974386397706,0.0976567588498,0.0983838224472,0.0984444110803,0.0994744178432,0.100359011887,0.100056068721,0.100128775081,0.100698308232,0.100686190505,0.100758896865,0.100952780491,0.101485960463,0.102116082247,0.101267841383,0.100771014592,0.10120725275,0.101716197268,0.101752550448,0.102309965873,0.103049147197,0.103824681701,0.103751975341,0.103812563974,0.104685040291,0.106514817011,0.107023761529,0.108780831889,0.110065310911,0.111228612667,0.112755446221,0.114270162049,0.116196880582,0.11760253687,0.118802191806,0.120183612641,0.12215880208,0.122001271634,0.122413274339,0.122970689764,0.122994925217,0.124073402887,0.125248822369,0.126666596384,0.127539072701,0.126593890024,0.126739302744,0.128520608557,0.129199201248,0.12962332168,0.130144383924,0.130083795291,0.129162848068,0.129174965795,0.13037462073,0.131756041565,0.131719688385,0.13141674522,0.132737577422,0.133852408271,0.134846061854,0.135379241825,0.135924539523,0.136881839927,0.137342313538,0.137923964416,0.139717387956,0.139996095668,0.13952350433,0.139353856157,0.140614099726,0.140577746546,0.14128057469,0.140601982,0.140371745194,0.140359627467,0.140056684302,0.140674688359,0.141631988763,0.142480229626,0.141765283755,0.142904350058,0.143413294576,0.143873768188,0.143837415008,0.144685655871,0.144346359526,0.145024952217,0.145606603095,0.146297313512,0.147121318922,0.14684261121,0.146612374404,0.14773932298,0.148866271556,0.149084390635,0.149944749225,0.149884160592,0.150514282377,0.150841460996,0.1514352296,0.152319823643,0.153046887241,0.153992069917,0.154319248536,0.154258659903,0.155373490752,0.155458314839,0.155397726206,0.154913017141,0.155009958954,0.15610055435,0.157251738379,0.156876088853,0.157094207933,0.15774856517,0.157797036077,0.159117868279,0.159335987358,0.159784343243,0.160487171387,0.159251163271,0.158463511041,0.159348105084,0.159917638236,0.160487171387,0.161250588164,0.161492942697,0.162244241747,0.16316518897,0.16331060169,0.164122489374,0.164910141604,0.164946494784,0.165152496137,0.164619316165,0.16514037841,0.166558152425,0.167479099648,0.167988044166,0.168933226843,0.169987469059,0.170969004915,0.171853598959,0.173804552945,0.175876684197,0.175997861464,0.175537387852,0.174422557003,0.174580087449,0.174567969722,0.175694918298,0.176094803277,0.17611903873,0.175440446039,0.1751496206,0.175864566471,0.175949390557,0.175876684197,0.175925155104,0.174725500168,0.173949965664,0.173840906125,0.172980547535,0.173186548887,0.172507956196,0.171683950786,0.171393125347,0.171574891246,0.171429478527,0.172447367563,0.171986893952,0.171175006268,0.171065946728,0.169878409519,0.169926880426,0.169236170008,0.169139228195,0.168315222785,0.167115567849,0.166412739705,0.166461210612,0.166182502899,0.165940148367,0.166255209259,0.16506767205,0.16521308477,0.163334837143,0.163044011704,0.162789539445,0.161602002236,0.159796460969,0.159069397372,0.159360222811,0.156767029314,0.157445622005,0.156718558407,0.156900324307,0.156415615242,0.156573145688,0.156403497515,0.156536792508,0.156379262062,0.1551674894,0.155373490752,0.154185953543,0.152550060449,0.152053233658,0.151629113226,0.151895703212,0.152041115931,0.151701819586,0.150962638262,0.150792990089,0.150332516477,0.149144979268,0.149326745168,0.149144979268,0.149593335153,0.149072272909,0.147642381167,0.147133436649,0.147521203901,0.146164018519,0.146830493484,0.147024377109,0.146685080764,0.146588138951,0.146430608505,0.146127665339,0.147072848016,0.147642381167,0.14695167075,0.147290967095,0.146636609858,0.146733551671,0.145788368994,0.144758362231,0.144394830432,0.143631413655,0.14321941095,0.142334816907,0.142140933281,0.141825872388,0.140686806086,0.139741623409,0.139911271582,0.140153626115,0.139305385251,0.138348084848,0.137645256704,0.137051488099,0.136651603121,0.13597301043,0.136288071322,0.136154776329,0.136191129509,0.135185358199,0.134821826401,0.133682760098,0.133125344674,0.13224075063,0.131562157939,0.131404627493,0.130750270256,0.129344613967,0.128217665392,0.127636014514,0.126739302744,0.126315182312,0.125503294628,0.1258547087,0.125539647808,0.124533876498,0.124388463779,0.125042821016,0.124388463779,0.124146109246,0.124109756067,0.124230933333,0.124424816959,0.123831048354,0.123600811548,0.123528105189,0.123455398829,0.122922218858,0.12395222562,0.123394810196,0.122788923865,0.122667746598,0.121928565274,0.121892212095,0.121274208037,0.120389613993,0.119626197216,0.119868551749,0.118850662712,0.118838544986,0.119068781792,0.118911251346,0.118777956353,0.117663125503,0.117505595057,0.118765838626,0.118378071374,0.117796420496,0.117687360957,0.117505595057,0.117069356899,0.117590419144,0.116984532813,0.117105710079,0.116984532813,0.115869701963,0.115930290596,0.115627347431,0.114464045675,0.114609458395,0.114512516582,0.112961447574,0.112876623488,0.11300991848,0.112404032149,0.111301319027,0.11035613635,0.109822956379,0.109398835947,0.107993179659,0.10676928927,0.105811988867,0.104212448953,0.102588673585,0.10113454639,0.100989133671,0.100674072779,0.0990139442316,0.0992684164906,0.098904884692,0.0977658183894,0.0975355815836,0.0974144043174,0.0974022865908,0.0973901688642,0.0965540457272,0.0956209807773,0.0958754530364,0.0948939171799,0.0937427331508,0.093512496345,0.092773315021,0.092967198647,0.0919371918841,0.0915130714523,0.0911616573802,0.0900952974375,0.0901074151641,0.0897923542719,0.0903618874232,0.090495182416,0.0904709469628,0.0900831797109,0.0903497696965,0.0900831797109,0.0900952974375,0.0903134165167,0.0902528278836,0.0894651756531,0.0883018738974,0.0882291675376,0.0881564611779,0.0878898711922,0.0870901012351,0.0867992757962,0.0861812717384,0.0858298576664,0.085199735882,0.0850785586158,0.085296677695,0.0847756154502,0.0844969077379,0.0834426655218,0.0837456086873,0.083563842788,0.0835759605146,0.0835517250614,0.0824368942121,0.0822187751329,0.0816613597083,0.0813705342694,0.0807646479382,0.0812008860966,0.0803889984129,0.0799527602545,0.079104519391,0.0791166371176,0.0794316980098,0.0794316980098,0.0791893434773,0.0788015762254,0.0781472189878,0.0772505072177,0.0767779158795,0.0757357913899,0.0752753177783,0.0747179023537,0.0742210755621,0.0734818942382,0.0737000133174,0.0733243637921,0.0733849524252,0.0735061296914,0.0732758928856,0.073518247418,0.0740514273894,0.0736394246843,0.073615189231,0.0735909537778,0.0733122460655,0.0733970701518,0.0735061296914,0.0729487142668,0.0723549456623,0.0728638901804,0.0723064747558,0.072621535648,0.0722822393026,0.0714824693455,0.0711795261799,0.0708038766546,0.0701374016904,0.070343403043,0.0703797562228,0.0695193976327,0.0690831594743,0.068707509949,0.0690952772009,0.0697859876183,0.0693497494599,0.0688529226684,0.0694588089995,0.0687317454022,0.0685499795029,0.0685620972295,0.06841668451,0.0674351486536,0.0667686736894,0.0659446682791,0.0664414950706,0.0664657305238,0.0658719619193,0.0657507846531,0.0660052569122,0.0656296073869,0.0657265491998,0.0663930241641,0.0659689037323,0.0660779632719,0.0653266642213,0.0651327805954,0.065047956509,0.0653266642213,0.0648904260629,0.0648056019765,0.0640906561058,0.0635938293143,0.0633757102351,0.0631818266091,0.0630000607098,0.0634968875013,0.0630364138897,0.0627213529975,0.0628061770839,0.0618488766807,0.0625032339183,0.0617155816878,0.0614005207957,0.0617398171411,0.0618004057742,0.06113393081,0.0615580512417,0.0612672258028,0.0608067521912,0.0617034639612,0.0611702839898,0.0614489917021,0.0615216980619,0.0608915762775,0.0601766304068,0.0603705140328,0.0596192149822,0.0595949795289,0.0590375641043,0.0586013259459,0.0587346209387,0.059207212277,0.0595586263491,0.0591587413705,0.0598615695146,0.0595101554426,0.0591345059173,0.0590860350108,0.0595586263491,0.0591708590971,0.0589769754712,0.0587830918452,0.0576440255427,0.0575107305499,0.0572562582908,0.0570381392116,0.0571956696577,0.0560808388084,0.0558021310961,0.0557536601896,0.0548933015994,0.0541177670956,0.054554005254,0.0548084775131,0.0544812988943,0.0540814139157,0.0539602366495,0.0549660079592,0.0548205952397,0.0551720093117,0.0554385992974,0.056092956535,0.0560081324487,0.0555355411104,0.0559111906357,0.0555234233838,0.0556082474702,0.055002361139,0.0554628347507,0.0548690661462,0.0554628347507,0.0554264815708,0.0556324829234,0.0557900133695,0.0553174220312,0.0560566033552,0.0562626047078,0.0566746074129,0.0568079024058,0.0570987278447,0.0564201351539,0.0559838969954,0.0558748374558,0.056286840161,0.0561050742617,0.0556688361033,0.0551477738585,0.0547357711533,0.0540935316424,0.0540814139157,0.0544812988943,0.0545661229806,0.0549660079592,0.0547115357001,0.0551356561319,0.0548205952397,0.05474788888,0.0548690661462,0.0554749524773,0.0552325979449,0.0554264815708,0.055741542463,0.0554628347507,0.0553901283909,0.0549660079592,0.0556203651968,0.055741542463,0.0558627197292,0.0554143638442,0.0553295397578,0.0548448306929,0.054650947067,0.054360121628,0.0542147089086,0.0539844721028,0.0537421175703,0.0536451757573,0.0530392894262,0.0524939917282,0.0524091676418,0.0522879903756,0.0513549254257,0.051439749512,0.0515488090517,0.0512701013393,0.051730574951,0.0514033963322,0.0520577535698,0.052081989023,0.0522152840159,0.0524818740016,0.0523001081022,0.0519486940302,0.0519002231237,0.0523970499152,0.0518881053971,0.052627286721,0.0525909335412,0.0529908185197,0.0526394044477,0.0522274017425,0.0528817589801,0.0537905884768,0.0531968198723,0.0529787007931,0.0526878753542,0.0517669281309,0.0514518672387,0.0513912786056,0.0515245735984,0.0517669281309,0.0515851622315,0.050894451814,0.0517790458575,0.051633633138,0.0520092826633,0.0521304599295,0.0521062244763,0.052081989023,0.0524334030951,0.0523970499152,0.0518638699438,0.0513791608789,0.0509186872673,0.0509429227205,0.0507248036413,0.0507732745478,0.0508217454543,0.0505188022887,0.0500219754972,0.0496584436986,0.0503370363894,0.0505188022887,0.0501310350368,0.050736921368,0.0505551554686,0.0504339782024,0.0507490390946,0.0506763327348,0.0510762177134,0.0508459809076,0.05108833544,0.0513549254257,0.0513428076991,0.0510640999868,0.0509550404472,0.0511246886199,0.0508823340874,0.0513428076991,0.051185277253,0.0514276317854,0.0511973949796,0.0510762177134,0.0512095127062,0.050991393627,0.0510277468069,0.0511368063465,0.050894451814,0.0505066845621,0.0503612718427,0.0504097427491,0.0496342082453,0.0496220905187,0.0497917386914,0.0491373814538,0.048810202835,0.048167963324,0.0482043165039,0.048264905137,0.0483376114967,0.0484345533097,0.049161616907,0.0489556155545,0.0488586737415,0.0494766777992,0.0503249186628,0.0512579836127,0.0513185722458,0.0515124558718,0.051827516764,0.0522395194691,0.0523364612821,0.0519729294834,0.0518396344906,0.0520214003899,0.0513912786056,0.050736921368,0.0506642150082,0.0500340932239,0.0498159741446,0.0492222055402,0.0490283219142,0.0500462109505,0.0498644450511,0.0497553855115,0.0499735045907,0.0505672731952,0.0505188022887,0.0505672731952,0.0504097427491,0.0504945668355,0.0502885654829,0.0496705614252,0.0497432677849,0.0495857373388,0.0496826791518,0.04925855872,0.0492464409934,0.0500704464037,0.0500219754972,0.0502037413966,0.0503370363894,0.0503370363894,0.0511489240731,0.0507975100011,0.0501916236699,0.0502885654829,0.0501310350368,0.0496705614252,0.049706914605,0.0491858523603,0.0489798510077,0.0491010282739,0.0486042014824,0.0490283219142,0.0496705614252,0.0497311500583,0.0497311500583,0.0495736196122,0.0492222055402,0.0498280918713,0.0493312650798,0.0492464409934,0.0496220905187,0.049452442346,0.0492222055402,0.0491131460006,0.0495736196122,0.0497675032382,0.0498159741446,0.0501431527635,0.0507248036413,0.0504339782024,0.0502764477563,0.050349154116,0.0505309200154,0.0507853922744,0.0506642150082,0.0505915086485,0.0510277468069,0.0504824491089,0.0506884504615,0.0510156290803,0.0502279768498,0.0499371514109,0.0496220905187,0.0492706764466,0.0489434978278,0.0490040864609,0.0486769078421,0.0484587887629,0.04836184695,0.0481194924175,0.0484224355831,0.0485436128493,0.0484224355831,0.0482164342305,0.0485072596694,0.0487496142019,0.0488586737415,0.0487617319285,0.048616319209,0.0487980851084,0.0492343232668,0.0494282068927,0.0496947968784,0.0495372664323,0.0496705614252,0.0490889105473,0.0490646750941,0.0492343232668,0.0498280918713,0.0500825641303,0.0498159741446,0.0498402095979,0.0495251487057,0.0498765627778,0.0496584436986,0.049706914605,0.0494645600726,0.0493676182596,0.04836184695,0.048071021511,0.0481437278708,0.047622665626,0.0478650201584,0.047974079698,0.0473439579137,0.0474651351799,0.0476469010792,0.0473803110935,0.0476953719857,0.0474893706332,0.0472227806475,0.0475984301728,0.0475136060864,0.0473924288202,0.0479134910649,0.047525723813,0.0475014883598,0.0481316101441,0.0483012583169,0.0488586737415,0.048907144648,0.0490040864609,0.0489798510077,0.0489798510077,0.048616319209,0.0488950269213,0.0489556155545,0.0491737346337,0.0490889105473,0.0484103178565,0.0481194924175,0.0481558455974,0.0484103178565,0.0482527874104,0.0483982001298,0.0480467860578,0.0478892556117,0.0472591338273,0.0468471311222,0.0466532474962,0.0468107779423,0.0462775979709,0.0461443029781,0.0463745397839,0.0464472461436,0.0465441879566,0.0467138361293,0.0464957170501,0.0472591338273,0.0475741947195,0.0477923137987,0.0479377265182,0.0481194924175,0.0476711365325,0.0478892556117,0.0483376114967,0.0484587887629,0.0489556155545,0.0485193773961,0.0482285519571,0.0477923137987,0.0475984301728,0.0471379565611,0.0474166642734,0.0476105478994,0.0469319552085,0.0467017184027,0.0462533625177,0.0459988902586,0.0455990052801,0.045695947093,0.0457080648197,0.0455020634671,0.0451748848483,0.0445447630639,0.0450658253087,0.0452960621145,0.0455141811937,0.0454051216541,0.0458050066326,0.0457201825463,0.0461564207047,0.0461321852514,0.0465805411365,0.0463503043306,0.046083714345,0.0457080648197,0.045441474834,0.0459019484456,0.0462654802443,0.046629012043,0.0467138361293,0.0465199525034,0.0461685384313,0.046241244791,0.0460715966183,0.0459261838989,0.0457201825463,0.0455505343736,0.0455141811937,0.0452112380281,0.0449688834957,0.0452839443879,0.0454778280138,0.0458534775391,0.0463866575105,0.0466774829494,0.0470894856546,0.0468956020287,0.0467017184027,0.0470167792949,0.0467865424891,0.046629012043,0.0465926588631,0.0463503043306,0.045695947093,0.0459383016255,0.0457080648197,0.0458413598125,0.0462048916112,0.0456717116398,0.0454051216541,0.0453566507476,0.045441474834,0.0456474761865,0.0453808862009,0.0448719416827,0.0443024085315,0.0443024085315,0.0434784031211,0.0434784031211,0.0432724017686,0.0433572258549,0.0426422799842,0.0379163666015,0.0338811636362,0.0294218402392,0.0254835790869,0.0)
m <- c(0.0264244863114,0.0309872544204,0.0351914309978,0.0396058164041,0.0445148108195,0.0445519064952,0.0445890021708,0.0444529846933,0.0448610371258,0.0455040288377,0.0448115762249,0.044650828297,0.0446260978465,0.0450588807295,0.0449846893781,0.044922863252,0.0451701677565,0.045194898207,0.0455287592881,0.0455411245134,0.0458626203693,0.0458131594684,0.0459739073963,0.0456400463152,0.0452690895584,0.0451825329818,0.0455534897386,0.0457513333422,0.0451825329818,0.0449970546034,0.0449599589277,0.0454174722611,0.0460975596486,0.0464932468559,0.0468642036127,0.0474824648741,0.0473464473966,0.0474082735227,0.0478905173066,0.0481872827121,0.0486447960455,0.0491394050546,0.0487313526221,0.0475690214507,0.0475442910002,0.0479523434328,0.0478163259553,0.0476432128021,0.0475937519012,0.0477668650543,0.0478286911805,0.0475195605498,0.0476308475768,0.0483356654148,0.048236743613,0.0479399782075,0.0478286911805,0.0473217169461,0.0475937519012,0.0471609690182,0.0464685164054,0.0463695946036,0.046011003072,0.0461593857747,0.0465303425316,0.0461470205495,0.0460357335225,0.0463448641532,0.0462583075766,0.046283038027,0.0469136645136,0.046827107937,0.0478534216309,0.0481625522616,0.0475195605498,0.0479894391084,0.0482491088382,0.048508778568,0.0482614740634,0.0491888659555,0.0494485356853,0.0498194924421,0.0494609009105,0.0493743443339,0.0499060490187,0.0498813185683,0.0503388319017,0.0509076322622,0.0510189192892,0.050301736226,0.0502522753251,0.049596918388,0.0494609009105,0.0495721879376,0.0490652137032,0.0494114400096,0.0484098567662,0.0480265347841,0.0483974915409,0.0482862045139,0.0481872827121,0.0487066221716,0.0487684482978,0.0489291962257,0.0497947619917,0.0493001529826,0.050190449199,0.0500049708205,0.0500173360458,0.0506974234333,0.0514269717217,0.0515382587488,0.0513527803704,0.0513527803704,0.0504748493792,0.050573771181,0.050301736226,0.0510312845144,0.0507221538837,0.0504748493792,0.050190449199,0.0503141014512,0.0505490407306,0.0502770057755,0.0509694583883,0.0513404151451,0.0519339459561,0.0512414933433,0.0520205025326,0.0524285549652,0.0523172679381,0.0519092155056,0.0518844850551,0.0523914592895,0.0524532854156,0.0521565200101,0.0518102937038,0.0517237371272,0.0510436497397,0.050845806136,0.0505119450549,0.0507221538837,0.0500420664962,0.0495598227123,0.049757666316,0.049596918388,0.0498442228926,0.0507963452351,0.0511796672172,0.0510312845144,0.051278589019,0.0512043976676,0.0523296331633,0.0522307113615,0.0523419983886,0.0527500508211,0.0523790940642,0.0519957720822,0.0523419983886,0.0525027463165,0.0530962771274,0.0533312164068,0.0538010949654,0.0541349560466,0.0538010949654,0.0541349560466,0.0542091473979,0.0539123819925,0.0533683120825,0.0529478944247,0.0525769376679,0.0521317895597,0.0516124501001,0.0514022412713,0.0519957720822,0.051278589019,0.0515382587488,0.0518721198299,0.0519710416317,0.0522307113615,0.0520205025326,0.052527476767,0.0525398419922,0.0527500508211,0.0524656506408,0.052366728839,0.0524409201904,0.0519710416317,0.0518844850551,0.0520699634336,0.0523790940642,0.0521070591092,0.0522307113615,0.0524780158661,0.0522678070372,0.0529973553256,0.052799511722,0.0526140333436,0.0525893028931,0.0526511290193,0.0523419983886,0.0524409201904,0.0521688852354,0.0520823286588,0.0519957720822,0.0520205025326,0.0523543636138,0.0528860682986,0.0528860682986,0.0528984335238,0.0527747812715,0.0527747812715,0.0523172679381,0.0517361023524,0.0517731980281,0.0516866414515,0.0511549367667,0.051278589019,0.0511673019919,0.0511549367667,0.0514393369469,0.0513651455956,0.0517237371272,0.0521812504606,0.0524285549652,0.0527253203706,0.0525769376679,0.0523790940642,0.0522678070372,0.0517484675776,0.0511673019919,0.0512414933433,0.0513156846947,0.0512043976676,0.0513527803704,0.0505861364062,0.0511302063163,0.0506355973072,0.0506479625324,0.0508952670369,0.0514269717217,0.0515011630731,0.0515258935235,0.0518473893795,0.051661911001,0.0516124501001,0.0515258935235,0.0516866414515,0.0521194243345,0.0524038245147,0.0522430765867,0.0520205025326,0.0522678070372,0.0523296331633,0.0518350241542,0.0517731980281,0.0516000848749,0.0523049027129,0.051983406857,0.051822658929,0.0515877196497,0.0518844850551,0.0512167628928,0.0512291281181,0.0509076322622,0.0514393369469,0.0513280499199,0.0509323627126,0.051006554064,0.0510436497397,0.0515629891992,0.0511425715415,0.0515629891992,0.0517484675776,0.0521565200101,0.0522307113615,0.0526758594697,0.0527500508211,0.0527871464968,0.0529355291995,0.0530591814518,0.0540236690195,0.0543946257764,0.0543575301007,0.0545677389295,0.0543575301007,0.0538258254159,0.0543451648754,0.0549263304611,0.0546048346052,0.0539371124429,0.0538134601907,0.0536650774879,0.05350432956,0.0538134601907,0.053776364515,0.0542709735241,0.0538381906411,0.053182833704,0.05350432956,0.0540731299204,0.0539000167672,0.0538258254159,0.0537639992897,0.0532693902806,0.0531704684788,0.0530220857761,0.0531333728031,0.0530468162265,0.0529602596499,0.0526140333436,0.0516990066767,0.0511054758658,0.0510436497397,0.0509818236135,0.0509447279378,0.0510683801901,0.0513156846947,0.0508705365865,0.0509199974874,0.051278589019,0.0519710416317,0.0526758594697,0.0526634942445,0.0526263985688,0.0531210075779,0.0536403470375,0.0526882246949,0.0529231639743,0.0528489726229,0.0526016681183,0.052910798749,0.0527129551454,0.0526758594697,0.0529726248752,0.0531457380284,0.0528366073977,0.0538010949654,0.0543822605511,0.054753217308,0.0543822605511,0.0542338778484,0.0542957039745,0.0541349560466,0.0541102255961,0.0541349560466,0.053887651542,0.0536279818122,0.0537021731636,0.0534301382086,0.0538752863168,0.0536774427131,0.0537887297402,0.0542215126232,0.0539247472177,0.0534548686591,0.0527005899202,0.0525769376679,0.0526882246949,0.0532446598302,0.053071546677,0.0531457380284,0.052638763794,0.0521936156858,0.0526511290193,0.0526511290193,0.0535908861366,0.0536774427131,0.0537887297402,0.0528860682986,0.0537639992897,0.0535661556861,0.0545801041548,0.05513653929,0.0555074960468,0.0562123138848,0.0566203663173,0.0569171317228,0.056496714065,0.0565585401912,0.0557918962271,0.0560021050559,0.0549386956864,0.0551241740648,0.0544193562268,0.054159686497,0.0540978603709,0.0542338778484,0.0548768695602,0.0550128870377,0.0555445917225,0.0553962090198,0.0560021050559,0.0557424353262,0.0564101574885,0.05622467911,0.0562617747857,0.056385427038,0.0558660875784,0.0559897398307,0.0559402789298,0.0564225227137,0.0565832706416,0.0568800360471,0.0564348879389,0.0560886616325,0.0552849219927,0.05513653929,0.0554209394702,0.0555074960468,0.0556064178487,0.0550376174882,0.0555445917225,0.0558908180289,0.0561628529839,0.0564596183894,0.0566698272182,0.055952644155,0.0561752182091,0.0565090792903,0.0560021050559,0.0562494095605,0.0564225227137,0.0564101574885,0.056546174966,0.0563977922632,0.0565832706416,0.0572757232544,0.0567934794705,0.056496714065,0.0570036882994,0.0577950627139,0.0572509928039,0.0565956358669,0.0565956358669,0.0569542273985,0.0573128189301,0.0574364711823,0.0577826974887,0.0583267673987,0.0583020369483,0.0585246110024,0.0587100893808,0.0590810461376,0.0593283506422,0.0593283506422,0.0592541592908,0.0592541592908,0.0593654463179,0.0591799679394,0.0595014637954,0.0587719155069,0.0587100893808,0.0583762282996,0.0586358980294,0.058883202534,0.0594643681197,0.0596127508224,0.059588020372,0.0598229596513,0.0597364030747,0.0601197250567,0.0601073598315,0.0607132558677,0.0603793947865,0.0610842126245,0.061059482174,0.0615046302822,0.0621723524445,0.0622836394716,0.062197082895,0.0623578308229,0.0624814830752,0.06301318776,0.0638416578503,0.0632110313637,0.0632975879402,0.0635201619943,0.0635077967691,0.0637056403728,0.0634707010934,0.0642002493819,0.064966893346,0.0642373450575,0.0644104582107,0.0652141978505,0.0652760239767,0.0652636587514,0.0654985980308,0.065943746139,0.0669453293824,0.0666609292022,0.0667351205535,0.0677737994726,0.0675017645176,0.0677737994726,0.0684291564097,0.0690597828963,0.0691216090225,0.0694060092027,0.0700119052388,0.0698635225361,0.0698387920857,0.0695791223559,0.0700984618154,0.0702468445182,0.0702468445182,0.0702097488425,0.0709640275814,0.0712113320859,0.0707043578516,0.0714957322662,0.0719656108248,0.0728682722664,0.0730784810953,0.0729671940683,0.0727940809151,0.0730908463205,0.0726580634376,0.0726456982123,0.0734123421764,0.0734123421764,0.0728682722664,0.0729053679421,0.0736843771315,0.0734494378521,0.0733999769512,0.0732886899242,0.0736101857801,0.0742779079424,0.0744633863208,0.0749703605551,0.075885387222,0.0757988306454,0.0755391609156,0.0764665528077,0.0770353531681,0.07767834488,0.0782471452405,0.078655197673,0.0789025021775,0.0793971111866,0.0797309722678,0.0803492335291,0.0807078250608,0.0807325555112,0.0823153043403,0.0830201221783,0.0838856879443,0.0839598792956,0.0844915839804,0.0847883493859,0.0851098452418,0.0855055324491,0.0859877762329,0.0865565765934,0.0860619675843,0.0855673585752,0.0849614625391,0.0857157412779,0.0860866980348,0.0858393935302,0.0864452895664,0.0867296897466,0.0863834634402,0.0868162463232,0.08664313317,0.0870882812782,0.0878549252423,0.0881022297469,0.0878549252423,0.0886215692064,0.0882629776748,0.0881393254226,0.0900064744319,0.0905258138915,0.0907112922699,0.0906494661438,0.0909215010988,0.0908720401979,0.0914284753331,0.0918241625404,0.0933203547929,0.0940499030814,0.0930235893875,0.0934440070452,0.0941240944327,0.0954100778564,0.0953606169555,0.0952616951537,0.0963498349737,0.0970917484874,0.0964116610998,0.0967702526314,0.0969062701089,0.097450340019,0.0975121661451,0.0983900971363,0.099243297677,0.100516915875,0.100393263623,0.100158324344,0.101555594795,0.101370116416,0.102804482543,0.102668465065,0.104424327047,0.104708727228,0.105858693174,0.105438275516,0.105759771372,0.106340936958,0.107045754796,0.109172573535,0.109506434616,0.111200470472,0.11162088813,0.111460140202,0.111163374796,0.111868192634,0.11244935822,0.113055254256,0.113339654436,0.113426211013,0.113908454797,0.113611689391,0.113376750112,0.113760072094,0.115058420743,0.116109464887,0.116678265248,0.117111048131,0.117383083086,0.117333622185,0.117482004888,0.118199187951,0.118866910113,0.12006633696,0.119819032456,0.120152893537,0.120338371915,0.120536215519,0.121067920204,0.120981363627,0.121809833717,0.122267347051,0.12221788615,0.12169854669,0.121834564168,0.122057138222,0.122180790474,0.122106599123,0.122044772997,0.122774321285,0.12250228633,0.121859294618,0.122650669033,0.12333075642,0.123800634979,0.123664617502,0.124295243988,0.124579644168,0.125346288132,0.125643053538,0.125927453718,0.126236584349,0.12711451534,0.126966132637,0.127052689214,0.127992446331,0.129142412277,0.1303789348,0.130304743449,0.130737526332,0.13144234417,0.13283961462,0.132926171197,0.133260032278,0.134137963269,0.135114816062,0.134694398405,0.134768589756,0.136784121468,0.137674417684,0.137884626513,0.137798069937,0.138626540027,0.140506054262,0.140295845433,0.140110367054,0.140530784712,0.141656020208,0.141618924532,0.141359254802,0.143102751559,0.143535534442,0.142558681649,0.142101168316,0.143894125974,0.145736544533,0.147628423993,0.147653154443,0.146441362371,0.147158545434,0.146775223452,0.147208006335,0.148988598768,0.149446112101,0.150188025615,0.148296146155,0.147776806695,0.149050424894,0.149866529759,0.151115417507,0.15183260057,0.152401400931,0.152611609759,0.152883644714,0.152846549039,0.154379836967,0.154033610661,0.153786306156,0.154849715526,0.154318010841,0.153637923453,0.153897593183,0.154045975886,0.155257767958,0.155455611562,0.155406150661,0.15698889949,0.157570065076,0.15727329967,0.158126500211,0.159461944536,0.159066257328,0.160104936247,0.160315145076,0.160339875527,0.161836067779,0.162033911383,0.162639807419,0.163319894807,0.163690851563,0.1643462085,0.165496174447,0.164778991383,0.165026295888,0.16512521769,0.164828452284,0.165075756789,0.165817670303,0.166918175348,0.167252036429,0.167449880033,0.16812996742,0.168661672105,0.169551968321,0.17108525625,0.172272317871,0.172804022556,0.172136300394,0.171530404358,0.172680370304,0.172408335349,0.17328626634,0.174423867061,0.173719049223,0.173422283818,0.172395970124,0.173150248863,0.173731414448,0.175103954448,0.175474911205,0.176909277332,0.176983468683,0.176995833908,0.177601729944,0.178603313188,0.179740913909,0.179604896431,0.179097922197,0.178417834809,0.176464129224,0.175685120034,0.176154998593,0.17681035553,0.176056076791,0.174683536791,0.173508840394,0.172408335349,0.171159447601,0.170689569042,0.171480943457,0.170355707961,0.168488558952,0.167647723636,0.168043410844,0.16784556724,0.167252036429,0.167078923276,0.168500924177,0.16810523697,0.167128384177,0.167140749402,0.166893444897,0.165075756789,0.163604294987,0.162046276608,0.1616011285,0.160451162554,0.159078622553,0.158250152463,0.157891560932,0.157718447778,0.15724856922,0.15698889949,0.157211473544,0.157928656607,0.157434047598,0.157644256427,0.157434047598,0.156815786337,0.156073872823,0.15533195931,0.155492707237,0.155084654805,0.155294863634,0.155035193904,0.155653455165,0.155863663994,0.156271716427,0.155913124895,0.154787889399,0.153934688859,0.15263634021,0.153291697147,0.15237667048,0.151758409219,0.150064373363,0.148221954804,0.146898875704,0.146292979668,0.146738127776,0.146082770839,0.146750493002,0.145489240028,0.145229570299,0.144772056965,0.145353222551,0.144796787416,0.14450002201,0.144598943812,0.144054873902,0.144178526154,0.143028560208,0.143325325613,0.14232374237,0.141594194082,0.142138263992,0.142286646694,0.142187724893,0.141606559307,0.140778089217,0.140332941108,0.139133514261,0.137896991739,0.137117982549,0.13690777372,0.134669667954,0.134273980747,0.133247667053,0.132542849215,0.132468657864,0.132307909936,0.132592310116,0.132035874981,0.13146707462,0.130885909034,0.129946151917,0.129055855701,0.128858012097,0.128598342367,0.128573611917,0.127819333178,0.127139245791,0.12711451534,0.12737418507,0.126335506151,0.126966132637,0.12685484561,0.125927453718,0.125445209934,0.124975331376,0.12382536543,0.124196322186,0.123256565069,0.121488337861,0.121537798762,0.120363102366,0.119831397681,0.119373884348,0.118619605609,0.11703685678,0.116554612996,0.11436596813,0.113401480563,0.112906871554,0.111534331553,0.110310174256,0.109296225787,0.107441442003,0.106885006868,0.106130728129,0.105450640741,0.104659266327,0.104275944345,0.103237265425,0.103163074074,0.102544812813,0.101320655515,0.100900237857,0.0994040456049,0.0990454540733,0.0988228800192,0.0992309324517,0.0977100097487,0.0980562360551,0.0967207917305,0.0965600438026,0.0964611220008,0.0969062701089,0.0967702526314,0.0967084265053,0.095929417316,0.0952369647032,0.0953111560546,0.0952616951537,0.0954595387573,0.0955460953339,0.0954471735321,0.0949896601987,0.0949649297482,0.0949401992978,0.094680529568,0.0939015203786,0.0938767899282,0.0931843373154,0.0927515544325,0.0924176933513,0.092726823982,0.0922322149729,0.0925537108288,0.0912924578556,0.0905629095672,0.0908720401979,0.0911564403781,0.090501083441,0.0897468047021,0.0885350126298,0.0873355857828,0.0864947504673,0.0862227155123,0.0863463677646,0.0864452895664,0.0854808019986,0.0843802969534,0.0841948185749,0.0846276014579,0.0847759841606,0.0845534101065,0.0853571497463,0.0839227836199,0.0835641920883,0.0834281746108,0.0835394616379,0.0834652702865,0.0833539832595,0.0829582960522,0.083057217854,0.0833045223586,0.0829088351513,0.0834281746108,0.0828470090251,0.0828222785747,0.0828099133494,0.0820061737097,0.0821298259619,0.081375547223,0.0803739639796,0.079582589565,0.0787912151505,0.0780740320873,0.0780245711864,0.0768869704654,0.0763552657806,0.0761326917265,0.0748467083029,0.0745994037983,0.0750569171317,0.0743397340685,0.0742284470415,0.0746859603749,0.0743891949694,0.0751434737083,0.0754773347895,0.0747601517263,0.0749456301047,0.0745252124469,0.074092429564,0.0745252124469,0.0745252124469,0.0731032115458,0.072954828843,0.0721634544285,0.0712731582121,0.0717183063203,0.0717183063203,0.0717924976716,0.0709887580318,0.0705436099236,0.0700984618154,0.0710258537075,0.071050584158,0.0709516623561,0.0709145666805,0.0711247755093,0.0708651057796,0.0704941490227,0.0703828619957,0.0699253486623,0.0697398702838,0.0692823569504,0.0686270000134,0.0688001131665,0.068392060734,0.0679963735267,0.0677737994726,0.0677737994726,0.0680581996529,0.0680952953286,0.0677490690222,0.0668464075806,0.0667969466797,0.0661168592921,0.0661786854183,0.0661044940669,0.0657459025353,0.0660179374903,0.0659066504633,0.065671711184,0.065622250283,0.0659190156885,0.0659190156885,0.0667845814544,0.0662776072201,0.0658448243371,0.0655975198326,0.0651771021748,0.0646824931657,0.0645959365891,0.0647319540667,0.0646577627153,0.0644104582107,0.0630997443366,0.0629884573096,0.0632975879402,0.0635077967691,0.0633346836159,0.0631615704627,0.0631368400123,0.0628771702825,0.0627287875798,0.0629266311834,0.0630008225348,0.0635201619943,0.0631863009132,0.063718005598,0.0635201619943,0.0634212401925,0.0632975879402,0.063285222715,0.0629637268591,0.0624320221743,0.0622712742464,0.062629865778,0.0623454655977,0.0611707692011,0.0607998124443,0.0604659513631,0.0603670295613,0.0598971510026,0.059588020372,0.0597858639756,0.059860055327,0.0591799679394,0.058883202534,0.058722454606,0.0587719155069,0.0591305070385,0.0594025419935,0.0595756551467,0.0599466119036,0.0601197250567,0.0603793947865,0.0604659513631,0.0605401427145,0.0612449605525,0.061492265057,0.0615169955075,0.061220230102,0.0612696910029,0.0614428041561,0.061108943075,0.0607379863181,0.0605525079397,0.0606885254172,0.0600702641558,0.0600084380297,0.0600826293811,0.0599342466783,0.0592046983899,0.0586358980294,0.0584998805519,0.0588461068583,0.0585617066781,0.0584998805519,0.0583514978492,0.0578816192905,0.0576095843355,0.0572633580292,0.0575972191103,0.0576095843355,0.0572509928039,0.0566698272182,0.0566450967678,0.0561010268578,0.0560392007316,0.0555816873982,0.0556187830739,0.0558660875784,0.0562494095605,0.0557300701009,0.056113392083,0.0558289919028,0.0556929744253,0.0559031832541,0.0560639311821,0.0562370443353,0.0561381225334,0.0562617747857,0.0556311482991,0.0559650093803,0.0560392007316,0.055952644155,0.0559650093803,0.0561752182091,0.0561999486596,0.05622467911,0.0557300701009,0.0550376174882,0.0553714785693,0.0552478263171,0.05459246938,0.0549016000107,0.0541473212718,0.0541102255961,0.0542215126232,0.0543080691998,0.0543698953259,0.0546542955061,0.0546295650557,0.0551241740648,0.0553343828937,0.0551489045152,0.0556682439748,0.0560021050559,0.0557548005514,0.0553343828937,0.0556558787496,0.0560021050559,0.0561752182091,0.055952644155,0.0556187830739,0.0556187830739,0.0555322264973,0.0550747131639,0.0553838437946,0.0564101574885,0.0563730618128,0.0560515659569,0.0558908180289,0.0557424353262,0.0559031832541,0.0555445917225,0.0555569569477,0.0557053396505,0.0551860001909,0.0549139652359,0.0550747131639,0.0548892347855,0.0547284868575,0.0543946257764,0.0543822605511,0.0545430084791,0.0542338778484,0.0485582394689,0.0432535578463,0.0374913628902,0.0317291679341,0.0)
ycorr <- c(0.000122970482277,0.000122832276227,0.00012241798073,0.00012172501578,0.000120757195106,0.000119511384263,0.000117991607402,0.000116458897816,0.000114919171574,0.000113371049339,0.000111821241817,0.000110269374225,0.000108709082382,0.000107135537148,0.000105551221537,0.000103955696173,0.00010235301806,0.000100746304168,9.91325746068e-05,9.75103126988e-05,9.58770840433e-05,9.42284758888e-05,9.256963567e-05,9.09019934486e-05,8.92291899412e-05,8.75518643618e-05,8.58685807702e-05,8.41761899356e-05,8.2471817699e-05,8.07562572222e-05,7.9032609844e-05,7.73034735803e-05,7.55692855553e-05,7.38294474513e-05,7.20853716616e-05,7.03359586278e-05,6.85827394971e-05,6.68254949131e-05,6.50647752423e-05,6.33055415111e-05,6.15467975233e-05,5.97860688018e-05,5.80207487087e-05,5.62520660783e-05,5.44774003606e-05,5.26983859448e-05,5.09102471601e-05,4.91123315785e-05,4.73078371098e-05,4.54936921418e-05,4.3664242595e-05,4.18219947601e-05,3.99677171495e-05,3.8098071551e-05,3.62083522123e-05,3.4295343136e-05,3.23613654641e-05,3.04089881555e-05,2.84360759057e-05,2.64382974897e-05,2.44174578839e-05,2.23758981772e-05,2.03098943216e-05,1.82194025362e-05,1.61124932847e-05,1.39951864416e-05,1.18633671627e-05,9.71364102813e-06,7.5478716463e-06,5.36883467364e-06,3.17682604824e-06,9.66194205379e-07,-1.25809236176e-06,-3.49052411366e-06,-5.73305289307e-06,-7.99394397501e-06,-1.02722952092e-05,-1.25593204603e-05,-1.48613732986e-05,-1.71782699481e-05,-1.95074807945e-05,-2.18447369408e-05,-2.41919563046e-05,-2.65593229602e-05,-2.8952054018e-05,-3.13659040734e-05,-3.37898629556e-05,-3.62295870742e-05,-3.86822724361e-05,-4.11399921387e-05,-4.36090140557e-05,-4.60920721983e-05,-4.85916286116e-05,-5.10920078527e-05,-5.35859603445e-05,-5.60729884061e-05,-5.85587518423e-05,-6.10515079494e-05,-6.35489749385e-05,-6.60586710309e-05,-6.85809751514e-05,-7.11077907991e-05,-7.36379882725e-05,-7.61747082468e-05,-7.87251780034e-05,-8.1290781764e-05,-8.38720870786e-05,-8.64625707382e-05,-8.90583584411e-05,-9.16581098769e-05,-9.42577293232e-05,-9.68624132561e-05,-9.94744231605e-05,-0.000102097237682,-0.000104733310265,-0.000107381551917,-0.000110042269771,-0.000112714817474,-0.000115404048371,-0.000118108975693,-0.000120831905526,-0.000123573796456,-0.000126328394821,-0.00012910144943,-0.000131887599027,-0.000134686515309,-0.000137499659934,-0.000140327940427,-0.000143173127946,-0.000146037077808,-0.000148918185508,-0.000151814365303,-0.000154728649088,-0.000157659846781,-0.000160604926273,-0.000163567507493,-0.000166542800369,-0.000169530628381,-0.000172529328829,-0.000175537143505,-0.000178552610983,-0.00018158350658,-0.000184632638871,-0.000187699331797,-0.000190784995442,-0.000193885518415,-0.000196998016461,-0.000200125302649,-0.000203265493515,-0.000206419138779,-0.000209586561229,-0.000212760215606,-0.000215936227935,-0.000219109827081,-0.000222282745157,-0.000225456066725,-0.000228636747472,-0.000231826653028,-0.000235026302021,-0.000238238421355,-0.000241461384242,-0.000244692826541,-0.000247938915197,-0.000251200162902,-0.000254476434847,-0.000257762963884,-0.000261057038698,-0.000264345366944,-0.000267624840511,-0.00027089255122,-0.000274149791391,-0.000277398440115,-0.00028063526794,-0.000283855790405,-0.000287052954323,-0.000290220915101,-0.000293358951327,-0.00029647238482,-0.000299563074558,-0.000302628354024,-0.000305664176326,-0.000308669601595,-0.000311641180531,-0.000314579460086,-0.000317489368548,-0.000320383141013,-0.000323265437738,-0.000326132683521,-0.000328981904073,-0.000331817808224,-0.000334639280834,-0.000337443659508,-0.000340226384495,-0.000342989922288,-0.000345732916118,-0.000348449652592,-0.000351133075642,-0.000353788413244,-0.000356423553155,-0.000359036613426,-0.000361626851339,-0.000364201988143,-0.000366765365407,-0.000369318718396,-0.000371862345362,-0.000374398922308,-0.00037693108103,-0.000379456127844,-0.000381967449319,-0.00038446295993,-0.000386945902027,-0.000389419504291,-0.000391882505768,-0.000394335087545,-0.000396779946109,-0.00039921755475,-0.000401644788249,-0.000404057911546,-0.000406458195488,-0.000408846130688,-0.000411223894577,-0.000413586760371,-0.000415932963782,-0.000418257194289,-0.000420554813975,-0.000422820478912,-0.00042505216035,-0.00042725778219,-0.000429441299306,-0.000431607169709,-0.000433752835202,-0.000435874308473,-0.000437972686491,-0.000440051455957,-0.000442113280421,-0.000444163431343,-0.000446206075201,-0.000448239914738,-0.000450259259194,-0.000452263389836,-0.000454251637874,-0.000456224463601,-0.000458180283784,-0.000460125810811,-0.00046205843147,-0.000463981922617,-0.000465896198781,-0.000467798080269,-0.000469690513893,-0.000471568935276,-0.000473433031997,-0.00047528266603,-0.00047712373707,-0.000478948304833,-0.000480752952678,-0.000482534374884,-0.000484289793941,-0.000486019500881,-0.000487726347607,-0.000489410019646,-0.000491072757193,-0.00049271330547,-0.000494331528802,-0.000495925217364,-0.000497499782784,-0.000499053046531,-0.00050058774607,-0.000502109478037,-0.000503616076642,-0.000505105822743,-0.00050657923702,-0.000508039462518,-0.00050948239495,-0.000510911424543,-0.000512330632384,-0.000513739847674,-0.00051513710781,-0.000516519312281,-0.000517878325473,-0.000519219404595,-0.000520541240881,-0.000521839033632,-0.000523116473782,-0.000524373122268,-0.000525602298552,-0.000526799470218,-0.00052796571139,-0.000529096594567,-0.000530192842546,-0.000531251218903,-0.000532266483576,-0.000533240658647,-0.000534172522603,-0.000535056989278,-0.000535897687164,-0.000536692274008,-0.000537445275141,-0.000538160754103,-0.000538845349688,-0.000539498439195,-0.000540127668953,-0.000540732403542,-0.00054131529608,-0.000541880894646,-0.000542429492652,-0.000542967981745,-0.000543495662948,-0.000544010272516,-0.000544511427255,-0.00054500272669,-0.000545482099049,-0.000545952644304,-0.000546411794622,-0.000546860027396,-0.000547296960488,-0.000547723949716,-0.000548138266422,-0.000548544091256,-0.000548938640047,-0.000549321154342,-0.000549688329591,-0.000550046096923,-0.00055039252883,-0.000550730971879,-0.000551060353186,-0.000551378865757,-0.000551686089962,-0.000551982794443,-0.000552269991422,-0.000552547239068,-0.000552815603941,-0.000553070602689,-0.000553310762779,-0.000553536585779,-0.000553751621716,-0.000553955678728,-0.000554151888742,-0.000554335537385,-0.000554504640254,-0.000554661134119,-0.000554810222433,-0.000554950366237,-0.000555084712012,-0.000555209393601,-0.000555318542039,-0.000555408331361,-0.000555479608856,-0.000555535446249,-0.00055558025574,-0.000555611972314,-0.000555625813656,-0.000555620473933,-0.000555597563284,-0.000555556404834,-0.000555500432436,-0.000555436379977,-0.000555361234491,-0.000555272134294,-0.000555167250399,-0.000555047283274,-0.000554915572278,-0.00055477436419,-0.000554623149839,-0.000554462514726,-0.00055429715472,-0.00055412623051,-0.00055394968945,-0.000553770952312,-0.00055359161178,-0.000553411141332,-0.000553226285925,-0.000553040226291,-0.000552850511527,-0.000552656075405,-0.000552453505333,-0.000552240401313,-0.00055201638244,-0.000551778045955,-0.000551522926022,-0.000551250997324,-0.000550960155241,-0.000550649166041,-0.000550315135896,-0.000549963674251,-0.000549593974498,-0.000549208175308,-0.000548807392689,-0.000548391094121,-0.000547964498076,-0.000547532053459,-0.000547093820573,-0.000546650776942,-0.000546206783939,-0.000545759122645,-0.000545307757431,-0.000544854472816,-0.000544396361476,-0.000543935337436,-0.00054347024145,-0.000542994098381,-0.000542507800135,-0.000542011607332,-0.000541506437908,-0.000540991220625,-0.000540464113641,-0.000539920294265,-0.000539361743567,-0.000538790085516,-0.000538201844798,-0.0005376002107,-0.000536988349346,-0.000536363177145,-0.000535721829609,-0.000535063953461,-0.000534391334081,-0.000533707222684,-0.000533013841793,-0.00053230655205,-0.000531589295499,-0.000530860293515,-0.000530118796136,-0.000529364459737,-0.000528599398985,-0.000527825682235,-0.000527042643071,-0.000526249205162,-0.000525441393378,-0.000524621151018,-0.000523786277984,-0.000522936501265,-0.000522074200737,-0.000521198409263,-0.000520310165225,-0.000519407448031,-0.000518490721632,-0.000517559352677,-0.000516617002872,-0.000515667673003,-0.00051471245568,-0.000513751339824,-0.000512780114872,-0.000511798847401,-0.000510807026927,-0.00050980344987,-0.000508789578429,-0.000507767404519,-0.000506737222539,-0.000505693912676,-0.000504635415207,-0.000503560735263,-0.000502476412615,-0.000501383817722,-0.000500282768302,-0.000499174024515,-0.000498056802688,-0.000496929867824,-0.000495789680675,-0.000494639719928,-0.000493481210151,-0.000492318752652,-0.000491146560193,-0.000489964590055,-0.000488771831308,-0.000487568531226,-0.00048635565731,-0.000485132785426,-0.000483899005861,-0.000482654090186,-0.000481394684073,-0.000480121664503,-0.000478833646412,-0.000477530633715,-0.000476210620776,-0.000474875139366,-0.000473524171514,-0.000472156536201,-0.000470773698512,-0.000469377325661,-0.000467970354116,-0.000466553328693,-0.000465124854136,-0.000463684578215,-0.000462236902371,-0.000460782010555,-0.000459319279466,-0.000457850076661,-0.000456376246252,-0.000454897317114,-0.000453413116011,-0.000451919844834,-0.00045041779715,-0.000448908919645,-0.000447392734817,-0.000445868507281,-0.000444335542947,-0.000442793354208,-0.000441241050274,-0.000439676303146,-0.000438097788557,-0.000436506178673,-0.0004349031181,-0.000433286334681,-0.000431653671675,-0.00043000364338,-0.000428335034294,-0.000426646403466,-0.000424935978973,-0.000423204129887,-0.00042145308837,-0.000419683195803,-0.000417894976005,-0.00041608864029,-0.000414264123904,-0.000412422269465,-0.000410563254089,-0.000408689614649,-0.0004068026097,-0.000404903087101,-0.000402988262956,-0.000401057110755,-0.000399107560981,-0.000397138859416,-0.000395150815585,-0.000393146778433,-0.000391127218962,-0.000389095513342,-0.000387049840957,-0.00038499132691,-0.000382919670124,-0.000380836483945,-0.000378743712047,-0.00037664427183,-0.000374537817023,-0.000372425550488,-0.000370305922028,-0.000368174423344,-0.000366030103275,-0.000363874212162,-0.000361707157494,-0.000359529586319,-0.000357342879324,-0.000355145732206,-0.000352937810846,-0.000350714275096,-0.000348473464943,-0.000346217077047,-0.000343949814506,-0.000341666410432,-0.000339366851138,-0.000337048693936,-0.000334711373988,-0.000332353647376,-0.000329975868799,-0.000327579841196,-0.000325171209452,-0.000322751666713,-0.000320319502377,-0.00031787736988,-0.000315428845368,-0.000312974150244,-0.000310516089346,-0.00030805323202,-0.000305583991886,-0.000303108022482,-0.00030062380542,-0.000298129503963,-0.000295622847444,-0.000293101392436,-0.000290560827608,-0.000287999335867,-0.0002854150574,-0.000282809170689,-0.000280186124475,-0.000277544789873,-0.000274883526701,-0.000272202261216,-0.000269502899171,-0.000266787047578,-0.000264056486615,-0.000261313554526,-0.000258559756559,-0.000255794526299,-0.000253016278273,-0.000250226960964,-0.000247428747115,-0.000244622989331,-0.000241806432652,-0.000238976334943,-0.000236132855001,-0.000233275083159,-0.000230382846547,-0.000227430653622,-0.000224394522508,-0.000221249710534,-0.000217884102009,-0.000214728208707,-0.000211698533624,-0.000208786396362,-0.000205976800103,-0.000203251549658,-0.000200597104493,-0.000198030351772,-0.00019557781163,-0.000193263358325,-0.00019111026453,-0.000189225423616,-0.000187179471895,-0.000185054720693,-0.000182860947051,-0.000180614302166,-0.000178332896357,-0.000176031817253,-0.000173713722693,-0.000171376806153,-0.000169020797886,-0.000166646743035,-0.000164257469296,-0.000161850852256,-0.000159430608187,-0.000156997586346,-0.000154551753113,-0.00015209131394,-0.000149615863306,-0.000147125893427,-0.000144624362911,-0.000142112272659,-0.000139586618655,-0.00013704551545,-0.00013448943358,-0.000131916358473,-0.000129327838263,-0.000126725336466,-0.000124111403494,-0.000121484303828,-0.000118840744039,-0.000116178177936,-0.000113495655081,-0.000110795837342,-0.000108081564433,-0.000105353188171,-0.000102609754024,-9.98502721314e-05,-9.70731735261e-05,-9.42775290868e-05,-9.14667645858e-05,-8.86442613041e-05,-8.58139991194e-05,-8.29772894244e-05,-8.01314971392e-05,-7.72743711518e-05,-7.44051735265e-05,-7.15260005734e-05,-6.86378502312e-05,-6.57420980612e-05,-6.28380798782e-05,-5.99275100344e-05,-5.70094469773e-05,-5.40817433253e-05,-5.11447218196e-05,-4.8201793318e-05,-4.52527153073e-05,-4.22984929965e-05,-3.93366222647e-05,-3.63676144859e-05,-3.33921576284e-05,-3.04085771331e-05,-2.74132251281e-05,-2.44033120245e-05,-2.13774148307e-05,-1.83351715585e-05,-1.52748248732e-05,-1.21977132548e-05,-9.1027879439e-06,-5.99156625394e-06,-2.86043720836e-06,2.93623951721e-07,3.4710331496e-06,6.66848568564e-06,9.88276326912e-06,1.31131366871e-05,1.6357275178e-05,1.96169386953e-05,2.28943878571e-05,2.61888791436e-05,2.94992131558e-05,3.28218018976e-05,3.61508993965e-05,3.94853935734e-05,4.28278803805e-05,4.6177473163e-05,4.95351994991e-05,5.29000865787e-05,5.62681632439e-05,5.96401075671e-05,6.30138792217e-05,6.63904842346e-05,6.97711932938e-05,7.31610553098e-05,7.65584785072e-05,7.9965746489e-05,8.33818740424e-05,8.68074021457e-05,9.02425098234e-05,9.36877638364e-05,9.7142512169e-05,0.000100611739474,0.000104097649536,0.000107598182775,0.000111111396565,0.000114634275566,0.000118165187765,0.000121705431645,0.000125256092566,0.000128818157115,0.000132391598644,0.000135971852951,0.000139554282884,0.00014313482241,0.00014671393659,0.000150294628124,0.000153877863497,0.000157463202745,0.000161049228045,0.000164632557716,0.000168215316496,0.000171798217355,0.000175380829042,0.000178964369531,0.000182550875484,0.000186139398829,0.00018972888597,0.000193320224179,0.000196910800486,0.000200502591907,0.000204094795439,0.000207685141272,0.000211277719392,0.000214873722321,0.000218471505623,0.000222070666384,0.00022567313583,0.000229276041189,0.000232882548727,0.000236494341698,0.000240111986915,0.000243737448186,0.000247368768462,0.000251003260341,0.000254641759602,0.000258287089773,0.000261939164369,0.000265596873214,0.000269259438799,0.000272924407425,0.000276589438362,0.000280252163755,0.000283911803476,0.00028757225295,0.00029123185559,0.000294889401849,0.000298542155517,0.000302190417568,0.000305834737783,0.000309475173438,0.000313108953127,0.000316737645111,0.000320361456243,0.000323977670151,0.000327584812791,0.000331182926133,0.000334771641739,0.00033835171581,0.000341922274974,0.000345481874074,0.000349035147583,0.000352581858154,0.000356120283122,0.000359653158027,0.00036318042612,0.000366700246621,0.000370211087475,0.000373713111096,0.000377203662376,0.000380681272359,0.000384145266473,0.000387594403987,0.000391028287151,0.000394446372571,0.000397845882886,0.000401227162103,0.000404590564782,0.000407935737008,0.000411262669807,0.000414573829554,0.000417868813029,0.000421146377284,0.000424405634314,0.000427645469561,0.00043086835373,0.000434073546879,0.00043726179542,0.00044043449946,0.000443591477182,0.000446730638729,0.000449852738576,0.000452958068086,0.000456048121613,0.000459121291569,0.000462177901656,0.000465218449799,0.000468244384853,0.000471253601401,0.000474247256534,0.000477227607862,0.000480194540987,0.0004831463366,0.000486083083318,0.000489004758045,0.000491912609317,0.000494807009344,0.000497685678411,0.000500548531068,0.000503395901416,0.000506225792736,0.00050903352801,0.000511822207585,0.000514592603009,0.000517345009371,0.000520079459095,0.00052279399052,0.000525489480123,0.000528165032623,0.000530817505549,0.000533447837031,0.000536057041066,0.000538643873564,0.00054120643454,0.000543743805367,0.000546255941066,0.000548742877933,0.00055120346165,0.000553639286787,0.000556053511274,0.000558447862787,0.000560822722262,0.000563177508743,0.000565515454538,0.00056783726475,0.000570141960529,0.00057242780425,0.000574694522544,0.000576940400411,0.000579163540021,0.000581358540985,0.000583524943121,0.00058566391017,0.000587772432202,0.000589848144308,0.000591890213241,0.000593897598363,0.000595870864446,0.000597809227375,0.000599713261419,0.000601585178514,0.00060342691477,0.000605236928371,0.000607013901186,0.00060875908151,0.000610473719299,0.000612158685091,0.000613815770354,0.000615446663898,0.000617050821513,0.000618629362841,0.00062017855621,0.00062169906818,0.000623194753614,0.000624664702466,0.000626109765179,0.000627529824569,0.000628924588514,0.000630290364534,0.000631626402638,0.000632936073578,0.000634220508885,0.000635478911311,0.000636710018593,0.000637911195065,0.000639080366937,0.000640216678117,0.000641318877499,0.000642387284126,0.000643424637308,0.000644424677683,0.000645384173985,0.000646303326998,0.000647180455096,0.000648017053962,0.00064881376296,0.000649572180821,0.000650290768688,0.000650969834347,0.000651608753592,0.000652206537138,0.000652769731871,0.000653298001519,0.000653789463867,0.000654246419879,0.000654666201337,0.000655048019579,0.000655392426235,0.00065570060281,0.000655972423837,0.000656207473136,0.000656401887148,0.000656556501694,0.000656672912425,0.000656751227207,0.000656791979704,0.000656795691182,0.000656762140459,0.000656694979398,0.000656592296702,0.00065645534282,0.000656286643929,0.000656087559987,0.000655853435515,0.000655583537005,0.000655278860903,0.000654938879718,0.00065456624178,0.000654155543265,0.000653706651893,0.000653220464973,0.000652697200416,0.000652133455073,0.000651532544309,0.000650895950773,0.000650221855548,0.000649509300044,0.000648755958765,0.000647961749305,0.000647128873155,0.000646254282309,0.000645337398099,0.000644377238917,0.000643375946761,0.000642331948651,0.000641245723296,0.000640119094194,0.000638952964934,0.000637748028198,0.000636502312324,0.000635218181504,0.000633894775699,0.000632533408161,0.000631135217023,0.000629699971705,0.000628227371958,0.000626719004198,0.00062517253837,0.000623589523585,0.000621970178996,0.000620316402066,0.00061862642665,0.000616902221618,0.000615141918403,0.000613344778249,0.000611511894259,0.000609643341029,0.000607739591756,0.000605802653729,0.000603832503189,0.000601830485789,0.00059979736307,0.000597733216172,0.000595636324877,0.00059350545251,0.000591340058279,0.00058913785296,0.000586899753666,0.000584624964563,0.000582314384078,0.000579967202044,0.00057758377382,0.000575163361222,0.000572709059372,0.000570225098038,0.000567714100429,0.000565179083432,0.000562619256306,0.00056003563382,0.000557424732838,0.000554786220961,0.000552118716264,0.000549422724019,0.000546700003037,0.000543947665863,0.000541165304077,0.000538351404755,0.000535505930614,0.000532628202507,0.000529719997157,0.000526784023157,0.000523821346096,0.000520833873617,0.000517818907894,0.000514775155881,0.000511704630116,0.000508605993659,0.000505479081379,0.000502323134816,0.000499139795454,0.000495928360903,0.000492689972966,0.000489419137383,0.000486116861979,0.000482789920321,0.00047943727678,0.000476059109476,0.00047265732328,0.000469234071379,0.000465790248417,0.00046232612454,0.000458839130533,0.000455334086179,0.000451817443895,0.000448286086736,0.000444737569215,0.000441170893977,0.000437586481004,0.000433982498333,0.0004303624897,0.000426723284203,0.000423067951202,0.000419396750564,0.000415702694143,0.000411982748776,0.000408238981102,0.000404473271189,0.000400686812311,0.000396882670294,0.000393057634991,0.000389211497592,0.000385348796576,0.000381468991161,0.000377571673348,0.000373661790571,0.000369736734026,0.000365797317594,0.000361843383561,0.000357873871886,0.000353889588538,0.000349892573769,0.000345880324012,0.000341850544375,0.00033780565576,0.000333744709369,0.000329669700864,0.000325583557354,0.00032148741902,0.000317382442314,0.000313269035965,0.000309146275945,0.000305014368158,0.000300874101721,0.000296727656293,0.000292574337126,0.000288418653819,0.000284260587326,0.000280099349064,0.000275934123016,0.000271764048798,0.000267594008478,0.000263422749943,0.000259253380843,0.00025508586786,0.000250920607705,0.000246756371773,0.000242592457311,0.000238427092385,0.00023426519655,0.000230106312331,0.000225947987736,0.000221791081084,0.000217638797902,0.000213491823492,0.000209352076777,0.000205219913999,0.000201094369416,0.000196980105694,0.000192874501652,0.000188779084773,0.000184696164,0.00018062715783,0.000176569134085,0.000172520674069,0.000168479686632,0.000164449058762,0.000160428119737,0.000156416606333,0.000152412867716,0.000148418588509,0.000144432893825,0.000140455904479,0.000136488838784,0.000132531022581,0.000128585202329,0.000124649962899,0.000120724676793,0.000116810503423,0.000112907482805,0.000109013770562,0.000105129257795,0.000101252156716,9.73815337665e-05,9.35198928616e-05,8.96646377088e-05,8.581103096e-05,8.1962481702e-05,7.81157981105e-05,7.42688301693e-05,7.04238773152e-05,6.65793350869e-05,6.27382005794e-05,5.89009171145e-05,5.50681951928e-05,5.12403960307e-05,4.74240950123e-05,4.36202596409e-05,3.98308115319e-05,3.60592980117e-05,3.23089074322e-05,2.85807172947e-05,2.48774955655e-05,2.11965727357e-05,1.75374835665e-05,1.39008245822e-05,1.0284880928e-05,6.69030726505e-06,3.11447045168e-06,-4.41783172632e-07,-3.97998269715e-06,-7.49936832924e-06,-1.10022525374e-05,-1.44853341762e-05,-1.79483723632e-05,-2.13909663184e-05,-2.48131209804e-05,-2.82164068699e-05,-3.15996396187e-05,-3.49605160928e-05,-3.83020128133e-05,-4.16272941566e-05,-4.49386593253e-05,-4.82330796521e-05,-5.15147617273e-05,-5.47803118432e-05,-5.80295741234e-05,-6.12635814525e-05,-6.44794266791e-05,-6.76812496027e-05,-7.08686125176e-05,-7.4037940134e-05,-7.71826272483e-05,-8.03032234592e-05,-8.34010613524e-05,-8.64772210957e-05,-8.95331587976e-05,-9.25659916868e-05,-9.55737271424e-05,-9.85577992302e-05,-0.000101518600627,-0.000104458126323,-0.000107381706486,-0.000110293759941,-0.000113190459741,-0.000116069330584,-0.000118928642954,-0.000121769197349,-0.000124595453282,-0.000127407402887,-0.000130203893168,-0.000132982265366,-0.000135736967191,-0.000138467522292,-0.000141169619969,-0.000143845384936,-0.000146497193644,-0.000149125525078,-0.000151730872623,-0.000154312526272,-0.00015686811663,-0.000159395976626,-0.000161898585616,-0.000164163067988,-0.000165973909587,-0.000167335187911,-0.000168245185198,-0.000168699912065)
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(319)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Felis_catus-female-liver-H3K4me3-ERR572163.50mers.unique.MACS2_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) : 319',bty='n')
dev.off()