# R script for Peak Model
#  -- generated by MACS
p <- c(0.0288809277864,0.0336784240965,0.0383936776126,0.0430266883349,0.0482216914821,0.0480297916297,0.0476322847925,0.0477967703803,0.0482216914821,0.0478790131742,0.0479886702327,0.0479886702327,0.0482765200113,0.0489207552301,0.048482126996,0.0491400693471,0.0494142119934,0.0493593834642,0.0495649904489,0.0488796338332,0.0489207552301,0.0490715336856,0.0487562696423,0.0484135913345,0.0486054911869,0.0484272984668,0.0482491057467,0.0481120344235,0.0478790131742,0.0487288553777,0.0489481694947,0.0488933409655,0.0488659267008,0.049002998024,0.0489892908917,0.0488110981716,0.0487288553777,0.0490578265532,0.0494142119934,0.0493182620672,0.0488522195685,0.0487562696423,0.0487973910393,0.048043498762,0.0478241846449,0.0480709130266,0.0487151482454,0.0493045549349,0.0496472332428,0.0496883546397,0.0499899115506,0.0503737112554,0.05040112552,0.0513880390467,0.0513332105174,0.0514565747083,0.0513332105174,0.0507986323572,0.0500036186829,0.0501269828738,0.0502366399323,0.0504285397847,0.0510042393419,0.0511138964004,0.0521282241917,0.0518129601484,0.0517992530161,0.0518403744131,0.0524160739703,0.0522790026471,0.0526902166166,0.0528958236013,0.0529780663952,0.0530054806598,0.0526079738227,0.0528135808074,0.0527039237489,0.0527861665428,0.0527587522781,0.0532110876445,0.0531973805122,0.0528272879397,0.0526353880873,0.0522927097794,0.0518677886777,0.052402366838,0.0523886597056,0.0525257310288,0.0525668524257,0.0525257310288,0.0522515883825,0.0523338311764,0.0524709024995,0.0530054806598,0.0537319586724,0.0530191877921,0.0537456658048,0.0537730800694,0.0532110876445,0.0534166946292,0.0534166946292,0.0531288448506,0.0535126445554,0.0533892803646,0.0539238585248,0.0544447295528,0.0538142014663,0.0534441088938,0.054321365362,0.054060929848,0.0541980011711,0.0545680937436,0.0539512727895,0.0537593729371,0.0528958236013,0.0529643592628,0.052840995072,0.0533618661,0.0531288448506,0.053101430586,0.0532110876445,0.0540335155834,0.0547188721991,0.0552671574917,0.055280864624,0.0551575004331,0.0553356931532,0.0553494002855,0.0550067219777,0.0552534503593,0.0550889647716,0.0547188721991,0.0541705869065,0.0539512727895,0.0546229222729,0.0546366294052,0.0548285292576,0.0544721438174,0.0551300861685,0.0550615505069,0.0553631074179,0.0546366294052,0.0546503365375,0.0548970649192,0.0544995580821,0.0544721438174,0.0544858509497,0.0547737007283,0.0542117083035,0.0545680937436,0.0547462864637,0.0555824215349,0.0558291499166,0.0552534503593,0.0555961286672,0.0559936355043,0.0567338206493,0.0574054701327,0.0582141909393,0.0587761833641,0.0589954974812,0.0587350619672,0.0589954974812,0.0592011044659,0.059159983069,0.0589269618196,0.0590914474074,0.0586116977764,0.0585705763794,0.0580222910869,0.0576659056467,0.0583649693947,0.0587761833641,0.0590640331427,0.0592148115982,0.0596671469646,0.0590229117458,0.0588721332903,0.0587350619672,0.0585431621148,0.0590640331427,0.0584335050563,0.057940048293,0.0580497053515,0.05815936241,0.0586116977764,0.0590777402751,0.0596260255676,0.060119482331,0.0606951818882,0.0609282031375,0.0615861454886,0.061778045341,0.0616135597532,0.0615724383563,0.0608048389467,0.0611749315192,0.0612160529161,0.060599231962,0.0603936249772,0.0606403533589,0.0601606037279,0.0600098252724,0.060599231962,0.0603250893157,0.0611749315192,0.0610241530637,0.0611475172545,0.0613942456362,0.0621344307812,0.0621755521781,0.0629294444554,0.0638067009235,0.0636285082034,0.0639986007759,0.0633406584248,0.0633406584248,0.063477729748,0.0644783504069,0.0643824004807,0.0640260150406,0.0637107509973,0.0632858298956,0.0635873868065,0.0636285082034,0.0636285082034,0.0630939300432,0.0632035871017,0.0626827160738,0.0626553018091,0.0631898799694,0.0631761728371,0.0637929937912,0.0642042077606,0.0649306857733,0.0657119923152,0.066616663048,0.0667674415034,0.0671923626052,0.0670141698851,0.0665207131218,0.0667537343711,0.0668633914296,0.0669182199589,0.0660546706231,0.0652048284196,0.0650129285672,0.0654241425366,0.0661643276816,0.0666989058419,0.0673842624576,0.0675898694423,0.0678091835593,0.0679462548825,0.0682889331903,0.0689468755414,0.0691661896585,0.0696048178925,0.0690976539969,0.0692073110554,0.0694677465694,0.0693992109078,0.0693580895109,0.0689468755414,0.0698104248772,0.069755596348,0.0701393960528,0.0695088679663,0.0695636964956,0.0695088679663,0.0698378391419,0.069495160834,0.0696733535541,0.0705369028899,0.0702764673759,0.0710851881825,0.071194845241,0.0723599514877,0.0724284871493,0.0726203870017,0.0730041867065,0.0735250577344,0.0737032504545,0.0738677360423,0.0744708498641,0.0748683567013,0.0748683567013,0.0747586996427,0.0751699136122,0.0748820638336,0.0749643066275,0.0755262990523,0.0762801913296,0.0760608772126,0.0763487269912,0.0763213127266,0.0767188195637,0.0761705342711,0.076951840813,0.0780895327951,0.0781032399275,0.0800222384515,0.0811736375659,0.0820783082986,0.0831748788838,0.0846963705707,0.0874926255628,0.0902751734226,0.0917555437126,0.0930577212825,0.0946888700279,0.095346812379,0.096045876127,0.0973069322999,0.0975399535493,0.0976907320047,0.09748512502,0.0973206394322,0.0974714178877,0.0980882388418,0.0982664315619,0.0977592676663,0.097745560534,0.0985405742082,0.09896549531,0.100144308689,0.100103187292,0.100473279865,0.100281380012,0.100692593982,0.101282000671,0.102131842875,0.102077014345,0.101953650155,0.102570471109,0.102405985521,0.101816578831,0.101885114493,0.103159877798,0.103475141841,0.103447727577,0.104133084192,0.105229654778,0.106052082717,0.106997874846,0.106984167714,0.108094445431,0.108656437856,0.108670144989,0.108587902195,0.10927325881,0.10927325881,0.109698179912,0.109602229986,0.10927325881,0.110424657925,0.11063026491,0.110726214836,0.110534314983,0.111274500128,0.11205580667,0.112850820344,0.112138049464,0.112508142037,0.113440227034,0.113522469828,0.114235240708,0.114769818868,0.115537418278,0.116359846217,0.116071996438,0.116579160334,0.118182894815,0.118991615621,0.119498779517,0.120334914588,0.120499400176,0.120842078484,0.121568556496,0.121623385026,0.122706248479,0.123295655168,0.123021512522,0.123761697667,0.124159204504,0.123871354725,0.124871975384,0.124885682516,0.12461153987,0.124323690092,0.124282568695,0.123706869137,0.124501882812,0.125228360824,0.12520094656,0.126133031557,0.126640195453,0.127585987582,0.128709972432,0.129093772137,0.129107479269,0.130820870809,0.13053302103,0.129861371547,0.130574142427,0.130944234999,0.130875699338,0.131492520292,0.132301241099,0.133904975579,0.134631453592,0.134686282121,0.135275688811,0.136125531014,0.136262602337,0.137126151673,0.13793487248,0.137825215421,0.137468829981,0.13734546579,0.137811508289,0.137797801157,0.138017115274,0.139045150197,0.140100599385,0.140059477989,0.13994982093,0.140196549312,0.141046391515,0.141210877103,0.14160838394,0.141800283792,0.142773490187,0.142348569085,0.142156669233,0.142389690482,0.144130496286,0.145364138194,0.145926130619,0.147982200466,0.148763507008,0.149435156492,0.150435777151,0.150709919797,0.152053218764,0.152807111041,0.153698074641,0.153437639127,0.154260067066,0.153999631552,0.154273774199,0.15493171655,0.155219566328,0.157070029191,0.157974699923,0.159222048964,0.159934819844,0.161936061162,0.164005838142,0.165198358653,0.16743262122,0.17003697636,0.172668745764,0.174354723039,0.176945371047,0.179015148026,0.180152840008,0.181975888606,0.183552208822,0.186060614036,0.188061855354,0.188911697557,0.189857489687,0.18958334704,0.189501104247,0.189980853878,0.190268703656,0.190542846302,0.189980853878,0.190008268142,0.18945998285,0.189747832628,0.190309825053,0.191159667257,0.191200788654,0.191008888801,0.192160287916,0.191858731005,0.191447517035,0.192311066371,0.192886765928,0.194531621806,0.193928507984,0.194696107394,0.195449999671,0.195874920773,0.19532663548,0.196299841875,0.19627242761,0.195532242465,0.195134735628,0.193914800852,0.194737228791,0.194654985997,0.194298600557,0.194654985997,0.194778350188,0.194380843351,0.195573363862,0.195751556582,0.196053113493,0.195121028495,0.194463086144,0.194764643055,0.194504207541,0.193695486735,0.193818850926,0.192873058796,0.193010130119,0.193078665781,0.192694866076,0.193421344088,0.193023837251,0.19254408762,0.192735987473,0.193174615707,0.192297359239,0.192859351664,0.192036923725,0.190954060272,0.191406395638,0.190542846302,0.189912318216,0.189295497262,0.188075562486,0.187184598885,0.18685562771,0.186074321168,0.185923542713,0.184593950878,0.182962802133,0.182387102575,0.18134536052,0.179700504642,0.179344119202,0.178549105527,0.177425120678,0.176095528843,0.174107994658,0.173271859586,0.172476845912,0.170338533271,0.169694298052,0.168460656144,0.167158478574,0.166116736518,0.164567830567,0.163896181083,0.162950388954,0.16251176072,0.161305533076,0.160949147636,0.160400862343,0.160770954916,0.160770954916,0.161003976165,0.161949768295,0.162059425353,0.162210203809,0.162045718221,0.161497432928,0.161113633223,0.161305533076,0.160770954916,0.159893698447,0.158303671099,0.158098064114,0.158769713598,0.159811455654,0.1609765619,0.163731695496,0.165787765343,0.168474363276,0.170269997609,0.171243204004,0.173285566719,0.173806437747,0.172901767014,0.1726413315,0.170160340551,0.167062528648,0.164307395053,0.160675004989,0.158125478379,0.155617073165,0.152532968395,0.150367241489,0.148927992596,0.146296223192,0.144843267166,0.143198411289,0.140223963576,0.136481916454,0.13349376161,0.131026477793,0.128490658315,0.124063254578,0.120677592896,0.117990994962,0.115701903866,0.113056427329,0.111754249759,0.110876993291,0.109848958368,0.108012202637,0.10601096132,0.10601096132,0.105709404409,0.10394118434,0.1035847989,0.103200999195,0.102899442284,0.102255207065,0.101405364862,0.101734336037,0.102268914198,0.101487607656,0.100391037071,0.10062405832,0.100253965748,0.100363622806,0.100199137218,0.0999387017043,0.0997742161165,0.0987598883253,0.0989792024423,0.0997605089842,0.099445244941,0.0994178306763,0.0980471174449,0.0971561538445,0.096265190244,0.0961418260532,0.0957169049515,0.0956757835545,0.0947985270864,0.0934552281196,0.0940035134122,0.0937841992951,0.0947299914248,0.0944284345139,0.0947162842925,0.0938390278244,0.0935785923104,0.0938116135598,0.0927013358423,0.0924134860637,0.0914814010663,0.0913717440078,0.0910153585676,0.09120725842,0.0910976013615,0.0913854511401,0.0907000945244,0.0902066377611,0.090768630186,0.090987944303,0.0910290656999,0.0899599093794,0.0886851460742,0.0879449609292,0.0872184829165,0.0864234692423,0.086670197624,0.0859574267436,0.0855187985095,0.0854776771126,0.0853406057895,0.0844222279244,0.0843948136598,0.0844085207921,0.0844770564536,0.0850527560109,0.0843673993951,0.084970513217,0.0847237848353,0.0838739426318,0.0836135071178,0.0848882704231,0.0845730063798,0.0844770564536,0.084230328072,0.0832022931484,0.0827225435174,0.0819138227109,0.0822016724895,0.0824072794742,0.0817630442554,0.0809543234488,0.0811051019043,0.0805156952148,0.0800222384515,0.0800770669807,0.08013189551,0.0798577528637,0.0792957604388,0.0787748894109,0.0784596253676,0.0782266041183,0.0784596253676,0.0787200608816,0.0781854827213,0.0782951397799,0.0783225540445,0.0782403112506,0.0777194402226,0.0778016830165,0.0779661686043,0.0775001261056,0.0768147694899,0.0760745843449,0.0762390699327,0.0758826844925,0.0753618134646,0.0751973278768,0.0751287922152,0.0751287922152,0.0745393855257,0.0743200714087,0.0736210076606,0.0727711654571,0.0728808225157,0.0720858088414,0.0723325372231,0.0719898589152,0.0715786449458,0.070975531124,0.0710029453886,0.071455280755,0.0715649378135,0.0719898589152,0.0717979590628,0.0718802018567,0.0716608877397,0.0715512306812,0.0716060592104,0.0709618239916,0.0705094886253,0.0693306752462,0.0694129180401,0.0695911107602,0.0691524825261,0.069015411203,0.0685493687043,0.0682066903965,0.0681381547349,0.0684122973812,0.0686041972336,0.0691798967908,0.0692895538493,0.0690428254676,0.0693992109078,0.0689468755414,0.0686727328951,0.0680147905441,0.0676035765746,0.0675487480454,0.0674390909868,0.0672608982668,0.0667400272388,0.0664521774602,0.0659175992999,0.0659998420938,0.0656023352567,0.0657805279768,0.065616042389,0.0654652639336,0.0654241425366,0.0646839573917,0.0637929937912,0.0635188511449,0.0630391015139,0.062778666,0.0629705658524,0.0627649588676,0.0631076371755,0.0628197873969,0.0622440878397,0.0620521879873,0.0626004732799,0.0623263306336,0.0622852092366,0.0621618450458,0.0625593518829,0.0628060802646,0.0626415946768,0.0620796022519,0.0616683882825,0.0618465810026,0.0619014095318,0.0626278875445,0.0624496948244,0.0624222805598,0.0619562380611,0.0614216599008,0.0614353670331,0.0621481379135,0.0621755521781,0.0622440878397,0.0617232168117,0.060338796448,0.0607363032851,0.0605444034327,0.0605032820358,0.0608733746083,0.0603799178449,0.0599549967432,0.0602428465218,0.0596808540969,0.0596945612292,0.0597768040231,0.0593518829214,0.0590777402751,0.0589132546873,0.0586665263056,0.058858426158,0.0591051545397,0.058378676527,0.0587487690995,0.0584335050563,0.058858426158,0.0594341257152,0.0599412896109,0.0604347463742,0.0601468965956,0.059859046817,0.0592285187305,0.0595163685091,0.0592148115982,0.0596123184353,0.0597493897585,0.0591873973336,0.0594341257152,0.0587213548349,0.0592011044659,0.0588858404227,0.058899547555,0.0592285187305,0.0596945612292,0.0598042182877,0.0593244686567,0.0586528191733,0.0582141909393,0.0584883335855,0.0587213548349,0.0584883335855,0.0581319481454,0.0574740057943,0.0570764989572,0.0568023563109,0.0568297705755,0.0568160634432,0.0565419207969,0.0561032925628,0.0552534503593,0.0558017356519,0.0565145065323,0.0567612349139,0.0568023563109,0.0565145065323,0.0568023563109,0.0574328843973,0.0575425414559,0.0578166841021,0.0575288343235,0.0572821059419,0.0566378707231,0.0568571848401,0.0563774352091,0.0564322637384,0.056459678003,0.056459678003,0.0561444139598,0.0554179359471,0.0557880285196,0.0555824215349,0.0558702713135,0.0557469071227,0.0554727644764,0.0553768145502,0.0547737007283,0.0541980011711,0.0543076582297,0.0550615505069,0.05502042911,0.0550341362423,0.0549518934484,0.0546366294052,0.054280243965,0.0540746369803,0.0542391225681,0.0541842940388,0.053841615731,0.0539786870541,0.0538279085986,0.0538964442602,0.0541294655096,0.0538964442602,0.0548833577869,0.0553356931532,0.054759993596,0.0548422363899,0.0548833577869,0.0546640436698,0.0545680937436,0.0540198084511,0.0531151377183,0.0529780663952,0.0527724594104,0.0526079738227,0.0532247947768,0.0530740163214,0.0527450451458,0.052141931324,0.0523749525733,0.0525942666904,0.0524846096318,0.0527039237489,0.0521830527209,0.0517855458838,0.0517718387515,0.0515388175021,0.0518266672807,0.0518677886777,0.0515525246345,0.0518129601484,0.0518266672807,0.0517718387515,0.0518677886777,0.0516347674283,0.0511550177973,0.0514702818406,0.0510042393419,0.0509768250773,0.0507712180925,0.0501406900061,0.0508260466218,0.0507575109602,0.0510453607388,0.0517581316192,0.0520733956624,0.0520459813978,0.0527313380135,0.0524709024995,0.0522790026471,0.0522515883825,0.0521693455886,0.0521830527209,0.052100809927,0.0517581316192,0.0513606247821,0.0513195033851,0.0509082894157,0.0508123394895,0.0509494108126,0.0513057962528,0.0513195033851,0.0515114032375,0.0514976961052,0.0510727750035,0.0511138964004,0.0507849252249,0.0506889752987,0.0505244897109,0.0512783819882,0.0515799388991,0.0508671680187,0.0505244897109,0.0503874183877,0.0503874183877,0.0505793182401,0.0504148326524,0.0505656111078,0.0509768250773,0.0506067325048,0.0505793182401,0.0506752681663,0.0505107825786,0.0502503470646,0.0502366399323,0.0498528402275,0.0503874183877,0.0509357036803,0.0504148326524,0.0501132757414,0.0494553333904,0.0495375761842,0.0495512833166,0.0500584472122,0.0504148326524,0.0509768250773,0.0504148326524,0.0498254259628,0.0504148326524,0.0504559540493,0.0503600041231,0.0500995686091,0.0506067325048,0.0502366399323,0.0499487901537,0.0495512833166,0.0496746475074,0.0503600041231,0.0501132757414,0.0500173258152,0.0503462969908,0.0507575109602,0.0504970754462,0.0507300966956,0.0511001892681,0.0508808751511,0.0515936460314,0.0511138964004,0.0511276035327,0.0510590678711,0.0512783819882,0.0513880390467,0.0508260466218,0.0504285397847,0.0498665473598,0.0501955185353,0.0496335261104,0.0493593834642,0.0490304122886,0.0495238690519,0.0491126550825,0.049263433538,0.0495238690519,0.0497705974336,0.0496335261104,0.0493045549349,0.0496609403751,0.0496746475074,0.0501681042707,0.0494964547873,0.0495512833166,0.0489892908917,0.0491400693471,0.0489481694947,0.0488796338332,0.0491263622148,0.0488110981716,0.0484410055991,0.0484547127314,0.0487973910393,0.0485643697899,0.0488248053039,0.0490167051563,0.048961876627,0.0494690405227,0.0494142119934,0.0496198189781,0.0501955185353,0.0500447400799,0.0504696611816,0.0503188827262,0.0500995686091,0.0500310329476,0.049743183169,0.0498254259628,0.0495375761842,0.049263433538,0.0491537764794,0.04874256251,0.0485917840545,0.0483724699375,0.0483861770698,0.0484135913345,0.0488522195685,0.0485643697899,0.0485369555253,0.048523248393,0.0486054911869,0.0487562696423,0.0483861770698,0.0489207552301,0.04874256251,0.0487973910393,0.0487973910393,0.0489070480978,0.0493867977288,0.0492908478026,0.0490578265532,0.0493593834642,0.0491811907441,0.0495649904489,0.0497157689043,0.0497294760366,0.0496472332428,0.0498117188305,0.0496335261104,0.0492908478026,0.0494964547873,0.0493319691995,0.0492908478026,0.0489481694947,0.049263433538,0.0493182620672,0.0493730905965,0.0494553333904,0.0490167051563,0.049482747655,0.0497705974336,0.0499350830214,0.0502092256676,0.0503737112554,0.0502914684615,0.0498665473598,0.0501132757414,0.0501681042707,0.0504970754462,0.0505656111078,0.0497294760366,0.0496061118458,0.0495238690519,0.0487014411131,0.0484272984668,0.048262812879,0.0480983272912,0.0476322847925,0.0480709130266,0.0478515989096,0.0482353986144,0.0481805700851,0.047522627734,0.0484272984668,0.0479886702327,0.0481531558205,0.0477967703803,0.0480983272912,0.0475089206017,0.0473855564109,0.0474952134694,0.0476459919249,0.0481805700851,0.0480846201589,0.0485917840545,0.0487014411131,0.0490989479502,0.0491400693471,0.0489207552301,0.0488110981716,0.0487699767746,0.0484135913345,0.0485095412607,0.0481257415559,0.0481120344235,0.0476596990572,0.0476322847925,0.047563749131,0.0476734061895,0.047783063248,0.047522627734,0.0477967703803,0.0477967703803,0.0478927203065,0.0477967703803,0.0481531558205,0.048002377365,0.0474677992048,0.0477145275864,0.0484684198637,0.0484135913345,0.0481805700851,0.0486054911869,0.0484547127314,0.0487973910393,0.0489207552301,0.0486740268484,0.0484958341283,0.0484684198637,0.0475911633956,0.0482765200113,0.0485780769222,0.0478653060419,0.0478790131742,0.0478378917773,0.0476322847925,0.0479201345711,0.0482902271436,0.0483176414083,0.04874256251,0.0477967703803,0.0474403849401,0.0478515989096,0.0478927203065,0.0478104775126,0.0476734061895,0.0474129706755,0.0473992635432,0.0474677992048,0.0474129706755,0.0476322847925,0.0475363348663,0.0474677992048,0.0473307278816,0.0423961602484,0.0378453923201,0.0331986744655,0.0284971280816,0.0)
m <- c(0.0285891371519,0.0334185702913,0.0380404346711,0.0426899748856,0.0472426496789,0.0468828638289,0.0468551879943,0.0464538883925,0.0465645917309,0.0469382154982,0.0468275121597,0.0467583225732,0.0466891329867,0.0462601575502,0.0462878333848,0.0464954021444,0.0468828638289,0.0467444846559,0.0463985367233,0.0459418854522,0.0463016713021,0.0461632921291,0.0464954021444,0.0466614571521,0.0463708608887,0.0470904325885,0.0469520534155,0.0465369158963,0.0469520534155,0.0473256771827,0.0469520534155,0.047021243002,0.0466061054828,0.0465507538136,0.0468828638289,0.0461771300464,0.0460387508733,0.0465369158963,0.046024912956,0.0460525887907,0.0464954021444,0.0464123746406,0.0468967017462,0.0473533530173,0.0474087046865,0.0474087046865,0.0474917321904,0.0468828638289,0.047201135927,0.0470489188366,0.0467444846559,0.0463016713021,0.0462739954675,0.0462878333848,0.0465507538136,0.0468136742424,0.0467306467386,0.046841350077,0.0472426496789,0.0469382154982,0.047159622175,0.0479207076268,0.0476854630326,0.047519408025,0.0473118392654,0.0474087046865,0.0477823284538,0.0482528176421,0.0478653559576,0.0477131388672,0.0473948667692,0.0471042705058,0.0469105396636,0.0471042705058,0.047021243002,0.0471042705058,0.0467721604905,0.046841350077,0.0464815642271,0.0469243775809,0.0466061054828,0.0464123746406,0.0465645917309,0.0459142096176,0.0459557233695,0.0454298825119,0.0456236133542,0.0450424208274,0.0453330170908,0.0454852341812,0.0457758304446,0.046024912956,0.0460387508733,0.046066426708,0.0455959375196,0.0457758304446,0.0456512891888,0.0461632921291,0.0459557233695,0.0456928029407,0.0455267479331,0.0452638275043,0.0451808000004,0.0453053412562,0.0458726958657,0.0456928029407,0.045568261685,0.0451116104139,0.0446549591429,0.0450977724966,0.0448210141505,0.0448763658197,0.0448071762332,0.0451254483312,0.0449040416543,0.044931717489,0.0449455554063,0.0450285829101,0.0457896683619,0.0452638275043,0.0461356162945,0.0465922675655,0.0467583225732,0.0463570229714,0.0464400504752,0.046384698806,0.0466199434002,0.0465922675655,0.0461909679637,0.0465784296482,0.0461494542118,0.0457896683619,0.0459280475349,0.0460387508733,0.0457896683619,0.0459695612868,0.0462186437983,0.046384698806,0.0464538883925,0.0463570229714,0.0463016713021,0.0460802646253,0.0460525887907,0.0468275121597,0.0469797292501,0.0470627567539,0.0465645917309,0.0466061054828,0.0464123746406,0.0464538883925,0.0469797292501,0.0471181084231,0.0466061054828,0.0465092400617,0.0469658913328,0.0473256771827,0.0477961663711,0.0475747596942,0.0474917321904,0.0469520534155,0.0466752950694,0.046523077979,0.0472426496789,0.0469935671674,0.0465645917309,0.0462186437983,0.0462739954675,0.0464954021444,0.047021243002,0.0471042705058,0.0470765946712,0.0472703255135,0.0464954021444,0.046204805881,0.0461356162945,0.0465922675655,0.0461632921291,0.0466891329867,0.046204805881,0.0461356162945,0.0458726958657,0.0462739954675,0.0467998363251,0.0467998363251,0.0469243775809,0.0465092400617,0.0463570229714,0.0457481546099,0.0459557233695,0.0464400504752,0.0464954021444,0.0459695612868,0.0466752950694,0.0477823284538,0.0481282763864,0.048474224319,0.0489447135074,0.0488616860035,0.0487371447478,0.0483635209806,0.0485157380709,0.0486817930786,0.0480452488826,0.0469935671674,0.0472841634308,0.046702970904,0.0468967017462,0.0471042705058,0.0475055701077,0.0476439492807,0.0476716251153,0.0478100042884,0.0478791938749,0.0484050347325,0.0480867626345,0.0486679551613,0.048294331394,0.0483496830633,0.0487094689132,0.0488616860035,0.0487648205824,0.0484880622363,0.0482251418075,0.0480314109652,0.0479898972133,0.0478930317922,0.0480037351306,0.0483911968152,0.0480037351306,0.0478653559576,0.0481006005518,0.0486956309959,0.0486817930786,0.0489308755901,0.0490277410112,0.0492076339362,0.0489031997555,0.0490554168458,0.0491384443496,0.048972389342,0.0489862272593,0.0489585514247,0.0492214718535,0.0492491476881,0.049110768515,0.0488478480862,0.0494428785303,0.0493044993573,0.0493321751919,0.0494152026957,0.0492768235227,0.0489585514247,0.0489862272593,0.0489308755901,0.0490554168458,0.0485295759882,0.0482113038902,0.0483911968152,0.0487509826651,0.0497749885457,0.0507298048397,0.0514493765396,0.0510757527723,0.0507298048397,0.0507159669224,0.0511449423588,0.0517953244722,0.0510342390204,0.0508820219301,0.0505222360801,0.0504668844109,0.0504530464936,0.0507989944262,0.0513109973665,0.0511587802762,0.0513248352838,0.0512279698627,0.0518921898933,0.0513386732011,0.0508681840127,0.0505083981628,0.0503561810725,0.0505914256667,0.0500655848091,0.0504530464936,0.0509650494339,0.051380186953,0.0514078627876,0.052058244901,0.0527363028489,0.052376516999,0.0518091623895,0.0517814865549,0.0522381378259,0.0522934894952,0.052514896172,0.0521412724048,0.0520720828183,0.0522796515778,0.0519337036452,0.0523626790817,0.0531237645334,0.0532344678719,0.0526671132624,0.0525564099239,0.052058244901,0.052196624074,0.0522104619913,0.0522242999086,0.0526117615932,0.0529023578566,0.0530545749469,0.0534420366315,0.054327663339,0.0552409658811,0.0559051859117,0.0556837792348,0.0554485346407,0.0553101554676,0.0550195592042,0.0542446358351,0.0537464708122,0.0540785808275,0.0541062566621,0.0534420366315,0.0532483057892,0.0533174953757,0.0537879845641,0.0538018224814,0.0541339324967,0.0548119904446,0.0553378313022,0.0545213941812,0.0547566387754,0.0547981525273,0.0540232291583,0.0545490700158,0.0548673421139,0.0551717762946,0.055282479633,0.0555592379791,0.0558221584079,0.0563203234309,0.0557114550695,0.0558913479944,0.0567631367846,0.0565002163558,0.0560850788367,0.0559882134156,0.0560158892502,0.0555869138137,0.0554900483926,0.0553516692195,0.0557252929868,0.0556699413175,0.0552963175503,0.0547289629408,0.0549780454523,0.0557529688214,0.0558359963252,0.0561404305059,0.057053733048,0.057413518898,0.0574827084845,0.0579393597555,0.0579255218382,0.0588249864631,0.0588388243804,0.0587696347938,0.0590602310572,0.0595583960802,0.0593369894033,0.0597936406744,0.0595999098321,0.0597382890052,0.0599043440128,0.0599735335994,0.0608314844723,0.0609006740588,0.0608729982242,0.0606654294646,0.0599458577648,0.0599043440128,0.0603886711185,0.0595860719148,0.0600565611032,0.0601257506897,0.059503044411,0.0592539618995,0.0590879068919,0.0584790385304,0.0583544972747,0.0583129835228,0.0582853076882,0.059004879388,0.0594476927418,0.0590325552226,0.0590740689745,0.0595445581629,0.0599043440128,0.060457860705,0.0610252153145,0.0607207811338,0.0613158115779,0.0616617595106,0.061592569924,0.0621737624508,0.062409007045,0.0622429520374,0.062727279143,0.0630317133237,0.063045551241,0.0633361475044,0.0632946337525,0.0631285787449,0.0625750620527,0.062409007045,0.0626580895565,0.0628518203988,0.0624505207969,0.0631147408276,0.0632807958352,0.0636129058505,0.0636267437679,0.0634745266775,0.0638204746101,0.0639173400313,0.0639865296178,0.0636405816852,0.0639450158659,0.0632669579179,0.0635298783467,0.0636405816852,0.0637651229409,0.0641249087908,0.0646507496484,0.0650243734156,0.0657162692809,0.0660207034616,0.0659238380405,0.0660760551308,0.0665742201538,0.0668648164172,0.0668648164172,0.0673491435229,0.0676950914555,0.0680410393881,0.0670723851768,0.0677504431247,0.0681517427265,0.0688298006745,0.068580718163,0.0691065590206,0.0697984548858,0.0695078586224,0.0690927211033,0.0689681798475,0.069895320307,0.0702827819915,0.0699506719762,0.0700475373973,0.0711545707817,0.0710161916087,0.0707671090972,0.0711545707817,0.0719018183162,0.0719710079027,0.0719571699854,0.0712375982855,0.0719294941508,0.0724276591738,0.0716388978874,0.0712514362028,0.0714451670451,0.0721924145796,0.0720401974892,0.0724553350084,0.0731333929563,0.0730365275352,0.0731887446255,0.0729258241967,0.0724691729257,0.0730088517006,0.073617720062,0.0728151208583,0.0733963133851,0.0733409617159,0.0735900442274,0.0738252888216,0.0743234538445,0.0744203192657,0.0751952426347,0.0757902730788,0.0757349214096,0.0768281168767,0.0768281168767,0.0773124439824,0.0779905019303,0.0792497524051,0.0795126728339,0.0800938653607,0.0805505166317,0.0802875962029,0.0808272749778,0.0807304095567,0.0807027337221,0.0805920303836,0.0804951649625,0.0802737582856,0.0803429478722,0.0798032690973,0.0800108378568,0.0802045686991,0.0799693241049,0.0803844616241,0.0808134370605,0.0813946295873,0.0812147366624,0.0815053329258,0.0819896600314,0.0822802562948,0.082515500889,0.0835533446869,0.0839546442887,0.0846188643194,0.0850616776731,0.0856428701999,0.0861410352229,0.0861548731402,0.086099521471,0.0864869831555,0.087054337765,0.0871373652688,0.0876770440437,0.0876632061264,0.0881752090667,0.0886733740897,0.0889778082704,0.0893652699549,0.0892822424511,0.0902370587451,0.0904999791739,0.0906521962643,0.0901540312413,0.0900433279029,0.0908597650239,0.0902232208278,0.0904861412566,0.0910396579488,0.0917177158968,0.0916208504756,0.0913025783776,0.091911446739,0.0924372875966,0.0933229143041,0.0926586942735,0.0942362168463,0.0942085410116,0.0949696264634,0.0957583877498,0.0958829290055,0.0963810940285,0.0965471490362,0.0976818582552,0.0981523474435,0.0989272708126,0.0989134328953,0.0995223012567,0.0998128975201,0.0996330045952,0.100670848393,0.100906092987,0.101169013416,0.101348906341,0.100878417153,0.101085985912,0.101265878837,0.101072147995,0.101058310078,0.101085985912,0.100643172558,0.101957774702,0.101390420093,0.101833233447,0.102898753079,0.103853569373,0.104808385667,0.105790877796,0.107022452436,0.108170999572,0.109195005453,0.108503109588,0.109969928822,0.110163659664,0.110315876755,0.109942252987,0.110329714672,0.110827879695,0.111561289312,0.11223934726,0.113443246065,0.116086288271,0.11794056919,0.12148307602,0.124015414886,0.12712894628,0.130380856847,0.134130932436,0.136801650476,0.140081236877,0.143291633692,0.145394997122,0.146972519695,0.147124736786,0.149712427322,0.15228627994,0.155095377153,0.158056691456,0.161156384933,0.164781919267,0.167424961472,0.170234058685,0.172392773784,0.175146519328,0.174897436816,0.174869760982,0.172973966311,0.170400113692,0.167314258133,0.164795757184,0.162567852498,0.161101033263,0.16045065115,0.159025345668,0.159634214029,0.159495834856,0.160201568639,0.162097363309,0.162706231671,0.162097363309,0.163024503769,0.162747745423,0.163730237551,0.164214564657,0.164906460522,0.165736735561,0.165805925147,0.165169380951,0.165985818072,0.167701719818,0.167881612743,0.168781077368,0.169140863218,0.169805083248,0.169846597,0.169666704075,0.169666704075,0.171216550813,0.172046825852,0.172531152957,0.173887268853,0.174482299297,0.175049653907,0.176834745239,0.179076487842,0.180626334581,0.182079315898,0.18263283259,0.184044300155,0.185151333539,0.185801715653,0.187988106587,0.189496439573,0.190686500461,0.190811041717,0.192097968026,0.192872891395,0.193800031855,0.195156147751,0.195474419849,0.196180153631,0.195515933601,0.196387722391,0.195765016112,0.195806529864,0.196110964045,0.197079618256,0.196346208639,0.196470749895,0.19680285991,0.196387722391,0.196581453233,0.195502095683,0.195612799022,0.195183823585,0.194588793141,0.194395062299,0.194976254826,0.194616468976,0.195460581931,0.195073120247,0.195889557368,0.196775184075,0.196692156572,0.197176483677,0.197785352039,0.197217997429,0.197508593693,0.198269679144,0.196927401166,0.198089786219,0.196664480737,0.195765016112,0.195543609435,0.195156147751,0.194782523984,0.195875719451,0.195086958164,0.193883059359,0.193800031855,0.192471591794,0.192568457215,0.19290056723,0.193315704749,0.19310813599,0.192264023034,0.191530613417,0.191835047598,0.192001102605,0.192817539726,0.193703166434,0.193661652682,0.192637646801,0.191613640921,0.191115475898,0.189676332498,0.189441087904,0.188140323677,0.18740691406,0.185345064382,0.184099651824,0.182757373846,0.181082985852,0.179892924963,0.178592160737,0.177581992774,0.175381763922,0.173942620522,0.171576336663,0.169860434917,0.168116857337,0.166317928087,0.164768081349,0.162982990017,0.16101800576,0.160021675714,0.158679397735,0.157821446862,0.157101875162,0.156050193447,0.154901646311,0.154846294642,0.154458832957,0.153531692498,0.152908986219,0.151649735744,0.150957839879,0.149795454825,0.148840638531,0.148494690599,0.148148742666,0.146239110078,0.145505700461,0.145436510874,0.145602565882,0.145907000063,0.144952183769,0.144786128761,0.143997367475,0.143374661196,0.141949355713,0.142309141563,0.141534218194,0.140454860645,0.139154096418,0.138863500155,0.138351497214,0.13811625262,0.138171604289,0.137977873447,0.138642093478,0.138157766372,0.138448362635,0.138102414703,0.137631925514,0.137189112161,0.136815488393,0.13601288919,0.135168776234,0.134338501196,0.133189954059,0.132927033631,0.132235137765,0.132041406923,0.131114266464,0.131045076877,0.130228639756,0.129093930537,0.12908009262,0.12836052092,0.128263655499,0.12733651504,0.126810674182,0.126008074978,0.126506240001,0.125246989526,0.125150124105,0.125053258684,0.125150124105,0.126021912896,0.125108610353,0.125288503278,0.125579099542,0.125551423707,0.123752494458,0.123115950262,0.122299513141,0.122022754794,0.120832693906,0.120389880552,0.119850201778,0.119089116326,0.118231165453,0.117649972926,0.118175813784,0.118134300032,0.118784682145,0.11860478922,0.11758078334,0.116432236203,0.116916563309,0.116875049557,0.11629385703,0.116210829526,0.116432236203,0.116376884534,0.116058612436,0.115560447413,0.11629385703,0.115588123248,0.115131471977,0.115048444473,0.114965416969,0.114799361961,0.114135141931,0.113000432712,0.111713506402,0.111478261808,0.109762360062,0.109181167536,0.108613812926,0.107603644963,0.106704180338,0.105832391548,0.105694012375,0.106316718653,0.105804715713,0.104130327719,0.104905251088,0.105735526127,0.105237361104,0.104891413171,0.104614654825,0.104462437735,0.103964272712,0.103064808087,0.103258538929,0.103950434794,0.10392275896,0.103064808087,0.102677346402,0.102234533048,0.101930098868,0.101279716754,0.100518631303,0.0999374387759,0.0999789525278,0.0996606804298,0.0992317049933,0.0988857570607,0.098899594978,0.0990933258203,0.0986920262184,0.0984291057896,0.0983737541204,0.0978755890974,0.0972943965706,0.097128341563,0.0963395802766,0.0956476844114,0.0944161097712,0.0934889693118,0.0920221500775,0.0904169516701,0.0894621353761,0.0881336953148,0.0857120597864,0.0837747513638,0.0817959291892,0.0803152720375,0.078654721961,0.0777275815015,0.0772847681478,0.0768004410421,0.0754996768154,0.0750845392963,0.0751675668001,0.0748769705367,0.0748631326194,0.0743372917618,0.0749876738752,0.0737145854831,0.0732440962947,0.0728704725275,0.0726905796026,0.072123224993,0.0718879803989,0.0718879803989,0.0712514362028,0.071666573722,0.0710161916087,0.0712929499548,0.0712099224509,0.0714036532932,0.0712652741201,0.0711407328644,0.0717219253912,0.0718603045643,0.0722200904142,0.0718187908123,0.0718187908123,0.0717357633085,0.0722062524969,0.0716112220528,0.0718879803989,0.0726352279333,0.0720401974892,0.0722477662488,0.0712791120375,0.0713344637067,0.0713344637067,0.0715005187143,0.0711822466163,0.0710023536914,0.0708778124356,0.0699091582243,0.0689543419302,0.0678888222978,0.0683869873207,0.0681102289746,0.0676674156209,0.0672799539363,0.0667541130788,0.0667956268307,0.0664358409807,0.0663943272288,0.0671692505979,0.0668648164172,0.0671000610114,0.0664773547327,0.0660483792962,0.0658269726193,0.0660068655443,0.0661314068,0.0662005963866,0.0659515138751,0.0655087005213,0.0658269726193,0.065813134702,0.0662421101385,0.066629571823,0.0666434097403,0.0662974618077,0.0666849234922,0.0662836238904,0.0662282722212,0.0659515138751,0.0659515138751,0.0657024313636,0.0653426455137,0.0654395109348,0.0650520492503,0.064996697581,0.0644985325581,0.0645262083927,0.0642632879639,0.0639865296178,0.0637097712717,0.0630040374891,0.0632116062487,0.0629901995718,0.0626304137219,0.0620768970297,0.0615787320067,0.0614957045029,0.0618416524355,0.0625335483008,0.0623259795412,0.0629348479026,0.062409007045,0.0625058724662,0.062727279143,0.0627549549776,0.0624366828796,0.0625197103835,0.0622567899547,0.0615787320067,0.0619938695259,0.0614403528337,0.0619246799394,0.0612604599087,0.0614265149164,0.0611635944876,0.0615510561721,0.0614680286683,0.0617032732625,0.0620768970297,0.0620768970297,0.0623674932931,0.0622844657893,0.0624920345489,0.0621045728643,0.0622014382854,0.0619385178567,0.0616479215933,0.0613019736606,0.0613158115779,0.0607207811338,0.0604716986223,0.0600565611032,0.0598905060955,0.0598074785917,0.0597798027571,0.0592816377341,0.0594338548245,0.0595307202456,0.0589772035534,0.0586589314554,0.0587557968765,0.0586312556208,0.0582853076882,0.0583268214401,0.0582437939363,0.0587142831246,0.057413518898,0.0572889776422,0.0571229226346,0.057053733048,0.0561127546713,0.0559743754983,0.056098916754,0.0560435650848,0.0567908126192,0.0568184884538,0.057372005146,0.0573443293114,0.057870170169,0.0576210876575,0.0582161181016,0.0582853076882,0.0584790385304,0.0579808735075,0.0576072497402,0.0569015159577,0.0570260572134,0.0563064855136,0.0563479992655,0.0563895130174,0.056597081777,0.0564863784385,0.0561681063405,0.0563895130174,0.0559743754983,0.0564587026039,0.0567769747019,0.0569707055442,0.0568600022058,0.0568323263712,0.056417188852,0.0560297271675,0.0554346967234,0.0549088558658,0.0545767458505,0.0541339324967,0.0536357674737,0.0537049570603,0.0530545749469,0.0534005228795,0.0530407370296,0.0534420366315,0.0537879845641,0.0543968529255,0.0546736112716,0.0548119904446,0.0550610729561,0.0548673421139,0.0549503696177,0.0544937183466,0.0549503696177,0.054466042512,0.0541339324967,0.0537049570603,0.05319295412,0.0528193303527,0.0524318686682,0.0523350032471,0.0524318686682,0.0526671132624,0.0517676486376,0.0518230003068,0.0520444069837,0.0524872203374,0.05283316827,0.0530268991123,0.0527916545181,0.0529023578566,0.0525564099239,0.0525840857586,0.0530407370296,0.05319295412,0.0530684128642,0.0524595445028,0.0521135965702,0.0526809511797,0.0531514403681,0.05283316827,0.0530822507815,0.0525425720066,0.0518645140587,0.0512556456973,0.0514908902915,0.0516707832164,0.0517814865549,0.0512833215319,0.0507989944262,0.0506467773359,0.0501901260648,0.0504807223282,0.0505775877493,0.0508128323435,0.0508958598474,0.0511034286069,0.0507159669224,0.0510065631858,0.0511034286069,0.0513525111184,0.0515047282088,0.0512694836146,0.0521135965702,0.0519613794798,0.051560079878,0.0515739177953,0.052196624074,0.0516292694645,0.0514770523742,0.0511172665242,0.0513663490357,0.051739972803,0.0513248352838,0.05124180778,0.0513940248703,0.0516846211337,0.0511172665242,0.0509373735993,0.0507989944262,0.0512002940281,0.0514770523742,0.0513663490357,0.0511449423588,0.0514770523742,0.0517676486376,0.0508405081781,0.0511311044415,0.0515739177953,0.0519890553144,0.0518506761414,0.0513109973665,0.0510204011031,0.0510895906896,0.0509788873512,0.0503700189898,0.050605263584,0.0505914256667,0.0507298048397,0.0504530464936,0.0503838569071,0.0503700189898,0.0507989944262,0.0502178018994,0.0505775877493,0.0504807223282,0.0506191015013,0.0503700189898,0.0501347743956,0.0499410435533,0.0499825573052,0.0449455554063,0.0394934159881,0.0350652824506,0.0296546567844,0.0)
ycorr <- c(4.02795553898e-05,4.00627176446e-05,3.94117933182e-05,3.8325505969e-05,3.68050553604e-05,3.48498843971e-05,3.24565172396e-05,3.00008826556e-05,2.74876783693e-05,2.49266234982e-05,2.23339371475e-05,1.972515616e-05,1.71159501134e-05,1.45206592992e-05,1.19539932439e-05,9.4248420578e-06,6.93938124139e-06,4.50377978602e-06,2.11689549277e-06,-2.2687355945e-07,-2.53633808351e-06,-4.82758754159e-06,-7.10820249848e-06,-9.38337873498e-06,-1.16630804084e-05,-1.39509833802e-05,-1.62534040738e-05,-1.85695902543e-05,-2.09030900013e-05,-2.32498300097e-05,-2.56076167104e-05,-2.79691169129e-05,-3.03305167055e-05,-3.26961447174e-05,-3.50684845233e-05,-3.74486151707e-05,-3.98383935617e-05,-4.22377449055e-05,-4.46467323771e-05,-4.7065916218e-05,-4.94970411857e-05,-5.19469782538e-05,-5.44195242193e-05,-5.69129290514e-05,-5.94283215636e-05,-6.19664952281e-05,-6.45238755134e-05,-6.71061909267e-05,-6.97162758615e-05,-7.23567457241e-05,-7.502840611e-05,-7.77287058514e-05,-8.04566099793e-05,-8.3212446958e-05,-8.59961242058e-05,-8.88088257727e-05,-9.16537496224e-05,-9.45309299014e-05,-9.74331192207e-05,-0.000100357294355,-0.000103301700172,-0.000106266948003,-0.000109256927923,-0.000112266695384,-0.000115296033504,-0.000118340458226,-0.000121397305031,-0.000124461916813,-0.000127533290699,-0.000130614984683,-0.000133706607971,-0.000136804246316,-0.000139906897364,-0.000143013397796,-0.00014612112484,-0.000149229434005,-0.000152338959459,-0.000155446126489,-0.000158552720792,-0.000161657446311,-0.000164758947693,-0.000167857563526,-0.000170954166027,-0.000174050300951,-0.000177144190582,-0.000180240292709,-0.000183338355293,-0.000186438449433,-0.000189541720003,-0.000192648766508,-0.000195758426636,-0.000198871317156,-0.000201986990397,-0.000205101744634,-0.000208218379516,-0.000211333416055,-0.000214445478466,-0.000217553906359,-0.000220659662891,-0.000223761509231,-0.000226861710629,-0.000229959177893,-0.000233048694457,-0.000236131109472,-0.000239206583558,-0.000242269486961,-0.000245323702937,-0.000248371203716,-0.000251411498805,-0.00025444294466,-0.000257463707386,-0.000260472017107,-0.000263470646858,-0.000266464061795,-0.000269451220564,-0.000272437943129,-0.00027542038908,-0.000278397313795,-0.000281365245623,-0.000284320456213,-0.000287267484065,-0.000290204931267,-0.000293131773411,-0.00029604361971,-0.000298937012237,-0.000301805494415,-0.00030464290021,-0.000307449631917,-0.000310223732061,-0.000312965127404,-0.000315670504567,-0.000318334752898,-0.00032095416824,-0.000323523394989,-0.000326042828322,-0.000328510509452,-0.000330929017886,-0.000333299876041,-0.000335620541981,-0.000337893888914,-0.00034011864655,-0.000342300967018,-0.000344442915852,-0.00034654895911,-0.00034862193255,-0.000350668263561,-0.000352692969713,-0.000354695659391,-0.000356681327572,-0.000358651359596,-0.000360604655333,-0.000362540286305,-0.000364458524688,-0.000366361712402,-0.000368251013141,-0.00037012360425,-0.000371975083245,-0.000373805481052,-0.000375616880699,-0.000377407922903,-0.000379180416748,-0.000380936813099,-0.000382679738713,-0.000384407516528,-0.000386117255936,-0.000387811432762,-0.000389493185728,-0.00039116260869,-0.00039281691235,-0.000394457528106,-0.000396084589973,-0.000397698618344,-0.000399297574832,-0.000400881805009,-0.000402455522514,-0.000404019560003,-0.000405573412807,-0.000407118224793,-0.00040865589917,-0.000410186809287,-0.000411708183587,-0.000413218952739,-0.000414717840073,-0.000416203698759,-0.000417675345507,-0.000419130276044,-0.000420566711282,-0.000421982433083,-0.000423375595888,-0.000424748310696,-0.000426100418329,-0.00042743106813,-0.000428744786389,-0.00043004346047,-0.000431327175015,-0.000432595759787,-0.000433849184682,-0.000435088332305,-0.000436315021944,-0.00043752794851,-0.000438725818212,-0.000439910992966,-0.00044108592572,-0.000442249064411,-0.000443399335066,-0.000444540401709,-0.000445675532933,-0.000446805693363,-0.000447929007182,-0.000449042481218,-0.000450148933392,-0.000451248338069,-0.000452336228048,-0.000453414193726,-0.000454479331333,-0.000455530486843,-0.000456564670247,-0.000457578789736,-0.000458574458011,-0.000459556448053,-0.000460527130003,-0.000461485715671,-0.00046242904449,-0.000463356349661,-0.000464268621689,-0.000465168140269,-0.0004660554459,-0.000466931259691,-0.000467797188311,-0.000468649714656,-0.000469488547381,-0.000470310445658,-0.000471119013863,-0.000471916275666,-0.000472704389119,-0.000473479759709,-0.000474240223352,-0.000474988034612,-0.000475722066444,-0.000476439495319,-0.000477137834284,-0.000477819239415,-0.000478482386543,-0.000479125286398,-0.00047974928606,-0.000480353990142,-0.000480940300175,-0.000481509302771,-0.000482061090753,-0.000482597940392,-0.000483120813551,-0.000483628373769,-0.000484121865326,-0.000484605118687,-0.000485075351997,-0.000485533034269,-0.000485980520312,-0.00048641581106,-0.000486838358163,-0.000487247444768,-0.000487644625509,-0.00048803255273,-0.000488415726804,-0.000488789296404,-0.000489151597473,-0.00048950340234,-0.000489842935721,-0.000490169958794,-0.000490485458817,-0.000490790154087,-0.000491083692648,-0.000491362530508,-0.000491624299689,-0.000491869560046,-0.000492101825698,-0.00049232326949,-0.000492533742536,-0.000492733786523,-0.0004929241722,-0.000493105370419,-0.000493276148761,-0.000493437496376,-0.000493586475534,-0.00049372242528,-0.00049384223399,-0.000493940536198,-0.000494012409582,-0.000494055489618,-0.000494065743182,-0.000494037144929,-0.000493964283541,-0.000493845478936,-0.000493677820524,-0.000493463279225,-0.000493199403003,-0.000492890125742,-0.000492538303184,-0.000492147610017,-0.000491721614345,-0.000491264708303,-0.000490784111033,-0.000490284861501,-0.000489770548382,-0.000489241589418,-0.000488701078447,-0.000488150202336,-0.000487588993538,-0.000487017131134,-0.000486435813918,-0.00048584493,-0.000485244344448,-0.000484632532927,-0.00048400930641,-0.000483375503947,-0.000482730891525,-0.000482074675533,-0.00048140921243,-0.000480734304316,-0.000480048539861,-0.000479351451659,-0.000478644520191,-0.000477928231709,-0.000477202219214,-0.00047646651346,-0.000475721130519,-0.000474968254732,-0.000474209363362,-0.000473443517196,-0.000472672719617,-0.00047190038764,-0.000471123581828,-0.00047034157551,-0.000469551933673,-0.000468755987079,-0.000467954832541,-0.000467147056615,-0.000466331995122,-0.000465508519553,-0.00046467690676,-0.000463831628414,-0.000462969399549,-0.000462090390734,-0.000461197223794,-0.000460291234582,-0.000459371095929,-0.000458435663821,-0.000457483356347,-0.000456514925842,-0.000455528724364,-0.000454527150976,-0.000453516702991,-0.000452499926675,-0.000451479959687,-0.000450451839763,-0.00044941432605,-0.000448367657379,-0.000447313745446,-0.000446253093432,-0.000445185341993,-0.000444109039959,-0.000443020826409,-0.000441916787852,-0.000440795545451,-0.000439656440157,-0.000438503096871,-0.000437336787479,-0.000436156585814,-0.000434964211072,-0.000433759337863,-0.000432543638836,-0.000431319143993,-0.000430088863116,-0.000428852466114,-0.000427611892723,-0.00042636889154,-0.000425121991402,-0.000423872663707,-0.000422619206673,-0.000421359987259,-0.000420096444843,-0.000418828386833,-0.000417555266924,-0.000416275421926,-0.000414989178302,-0.000413693974354,-0.000412388194174,-0.000411070259385,-0.000409738973219,-0.000408397175001,-0.000407045302837,-0.00040568388002,-0.000404311570883,-0.000402929610246,-0.000401537435809,-0.000400136265498,-0.000398726871269,-0.000397309255485,-0.000395884537882,-0.000394453507715,-0.000393014392991,-0.000391565238972,-0.000390106669479,-0.000388637681382,-0.000387158478573,-0.000385667574639,-0.000384164714589,-0.00038264874455,-0.000381120730823,-0.00037957969556,-0.000378025361622,-0.0003764595995,-0.000374883083313,-0.000373295279928,-0.000371698641801,-0.000370093848328,-0.000368482251038,-0.000366863906837,-0.000365239862508,-0.00036360919035,-0.000361974126838,-0.000360334218146,-0.00035868718452,-0.000357032113506,-0.000355366551573,-0.000353688912561,-0.000351998121938,-0.000350297487909,-0.000348585274205,-0.00034686381727,-0.000345132471524,-0.000343388834214,-0.00034163318518,-0.00033986791704,-0.000338093053473,-0.00033630909328,-0.000334516828818,-0.000332714445843,-0.00033089974092,-0.000329068606395,-0.000327219207998,-0.000325351780612,-0.000323467145272,-0.000321564056582,-0.000319642404055,-0.000317702994731,-0.000315746600837,-0.000313774510958,-0.000311789153686,-0.000309791932524,-0.000307787187688,-0.000305775928557,-0.000303757629478,-0.000301734524696,-0.000299707038151,-0.000297675737792,-0.000295638190657,-0.000293594330649,-0.00029154015742,-0.000289476342331,-0.000287400089546,-0.000285313440608,-0.000283215109805,-0.000281106447706,-0.000278987085032,-0.000276857932556,-0.000274719297543,-0.000272571588368,-0.000270416825725,-0.000268258017209,-0.000266093331101,-0.000263924392684,-0.000261749756608,-0.000259568444558,-0.000257377814894,-0.000255174764494,-0.000252958588861,-0.000250727821433,-0.000248484590817,-0.000246225479129,-0.000243950477122,-0.000241657813385,-0.000239350608205,-0.000237027092785,-0.000234690755461,-0.000232342200189,-0.00022998371706,-0.000227616006031,-0.000225236716713,-0.000222846243441,-0.000220446135731,-0.000218034215278,-0.000215609609751,-0.000213171276176,-0.000210718017604,-0.000208248260931,-0.00020576238605,-0.000203258913633,-0.000200738519164,-0.000198202901357,-0.000195650803005,-0.000193084391865,-0.000190504495897,-0.00018791040904,-0.000185301715836,-0.000182681706515,-0.000180051610374,-0.000177412626631,-0.000174766088113,-0.00017211006617,-0.000169445460873,-0.000166771028322,-0.00016408607482,-0.00016139302934,-0.000158695170272,-0.000155990767392,-0.0001532773541,-0.000150552083487,-0.000147815857426,-0.000145068643144,-0.000142310051123,-0.000139539880086,-0.000136758494927,-0.000133962555971,-0.000131148986574,-0.000128318837587,-0.000125471908148,-0.000122610339319,-0.000119733202865,-0.000116838690216,-0.000113926757586,-0.000110998502673,-0.000108053521025,-0.000105093535739,-0.00010212023606,-9.9134756035e-05,-9.61367948169e-05,-9.31255412179e-05,-9.01031184993e-05,-8.70720179644e-05,-8.40329629521e-05,-8.09851999735e-05,-7.79274859823e-05,-7.48602443487e-05,-7.17813031754e-05,-6.86885945693e-05,-6.55817476366e-05,-6.2461357609e-05,-5.93256480032e-05,-5.61714779504e-05,-5.29966705149e-05,-4.98019869745e-05,-4.65900130884e-05,-4.3362325217e-05,-4.01192047812e-05,-3.68633017135e-05,-3.35977994019e-05,-3.03212585057e-05,-2.70317483313e-05,-2.37310906003e-05,-2.04212964116e-05,-1.71044999917e-05,-1.37785335739e-05,-1.04409417808e-05,-7.09272793772e-06,-3.73435858061e-06,-3.62539828862e-07,3.02338456425e-06,6.41965733729e-06,9.824318653e-06,1.32366914658e-05,1.66588927518e-05,2.00917657154e-05,2.35335613008e-05,2.69840769824e-05,3.0446459175e-05,3.39206421712e-05,3.74027965316e-05,4.08934548023e-05,4.43951692506e-05,4.79090500009e-05,5.14356348461e-05,5.49720173199e-05,5.85205234313e-05,6.20803637046e-05,6.565196852e-05,6.92334320739e-05,7.28266112701e-05,7.64351870473e-05,8.00608161746e-05,8.37037808712e-05,8.73791976108e-05,9.11069362288e-05,9.49047436975e-05,9.87876438905e-05,0.000102836368792,0.000106710882613,0.000110488202551,0.00011418291456,0.000117809426683,0.000121383289725,0.000124918066836,0.000128401374236,0.000131814327316,0.000135144859986,0.000138378522391,0.000141439462792,0.000144670229507,0.000147996614256,0.000151406461753,0.000154886767928,0.000158423848356,0.00016200662332,0.000165632604106,0.000169300694746,0.000173009855093,0.000176755406675,0.000180532342283,0.000184335468612,0.000188159374138,0.000191998431878,0.000195848071602,0.000199701619338,0.000203555403057,0.000207407714315,0.000211253695073,0.000215091453571,0.000218920923223,0.000222741266826,0.000226552690424,0.000230355331671,0.00023414601766,0.000237922948487,0.000241684949243,0.00024542851292,0.000249153310625,0.000252859475464,0.000256543227801,0.000260207602948,0.000263856289603,0.000267491115505,0.000271115786859,0.000274737069339,0.00027835862867,0.00028198596876,0.000285624829755,0.000289277720068,0.000292947998588,0.000296638847978,0.000300348970122,0.000304078443559,0.000307828328064,0.000311598806499,0.000315388420846,0.000319198866903,0.000323029423803,0.00032687994615,0.000330753697344,0.000334653159431,0.000338578409828,0.000342530929185,0.000346509054352,0.000350514471437,0.000354547154691,0.000358607550793,0.000362693546979,0.000366804930934,0.00037094201002,0.000375100018727,0.000379278732399,0.000383477414773,0.000387696755896,0.000391933125689,0.000396184790467,0.00040044891467,0.000404723070332,0.00040900502933,0.000413290769935,0.000417577775635,0.000421864727657,0.000426147855452,0.000430423935104,0.000434690720678,0.000438948475855,0.000443193823403,0.000447428427208,0.000451652726229,0.000455865079864,0.000460066362159,0.000464252746322,0.000468423754424,0.000472579686647,0.00047672081906,0.000480844393352,0.000484950719485,0.00048903835915,0.000493102643133,0.000497143344078,0.000501160558748,0.000505154777788,0.00050912927164,0.000513083079196,0.000517016439911,0.000520930336658,0.000524824921549,0.000528701794803,0.000532562352566,0.000536409475132,0.000540242149006,0.000544061652517,0.000547867070044,0.000551656628114,0.000555430443001,0.000559187655331,0.000562928616071,0.000566651513511,0.000570357467609,0.000574045508328,0.000577713941659,0.000581361968145,0.00058498798586,0.000588592254953,0.000592171977558,0.000595728008263,0.00059925704454,0.000602758205098,0.000606230533604,0.000609669420048,0.000613075152957,0.000616444999074,0.000619777137257,0.000623069887527,0.000626321460732,0.000629531953871,0.000632699498878,0.000635822741001,0.000638898461731,0.0006419251119,0.000644900171767,0.000647821253753,0.000650686862624,0.000653495570475,0.000656244765269,0.000658929999865,0.000661549322996,0.000664098436287,0.000666576726647,0.000668983448734,0.00067131487809,0.000673571394403,0.000675751659146,0.000677855497827,0.000679884847049,0.000681839849081,0.000683722672811,0.000685534518714,0.000687279312604,0.000688958143939,0.000690574406051,0.000692134097532,0.000693638276656,0.000695090558749,0.000696493751196,0.000697851555993,0.000699167983737,0.000700446817671,0.000701689526768,0.00070289900711,0.000704077281396,0.000705222706545,0.000706334928857,0.000707415418081,0.000708463454268,0.000709477865991,0.000710453878557,0.000711390057075,0.000712284701117,0.000713136231075,0.000713944201836,0.000714709247754,0.000715433365803,0.000716116191329,0.000716756812954,0.000717353710117,0.000717908023854,0.000718422878112,0.000718896805534,0.000719328851749,0.000719719252844,0.000720065408053,0.000720367106084,0.00072062134186,0.000720827518401,0.000720985237142,0.000721095311278,0.00072115482534,0.000721160675124,0.000721115133484,0.00072101745338,0.000720867251726,0.000720662529277,0.000720400452315,0.000720080652812,0.000719702997801,0.000719265175835,0.000718766183025,0.000718208666767,0.000717591129862,0.000716911383589,0.000716169301801,0.000715364762691,0.000714499524915,0.000713576393175,0.000712597281833,0.000711565995057,0.000710485683064,0.000709354977491,0.000708174364043,0.000706945622338,0.000705670543746,0.000704351392154,0.000702989402818,0.000701585654643,0.000700142188474,0.000698657369764,0.000697127913196,0.000695556260327,0.000693945658642,0.000692296065862,0.000690609208516,0.000688885397603,0.000687127122808,0.000685333606281,0.000683501899393,0.000681629851883,0.000679718536588,0.000677769165042,0.000675779459148,0.000673750763348,0.000671683721874,0.000669577872015,0.000667433248086,0.000665248316319,0.000663024287847,0.000660764024553,0.000658468834588,0.000656139477159,0.000653776385966,0.000651381757987,0.00064895427316,0.000646494268244,0.000644001612634,0.000641475683622,0.000638916746827,0.000636328154707,0.00063371075008,0.000631065867449,0.000628395510114,0.000625696683006,0.000622967130657,0.000620206867899,0.000617413740029,0.000614591329702,0.000611740357256,0.000608859777911,0.000605948190855,0.000603005071268,0.000600030064542,0.000597024611733,0.000593993509922,0.000590939869334,0.000587865987903,0.000584774487443,0.000581665907042,0.000578541351109,0.000575401631629,0.000572247148234,0.000569079531679,0.000565900118217,0.000562708533792,0.000559504467988,0.000556288944091,0.000553061814892,0.000549823447574,0.000546575083523,0.000543319753346,0.000540058986147,0.000536789342778,0.000533509804363,0.000530218858263,0.000526914334818,0.000523597591324,0.000520266692682,0.000516919409566,0.000513555310953,0.000510168832087,0.000506755757893,0.000503317585637,0.000499856211549,0.000496367412181,0.000492849515302,0.000489300597113,0.000485716859256,0.000482097242393,0.000478440244704,0.000474746038209,0.00047101553965,0.000467247729534,0.000463439500875,0.000459592907524,0.000455714763916,0.000451806604983,0.000447870784092,0.000443910064539,0.000439924556916,0.00043591641537,0.000431887584303,0.000427841882963,0.000423784771298,0.000419720108672,0.00041564829457,0.000411568582553,0.000407483536072,0.000403394295817,0.000399303408023,0.000395215051292,0.000391131887546,0.000387054779763,0.000382980313809,0.000378908372072,0.000374836502856,0.000370764927048,0.000366695350024,0.000362628411073,0.00035856477292,0.000354503501116,0.000350442992306,0.000346382156108,0.00034232216571,0.000338264924177,0.000334209344021,0.000330156510149,0.000326103689584,0.000322050321523,0.000317994800405,0.000313937496998,0.000309875502096,0.000305807478419,0.00030173281138,0.000297649327699,0.000293557695418,0.000289456542363,0.000285344246142,0.000281221699887,0.000277086950738,0.000272938636281,0.000268777284562,0.000264606688881,0.000260428144684,0.000256240752309,0.000252043419174,0.000247834229986,0.000243616019159,0.000239387742079,0.000235152546873,0.000230910479556,0.00022666475525,0.000222414181696,0.000218156197877,0.000213891724866,0.000209621616489,0.000205349395414,0.000201078189394,0.000196810191049,0.000192548085601,0.000188290688662,0.000184038196684,0.000179785998051,0.000175535960417,0.000171288254072,0.000167043430714,0.000162803461655,0.000158565999095,0.000154329868833,0.000150091890187,0.00014585289414,0.000141613794369,0.000137375853788,0.000133141692575,0.00012891264021,0.000124690411851,0.000120475630802,0.000116268771746,0.000112068960078,0.000107876834321,0.000103693504635,9.95170459722e-05,9.53514766001e-05,9.11979908928e-05,8.70578142123e-05,8.29300404855e-05,7.88124601695e-05,7.47043734451e-05,7.06063264014e-05,6.65213511951e-05,6.24498880863e-05,5.83931079979e-05,5.4351107907e-05,5.03206846969e-05,4.63006675487e-05,4.22909405645e-05,3.82915887237e-05,3.43055413835e-05,3.03335396523e-05,2.63738950698e-05,2.24259104884e-05,1.84903135567e-05,1.45669745321e-05,1.06569826411e-05,6.76007107599e-06,2.87808341361e-06,-9.87685135857e-07,-4.83882331369e-06,-8.67535543507e-06,-1.24998022359e-05,-1.63110998008e-05,-2.01098997777e-05,-2.38968415613e-05,-2.76718557523e-05,-3.14318368983e-05,-3.51757500025e-05,-3.89027995998e-05,-4.26126045537e-05,-4.63032527124e-05,-4.99722406335e-05,-5.361736463e-05,-5.72359244787e-05,-6.08253059496e-05,-6.43825031706e-05,-6.79075305804e-05,-7.14005822238e-05,-7.48618722802e-05,-7.82915010488e-05,-8.16907774537e-05,-8.50589504728e-05,-8.83962699585e-05,-9.17027655249e-05,-9.49801848591e-05,-9.82292084837e-05,-0.000101452753082,-0.00010465297797,-0.000107832880223,-0.000110993403817,-0.000114133379986,-0.000117251152543,-0.000120349086966,-0.000123428504314,-0.000126488227318,-0.000129530924497,-0.000132556070158,-0.00013556228209,-0.000138545732492,-0.000141504982102,-0.000144440098826,-0.000147354249542,-0.000150248011143,-0.000153118106965,-0.000155967707083,-0.000158798665558,-0.000161609842437,-0.000164402443004,-0.000167176872009,-0.000169934965675,-0.000172674558485,-0.000175396895835,-0.00017809971585,-0.000180787070468,-0.000183461906908,-0.000186120274474,-0.000188761471347,-0.000191385679733,-0.000193994026289,-0.000196588342937,-0.000199170330076,-0.000201741747657,-0.000204299873969,-0.000206847620656,-0.000209379812264,-0.000211893973838,-0.000214391055997,-0.000216870035496,-0.000219330734642,-0.000221771615561,-0.000224191297206,-0.000226587971783,-0.000228962977397,-0.000231315642655,-0.000233644789768,-0.000235954812374,-0.000238246707847,-0.000240521748649,-0.000242780373471,-0.000245020736813,-0.000247242898696,-0.000249447893227,-0.000251637854793,-0.000253812333898,-0.000255972054418,-0.000258118138616,-0.000260248746157,-0.000262363127762,-0.000264462099448,-0.000266547614974,-0.000268621032871,-0.000270683415678,-0.000272731776299,-0.000274765308983,-0.000276784044972,-0.00027878657097,-0.000280775263305,-0.000282749481661,-0.000284708042283,-0.000286648201291,-0.000288569876698,-0.000290470765662,-0.000292352418831,-0.000294217099771,-0.000296064106673,-0.000297893776042,-0.000299705566162,-0.000301496099094,-0.000303266462353,-0.0003050188925,-0.000306753932787,-0.000308472561841,-0.000310177165635,-0.000311864149143,-0.00031353352378,-0.000315184156087,-0.000316814225107,-0.000318427941247,-0.000320024276771,-0.000321606634322,-0.000323174659409,-0.000324726825313,-0.000326260989936,-0.000327777532455,-0.000329280486587,-0.000330769202572,-0.000332245952756,-0.000333708981929,-0.000335159895676,-0.000336594569828,-0.000338010876928,-0.000339409158215,-0.0003407888072,-0.000342150593865,-0.000343492039469,-0.000344813894892,-0.000346115068766,-0.00034739766571,-0.00034866087703,-0.000349900459251,-0.000351122034073,-0.000352323632408,-0.000353507899933,-0.000354676411176,-0.000355827744506,-0.000356960899342,-0.000358073554227,-0.000359167525509,-0.000360242090132,-0.00036130244022,-0.000362347954906,-0.000363378145087,-0.000364392963524,-0.00036539118725,-0.000366373687633,-0.000367341354493,-0.000368298563815,-0.000369241939697,-0.000370168934845,-0.000371078686848,-0.000371970915877,-0.000372845047671,-0.000373698686651,-0.000374530679623,-0.000375341673217,-0.000376131658817,-0.000376896671353,-0.000377635208587,-0.000378353988913,-0.000379052770398,-0.000379727575196,-0.000380376523718,-0.000381003277089,-0.000381563567365,-0.000382012401494,-0.000382349263188,-0.000382574388735,-0.000382688457001)
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(195)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('GSE46663-LY1_BCL6_DMSO-GSM1133657.36mers.unique.MACS-2.1.0_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) : 195',bty='n')
dev.off()