# R script for Peak Model
#  -- generated by MACS
p <- c(0.0204109171192,0.0239828276151,0.0269877681909,0.0305029816948,0.0341032406867,0.0345851651186,0.0351521350386,0.0348119530866,0.0347552560946,0.0337914072307,0.0341599376787,0.0344150741427,0.0346135136146,0.0356624079666,0.0354639684946,0.0354923169906,0.0351804835346,0.0359175444306,0.0356340594706,0.0364561658546,0.0361726808946,0.0355773624786,0.0359742414226,0.0352938775186,0.0357191049586,0.0363427718706,0.0365412113426,0.0368246963026,0.0375617571985,0.0379019391505,0.0384972575665,0.0388941365105,0.0390925759825,0.0387807425265,0.0384689090705,0.0380720301265,0.0376751511825,0.0371081812626,0.0369097417906,0.0370231357746,0.0372215752465,0.0376751511825,0.0373066207345,0.0378735906545,0.0382421211025,0.0386390000465,0.0394327579345,0.0395745004145,0.0393193639505,0.0393760609425,0.0397729398864,0.0391492729745,0.0393760609425,0.0388090910225,0.0386390000465,0.0378735906545,0.0382421211025,0.0383555150865,0.0381003786225,0.0373349692305,0.0368246963026,0.0373916662225,0.0379869846385,0.0379019391505,0.0387523940305,0.0391492729745,0.0383555150865,0.0382421211025,0.0391776214705,0.0395745004145,0.0389508335025,0.0388374395185,0.0388090910225,0.0397729398864,0.0398579853744,0.0400280763504,0.0404249552944,0.0411053191984,0.0403682583024,0.0411620161904,0.0425227439983,0.0427211834703,0.0427778804623,0.0424093500143,0.0420408195664,0.0419841225744,0.0425794409903,0.0421825620464,0.0430330169263,0.0431180624143,0.0429479714383,0.0427778804623,0.0433165018863,0.0436566838383,0.0435716383503,0.0440535627823,0.0435999868463,0.0441386082703,0.0440535627823,0.0436850323343,0.0441953052623,0.0443653962383,0.0444220932303,0.0444504417263,0.0449607146542,0.0450174116462,0.0448756691662,0.0447339266863,0.0447339266863,0.0452725481102,0.0449890631502,0.0455276845742,0.0447622751823,0.0451024571342,0.0452158511182,0.0459245635182,0.0464915334382,0.0466049274222,0.0466332759182,0.0461513514862,0.0458962150222,0.0457828210382,0.0470018063662,0.0473419883182,0.0477672157581,0.0470585033582,0.0467466699022,0.0467183214062,0.0473986853101,0.0472852913262,0.0475404277901,0.0481073977101,0.0479656552301,0.0479656552301,0.0479656552301,0.0482491401901,0.0489578525901,0.0491562920621,0.0490712465741,0.050148489422,0.050630413854,0.051112338286,0.050261883406,0.0498650044621,0.0496665649901,0.0494397770221,0.0497516104781,0.050205186414,0.050460322878,0.050403625886,0.050715459342,0.050176837918,0.05094224731,0.051679308206,0.052104535646,0.052416369102,0.052104535646,0.05207618715,0.052161232638,0.052132884142,0.0525297630859,0.0528699450379,0.0535219604459,0.0531250815019,0.0533235209739,0.0542306728459,0.0545425063019,0.0553646126858,0.0551378247178,0.0552228702058,0.0547976427659,0.0553646126858,0.0558748856138,0.0563568100458,0.0563001130538,0.0565552495178,0.0567253404938,0.0557331431338,0.0564702040298,0.0565269010218,0.0565552495178,0.0565835980138,0.0555347036618,0.0555063551658,0.0554213096778,0.0548543397579,0.0547692942699,0.0559315826058,0.0555914006538,0.0564418555338,0.0577458863497,0.0578025833417,0.0583979017577,0.0586246897257,0.0593334021257,0.0606374329416,0.0618564182696,0.0625084336776,0.0627635701415,0.0625367821736,0.0618280697736,0.0616579787976,0.0618564182696,0.0626218276616,0.0624517366856,0.0617146757896,0.0606090844456,0.0595318415977,0.0606090844456,0.0606941299336,0.0611477058696,0.0617997212776,0.0622816457096,0.0618564182696,0.0625084336776,0.0630187066055,0.0640676009575,0.0657118137254,0.0650031013255,0.0656834652294,0.0659952986854,0.0659386016934,0.0667323595814,0.0669024505574,0.0665622686054,0.0675828144614,0.0675544659654,0.0669874960454,0.0667890565734,0.0661937381574,0.0662787836454,0.0664772231174,0.0669024505574,0.0674694204774,0.0681497843813,0.0679796934053,0.0685183148293,0.0686600573093,0.0698223456453,0.0705310580452,0.0709846339812,0.0710696794692,0.0696522546693,0.0704460125572,0.0704176640613,0.0703609670693,0.0712964674372,0.0712114219492,0.0717500433732,0.0726571952452,0.0722319678052,0.0738478320771,0.0752652568771,0.0753503023651,0.076455893709,0.076625984685,0.076427545213,0.077476439565,0.077873318509,0.077788273021,0.0784969854209,0.077504788061,0.077844970013,0.077278000093,0.076909469645,0.077448091069,0.077788273021,0.0784402884289,0.0783835914369,0.0787237733889,0.0793474403009,0.0803679861569,0.0806514711169,0.0821539414048,0.0842233816127,0.0848187000287,0.0844501695807,0.0841383361247,0.0837698056767,0.0834579722207,0.0834296237247,0.0829476992928,0.0838265026687,0.0838831996607,0.0827209113248,0.0834296237247,0.0839398966527,0.0841383361247,0.0848470485247,0.0859809883646,0.0871716251966,0.0876818981246,0.0876535496286,0.0871716251966,0.0875401556446,0.0873700646686,0.0874551101566,0.0877952921086,0.0881638225566,0.0879937315806,0.0888158379645,0.0926995819164,0.0946556281403,0.0982275386362,0.102621555516,0.106760435932,0.11081427086,0.114839757292,0.119545607627,0.124478245931,0.127341444027,0.129240793259,0.131622066923,0.132670961275,0.132897749243,0.132245733835,0.133266279691,0.133974992091,0.135335719899,0.134400219531,0.134740401483,0.134541962011,0.134456916523,0.135307371403,0.135619204859,0.137745342059,0.138397357467,0.140154964219,0.139701388283,0.140721934139,0.141884222474,0.14219605593,0.142706328858,0.142989813818,0.143386692762,0.143358344266,0.144010359674,0.143811920202,0.143698526218,0.145541178458,0.146476678826,0.14673181529,0.148404376554,0.148942997978,0.148687861514,0.14970840737,0.14843272505,0.148829603994,0.14970840737,0.14899969497,0.148659513018,0.150020240826,0.150388771274,0.152344817498,0.154470954698,0.154272515226,0.156682137386,0.157305804298,0.159091759546,0.160877714794,0.16161477569,0.163372382442,0.164534670778,0.164052746346,0.163854306874,0.164336231306,0.164761458746,0.164648064762,0.164903201226,0.16544182265,0.167709702329,0.16643402001,0.165980444074,0.166972641433,0.168191626761,0.170147672985,0.171480052297,0.173436098521,0.173606189497,0.174683432345,0.174796826329,0.177716721417,0.178425433817,0.179417631177,0.179559373657,0.179899555609,0.179729464633,0.180721661993,0.181487071385,0.181430374393,0.182110738297,0.182734405209,0.185030633385,0.186363012697,0.187525301033,0.188971074329,0.191664181449,0.19257133332,0.192826469784,0.195207743448,0.1962566378,0.195321137432,0.195321137432,0.195491228408,0.195434531416,0.195009303976,0.195349485928,0.19597315284,0.1976740626,0.196029849832,0.197163789672,0.198496168984,0.199715154312,0.20135936708,0.203542201272,0.205810080952,0.205668338472,0.204959626072,0.205583292984,0.207057414776,0.206972369288,0.208616582056,0.20958043092,0.2104308858,0.21227353804,0.21411619028,0.214796554184,0.218566904151,0.221458450743,0.223669633431,0.224831921767,0.227014755959,0.227411634903,0.228205392791,0.229225938647,0.228091998807,0.230161439015,0.229566120599,0.229282635639,0.230586666455,0.231692257799,0.230501620967,0.232854546135,0.233903440487,0.234442061911,0.235150774311,0.235802789719,0.237191866023,0.237928926919,0.238127366391,0.238013972407,0.238184063383,0.238184063383,0.238467548343,0.238240760375,0.239488094199,0.239601488183,0.241699276887,0.243173398679,0.244335687014,0.24493100543,0.248134385478,0.247992642998,0.248134385478,0.249438416294,0.249835295238,0.249495113286,0.248417870438,0.248304476454,0.249268325318,0.25088418959,0.249410067798,0.249410067798,0.249863643734,0.248928143366,0.248729703894,0.250345568166,0.25102593207,0.25088418959,0.250373916662,0.24875805239,0.25017547719,0.250657401622,0.252244917398,0.252925281302,0.255873524886,0.257290949686,0.25655388879,0.255958570374,0.256383797814,0.258935162454,0.25797131359,0.256723979766,0.25527820647,0.255618388422,0.253350508742,0.250515659142,0.249069885846,0.248247779462,0.246433475718,0.243570277622,0.242067807335,0.241444140423,0.240622034039,0.240168458103,0.238807730295,0.238807730295,0.238580942327,0.237928926919,0.235887835207,0.236483153623,0.233988485975,0.233988485975,0.231380424343,0.226334392055,0.225058709735,0.225030361239,0.222450648103,0.221004874807,0.219020480087,0.216327372968,0.216469115448,0.215448569592,0.215647009064,0.216213978984,0.216639206424,0.214314629752,0.213946099304,0.2118483106,0.21085611324,0.20958043092,0.2083047486,0.20461944412,0.202294867448,0.201756246024,0.19654012276,0.19526444044,0.192883166776,0.191862620921,0.190728681081,0.189934923193,0.188205664937,0.188517498393,0.186816588633,0.184435314969,0.184038436025,0.181600465369,0.182791102201,0.181855601833,0.181968995817,0.180324783049,0.179814510121,0.179247540201,0.179786161625,0.180523222521,0.181713859353,0.180551571017,0.177886812393,0.176469387593,0.176384342105,0.176270948121,0.174853523321,0.173124265065,0.170516203433,0.168418414729,0.166122186554,0.166802550457,0.16615053505,0.165952095578,0.163996049354,0.164109443338,0.163344033946,0.163003851994,0.16317394297,0.163429079434,0.163372382442,0.162295139594,0.163429079434,0.165838701594,0.170034279001,0.174456644377,0.180523222521,0.186277967209,0.19242959084,0.197022047192,0.20065065468,0.201841291512,0.201841291512,0.19809929004,0.192798121288,0.185229072857,0.177404887961,0.170289415465,0.161728169674,0.155463152058,0.149821801354,0.14616484537,0.142309449914,0.139729736779,0.137008281163,0.133322976683,0.128843914315,0.125101912843,0.121643396331,0.117334424939,0.112260044156,0.106590344956,0.102508161532,0.10018358486,0.0965266288762,0.0942587491963,0.0932949003324,0.0904600507325,0.0885607015005,0.0862644733246,0.0846202605567,0.0847053060447,0.0836564116927,0.0825791688448,0.0827209113248,0.0815869714848,0.0806514711169,0.0795458797729,0.0789505613569,0.0787804703809,0.0792907433089,0.0786103794049,0.078071757981,0.076257454237,0.0752369083811,0.0754069993571,0.0749817719171,0.075633787325,0.075747181309,0.0752936053731,0.0749817719171,0.0754069993571,0.0752085598851,0.075633787325,0.075945620781,0.0753503023651,0.075860575293,0.0753786508611,0.0749534234211,0.0741029685411,0.0726004982532,0.0717216948772,0.0709562854852,0.0705310580452,0.0682915268613,0.0684899663333,0.0677812539334,0.0670441930374,0.0669874960454,0.0663638291334,0.0659102531974,0.0648897073415,0.0645495253895,0.0643510859175,0.0649747528295,0.0631321005895,0.0617146757896,0.0616012818056,0.0602405539976,0.0606941299336,0.0611477058696,0.0606090844456,0.0603539479816,0.0599287205417,0.0595034931017,0.0597869780617,0.0601271600137,0.0599003720457,0.0596735840777,0.0587664322057,0.0591349626537,0.0588231291977,0.0589932201737,0.0581711137897,0.0571789164298,0.0570655224458,0.0565552495178,0.0567536889898,0.0570371739498,0.0581994622857,0.0572639619178,0.0577175378537,0.0572356134218,0.0575474468778,0.0581427652937,0.0573490074058,0.0572639619178,0.0564135070378,0.0555630521578,0.0540038848779,0.0543157183339,0.0544007638219,0.0539755363819,0.0543724153259,0.0541739758539,0.0546559002859,0.0549393852459,0.0534369149579,0.0538054454059,0.0537770969099,0.052444717598,0.051849399182,0.051821050686,0.050602065358,0.0498650044621,0.0496665649901,0.0490145495821,0.050006746942,0.0494681255181,0.0489578525901,0.0490145495821,0.0489295040941,0.0479656552301,0.0473703368142,0.0465765789262,0.0462363969742,0.0460946544942,0.0460946544942,0.0462647454702,0.0461513514862,0.0466616244142,0.0466332759182,0.0466332759182,0.0468884123822,0.0481640947021,0.0485042766541,0.0478522612461,0.0481357462061,0.0478806097421,0.0483341856781,0.0486460191341,0.0485609736461,0.0492696860461,0.0496098679981,0.0487594131181,0.0483625341741,0.0483908826701,0.0474270338061,0.0467183214062,0.0469451093742,0.0460379575022,0.0459245635182,0.0451875026222,0.0448189721743,0.0445638357103,0.0439118203023,0.0444220932303,0.0447622751823,0.0450457601422,0.0443086992463,0.0443370477423,0.0440819112783,0.0443086992463,0.0442236537583,0.0439968657903,0.0437984263183,0.0433165018863,0.0426928349743,0.0429763199343,0.0434582443663,0.0427495319663,0.0422676075343,0.0421825620464,0.0418990770864,0.0425510924943,0.0429196229423,0.0430613654223,0.0432314563983,0.0429479714383,0.0421258650544,0.0424943955023,0.0429196229423,0.0424943955023,0.0425227439983,0.0416439406224,0.0417289861104,0.0417573346064,0.0412187131824,0.0413321071664,0.0421258650544,0.0422392590384,0.0425510924943,0.0421825620464,0.0425794409903,0.0429196229423,0.0426644864783,0.0425227439983,0.0428912744463,0.0429196229423,0.0429479714383,0.0427778804623,0.0414171526544,0.0414171526544,0.0407367887504,0.0405383492784,0.0408218342384,0.0413888041584,0.0415872436304,0.0416439406224,0.0411053191984,0.0410486222064,0.0420124710704,0.0420975165584,0.0423810015183,0.0431464109103,0.0436566838383,0.0433165018863,0.0429479714383,0.0430897139183,0.0428345774543,0.0424943955023,0.0418140315984,0.0420975165584,0.0419557740784,0.0413888041584,0.0398579853744,0.0398012883824,0.0394611064305,0.0392910154545,0.0389791819985,0.0390642274865,0.0393760609425,0.0392343184625,0.0396311974065,0.0390358789905,0.0398863338704,0.0388374395185,0.0392343184625,0.0392910154545,0.0396028489105,0.0394327579345,0.0392343184625,0.0389224850065,0.0381570756145,0.0388657880145,0.0392059699665,0.0402548643184,0.0404816522864,0.0399430308624,0.0396311974065,0.0392626669585,0.0394894549265,0.0408218342384,0.0405383492784,0.0397729398864,0.0383838635825,0.0376468026865,0.0369664387826,0.0372215752465,0.0372499237425,0.0370231357746,0.0373066207345,0.0362860748786,0.0362577263826,0.0367963478066,0.0378168936625,0.0374200147185,0.0381003786225,0.0377318481745,0.0379302876465,0.0389224850065,0.0382137726065,0.0380436816305,0.0382137726065,0.0377601966705,0.0371648782545,0.0368813932946,0.0369664387826,0.0369097417906,0.0362010293906,0.0356624079666,0.0354923169906,0.0348119530866,0.0346985591026,0.0347836045906,0.0350670895506,0.0355490139826,0.0348969985746,0.0351521350386,0.0358041504466,0.0358324989426,0.0358324989426,0.0360309384146,0.0363144233746,0.0363711203666,0.0362293778866,0.0363994688626,0.0362860748786,0.0361159839026,0.0355490139826,0.0359458929266,0.0361159839026,0.0366546053266,0.0369097417906,0.0367113023186,0.0371932267505,0.0373916662225,0.0371081812626,0.0368813932946,0.0367963478066,0.0363427718706,0.0364278173586,0.0360025899186,0.0356340594706,0.0354356199986,0.0349253470706,0.0345851651186,0.0352088320306,0.0351521350386,0.0351237865426,0.0355773624786,0.0350954380466,0.0354639684946,0.0354072715026,0.0355206654866,0.0351521350386,0.0345568166227,0.0340465436947,0.0338481042227,0.0335929677587,0.0329976493427,0.0329693008467,0.0324306794227,0.0323739824307,0.0322322399507,0.0320904974707,0.0329126038547,0.0331110433267,0.0331393918227,0.0335929677587,0.0339614982067,0.0339898467027,0.0340748921907,0.0340181951987,0.0343300286547,0.0343583771507,0.0333378312947,0.0332527858067,0.0337914072307,0.0337063617427,0.0337063617427,0.0336213162547,0.0345851651186,0.0344150741427,0.0341032406867,0.0346702106066,0.0348686500786,0.0352938775186,0.0348969985746,0.0350103925586,0.0350954380466,0.0352088320306,0.0345284681267,0.0348119530866,0.0345284681267,0.0338764527187,0.0343300286547,0.0337914072307,0.0341599376787,0.0340181951987,0.0338197557267,0.0340181951987,0.0339898467027,0.0338764527187,0.0343300286547,0.0344434226387,0.0346418621106,0.0348969985746,0.0345851651186,0.0335079222707,0.0327992098707,0.0322889369427,0.0318353610068,0.0318353610068,0.0319487549908,0.0321755429587,0.0324306794227,0.0325440734067,0.0327425128787,0.0341032406867,0.0348686500786,0.0347552560946,0.0350954380466,0.0349253470706,0.0345001196307,0.0341882861747,0.0339331497107,0.0336213162547,0.0333094827987,0.0327708613747,0.0326007703987,0.0332527858067,0.0331960888147,0.0329976493427,0.0330826948307,0.0332527858067,0.0336496647507,0.0339048012147,0.0341882861747,0.0343867256467,0.0340465436947,0.0337630587347,0.0341032406867,0.0350103925586,0.0347552560946,0.0351237865426,0.0345001196307,0.0348969985746,0.0348119530866,0.0350387410546,0.0348403015826,0.0349536955666,0.0348119530866,0.0339048012147,0.0339898467027,0.0335362707667,0.0333945282867,0.0324873764147,0.0320338004787,0.0318070125108,0.0323172854387,0.0328842553587,0.0329409523507,0.0334795737747,0.0336496647507,0.0339048012147,0.0342166346707,0.0344434226387,0.0345851651186,0.0343583771507,0.0343867256467,0.0339048012147,0.0333661797907,0.0331110433267,0.0328559068627,0.0327992098707,0.0324873764147,0.0327992098707,0.0331677403187,0.0333661797907,0.0327708613747,0.0325157249107,0.0326291188947,0.0319487549908,0.0322038914547,0.0325157249107,0.0324873764147,0.0317219670228,0.0308431636468,0.0312116940948,0.0316936185268,0.0318070125108,0.0311833455988,0.0318070125108,0.0323172854387,0.0314668305588,0.0313534365748,0.0313817850708,0.0322322399507,0.0318637095028,0.0315518760468,0.0318353610068,0.0325440734067,0.0326291188947,0.0320621489747,0.0322605884467,0.0325724219027,0.0327992098707,0.0324873764147,0.0326007703987,0.0322322399507,0.0318637095028,0.0318637095028,0.0320904974707,0.0322322399507,0.0326858158867,0.0326574673907,0.0326574673907,0.0329126038547,0.0326574673907,0.0334228767827,0.0336496647507,0.0338764527187,0.0348403015826,0.0340465436947,0.0337063617427,0.0331677403187,0.0332244373107,0.0329976493427,0.0328275583667,0.0327425128787,0.0320621489747,0.0316369215348,0.0300777542548,0.0305596786868,0.0305596786868,0.0309565576308,0.0312400425908,0.0313817850708,0.0318637095028,0.0318353610068,0.0318637095028,0.0320054519828,0.0315802245428,0.0314101335668,0.0312967395828,0.0310699516148,0.0308998606388,0.0302761937268,0.0298509662868,0.0301911482388,0.0308715121428,0.0310699516148,0.0317503155188,0.0321188459667,0.0321188459667,0.0326858158867,0.0328559068627,0.0334795737747,0.0346985591026,0.0344434226387,0.0341882861747,0.0338764527187,0.0336780132467,0.0343583771507,0.0340465436947,0.0336496647507,0.0336213162547,0.0330259978387,0.0316085730388,0.0312400425908,0.0312116940948,0.0309565576308,0.0309849061268,0.0305029816948,0.0316652700308,0.0315235275508,0.0315235275508,0.0323739824307,0.0334512252787,0.0331393918227,0.0332244373107,0.0334512252787,0.0335079222707,0.0330259978387,0.0325724219027,0.0324023309267,0.0319771034868,0.0315802245428,0.0305880271828,0.0309849061268,0.0312967395828,0.0315235275508,0.0312683910868,0.0318353610068,0.0319771034868,0.0320338004787,0.0324306794227,0.0320904974707,0.0325157249107,0.0324873764147,0.0322889369427,0.0326007703987,0.0328275583667,0.0326291188947,0.0321188459667,0.0324306794227,0.0322889369427,0.0330259978387,0.0329976493427,0.0332244373107,0.0329976493427,0.0327141643827,0.0323739824307,0.0323172854387,0.0325157249107,0.0322889369427,0.0327425128787,0.0320621489747,0.0321188459667,0.0321755429587,0.0319204064948,0.0320904974707,0.0326007703987,0.0323456339347,0.0325724219027,0.0324873764147,0.0324873764147,0.0323456339347,0.0323456339347,0.0324590279187,0.0331393918227,0.0327992098707,0.0324873764147,0.0328559068627,0.0330826948307,0.0334228767827,0.0325724219027,0.0327141643827,0.0328275583667,0.0325440734067,0.0290005114069,0.025825479855,0.0228488877751,0.0195321137432,0.0)
m <- c(0.0160747816219,0.0190869929529,0.021635787156,0.0250824520443,0.0278919183818,0.0271099019786,0.027254719831,0.0271099019786,0.0266175212803,0.0268202662737,0.0277471005294,0.0282105176572,0.0283842990801,0.0277471005294,0.0277471005294,0.0280946633752,0.0284711897916,0.0292821697653,0.0296586961817,0.0298324776046,0.0294269876178,0.0286449712146,0.0285291169326,0.0289346069195,0.0292242426244,0.028731861926,0.0280367362343,0.0267044119917,0.0266464848507,0.0261830677229,0.0255169056016,0.0249376341918,0.0252272698967,0.0246479984869,0.0245031806345,0.0251114156148,0.0254879420312,0.0258644684475,0.0255169056016,0.0257775777361,0.0264727034278,0.0269650841261,0.0267623391327,0.0268781934147,0.0267044119917,0.0260961770114,0.0256617234541,0.0254010513197,0.0255748327426,0.0257196505951,0.0254879420312,0.0256906870246,0.0255169056016,0.0254010513197,0.0253141606082,0.0259223955885,0.0261251405819,0.0262989220049,0.0261541041524,0.0259803227295,0.0260961770114,0.0253720877492,0.0252851970377,0.0252851970377,0.0249955613328,0.0247928163394,0.0244452534935,0.0243004356411,0.0240976906476,0.0236922006608,0.0242425085001,0.024416289923,0.0246190349165,0.0246479984869,0.0248217799099,0.024416289923,0.0241845813591,0.024474217064,0.0247638527689,0.0248217799099,0.0240397635067,0.0238949456542,0.0233736013854,0.0231998199624,0.0229101842575,0.0224467671297,0.0230839656805,0.022939147828,0.0227364028346,0.023112929251,0.0231998199624,0.0234315285264,0.0238370185132,0.0237211642313,0.0238659820837,0.024532144205,0.024358362782,0.0242135449296,0.0241556177886,0.0243873263525,0.0242425085001,0.0245611077755,0.0247059256279,0.0247059256279,0.0243873263525,0.0240397635067,0.0236632370903,0.0235763463788,0.0239818363657,0.0233446378149,0.0234604920969,0.0234604920969,0.023170856392,0.0228232935461,0.0227074392641,0.023170856392,0.0235473828083,0.0237501278018,0.0234025649559,0.0235763463788,0.0234604920969,0.0230839656805,0.0229681113985,0.023112929251,0.0235184192378,0.0240397635067,0.0237211642313,0.0233736013854,0.0233446378149,0.0235763463788,0.0234604920969,0.0234894556673,0.0233446378149,0.0232867106739,0.0230260385395,0.0225915849822,0.0225626214117,0.0224467671297,0.0223598764182,0.0223019492773,0.0229681113985,0.0229101842575,0.023170856392,0.0234604920969,0.0235473828083,0.0234604920969,0.0238370185132,0.0244452534935,0.0250245249033,0.0249376341918,0.0245031806345,0.024590071346,0.024532144205,0.0243004356411,0.024532144205,0.0248217799099,0.0246769620574,0.0240976906476,0.0238080549427,0.0239818363657,0.024358362782,0.024416289923,0.024416289923,0.0246190349165,0.0247638527689,0.0250245249033,0.0250245249033,0.0254879420312,0.0257196505951,0.0251403791853,0.0247638527689,0.0249955613328,0.0250245249033,0.0250534884738,0.0247059256279,0.0242425085001,0.0245611077755,0.0242135449296,0.024416289923,0.0249086706214,0.0247348891984,0.0247348891984,0.0247638527689,0.024590071346,0.0249955613328,0.0243873263525,0.0242135449296,0.0248217799099,0.0243873263525,0.024532144205,0.0249086706214,0.0248217799099,0.0250245249033,0.0256327598836,0.0256037963131,0.0264437398573,0.0270230112671,0.0266175212803,0.0266175212803,0.0264147762868,0.0262699584344,0.0263278855754,0.0257775777361,0.0255169056016,0.0265016669983,0.0261541041524,0.0260382498705,0.0264437398573,0.0262989220049,0.0267044119917,0.0270809384081,0.0272836834015,0.0277181369589,0.0276022826769,0.0269071569852,0.0268781934147,0.0274574648245,0.0270230112671,0.0272836834015,0.0271388655491,0.0269361205556,0.0271388655491,0.0277181369589,0.0282684447982,0.0279208819523,0.0282974083687,0.0274574648245,0.0274574648245,0.0274574648245,0.027370574113,0.0271099019786,0.0269071569852,0.0266464848507,0.0267913027032,0.0273995376835,0.027486428395,0.0281525905162,0.0285580805031,0.0288187526375,0.028673934785,0.0295428418997,0.0298904047456,0.0300641861686,0.0299193683161,0.0298035140342,0.0297745504637,0.0291373519129,0.0293111333358,0.0296586961817,0.0303538218735,0.0303538218735,0.03015107688,0.0297745504637,0.0297166233227,0.0293400969063,0.0293690604768,0.0297455868932,0.0301221133095,0.030324858303,0.0304696761554,0.0300931497391,0.030209004021,0.0307593118603,0.0308172390013,0.0311648018472,0.0308462025718,0.0304117490144,0.0300352225981,0.0298324776046,0.0299193683161,0.0297166233227,0.0296876597522,0.0296586961817,0.0299193683161,0.0301221133095,0.030266931162,0.0307013847193,0.0309620568538,0.0309910204242,0.0306434575784,0.0311068747062,0.0313675468406,0.0312516925587,0.0311937654177,0.0311358382767,0.0318309639684,0.031628218975,0.0322654175258,0.0326998710831,0.0334529239159,0.0330763974995,0.0331922517815,0.0332791424929,0.0329605432176,0.0329315796471,0.0326709075127,0.0335977417683,0.033047433929,0.0325260896602,0.0321495632438,0.0325260896602,0.0322074903848,0.0324681625192,0.0330184703585,0.0333370696339,0.0334239603454,0.0331343246405,0.03310536107,0.0337135960503,0.0338004867618,0.0341190860372,0.0344087217421,0.0344956124535,0.0345535395945,0.0344376853125,0.0347273210174,0.0351038474338,0.0356251917026,0.0354803738502,0.0355672645617,0.0355093374207,0.0357989731256,0.0361754995419,0.0369575159452,0.0368126980927,0.0368706252337,0.0366389166698,0.0361754995419,0.0364072081059,0.0369285523747,0.0370444066566,0.0368126980927,0.0364651352468,0.0357410459846,0.0366968438108,0.0368995888042,0.0375657509255,0.0380581316238,0.0384056944697,0.0379422773418,0.0377684959189,0.0381450223353,0.0391297837319,0.0396511280007,0.0393904558663,0.0390428930204,0.0385215487516,0.0384925851811,0.0383477673287,0.0388111844565,0.038840148027,0.0391877108729,0.0388111844565,0.0385505123221,0.038956002309,0.0388691115975,0.0395642372893,0.0396511280007,0.0391877108729,0.0392456380139,0.0401145451286,0.0397669822827,0.0399118001351,0.0395642372893,0.0394773465778,0.0397090551417,0.0392456380139,0.0404041808335,0.0406938165384,0.0407227801089,0.0412441243777,0.041678577935,0.0411572336662,0.0414179058006,0.0414179058006,0.0421419950629,0.0422868129153,0.0424316307678,0.043213647171,0.0429529750366,0.0424026671973,0.0422868129153,0.0423737036268,0.0428371207546,0.0430109021776,0.0428950478956,0.0429240114661,0.0422578493448,0.0418813229285,0.0419971772104,0.0419971772104,0.0423157764858,0.0430109021776,0.0426633393317,0.0426343757612,0.0424605943383,0.0428371207546,0.0421709586334,0.0423447400563,0.0427791936136,0.0438798092923,0.0440825542857,0.0439667000037,0.0439667000037,0.0442852992791,0.0442852992791,0.0444590807021,0.0453279878168,0.0453859149577,0.04611000422,0.0453859149577,0.0453859149577,0.0457334778036,0.0466023849183,0.0467182392003,0.0472106198986,0.0468340934822,0.0469789113347,0.0470658020462,0.046167931361,0.0466313484888,0.0469499477642,0.0472685470396,0.0472395834691,0.0466892756298,0.0473554377511,0.0473264741806,0.0470078749052,0.0470368384757,0.047529219174,0.0463417127839,0.0459651863675,0.0462548220724,0.0470947656167,0.0478478184494,0.0475581827445,0.0479347091609,0.0487167255641,0.0486587984231,0.0489194705575,0.050367649082,0.0503966126525,0.050483503364,0.0499331955247,0.0498173412427,0.0496435598198,0.0492380698329,0.0484850170002,0.0486877619936,0.0483981262887,0.0480505634428,0.0482243448658,0.047413364892,0.0478767820199,0.048948434128,0.0489194705575,0.0502228312296,0.0510627747738,0.0511786290557,0.051960645459,0.0521054633114,0.0523661354458,0.0535246782654,0.0534088239835,0.0525399168688,0.0522213175934,0.0516420461836,0.0514682647606,0.051844791177,0.051728936895,0.0512655197672,0.0512655197672,0.0503966126525,0.0499331955247,0.0499911226656,0.050541430505,0.0511786290557,0.0509469204918,0.0511207019148,0.0513524104787,0.0518158276065,0.0524819897278,0.0526268075802,0.05320607899,0.0532350425605,0.0539880953933,0.05320607899,0.0539012046818,0.0544804760916,0.0548280389375,0.0559286546161,0.0550018203604,0.0559865817571,0.0555810917702,0.0556390189112,0.0556390189112,0.0559576181866,0.0559865817571,0.0552045653538,0.054625293944,0.0546542575145,0.0559865817571,0.0561313996095,0.0569713431537,0.0573189059996,0.0574637238521,0.058940865947,0.0592305016519,0.060475935183,0.0617213687141,0.0616055144321,0.0612579515862,0.0612579515862,0.0615475872911,0.06206893156,0.0620399679895,0.061953077278,0.0623585672649,0.0616924051436,0.062011004419,0.0623875308353,0.0631116200976,0.0636329643664,0.0642991264877,0.064675652904,0.0650521793204,0.0657473050122,0.0659790135761,0.0658631592941,0.066152794999,0.0666162121269,0.0672823742481,0.0676009735235,0.0671375563957,0.0671085928252,0.0667899935498,0.0664424307039,0.0665293214154,0.0687015892021,0.0676589006645,0.0677168278055,0.0678616456579,0.0679485363694,0.0695415327464,0.0703525127201,0.0711924562643,0.0716269098216,0.0722930719429,0.0717717276741,0.0728723433527,0.0735095419035,0.0729592340642,0.073422651192,0.0729302704937,0.0737702140379,0.0746101575821,0.0753921739853,0.0744943033001,0.0744653397296,0.0752473561329,0.0749287568575,0.074899793287,0.0755369918378,0.0763479718115,0.0757976639722,0.0767824253688,0.0767534617984,0.0784333488868,0.0787519481622,0.0788388388736,0.0798525638408,0.0815324509292,0.0818220866341,0.0819089773456,0.0819379409161,0.082053795198,0.0820827587685,0.0830095930242,0.0843708808372,0.0846025894011,0.0846605165421,0.0841970994143,0.0844577715487,0.0847184436831,0.086369367201,0.0867748571879,0.0878175457255,0.0880492542894,0.0885995621287,0.0890919428271,0.0891788335385,0.090684939204,0.0914959191777,0.0929440977022,0.0927992798498,0.0917276277417,0.0916986641712,0.0928282434203,0.0927703162793,0.093697150535,0.0960721633151,0.0989395567937,0.102588966675,0.105572214436,0.109627114304,0.115217083409,0.120893943225,0.12529640594,0.13126290146,0.137634886968,0.142819366086,0.146729448102,0.149365133017,0.152666980052,0.1578224956,0.162862156865,0.16908932452,0.176388144284,0.184353126168,0.191970545207,0.197155024325,0.202947738423,0.20749501899,0.210101740334,0.208827343233,0.207755691124,0.204772443364,0.200862361348,0.195040683679,0.188668698172,0.182991838355,0.177575650674,0.17441862149,0.17378142294,0.174215876497,0.174650330054,0.174534475772,0.173375932953,0.173723495799,0.174042095074,0.175664055022,0.177314978539,0.178734193493,0.179052792769,0.17971895489,0.179603100608,0.17968999132,0.180356153441,0.181369878408,0.183426291913,0.184932397578,0.185743377552,0.184613798303,0.185077215431,0.18562752327,0.186988811083,0.187741863916,0.189537605286,0.189074188158,0.189827240991,0.189508641716,0.190203767407,0.190840965958,0.191072674522,0.193215978738,0.193476650873,0.194953792968,0.194924829397,0.197126060755,0.196778497909,0.199298328541,0.199935527092,0.203150483416,0.205033115498,0.205873059043,0.206799893298,0.209203869649,0.212592607396,0.215546891586,0.218530139347,0.219543864314,0.221513387107,0.222469184933,0.22168716853,0.224525598438,0.227421955487,0.225886886251,0.225742068399,0.224902124854,0.224351817015,0.225307614841,0.225539323405,0.226610975513,0.22994178612,0.230144531113,0.231332037503,0.234489066687,0.236835115896,0.238978420113,0.241672032168,0.245524187043,0.248333653381,0.250390066886,0.25004250404,0.251635500417,0.253054715371,0.255169056016,0.256819979534,0.257920595213,0.258152303777,0.256848943105,0.257630959508,0.256385525977,0.259600482301,0.260469389416,0.261135551537,0.260266644423,0.26012182657,0.261743786518,0.262178240075,0.262265130786,0.262294094357,0.265132524265,0.265393196399,0.263452637177,0.26246787578,0.262554766491,0.260932806544,0.259108101603,0.259194992315,0.260324571564,0.259948045147,0.258152303777,0.257486141656,0.257601995938,0.258181267347,0.258557793764,0.259137065174,0.259194992315,0.259021210892,0.257399250944,0.25716754238,0.257022724528,0.255690400285,0.255835218138,0.253981549626,0.251172083289,0.251403791853,0.249289451207,0.249434269059,0.247928163394,0.246364130587,0.24535040562,0.244829061352,0.243091247122,0.242106485725,0.243467773538,0.241353432893,0.241266542181,0.239007383683,0.238109512998,0.239586655093,0.239644582234,0.238370185132,0.23822536728,0.237790913722,0.235763463788,0.236168953775,0.236371698768,0.235502791654,0.236690298044,0.233996685988,0.233851868136,0.232258871759,0.230955511087,0.229246660428,0.229188733287,0.227190246923,0.225713104828,0.225539323405,0.22403321774,0.223280164907,0.221774059242,0.221252714973,0.219804536448,0.219167337897,0.217719159373,0.215575855157,0.213606332363,0.211578882429,0.209232833219,0.207437091849,0.205873059043,0.205670314049,0.204888297646,0.205496532626,0.203295301269,0.202049867738,0.202658102718,0.201383705617,0.200514798502,0.200254126367,0.199732782099,0.199008692836,0.19860320285,0.196778497909,0.197705332164,0.198110822151,0.196778497909,0.196228190069,0.196344044351,0.195272392243,0.192984270175,0.190319621689,0.189247969581,0.188697661742,0.186438503244,0.185164106142,0.184005563323,0.182122931241,0.180645789146,0.179342428474,0.179168647051,0.179950663454,0.178705229923,0.178039067802,0.177865286379,0.178357667077,0.176967415694,0.177430832821,0.176503998566,0.176127472149,0.175171674323,0.173752459369,0.17201464514,0.170045122346,0.169958231635,0.166395712465,0.165671623202,0.164281371819,0.16376002755,0.162109104032,0.160979524783,0.160487144085,0.161153306206,0.16077677979,0.160834706931,0.161008488354,0.160168544809,0.159936836245,0.159125856272,0.158546584862,0.157706641318,0.157214260619,0.155766082095,0.155273701397,0.153506923597,0.152985579328,0.152058745072,0.150118185849,0.148583116613,0.148467262331,0.148554153043,0.146439812397,0.146671520961,0.145686759564,0.144122726758,0.14423858104,0.143601382489,0.144006872476,0.143746200342,0.142587657522,0.141168442568,0.141573932555,0.140415389735,0.139633373332,0.140009899748,0.138561721224,0.137982449814,0.137055615558,0.137026651988,0.136331526296,0.134999202054,0.134506821355,0.133522059959,0.132653152844,0.132508334991,0.132479371421,0.132073881434,0.130770520762,0.129525087231,0.128395507982,0.130422957916,0.129061670103,0.128945815821,0.12946716009,0.127381783015,0.127787273002,0.126860438746,0.12709214731,0.126281167336,0.124022008838,0.119648509694,0.116317699088,0.112639325635,0.109569187163,0.105398433013,0.100358771748,0.0961011268856,0.0915828098892,0.0887733435517,0.0881940721419,0.0860218043551,0.0851528972404,0.084892225106,0.0827199573193,0.0828647751717,0.0826909937488,0.0833281922996,0.0831833744471,0.082227576621,0.0810111066604,0.0806635438145,0.0802290902571,0.0799684181227,0.0797077459883,0.0806056166735,0.0801421995457,0.0797077459883,0.0802290902571,0.0799973816932,0.0795050009949,0.0789546931556,0.0789546931556,0.0781726767524,0.0772168789262,0.0754211375558,0.0755080282673,0.0744943033001,0.0737991776084,0.0738860683198,0.0741757040247,0.0748129025755,0.0744074125887,0.0735674690445,0.0744363761592,0.0747549754345,0.0747260118641,0.0753052832739,0.0745232668706,0.0737702140379,0.0722061812314,0.0718006912446,0.0718296548151,0.0721772176609,0.0715400191102,0.0710186748413,0.0701208041562,0.0694836056054,0.0693098241824,0.0692518970415,0.0695994598873,0.0684409170677,0.0681802449333,0.067803718517,0.0673982285301,0.067572009953,0.0658921228646,0.0657762685827,0.0653997421663,0.064849434327,0.0649652886089,0.0650811428909,0.0642122357762,0.0636040007959,0.0640094907828,0.0630247293861,0.0645887621926,0.0639805272123,0.0636040007959,0.06325643795,0.0631695472386,0.0634591829435,0.0634012558025,0.0630536929566,0.0618082594255,0.061953077278,0.0607945344584,0.0600704451961,0.0596070280683,0.0595491009273,0.0591436109405,0.0588539752356,0.0587381209536,0.0584484852487,0.0588829388061,0.0581878131143,0.0585064123897,0.0589119023765,0.0596359916388,0.0593173923634,0.059172574511,0.0585353759602,0.0576664688455,0.0572030517176,0.0561893267505,0.0560734724685,0.0553783467768,0.0549728567899,0.0545673668031,0.0545963303735,0.0544515125211,0.0545963303735,0.0556100553407,0.0557838367636,0.056102436039,0.0565948167374,0.0572609788586,0.0573768331406,0.0569134160127,0.0571451245767,0.0568265253013,0.0566237803078,0.056044508898,0.0556679824817,0.0556969460522,0.054799075367,0.0541329132457,0.0536984596884,0.0545094396621,0.0537853503998,0.0534667511244,0.05320607899,0.0531771154195,0.0532350425605,0.0527136982917,0.0519316818885,0.0515841190426,0.0519896090295,0.051786864036,0.051960645459,0.0513524104787,0.0516420461836,0.0513524104787,0.0514103376197,0.0512075926262,0.051902718318,0.0520475361704,0.0511496654852,0.0495856326788,0.0496435598198,0.0497594141017,0.0494118512558,0.0493828876854,0.0492380698329,0.0492670334034,0.0488036162756,0.0493828876854,0.0499621590952,0.0507731390689,0.050483503364,0.050541430505,0.0501938676591,0.0491511791214,0.0485719077116,0.0481953812953,0.0481374541543,0.0468340934822,0.0463706763544,0.0456465870922,0.0452121335348,0.0454728056692,0.0453279878168,0.0466603120593,0.0464575670659,0.0464286034954,0.0469789113347,0.0473264741806,0.0469209841937,0.0470368384757,0.0468051299118,0.0466023849183,0.0467472027708,0.0462837856429,0.0467472027708,0.0465444577773,0.0465444577773,0.0460810406495,0.0464575670659,0.0463127492134,0.0467472027708,0.0470368384757,0.0466892756298,0.0455596963807,0.0446618256955,0.044574934984,0.0443721899906,0.0448066435479,0.0444590807021,0.0438798092923,0.0432426107415,0.0421999222038,0.0430109021776,0.0428950478956,0.043271574312,0.0435322464464,0.043097792889,0.043213647171,0.043097792889,0.0436770642988,0.0434163921644,0.043271574312,0.0426054121907,0.0437349914398,0.0442852992791,0.044517007843,0.0444880442726,0.0444301171316,0.0439956635742,0.0439377364332,0.0439377364332,0.0437929185808,0.0433584650234,0.0425185214792,0.0409834522433,0.0404910715449,0.040433144404,0.0395932008598,0.0395932008598,0.038956002309,0.038898075168,0.0383767308992,0.0380870951943,0.0380002044828,0.0391008201614,0.0390428930204,0.038782220886,0.0388111844565,0.0389270387385,0.03901392945,0.0397380187122,0.0398828365647,0.0404621079745,0.040375217263,0.0398828365647,0.0395063101483,0.0393614922958,0.0389849658795,0.0388691115975,0.0393325287253,0.0386084394631,0.0395063101483,0.0394194194368,0.0394194194368,0.0395642372893,0.0395932008598,0.0401724722696,0.0402303994105,0.04020143584,0.0400566179876,0.0400855815581,0.0395352737188,0.0394773465778,0.0391877108729,0.0388111844565,0.03901392945,0.0379712409123,0.0379133137713,0.0381739859057,0.0376236780664,0.037478860214,0.0375078237845,0.0366968438108,0.0370154430861,0.0371892245091,0.0368706252337,0.0369575159452,0.037420933073,0.037536787355,0.0376236780664,0.0377105687779,0.0376526416369,0.0376816052074,0.0378264230599,0.0386953301746,0.038840148027,0.0387532573155,0.0387242937451,0.0381739859057,0.0386374030336,0.0381450223353,0.0380002044828,0.0385794758926,0.0396511280007,0.0383477673287,0.0384056944697,0.0385794758926,0.0377105687779,0.0378843502008,0.0372761152206,0.037478860214,0.0371312973681,0.0361465359715,0.034582503165,0.034640430306,0.0345535395945,0.0309620568538,0.0277760640999,0.0239239092247,0.0204772443364,0.0)
ycorr <- c(0.000123382035181,0.000123221798287,0.000122738913845,0.000121932128631,0.000120799454204,0.0001193386996,0.000117548048105,0.00011567338278,0.000113722286272,0.000111704797717,0.000109633785893,0.000107525831047,0.000105401337839,0.000103282122538,0.000101186712108,9.91296217091e-05,9.71235582167e-05,9.5174112564e-05,9.32828324878e-05,9.14432261727e-05,8.9651429123e-05,8.79018107928e-05,8.61860438957e-05,8.44933470008e-05,8.28118341842e-05,8.1131808813e-05,7.94439101657e-05,7.77442261536e-05,7.60314682261e-05,7.43077730119e-05,7.25736250424e-05,7.08269256913e-05,6.90634064626e-05,6.72804370679e-05,6.54767739235e-05,6.36548465513e-05,6.18178191247e-05,5.99672324601e-05,5.8100832988e-05,5.62179030444e-05,5.43185697438e-05,5.24043347845e-05,5.04798152435e-05,4.85472047775e-05,4.66101977466e-05,4.46686642748e-05,4.27226384906e-05,4.07695663276e-05,3.88097813845e-05,3.68437783258e-05,3.48715216364e-05,3.28903022758e-05,3.08969331603e-05,2.88908479203e-05,2.68689226707e-05,2.48303672235e-05,2.2773115204e-05,2.06953752102e-05,1.8595919223e-05,1.64745426998e-05,1.43271079216e-05,1.21529514725e-05,9.95023053813e-06,7.71794902682e-06,5.45414267053e-06,3.16063931838e-06,8.37377037381e-07,-1.51154868755e-06,-3.88733897382e-06,-6.29208471011e-06,-8.72169181955e-06,-1.11698869965e-05,-1.36331536335e-05,-1.61085749107e-05,-1.85923612211e-05,-2.10861150918e-05,-2.35901817618e-05,-2.61082432436e-05,-2.8641386526e-05,-3.11868781328e-05,-3.37439549615e-05,-3.63206897438e-05,-3.8920471177e-05,-4.15458697959e-05,-4.42013938041e-05,-4.68870360639e-05,-4.96033880807e-05,-5.23471808591e-05,-5.51158142659e-05,-5.7909304709e-05,-6.0730365045e-05,-6.35771883588e-05,-6.64458923514e-05,-6.93336176956e-05,-7.22382346174e-05,-7.5158142539e-05,-7.80921295688e-05,-8.10413299239e-05,-8.40074020192e-05,-8.69912526697e-05,-8.9992114845e-05,-9.30061433503e-05,-9.60340739145e-05,-9.90750653442e-05,-0.00010212922277,-0.000105194374072,-0.000108269467754,-0.000111354898068,-0.000114445284166,-0.00011753758404,-0.000120626982184,-0.00012371095169,-0.000126787951046,-0.00012985634786,-0.000132915917132,-0.000135967302115,-0.000139011884564,-0.000142046967836,-0.000145071805267,-0.00014808692602,-0.000151094792736,-0.000154099051585,-0.000157101078379,-0.00016010299292,-0.000163103676411,-0.000166101541972,-0.000169094876092,-0.000172083959932,-0.000175071073216,-0.000178055921905,-0.000181036869458,-0.000184013603584,-0.000186982814226,-0.000189946459881,-0.000192900771059,-0.000195844739459,-0.000198778234957,-0.000201700797027,-0.000204609924356,-0.000207502762078,-0.000210381069692,-0.000213245066121,-0.000216094894939,-0.000218930105796,-0.000221748922952,-0.000224557208976,-0.000227355834877,-0.000230144032112,-0.000232922096808,-0.000235692687752,-0.000238453933271,-0.000241205648926,-0.000243949529257,-0.00024668241097,-0.00024940937919,-0.000252127028776,-0.000254833006016,-0.000257526684322,-0.000260209709953,-0.000262879568394,-0.000265538619473,-0.000268186469911,-0.000270820702174,-0.000273441849149,-0.000276049241993,-0.00027863874567,-0.000281211271397,-0.000283764589448,-0.000286295478995,-0.000288804112371,-0.00029129143222,-0.00029375311978,-0.000296190596911,-0.000298603707759,-0.00030098970621,-0.000303351345324,-0.000305687760069,-0.000308002101421,-0.000310297201595,-0.000312578428863,-0.000314841717066,-0.000317086723488,-0.000319315630349,-0.000321527568987,-0.000323722898074,-0.000325903906899,-0.000328072653736,-0.000330229704477,-0.000332374557681,-0.000334505106494,-0.000336622008845,-0.000338729760246,-0.000340829226288,-0.000342920379356,-0.00034500637686,-0.000347086102606,-0.000349155509888,-0.000351210096735,-0.000353249759718,-0.000355272190456,-0.00035727620307,-0.000359258821864,-0.000361218628099,-0.000363154383382,-0.000365065812615,-0.000366951259373,-0.000368813994532,-0.000370659604052,-0.000372489455179,-0.000374305448051,-0.000376109954597,-0.00037790641492,-0.000379693462743,-0.000381472611529,-0.000383243282251,-0.000385006150802,-0.000386760624828,-0.000388504800069,-0.000390234709596,-0.000391949307981,-0.000393647396699,-0.000395324852787,-0.000396980574218,-0.000398616239423,-0.000400232318968,-0.000401828811797,-0.00040340444158,-0.000404960101041,-0.000406497838012,-0.000408020017024,-0.000409529392008,-0.000411027459251,-0.000412518459572,-0.00041400234484,-0.000415477905318,-0.000416943171404,-0.000418399595726,-0.000419846740304,-0.000421283027921,-0.000422704692254,-0.000424110204601,-0.000425497054466,-0.000426861784388,-0.000428202234274,-0.000429516705046,-0.000430808332237,-0.000432079116675,-0.000433328282119,-0.000434558490768,-0.000435772316379,-0.000436970768573,-0.000438157106559,-0.000439332914199,-0.000440500399155,-0.000441661551467,-0.000442816567749,-0.000443961465496,-0.000445096591431,-0.000446223858876,-0.000447341628932,-0.000448450203219,-0.000449549513597,-0.000450637940094,-0.000451715202363,-0.000452781923578,-0.000453837023839,-0.000454881150035,-0.000455917509933,-0.000456942348541,-0.000457955653375,-0.000458956616456,-0.000459944513145,-0.00046092024827,-0.000461883123601,-0.000462833617627,-0.000463770516019,-0.000464698034856,-0.000465614489078,-0.000466519193902,-0.000467414056326,-0.000468298152683,-0.000469173546741,-0.000470038243451,-0.000470891535986,-0.000471731972942,-0.000472555416161,-0.000473355013507,-0.000474121489396,-0.000474851846464,-0.000475541285246,-0.000476183656992,-0.000476773392835,-0.000477304351962,-0.000477773998502,-0.000478179502513,-0.000478524005839,-0.000478811189924,-0.000479049329097,-0.000479245378229,-0.000479403706416,-0.000479530877171,-0.000479633786923,-0.000479721311605,-0.000479798806555,-0.000479869519522,-0.000479935792455,-0.00047999575723,-0.000480049505164,-0.000480096365267,-0.000480134928745,-0.00048016721159,-0.000480191638497,-0.000480207373833,-0.000480212796174,-0.000480208075147,-0.000480193682844,-0.000480171818266,-0.00048014402459,-0.000480110607414,-0.000480071504577,-0.000480025364401,-0.000479970970927,-0.00047990602805,-0.00047983057889,-0.000479744385126,-0.000479647671024,-0.000479541430314,-0.000479425269691,-0.000479297584878,-0.000479159955575,-0.000479012682549,-0.000478857980588,-0.000478698406459,-0.00047853516561,-0.00047836874917,-0.000478196912118,-0.00047801915193,-0.000477834538519,-0.000477642436297,-0.000477443269632,-0.00047723513632,-0.000477016258629,-0.000476785446782,-0.000476539482457,-0.000476278254167,-0.000476002853674,-0.000475714088105,-0.000475412164683,-0.000475097895944,-0.000474771291122,-0.000474433885142,-0.000474084998901,-0.000473726501019,-0.000473360413511,-0.00047298786086,-0.000472610030895,-0.000472225211792,-0.000471833184629,-0.000471433335825,-0.000471025483592,-0.00047060935095,-0.000470185256442,-0.000469753158105,-0.000469312748261,-0.000468862344267,-0.000468402276388,-0.000467933321415,-0.000467456004088,-0.000466972293574,-0.000466481653165,-0.000465983710503,-0.000465478955824,-0.000464965654408,-0.00046444453117,-0.000463916454885,-0.000463381531205,-0.000462839490291,-0.00046229025139,-0.00046173244331,-0.000461165523756,-0.000460589344486,-0.000460004104093,-0.000459411203944,-0.000458811144338,-0.000458203601428,-0.000457587362537,-0.000456961922836,-0.00045632602352,-0.000455679517465,-0.000455023936675,-0.00045436062526,-0.000453690241304,-0.0004530119078,-0.000452324442887,-0.000451628040465,-0.0004509243897,-0.000450214667105,-0.000449500516461,-0.000448782522221,-0.000448059326694,-0.000447329712724,-0.000446592774922,-0.000445848828928,-0.000445097899738,-0.00044434093065,-0.000443576462917,-0.000442803260531,-0.000442020881001,-0.00044122813352,-0.000440426580521,-0.000439617105779,-0.000438800579368,-0.000437977522421,-0.000437150466633,-0.000436319503164,-0.000435483943002,-0.000434644735595,-0.000433802012785,-0.000432956384864,-0.000432107564959,-0.000431254272596,-0.000430396676252,-0.000429534555593,-0.000428666447857,-0.000427789831552,-0.000426905466948,-0.000426014200092,-0.000425116226232,-0.000424211912791,-0.000423300478194,-0.000422382789806,-0.000421459392414,-0.000420530029718,-0.000419593621643,-0.000418651482578,-0.000417703711391,-0.000416749937722,-0.000415789582803,-0.000414822517408,-0.000413848909095,-0.000412867814086,-0.000411879398339,-0.000410883186846,-0.000409878928981,-0.000408868003739,-0.000407849727443,-0.000406824116452,-0.000405790392213,-0.000404747958714,-0.000403697086623,-0.000402638619945,-0.000401572479796,-0.000400498893128,-0.00039941888491,-0.000398332281839,-0.000397239304536,-0.000396138876658,-0.00039503260707,-0.000393920502087,-0.000392801913263,-0.000391676687525,-0.00039054418004,-0.000389404926236,-0.000388258512386,-0.000387103303434,-0.000385939397843,-0.000384767239908,-0.000383587262218,-0.000382399122121,-0.000381204243734,-0.000380004795162,-0.000378800313596,-0.000377591080047,-0.00037637662386,-0.000375158072438,-0.000373937346677,-0.000372715204154,-0.00037149016665,-0.000370262730789,-0.00036903196566,-0.000367796995233,-0.000366557282914,-0.000365312806289,-0.000364063452885,-0.000362809563314,-0.000361549339701,-0.000360282701597,-0.00035900898474,-0.000357729470764,-0.000356444547188,-0.000355153107068,-0.000353855350536,-0.000352550060479,-0.000351237938766,-0.000349916901949,-0.000348586298534,-0.00034724562182,-0.000345895040566,-0.000344533965181,-0.000343161886741,-0.000341777932668,-0.000340382754406,-0.000338975767767,-0.00033755714536,-0.0003361271237,-0.000334687331282,-0.00033323810512,-0.000331778485205,-0.000330306331271,-0.00032882166461,-0.000327324744646,-0.000325815331062,-0.000324293937802,-0.000322760171923,-0.000321214067306,-0.00031965345389,-0.000318077978017,-0.00031648960119,-0.000314891058313,-0.00031328288594,-0.000311664906434,-0.000310037036976,-0.000308399845194,-0.000306753315339,-0.000305099973129,-0.00030344111785,-0.000301778762909,-0.000300112155445,-0.000298440040345,-0.000296762286189,-0.000295079833903,-0.000293392608134,-0.000291700247169,-0.000290003594494,-0.000288300818982,-0.000286591667243,-0.000284875121714,-0.00028315091069,-0.000281419805482,-0.000279681364712,-0.000277935504447,-0.000276181866544,-0.000274421891721,-0.000272654669437,-0.00027087997555,-0.000269098092919,-0.000267307493911,-0.000265507820527,-0.000263697779951,-0.000261876345367,-0.000260042055965,-0.000258193355918,-0.000256328644431,-0.000254446173489,-0.000252545590005,-0.000250625737973,-0.000248686172779,-0.00024672705125,-0.000244748813167,-0.000242752406556,-0.000240738814792,-0.000238710049044,-0.000236667560409,-0.000234612682641,-0.000232546055196,-0.000230468079689,-0.000228379042618,-0.000226279649793,-0.000224170386036,-0.000222049889518,-0.000219917376118,-0.000217772372813,-0.000215614327275,-0.00021344284907,-0.000211257812239,-0.000209059690239,-0.000206849341236,-0.000204628520114,-0.000202395599376,-0.000200151577408,-0.000197897829997,-0.000195634450977,-0.000193360631678,-0.000191074799384,-0.000188776038862,-0.000186462925855,-0.000184133664541,-0.000181785538548,-0.00017941674433,-0.000177026929861,-0.000174608555056,-0.000172153567526,-0.000169654793662,-0.000167106820688,-0.000164485738024,-0.000161937197737,-0.000159438759743,-0.000156984821281,-0.000154569794547,-0.000152186036361,-0.000149829355269,-0.000147501634342,-0.000145206836969,-0.000142949115408,-0.000140729534171,-0.000138568398039,-0.000136315137552,-0.000133988269539,-0.000131589525648,-0.000129121383089,-0.000126587155058,-0.000123988569454,-0.000121325093401,-0.000118596798155,-0.000115804632871,-0.000112952640196,-0.000110045485802,-0.00010708798618,-0.00010408575954,-0.000101043895184,-9.79686695094e-05,-9.4865885962e-05,-9.17420208962e-05,-8.86010819131e-05,-8.54485050071e-05,-8.22889107094e-05,-7.91276297014e-05,-7.59688204935e-05,-7.28176344715e-05,-6.96792332415e-05,-6.65587510193e-05,-6.34612891005e-05,-6.03914488153e-05,-5.73548528553e-05,-5.43564065125e-05,-5.13977786982e-05,-4.84779898123e-05,-4.5593410347e-05,-4.27397731192e-05,-3.99108742367e-05,-3.70985474585e-05,-3.4295262791e-05,-3.14923913597e-05,-2.86799070973e-05,-2.58473339854e-05,-2.29868402349e-05,-2.00917432525e-05,-1.71596067878e-05,-1.41879582829e-05,-1.11761348421e-05,-8.12430981263e-06,-5.0340699162e-06,-1.90549881178e-06,1.2599124431e-06,4.45913229285e-06,7.6894245023e-06,1.09473005095e-05,1.42309413401e-05,1.75391930004e-05,2.08698876608e-05,2.42220114425e-05,2.75949806887e-05,3.09871475085e-05,3.4395843288e-05,3.78203055374e-05,4.12619061723e-05,4.47213331841e-05,4.82012289398e-05,5.17029004519e-05,5.52287540845e-05,5.87809247094e-05,6.23616469514e-05,6.59741694662e-05,6.96226493202e-05,7.33098836971e-05,7.70371682503e-05,8.08039797947e-05,8.4609940171e-05,8.84545126736e-05,9.23377635138e-05,9.62589203154e-05,0.000100218769306,0.000104215788919,0.00010824710117,0.000112310839905,0.000116405387003,0.000120530534706,0.000124685099491,0.000128867534032,0.000133075204999,0.000137304678855,0.000141553213649,0.000145817456513,0.000150096267615,0.000154389241862,0.000158695507309,0.000163015791787,0.000167350212336,0.000171700555053,0.000176069761169,0.000180461219603,0.000184877981244,0.000189323061833,0.000193799413563,0.000198308042595,0.000202848529588,0.000207419769636,0.0002120187002,0.000216644531697,0.000221293996769,0.000225964374357,0.000230651881298,0.000235352416106,0.000240062132005,0.000244776176902,0.000249492434118,0.000254209369948,0.000258926947582,0.000263643560873,0.000268356291545,0.000273064056993,0.000277763742478,0.00028245400808,0.000287133783364,0.000291802618582,0.00029645994251,0.00030110314343,0.000305729582862,0.00031033600504,0.000314921731623,0.000319485906183,0.000324027676252,0.00032854814321,0.000333047694214,0.000337526772633,0.000341985867019,0.000346425858608,0.000350849942549,0.00035526093075,0.000359660466529,0.000364049656969,0.000368430323232,0.000372803889221,0.000377169773396,0.000381527257761,0.000385875813002,0.000390214897885,0.000394542978074,0.000398856189259,0.000403153156728,0.000407432746598,0.000411693670298,0.00041593237727,0.000420147347022,0.000424339599664,0.000428508806001,0.00043265533614,0.000436778326843,0.000440879704102,0.000444961555088,0.000449024950817,0.000453071510333,0.000457103701458,0.000461124292779,0.000465132818879,0.000469129474027,0.000473115104204,0.00047709003126,0.000481054982589,0.000485008451772,0.000488949431542,0.000492876022406,0.000496785908521,0.000500676777173,0.000504547108091,0.000508395694009,0.000512220151057,0.000516018366934,0.000519787542101,0.00052352618803,0.000527231876614,0.000530902789892,0.000534537938877,0.000538135657482,0.000541695132472,0.000545214520763,0.000548693175567,0.000552130032051,0.000555525808073,0.000558880646602,0.000562193906794,0.000565466943341,0.000568700128539,0.000571894350937,0.000575050858789,0.000578171897863,0.000581259541934,0.000584315714346,0.000587341701071,0.000590338686016,0.000593308892608,0.000596253672102,0.000599173567797,0.000602068720791,0.000604938619423,0.000607782829118,0.000610598287967,0.00061338359136,0.000616137158407,0.00061885753595,0.000621540962338,0.000624186055705,0.00062679111966,0.000629355575298,0.000631878680501,0.00063435849416,0.000636794524274,0.000639187447748,0.000641535939422,0.000643838195042,0.000646094319894,0.000648303502933,0.000650462884347,0.000652570846305,0.000654626204813,0.000656629069917,0.000658580083879,0.000660478961238,0.000662326290965,0.000664124304973,0.000665875750326,0.000667582144413,0.000669246600903,0.000670872207312,0.000672460089807,0.000674010317072,0.000675522700537,0.000676996040317,0.000678429425429,0.000679820575872,0.000681165992781,0.000682462509207,0.000683708812364,0.000684902591016,0.0006860427551,0.00068712897668,0.000688161742122,0.000689141642116,0.00069006925922,0.00069094607742,0.000691773663602,0.000692554693753,0.000693290349362,0.000693980866616,0.000694626521816,0.000695226126353,0.000695778655432,0.000696283612484,0.000696740808251,0.000697149508746,0.000697508510282,0.000697816371279,0.000698072390292,0.000698276359005,0.000698428722131,0.000698531407831,0.000698586485474,0.000698595790685,0.000698560305917,0.000698480530511,0.000698358610583,0.000698195765282,0.000697992944018,0.000697750170255,0.00069746766694,0.000697143783946,0.000696777292101,0.000696367091422,0.000695912521256,0.000695413284961,0.000694869147558,0.000694279623043,0.000693644944239,0.000692965927406,0.000692243156113,0.00069147790738,0.00069067104301,0.000689821812803,0.000688929463871,0.000687992634241,0.00068700982195,0.000685979484218,0.000684899147632,0.000683765709415,0.000682575491429,0.000681325584747,0.000680013203141,0.000678636141929,0.000677193189631,0.00067568360425,0.000674106531558,0.000672460694229,0.000670744523146,0.000668957692048,0.000667099642853,0.00066517001291,0.000663167277572,0.000661090637514,0.000658939017883,0.000656710750931,0.000654404887962,0.000652021983664,0.000649564479163,0.000647035861345,0.000644440414676,0.000641783661982,0.000639073212385,0.000636317586377,0.000633525250344,0.000630704631151,0.000627864591949,0.000625012841023,0.00062215562593,0.000619296766174,0.000616441153371,0.000613590226902,0.000610743562507,0.000607898899369,0.000605053045157,0.000602203468508,0.000599348302672,0.000596485415645,0.000593612071094,0.000590726421613,0.000587825032205,0.000584903714872,0.000581961636779,0.000578999528864,0.000576016660769,0.000573012964653,0.000569986073037,0.000566932134677,0.000563849477287,0.000560737593763,0.000557595904067,0.000554426760411,0.000551230724149,0.000548006897652,0.000544754746055,0.000541477080001,0.000538175408223,0.000534852736587,0.000531512411222,0.000528154585881,0.00052477996315,0.000521389934426,0.000517984224459,0.000514563590273,0.000511128488604,0.000507676748984,0.000504205514857,0.000500713076669,0.000497197960254,0.000493659213978,0.000490096635665,0.000486508154609,0.000482891982582,0.000479245682167,0.000475569493723,0.0004718632709,0.000468129216364,0.000464368494218,0.000460582247606,0.000456772311217,0.000452938814963,0.000449084213744,0.000445209888504,0.000441318053385,0.00043741105188,0.000433489290377,0.000429553916532,0.000425605266388,0.000421642833255,0.000417665691117,0.000413672361592,0.000409662821278,0.000405636961948,0.000401596249501,0.000397538861368,0.000393464087322,0.00038937081769,0.000385258869994,0.000381127858711,0.000376978498081,0.000372812593675,0.000368631875361,0.00036443769816,0.000360228187734,0.000356002936004,0.000351763592446,0.000347510591846,0.000343245197679,0.00033896931562,0.000334684039549,0.000330390857436,0.000326088256329,0.000321774545822,0.000317450592611,0.000313119547502,0.000308781758734,0.000304439757304,0.000300095099126,0.000295748719332,0.000291400596708,0.000287050487792,0.000282699979994,0.000278352849531,0.000274010969384,0.000269674823547,0.000265344212433,0.000261020187523,0.000256701401685,0.000252387083012,0.000248076651346,0.000243770670636,0.000239468999333,0.000235169121016,0.00023087086807,0.000226574243995,0.000222280550792,0.000217989255469,0.000213700440141,0.000209416122125,0.00020513874038,0.000200869546247,0.000196609286964,0.000192359870454,0.000188122884923,0.0001838980701,0.000179685572771,0.000175484924592,0.000171297489419,0.000167122442378,0.000162957477678,0.000158802499407,0.000154657374159,0.000150521753205,0.000146394730959,0.000142276512398,0.000138167238096,0.000134066986667,0.000129975378342,0.000125893106108,0.000121821319148,0.000117760501687,0.000113709995224,0.000109669991175,0.000105640884934,0.00010162388395,9.76193042983e-05,9.36265706177e-05,8.96471232321e-05,8.56805848481e-05,8.17263339054e-05,7.77857554246e-05,7.38582083632e-05,6.99445069931e-05,6.60453993414e-05,6.2159617167e-05,5.82865081429e-05,5.44268398553e-05,5.0581685035e-05,4.67499592828e-05,4.29337138897e-05,3.91331319747e-05,3.53494671228e-05,3.15854268753e-05,2.78401768914e-05,2.41142214559e-05,2.04086057838e-05,1.67253772652e-05,1.30628071933e-05,9.42091166287e-06,5.80009864497e-06,2.19906156075e-06,-1.38207459681e-06,-4.94625943905e-06,-8.49398729091e-06,-1.20246641875e-05,-1.55381158594e-05,-1.90346576532e-05,-2.25154810121e-05,-2.59794567828e-05,-2.9427483287e-05,-3.28619292517e-05,-3.62825230997e-05,-3.9689625763e-05,-4.30820908618e-05,-4.64599565138e-05,-4.98239192978e-05,-5.3175779932e-05,-5.65135396555e-05,-5.98365452929e-05,-6.31439963218e-05,-6.64323366278e-05,-6.96994736511e-05,-7.29461004598e-05,-7.61717747835e-05,-7.93768308421e-05,-8.25610355617e-05,-8.57230888954e-05,-8.88632358571e-05,-9.19821304365e-05,-9.50811174648e-05,-9.81606097531e-05,-0.00010122360978,-0.000104268711671,-0.00010729617714,-0.000110306722628,-0.000113299585005,-0.000116276553831,-0.000119236475492,-0.000122179840663,-0.000125108637268,-0.000128022386608,-0.000130921259581,-0.000133805201047,-0.000136674801125,-0.000139529227994,-0.000142369349601,-0.000145196767901,-0.000148012288114,-0.000150817149732,-0.000153608311276,-0.000156386276696,-0.000159151372039,-0.000161904980664,-0.000164646903961,-0.000167376177464,-0.000170092170613,-0.000172792197404,-0.000175475349334,-0.000178140107702,-0.000180785761278,-0.000183412955489,-0.000186018702864,-0.00018859992723,-0.000191155991331,-0.000193687886973,-0.000196196589812,-0.000198681544232,-0.000201143848681,-0.000203584177959,-0.00020600329219,-0.000208401416924,-0.000210779842356,-0.000213142092268,-0.000215488076733,-0.000217816663504,-0.000220127223866,-0.000222419290404,-0.000224693180823,-0.000226947897271,-0.00022918266103,-0.000231397036377,-0.000233592263556,-0.000235766747366,-0.000237919718804,-0.000240054888929,-0.000242173498653,-0.000244276639862,-0.000246365743595,-0.000248440633499,-0.00025050239842,-0.000252551748467,-0.000254588085335,-0.000256612006477,-0.000258624246198,-0.000260622178971,-0.000262603301909,-0.000264566273768,-0.000266510174053,-0.000268435534453,-0.000270343057749,-0.000272233329153,-0.000274105877986,-0.000275959545477,-0.000277793879903,-0.000279607880309,-0.000281402537433,-0.000283180966505,-0.00028494320433,-0.000286686131901,-0.000288408068215,-0.000290105912007,-0.000291639869669,-0.000292869857242,-0.000293793946288,-0.000294410825669,-0.000294719260589)
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(267)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('BCL6_UV-ChIP-seq_repl2-GSM2754203-vs-UV_IgG_control-GSM2754205.dedup.MACS-2.1.0.p1e-1_model.pdf',height=6,width=6)
plot(x,p,type='l',col=c('red'),main='Peak Model',xlab='Distance to the middle',ylab='Percentage')
lines(x,m,col=c('blue'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 267',bty='n')
dev.off()