# R script for Peak Model
#  -- generated by MACS
p <- c(0.0328761727376,0.0380708671759,0.0436189421882,0.0489903269135,0.0545501812783,0.0546090780407,0.0543028148765,0.0549742379672,0.0553158391888,0.0550095760246,0.0546326367456,0.0552333837215,0.0553511772462,0.0556221023529,0.0551391489017,0.0550920314919,0.0556692197628,0.0552805011313,0.0549860173197,0.055598543648,0.0561757319189,0.056152173214,0.0556574404103,0.0556809991153,0.056328863501,0.0563759809109,0.0564584363781,0.0565408918454,0.0566586853701,0.0562581873862,0.0562817460911,0.056305304796,0.0565644505503,0.0569767278867,0.0565408918454,0.0564348776732,0.0569060517719,0.0575067987478,0.0565762299028,0.0570120659441,0.0571769768787,0.056882493067,0.0574007845756,0.0567293614849,0.0572712116984,0.0580486489613,0.0576010335675,0.0574243432805,0.0583313534205,0.0582488979532,0.0579190760841,0.0582606773057,0.0579897521989,0.0586611752896,0.0587907481667,0.0580957663712,0.0585433817649,0.0585551611174,0.058696513347,0.0589909971587,0.0591794667982,0.0587789688143,0.0591323493883,0.0588025275192,0.0589909971587,0.0589674384538,0.0586847339945,0.058873203634,0.0588378655766,0.0587907481667,0.0594503919049,0.0592972603229,0.0592265842081,0.0596977583068,0.0594621712574,0.0598508898889,0.0599333453561,0.0601100356431,0.0600511388808,0.0597095376592,0.0594975093148,0.0607225619715,0.0604751955696,0.0606283271517,0.0607225619715,0.0608639142011,0.0604751955696,0.059980462766,0.0605929890943,0.0608521348486,0.0613822057097,0.0609228109634,0.0618062623985,0.0615824547016,0.0618533798084,0.0622303190873,0.0629606389403,0.0631726672848,0.0630313150552,0.0631726672848,0.0624776854892,0.0626661551287,0.0623363332596,0.0623127745546,0.062371671317,0.0618769385133,0.0616766895214,0.0621360842676,0.0624070093744,0.0625836996614,0.0626897138336,0.0628428454157,0.0625365822515,0.0624187887268,0.0620300700954,0.0622303190873,0.0627957280058,0.0631255498749,0.0628899628255,0.0634907098014,0.0636556207359,0.0635142685063,0.0642092503019,0.0646450863432,0.0650338049747,0.0655285377783,0.0649749082123,0.0648924527451,0.0652222746142,0.0651633778518,0.0652340539666,0.0652340539666,0.0649749082123,0.0652458333191,0.0656698900079,0.0657405661227,0.066199960869,0.0659643738196,0.066023270582,0.0655638758357,0.0657170074178,0.065999711877,0.066023270582,0.0661881815165,0.0663648718035,0.065999711877,0.0660468292869,0.066199960869,0.0663177543937,0.0671305297139,0.0671423090664,0.067483910288,0.0678608495669,0.067483910288,0.0674721309355,0.068037539854,0.0682260094935,0.0681671127311,0.0681082159688,0.068013981149,0.0685793900675,0.0685793900675,0.0684262584854,0.0693686066828,0.0694039447402,0.0693803860353,0.069297930568,0.069674869847,0.0695335176174,0.0690976815761,0.069297930568,0.0696041937322,0.0698633394865,0.069297930568,0.0695688556748,0.0694275034452,0.069851560134,0.0697455459618,0.0703462929377,0.0706761148068,0.0702991755278,0.0706996735117,0.0713239791925,0.071865829406,0.0724665763819,0.0727139427837,0.0729259711281,0.0735856148663,0.0731615581775,0.0730908820626,0.0735620561614,0.0731379994725,0.0731379994725,0.0730202059478,0.0729141917756,0.0734796006941,0.0732322342923,0.0733618071694,0.0740803476699,0.0745750804736,0.0752700622692,0.0753642970889,0.0756470015482,0.0760828375895,0.0759061473025,0.0758354711876,0.0758825885975,0.0759297060074,0.076071058237,0.0761535137043,0.076447997516,0.077355007656,0.0772018760739,0.0768484954999,0.0774139044183,0.0779204165744,0.0786860744849,0.0787567505997,0.0787096331898,0.0795224085101,0.0790158963539,0.0788627647719,0.0794988498051,0.0800760380761,0.0801113761335,0.0802056109532,0.0802880664205,0.081183297208,0.0814542223148,0.0809712688636,0.081560236487,0.0817251474215,0.0817251474215,0.0825732607992,0.0831857871275,0.0835038296442,0.0838336515133,0.0836216231689,0.0837747547509,0.0850940422273,0.0850233661125,0.0856947892032,0.0857772446705,0.0860481697772,0.0860835078346,0.0860952871871,0.0863662122939,0.0872967811388,0.087579485598,0.0866017993432,0.0867902689827,0.0867902689827,0.0869080625074,0.0869198418598,0.0864486677611,0.0867667102778,0.0866371374006,0.0862601981216,0.0875677062456,0.0883215848035,0.0888752143695,0.0881920119264,0.0889223317794,0.0892168155911,0.0898764593293,0.0901709431409,0.090324074723,0.0908541455841,0.0908305868791,0.0915020099698,0.091784714429,0.0927388419789,0.093445603127,0.0938932185208,0.094529303554,0.0951889472922,0.0966260282933,0.0969322914575,0.0971560991543,0.0968851740476,0.0975683764907,0.0981691234666,0.0976861700154,0.0977215080728,0.0978981983598,0.0978628603024,0.0981337854092,0.0988758846146,0.098734532385,0.0993470587134,0.0994766315905,0.0999595850417,0.100466097198,0.101538018272,0.10147912151,0.101926736904,0.101549797625,0.101726487912,0.102798408986,0.103988123586,0.104270828045,0.104836236963,0.1059670548,0.106944741055,0.108900113565,0.111020397009,0.112245449666,0.11322313592,0.114283277643,0.114071249298,0.114825127856,0.115743917349,0.1169454113,0.117652172448,0.117628613743,0.11708676353,0.117687510506,0.117652172448,0.117428364751,0.118335374891,0.119265943736,0.119690000425,0.11976067654,0.119289502441,0.120172953876,0.121068184664,0.121539358763,0.123329820338,0.123848111846,0.125673911479,0.126463128094,0.126510245504,0.126840067373,0.127758856866,0.128265369022,0.128218251612,0.12873654312,0.128677646358,0.12992625772,0.1298320229,0.129714229375,0.130868605917,0.131410456131,0.131398676778,0.132317466271,0.133036006771,0.133542518927,0.133106682886,0.132659067492,0.133436504755,0.133966575616,0.134013693026,0.134590881297,0.135733478486,0.13618109388,0.137889099988,0.138666537251,0.139420415809,0.13995048667,0.140610130408,0.141163759974,0.140987069687,0.141010628392,0.140704365228,0.140621909761,0.139938707317,0.13995048667,0.140680806523,0.141682051483,0.141493581843,0.142541944213,0.143990804566,0.144615110247,0.14611108801,0.146264219593,0.145628134559,0.146240660888,0.146535144699,0.147489272249,0.14715945038,0.146464468585,0.14629955765,0.147100553618,0.147241905847,0.147783756061,0.148961691308,0.149633114398,0.15088172576,0.150587241948,0.151235106334,0.152201013236,0.153237596254,0.152919553737,0.152766422155,0.153237596254,0.154804250132,0.155440335165,0.155805495091,0.155958626674,0.157065885806,0.158290938462,0.15913905184,0.160104958742,0.161271114637,0.161483142981,0.160611470898,0.161011968882,0.160988410177,0.161683391973,0.161754068088,0.161624495211,0.161247555932,0.16190719967,0.162178124777,0.163697661245,0.164475098508,0.164875596492,0.165134742246,0.165770827279,0.165876841451,0.166677837419,0.16739637792,0.167584847559,0.167042997346,0.166795630944,0.167042997346,0.166736734182,0.167455274682,0.167832213961,0.168220932593,0.168456519642,0.169222177552,0.169610896184,0.170246981217,0.170364774742,0.170847728193,0.17197854603,0.171684062218,0.172261250489,0.172732424588,0.17269708653,0.172355485309,0.172473278833,0.173321392211,0.173969256597,0.173710110843,0.172437940776,0.172602851711,0.171860752505,0.171530930636,0.171872531858,0.172178795022,0.17197854603,0.171189329414,0.169658013594,0.169646234241,0.16997605611,0.16988182129,0.169752248413,0.169658013594,0.168586092519,0.16739637792,0.167290363748,0.166972321231,0.166901645116,0.166948762526,0.166960541878,0.166242001378,0.165264315123,0.165417446705,0.164887375844,0.16553524023,0.164698906205,0.164074600524,0.164157055991,0.164215952753,0.163827234122,0.163450294843,0.164098159229,0.163273604556,0.163014458802,0.162543284703,0.162343035711,0.162284138949,0.162013213842,0.160964851472,0.159810474931,0.159645563996,0.160010723922,0.15923328666,0.158467628749,0.157560618609,0.156912754223,0.155899729911,0.155793715739,0.154910264304,0.155240086173,0.154957381714,0.15360275618,0.153131582081,0.153155140786,0.152672187335,0.152436600286,0.152860656975,0.151659163023,0.151305782449,0.150222082022,0.149456424111,0.149668452456,0.149668452456,0.148172474692,0.147559948364,0.146652938224,0.145781266141,0.145086284346,0.144744683124,0.144768241829,0.144591551542,0.14267151709,0.142435930041,0.142942442197,0.142895324787,0.142895324787,0.143413616295,0.142954221549,0.143107353131,0.143166249894,0.142659737737,0.142424150688,0.141941197237,0.141458243786,0.141057745802,0.140621909761,0.1389021243,0.138313156677,0.137453263947,0.136145755823,0.135603905609,0.13517984892,0.13431995619,0.133566077632,0.132282128213,0.131563587713,0.131704939942,0.132317466271,0.131610705123,0.130809709155,0.129749567433,0.130114727359,0.129867360957,0.129360848801,0.129561097793,0.129372628154,0.128324265784,0.12815935485,0.127841312333,0.127593945931,0.127499711111,0.127358358882,0.126804729316,0.127311241472,0.126863626078,0.126498466152,0.126863626078,0.12539120702,0.125827043061,0.125909498528,0.125450103782,0.124684445872,0.12429572724,0.123694980264,0.123447613862,0.123647862854,0.122646617895,0.123212026813,0.121857401279,0.121727828402,0.122092988329,0.121692490345,0.121174198836,0.120243629991,0.119642883015,0.11875943158,0.118205802014,0.117298791874,0.11627398821,0.115508330299,0.114707334331,0.113788544839,0.11345872297,0.112987548871,0.112304346428,0.111574026575,0.111950965854,0.111797834272,0.111585805927,0.112115876788,0.111397336288,0.110725913197,0.110019152049,0.108852996155,0.108947230975,0.108052000187,0.106532463719,0.106002392858,0.10520139689,0.103010437331,0.101608694387,0.100901933239,0.0998300121645,0.0999831437466,0.0985696214505,0.098027771237,0.097827522245,0.0960370606699,0.0955894452761,0.0955423278663,0.09598994326,0.095459872399,0.0956483420385,0.0955305485138,0.0957072388008,0.0951182711774,0.0947766699559,0.0949886983003,0.0950947124725,0.0938107630535,0.0923501233475,0.0932924715449,0.0927977387413,0.0924679168722,0.0918671698963,0.0920909775932,0.0912193055106,0.0908894836415,0.0906303378872,0.0915962447896,0.0915609067321,0.0904536476002,0.0898882386817,0.0899000180342,0.0898529006243,0.0891343601238,0.089240374296,0.0888752143695,0.0885925099103,0.0872850017863,0.0879093074671,0.0874145746635,0.087049414737,0.0859068175476,0.0850469248175,0.0849291312928,0.0845993094237,0.0845404126613,0.0841163559725,0.0841988114398,0.0831268903652,0.0820667486431,0.0815720158395,0.0811715178556,0.080452977355,0.0802056109532,0.0792986008132,0.0785565016077,0.078638957075,0.0778497404596,0.0781677829763,0.0784504874355,0.0786625157799,0.0783209145583,0.0789569995916,0.0790394550589,0.0790747931163,0.0792750421082,0.0791454692311,0.0792279246984,0.0784269287306,0.0774374631233,0.0765775703931,0.076424438811,0.0756705602531,0.0745750804736,0.0742452586045,0.0733146897595,0.0724312383245,0.0723605622096,0.0725608112016,0.072949529833,0.0729966472429,0.0728670743658,0.073149778825,0.0728199569559,0.072596149259,0.072973088538,0.0723841209146,0.0722663273899,0.0718540500535,0.0715242281844,0.0711590682579,0.0709823779709,0.0701931613556,0.0702638374704,0.069674869847,0.0689327706415,0.0695335176174,0.0692743718631,0.0692390338057,0.0687914184119,0.0689092119366,0.0685322726576,0.0678726289194,0.0672365438862,0.0677430560423,0.0679668637392,0.0671540884189,0.0667771491399,0.0662352989264,0.065846580295,0.0657876835326,0.0652340539666,0.0654578616635,0.0655874345407,0.0648335559827,0.0646686450482,0.0642799264167,0.0639147664902,0.0639736632526,0.0638794284328,0.0635378272113,0.063278681457,0.0631844466372,0.0628899628255,0.0634435923915,0.063078432465,0.0633022401619,0.063078432465,0.0623952300219,0.0625601409564,0.0619240559232,0.0622420984398,0.0621478636201,0.0620771875053,0.0613350882998,0.0608403554961,0.0603927401024,0.0601335943481,0.0598391105364,0.0601218149956,0.0605576510369,0.0603456226925,0.0598391105364,0.0599569040611,0.0594739506099,0.059049893921,0.0591323493883,0.0589556591013,0.0593914951426,0.058696513347,0.0579897521989,0.0578837380267,0.0579308554366,0.057589254215,0.0581782218384,0.0582017805434,0.0576481509774,0.0575774748626,0.0569060517719,0.0569296104768,0.0565762299028,0.0562581873862,0.0557870132875,0.0560697177467,0.055398294656,0.0555278675332,0.0556456610578,0.0559637035745,0.0562699667386,0.055598543648,0.0561639525664,0.0561639525664,0.0562581873862,0.055421853361,0.0558576894023,0.0554807501233,0.0554807501233,0.0552687217789,0.0556221023529,0.0558105719924,0.0554336327134,0.0549506792622,0.0551391489017,0.0553276185412,0.0547857683277,0.054491284516,0.0540554484747,0.0535135982612,0.0525948087687,0.052853954523,0.05303064481,0.0527361609983,0.0525476913588,0.052477015244,0.0522885456045,0.0523945597767,0.0524416771866,0.0527714990557,0.0528068371131,0.0525241326539,0.051746695391,0.0522532075471,0.0516642399237,0.0519351650305,0.0522178694897,0.0520529585552,0.0524181184817,0.0520882966126,0.0523238836619,0.052300324957,0.0525123533014,0.0522885456045,0.052653705531,0.0523474423669,0.0523121043095,0.0531131002773,0.0526065881212,0.0521471933749,0.0518291508583,0.0515464463991,0.0516642399237,0.0518998269731,0.0518055921533,0.051393314817,0.0508868026609,0.0505569807918,0.0506158775541,0.0509574787757,0.0509574787757,0.0512284038824,0.0509456994232,0.0503331730949,0.0503331730949,0.0507336710788,0.0509692581281,0.0504391872671,0.0504745253245,0.0508161265461,0.0510281548905,0.0506040982016,0.0507454504312,0.0508514646035,0.0505452014393,0.0505334220868,0.0503213937424,0.0503331730949,0.0502507176276,0.0496264119468,0.0494850597172,0.0494732803647,0.0493672661925,0.0496381912993,0.0496970880616,0.0495910738894,0.0493083694302,0.0493437074876,0.0492376933154,0.0493201487826,0.0487782985691,0.0486958431019,0.0482953451179,0.0478359503717,0.0481422135359,0.047894847134,0.0485898289296,0.0484366973476,0.048625166987,0.0484131386426,0.0486722843969,0.0486722843969,0.049202355258,0.0494850597172,0.0489432095037,0.0485780495772,0.048271786413,0.0485191528148,0.0484249179951,0.0486840637494,0.0484602560525,0.0489667682086,0.0491434584956,0.0492965900777,0.0498031022338,0.0499444544634,0.0498384402912,0.0496499706517,0.0495439564795,0.0499797925208,0.0499562338159,0.049202355258,0.0489432095037,0.0492494726678,0.0490374443234,0.0493201487826,0.049178796553,0.0492376933154,0.0490845617333,0.0484013592902,0.0485544908722,0.0489314301512,0.0491081204382,0.0479537438964,0.0482364483556,0.048472035405,0.0487900779216,0.0491081204382,0.049178796553,0.0495439564795,0.0500269099307,0.0500975860455,0.0498266609388,0.0507336710788,0.0504156285621,0.049932675111,0.049379045545,0.0494850597172,0.0493908248975,0.0497206467666,0.0494026042499,0.0494850597172,0.0497088674141,0.0491905759055,0.0495439564795,0.0494261629549,0.0499797925208,0.0497913228814,0.0495910738894,0.0492259139629,0.0494497216598,0.0494968390697,0.0491081204382,0.0492494726678,0.0488018572741,0.0494379423073,0.0494261629549,0.0494143836024,0.0497795435289,0.0498266609388,0.0496028532419,0.0498737783486,0.0502507176276,0.0509103613658,0.051369756112,0.0516289018663,0.0515346670466,0.0516995779811,0.0513461974071,0.0515228876941,0.0514168735219,0.0504391872671,0.0507336710788,0.0502507176276,0.0501918208653,0.0499444544634,0.0501564828079,0.049932675111,0.0503331730949,0.0502978350375,0.0504156285621,0.0511577277676,0.0509456994232,0.051369756112,0.0514050941694,0.0514875496367,0.0516289018663,0.0515228876941,0.0518055921533,0.0516995779811,0.0524652358915,0.0524652358915,0.0525948087687,0.0524063391292,0.0526890435884,0.0525712500638,0.0524652358915,0.0523827804243,0.0521354140224,0.0522532075471,0.0518055921533,0.0515817844565,0.0515111083417,0.0520176204978,0.0514286528744,0.0515464463991,0.051369756112,0.0517938128009,0.0521354140224,0.0520293998502,0.051570005104,0.0521354140224,0.0519940617928,0.0515346670466,0.0514757702843,0.0512284038824,0.0516289018663,0.0514286528744,0.0510281548905,0.0514286528744,0.0517820334484,0.051923385678,0.0519587237354,0.0520529585552,0.0521943107848,0.0521825314323,0.0515464463991,0.0520647379076,0.0523238836619,0.0520411792027,0.0518173715058,0.0522885456045,0.0523592217193,0.0523827804243,0.052300324957,0.052677264236,0.0526183674736,0.0525712500638,0.0525005739489,0.0525712500638,0.0528775132279,0.0518644889157,0.0518291508583,0.0519705030879,0.0523356630144,0.0523592217193,0.052853954523,0.0530895415723,0.0530895415723,0.0535607156711,0.0533958047365,0.0539023168926,0.0541496832944,0.053961213655,0.0536785091957,0.0537374059581,0.0539023168926,0.0533722460316,0.0535607156711,0.0529010719329,0.0533369079742,0.0531131002773,0.0530070861051,0.0530188654575,0.0531955557445,0.0532426731544,0.0531719970396,0.0530895415723,0.0528068371131,0.0530070861051,0.0527008229409,0.0526301468261,0.0522532075471,0.0519940617928,0.0517231366861,0.0511695071201,0.0512519625874,0.0515935638089,0.0516760192762,0.0515111083417,0.0516995779811,0.0519705030879,0.0522414281947,0.052100075965,0.0526301468261,0.0530777622199,0.0532426731544,0.0530895415723,0.0531366589822,0.0533369079742,0.0532426731544,0.0523592217193,0.0524416771866,0.0530777622199,0.0529599686952,0.0533958047365,0.052853954523,0.0528186164656,0.0527126022934,0.0528421751705,0.0530188654575,0.053384025384,0.0531484383347,0.0536431711383,0.054137903942,0.0533486873266,0.0534311427939,0.0535607156711,0.0538434201303,0.0534193634414,0.0531013209248,0.0535018189087,0.0537256266056,0.0531013209248,0.0525712500638,0.0529128512853,0.0532544525069,0.0531602176871,0.0533486873266,0.0536549504908,0.0536313917859,0.0533958047365,0.053584274376,0.053760964663,0.0539494343025,0.0537138472531,0.0535724950235,0.0533251286217,0.0529010719329,0.0531955557445,0.0533015699168,0.0530188654575,0.0527832784082,0.0520411792027,0.0518055921533,0.0518880476206,0.0521825314323,0.0522885456045,0.0522532075471,0.0520176204978,0.0521471933749,0.0522060901373,0.0515464463991,0.0518644889157,0.0518762682682,0.0516524605713,0.051193065825,0.051369756112,0.0512990799972,0.0510634929479,0.0505687601442,0.0505687601442,0.0509692581281,0.0512755212923,0.0510517135954,0.0516171225139,0.0518055921533,0.0518998269731,0.0520176204978,0.0521471933749,0.052100075965,0.0522414281947,0.0526065881212,0.0522649868996,0.0527126022934,0.0524534565391,0.051923385678,0.0513461974071,0.0512401832349,0.0516171225139,0.0517113573336,0.0516995779811,0.0519116063256,0.0523592217193,0.0521471933749,0.0523121043095,0.0527479403508,0.0531013209248,0.0535018189087,0.0528186164656,0.0526419261786,0.0526065881212,0.0522296488422,0.0520529585552,0.0522296488422,0.0516760192762,0.0516760192762,0.0516171225139,0.0514522115793,0.0516406812188,0.052100075965,0.0520882966126,0.0520765172601,0.0518055921533,0.0518173715058,0.051946944383,0.0520058411453,0.051923385678,0.051946944383,0.0520647379076,0.0519940617928,0.0515228876941,0.0518527095632,0.0520293998502,0.0516053431614,0.0516053431614,0.0515582257515,0.0519587237354,0.0518409302108,0.0514757702843,0.0513579767596,0.0518762682682,0.051393314817,0.0511223897102,0.0512284038824,0.0513344180546,0.0512284038824,0.0510517135954,0.0509103613658,0.0460690475015,0.0410274846453,0.0359741424366,0.0309443589329,0.0)
m <- c(0.0291477379868,0.0343110515731,0.0388676163277,0.0435193573697,0.0482305835913,0.0484685243095,0.047849878442,0.0482424806272,0.0480521280526,0.0480164369448,0.0484090391299,0.0485874946686,0.0488492294587,0.0490276849974,0.0489563027819,0.0488254353869,0.049634433829,0.0490633761052,0.0493370079312,0.049491669398,0.0493013168234,0.0493132138593,0.0496701249367,0.0495987427212,0.0497534041881,0.0498723745472,0.0494797723621,0.0495749486494,0.0495868456853,0.0500984182296,0.050455329307,0.0503601530197,0.0499794478705,0.0501698004451,0.0504910204147,0.0503601530197,0.0505742996661,0.0502768737683,0.0503244619119,0.0501222123014,0.0498961686191,0.0494440812544,0.0500508300859,0.0500865211937,0.0505505055943,0.0508955196358,0.0513832981082,0.0517283121497,0.0518591795447,0.0521685024785,0.0521090172989,0.052227987658,0.0514784743955,0.0516093417905,0.0508955196358,0.0513000188568,0.0509193137076,0.051133460354,0.0508003433485,0.0501103152655,0.050455329307,0.0509074166717,0.0512881218209,0.0516688269701,0.051680724006,0.0513000188568,0.05140709218,0.0513119158927,0.0514546803237,0.0516926210419,0.05140709218,0.0511929455336,0.0509906959231,0.0505624026302,0.0504315352352,0.0506932700252,0.0503244619119,0.0501698004451,0.0498723745472,0.0502768737683,0.0503720500556,0.0506813729893,0.0509787988872,0.0514427832878,0.0517759002933,0.0517877973292,0.0521922965503,0.0524183402326,0.0526919720586,0.0527514572382,0.0526324868791,0.0525848987354,0.0528585305614,0.0527871483459,0.0528704275973,0.052644383915,0.0524302372685,0.0523350609812,0.0524540313404,0.0520733261911,0.0524897224481,0.0529299127769,0.0528704275973,0.0528347364896,0.0528109424178,0.0528942216691,0.0532511327465,0.0533344119979,0.0533463090338,0.0530131920283,0.0526205898431,0.0522755758017,0.0522636787658,0.0523469580171,0.0526086928072,0.052227987658,0.0520852232271,0.0518591795447,0.0517283121497,0.0523350609812,0.0524064431967,0.0517996943651,0.0518710765806,0.0515736506828,0.0514427832878,0.0517877973292,0.0518353854729,0.0520852232271,0.051954355832,0.0518115914011,0.0519900469398,0.0526205898431,0.0525967957713,0.0529299127769,0.052918015741,0.0531797505311,0.0532749268184,0.0536318378957,0.053869778614,0.0540363371168,0.0539530578654,0.0539768519372,0.0537746023267,0.0538221904704,0.054286174871,0.0545954978047,0.0546668800202,0.0546787770561,0.0547977474152,0.054821541487,0.0550475851694,0.0550832762771,0.055095173313,0.0546430859484,0.0544884244815,0.0542028956196,0.0539768519372,0.0537270141831,0.0537508082549,0.053465279393,0.053869778614,0.0537032201112,0.0540006460091,0.0539887489731,0.0537151171471,0.0535842497521,0.053738911219,0.0535842497521,0.0535009705007,0.0539887489731,0.053738911219,0.0532511327465,0.0529893979564,0.0532630297824,0.0534890734648,0.0530369861001,0.052501619484,0.0528109424178,0.0525373105918,0.052644383915,0.0520495321193,0.0529418098128,0.0527633542741,0.0524302372685,0.0524183402326,0.0524183402326,0.0527395602023,0.0526324868791,0.0529656038846,0.0524302372685,0.0528466335255,0.0525254135558,0.0525492076277,0.0527157661304,0.0521090172989,0.0516212388265,0.0513595040364,0.0513951951441,0.0508122403844,0.0510144899949,0.0510144899949,0.0508836225998,0.0514665773596,0.0515617536469,0.051823488437,0.0529061187051,0.0538816756499,0.0533463090338,0.0541077193323,0.0540839252604,0.0541553074759,0.0541196163682,0.0539411608295,0.05414341044,0.0543932481942,0.0539054697217,0.053191647567,0.0543932481942,0.0540244400809,0.0540006460091,0.0537508082549,0.05414341044,0.0538459845422,0.053596146788,0.0537032201112,0.0538935726858,0.0541672045118,0.0530845742438,0.0534533823571,0.0533463090338,0.0537032201112,0.0532749268184,0.0533463090338,0.0530607801719,0.0528228394537,0.0528585305614,0.0525967957713,0.0525730016995,0.0521328113707,0.0522993698735,0.0517164151138,0.051823488437,0.0520257380475,0.0522517817298,0.0520495321193,0.0518353854729,0.0520138410116,0.0519305617602,0.0520852232271,0.0524302372685,0.0527514572382,0.0526205898431,0.0526562809509,0.0526324868791,0.0529893979564,0.0528585305614,0.0528466335255,0.0534771764289,0.0536913230753,0.0535009705007,0.0539292637936,0.0539054697217,0.0537508082549,0.0536913230753,0.0533938971775,0.0539411608295,0.053869778614,0.0537983963985,0.0537508082549,0.0539054697217,0.0535485586444,0.0537032201112,0.0539173667577,0.0535247645725,0.0538102934344,0.0536556319676,0.0533938971775,0.0534414853211,0.0532392357106,0.0527276631664,0.052370752089,0.0524540313404,0.0519662528679,0.0523112669094,0.0522993698735,0.0527157661304,0.0532749268184,0.0534295882852,0.05414341044,0.0540720282245,0.0544527333737,0.0540601311886,0.0543218659787,0.0543456600505,0.0538935726858,0.0533463090338,0.0525967957713,0.0521090172989,0.0516688269701,0.0521328113707,0.051549856611,0.0517521062215,0.0515260625391,0.0511215633181,0.0510382840667,0.0513714010723,0.0518472825088,0.0518710765806,0.0514903714314,0.0514427832878,0.0520019439757,0.0518710765806,0.051680724006,0.0521090172989,0.0516688269701,0.0513000188568,0.0511810484977,0.0509550048153,0.0513000188568,0.0510858722104,0.0509906959231,0.0510144899949,0.0514546803237,0.0510382840667,0.0515379595751,0.051133460354,0.0506694759534,0.0511691514618,0.0511096662822,0.0506099907738,0.0506218878098,0.0510739751745,0.0511929455336,0.0516926210419,0.0521922965503,0.0522517817298,0.0526205898431,0.0520257380475,0.0520257380475,0.0528347364896,0.0530012949924,0.0525967957713,0.0524659283763,0.0526086928072,0.0524897224481,0.0527157661304,0.0527514572382,0.053048883136,0.0530131920283,0.0526681779868,0.0520852232271,0.0517877973292,0.051823488437,0.0518710765806,0.0517283121497,0.0516331358624,0.051680724006,0.0513951951441,0.051276224785,0.0512524307131,0.0513714010723,0.0511929455336,0.0508717255639,0.0509431077794,0.0509550048153,0.0512643277491,0.0512286366413,0.0521328113707,0.0520138410116,0.051954355832,0.0522874728376,0.0525611046636,0.0521447084066,0.0522041935862,0.0522636787658,0.0521209143348,0.0523469580171,0.051549856611,0.0521447084066,0.0523231639453,0.0521922965503,0.052227987658,0.0527871483459,0.0525254135558,0.0523588550531,0.0525611046636,0.0526205898431,0.0528585305614,0.0522874728376,0.0523350609812,0.0525492076277,0.053191647567,0.053322514962,0.0533344119979,0.0537864993626,0.053738911219,0.0537508082549,0.0537151171471,0.0539411608295,0.0544289393019,0.0539768519372,0.0537746023267,0.0539530578654,0.0537270141831,0.0532630297824,0.0532035446029,0.0534414853211,0.0538935726858,0.0542266896914,0.0538935726858,0.0538578815781,0.0539292637936,0.053738911219,0.0542623807991,0.054547909661,0.0550713792412,0.0549048207384,0.0554520843904,0.0554282903186,0.0555948488214,0.0554996725341,0.0552617318158,0.0558327895397,0.0557376132523,0.0562491857966,0.0562491857966,0.0568321405563,0.056736964269,0.0563443620839,0.0560231421143,0.0572128457056,0.0575459627111,0.0574745804956,0.0581884026504,0.0584025492969,0.0582835789377,0.0579504619322,0.057974256004,0.0584620344764,0.0591758566312,0.0592472388467,0.0594613854931,0.0597826054628,0.0592115477389,0.0585572107637,0.058652387051,0.0588308425897,0.0591520625594,0.0591758566312,0.0595327677086,0.0592234447749,0.0596398410318,0.0600562372888,0.061115073485,0.0617099252807,0.0621858067172,0.0622809830045,0.0623404681841,0.0626378940819,0.0631256725543,0.0633874073444,0.0628044525847,0.0623047770763,0.0620430422862,0.0616861312088,0.0614243964188,0.0620073511785,0.061935968963,0.0624475415073,0.0617456163884,0.0616980282448,0.0626497911178,0.0625427177946,0.0626616881537,0.063173260698,0.06372052435,0.0631137755184,0.0630780844107,0.0626497911178,0.0632684369853,0.06372052435,0.0636015539908,0.0642796850379,0.064125023571,0.064398655397,0.0641964057865,0.064672287223,0.0644224494688,0.0652314479109,0.0654336975214,0.0659333730298,0.0661594167121,0.0665044307536,0.0665282248254,0.0667780625796,0.0671587677288,0.0682889861405,0.0691217786545,0.0691931608699,0.0695024838037,0.0691693667981,0.0689195290439,0.0688481468285,0.0698593948811,0.0700973355993,0.0706089081436,0.070002159312,0.0704066585331,0.0712513480829,0.07082305479,0.0715011858371,0.0721198317045,0.07219121392,0.0720008613454,0.0728931390389,0.0731786679008,0.0730478005057,0.0731905649367,0.072869344967,0.073963872271,0.0745587240667,0.0750108114314,0.0754628987961,0.076022059484,0.0758911920889,0.0759863683763,0.0766050142437,0.0768905431056,0.0771760719675,0.0770689986443,0.0775924682245,0.078068349661,0.078615613313,0.0784371577743,0.0788297599595,0.0788178629235,0.0797220376529,0.0801384339099,0.0803525805563,0.0810664027111,0.0805667272028,0.0807213886696,0.0810664027111,0.081756430794,0.0817207396863,0.0830294136367,0.082850958098,0.0826368114516,0.0831959721395,0.0829580314213,0.0832197662113,0.0829342373494,0.0821847240869,0.0824345618411,0.0831721780677,0.0830056195649,0.0834933980373,0.0845998223773,0.0844094698026,0.0850519097419,0.0853850267475,0.0865390392311,0.0883830797976,0.0882879035103,0.0885377412645,0.0889898286291,0.0886448145877,0.0884544620131,0.0889303434496,0.0891801812038,0.0894776071016,0.0898702092867,0.0891325930601,0.0896322685684,0.0898226211431,0.0894538130298,0.0901319440768,0.0899891796458,0.0905840314415,0.0906078255133,0.0906197225492,0.090655413657,0.091190780273,0.0912383684167,0.0919164994637,0.0923091016489,0.0933203497015,0.0942840096104,0.0940103777844,0.0948193762265,0.095842521315,0.0964492701466,0.0966872108648,0.0974962093069,0.0979720907435,0.0997209550227,0.0997923372381,0.100042174992,0.100874967506,0.101136702296,0.101398437086,0.101695862984,0.102909360647,0.103813535377,0.103944402772,0.103528006515,0.10450356346,0.105955001841,0.107216087648,0.10834630606,0.109048231178,0.110511566596,0.111070727284,0.111201594679,0.111677476115,0.112831488599,0.113557207789,0.114211544765,0.114627941022,0.114128265513,0.115805747577,0.115544012787,0.115508321679,0.117257185958,0.118577756945,0.118363610298,0.119089329489,0.119600902033,0.120112474578,0.121207001882,0.120516973799,0.121456839636,0.122408602509,0.122527572868,0.122717925442,0.123764864603,0.123800555711,0.1235983061,0.123217600951,0.123776761639,0.125049744481,0.124252643075,0.124454892686,0.12438351047,0.125156817805,0.125121126697,0.124776112655,0.125585111097,0.126774814689,0.126751020617,0.126441697683,0.127464842772,0.127750371634,0.128928178189,0.128297635286,0.128666443399,0.130189263996,0.130867395043,0.130534278037,0.131236203156,0.132449700819,0.132521083035,0.132937479292,0.131878643095,0.133282493333,0.134079594739,0.134436505817,0.134793416894,0.134876696146,0.134936181325,0.134971872433,0.136006914557,0.136780221892,0.13748214701,0.136685045604,0.137006265574,0.136827810035,0.136708839676,0.13733938258,0.138041307698,0.138160278058,0.138338733596,0.139016864643,0.140051906768,0.14144385997,0.142121991017,0.142419416914,0.142526490238,0.144025516763,0.144560883379,0.145643513647,0.146048012868,0.146309747658,0.147023569813,0.147535142357,0.147927744542,0.148724845948,0.150402328012,0.15064026873,0.150545092443,0.150854415377,0.151699104927,0.151770487142,0.152686558907,0.152520000404,0.151639619747,0.152222574507,0.151865663429,0.152317750794,0.153543145493,0.153019675913,0.152829323338,0.153507454385,0.152627073728,0.153566939565,0.154566290582,0.155018377946,0.155042172018,0.155434774203,0.156196184502,0.15727881477,0.158182989499,0.158861120546,0.159765295276,0.160431529287,0.161859173596,0.161942452848,0.162870421649,0.163167847547,0.163001289044,0.163762699342,0.163072671259,0.164095816348,0.165345005119,0.165916062843,0.166201591704,0.166368150207,0.16659419389,0.166499017602,0.167093869398,0.166499017602,0.168188396702,0.168580998887,0.168033735235,0.167748206373,0.169033086252,0.170258480951,0.169961055053,0.17122214086,0.171150758644,0.172031139302,0.172816343672,0.173149460678,0.173006696247,0.172887725888,0.171507669722,0.171198346788,0.172507020738,0.171507669722,0.171983551158,0.171995448194,0.171126964572,0.170865229782,0.171983551158,0.172614094062,0.17311376957,0.173327916216,0.173125666606,0.173601548042,0.173613445078,0.174660384239,0.174315370197,0.173256534001,0.172316668164,0.17142439047,0.170948509034,0.170603494992,0.170246583915,0.169949158017,0.169568452868,0.167450780475,0.16784338266,0.167783897481,0.168640484067,0.168676175174,0.168105117451,0.167938558948,0.166820237572,0.167296119008,0.166641782033,0.167426986403,0.16737939826,0.16784338266,0.166665576105,0.166177797633,0.16601123913,0.165142755508,0.165440181406,0.164190992635,0.163393891229,0.162204187638,0.161347601052,0.16085982258,0.159943750814,0.159777192311,0.158682665007,0.158444724289,0.157623828811,0.157243123662,0.157100359231,0.157385888093,0.157290711806,0.154887510551,0.155208730521,0.154720952048,0.155339597916,0.155077863126,0.155351494952,0.154697157977,0.154030923965,0.152662764835,0.151722898998,0.152757941123,0.151437370136,0.150616474658,0.150093005078,0.149295903672,0.148129994153,0.147761186039,0.147808774183,0.147880156398,0.14770170086,0.146559585412,0.146345438766,0.146476306161,0.145726792898,0.145798175114,0.146202674335,0.145512646252,0.145346087749,0.145429367,0.144525192271,0.144358633768,0.144096898978,0.143847061224,0.143632914577,0.142776327992,0.141027463713,0.141634212544,0.140789522994,0.140182774163,0.140420714881,0.139980524552,0.139528437188,0.138600468386,0.138457703955,0.138029410662,0.138076998806,0.137172824077,0.136577972281,0.135435856833,0.134841005038,0.134888593181,0.134841005038,0.134698240607,0.133901139201,0.133913036237,0.13402010956,0.133104037795,0.132866097076,0.132961273364,0.132045201598,0.132306936388,0.131831054952,0.130998262438,0.130046499565,0.129320780374,0.128928178189,0.128737825614,0.127631401275,0.127417254628,0.127143622802,0.125406655559,0.124823700799,0.124097981608,0.125061641517,0.123503129813,0.122242044006,0.121670986282,0.121885132929,0.120302827152,0.119779357572,0.11943434353,0.118661036196,0.118030493293,0.11707873042,0.11818515476,0.117816346646,0.118256536975,0.117578405928,0.117102524492,0.116079379403,0.115270380961,0.114235338837,0.112629238988,0.110107067375,0.107454028366,0.106407089206,0.104586842711,0.102861772504,0.10202897999,0.100993937865,0.10066082086,0.100089763136,0.1000778661,0.100292012746,0.10086307047,0.100565644572,0.0998399253818,0.100042174992,0.100161145351,0.100196836459,0.0992212795143,0.0986383247546,0.0983765899645,0.0974605181992,0.0968418723317,0.096258917572,0.0957235509559,0.0953547428426,0.0945695384723,0.0947717880829,0.0942721125745,0.0940103777844,0.0941174511076,0.0945576414364,0.0940936570358,0.093927098533,0.0938795103894,0.0932965556296,0.092558939403,0.0911550891653,0.0917261468891,0.091476309135,0.0908338691957,0.089691753748,0.0892753574911,0.088192727223,0.0879428894688,0.0880975509357,0.0884425649771,0.0883354916539,0.087776330966,0.0869435384521,0.0866104214465,0.0873480376732,0.0869078473444,0.0869316414162,0.086824568093,0.0865985244106,0.0861107459382,0.0859203933636,0.0853374386039,0.0850876008497,0.0848615571673,0.0846593075568,0.0843737786949,0.0841715290844,0.0837432357915,0.0833506336064,0.0831721780677,0.08339822175,0.0833149424987,0.0833863247141,0.0828152669903,0.0818754011532,0.08176832783,0.08176832783,0.0812091671421,0.0805072420232,0.0802693013049,0.0795435821142,0.0786275103489,0.0780445555892,0.0779136881942,0.0780802466969,0.0775448800809,0.0772593512189,0.0764622498128,0.0761886179868,0.0759030891249,0.0749870173596,0.0755104869397,0.0757960158016,0.0765217349923,0.0761410298431,0.0755223839756,0.0754153106524,0.0762718972382,0.0763789705614,0.0759982654122,0.0762718972382,0.0756532513707,0.0753082373292,0.0743326803843,0.0737854167323,0.0738686959837,0.0739876663429,0.0732738441881,0.0735712700859,0.0729645212544,0.0730002123621,0.0730002123621,0.0723696694587,0.0714535976934,0.0711799658674,0.0714179065857,0.0706802903591,0.0704066585331,0.0697404245219,0.0696452482346,0.0689195290439,0.0685507209306,0.0684793387152,0.0686221031461,0.0684198535356,0.0680391483864,0.0678368987759,0.0680272513505,0.0680034572786,0.068229500961,0.0680153543145,0.0679677661709,0.0681343246737,0.0685745150025,0.0693359253009,0.0694786897318,0.0696214541628,0.0690028082953,0.0691455727263,0.069050396439,0.0690860875467,0.0685745150025,0.0683484713201,0.0676227521294,0.0665044307536,0.0660285493171,0.0651719627313,0.0653147271623,0.0645890079716,0.0647555664744,0.064815051654,0.0648983309053,0.0644938316843,0.0645176257561,0.0648626397976,0.0647555664744,0.0650291983004,0.0646960812948,0.0649816101567,0.0644105524329,0.0640179502478,0.0635182747394,0.0632565399494,0.0632327458775,0.0630185992311,0.0634112014162,0.0629948051593,0.0625427177946,0.0621382185735,0.062078733394,0.0619478659989,0.0619716600708,0.0623285711481,0.0626022029741,0.0624594385432,0.0619121748912,0.0619954541426,0.0627806585128,0.0622333948608,0.0621858067172,0.0619240719271,0.062078733394,0.0619002778553,0.0612697349519,0.0615076756701,0.0612935290237,0.0611031764491,0.0603179720788,0.0599967521092,0.0596041499241,0.0597707084268,0.0599134728578,0.0597112232473,0.0600443402528,0.0596636351036,0.0600443402528,0.0596517380677,0.0597231202832,0.0594375914213,0.0593543121699,0.0592829299544,0.0582359907941,0.0580337411836,0.0577482123216,0.0570343901669,0.0564276413353,0.0570700812746,0.0572366397774,0.0572485368133,0.0565228176226,0.0562967739403,0.0567964494486,0.0570462872028,0.0567607583409,0.0573199190288,0.0575340656752,0.0573675071724,0.057010596095,0.0571295664542,0.0577244182498,0.0574983745675,0.0573437131006,0.0569986990591,0.0571057723823,0.0567964494486,0.056606096874,0.0559398628629,0.0562491857966,0.0562729798684,0.0561064213656,0.0564276413353,0.0562967739403,0.0563086709762,0.0560112450783,0.055654334001,0.0557614073242,0.0558208925037,0.0554401873545,0.0552974229236,0.0550118940617,0.0550118940617,0.0546787770561,0.054012543045,0.053738911219,0.0541196163682,0.0538459845422,0.0538935726858,0.0534533823571,0.0536318378957,0.0542980719069,0.0542147926555,0.0545241155892,0.0551189673849,0.05551156957,0.0554758784623,0.0553450110672,0.0555234666059,0.055380702175,0.0550118940617,0.0544884244815,0.0547858503793,0.0546192918765,0.0539411608295,0.0534771764289,0.0534057942134,0.0531678534951,0.0532511327465,0.0538221904704,0.0539411608295,0.0542623807991,0.0540482341527,0.054274277835,0.0546549829843,0.0546787770561,0.0542028956196,0.0540244400809,0.0536675290035,0.0532511327465,0.0529656038846,0.0526324868791,0.0521566054425,0.0517521062215,0.051954355832,0.0524778254122,0.0533463090338,0.053738911219,0.0537627052908,0.054286174871,0.0551308644208,0.0549880999898,0.054964305918,0.0551903496003,0.0546311889124,0.0546311889124,0.0541315134041,0.0540720282245,0.0535604556803,0.0529537068487,0.0518710765806,0.0520138410116,0.0516093417905,0.0512524307131,0.0515141655032,0.0508122403844,0.0503482559838,0.0449470016793,0.0401524962063,0.0350486677997,0.0303255445422,0.0)
ycorr <- c(0.000131145881543,0.000131024667126,0.000130663491796,0.000130063959529,0.000129219870838,0.000128135399571,0.000126810041804,0.000125472870239,0.000124119947546,0.000122754369291,0.000121372913651,0.000119974668038,0.000118559620958,0.000117122593008,0.000115665778222,0.000114191123296,0.000112693827408,0.000111174872997,0.000109642919958,0.000108098873112,0.000106539893758,0.000104972595417,0.000103397553829,0.000101814612567,0.00010022393497,9.86254619386e-05,9.70221187491e-05,9.54151432102e-05,9.38006080765e-05,9.21788465043e-05,9.0555336901e-05,8.89253417025e-05,8.7284705231e-05,8.56352544724e-05,8.39786865346e-05,8.23166814526e-05,8.0645583102e-05,7.89642408241e-05,7.72774458097e-05,7.55861623013e-05,7.38834002053e-05,7.21660668908e-05,7.04401517795e-05,6.87048578863e-05,6.69573442531e-05,6.51979358001e-05,6.34271865328e-05,6.16509215046e-05,5.98642767986e-05,5.80613162358e-05,5.62430197493e-05,5.44158054553e-05,5.25813314149e-05,5.07387114241e-05,4.88876744781e-05,4.70253898612e-05,4.51488409547e-05,4.32580842449e-05,4.13511316772e-05,3.94318489607e-05,3.75023786564e-05,3.55636549804e-05,3.36088053404e-05,3.16344761387e-05,2.96421208206e-05,2.7633613178e-05,2.56111559785e-05,2.35743452246e-05,2.15205979176e-05,1.94468839315e-05,1.73586568232e-05,1.52558855866e-05,1.31358950176e-05,1.10050588211e-05,8.86283019455e-06,6.71058314554e-06,4.54864974526e-06,2.37390390465e-06,1.88831266139e-07,-2.00240839494e-06,-4.20242912417e-06,-6.41788992469e-06,-8.64832878741e-06,-1.08913323375e-05,-1.31489655303e-05,-1.5423619744e-05,-1.77149770668e-05,-2.00242589061e-05,-2.2345222847e-05,-2.46762763613e-05,-2.70205323812e-05,-2.93762172729e-05,-3.17382649874e-05,-3.41108124524e-05,-3.64906722512e-05,-3.8875719827e-05,-4.12645638896e-05,-4.36579853087e-05,-4.60585775852e-05,-4.8468238025e-05,-5.08905066787e-05,-5.33212063732e-05,-5.57630936678e-05,-5.8218513981e-05,-6.06878524131e-05,-6.31763068005e-05,-6.5686229158e-05,-6.8214336179e-05,-7.07625149903e-05,-7.33323731363e-05,-7.59222890645e-05,-7.85325086175e-05,-8.11632648777e-05,-8.38099223744e-05,-8.64726956386e-05,-8.91442900038e-05,-9.1828146417e-05,-9.45240187099e-05,-9.72325441962e-05,-9.99534086531e-05,-0.000102680341686,-0.000105413865016,-0.000108151504107,-0.00011089747562,-0.000113648765164,-0.000116409928488,-0.000119182469881,-0.000121959578211,-0.000124740670039,-0.000127529102052,-0.000130326619423,-0.000133130591348,-0.000135946003227,-0.000138771240261,-0.000141607873427,-0.0001444635266,-0.00014733047358,-0.000150208785459,-0.000153098308829,-0.000155992426913,-0.000158887366153,-0.000161789776571,-0.000164699402425,-0.000167613946625,-0.000170533582332,-0.000173449182482,-0.000176358030133,-0.000179266543736,-0.000182176944673,-0.000185093879613,-0.000188023384225,-0.000190961715128,-0.000193899690097,-0.000196839620472,-0.00019978324138,-0.000202729869685,-0.000205679564422,-0.000208628501928,-0.000211569518573,-0.000214499572454,-0.000217414430843,-0.00022031397635,-0.000223200319766,-0.000226073432653,-0.000228926664282,-0.000231759518062,-0.000234573750744,-0.000237377004092,-0.000240170874223,-0.000242955398423,-0.000245732698106,-0.000248500723653,-0.000251264129445,-0.000254021175447,-0.000256774594444,-0.00025953010326,-0.000262285716411,-0.000265035907359,-0.000267777104294,-0.000270511069144,-0.000273235181382,-0.000275949522413,-0.000278652729906,-0.000281338478304,-0.00028400899425,-0.000286661698825,-0.000289298644174,-0.000291915068874,-0.000294518619547,-0.000297105997608,-0.000299680459458,-0.000302242976171,-0.000304791595763,-0.000307328605712,-0.000309855394957,-0.000312370533227,-0.000314864930094,-0.000317342984309,-0.000319805618749,-0.000322253375609,-0.000324685736443,-0.000327100968998,-0.000329499729079,-0.000331884247557,-0.000334250603266,-0.000336596068535,-0.000338927139793,-0.000341249788092,-0.000343556972235,-0.000345849546544,-0.00034812142476,-0.000350373483221,-0.000352606297317,-0.000354822272763,-0.000357023463668,-0.00035921689723,-0.000361403047786,-0.000363576233604,-0.000365740093261,-0.000367893434251,-0.000370040877556,-0.000372187990611,-0.000374331586777,-0.00037646916713,-0.000378598082259,-0.000380712262882,-0.000382812251984,-0.00038489866509,-0.000386971502545,-0.000389031679502,-0.000391082270816,-0.00039311537134,-0.00039513486423,-0.000397143367359,-0.000399141409957,-0.000401131786785,-0.000403116118564,-0.000405091005682,-0.000407055363995,-0.000409009895262,-0.000410950167405,-0.00041287804618,-0.000414793519516,-0.000416690373275,-0.000418570122649,-0.000420432103753,-0.000422276039565,-0.000424106175499,-0.000425925617867,-0.000427734690691,-0.000429533382964,-0.000431323667881,-0.000433101855807,-0.000434872605798,-0.000436635475087,-0.000438390476187,-0.000440141593232,-0.000441884837971,-0.000443616414945,-0.000445331599186,-0.000447032982889,-0.000448721032077,-0.000450396041581,-0.000452056786005,-0.000453704601557,-0.000455339135001,-0.000456953568936,-0.000458544558937,-0.000460111661808,-0.000461661939272,-0.000463191631265,-0.000464697704135,-0.000466182492736,-0.00046764981479,-0.00046909738549,-0.000470522750931,-0.000471925533744,-0.000473314098321,-0.000474688517036,-0.000476049968698,-0.000477400615526,-0.000478745302895,-0.000480087833042,-0.000481420833015,-0.000482739569859,-0.00048404608333,-0.000485341838955,-0.000486625058537,-0.000487891098808,-0.000489132585203,-0.000490343429064,-0.000491514090197,-0.000492642553743,-0.000493725222854,-0.000494768398437,-0.000495773991318,-0.000496744702503,-0.000497677678329,-0.000498579013558,-0.000499456427163,-0.000500318951725,-0.000501174806284,-0.000502021848414,-0.000502864838453,-0.000503706454603,-0.000504545586464,-0.000505379201847,-0.000506208967527,-0.000507035052547,-0.000507852285927,-0.000508658410304,-0.000509451050243,-0.000510230669822,-0.000511003193985,-0.000511765002565,-0.000512517313842,-0.000513258930267,-0.000513992725525,-0.00051471917589,-0.000515438888197,-0.000516150985884,-0.000516854449334,-0.000517550001138,-0.000518234738586,-0.000518903653894,-0.000519555649233,-0.000520193188475,-0.000520816860901,-0.000521424784392,-0.000522013489242,-0.000522584510638,-0.000523137187391,-0.000523672740203,-0.000524191424521,-0.000524700053346,-0.000525200854684,-0.000525694598099,-0.000526173045802,-0.00052663817987,-0.000527096233006,-0.000527547102635,-0.000527992799855,-0.000528437286363,-0.000528879032699,-0.000529316022104,-0.000529744440011,-0.00053016595175,-0.00053058298034,-0.000530997736422,-0.000531407905104,-0.000531809390061,-0.000532204581083,-0.00053258991889,-0.000532965039336,-0.000533329760555,-0.000533686670171,-0.000534032736724,-0.00053436809238,-0.000534692099872,-0.000535004050847,-0.000535304886904,-0.000535594099,-0.000535867945986,-0.000536126496469,-0.000536370650539,-0.00053659899962,-0.000536810239919,-0.000537006403214,-0.000537186011934,-0.000537352087163,-0.000537506236162,-0.000537648096855,-0.000537775387239,-0.000537891149234,-0.000537996716283,-0.00053809048937,-0.000538176396022,-0.000538256111524,-0.000538332845407,-0.000538403321872,-0.000538463176071,-0.000538513507336,-0.000538558769135,-0.000538601372214,-0.000538638618342,-0.000538671389117,-0.000538698157081,-0.000538716616621,-0.000538722341934,-0.000538712711478,-0.000538692865282,-0.000538666401808,-0.00053863005133,-0.000538580951719,-0.000538516998272,-0.000538440444981,-0.000538349300274,-0.000538242587794,-0.000538119043685,-0.000537982430493,-0.000537833806707,-0.000537669840454,-0.0005374900116,-0.000537296455022,-0.000537089132365,-0.000536867701202,-0.000536633084614,-0.000536387321307,-0.000536133228327,-0.000535872144397,-0.000535601724324,-0.000535319711609,-0.000535028436259,-0.000534725666671,-0.000534413264217,-0.000534089253975,-0.000533756146306,-0.000533413472614,-0.00053306116343,-0.000532700706595,-0.000532332390213,-0.000531956418876,-0.000531572551646,-0.000531180734802,-0.000530781048224,-0.000530372850553,-0.000529955359922,-0.000529529088228,-0.000529091421143,-0.000528638214713,-0.000528168349428,-0.00052768058513,-0.000527175439943,-0.000526652575338,-0.000526113256727,-0.000525557741748,-0.000524986781565,-0.000524399272265,-0.00052379588248,-0.000523180175846,-0.000522552492751,-0.000521914058297,-0.000521265962684,-0.000520609205408,-0.000519942438952,-0.000519263410269,-0.000518569747824,-0.000517860735717,-0.000517137908655,-0.000516399821231,-0.000515648744581,-0.00051488441114,-0.000514103933245,-0.000513306427101,-0.000512490969758,-0.000511660098643,-0.000510815889517,-0.00050996290315,-0.000509102029348,-0.00050823114625,-0.000507348092837,-0.000506449616598,-0.000505540130595,-0.000504619222752,-0.00050368816132,-0.000502745625535,-0.000501793276437,-0.000500827294365,-0.00049984484167,-0.000498847627742,-0.000497835891702,-0.000496810286726,-0.000495767717189,-0.000494704235896,-0.00049362173096,-0.000492520971839,-0.000491401840673,-0.000490263022079,-0.000489106810308,-0.00048793148081,-0.000486735077224,-0.000485518893791,-0.000484284999021,-0.000483036074454,-0.000481773141169,-0.000480495777743,-0.00047919912656,-0.000477884347509,-0.00047654973564,-0.000475193348423,-0.00047381858275,-0.000472427387416,-0.000471020563834,-0.00046959783594,-0.000468156574226,-0.000466698445561,-0.00046522512472,-0.000463741217808,-0.000462245245697,-0.000460739554723,-0.000459224580395,-0.000457698057264,-0.000456155761812,-0.000454596273652,-0.000453021793049,-0.000451432883663,-0.000449827185838,-0.000448200156329,-0.00044655255202,-0.000444885497085,-0.000443197933491,-0.000441488173374,-0.000439759829965,-0.000438014325695,-0.000436249674569,-0.000434464840323,-0.00043266240612,-0.000430844269792,-0.000429011364578,-0.000427160453562,-0.000425291036687,-0.000423404466457,-0.000421500819883,-0.000419578183284,-0.000417635600149,-0.000415674808039,-0.000413693456857,-0.000411689082575,-0.000409660797191,-0.000407613041569,-0.000405546056131,-0.000403460300105,-0.000401353809067,-0.000399229210368,-0.000397088893172,-0.000394931925561,-0.00039275914748,-0.000390572143477,-0.000388373552718,-0.000386161491822,-0.00038393424648,-0.000381693619459,-0.000379437339609,-0.000377165577661,-0.00037487614969,-0.000372568782648,-0.000370244223087,-0.000367899171055,-0.000365531857795,-0.000363143247003,-0.000360732652416,-0.000358298290038,-0.000355842490071,-0.000353366121989,-0.000350871454118,-0.00034835881368,-0.000345825601343,-0.00034327472689,-0.000340707937358,-0.000338122922017,-0.000335518776245,-0.000332898063288,-0.000330260111235,-0.00032760099539,-0.0003249214231,-0.000322218168538,-0.000319493763648,-0.000316749731882,-0.000313984799218,-0.000311202692121,-0.000308405795913,-0.000305591644205,-0.000302761424559,-0.000299919601417,-0.000297065165319,-0.000294197611429,-0.000291316594361,-0.0002884195565,-0.000285507349051,-0.000282575988805,-0.000279624573308,-0.000276652450219,-0.000273659643909,-0.000270642009553,-0.000267597008532,-0.000264526037211,-0.000261431404025,-0.000258315457485,-0.000255175167053,-0.000252008868389,-0.000248801348666,-0.000245530205128,-0.000242175509734,-0.000238721113974,-0.000235067088468,-0.000231653661005,-0.00022837636141,-0.000225217942637,-0.000222159430192,-0.000219183907239,-0.00021627379668,-0.000213447892257,-0.000210726566421,-0.000208130930362,-0.000205679048128,-0.000203474033035,-0.00020107467288,-0.000198583259226,-0.000196017319132,-0.000193395291216,-0.000190737956206,-0.000188060026423,-0.000185362936381,-0.000182647099892,-0.000179913107367,-0.000177159072701,-0.000174384998129,-0.000171592076273,-0.000168781840871,-0.00016595247783,-0.000163103767936,-0.000160237490664,-0.000157356234898,-0.000154458010265,-0.000151542451995,-0.000148609011211,-0.00014565851817,-0.000142691614641,-0.000139706079696,-0.000136703694045,-0.000133686885645,-0.00013065504446,-0.000127607255645,-0.000124544303521,-0.000121464932791,-0.000118371791602,-0.000115266608579,-0.000112148152538,-0.000109016605614,-0.000105872763985,-0.000102712039869,-9.95329177118e-05,-9.63365879389e-05,-9.31237390348e-05,-8.98934518343e-05,-8.66450801538e-05,-8.3377746872e-05,-8.00923530818e-05,-7.6790625543e-05,-7.34740151533e-05,-7.01442204109e-05,-6.68064826682e-05,-6.34590274833e-05,-6.01009893204e-05,-5.67322395011e-05,-5.33551366189e-05,-4.99692526293e-05,-4.65746054808e-05,-4.31686730691e-05,-3.97512304331e-05,-3.63216675917e-05,-3.28792910403e-05,-2.94227000774e-05,-2.59532210991e-05,-2.24729342175e-05,-1.89804682957e-05,-1.54747751198e-05,-1.19600510574e-05,-8.43716853303e-06,-4.90548521139e-06,-1.36442221788e-06,2.18730598666e-06,5.7474395923e-06,9.3158162595e-06,1.28930044836e-05,1.64800349914e-05,2.00737660019e-05,2.36777992385e-05,2.72941308803e-05,3.09239945359e-05,3.45671901326e-05,3.82224283158e-05,4.18900771034e-05,4.55714162748e-05,4.92650991092e-05,5.29693371642e-05,5.66869269959e-05,6.04206508815e-05,6.41683988222e-05,6.79296209765e-05,7.17016617443e-05,7.5484240939e-05,7.92767446338e-05,8.307876127e-05,8.68911141147e-05,9.07150191394e-05,9.45506537297e-05,9.83941031901e-05,0.00010224513784,0.000106102691082,0.000109965848204,0.000113836707125,0.000117715707364,0.000121602060038,0.000125492719624,0.000129387301081,0.000133287353981,0.000137192158071,0.000141100974101,0.000145014103,0.000148932306737,0.0001528552561,0.000156781814777,0.000160709430417,0.000164643758726,0.000168586350469,0.000172532957494,0.000176482737923,0.000180433743794,0.000184386202594,0.000188338773195,0.000192290781215,0.000196243031686,0.000200197712691,0.000204153131266,0.000208105508134,0.000212055108595,0.000216003665117,0.000219953463837,0.000223907419196,0.000227865945348,0.000231828261378,0.000235795266231,0.000239768038541,0.000243744803322,0.00024772551433,0.000251708816888,0.000255694262908,0.000259682474018,0.000263668942741,0.000267654277509,0.000271638351129,0.000275619338697,0.00027959403888,0.000283561982098,0.000287524103793,0.000291483122491,0.000295439448085,0.000299392819634,0.000303345231461,0.000307294930379,0.00031124097769,0.000315183743375,0.00031912481167,0.000323064736892,0.000327002285397,0.000330935495746,0.000334864166535,0.000338787709749,0.000342703420388,0.000346611816375,0.000350512970777,0.000354407078067,0.000358292827413,0.000362170066499,0.000366039175598,0.00036989981762,0.000373751498407,0.000377592252979,0.000381422556113,0.00038524260542,0.000389049296201,0.000392844015745,0.000396622595448,0.00040038630485,0.000404132064491,0.000407860580783,0.000411569607636,0.000415262654032,0.000418939706893,0.000422598628738,0.000426242432054,0.000429871293058,0.000433486206817,0.000437086107556,0.000440671148476,0.000444242610873,0.000447799664001,0.000451341838323,0.000454864443874,0.000458368007233,0.000461851611966,0.000465311907453,0.000468749571221,0.000472163774008,0.000475556589398,0.000478925278079,0.000482271454201,0.000485594343408,0.000488894853201,0.000492173986922,0.00049543444119,0.000498676183554,0.000501900986402,0.000505107824747,0.000508295488185,0.000511466775608,0.000514623031077,0.000517760782094,0.000520882105985,0.000523987065009,0.000527072703018,0.000530136526345,0.0005331786765,0.000536198366702,0.0005391965866,0.000542170859481,0.000545118297727,0.000548037897441,0.000550933014498,0.000553800571606,0.000556642102996,0.00055945815456,0.000562248906337,0.000565014817654,0.00056775712628,0.00057047535762,0.000573170916156,0.000575844552987,0.000578494246536,0.00058111983228,0.000583720359641,0.000586294805782,0.000588843794863,0.000591366710404,0.000593861762259,0.000596326527677,0.000598762525984,0.000601168304833,0.000603541518634,0.000605883531289,0.000608191493846,0.000610467552898,0.000612709906764,0.000614920244738,0.000617097576898,0.000619244365587,0.000621359598192,0.000623443247284,0.000625498115505,0.000627524788957,0.00062952465196,0.000631498766691,0.000633447125704,0.000635370129611,0.000637267314271,0.000639136518463,0.000640974273096,0.000642781312755,0.000644554979461,0.000646294931086,0.000648000571523,0.000649670554045,0.00065130481861,0.000652899601165,0.000654455718627,0.000655971494395,0.00065745087608,0.000658894925796,0.000660304237731,0.000661679294745,0.000663018675219,0.000664325284039,0.000665597441068,0.000666834024816,0.000668034431973,0.000669200071196,0.000670329102082,0.000671418237026,0.000672468850185,0.000673480556777,0.000674453212909,0.000675385503817,0.000676277575633,0.000677131997974,0.000677952390436,0.000678737086741,0.000679486321321,0.000680203758247,0.000680887490854,0.000681533343044,0.000682140789969,0.000682706506811,0.00068322915609,0.000683706412814,0.000684132971343,0.000684509816907,0.000684839168593,0.000685115325162,0.000685335379283,0.00068550491543,0.000685627301826,0.000685702833974,0.000685733339662,0.00068571989659,0.000685664700593,0.000685570049021,0.000685431353947,0.000685254195816,0.000685040807632,0.000684790016179,0.000684499416865,0.000684168834526,0.000683800279474,0.000683392900986,0.000682945751691,0.000682455943608,0.000681926283876,0.000681353852542,0.000680736893038,0.000680074245468,0.000679367256814,0.000678614824981,0.000677817088051,0.000676972737138,0.000676084776555,0.000675155605387,0.00067418384256,0.000673169644506,0.000672116508709,0.000671023315972,0.000669892197332,0.00066872427193,0.000667517042449,0.000666272627962,0.000664989881802,0.000663667284216,0.000662305532572,0.000660906401976,0.000659470585687,0.00065799801035,0.000656488533386,0.000654942497722,0.000653361165846,0.000651747737889,0.00065009872113,0.000648413822503,0.000646693031513,0.000644936172393,0.000643142991959,0.000641313797055,0.000639449220875,0.000637548136408,0.000635611421618,0.000633637771421,0.000631628894787,0.000629585360169,0.000627507639106,0.00062539701301,0.000623252219691,0.000621073556041,0.000618858130091,0.000616609576685,0.000614327426253,0.000612009368678,0.00060965616715,0.000607269227362,0.00060484956447,0.000602397998329,0.000599914033929,0.000597396758453,0.000594846806405,0.000592264068395,0.000589647395007,0.000586999646661,0.000584322669426,0.000581615780882,0.000578877006565,0.000576106759986,0.000573306541273,0.000570478266612,0.000567627164785,0.000564751549529,0.000561851652352,0.000558926514941,0.0005559734284,0.000552994840615,0.000549991022813,0.000546961268589,0.000543905170384,0.000540823584,0.000537712658968,0.000534570216448,0.000531398091799,0.000528197383211,0.000524969078255,0.000521711496235,0.000518426052433,0.000515115406828,0.000511779279777,0.000508416816133,0.000505027887712,0.000501614270992,0.000498176844047,0.000494715788359,0.000491231686794,0.000487723746869,0.000484193919702,0.000480636727165,0.000477053281734,0.000473446362883,0.000469818188737,0.000466170291718,0.00046250514137,0.000458821520301,0.000455118179882,0.000451395836542,0.000447656130878,0.000443900324979,0.000440130627331,0.000436346186719,0.000432545706578,0.000428730588543,0.000424896085152,0.000421042340236,0.000417172552238,0.000413290872381,0.00040939458888,0.000405485788701,0.000401565069869,0.000397631349,0.000393682872767,0.000389717569094,0.000385736513076,0.000381743079111,0.000377736529591,0.00037371537225,0.000369679851904,0.000365631153073,0.000361566319671,0.000357485688816,0.000353392914714,0.000349290510205,0.000345178697764,0.000341056164183,0.000336922054593,0.000332776000869,0.000328619806953,0.000324456902792,0.00032028871706,0.000316115891994,0.000311938204853,0.000307755031946,0.000303567562661,0.000299379157615,0.000295191633561,0.000291006438374,0.000286821436286,0.00028263240067,0.000278433977189,0.000274226918127,0.000270012843132,0.000265793977766,0.000261573829199,0.000257349440669,0.00025312095974,0.000248886796897,0.000244649295734,0.000240410294103,0.000236176744694,0.000231952374462,0.000227735643313,0.000223525290104,0.000219317046736,0.000215108887734,0.00021090295671,0.000206698475739,0.00020249776202,0.00019829899509,0.000194102087353,0.000189903092407,0.000185701137314,0.000181497996277,0.000177297396057,0.000173103373741,0.000168913701511,0.000164730477592,0.000160554448293,0.00015638363846,0.000152220379872,0.000148066495339,0.000143927414356,0.000139803664123,0.000135693250794,0.00013159349184,0.000127505257062,0.000123430038107,0.00011936450487,0.000115312418531,0.00011127390262,0.00010725024239,0.000103236467941,9.92296450755e-05,9.52323748469e-05,9.12455001724e-05,8.72715233464e-05,8.33106111391e-05,7.93626826766e-05,7.54288365303e-05,7.15087213869e-05,6.76023339318e-05,6.37090778916e-05,5.9831855542e-05,5.59677202701e-05,5.21164560051e-05,4.82804120451e-05,4.44572667138e-05,4.064759184e-05,3.68507242064e-05,3.30649349348e-05,2.92857600629e-05,2.55156825732e-05,2.1755925412e-05,1.80081428471e-05,1.42747555973e-05,1.05547250001e-05,6.84843218672e-06,3.15714284443e-06,-5.18003033455e-07,-4.17306007613e-06,-7.8067753335e-06,-1.1415043772e-05,-1.5000172113e-05,-1.85646245089e-05,-2.21052227882e-05,-2.56270178742e-05,-2.91312009889e-05,-3.26185094929e-05,-3.60915553549e-05,-3.95549725733e-05,-4.30065239502e-05,-4.64470158086e-05,-4.98780895156e-05,-5.32958114494e-05,-5.67016964054e-05,-6.00958387532e-05,-6.3474886776e-05,-6.68412355494e-05,-7.01916905231e-05,-7.35207411857e-05,-7.68274678102e-05,-8.01157761798e-05,-8.33825101279e-05,-8.66293060201e-05,-8.98605438958e-05,-9.3073972506e-05,-9.62664626307e-05,-9.94330755089e-05,-0.000102570774422,-0.000105686009015,-0.000108779127973,-0.000111848589509,-0.000114895564915,-0.00011792168694,-0.000120923163412,-0.000123898806496,-0.000126849426071,-0.000129781750265,-0.000132694854784,-0.00013558849313,-0.000138463527676,-0.000141322963262,-0.000144166271374,-0.000146989307618,-0.000149793138948,-0.000152578409189,-0.000155345476334,-0.000158090614131,-0.000160818146484,-0.000163528856619,-0.000166219142543,-0.000168882596744,-0.000171520765131,-0.00017413403918,-0.000176722807357,-0.000179285079278,-0.0001818221351,-0.000184336541795,-0.000186829135918,-0.00018929592553,-0.000191739337722,-0.000194166243662,-0.000196572139889,-0.000198956204404,-0.000201319058605,-0.000203459917198,-0.00020517469739,-0.000206464792612,-0.000207326844151,-0.000207758053233)
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(303)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Canis_familiaris-male-liver-H3K4me3-ERR572299.50mers.unique.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) : 303',bty='n')
dev.off()