# R script for Peak Model
#  -- generated by MACS
p <- c(0.0387094152239,0.0452743849318,0.0521887507865,0.0586249955981,0.0654290258275,0.065916341506,0.0663852679137,0.0663668786429,0.0656221131718,0.0658979522352,0.0653003009312,0.0656588917136,0.0655485560882,0.0656956702554,0.065254327754,0.0652451331186,0.0651164082223,0.0652083545768,0.065668086349,0.0655301668174,0.0661370127567,0.0657232541617,0.0655393614528,0.0655209721819,0.0656956702554,0.0652727170249,0.0650244618679,0.0655485560882,0.0659623146833,0.0657416434326,0.0650428511388,0.0644819783766,0.0645555354602,0.0647486228045,0.064325669574,0.0648589584299,0.0649049316071,0.0641049983234,0.063332648946,0.063498152384,0.0631947294143,0.0632774811333,0.0631855347788,0.0623396283179,0.0622660712343,0.0623947961306,0.062486742485,0.0625327156622,0.0627901654547,0.0629280849864,0.0634613738422,0.0638199646246,0.0631119776953,0.0635165416549,0.0638843270727,0.0635717094675,0.0633418435814,0.0635165416549,0.0631395616016,0.063249897227,0.0629556688927,0.0628453332674,0.0632131186852,0.0630568098826,0.0630200313408,0.0627809708193,0.0627809708193,0.0624591585787,0.0624775478496,0.0620270107128,0.0621741248799,0.0621833195153,0.0621925141508,0.0626154673812,0.0625511049331,0.0628545279028,0.0636544611865,0.0636912397283,0.0642613071259,0.0644543944703,0.0649968779615,0.0649968779615,0.0653922472857,0.0654474150983,0.0650520457742,0.0650428511388,0.0642337232196,0.0643348642095,0.0645187569184,0.0650336565033,0.0643716427513,0.0641049983234,0.0641049983234,0.063498152384,0.0644543944703,0.0644176159285,0.0644911730121,0.0638843270727,0.0634797631131,0.0631211723307,0.063249897227,0.0634521792068,0.0636544611865,0.0641049983234,0.0634889577485,0.063746407541,0.0638199646246,0.0649692940552,0.0648313745235,0.0652175492122,0.0649692940552,0.0648037906172,0.0642980856677,0.0642337232196,0.064408421293,0.0641509715006,0.0639578841562,0.0638659378018,0.0641141929588,0.0633786221232,0.0635900987384,0.0636544611865,0.0636360719157,0.0638199646246,0.0637923807182,0.0636084880093,0.0638383538954,0.0636360719157,0.063167145508,0.063911910979,0.0637280182701,0.0645003676475,0.0643348642095,0.0645279515538,0.0642888910323,0.0644635891057,0.0649509047843,0.0651531867641,0.0660726503086,0.0655945292655,0.0656956702554,0.0657048648908,0.0663668786429,0.0662105698403,0.0665691606226,0.0663117108302,0.0662289591112,0.0659715093187,0.0654382204629,0.0657784219744,0.0655301668174,0.0646015086374,0.0645371461893,0.0644635891057,0.0643992266576,0.0643716427513,0.0642796963968,0.0640682197816,0.0648681530653,0.0649417101489,0.0652819116603,0.0657416434326,0.0655577507237,0.065833589787,0.0661278181213,0.0671576172911,0.0676081544279,0.0680862754711,0.0676449329697,0.0677092954178,0.0681598325547,0.0685092287016,0.0684632555243,0.0685368126079,0.0689505712029,0.0684816447952,0.0679207720331,0.0678747988559,0.0675713758862,0.0677920471369,0.0674702348963,0.0672955368228,0.0674702348963,0.0675897651571,0.0673047314583,0.0677920471369,0.0681598325547,0.0682609735446,0.0689873497447,0.0688126516713,0.0691896317245,0.0694103029752,0.0695482225069,0.0692723834435,0.069529833236,0.0691896317245,0.0694103029752,0.0692999673498,0.0695114439651,0.0693183566207,0.0697872830284,0.0695941956841,0.0695022493296,0.0704033236033,0.0708446661046,0.0714239281377,0.0712308407933,0.0715618476693,0.0713411764187,0.0713319817832,0.0707711090211,0.0715986262111,0.0718284920973,0.0715434583985,0.0707159412084,0.0701182899045,0.0702194308944,0.0699711757373,0.0702286255298,0.070357350426,0.0706239948539,0.0703021826134,0.0703757396969,0.0704768806868,0.0709641963654,0.071534263763,0.071699767201,0.0720123848062,0.0718468813681,0.0727571502772,0.0727755395481,0.072793928819,0.073290439133,0.0730146000697,0.0733548015811,0.0737317816344,0.0742282919484,0.0747615808042,0.0756166819006,0.07539601065,0.075644265807,0.0760672190375,0.0763430581008,0.0765085615388,0.0764350044553,0.0766372864351,0.0768579576857,0.0769682933111,0.0762878902881,0.0770050718529,0.0773636626352,0.0775843338859,0.0773912465416,0.0779521193037,0.0781268173772,0.0782463476379,0.0782279583671,0.0785589652431,0.0789819184736,0.0786141330558,0.0784210457114,0.0790462809217,0.0793313146205,0.0794324556104,0.0796715161319,0.0796347375902,0.0792577575369,0.0793588985268,0.0794600395167,0.0793680931623,0.0793956770686,0.0785681598785,0.0792117843597,0.0792301736306,0.0792117843597,0.0798921873826,0.0806737313955,0.0807013153018,0.0812070202513,0.081924201816,0.0824023228591,0.0835424576543,0.0830091687985,0.0827793029124,0.0833401756745,0.0830275580694,0.0833861488518,0.0834229273935,0.0833401756745,0.0832482293201,0.0836435986442,0.0835608469252,0.0834597059353,0.0840757465102,0.0840849411456,0.084857290523,0.0852802437535,0.0863284321942,0.0869260834981,0.0875053455312,0.0878271577718,0.0889029301188,0.0909073606459,0.0919647437221,0.0932336034135,0.0937485029984,0.0939967581554,0.0947507182619,0.0950173626898,0.0958632691508,0.0967367595181,0.0973528000929,0.0971964912903,0.0974539410828,0.09749991426,0.0981619280121,0.0986124651489,0.0994767608807,0.0995043447871,0.100028439007,0.0999916604657,0.099770989215,0.100175553175,0.10080998302,0.100901929375,0.100957097187,0.101471996772,0.100791593749,0.102271930056,0.102253540785,0.103375286309,0.10339367558,0.103715487821,0.10389938053,0.10432233376,0.105407300743,0.105591193452,0.10617965012,0.10607850913,0.106400321371,0.106216428662,0.106676160434,0.107347368822,0.107080724394,0.108073745022,0.107577234708,0.108717369503,0.108827705128,0.109425356432,0.109406967161,0.109701195496,0.109977034559,0.110179316539,0.111540122585,0.111494149407,0.112395223681,0.111907908003,0.111871129461,0.111861934825,0.112643478838,0.113746835092,0.114280123947,0.114620325459,0.114831802074,0.115429453378,0.115089251867,0.115181198221,0.116027104682,0.116330527652,0.116404084735,0.115640929993,0.116955762862,0.117332742915,0.117608581978,0.117479857082,0.11804992448,0.119419925161,0.119245227088,0.11970495886,0.120881872197,0.121654221574,0.121001402458,0.121378382511,0.121608248397,0.122297846056,0.122582879754,0.122610463661,0.123437980851,0.124366639031,0.124339055124,0.124633283459,0.125019458147,0.125883753879,0.12569986117,0.125635498722,0.126159592942,0.12642623737,0.127216976019,0.127649123885,0.128651339148,0.129561608057,0.130830467749,0.131768320564,0.132568253848,0.133873892081,0.13448073802,0.133745167185,0.133745167185,0.133818724268,0.133441744215,0.133680804737,0.133368187131,0.133598053018,0.134021006248,0.134397986301,0.13437959703,0.136080604588,0.135869127972,0.13664147735,0.13674261834,0.137046041309,0.137551746259,0.136889732507,0.138039061938,0.138213760011,0.138360874178,0.13871946496,0.139096445014,0.138884968398,0.139804431943,0.140540002779,0.141064096999,0.1407790633,0.139933156839,0.140429667153,0.141247989708,0.141036513093,0.14263637966,0.142645574296,0.142847856275,0.143068527526,0.142020339085,0.143252420235,0.144116715967,0.144723561906,0.144879870709,0.14522007222,0.145026984876,0.145247656127,0.14511893123,0.145348797116,0.14665443535,0.146838328059,0.147629066707,0.147426784727,0.147500341811,0.148217523375,0.148346248272,0.1493392689,0.149348463535,0.149247322545,0.149449604525,0.150019671923,0.149642691869,0.150681685675,0.150902356925,0.151270142343,0.151490813594,0.15172067948,0.152879203546,0.153118264068,0.152915982088,0.152097659533,0.151150612082,0.149881752391,0.150396651976,0.150369068069,0.151021887186,0.15131611552,0.150920746196,0.151426451146,0.151297726249,0.151987323908,0.152805646462,0.153007928442,0.152915982088,0.153017123078,0.152934371359,0.151913766824,0.151665511667,0.151564370677,0.151472424323,0.150451819788,0.149679470411,0.149679470411,0.148925510305,0.147766986238,0.146829133423,0.146893495871,0.146893495871,0.145928059149,0.146157925036,0.146599267537,0.146810744152,0.145992421598,0.146406180193,0.14665443535,0.146323428474,0.145449938106,0.144539669197,0.143896044716,0.143105306068,0.141661748303,0.140852620384,0.139574566057,0.138314901001,0.138471209803,0.137413826727,0.13757013553,0.137303491102,0.137018457403,0.13696328959,0.137579330165,0.137634497978,0.138324095636,0.138645907877,0.136871343236,0.136779396882,0.136549530995,0.136586309537,0.136724229069,0.137119598393,0.13664147735,0.136420806099,0.135501342555,0.135262282033,0.135657651357,0.135133557137,0.134701409271,0.134673825365,0.134066979425,0.133147515881,0.131952213273,0.131657984939,0.131382145875,0.131520065407,0.131179863895,0.131722347387,0.131630401032,0.130664964311,0.130821273113,0.131023555093,0.130582212592,0.130333957435,0.13086724629,0.130186843267,0.129570802693,0.129423688525,0.128697312325,0.127970936125,0.127106640393,0.126453821277,0.127474425811,0.128164023469,0.127612345343,0.128016909302,0.12796174149,0.12796174149,0.128816842586,0.129736306131,0.130894830197,0.131106306812,0.131749931293,0.132733757286,0.13518872495,0.137082819851,0.139464230432,0.140990539915,0.142369735232,0.143316782683,0.142526044035,0.142645574296,0.142185842523,0.139822821214,0.137616108707,0.135060000053,0.133073958797,0.13117066926,0.129055903108,0.126288317839,0.125184961585,0.123925296529,0.122757577828,0.122077174805,0.120753147301,0.119318784171,0.11815106547,0.117066098487,0.115493815826,0.116063883224,0.115254755305,0.114362875666,0.112937707172,0.112045827534,0.111117169354,0.109508108151,0.107558845437,0.106446294548,0.105076293867,0.102777635006,0.102161594431,0.100570922499,0.100478976144,0.0998169623922,0.0984193778045,0.0979596460323,0.0979596460323,0.0966815917054,0.0965804507155,0.0965620614446,0.0956242086292,0.0959368262344,0.0949621948772,0.0945852148239,0.0948886377936,0.0947966914392,0.0944381006568,0.0946311880011,0.0939232010719,0.0938772278946,0.0935646102895,0.0924152808589,0.0924612540361,0.0919739383575,0.091716488565,0.0910728640839,0.0912383675219,0.0909993070003,0.0909993070003,0.0907694411142,0.0907510518433,0.0915142065853,0.0911740050738,0.090806219656,0.0913762870536,0.0911648104383,0.0905027966863,0.0902361522584,0.0903005147065,0.0899327292887,0.0893994404329,0.0886822588682,0.088700648139,0.0885075607947,0.0877352114173,0.0875789026147,0.08779037923,0.0876524596983,0.087109976207,0.0865858819867,0.086365210736,0.0859974253182,0.0854273579206,0.0859054789637,0.0855009150041,0.0851974920345,0.0844619211988,0.0842964177608,0.0836711825506,0.0838274913531,0.0835240683834,0.0828160814542,0.0826781619225,0.0820988998895,0.0816575573881,0.0818966179097,0.0816851412944,0.08159319494,0.081427691502,0.0811886309804,0.0814184968665,0.0814644700437,0.0813817183247,0.081758698378,0.0816207788463,0.0811058792614,0.080912791917,0.0802139996232,0.0804346708739,0.0801220532688,0.0797358785801,0.0798646034763,0.0790003077444,0.0775751392505,0.0770418503946,0.0772533270099,0.0765269508097,0.0762051385691,0.0758189638804,0.075809769245,0.0760856083083,0.0760672190375,0.0754971516399,0.0754052052854,0.0749822520549,0.0741731241358,0.0746236612726,0.0747523861688,0.0741455402294,0.0735478889255,0.0723158077758,0.0713595656896,0.0719939955353,0.0720951365252,0.0721503043378,0.0719939955353,0.0714147335022,0.070706746573,0.0709458070945,0.071120505168,0.071451512044,0.0719664116289,0.0715066798567,0.0709733910009,0.0706331894894,0.0702286255298,0.0700815113627,0.0703113772488,0.070191846988,0.0699987596437,0.0696677527677,0.0699527864665,0.0699803703728,0.0704860753223,0.0708906392819,0.0709733910009,0.0706239948539,0.0707986929274,0.0704676860514,0.0704125182387,0.070191846988,0.0692080209954,0.0690609068283,0.0686379535978,0.0686471482332,0.0685276179725,0.068352919899,0.0679115773976,0.0683805038053,0.0678747988559,0.0680494969293,0.0678747988559,0.0673598992709,0.0671668119266,0.0664864089036,0.0666978855189,0.0668909728632,0.0665231874454,0.0655945292655,0.0651899653059,0.0649968779615,0.06475781744,0.0646107032728,0.064675065721,0.0645647300956,0.0642796963968,0.0642980856677,0.063580904103,0.0638567431663,0.0639394948853,0.0633786221232,0.0638843270727,0.0637831860828,0.0631027830598,0.0627258030066,0.0623396283179,0.0620821785254,0.0629372796218,0.0628913064446,0.0635625148321,0.0635073470194,0.0627441922775,0.0626246620167,0.06290050108,0.0635625148321,0.0638107699891,0.06382915926,0.0634245953004,0.0630476152472,0.0622292926926,0.0620913731609,0.062321239047,0.0623672122242,0.0622017087862,0.0615856682114,0.0611811042518,0.0611075471682,0.0611902988873,0.0611902988873,0.0615488896696,0.0618890911811,0.0614753325861,0.0617695609203,0.0617511716494,0.0619718429001,0.0619350643583,0.062155735609,0.061990232171,0.0626798298294,0.0623947961306,0.0621741248799,0.0622660712343,0.0620637892545,0.0620821785254,0.0620178160773,0.0623120444116,0.0622109034217,0.0626062727458,0.0618155340975,0.0615580843051,0.0610891578974,0.0609144598239,0.0605742583124,0.0602432514364,0.0599306338313,0.0597835196642,0.0590847273703,0.0583675458056,0.0586158009626,0.0584778814309,0.0590755327349,0.0596456001325,0.059884660654,0.0600317748212,0.0594249288818,0.0589376132032,0.0590847273703,0.0589651971095,0.0589100292969,0.0588180829424,0.0589192239323,0.058726136588,0.0586249955981,0.0586158009626,0.0593513717982,0.0596180162261,0.0594065396109,0.0591215059121,0.0586066063272,0.0590203649222,0.058974391745,0.059057143464,0.0593421771628,0.0594525127881,0.0591490898184,0.0589100292969,0.0592870093501,0.0601237211756,0.0602708353427,0.0601329158111,0.0599306338313,0.0590663380994,0.0583767404411,0.0586617741398,0.0592042576311,0.0592042576311,0.0590479488285,0.0579813711169,0.0578526462207,0.0572825788231,0.0570251290306,0.0576871427827,0.0579262033042,0.0575216393447,0.057052712937,0.0570619075724,0.0572366056459,0.0577331159599,0.0576135856991,0.0577515052308,0.0582480155448,0.0580273442941,0.0574480822611,0.0572733841876,0.0571538539268,0.0571078807496,0.0565653972584,0.0566389543419,0.0568044577799,0.0570711022078,0.0567676792382,0.0564182830912,0.0569239880407,0.0571814378332,0.0573285520003,0.0576963374181,0.0581652638258,0.0582388209094,0.0579721764815,0.0579262033042,0.0583307672638,0.0586709687753,0.0585146599727,0.0582296262739,0.0581836530967,0.0581100960131,0.0578710354916,0.0580089550232,0.0581009013777,0.0578250623143,0.0574756661674,0.0574204983548,0.0574940554383,0.0577055320536,0.0574113037193,0.0569975451243,0.0564918401748,0.0563263367368,0.0566021758001,0.0567125114255,0.0564090884558,0.0565653972584,0.0564734509039,0.0560321084025,0.0560596923089,0.0561792225697,0.0563079474659,0.056620565071,0.0565653972584,0.0564826455394,0.0566389543419,0.0567676792382,0.0569699612179,0.057300968094,0.0577423105953,0.0578618408561,0.0584411028892,0.0585514385145,0.0586341902335,0.058726136588,0.0582572101803,0.0580089550232,0.0579262033042,0.0578526462207,0.0578526462207,0.0575860017928,0.0571078807496,0.0569331826762,0.0567952631445,0.0567584846027,0.0568320416863,0.057135464656,0.0574756661674,0.0572917734585,0.0572917734585,0.0579262033042,0.0584411028892,0.0580825121068,0.0583767404411,0.0586617741398,0.0591490898184,0.0591123112767,0.0590663380994,0.0592410361729,0.0594525127881,0.059305398621,0.0591766737248,0.0599030499249,0.0598938552895,0.0602064728946,0.0607489563859,0.0610523793556,0.0610983525328,0.061659225295,0.0617695609203,0.0617787555557,0.0619810375355,0.0613649969607,0.0612822452417,0.0612730506063,0.0606937885732,0.0603627816972,0.0603535870618,0.0603076138845,0.0597007679451,0.0598754660186,0.0597467411224,0.0601972782592,0.0603351977909,0.0597007679451,0.0594525127881,0.0596456001325,0.0593237878919,0.0587629151297,0.0592042576311,0.0592502308083,0.0595168752362,0.0591674790893,0.0592870093501,0.0600961372693,0.0604915065934,0.0603627816972,0.0606202314897,0.0607397617504,0.0609512383657,0.060565063677,0.0606202314897,0.0606845939378,0.0605466744061,0.0601972782592,0.0599766070085,0.0603260031554,0.0604271441453,0.0600777479984,0.0594433181527,0.0600961372693,0.0599490231022,0.0598662713832,0.0601788889883,0.0602708353427,0.0602524460719,0.0596456001325,0.0595444591426,0.0601972782592,0.0606753993023,0.0601788889883,0.0602984192491,0.0606753993023,0.0603443924263,0.0604087548744,0.0605558690415,0.0613190237835,0.0609512383657,0.0609420437302,0.0611902988873,0.0618798965456,0.0623764068597,0.0619718429001,0.0621373463381,0.0621465409735,0.0621925141508,0.0615580843051,0.0620821785254,0.0623120444116,0.0624683532141,0.0618890911811,0.0612178827936,0.0616316413886,0.0617051984722,0.0617971448266,0.0623672122242,0.0629556688927,0.0628085547256,0.0626798298294,0.0626890244648,0.062817749361,0.0629096957155,0.0625235210268,0.0625602995686,0.0628637225383,0.0627625815484,0.0624315746723,0.062403990766,0.0622752658698,0.061907480452,0.0619994268064,0.0620453999837,0.0627993600902,0.0629372796218,0.0624591585787,0.0621189570672,0.062486742485,0.0624775478496,0.0628637225383,0.0629832527991,0.0630751991535,0.0633234543105,0.0632315079561,0.0631763401434,0.0629740581636,0.0632958704042,0.0638107699891,0.0644176159285,0.0641969446778,0.0643716427513,0.0645095622829,0.0647394281691,0.0643900320222,0.0640590251461,0.0650796296805,0.0647486228045,0.0638751324372,0.0633602328523,0.0635073470194,0.0634797631131,0.0635533201967,0.0634521792068,0.0635257362903,0.0641233875942,0.063249897227,0.0638659378018,0.0639486895208,0.0639303002499,0.0642245285841,0.0642521124905,0.063746407541,0.0637923807182,0.0641233875942,0.0636268772802,0.063580904103,0.0636268772802,0.0638475485309,0.0637280182701,0.0635349309258,0.0632958704042,0.0636268772802,0.0638199646246,0.063580904103,0.0640406358752,0.0642980856677,0.0634429845713,0.0631119776953,0.0634337899359,0.0634062060295,0.0635900987384,0.0633694274877,0.0628453332674,0.0625970781104,0.0620086214419,0.0620453999837,0.0624775478496,0.0627258030066,0.0627258030066,0.0625143263914,0.0625235210268,0.0624131854015,0.0626430512876,0.0628361386319,0.0630751991535,0.0627074137357,0.0622936551407,0.0620913731609,0.0619534536292,0.0618155340975,0.0615121111278,0.0617879501912,0.0618798965456,0.0615488896696,0.0611351310746,0.0612178827936,0.0610799632619,0.0610064061784,0.0612362720645,0.0616224467532,0.0616960038367,0.0615488896696,0.0611627149809,0.0611994935227,0.0617603662849,0.061824728733,0.0619810375355,0.0623304336825,0.0620821785254,0.0617695609203,0.0618798965456,0.0621005677963,0.0621281517027,0.0621465409735,0.061907480452,0.0619258697229,0.0621741248799,0.0622660712343,0.0625970781104,0.0628913064446,0.0626890244648,0.0631579508725,0.0634337899359,0.0636912397283,0.0635717094675,0.064160166136,0.0642888910323,0.0644635891057,0.0642061393133,0.0637831860828,0.0637923807182,0.0631395616016,0.0627166083711,0.0626982191003,0.0629280849864,0.0620637892545,0.0620362053482,0.0609604330011,0.0609972115429,0.061392580867,0.0612362720645,0.0614017755025,0.0617511716494,0.0613466076898,0.061309829148,0.0614293594088,0.0615213057633,0.0620637892545,0.0622200980571,0.061907480452,0.062486742485,0.061990232171,0.0556091551721,0.0497061992163,0.0434998202909,0.0375876696996,0.0)
m <- c(0.0368815254512,0.0433091623232,0.0492724798178,0.0554451962473,0.0615723911692,0.0613994094404,0.0613994094404,0.0615268696616,0.0621004406573,0.0622916309892,0.0631110181258,0.0631201224274,0.063447877282,0.0632839998547,0.0632839998547,0.0632657912517,0.0631383310304,0.0634933987896,0.0635571289002,0.0638302579458,0.0637210063276,0.063921300961,0.0640305525792,0.0645677063688,0.0646678536855,0.0643856203384,0.0643218902278,0.0643036816248,0.0640669697853,0.063411460076,0.0628560976833,0.0630563923167,0.0628834105879,0.0630381837137,0.0631474353319,0.0635753375033,0.0638120493428,0.0634842944881,0.0638666751519,0.0638484665488,0.0644766633536,0.0647953139068,0.0649318784295,0.0651959031736,0.0654872408222,0.0653779892039,0.065678431154,0.0660608118178,0.0657967870738,0.0665797570044,0.0664796096877,0.0660608118178,0.0667891559393,0.066625278512,0.0667345301302,0.0666981129241,0.0664978182907,0.0664249838786,0.0670713892864,0.0671078064924,0.0666070699089,0.0664340881801,0.0657785784707,0.065906038692,0.0656966397571,0.0654599279176,0.0654235107115,0.065906038692,0.0657330569632,0.0658605171844,0.065906038692,0.0661882720391,0.0660699161193,0.0658605171844,0.0661609591345,0.0668437817484,0.0666799043211,0.0667345301302,0.0664067752755,0.0666981129241,0.0672807882213,0.0672443710152,0.0676176473775,0.0676722731866,0.067854359217,0.0675812301714,0.0677906291063,0.0678816721215,0.0686737463536,0.0683459914989,0.0681821140716,0.0682640527853,0.0684097216096,0.0687465807658,0.0679089850261,0.068136592564,0.0685644947354,0.0685098689263,0.0679454022321,0.0674719785532,0.0676631688851,0.0672534753167,0.0679271936291,0.0674446656486,0.0677633162018,0.0680182366443,0.0675175000608,0.0671806409046,0.0672807882213,0.0674719785532,0.067626751679,0.0675266043623,0.0665524440998,0.066643487115,0.0663521494664,0.0659424558981,0.0660699161193,0.0663157322603,0.0658149956768,0.0664614010846,0.0662884193558,0.0668255731454,0.0667345301302,0.0667436344317,0.0667436344317,0.0669439290651,0.0672807882213,0.0673445183319,0.0677997334078,0.0673081011258,0.0670804935879,0.0666708000196,0.0670895978894,0.0669985548742,0.0674082484425,0.0680455495488,0.0680091323428,0.0674264570456,0.0677268989957,0.0674810828547,0.0675812301714,0.0680091323428,0.0679271936291,0.0680637581519,0.0682731570868,0.0681456968655,0.0674355613471,0.0677724205033,0.0671442236985,0.0674628742517,0.067362726935,0.0671624323016,0.0665706527029,0.0664887139892,0.066170063436,0.0657967870738,0.0663521494664,0.0662337935467,0.066151854833,0.0659970817072,0.0660972290239,0.065642013948,0.0661063333254,0.0662793150543,0.0660334989133,0.0653233633948,0.0655964924404,0.0658149956768,0.0661427505315,0.0666070699089,0.0664796096877,0.0671624323016,0.0671806409046,0.0672443710152,0.0677906291063,0.0682003226747,0.0675630215684,0.0673354140304,0.0670713892864,0.066661695718,0.0667436344317,0.0665797570044,0.0672807882213,0.0672625796183,0.0672079538091,0.0669803462712,0.066661695718,0.0671715366031,0.0671442236985,0.0668528860499,0.0672170581107,0.0669803462712,0.0665433397983,0.0659515601996,0.0659879774057,0.0659970817072,0.0667618430347,0.0667345301302,0.0664522967831,0.0667982602408,0.0661791677376,0.0655418666313,0.0653051547918,0.0655782838373,0.0654417193146,0.0656238053449,0.0657603698677,0.0651594859675,0.0657421612647,0.0654872408222,0.065396197807,0.0664249838786,0.0663703580694,0.0663612537679,0.0662428978482,0.0661245419284,0.0658696214859,0.0655236580282,0.0651412773645,0.0656055967419,0.0659151429935,0.0659515601996,0.0659515601996,0.0657421612647,0.0660061860087,0.0663521494664,0.0662155849436,0.0662702107527,0.0664705053862,0.0659333515966,0.0658149956768,0.0650593386508,0.0652232160781,0.0654781365206,0.0649409827311,0.0650593386508,0.0650866515553,0.0652687375857,0.0656055967419,0.0653688849024,0.0651594859675,0.0654417193146,0.0650502343493,0.0646223321779,0.0647862096052,0.064167117102,0.0640487611822,0.0644675590521,0.0645403934642,0.0648863569219,0.0652141117766,0.0648590440174,0.0649136698265,0.0653324676963,0.065432615013,0.0656693268525,0.0656966397571,0.0650684429523,0.0649773999371,0.0653324676963,0.0650593386508,0.0655509709328,0.0649682956356,0.0647953139068,0.0645768106703,0.064658749384,0.0647771053037,0.0655145537267,0.0650866515553,0.0650320257462,0.0648317311128,0.0647315837961,0.0647680010022,0.0642581601172,0.0644857676551,0.0643674117354,0.0642854730217,0.0639668224686,0.06367548482,0.0629744536031,0.0633750428699,0.0634023557744,0.0636208590109,0.0640487611822,0.0643218902278,0.0646496450825,0.0644493504491,0.0640942826898,0.0645403934642,0.0647497923992,0.0640942826898,0.0640487611822,0.0642945773232,0.0639668224686,0.063411460076,0.0632839998547,0.0637574235337,0.0637483192321,0.0635025030911,0.063411460076,0.0637574235337,0.0634933987896,0.0638484665488,0.0641033869914,0.0640123439762,0.0638393622473,0.0631747482365,0.0631019138243,0.0630837052213,0.0631474353319,0.0625465514317,0.0631019138243,0.0630108708091,0.0629471406985,0.0629016191909,0.0628469933818,0.0632748955532,0.0638939880564,0.0641580128005,0.0640214482777,0.0649773999371,0.0644675590521,0.0641489084989,0.0640396568807,0.0644402461475,0.063939509564,0.0633386256638,0.0622825266877,0.0616998513905,0.061481348154,0.060989715872,0.0608804642538,0.0602431631475,0.059742426564,0.0596604878504,0.0598698867853,0.0603615190673,0.0608440470478,0.0611080717918,0.061708955692,0.0616361212799,0.0617999987072,0.0618637288178,0.0627195331606,0.0626102815423,0.0625283428287,0.062446404115,0.0625283428287,0.062200587974,0.0617999987072,0.0623826740044,0.0622734223861,0.0629107234924,0.0628743062864,0.0627013245575,0.0632293740456,0.0632202697441,0.063447877282,0.0634023557744,0.0630654966183,0.0631110181258,0.0635025030911,0.0631019138243,0.0628743062864,0.062938036397,0.0623462567983,0.0619183546269,0.0615632868677,0.0618455202148,0.0620276062452,0.0616452255814,0.0608804642538,0.06121732341,0.0612446363146,0.0613812008373,0.0616816427874,0.062464612718,0.0625101342256,0.0623462567983,0.0626831159545,0.0628378890803,0.0634660858851,0.0636481719154,0.0637392149306,0.0638029450412,0.0636663805185,0.0635753375033,0.063447877282,0.0634751901866,0.0637027977245,0.0638120493428,0.0637119020261,0.0635389202972,0.063411460076,0.0633568342668,0.0633932514729,0.0636390676139,0.0642399515141,0.0646405407809,0.0645768106703,0.0645859149718,0.064658749384,0.0645859149718,0.0643674117354,0.0645130805597,0.0648226268113,0.0648408354143,0.0644584547506,0.0642308472126,0.0640578654838,0.0639668224686,0.0643856203384,0.0648135225098,0.0656147010434,0.0652050074751,0.0652960504903,0.0652960504903,0.0653870935055,0.0654872408222,0.0657148483601,0.06613364623,0.066397670974,0.066170063436,0.0664522967831,0.0667709473363,0.0668255731454,0.0665615484013,0.0668164688439,0.0670987021909,0.0670987021909,0.0667709473363,0.0660517075163,0.0662337935467,0.0660426032148,0.0659697688026,0.0660426032148,0.0660608118178,0.066151854833,0.0664522967831,0.0671715366031,0.0670167634773,0.0674355613471,0.0675175000608,0.0670713892864,0.0676358559805,0.0675630215684,0.0678361506139,0.0677360032972,0.0676540645835,0.0675448129653,0.0683733044035,0.068382408705,0.0686464334491,0.0689741883037,0.069119857128,0.0690925442235,0.0693110474599,0.0696388023146,0.0694385076812,0.0699028270586,0.0695022377918,0.0693292560629,0.0689377710976,0.0694294033796,0.0697298453298,0.0702669991193,0.0707586314013,0.0707677357029,0.0709043002256,0.0708678830196,0.071350411,0.0720969637245,0.072561283102,0.072561283102,0.0729072465597,0.0729527680673,0.0722608411519,0.0725703874035,0.0733624616356,0.0729982895749,0.0728617250521,0.072579491705,0.0728617250521,0.0728708293536,0.072561283102,0.0724338228807,0.0729891852734,0.0733442530326,0.0731803756052,0.0736446949827,0.073562756269,0.0736446949827,0.0736902164903,0.0740817014556,0.074036179948,0.0746006466421,0.0744913950239,0.0741909530738,0.0742000573753,0.0740634928525,0.0752379477484,0.0752470520499,0.0754564509849,0.0751195918287,0.0755657026031,0.0756840585228,0.0763304639306,0.0769040349263,0.0772135811779,0.0781695328373,0.07800565541,0.0788250425467,0.0793348834317,0.079480552256,0.0796717425879,0.079990393141,0.0799175587289,0.0798174114122,0.079953975935,0.079462343653,0.0793439877332,0.0791619017029,0.0793075705272,0.0800814361562,0.0806459028504,0.0808644060868,0.0811648480369,0.0819933394751,0.0825122846616,0.0835319664317,0.0844059793775,0.0850523847853,0.0857989375098,0.0864089257115,0.0866092203449,0.0867002633601,0.0871827913406,0.0866092203449,0.0866820547571,0.0859992321432,0.0854711826551,0.0850250718807,0.0844788137896,0.0846153783124,0.084151058935,0.0852162622126,0.0850523847853,0.0855349127658,0.085398348243,0.0856805815901,0.0858262504144,0.0860083364447,0.0859901278417,0.0859719192387,0.0865454902343,0.0862086310781,0.0864271343146,0.0864635515207,0.0869824967072,0.0865728031389,0.0870735397224,0.0870644354209,0.0870007053102,0.0872920429588,0.0870917483254,0.0870462268178,0.0872556257528,0.0875651720044,0.087856509653,0.0890127559458,0.089103798961,0.0900324377159,0.0907425732343,0.0907334689328,0.0916530033862,0.0918441937181,0.092581642141,0.09305506582,0.0931643174382,0.0935922196096,0.0942568336204,0.0952218895814,0.0953766627072,0.0953675584057,0.0952400981844,0.0958500863862,0.0954403928178,0.0964145530803,0.0964782831909,0.0961778412408,0.0965693262061,0.0959593380044,0.0964600745879,0.0966785778243,0.0968424552517,0.0968333509502,0.0976800509914,0.0974615477549,0.0990639048222,0.0993188252647,0.0993279295662,0.100493280161,0.102277723258,0.103697994295,0.105728253534,0.106684205193,0.107977016009,0.109096845095,0.109734146202,0.112055743089,0.113184676477,0.115415230349,0.115588212078,0.116043427154,0.116298347597,0.117354446573,0.117827870252,0.118856656323,0.118528901469,0.119412018716,0.120941541371,0.121141836004,0.123126573735,0.124883703928,0.127378282545,0.130692248297,0.133860545226,0.136336915239,0.139696402499,0.140870857395,0.140898170299,0.141098464933,0.140442955223,0.140033261655,0.137738977673,0.134789183981,0.132239979555,0.129854652558,0.12753305567,0.125457274924,0.125439066321,0.124637887787,0.124109838299,0.123845813555,0.124783556612,0.12573040397,0.126303974965,0.126012637317,0.126422330885,0.127259926625,0.126595312614,0.126804711549,0.127687828796,0.127933644937,0.127724246002,0.127405595449,0.126913963167,0.127496638464,0.127423804052,0.126795607247,0.127059631991,0.127150675007,0.126968588976,0.127423804052,0.127760663208,0.12878944928,0.128962431009,0.129954799874,0.129872861161,0.13106552466,0.132239979555,0.132822654853,0.132640568822,0.13286817636,0.133068470994,0.132831759154,0.13358741618,0.132931906471,0.133860545226,0.133751293607,0.133960692542,0.134716349568,0.13526260766,0.13472545387,0.134862018393,0.135708718434,0.136418853952,0.137019737853,0.138066732527,0.138521947603,0.138121358336,0.137638830356,0.137802707783,0.138248818558,0.138467321794,0.138312548668,0.138576573412,0.138840598156,0.139004475584,0.139177457312,0.140142513273,0.140215347686,0.139960427243,0.140971004712,0.141216820853,0.140706979968,0.14066145846,0.140752501475,0.140697875666,0.140907274601,0.141371593978,0.141453532692,0.142700822,0.143110515568,0.143966319911,0.144694664033,0.144876750063,0.146588358748,0.147061782427,0.147471475996,0.147262077061,0.147808335152,0.147881169564,0.148718765304,0.14887353843,0.149456213727,0.150148140642,0.149265023395,0.148509366369,0.148409219052,0.148645930892,0.149201293284,0.149519943837,0.147890273866,0.147344015774,0.146551941542,0.146324334004,0.145896431833,0.145778075913,0.146014787753,0.146242395291,0.146378959814,0.145823597421,0.146770444779,0.146806861985,0.147589831915,0.146998052317,0.14761714482,0.148117881404,0.148327280338,0.147808335152,0.146888800699,0.146943426508,0.146069413562,0.146078517863,0.145295547933,0.145049731792,0.144084675831,0.143565730644,0.142746343508,0.142445901558,0.142063520894,0.141471741295,0.141580992913,0.140570415445,0.140106096067,0.140515789636,0.140579519746,0.140024157354,0.139796549816,0.139787445514,0.139869384228,0.140087887464,0.139505212167,0.139532525072,0.139077309996,0.137857333592,0.137265553994,0.136364228143,0.135981847479,0.134698140965,0.134852914091,0.133742189306,0.133541894673,0.133851440924,0.133642041989,0.133541894673,0.133359808642,0.133632937688,0.134024422653,0.134716349568,0.134215612985,0.134033526955,0.133423538753,0.132412961284,0.13203058062,0.131083733263,0.130883438629,0.130619413885,0.129836443955,0.128771240677,0.128179461078,0.127569472876,0.127696933098,0.127742454605,0.127305448132,0.127587681479,0.126923067469,0.126231140553,0.125566526542,0.125885177096,0.12501116415,0.124546844772,0.12417356841,0.123490745796,0.123436119987,0.122762401675,0.122334499503,0.122589419946,0.122225247885,0.12099616718,0.12087781126,0.120404387581,0.12009484133,0.120103945631,0.119430227319,0.119239036987,0.118847552022,0.118792926213,0.119056950957,0.118920386434,0.118283085328,0.118501588564,0.117709514332,0.116871918592,0.115742985204,0.115651942189,0.115469856158,0.114987328178,0.114386444278,0.114787033545,0.11475972064,0.114249879755,0.11464136472,0.113976750709,0.114796137846,0.114359131373,0.11385839479,0.113011694748,0.111445754887,0.110125631167,0.109633998885,0.109178783809,0.107703886963,0.107722095566,0.107039272952,0.106429284751,0.107048377254,0.106820769716,0.107640156853,0.107285089093,0.10756732244,0.107576426742,0.108204623547,0.107940598803,0.107157628872,0.107130315968,0.1055279589,0.105609897614,0.104872449191,0.105409602981,0.104681258859,0.104417234115,0.104453651321,0.103798141612,0.10444454702,0.103597846978,0.103989331944,0.103406656646,0.103051588887,0.10205011572,0.101667735056,0.101003121046,0.100447758653,0.100948495236,0.100220151115,0.101230728584,0.100593427477,0.100074482291,0.100065377989,0.100374924241,0.100211046813,0.100384028542,0.0996465801194,0.0992824080586,0.0989091316964,0.0978075112126,0.0973158789306,0.096514700397,0.0956771046573,0.0947393616009,0.0938380357506,0.09305506582,0.0919534453363,0.0906060087115,0.089595431243,0.0878656139545,0.0872647300543,0.0864635515207,0.0852526794187,0.0841783718395,0.0833771933059,0.0819933394751,0.0817930448417,0.0815199157961,0.0812649953536,0.0817384190326,0.081219473846,0.0810555964187,0.0811011179263,0.0809099275944,0.0804000867094,0.0808279888807,0.0805639641367,0.0802999393927,0.0799812888395,0.0793348834317,0.0790253371801,0.0788614597528,0.078743103833,0.078743103833,0.0793439877332,0.0785428091996,0.0778964037918,0.0775959618417,0.0778417779827,0.077249998384,0.0771407467658,0.0767856790065,0.0765944886747,0.0760664391866,0.0751651133363,0.0755657026031,0.0763941940413,0.0757842058395,0.0751651133363,0.0754837638894,0.0751924262408,0.0751286961302,0.0751651133363,0.0753380950651,0.0754655552864,0.0749830273059,0.0740634928525,0.0749192971953,0.0751560090347,0.0749557144013,0.0749648187029,0.0751013832256,0.0748828799892,0.0746461681497,0.0748191498786,0.0748555670846,0.0747281068634,0.0739906584404,0.0737630509024,0.0736355906812,0.0731803756052,0.0724975529914,0.0721515895337,0.0714778712213,0.071313993794,0.0712411593818,0.0713230980955,0.0713230980955,0.0709498217332,0.0708769873211,0.0714141411107,0.071350411,0.0712229507788,0.0714505583167,0.0709316131302,0.0707222141953,0.0705492324664,0.0699483485662,0.0700484958829,0.0701486431996,0.0695750722039,0.0695113420933,0.0701850604057,0.0700758087875,0.0704672937527,0.0700667044859,0.0697662625358,0.0701941647072,0.0697298453298,0.069101648525,0.0688376237809,0.0685098689263,0.0677906291063,0.0677360032972,0.0671715366031,0.0673081011258,0.067153328,0.0670895978894,0.0663885666725,0.0667072172256,0.0671078064924,0.0674446656486,0.0670895978894,0.0667254258287,0.0665615484013,0.0660426032148,0.065887830089,0.0653324676963,0.0659697688026,0.0653051547918,0.0648135225098,0.064658749384,0.0650411300478,0.0653870935055,0.0650866515553,0.0653870935055,0.0657057440586,0.0660881247224,0.0658240999783,0.0662520021497,0.066170063436,0.0660699161193,0.065678431154,0.0653051547918,0.06541440641,0.0652960504903,0.0651139644599,0.0645312891627,0.0644493504491,0.0640214482777,0.0644857676551,0.0645586020673,0.0647862096052,0.0649409827311,0.0651412773645,0.0650138171432,0.0642308472126,0.0640851783883,0.0643218902278,0.0642308472126,0.0633568342668,0.0631292267289,0.0624190912104,0.0622643180846,0.0620185019436,0.061708955692,0.0620093976421,0.062464612718,0.0625283428287,0.0623189438937,0.0621004406573,0.0623280481953,0.0623917783059,0.0620731277527,0.0615723911692,0.0623189438937,0.0627650546681,0.0622643180846,0.0613265750282,0.0616543298829,0.0618182073102,0.0614085137419,0.0610807588872,0.0608986728569,0.061235532013,0.0605253964946,0.0599245125944,0.0595057147245,0.0597151136595,0.0598698867853,0.0596604878504,0.0597879480716,0.0598152609762,0.0599245125944,0.059250794282,0.0595239233276,0.0596786964534,0.0604252491779,0.0604070405749,0.0598425738807,0.0605253964946,0.0603251018612,0.0601248072278,0.0599609298005,0.0606073352083,0.0602613717506,0.0598971996898,0.0591779598699,0.0589776652365,0.0591688555684,0.0587682663015,0.0586772232864,0.059232585679,0.0588775179198,0.058759162,0.0589776652365,0.0588866222213,0.0591961684729,0.0595239233276,0.0593691502018,0.0589503523319,0.0586225974773,0.0584314071454,0.0587682663015,0.0585042415575,0.058513345859,0.058968560935,0.0591233340608,0.058722744794,0.0588411007137,0.0588684136183,0.0590960211562,0.0584860329545,0.0587500576985,0.0588866222213,0.0586317017788,0.0582948426226,0.0580945479892,0.0579397748634,0.0576302286117,0.0576757501193,0.058267529718,0.0588319964122,0.0585588673666,0.058722744794,0.0587045361909,0.0586499103818,0.058759162,0.0591415426638,0.0588775179198,0.0594055674078,0.0586499103818,0.0591233340608,0.059250794282,0.0588593093167,0.0585224501605,0.0589412480304,0.0587682663015,0.0582766340196,0.0588411007137,0.0586134931757,0.0590869168547,0.0585588673666,0.0581491737983,0.0585406587636,0.0585497630651,0.0588502050152,0.0588319964122,0.0595694448352,0.0597515308655,0.0598243652777,0.0591870641714,0.0591779598699,0.0597788437701,0.0595239233276,0.0601430158308,0.0596786964534,0.0598971996898,0.0596878007549,0.0597788437701,0.0596695921519,0.0600792857202,0.0602249545445,0.0597788437701,0.0597515308655,0.0596878007549,0.0596331749458,0.0595239233276,0.0590869168547,0.0587136404924,0.0586317017788,0.0581673824013,0.0581400694968,0.0580854436877,0.0577030630239,0.0575027683905,0.0575664985011,0.0577303759284,0.0583494684317,0.0583585727332,0.0583949899393,0.0586954318894,0.0583130512256,0.0585588673666,0.0594055674078,0.0591688555684,0.0586590146833,0.0587955792061,0.0586225974773,0.058495137256,0.0584587200499,0.0581764867028,0.0585679716681,0.0582948426226,0.0580763393861,0.0581946953059,0.0580763393861,0.0580763393861,0.0576848544209,0.0519127272582,0.0460677656833,0.0406051847723,0.034578137167,0.0)
ycorr <- c(8.33706345935e-05,8.3222726449e-05,8.27914172963e-05,8.20718454813e-05,8.10626321564e-05,7.97664438262e-05,7.8168621408e-05,7.65195341104e-05,7.48116825064e-05,7.30312534629e-05,7.11733570979e-05,6.92347963614e-05,6.72090888089e-05,6.51007660389e-05,6.29297846896e-05,6.07073004037e-05,5.84440117099e-05,5.61661831345e-05,5.3899971446e-05,5.16751058918e-05,4.95153169785e-05,4.74422903566e-05,4.5464940576e-05,4.35961966278e-05,4.18129709414e-05,4.01058024667e-05,3.84712757933e-05,3.68957613677e-05,3.53622267575e-05,3.3847700119e-05,3.23335546526e-05,3.08116017616e-05,2.92726304961e-05,2.77141629907e-05,2.61404901053e-05,2.45581617258e-05,2.29567454425e-05,2.13354216253e-05,1.96977005315e-05,1.8052544527e-05,1.64053018801e-05,1.47540942864e-05,1.30973793355e-05,1.14356248637e-05,9.76519245328e-06,8.08101059417e-06,6.38669764023e-06,4.68596104849e-06,2.98061603882e-06,1.26161141501e-06,-4.67080801149e-07,-2.21243406584e-06,-3.96842937297e-06,-5.74466020008e-06,-7.547770009e-06,-9.37434869874e-06,-1.1217701067e-05,-1.30757605142e-05,-1.49449935873e-05,-1.68210363627e-05,-1.87038972232e-05,-2.05933029886e-05,-2.24901693522e-05,-2.43968182231e-05,-2.63030057818e-05,-2.82058634413e-05,-3.01073692839e-05,-3.20094723537e-05,-3.39141393956e-05,-3.5831754552e-05,-3.77668755455e-05,-3.97117885729e-05,-4.16738541309e-05,-4.36414255015e-05,-4.56114714873e-05,-4.75832933727e-05,-4.95568350227e-05,-5.15310184031e-05,-5.35131370687e-05,-5.54982385714e-05,-5.74812206399e-05,-5.94660067716e-05,-6.14560795774e-05,-6.345171036e-05,-6.54624382371e-05,-6.74906065533e-05,-6.95361413113e-05,-7.1605462315e-05,-7.3696397155e-05,-7.57988621453e-05,-7.79139276114e-05,-8.00397263055e-05,-8.2170283191e-05,-8.43042159019e-05,-8.64398512535e-05,-8.85740166868e-05,-9.07166141696e-05,-9.28668820051e-05,-9.50225985308e-05,-9.71904049427e-05,-9.93777217097e-05,-0.000101594139673,-0.000103835134424,-0.000106105451172,-0.000108400889316,-0.000110721966493,-0.000113064778852,-0.000115429485683,-0.000117816591192,-0.000120221555078,-0.000122641191052,-0.000125066015649,-0.000127482456401,-0.000129891124813,-0.000132293039245,-0.000134694709426,-0.000137096837218,-0.000139489958327,-0.000141864574355,-0.000144219791599,-0.000146553785041,-0.000148868996601,-0.000151180042831,-0.000153497834416,-0.000155823718326,-0.00015815294248,-0.000160474380871,-0.000162790741734,-0.000165111031219,-0.000167440831937,-0.000169776585019,-0.000172119924205,-0.00017446936805,-0.000176817036862,-0.00017915383528,-0.000181475541884,-0.000183786595413,-0.00018608800903,-0.000188377483526,-0.000190652109936,-0.000192911019129,-0.000195158266566,-0.000197390836285,-0.000199604473038,-0.000201798760957,-0.000203977525512,-0.000206145399257,-0.000208303475818,-0.000210455296965,-0.000212596554252,-0.000214736621848,-0.0002168711435,-0.00021899702092,-0.000221112914467,-0.000223227108101,-0.000225343181345,-0.000227462173832,-0.000229578865711,-0.0002316855946,-0.000233786093513,-0.00023587293034,-0.000237941658058,-0.000239995521004,-0.000242042558754,-0.000244079229107,-0.00024610321263,-0.000248105048297,-0.000250089610688,-0.000252065066076,-0.000254033782944,-0.000255997523555,-0.000257963807853,-0.000259931445612,-0.000261904032085,-0.000263879923972,-0.000265859652847,-0.000267839769428,-0.000269822305836,-0.000271797446019,-0.00027375630175,-0.00027569746932,-0.000277621495298,-0.000279528703201,-0.00028141754395,-0.000283281308433,-0.000285119247847,-0.000286938101438,-0.00028874097164,-0.000290536850057,-0.000292331593184,-0.00029413112509,-0.00029593043555,-0.000297723903948,-0.000299508342364,-0.000301288763651,-0.000303059990342,-0.000304820024824,-0.000306568615679,-0.000308298411474,-0.000310009928878,-0.00031169869227,-0.000313365291576,-0.00031502265752,-0.000316669917555,-0.000318304188347,-0.000319926424366,-0.000321542944175,-0.00032315324597,-0.00032475700886,-0.000326355998113,-0.00032794831587,-0.000329533751279,-0.000331112738433,-0.000332682151772,-0.000334248374654,-0.000335813177631,-0.00033737326716,-0.000338923464621,-0.000340464597805,-0.000341987725777,-0.000343498072785,-0.000344996491952,-0.00034648407365,-0.000347957489582,-0.000349417187193,-0.00035086359103,-0.000352299272609,-0.000353727872734,-0.000355147997377,-0.000356569105245,-0.000357996753126,-0.00035942498411,-0.000360849026349,-0.000362263173484,-0.000363663423256,-0.00036504714245,-0.000366411028063,-0.000367753680718,-0.000369079443857,-0.000370395732039,-0.000371691312778,-0.000372976656701,-0.00037424750299,-0.000375513356515,-0.000376778593204,-0.000378051675566,-0.000379334238131,-0.000380629575736,-0.000381938294169,-0.000383245060556,-0.000384554758948,-0.000385858749932,-0.000387157761032,-0.000388454346956,-0.000389748476345,-0.000391039892863,-0.000392325778995,-0.000393607107881,-0.000394875855282,-0.000396140728182,-0.000397399639392,-0.00039865166358,-0.000399905209721,-0.000401151796742,-0.000402391040824,-0.000403614626359,-0.000404824349122,-0.000406015488977,-0.000407196605086,-0.000408368534885,-0.000409535121409,-0.000410700561532,-0.000411856397806,-0.000413006102267,-0.000414153911287,-0.000415303069324,-0.000416456102844,-0.000417609738778,-0.00041876419083,-0.000419906433558,-0.000421034823931,-0.00042214079837,-0.000423227734941,-0.000424299406452,-0.000425352270977,-0.000426379080186,-0.000427379130463,-0.000428349990492,-0.000429292315972,-0.000430210142427,-0.000431098296036,-0.000431962983493,-0.000432799672699,-0.000433601754072,-0.000434366062844,-0.000435096994944,-0.000435792926989,-0.000436458987265,-0.000437094985869,-0.000437705095231,-0.000438293429032,-0.000438864838141,-0.000439418898752,-0.000439961197488,-0.000440500168643,-0.000441035257994,-0.000441569670026,-0.000442106494088,-0.000442642048349,-0.000443176742518,-0.000443709321116,-0.000444234533982,-0.000444757318266,-0.000445281448036,-0.000445801976067,-0.000446322588576,-0.000446840108511,-0.000447347887933,-0.000447849070541,-0.000448345563763,-0.000448833600841,-0.000449317327098,-0.000449797030104,-0.000450268280634,-0.000450729168387,-0.000451178970925,-0.000451619916307,-0.000452063627068,-0.000452505905842,-0.000452943971802,-0.00045337930404,-0.000453813255738,-0.000454242944453,-0.000454669420336,-0.000455094288102,-0.000455517600944,-0.000455940738653,-0.000456351308074,-0.000456752380175,-0.000457150670943,-0.000457546606463,-0.000457937074896,-0.000458324915365,-0.000458708874948,-0.000459086175294,-0.000459457687838,-0.000459818997144,-0.000460173881939,-0.000460523716848,-0.000460859850546,-0.0004611803725,-0.000461484194858,-0.000461767899701,-0.000462030813978,-0.000462269725022,-0.00046248743532,-0.000462685329373,-0.000462865237972,-0.000463023524999,-0.000463162026795,-0.000463281602412,-0.00046338750415,-0.000463481551513,-0.000463566410539,-0.000463646173053,-0.000463721451909,-0.000463789010082,-0.000463847913399,-0.00046389666999,-0.000463940292811,-0.000463981715836,-0.000464015931265,-0.000464041519013,-0.000464062887962,-0.00046408028643,-0.000464093085803,-0.000464101280866,-0.000464105586656,-0.000464108541115,-0.000464108005326,-0.000464099724303,-0.000464086694429,-0.000464072392967,-0.000464049185631,-0.000464011012342,-0.000463957390339,-0.000463888100134,-0.00046380621616,-0.000463712277823,-0.000463598456666,-0.000463471381362,-0.000463332061263,-0.00046317549869,-0.000463000762681,-0.00046281229676,-0.000462609061722,-0.000462389578173,-0.000462150427374,-0.000461889493639,-0.000461612091789,-0.000461317419548,-0.000461000609863,-0.00046066286209,-0.000460308222534,-0.00045993847516,-0.000459550854619,-0.000459151196324,-0.000458741737726,-0.000458324913595,-0.000457899837321,-0.000457463636715,-0.000457021325726,-0.000456574280399,-0.000456118765074,-0.000455653077581,-0.000455179811964,-0.000454701493105,-0.000454214102425,-0.00045371479917,-0.000453205459509,-0.000452688680237,-0.000452163990652,-0.000451629550834,-0.000451086962013,-0.000450536392357,-0.000449976366928,-0.000449401347711,-0.000448808952692,-0.000448198237623,-0.000447572019109,-0.000446921793024,-0.000446242720489,-0.000445535223928,-0.000444797635608,-0.000444029186524,-0.000443230292096,-0.00044240107569,-0.000441545215302,-0.000440669812616,-0.000439775184892,-0.000438860441832,-0.000437930482312,-0.000436992001844,-0.000436043869707,-0.000435089557171,-0.000434126447691,-0.000433160069005,-0.000432192040231,-0.000431216846575,-0.000430225976365,-0.000429223953881,-0.000428208236818,-0.000427175227398,-0.000426119343377,-0.000425040156099,-0.000423939132246,-0.00042281476755,-0.000421657378919,-0.000420463134763,-0.000419236648591,-0.00041798235561,-0.000416697037796,-0.000415384823315,-0.000414049642509,-0.000412692256537,-0.000411308299877,-0.000409896142029,-0.000408462518489,-0.000407018711736,-0.000405564455731,-0.00040409663437,-0.000402619394665,-0.000401127833563,-0.000399619296722,-0.000398092232276,-0.000396553226102,-0.000395004718956,-0.000393442518219,-0.000391860252986,-0.000390252384233,-0.000388624045827,-0.00038697439776,-0.000385299696295,-0.000383610729831,-0.000381905653814,-0.000380186847973,-0.000378451239211,-0.000376700737224,-0.00037493665318,-0.000373164604757,-0.000371381894774,-0.000369587315344,-0.000367782100547,-0.000365962825781,-0.000364124641363,-0.000362266918712,-0.000360390537191,-0.000358497811582,-0.000356588850634,-0.000354660969508,-0.000352712119209,-0.000350738965686,-0.000348743111842,-0.000346722616784,-0.000344684014771,-0.000342627910837,-0.000340552028057,-0.000338451362331,-0.000336321960208,-0.000334164803512,-0.000331982298259,-0.000329775967222,-0.00032755341145,-0.000325311091023,-0.000323049095961,-0.000320761738362,-0.000318444800199,-0.000316100467917,-0.000313731317041,-0.000311337385145,-0.000308913561186,-0.000306466677485,-0.000303987064983,-0.000301476906082,-0.000298935529703,-0.000296364037509,-0.00029376508266,-0.000291144490997,-0.000288505634162,-0.000285845739039,-0.000283171424181,-0.000280482625413,-0.000277778371563,-0.000275060721752,-0.000272325028123,-0.000269576309533,-0.0002668157896,-0.000264045300834,-0.000261257764433,-0.000258459261378,-0.000255651793128,-0.000252828046749,-0.000249985587176,-0.000247124378832,-0.000244252058798,-0.000241363996412,-0.000238460917051,-0.000235539882558,-0.000232601928639,-0.000229647082548,-0.000226671361748,-0.000223675096567,-0.000220665840965,-0.000217649765,-0.000214618892886,-0.000211573207023,-0.000208515985648,-0.000205444534946,-0.000202364351484,-0.000199268943761,-0.0001961564202,-0.00019302615908,-0.000189874946225,-0.000186698040709,-0.000183497532126,-0.000180277166884,-0.000177034285145,-0.000173768544153,-0.000170476608518,-0.000167160560291,-0.000163823003838,-0.000160467153668,-0.000157092890577,-0.000153698879999,-0.000150287258342,-0.000146857612967,-0.000143407401212,-0.000139933402513,-0.000136439433998,-0.000132927186107,-0.000129392777773,-0.000125839173565,-0.000122265333026,-0.000118674675574,-0.000115067060273,-0.00011144040388,-0.000107791919347,-0.000104124865786,-0.000100442063873,-9.67348830674e-05,-9.29665102931e-05,-8.90925965702e-05,-8.50760719963e-05,-8.08842292307e-05,-7.63094333099e-05,-7.21408568059e-05,-6.81548196224e-05,-6.43231096589e-05,-6.06072316702e-05,-5.69691522264e-05,-5.33767099599e-05,-4.98624438459e-05,-4.64755248165e-05,-4.32454293746e-05,-4.02052872819e-05,-3.75575740159e-05,-3.45163819671e-05,-3.13016001392e-05,-2.79417155633e-05,-2.44674890965e-05,-2.0917573784e-05,-1.73299019344e-05,-1.37029676615e-05,-1.00329764554e-05,-6.32389464595e-06,-2.57014857132e-06,1.22744201597e-06,5.07397429694e-06,8.96839422425e-06,1.29084340388e-05,1.68862274731e-05,2.0904595888e-05,2.4960859699e-05,2.90498264691e-05,3.31693135418e-05,3.73151326008e-05,4.14797319871e-05,4.56576867515e-05,4.98417153889e-05,5.4028978784e-05,5.82213713613e-05,6.24162489825e-05,6.66107178391e-05,7.08067114598e-05,7.50016067571e-05,7.91981149997e-05,8.33980231106e-05,8.75989146047e-05,9.18077055874e-05,9.60227438681e-05,0.000100241673421,0.000104459446278,0.000108673331436,0.000112877438236,0.000117071122251,0.000121248492142,0.000125400389082,0.000129526916011,0.000133620932643,0.000137676197548,0.000141693493019,0.000145675661787,0.000149627649257,0.000153555763851,0.000157464375194,0.00016135389602,0.000165235407027,0.000169114692335,0.000172996815875,0.000176894041905,0.000180811439053,0.000184746732455,0.000188703677729,0.000192681880349,0.000196681788763,0.000200704562956,0.000204751454444,0.000208821663602,0.000212915285157,0.000217028074285,0.000221156255485,0.000225299300923,0.000229458385004,0.000233629112298,0.000237811040522,0.000242002642124,0.000246199851969,0.000250399730825,0.000254602670044,0.000258811403538,0.000263027839199,0.000267253385014,0.000271486826073,0.000275732636659,0.000279987097274,0.000284249385881,0.00028852516471,0.000292817143615,0.000297122770797,0.000301437330978,0.000305759472043,0.000310086358344,0.000314417447204,0.000318752076002,0.000323086216513,0.000327423094657,0.000331760323217,0.000336092453254,0.000340421782833,0.000344749897347,0.000349077628758,0.00035340637754,0.000357735618522,0.000362063558,0.000366392774934,0.000370725961121,0.000375058670321,0.000379398178312,0.000383741490642,0.000388085803955,0.000392431706363,0.000396779349423,0.000401128314998,0.000405473475932,0.00040981776211,0.000414162024308,0.000418509323654,0.000422854858437,0.000427192748545,0.000431524798382,0.000435849446137,0.000440166405718,0.000444473252944,0.000448773785521,0.0004530691403,0.00045735366295,0.000461619036071,0.000465862164921,0.000470091976788,0.000474311691404,0.000478521964896,0.000482723459713,0.000486913878056,0.000491091301558,0.000495248338112,0.000499383103953,0.000503498182385,0.000507597870012,0.000511677103596,0.000515728651129,0.000519744432045,0.000523715428583,0.00052764102978,0.000531519693356,0.000535351993926,0.000539139011551,0.000542885567388,0.000546587000849,0.000550241464244,0.000553851797579,0.000557423180345,0.000560960965561,0.000564471913579,0.000567955357501,0.000571416943687,0.000574855675967,0.000578265622572,0.000581646317526,0.000585000086598,0.000588321379544,0.000591606484416,0.000594859559362,0.000598076745127,0.000601257598809,0.000604396023238,0.000607491569045,0.000610546477968,0.00061356573478,0.000616547854706,0.000619498145203,0.000622423471067,0.000625319070251,0.000628179580164,0.00063100430408,0.000633795969351,0.000636555487352,0.000639279699937,0.000641969206644,0.000644627311537,0.000647254172091,0.000649841774975,0.000652392278212,0.000654910781928,0.000657394335192,0.000659843813923,0.000662261309905,0.000664650631163,0.000667010469474,0.000669333994269,0.000671616255952,0.000673859453854,0.000676062953473,0.000678227530753,0.000680355197856,0.000682451890971,0.000684514994679,0.000686536678592,0.00068851829954,0.00069046290356,0.000692375805602,0.00069425763578,0.000696110848306,0.000697934659106,0.000699726272937,0.000701479495755,0.000703191726509,0.000704869310058,0.000706508485545,0.000708106869721,0.000709663835113,0.000711177326711,0.000712645769505,0.00071405868146,0.00071542069662,0.000716733617333,0.000718000617114,0.000719221408923,0.000720396758617,0.000721529891857,0.000722618640571,0.000723661684393,0.000724657147181,0.000725608777259,0.000726522133065,0.000727393121407,0.000728217740628,0.000728997870219,0.00072973448308,0.000730424542026,0.000731073088961,0.000731683458371,0.000732255816728,0.000732796683473,0.000733302923894,0.000733775508874,0.00073421731832,0.000734626894596,0.000735000021174,0.000735336339867,0.000735630723154,0.000735878351401,0.000736079601048,0.000736233500161,0.000736335299952,0.00073638692996,0.000736390100865,0.000736341638203,0.000736242147654,0.000736093904019,0.000735900511949,0.000735666054551,0.000735389224222,0.000735068126913,0.000734705429054,0.000734302999332,0.000733856634739,0.000733364439907,0.000732826756655,0.000732243294406,0.000731613155372,0.000730933072175,0.000730203709799,0.000729428688675,0.000728607194654,0.000727736126966,0.000726815153451,0.00072585091035,0.000724844171615,0.00072379656018,0.000722712199332,0.000721591247904,0.000720434753691,0.000719241092545,0.000718007838117,0.000716733822088,0.000715420252436,0.000714065927305,0.00071266766779,0.000711225812316,0.000709740703293,0.000708208964634,0.00070663064973,0.000705000563453,0.000703323886346,0.000701603768943,0.00069983961659,0.000698032042384,0.000696182049035,0.00069428576844,0.000692337244148,0.000690338697325,0.000688292635162,0.000686201935482,0.000684066956906,0.000681881327037,0.00067964325233,0.00067735621526,0.000675021873698,0.000672640540638,0.000670214217379,0.00066774721323,0.00066523612017,0.000662677269738,0.000660069332318,0.000657417165701,0.000654718700334,0.000651973636509,0.000649180962049,0.000646339168453,0.000643447970778,0.000640506059995,0.000637511069454,0.000634466770767,0.000631374613542,0.000628229405093,0.000625033845002,0.000621792098964,0.000618502687548,0.000615165053589,0.000611778241972,0.000608344915928,0.000604868033285,0.000601347910073,0.000597783320441,0.000594180551323,0.000590549595712,0.000586887712859,0.000583195037493,0.000579477588784,0.000575737069213,0.000571974888905,0.000568191732034,0.000564394056864,0.00056059029557,0.000556782387301,0.000552960607593,0.000549120834163,0.000545266200252,0.000541399814069,0.000537525659162,0.000533646382715,0.00052976222008,0.000525867707051,0.000521952202842,0.000518012152143,0.000514052996064,0.000510081059415,0.000506100870115,0.000502110407483,0.000498103860072,0.000494075239405,0.000490025451077,0.00048595866123,0.000481880602145,0.000477795295859,0.000473702329715,0.000469599305518,0.000465481239115,0.000461347196564,0.000457198347346,0.000453039307101,0.000448869611447,0.000444682559448,0.00044047344445,0.000436241616545,0.000431988642623,0.000427709690507,0.00042340150329,0.000419068336677,0.000414709199076,0.000410321384438,0.000405909179853,0.000401477927887,0.000397032705812,0.000392574452142,0.00038810051473,0.000383609083883,0.000379106977649,0.000374590210485,0.000370060747607,0.000365520102654,0.000360968094478,0.000356400040677,0.000351812332823,0.000347207887361,0.000342586902548,0.000337953588859,0.00033330932676,0.000328657356635,0.000323999336277,0.000319334105669,0.000314658921732,0.00030997817758,0.000305294760969,0.000300609676864,0.000295920201182,0.000291227809765,0.00028653475521,0.000281837695575,0.000277134515806,0.000272429936274,0.000267724775596,0.000263017704289,0.000258305117111,0.000253582615848,0.000248852285949,0.000244115130523,0.000239369120713,0.000234613064343,0.000229849477444,0.000225074253333,0.000220286687543,0.00021548914589,0.000210685936185,0.000205878245259,0.000201067741085,0.000196250910618,0.000191430815598,0.000186612372906,0.000181797068742,0.000176989280892,0.000172190441293,0.000167398101548,0.000162609445676,0.000157823370609,0.000153046361755,0.000148281361694,0.000143527120154,0.000138782723773,0.000134039532029,0.00012929522166,0.000124549991212,0.000119805577493,0.000115067972027,0.000110341876381,0.000105621095002,0.00010090436879,9.61906790923e-05,9.14772713298e-05,8.6769011459e-05,8.20704880801e-05,7.73832256516e-05,7.27068370037e-05,6.80403434198e-05,6.33795802452e-05,5.87246976613e-05,5.40822656837e-05,4.94496796687e-05,4.48336477524e-05,4.02429994848e-05,3.56705764845e-05,3.11152138627e-05,2.65798916334e-05,2.20634803095e-05,1.75710019581e-05,1.31023711283e-05,8.65009406581e-06,4.21553316734e-06,-2.06101013436e-07,-4.61849984035e-06,-9.02307266324e-06,-1.341610429e-05,-1.7797546361e-05,-2.21701335099e-05,-2.65349153796e-05,-3.08883750113e-05,-3.52253247272e-05,-3.9539384569e-05,-4.38284485915e-05,-4.80876813381e-05,-5.2314629924e-05,-5.65117302507e-05,-6.06794156103e-05,-6.48143685927e-05,-6.89187952917e-05,-7.29933376589e-05,-7.70441936243e-05,-8.10736378287e-05,-8.50829661346e-05,-8.9080550021e-05,-9.30696851857e-05,-9.70522794281e-05,-0.000101026130388,-0.000104992035453,-0.000108944069641,-0.00011288485002,-0.000116814293578,-0.000120734319739,-0.000124648363923,-0.000128553198616,-0.000132437743102,-0.000136298784562,-0.00014014036441,-0.000143962323829,-0.000147773163253,-0.000151572138454,-0.000155349030121,-0.000159098360659,-0.000162816484544,-0.000166500732657,-0.000170160128283,-0.000173795286701,-0.000177402605468,-0.000180981819387,-0.000184527772621,-0.000188033243703,-0.000191504806385,-0.000194948602765,-0.000198366189056,-0.000201760004538,-0.000205125399838,-0.000208459727372,-0.000211769281567,-0.000215049809479,-0.000218296182739,-0.000221517428701,-0.00022471275318,-0.000227881300314,-0.000231025401983,-0.000234140952586,-0.000237228474569,-0.000240290397188,-0.000243320883821,-0.000246320989599,-0.000249296286254,-0.00025224738016,-0.000255172257255,-0.000258067069564,-0.000260929652972,-0.000263757686115,-0.000266553683422,-0.000269318499379,-0.000272054090528,-0.000274760182889,-0.000277437052956,-0.000280086032202,-0.000282708742244,-0.000285309273042,-0.000287888319365,-0.000290452228347,-0.000292994213254,-0.000295516077518,-0.000298012693064,-0.000300489913786,-0.000302948496679,-0.000305383756972,-0.000307797516626,-0.000310190242735,-0.000312554305888,-0.000314889712167,-0.000317197501353,-0.000319486498704,-0.000321753134895,-0.00032399887157,-0.000326221774453,-0.00032842058845,-0.000330595071039,-0.000332742488579,-0.000334863612365,-0.000336962034356,-0.000339036708328,-0.000341080011923,-0.000343094579549,-0.000345082152118,-0.000347038065385,-0.000348963973303,-0.000350861547914,-0.000352729886203,-0.000354573134528,-0.000356386963972,-0.000358174561734,-0.000359935733627,-0.000361673454441,-0.000363383065112,-0.000365069909416,-0.000366733383337,-0.00036836492151,-0.000369967928487,-0.000371541792785,-0.000373088305803,-0.000374608055126,-0.000376098093209,-0.000377562912298,-0.000379002005762,-0.000380411329345,-0.000381791189666,-0.000383146103709,-0.000384480026079,-0.000385795079758,-0.000387089015754,-0.000388361156288,-0.000389614655722,-0.000390844484576,-0.000392045083243,-0.000393223932511,-0.000394288034667,-0.000395136501051,-0.000395779064279,-0.000396210299868,-0.000396423156167)
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(245)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Sus_scrofa-male-liver-H3K4me3-ERR572167.50mers.unique.MACS2_model.pdf',height=6,width=6)
plot(x,p,type='l',col=c('red'),main='Peak Model',xlab='Distance to the middle',ylab='Percentage')
lines(x,m,col=c('blue'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 245',bty='n')
dev.off()