# R script for Peak Model
#  -- generated by MACS
p <- c(0.041394420065,0.0481225517703,0.0550558094422,0.0621941930808,0.0687089937808,0.0679623352623,0.0676915689864,0.0671254213185,0.0673305472851,0.0674454178264,0.0669859356612,0.0673469573624,0.0673715724784,0.0671828565891,0.0672977271304,0.0675931085224,0.067650543793,0.0683151519249,0.0678638747983,0.0676177236384,0.0681182309969,0.0672567019371,0.0670433709318,0.0667315794626,0.0670843961252,0.0671910616278,0.0675110581357,0.0673141372078,0.0670597810092,0.0667643996172,0.0665592736506,0.0670351658932,0.0666495290759,0.0668874751972,0.0662474821813,0.0660177410987,0.0659110755961,0.0656895395521,0.0657387697841,0.066231072104,0.0660505612534,0.0661244066013,0.06625568722,0.065960305828,0.0665428635733,0.0667561945786,0.0669531155065,0.0669531155065,0.0671582414731,0.0670187558158,0.0671172162798,0.0671254213185,0.067749004257,0.0675766984451,0.0672074717051,0.0671336263571,0.0669285003905,0.0672813170531,0.0675192631744,0.0676587488317,0.0675849034837,0.067749004257,0.0678638747983,0.0677900294503,0.0678884899143,0.0676669538704,0.067749004257,0.0669941406998,0.0669941406998,0.0665756837279,0.0671254213185,0.0665592736506,0.0657305647454,0.0660423562147,0.0663377376066,0.0669613205452,0.0668464500039,0.0671582414731,0.0664115829546,0.0667561945786,0.0658618453641,0.0659685108667,0.0656731294748,0.0655418488561,0.0648198054536,0.0643521182497,0.0640239167031,0.0641716073991,0.0642044275537,0.0640157116644,0.0646803197963,0.064713139951,0.0648280104923,0.0642618628244,0.0646557046803,0.064343913211,0.0645080139843,0.064516219023,0.0649264709563,0.064590064371,0.0640567368578,0.0642454527471,0.0642454527471,0.064786985299,0.0645818593323,0.0648608306469,0.0642864779404,0.0642044275537,0.0640075066258,0.064540834139,0.064294682979,0.0643603232884,0.0647049349123,0.0650167263816,0.064786985299,0.0649428810336,0.0654844135855,0.0652464674642,0.0651972372322,0.0649757011882,0.0656813345134,0.0653859531215,0.0657387697841,0.0653203128122,0.0656649244361,0.0655418488561,0.0655336438175,0.0662967124133,0.0661490217173,0.0660177410987,0.0652874926575,0.0657305647454,0.0657059496294,0.065984920944,0.0662967124133,0.0660423562147,0.0665428635733,0.0665264534959,0.0672567019371,0.0673223422464,0.0678146445663,0.0674864430197,0.0669120903132,0.0666331189986,0.0668710651199,0.0669941406998,0.0662474821813,0.0659438957507,0.0655664639721,0.0658536403254,0.0656403093201,0.0657223597068,0.066206456988,0.0667808096945,0.0663377376066,0.0660669713307,0.0668874751972,0.0668628600812,0.0669777306225,0.0670761910865,0.0673469573624,0.0670187558158,0.0669859356612,0.0668464500039,0.0671090112411,0.0679623352623,0.0675028530971,0.0673797775171,0.0674782379811,0.0675931085224,0.0672731120144,0.0675931085224,0.0673387523238,0.0672074717051,0.0671664465118,0.0665346585346,0.0665838887666,0.0669367054292,0.0668136298492,0.0666002988439,0.0666659391532,0.0669531155065,0.0672895220918,0.0673305472851,0.0675192631744,0.0676669538704,0.0675684934064,0.0674043926331,0.0674618279037,0.0676095185997,0.0684464325435,0.0682741267316,0.0683643821569,0.0685284829302,0.0684710476595,0.0688402743995,0.0694802674153,0.0700546201219,0.0701284654699,0.0701202604312,0.0699233395032,0.0701530805859,0.0708012786404,0.0708012786404,0.0707684584857,0.0707438433698,0.0704894871711,0.0701038503539,0.0701612856245,0.0703417964752,0.0705715375578,0.0701694906632,0.0697920588846,0.0699807747739,0.0705879476351,0.0709981995684,0.0715889623522,0.0717448580869,0.0724504914121,0.0726884375334,0.0728607433453,0.0735909917865,0.0735417615545,0.0735827867478,0.0735827867478,0.072942793732,0.07264741234,0.072696642572,0.0721797251361,0.0719089588602,0.0720402394788,0.0720812646721,0.0725079266827,0.0730904844279,0.0731150995439,0.0740422689131,0.0739930386811,0.0745755964263,0.0747150820836,0.0749530282049,0.0752402045582,0.0755191758728,0.0755766111434,0.0751499491329,0.0744197006917,0.0739766286038,0.0740914991451,0.0737632975985,0.0740586789904,0.0742966251117,0.0745673913876,0.0745263661943,0.074288420073,0.0748135425476,0.0752237944808,0.0757243018394,0.0759950681154,0.0761837840047,0.0763314747006,0.076298654546,0.0756586615301,0.0753386650222,0.0751991793649,0.0750268735529,0.0759950681154,0.076224809198,0.0767253165565,0.0769222374845,0.0775130002684,0.077767356467,0.0780955580136,0.0784483746762,0.0793755440453,0.0797775909399,0.0795396448186,0.0798350262106,0.0799252816359,0.0810657820103,0.0809919366624,0.081049371933,0.0816811599102,0.0817632102969,0.0813939835569,0.0815416742529,0.0814021885956,0.0815662893689,0.081197062629,0.0808032207731,0.0808032207731,0.0811888575903,0.081221677745,0.0817139800649,0.0819847463408,0.0822555126168,0.0825016637767,0.0822719226941,0.0831744769472,0.082985761058,0.0830349912899,0.0832155021406,0.0832565273339,0.0839211354658,0.0853324021161,0.0858411145134,0.0869077695398,0.0878677590636,0.0885323671955,0.0895415869513,0.0904195260885,0.0914943861536,0.0928153973786,0.0933897500852,0.0932912896212,0.0944071748797,0.0955722903701,0.0961302329993,0.0962040783473,0.0966225353192,0.0964830496619,0.0969753519818,0.0968276612858,0.0972297081804,0.0973938089537,0.0967127907445,0.0963025388113,0.0965486899712,0.0972132981031,0.0969917620591,0.0979681616603,0.097828676003,0.0983127732842,0.0985589244441,0.0987558453721,0.0989691763774,0.0991086620347,0.0995353240453,0.099494298852,0.0992645577693,0.099223532576,0.0998225003986,0.0999045507852,0.100142496906,0.100708644574,0.1014142779,0.101520943402,0.101570173634,0.102103501147,0.103719893764,0.104097325543,0.104376296858,0.10497526468,0.104688088327,0.104704498404,0.105270646072,0.105615257696,0.105861408856,0.105918844127,0.105352696459,0.105541412348,0.1048521891,0.104474757322,0.104967059642,0.105475772039,0.105459361961,0.105410131729,0.105475772039,0.105270646072,0.105894229011,0.106435761563,0.10768292744,0.108880863085,0.10934034525,0.109561881294,0.110070593691,0.111276734375,0.111908522352,0.112745436296,0.112893126992,0.113344404119,0.113410044428,0.114082857598,0.114886951388,0.115288998282,0.116035656801,0.116248987806,0.11689718586,0.117520768799,0.117807945152,0.118571013748,0.119309467228,0.118833574985,0.118817164908,0.119531003272,0.119227416841,0.119596643581,0.119276647073,0.119883819935,0.121089960618,0.120622273414,0.120203816442,0.120934064884,0.121319701701,0.121697133479,0.122312511379,0.121795593943,0.122681738119,0.122673533081,0.123206860594,0.124109414847,0.124962738868,0.124987353984,0.125151454757,0.125372990801,0.126029393895,0.126907333032,0.12661195164,0.126931948148,0.127137074114,0.127178099308,0.1280888586,0.128942182621,0.129549355482,0.129573970598,0.129795506642,0.130008837647,0.130550370199,0.130222168652,0.130025247724,0.130525755083,0.13036165431,0.130410884542,0.130919596939,0.131617025225,0.131190363215,0.131559589955,0.132232403125,0.132921626373,0.133118547301,0.133274443036,0.133783155433,0.133635464737,0.134029306593,0.134275457753,0.135186217045,0.135424163166,0.13601492595,0.136868249971,0.137097991054,0.137442602678,0.13779541934,0.138525667781,0.138353361969,0.138615923207,0.139428222035,0.140462056906,0.140388211558,0.140060010012,0.140412826674,0.141192305348,0.141093844884,0.141413841392,0.142209730142,0.141807683247,0.141405636353,0.141003589458,0.14129897085,0.141848708441,0.141627172397,0.141019999536,0.141840503402,0.141438456508,0.141446661546,0.141512301855,0.141323585966,0.141184100309,0.140937949149,0.141274355734,0.14111846,0.141233330541,0.140913334033,0.140896923956,0.141651787513,0.14240665107,0.142029219291,0.142332805722,0.143235359975,0.142685622385,0.142890748351,0.142480496418,0.141807683247,0.141536916971,0.140109240244,0.139067200333,0.13976462862,0.139313351493,0.1386569484,0.138353361969,0.138115415848,0.138476437549,0.138525667781,0.138944124753,0.138583103052,0.139534887537,0.138583103052,0.138263106544,0.137360552291,0.137450807716,0.137508242987,0.137278501904,0.137139016247,0.137106196092,0.136827224778,0.135063141465,0.134899040691,0.134956475962,0.134447763565,0.134382123256,0.134218022482,0.133463158925,0.132659065136,0.131658050419,0.131666255457,0.131756510883,0.131945226772,0.13164984538,0.131764715921,0.131067287635,0.131206773292,0.131461129491,0.131436514375,0.13128061864,0.130673445779,0.130624215547,0.129893967106,0.129582175637,0.129073463239,0.128474495417,0.128154498909,0.127375020236,0.127875527594,0.127251944656,0.127604761318,0.12728476481,0.127169894269,0.126776052413,0.126390415596,0.127309379926,0.126086829165,0.125766832657,0.125241710183,0.125274530337,0.124470436548,0.12513504468,0.124839663288,0.124577102051,0.124929918714,0.124257105543,0.124125824924,0.124068389654,0.124101209808,0.124404796239,0.124716587708,0.124929918714,0.125446836149,0.126201699707,0.1268581028,0.126472465983,0.127571941164,0.128589365958,0.129459100057,0.13036165431,0.133069317069,0.134702119764,0.137270296866,0.140658977834,0.144835342515,0.149397344013,0.153335762572,0.156379831917,0.157077260203,0.157503922214,0.15494395015,0.15254807886,0.150053747106,0.146082508392,0.140470261945,0.13589185037,0.130648830663,0.126570926447,0.124232490427,0.122017129987,0.120728938917,0.11985099978,0.118538193593,0.117537178876,0.117340257948,0.116240782767,0.115838735873,0.114886951388,0.113131073113,0.111875702197,0.110661356475,0.109816237493,0.108938298355,0.10755985186,0.106009099552,0.104294246471,0.102521958119,0.101258382165,0.100684029458,0.0998717306305,0.099174302344,0.0980912372402,0.096113822922,0.0954245996741,0.0948420419289,0.0951292182822,0.0947189663489,0.094546660537,0.0942184589904,0.0937671818638,0.0940461531784,0.0938000020184,0.0944399950343,0.094128203565,0.0937261566705,0.0935374407812,0.0933159047372,0.092782577224,0.0924707857547,0.0919456632801,0.0916995121202,0.0915682315016,0.0908543931377,0.091264645071,0.0909118284084,0.0902964505085,0.0902800404311,0.0899436338459,0.0897549179566,0.0899272237686,0.089155950134,0.0889426191288,0.089451331526,0.0890082594381,0.0891149249407,0.0891067199021,0.0890082594381,0.0888769788194,0.0887456982008,0.0886308276595,0.0886144175822,0.0884339067315,0.0877775036383,0.0868093090758,0.0865713629546,0.0864400823359,0.0863580319493,0.0859067548227,0.0855047079281,0.0852503517295,0.0852339416522,0.0851765063815,0.0843724125923,0.0847990746029,0.0845693335203,0.0840031858524,0.0837488296538,0.0836667792671,0.0832729374112,0.0832975525272,0.082961145942,0.0825755091247,0.0828298653233,0.08278884013,0.0825016637767,0.0822226924621,0.0819273110702,0.0819109009928,0.0816893649489,0.0813775734796,0.0813119331703,0.0806637351158,0.0803929688398,0.0798350262106,0.0799334866746,0.0798596413266,0.0797611808626,0.0797119506306,0.079359133968,0.0789734971508,0.0788011913388,0.079309903736,0.0794904145867,0.0793919541227,0.0789078568414,0.0787273459908,0.0774555649977,0.0771109533738,0.0772176188764,0.0769304425232,0.0768073669432,0.0759704529994,0.0761919890433,0.0754699456408,0.0752812297515,0.0751089239395,0.0761919890433,0.0763150646233,0.0757735320714,0.0756750716074,0.074509956117,0.074534571233,0.0742473948797,0.0749120030116,0.0751663592102,0.0748053375089,0.0743540603824,0.0738945782171,0.0739027832558,0.0738535530238,0.0739109882944,0.0737222724052,0.0730904844279,0.0728279231907,0.0722863906388,0.0719910092468,0.0719581890922,0.0717120379322,0.0721386999428,0.0718925487829,0.072672027456,0.0724422863734,0.0723356208708,0.0721715200975,0.0728607433453,0.072967408848,0.0727622828813,0.0728853584613,0.0720894697108,0.0715479371589,0.0709407642977,0.0703007712818,0.0706289728284,0.0699479546192,0.0691930910621,0.0691848860234,0.0688074542448,0.0684054073502,0.0685530980462,0.0690125802114,0.0687007887422,0.0690207852501,0.0688074542448,0.0689797600568,0.0689961701341,0.0688238643221,0.0686843786648,0.0686597635488,0.0684628426209,0.0686925837035,0.0690946305981,0.0688648895155,0.0687089937808,0.0687664290515,0.0685284829302,0.0682823317702,0.0684874577369,0.0683889972729,0.0684628426209,0.0676915689864,0.0670105507772,0.0675520833291,0.0671254213185,0.0667643996172,0.0666002988439,0.0665182484573,0.06600953606,0.0655336438175,0.0653203128122,0.0653613380055,0.0650413414976,0.064516219023,0.0642618628244,0.0647705752216,0.0648033953763,0.0648854457629,0.0649428810336,0.0647295500283,0.0646474996416,0.0647459601056,0.064491603907,0.0639828915098,0.0640239167031,0.0638105856978,0.0639500713551,0.0634987942285,0.063072132218,0.0632772581846,0.0631705926819,0.0629572616767,0.0629162364833,0.0637203302725,0.0633921287259,0.062973671754,0.0626044450141,0.0626864954007,0.0633675136099,0.0632444380299,0.0630146969473,0.0628341860967,0.0632034128366,0.062924441522,0.0631705926819,0.0632854632233,0.0630639271793,0.0629408515993,0.0624075240861,0.0622926535448,0.0628095709807,0.0630557221406,0.0634823841512,0.0628670062513,0.0626864954007,0.0626864954007,0.0626208550914,0.0626947004394,0.0627685457874,0.0629408515993,0.0623090636221,0.0622434233128,0.0621613729261,0.0623090636221,0.0626864954007,0.0623582938541,0.0620300923075,0.0616280454129,0.0618741965729,0.0615213799103,0.0620547074235,0.0619152217662,0.0622270132355,0.0624813694341,0.0622270132355,0.0624895744727,0.0625962399754,0.0627931609034,0.0619398368822,0.0622106031581,0.0617839411476,0.0616444554902,0.0610290775904,0.0603152392265,0.0599049872933,0.0598311419453,0.0600608830279,0.0601921636465,0.0606844659664,0.0603644694585,0.0604547248838,0.0603480593812,0.0600937031826,0.0604711349612,0.0604547248838,0.059790116752,0.059691656288,0.0597080663653,0.0598475520226,0.0599460124866,0.0600526779892,0.0596834512493,0.0599049872933,0.0600280628732,0.0602824190719,0.0609060020104,0.0612177934797,0.0609470272037,0.0607993365078,0.061012667513,0.0606926710051,0.0609634372811,0.0606434407731,0.0607665163531,0.0611521531703,0.0606762609278,0.0603480593812,0.0603644694585,0.0599952427186,0.0599213973706,0.0603726744972,0.0603972896132,0.0607254911598,0.0603398543425,0.0601593434919,0.0601675485305,0.0600362679119,0.0604136996905,0.0608977969717,0.0610947178997,0.0605449803091,0.0608895919331,0.0607501062758,0.0611685632477,0.0617593260316,0.0620629124622,0.0625388047047,0.0623993190474,0.0623090636221,0.0619316318435,0.0619562469595,0.0617839411476,0.0615706101423,0.0617511209929,0.0606516458118,0.0613490740983,0.0612506136343,0.061431124485,0.061283433789,0.0617347109156,0.0620136822302,0.0620793225395,0.0626947004394,0.0626618802847,0.0629408515993,0.0620218872688,0.0614147144076,0.061381894253,0.0616280454129,0.0618495814569,0.0620218872688,0.0613408690596,0.061135743093,0.0609306171264,0.0611439481317,0.061037282629,0.0614721496783,0.061308048905,0.0613408690596,0.0609962574357,0.0608567717784,0.061406509369,0.0613244589823,0.0613490740983,0.061234203557,0.0615706101423,0.0613983043303,0.061381894253,0.0612752287503,0.0608157465851,0.0606844659664,0.0611685632477,0.0616526605289,0.0615870202196,0.0616936857222,0.0616116353356,0.0615377899876,0.0615459950263,0.0614967647943,0.0618495814569,0.0619316318435,0.0614639446396,0.0612013834023,0.0618659915342,0.0619480419209,0.0626044450141,0.0635972546925,0.0637285353112,0.0640157116644,0.0638269957751,0.0639582763938,0.0643357081724,0.064540834139,0.0640813519738,0.0641223771671,0.0639090461618,0.0634987942285,0.0639993015871,0.064368528327,0.0648854457629,0.0652956976962,0.0655664639721,0.0658208201707,0.0655582589335,0.0653859531215,0.0654926186241,0.0652628775415,0.0649100608789,0.0642700678631,0.0641798124377,0.0637777655432,0.0632936682619,0.0631049523726,0.0637449453885,0.0640321217418,0.0634495639966,0.0636628950018,0.0635398194219,0.064393143443,0.064516219023,0.0645736542937,0.064663909719,0.064565449255,0.0639418663165,0.0635316143832,0.0637941756205,0.0639418663165,0.0643521182497,0.0638352008138,0.0641880174764,0.0641962225151,0.064343913211,0.0644013484817,0.0646557046803,0.0652628775415,0.0653367228895,0.0650167263816,0.0649510860723,0.0649510860723,0.0650905717296,0.0652956976962,0.0653941581602,0.0654680035081,0.0654105682375,0.0653695430442,0.0656813345134,0.0662392771427,0.0659438957507,0.0661654317947,0.0655500538948,0.0656238992428,0.0655582589335,0.0657633849001,0.0661736368333,0.0666085038826,0.0665674786893,0.0662885073746,0.0665182484573,0.0662967124133,0.0664444031093,0.0663131224906,0.0659767159054,0.0656567193974,0.0652464674642,0.0643357081724,0.0647049349123,0.0650085213429,0.0649182659176,0.0650331364589,0.0651890321935,0.0654844135855,0.0660259461374,0.0661244066013,0.0666741441919,0.0671582414731,0.0666741441919,0.0664936333413,0.0663951728773,0.0672977271304,0.0670515759705,0.0669038852745,0.0664115829546,0.066304917452,0.0658044100934,0.0657962050547,0.066107996524,0.0661490217173,0.0667069643466,0.066107996524,0.0664936333413,0.0661408166787,0.0671418313958,0.0672320868211,0.0673797775171,0.0673387523238,0.0673141372078,0.0670187558158,0.0672484968985,0.0669777306225,0.0667151693852,0.0674864430197,0.0666085038826,0.0666495290759,0.0670269608545,0.0668218348879,0.0664526081479,0.0668300399265,0.0662720972973,0.0666167089212,0.0667315794626,0.0666331189986,0.0672156767438,0.0673715724784,0.0669367054292,0.0668792701585,0.0673879825558,0.0674125976718,0.0670433709318,0.0669120903132,0.0667151693852,0.0670597810092,0.0669859356612,0.0668054248105,0.0673469573624,0.067847464721,0.0676669538704,0.0673141372078,0.067724389141,0.0675110581357,0.067650543793,0.0672402918598,0.0671254213185,0.0669613205452,0.0665674786893,0.0665756837279,0.066231072104,0.0667479895399,0.0670023457385,0.0670433709318,0.0671008062025,0.0671500364345,0.0672156767438,0.0671172162798,0.0672402918598,0.0677572092957,0.067970540301,0.0680361806103,0.067773619373,0.067847464721,0.0679131050303,0.0678802848757,0.0675684934064,0.0681182309969,0.0681756662676,0.0676341337157,0.0679541302236,0.0671172162798,0.0667561945786,0.0666331189986,0.0665920938053,0.0662392771427,0.0666905542692,0.0672484968985,0.0673059321691,0.0674125976718,0.0670351658932,0.067896694953,0.0682166914609,0.0681838713063,0.0683069468862,0.0684628426209,0.0684546375822,0.0675849034837,0.0670515759705,0.0670023457385,0.0674946480584,0.0670515759705,0.0671090112411,0.0674454178264,0.0669695255838,0.0664690182253,0.06625568722,0.065960305828,0.06600953606,0.0657633849001,0.0652382624255,0.0656238992428,0.0653285178508,0.0649428810336,0.0654433883922,0.0659438957507,0.0657962050547,0.0659028705574,0.0658700504027,0.0657633849001,0.0658044100934,0.0652136473095,0.0655992841268,0.0655008236628,0.0651151868456,0.0649921112656,0.0647213449896,0.0648608306469,0.0650905717296,0.0647541651443,0.0646557046803,0.0650167263816,0.0649839062269,0.0654105682375,0.0658454352867,0.0658700504027,0.06600953606,0.0658782554414,0.0658044100934,0.0659767159054,0.065984920944,0.0660915864467,0.066083381408,0.0658782554414,0.0654926186241,0.0651890321935,0.0650577515749,0.0651069818069,0.0651972372322,0.0651726221162,0.0650741616522,0.0650249314202,0.0583460299469,0.0517081536669,0.0452425831989,0.0389575235815,0.0)
m <- c(0.0392430413431,0.0460625917117,0.0523267774995,0.0593341717705,0.0656391931892,0.0654840177916,0.0655656890535,0.0652798396368,0.0656146918106,0.0657617000821,0.0662680619058,0.0662108920225,0.066749922351,0.0665130756915,0.0667335880987,0.0668397607391,0.0670684402725,0.0673216211843,0.0674522952034,0.067950489901,0.0676401391058,0.0677463117462,0.0675829692224,0.0675012979605,0.0676319719796,0.0674196266986,0.0675176322129,0.0672726184272,0.0673297883105,0.0673706239415,0.0673951253201,0.0672236156701,0.0674032924462,0.0672889526796,0.0673297883105,0.0675993034748,0.0674686294558,0.0673542896891,0.0673951253201,0.0670276046415,0.0675176322129,0.0672807855534,0.0671746129129,0.0676156377272,0.0677544788724,0.0677626459986,0.0678688186391,0.0677953145034,0.0673869581939,0.0677626459986,0.0670112703891,0.0677953145034,0.06773814462,0.0677136432415,0.0679014871438,0.06773814462,0.0678933200177,0.0681628351819,0.0685385229867,0.0686691970057,0.0691673917033,0.0694205726152,0.0694940767509,0.069583915139,0.0696737535271,0.0692980657223,0.0690122163057,0.0689795478009,0.0688570409081,0.0683506790843,0.0686773641319,0.0680403282891,0.068293509201,0.0686283613748,0.0684976873557,0.0692572300914,0.0695512466342,0.0696900877795,0.0702781208651,0.0707273128056,0.0708089840675,0.0710294964746,0.0713398472698,0.0706783100484,0.0704741318937,0.0705966387865,0.070531301777,0.0704496305151,0.0705558031556,0.0704986332723,0.070098444089,0.0699024330604,0.0698125946723,0.0699922714485,0.0701311125937,0.0699841043223,0.0700004385747,0.0701556139723,0.0698615974294,0.0700331070794,0.0706293072913,0.0704496305151,0.0696819206533,0.0696410850223,0.0703189564961,0.0700412742056,0.0698779316818,0.0704087948842,0.0703842935056,0.0704904661461,0.0703352907485,0.0708253183199,0.0716665323174,0.071560359677,0.0709396580865,0.0714051842794,0.0714460199103,0.0712990116389,0.0716256966865,0.0717563707055,0.0715930281817,0.071731869327,0.0712418417556,0.0712336746294,0.0710621649794,0.0707191456794,0.0706619757961,0.0706783100484,0.0702781208651,0.0698615974294,0.0693960712366,0.0691428903247,0.0693225671009,0.0693797369842,0.0696982549056,0.0697064220318,0.0702781208651,0.0700902769628,0.0700412742056,0.0699024330604,0.0704332962627,0.0703026222437,0.0709314909603,0.0710131622222,0.0711846718722,0.0717482035793,0.0713806829008,0.0710621649794,0.0714051842794,0.0714541870365,0.0717727049579,0.0716665323174,0.0706211401651,0.0711438362413,0.0706783100484,0.0700004385747,0.0695920822652,0.0698615974294,0.0699187673128,0.0696165836437,0.0692653972176,0.0696084165176,0.0698370960509,0.0693960712366,0.0695594137604,0.0701801153509,0.0708089840675,0.0703924606318,0.0703679592532,0.0709314909603,0.070702811427,0.0709968279699,0.0713316801436,0.071176504746,0.0714133514056,0.0716746994436,0.0710131622222,0.071217340377,0.0708498196984,0.0708988224556,0.0709968279699,0.0710539978532,0.0712091732508,0.071176504746,0.0713398472698,0.0707681484365,0.0712826773865,0.0714623541627,0.0716256966865,0.0710131622222,0.0716093624341,0.0709641594651,0.0704741318937,0.0706538086699,0.0698615974294,0.069583915139,0.069583915139,0.0696900877795,0.069543079508,0.0695675808866,0.0693307342271,0.0691510574509,0.0694940767509,0.0689877149271,0.0696492521485,0.0697472576628,0.0696329178961,0.0694532411199,0.0696655864009,0.0696002493914,0.0690203834319,0.0693797369842,0.0694369068676,0.0698779316818,0.0694205726152,0.0696819206533,0.0699432686913,0.0697799261675,0.0696247507699,0.0706619757961,0.0706538086699,0.0708334854461,0.0703842935056,0.0699106001866,0.0701392797199,0.0696410850223,0.0692245615866,0.06928173147,0.0691510574509,0.0681710023081,0.0680239940367,0.06790965427,0.0679831584057,0.0684486845986,0.06893871217,0.0690040491795,0.0689550464224,0.069543079508,0.0691183889462,0.0696329178961,0.0693225671009,0.0687835367724,0.0690040491795,0.0687753696462,0.0675748020962,0.0673706239415,0.0676728076105,0.0669050977487,0.0673216211843,0.0665784127011,0.0670439388939,0.0678279830081,0.06790965427,0.067778980251,0.0681138324248,0.0678851528915,0.067305286932,0.0667744237296,0.0666355825844,0.066749922351,0.0667825908558,0.0662925632844,0.0660230481201,0.0661945577701,0.0660965522558,0.0666845853415,0.0673624568153,0.0675012979605,0.0672889526796,0.067607470601,0.0670684402725,0.0668315936129,0.0670031032629,0.0669050977487,0.0670194375153,0.0668642621177,0.0663497331677,0.0665865798272,0.0665212428177,0.0663088975368,0.0670847745248,0.0670602731463,0.0665294099439,0.0666845853415,0.0670194375153,0.0669459333796,0.0665130756915,0.0665049085653,0.0665375770701,0.0662598947796,0.0657862014606,0.0657371987035,0.0653778451511,0.064985823094,0.0646591380464,0.0644794612702,0.0644957955226,0.0644876283964,0.0646183024155,0.0648388148226,0.0647653106869,0.0644876283964,0.0648224805702,0.0650919957345,0.0649041518321,0.0648878175797,0.0648306476964,0.064855149075,0.0643487872512,0.0640139350774,0.0646019681631,0.0648714833273,0.0650593272297,0.0647408093083,0.064814313444,0.065116497113,0.0651083299869,0.0651409984916,0.065459516413,0.0653451766464,0.0644141242607,0.064209946106,0.0638505925536,0.0639649323203,0.0636464143988,0.0631727210798,0.0629848771774,0.0626173564989,0.0627806990227,0.0632707265941,0.0635892445155,0.0635565760107,0.064038436456,0.0634585704965,0.0636709157774,0.0637525870393,0.0641282748441,0.0643161187464,0.0646999736774,0.0648061463178,0.0647898120654,0.0647898120654,0.0638914281845,0.0646346366678,0.0642426146107,0.0641364419702,0.0640629378345,0.0639894336988,0.0634912390012,0.0633768992346,0.0632788937203,0.0631563868274,0.0638179240488,0.0636464143988,0.0637770884179,0.0636790829036,0.0640711049607,0.0642916173679,0.0647571435607,0.0647734778131,0.0649531545892,0.065288006763,0.0653370095202,0.0652635053845,0.0655085191702,0.066145555013,0.0660965522558,0.0660067138678,0.0658188699654,0.065802535713,0.0657535329559,0.066145555013,0.0663007304106,0.0665620784487,0.0666845853415,0.0667989251082,0.0667989251082,0.067092941651,0.0665294099439,0.0660720508773,0.0665457441963,0.0660067138678,0.0654840177916,0.0649041518321,0.0647816449393,0.0645039626488,0.0647734778131,0.0644141242607,0.0649939902202,0.0652226697535,0.065026658725,0.0650511601035,0.065459516413,0.0657208644511,0.065933209732,0.0658107028392,0.0652961738892,0.0655738561797,0.0650593272297,0.0652635053845,0.0652308368797,0.0654350150345,0.0654758506654,0.0655901904321,0.0655901904321,0.0653615108987,0.0655983575583,0.0659413768582,0.0662272262749,0.0663987359249,0.0665865798272,0.0664722400606,0.0670194375153,0.0672236156701,0.0673134540582,0.0674849637081,0.0675094650867,0.066619248332,0.066619248332,0.0667825908558,0.0667335880987,0.0665457441963,0.0662435605273,0.0664232373034,0.0665620784487,0.0664069030511,0.0666682510891,0.0668887634963,0.0668887634963,0.066790757982,0.0665702455749,0.0673624568153,0.0671909471653,0.0674604623296,0.0674114595724,0.0675911363486,0.067476796582,0.067476796582,0.0674931308343,0.0676973089891,0.0675257993391,0.06773814462,0.0682690078224,0.0675993034748,0.0681873365605,0.0688325395295,0.0693225671009,0.0704414633889,0.0708988224556,0.0706701429223,0.0711111677365,0.0707844826889,0.070531301777,0.0714541870365,0.0712418417556,0.0709641594651,0.0703924606318,0.0701311125937,0.070400627758,0.0706374744175,0.0704577976413,0.0707844826889,0.0714051842794,0.0710213293484,0.0706864771746,0.0713806829008,0.0719523817341,0.0720748886269,0.0721892283936,0.072164727015,0.0726710888388,0.0725649161983,0.0721483927627,0.0732019520412,0.0737573166221,0.0738879906411,0.0731856177888,0.0731284479055,0.0730549437697,0.073152949284,0.0731447821578,0.0734796343316,0.0735123028364,0.0730304423912,0.073022275265,0.0723689051698,0.073324458934,0.0739778290292,0.074655700503,0.0744760237268,0.0749660512982,0.0753744076077,0.0755785857625,0.0755295830053,0.0755214158791,0.0760032763243,0.0759706078196,0.0757255940339,0.0752600678411,0.0760196105767,0.0762972928672,0.0763462956243,0.0768199889433,0.0770813369814,0.0773835206505,0.0772855151362,0.0774243562814,0.078094060629,0.0778898824742,0.0780777263766,0.0774651919124,0.0771875096219,0.0772528466314,0.0780368907457,0.0781675647647,0.0785595868218,0.0788944389956,0.0784207456766,0.0790087787623,0.0790577815194,0.0794661378289,0.0800378366622,0.0804380258455,0.0802583490693,0.0806993738836,0.0809852233003,0.081230237086,0.0812629055907,0.0813935796098,0.0814344152407,0.0819162756859,0.0819162756859,0.0820224483264,0.0821041195883,0.0822592949859,0.0829208322073,0.0832475172549,0.083165845993,0.0835497009239,0.083982558612,0.0841949038929,0.0838682188453,0.0837048763215,0.0837783804572,0.0836068708073,0.0831331774882,0.083337355643,0.0841622353882,0.0846849314643,0.0844807533096,0.0847339342215,0.0853791371905,0.0858854990143,0.0855914824714,0.0863510252071,0.0862366854404,0.0862203511881,0.0859263346452,0.0858364962571,0.0863428580809,0.086432696469,0.0863591923333,0.0862448525666,0.0874127516118,0.0871269021952,0.087894612057,0.0881232915903,0.0893320262665,0.0893810290236,0.0897812182069,0.0901569060117,0.0906469335831,0.0915534845901,0.0915208160854,0.0920271779092,0.0922150218115,0.0925825424901,0.092321194452,0.0928438905282,0.0933420852258,0.0939627868162,0.09395461969,0.0936034332638,0.0942486362329,0.0942404691067,0.0950326803471,0.0953675325209,0.0953511982685,0.095628880559,0.0954737051614,0.0948448364447,0.0954818722875,0.0954492037828,0.0957840559566,0.0962005793923,0.0965109301875,0.0967396097208,0.0974746510779,0.0980708512898,0.0985445446088,0.099671608023,0.100725167302,0.102113578754,0.102407595297,0.104245198689,0.104784229018,0.105731615656,0.107250701127,0.108287926153,0.109733507489,0.111366932727,0.112379656375,0.113122864858,0.115074808017,0.115140145027,0.116308044072,0.117467775991,0.117614784263,0.118790850434,0.120783629224,0.122000531027,0.123617622012,0.126655792955,0.129375445976,0.134153214797,0.138939150745,0.14364341543,0.148396682873,0.151001996127,0.152749761132,0.153827821789,0.15393399443,0.152586418608,0.15060997407,0.147947490932,0.144100774497,0.140629745866,0.136693191042,0.134243053185,0.131841918086,0.130192158595,0.129326443219,0.128697574502,0.128011535902,0.126819135479,0.126051425617,0.124850858067,0.124540507272,0.124336329117,0.124548674398,0.124532340145,0.124638512786,0.124785521057,0.124074981079,0.123299104091,0.123805465915,0.123993309817,0.12377279741,0.123952474186,0.12291524916,0.122980586169,0.122882580655,0.122670235374,0.123152095819,0.123658457643,0.123666624769,0.124483337388,0.125471559657,0.125153041736,0.126337275033,0.12628010515,0.126149431131,0.126394444917,0.126819135479,0.127251993167,0.127497006952,0.127162154779,0.12662312445,0.127178489031,0.127880861883,0.128207546931,0.129555122752,0.130094153081,0.130886364321,0.131523400164,0.131850085212,0.132707633462,0.133459009071,0.133516178954,0.133499844702,0.133361003557,0.131956257852,0.132487121055,0.132340112783,0.133434507693,0.133712189983,0.13358968309,0.134259387438,0.134520735476,0.133712189983,0.134871921902,0.136121492209,0.136480845761,0.13678302943,0.136480845761,0.1370852131,0.137656911933,0.137330226885,0.137999931233,0.139216833035,0.139241334414,0.140654247245,0.140417400585,0.140205055304,0.139780364742,0.140156052547,0.140025378528,0.140376564954,0.140474570468,0.141005433671,0.141609801009,0.140858425399,0.141013600797,0.141372954349,0.142189666968,0.142500017763,0.142924708325,0.143153387859,0.143390234518,0.14302271384,0.142140664211,0.142426513628,0.141830313416,0.141952820309,0.141642469514,0.140989099418,0.14004171278,0.140172386799,0.140319395071,0.140082548411,0.140196888178,0.139951874392,0.140760419885,0.141348452971,0.14072775138,0.14079308839,0.141601633883,0.141291283087,0.140735918506,0.14072775138,0.140221389556,0.139331172802,0.138865646609,0.137371062516,0.138187775135,0.13753440504,0.136366505995,0.135762138657,0.135851977045,0.135664133142,0.136137826461,0.136080656578,0.135631464638,0.136023486695,0.134798417766,0.134651409495,0.135533459123,0.135296612464,0.134651409495,0.134479899845,0.133989872273,0.133352836431,0.132609627947,0.131776581076,0.132184937386,0.132021594862,0.130861862943,0.130437172381,0.130388169624,0.129938977683,0.129857306421,0.129571457005,0.130036983198,0.130290164109,0.129252939083,0.128517897726,0.128174878426,0.127668516602,0.127676683729,0.126835469731,0.125847247462,0.126018757112,0.125798244705,0.125961587229,0.125561398045,0.1257655762,0.125357219891,0.125577732298,0.125455225405,0.125104038979,0.125340885638,0.124418000379,0.123617622012,0.122302714696,0.122310881822,0.121804519998,0.121240988291,0.121004141631,0.119452387655,0.119011362841,0.11811297896,0.117671954146,0.116920578536,0.116357046829,0.115703676734,0.115148312153,0.115238150541,0.114650117456,0.114527610563,0.115123810775,0.114935966872,0.114944133998,0.11577718087,0.116242707063,0.116283542694,0.115687342482,0.115017638134,0.114127421379,0.113882407594,0.112788012684,0.113008525091,0.112355154996,0.111914130182,0.110893239408,0.11028887207,0.110860570903,0.110337874827,0.110934075039,0.110509384477,0.109798844499,0.108753452346,0.108737118094,0.107593720427,0.10771622732,0.107601887554,0.107079191477,0.107242534001,0.106907681827,0.106450322761,0.106123637713,0.105845955423,0.105845955423,0.105625443016,0.105257922337,0.104678056378,0.103591828594,0.103060965392,0.102154414385,0.101942069104,0.101974737609,0.101925734851,0.10064349604,0.100259641109,0.100275975361,0.100088131459,0.100006460197,0.0994184271111,0.0996471066445,0.0999247889349,0.0996879422754,0.0994020928588,0.100210638352,0.100194304099,0.0996879422754,0.0991734133254,0.0991734133254,0.0991162434421,0.0987732241421,0.0978258375041,0.0975073195827,0.0972296372922,0.0968457823613,0.0964129246732,0.0954083681518,0.0951960228709,0.0944936500186,0.0942486362329,0.0938647813019,0.0938566141757,0.0933910879829,0.093007233052,0.0919700080258,0.0912267995425,0.0912349666687,0.0913166379306,0.0908837802426,0.0910716241449,0.0909817857568,0.0899282264783,0.089568872926,0.0886214862879,0.0883438039975,0.0878047736689,0.0871759049523,0.0862121840619,0.0860488415381,0.0846604300858,0.083296520012,0.0825696457811,0.0818182701716,0.0818917743073,0.0815405878812,0.0813527439788,0.0809035520384,0.0807402095146,0.080242014817,0.0802665161955,0.0798418256337,0.080029669536,0.0799153297694,0.079212956917,0.0789189403742,0.0787229293456,0.0784615813075,0.0777755427076,0.0771956767481,0.0770976712338,0.0775468631743,0.0766239779148,0.0762401229839,0.0757010926553,0.0750477225601,0.0746638676292,0.0745005251054,0.0745658621149,0.0744596894744,0.0737246481173,0.0731121136531,0.073626642603,0.0738879906411,0.0742963469506,0.0742473441935,0.0740349989125,0.0741493386792,0.0738961577673,0.0739369933983,0.0743453497078,0.0736838124864,0.0742636784459,0.0736348097292,0.0735613055935,0.0733162918078,0.0736103083507,0.0733162918078,0.0728916012459,0.0730141081388,0.0724750778103,0.0727609272269,0.0719442146079,0.0718462090936,0.0715031897936,0.0717482035793,0.0715685268032,0.0714541870365,0.0718870447246,0.0710539978532,0.0708906553294,0.0710294964746,0.0706538086699,0.0710703321056,0.0713398472698,0.0712663431341,0.0709396580865,0.0712826773865,0.0710213293484,0.0711030006103,0.0716011953079,0.0711275019889,0.0711438362413,0.0703271236223,0.0696900877795,0.0690938875676,0.0693797369842,0.069371569858,0.0691755588295,0.0693307342271,0.0687917038986,0.068293509201,0.0677953145034,0.0681138324248,0.0681710023081,0.0685221887343,0.0686120271224,0.067607470601,0.0672889526796,0.0673706239415,0.0672807855534,0.0673869581939,0.0677136432415,0.0672889526796,0.0670602731463,0.067092941651,0.0662353934011,0.0659495439844,0.0660393823725,0.0654921849178,0.0655166862964,0.0655738561797,0.0656065246844,0.0654840177916,0.0653043410154,0.0649204860845,0.0650593272297,0.0653206752678,0.0654350150345,0.0650511601035,0.0645284640274,0.0647979791916,0.0647734778131,0.0645774667845,0.0648224805702,0.0644222913869,0.0642507817369,0.0642671159893,0.0639404309417,0.0647734778131,0.0647408093083,0.0645856339107,0.064642803794,0.0643896228821,0.0642262803583,0.0643814557559,0.0645366311536,0.0644222913869,0.0642834502417,0.0638832610584,0.0638179240488,0.0632625594679,0.0630828826917,0.0635974116417,0.0634422362441,0.0638179240488,0.0634994061274,0.0635647431369,0.0633605649822,0.0632298909631,0.0633932334869,0.0636464143988,0.0633360636036,0.0631318854489,0.0629032059155,0.0627398633917,0.0629522086727,0.062837868906,0.0631318854489,0.0634912390012,0.0634994061274,0.0636382472726,0.0631155511965,0.062837868906,0.0629685429251,0.0628215346536,0.0619231507727,0.061718972618,0.0611391066585,0.0602407227776,0.0599630404871,0.0591789963729,0.0589421497134,0.0591299936158,0.0593260046443,0.0593750074015,0.0598568678467,0.0593913416538,0.06008554738,0.0602243885252,0.0600283774967,0.0608205887371,0.0613269505609,0.0615311287156,0.0614739588323,0.0611799422895,0.0611717751633,0.0616127999775,0.0613024491823,0.0615964657251,0.0618578137632,0.0615229615894,0.0615719643466,0.0608859257466,0.0603387282919,0.0605184050681,0.0604939036895,0.0606164105823,0.06060007633,0.0602815584086,0.0603550625443,0.0606735804657,0.0605265721943,0.0610982710276,0.0618169781323,0.061678136987,0.0619884877823,0.0620374905394,0.0622825043251,0.0620129891608,0.0623233399561,0.0618659808894,0.0620701590442,0.0620129891608,0.0616209671037,0.0618741480156,0.0615229615894,0.0610819367752,0.0605020708157,0.0607144160966,0.0605429064466,0.0612697806775,0.0611227724061,0.0607389174752,0.0609839312609,0.0608287558633,0.0606735804657,0.0614902930847,0.0617108054918,0.0616209671037,0.0609267613776,0.0605429064466,0.0608777586204,0.0614576245799,0.0613514519394,0.0613269505609,0.0610982710276,0.0603468954181,0.060216221399,0.0602325556514,0.0604775694371,0.0601590515157,0.0601427172633,0.0600692131276,0.0601182158848,0.0602488899038,0.0605510735728,0.060559240699,0.0605347393204,0.0608940928728,0.0613922875704,0.0614494574537,0.0615392958418,0.0608205887371,0.0605102379419,0.0603387282919,0.0604122324276,0.0606817475919,0.0608859257466,0.0605755749514,0.0604203995538,0.0603795639228,0.0599793747395,0.060387731049,0.0605429064466,0.0605265721943,0.0608532572419,0.0609267613776,0.0610247668918,0.0615147944632,0.0616454684823,0.0619149836466,0.0620374905394,0.062494849606,0.062364175587,0.0622906714513,0.062021156287,0.0617761425013,0.0618251452585,0.0620701590442,0.0620374905394,0.061588298599,0.0618659808894,0.0613922875704,0.0614576245799,0.0617924767537,0.0621681645584,0.0623151728299,0.0622661700727,0.0620946604227,0.0617679753751,0.0623723427132,0.0619803206561,0.0620946604227,0.0618741480156,0.0621518303061,0.0618006438799,0.0615311287156,0.0613841204442,0.0614739588323,0.0615801314728,0.0613514519394,0.0616209671037,0.0617679753751,0.0623968440918,0.0621518303061,0.0623396742084,0.0628623702846,0.063050214187,0.0628460360322,0.0568023626516,0.0506443495043,0.0444046650951,0.0381404793074,0.0)
ycorr <- c(7.40222475317e-05,7.38880701998e-05,7.34733021061e-05,7.27676481681e-05,7.17736232796e-05,7.0468554661e-05,6.88413783069e-05,6.71405657078e-05,6.53385555797e-05,6.33990273848e-05,6.13039871242e-05,5.90400765977e-05,5.66135237322e-05,5.40414100503e-05,5.13421444124e-05,4.8539736683e-05,4.56698050862e-05,4.27818002567e-05,3.99241030354e-05,3.71669519357e-05,3.45546798609e-05,3.21277858165e-05,2.98989360103e-05,2.78585941509e-05,2.59985155914e-05,2.43020350106e-05,2.27431982535e-05,2.12962715129e-05,1.99365025269e-05,1.86287778918e-05,1.73440304531e-05,1.60589849233e-05,1.47550855251e-05,1.34276318292e-05,1.20748281044e-05,1.06942595222e-05,9.29205674842e-06,7.8787905863e-06,6.45785385245e-06,5.01545830336e-06,3.55941065564e-06,2.08778216239e-06,6.01662006648e-07,-8.84761466823e-07,-2.37228551825e-06,-3.85732284362e-06,-5.33732843282e-06,-6.81520782356e-06,-8.30225921194e-06,-9.79410139303e-06,-1.12880807763e-05,-1.27919513877e-05,-1.43013255121e-05,-1.58231569967e-05,-1.73612535287e-05,-1.89082797395e-05,-2.04648436841e-05,-2.20355812949e-05,-2.36159207271e-05,-2.52003483887e-05,-2.67921647695e-05,-2.83798778069e-05,-2.99649152685e-05,-3.15555314665e-05,-3.3143756804e-05,-3.47461824947e-05,-3.6360202954e-05,-3.79864750624e-05,-3.9619513818e-05,-4.12586513272e-05,-4.29050785428e-05,-4.45645706658e-05,-4.62366505155e-05,-4.79134070973e-05,-4.95913257524e-05,-5.12630332779e-05,-5.29337671758e-05,-5.46094023372e-05,-5.6300725464e-05,-5.80083165399e-05,-5.97320641207e-05,-6.14740871419e-05,-6.32309461102e-05,-6.50049741241e-05,-6.68074394758e-05,-6.8643040197e-05,-7.05126019097e-05,-7.23995995865e-05,-7.42951300721e-05,-7.61906584814e-05,-7.80907088204e-05,-7.99905881718e-05,-8.18960202848e-05,-8.38101156441e-05,-8.57325678986e-05,-8.76613734206e-05,-8.95874585344e-05,-9.15145820984e-05,-9.34442801742e-05,-9.5390175406e-05,-9.73509226195e-05,-9.93271866201e-05,-0.000101319238079,-0.00010332550993,-0.000105350572802,-0.000107389754005,-0.000109438846937,-0.000111504899459,-0.000113590668929,-0.000115696881366,-0.000117813770941,-0.000119938703404,-0.000122068637851,-0.000124199675775,-0.000126315519991,-0.000128414602074,-0.000130501695314,-0.000132576385287,-0.000134637125894,-0.000136678079257,-0.000138696077887,-0.000140700026268,-0.000142694290254,-0.000144674784141,-0.000146652096996,-0.000148634143026,-0.000150618886628,-0.00015261463103,-0.000154611609799,-0.000156611056552,-0.000158622683655,-0.000160647148901,-0.000162676916252,-0.000164714924657,-0.000166756335806,-0.00016879321593,-0.000170827795957,-0.000172845931559,-0.000174855793182,-0.000176860049495,-0.000178854184239,-0.000180829107787,-0.000182790400813,-0.000184737857442,-0.000186673255309,-0.000188600496679,-0.000190521424538,-0.000192437447917,-0.000194348533011,-0.0001962417494,-0.000198127462512,-0.00020000642619,-0.000201875448418,-0.000203734439548,-0.000205582342804,-0.000207410570357,-0.000209218391069,-0.000211006938454,-0.000212779830824,-0.000214544795126,-0.000216292055544,-0.000218016967549,-0.000219728375508,-0.000221429373106,-0.000223119381642,-0.000224802615195,-0.000226488585943,-0.000228181911811,-0.000229879605013,-0.000231575333068,-0.0002332718506,-0.000234975496013,-0.00023668747172,-0.000238397786009,-0.000240104937068,-0.000241809292943,-0.000243504789702,-0.000245186964083,-0.00024685079496,-0.000248503532427,-0.000250141648141,-0.000251765678572,-0.000253373784704,-0.000254960738298,-0.00025653391357,-0.000258093468572,-0.000259632553913,-0.0002611477135,-0.000262642596491,-0.000264122266788,-0.00026558395682,-0.000267036973124,-0.00026847145849,-0.000269895472691,-0.000271307559392,-0.000272704601313,-0.000274093727729,-0.000275483293,-0.000276876524948,-0.000278265882021,-0.000279657953808,-0.000281050277034,-0.000282442500005,-0.00028384895738,-0.000285265222237,-0.000286699256328,-0.000288155749451,-0.000289631636467,-0.000291121119743,-0.000292622093664,-0.000294129817523,-0.000295633467401,-0.000297136248516,-0.000298625492927,-0.000300101768263,-0.000301559889225,-0.000302996493687,-0.000304400927608,-0.000305774647112,-0.000307124289649,-0.00030845067588,-0.000309762557378,-0.000311058441717,-0.000312335842322,-0.000313596559397,-0.00031483694839,-0.000316052208952,-0.000317247767383,-0.000318429925228,-0.00031959982874,-0.000320758588205,-0.00032191149589,-0.000323053734103,-0.000324188451197,-0.000325316380073,-0.000326447220611,-0.00032758254977,-0.000328733290902,-0.000329894877266,-0.000331062211742,-0.000332234383228,-0.000333402107539,-0.000334568581682,-0.000335739687519,-0.000336920908796,-0.000338104295599,-0.000339288406223,-0.00034047127407,-0.0003416456363,-0.000342811038498,-0.000343971359565,-0.000345132848094,-0.000346301409539,-0.000347472798994,-0.000348643509132,-0.00034982011092,-0.000351009692852,-0.000352206843421,-0.000353411681986,-0.00035463413824,-0.000355870887924,-0.000357119727175,-0.000358367125292,-0.000359611195386,-0.000360852338116,-0.000362085827965,-0.000363300601922,-0.000364491628958,-0.000365666340402,-0.000366818047903,-0.000367947130799,-0.000369058639878,-0.000370160960233,-0.000371256753852,-0.000372342686946,-0.000373413602914,-0.000374469646533,-0.000375515699459,-0.000376559017707,-0.000377592070581,-0.000378621894484,-0.000379640118331,-0.000380633384943,-0.00038160115315,-0.000382543052555,-0.000383462117413,-0.00038436145942,-0.000385242085785,-0.000386095032022,-0.000386924284473,-0.000387721244555,-0.00038847842486,-0.000389202762827,-0.000389899897994,-0.000390569869609,-0.000391218669817,-0.000391849264614,-0.000392465305763,-0.000393072530646,-0.000393671419294,-0.000394265252375,-0.000394863461469,-0.00039547702276,-0.00039610469411,-0.000396746116103,-0.000397399085384,-0.000398061719015,-0.000398731364308,-0.000399406365034,-0.000400083249686,-0.00040076682872,-0.000401454294564,-0.000402136625544,-0.000402810133062,-0.000403471860776,-0.000404121137884,-0.000404756009614,-0.000405379545155,-0.0004059904411,-0.000406591241235,-0.000407177134744,-0.000407748471878,-0.000408308353825,-0.00040886514131,-0.000409420376972,-0.000409975048817,-0.000410533203371,-0.000411094086025,-0.000411652261872,-0.000412209018852,-0.000412767664764,-0.000413323867095,-0.000413885804061,-0.000414441775456,-0.000414997132871,-0.000415550361253,-0.000416106171686,-0.000416660539846,-0.000417209698059,-0.000417756804288,-0.000418294358881,-0.000418821065648,-0.000419337172481,-0.000419837147777,-0.000420323511142,-0.000420795460383,-0.000421248161506,-0.000421678459644,-0.000422098092277,-0.00042250312019,-0.000422895947703,-0.000423287670156,-0.000423672320584,-0.000424062581551,-0.000424453616669,-0.000424843748675,-0.000425227517827,-0.000425611315443,-0.000425988890094,-0.000426355450416,-0.000426720188318,-0.000427075944774,-0.000427418675015,-0.000427743020948,-0.000428044561131,-0.000428321750667,-0.000428583863512,-0.000428834403323,-0.000429068075059,-0.000429293527194,-0.000429503637049,-0.000429692135416,-0.000429858945713,-0.000430008123121,-0.000430142944566,-0.000430266866675,-0.000430382281335,-0.000430473890976,-0.000430542741788,-0.000430591838115,-0.000430618851467,-0.000430630029854,-0.000430634123043,-0.000430633441381,-0.000430625550268,-0.000430615455815,-0.000430592082295,-0.000430555983771,-0.000430521337738,-0.000430483531057,-0.000430445054106,-0.000430407686401,-0.000430371757667,-0.000430330354002,-0.000430285176325,-0.000430233631236,-0.000430178813569,-0.000430130443245,-0.000430085452214,-0.000430032850096,-0.000429970634218,-0.00042989942554,-0.000429814844988,-0.000429714065125,-0.000429601604707,-0.000429469639887,-0.000429318345837,-0.000429144913279,-0.000428945495433,-0.000428731397775,-0.000428505087308,-0.000428268140838,-0.000428016489794,-0.000427747307071,-0.000427460731738,-0.000427155516223,-0.000426839953611,-0.000426512954519,-0.00042617133634,-0.000425813127403,-0.000425431272564,-0.000425024605056,-0.000424596152496,-0.000424150817055,-0.000423688125597,-0.000423213923942,-0.000422723000494,-0.000422214810221,-0.000421687789838,-0.000421143978503,-0.000420585106809,-0.000420009719991,-0.000419419893165,-0.000418814725515,-0.00041818942544,-0.000417547402618,-0.000416884553061,-0.000416202892346,-0.000415504767627,-0.000414791318985,-0.000414061730214,-0.000413319211231,-0.000412553905785,-0.000411764213529,-0.000410950728176,-0.000410110737132,-0.000409238435166,-0.000408335940369,-0.000407401892027,-0.000406431039705,-0.000405424907657,-0.000404378006135,-0.000403291148295,-0.000402178964329,-0.000401047415761,-0.000399892437107,-0.000398718085275,-0.000397521525267,-0.000396306803684,-0.000395074919222,-0.000393828171411,-0.000392572216576,-0.000391314269885,-0.000390051357915,-0.000388775782946,-0.000387488218217,-0.000386193927217,-0.000384896175762,-0.000383597754402,-0.000382294057211,-0.000380987954118,-0.00037967445416,-0.000378350082203,-0.000377006314651,-0.000375641451741,-0.000374256423584,-0.000372847079266,-0.000371410809466,-0.000369941761554,-0.000368441023,-0.000366904846091,-0.000365334977376,-0.000363731676721,-0.000362095147098,-0.000360435957826,-0.000358754009422,-0.000357052182183,-0.000355333134633,-0.000353599609091,-0.000351851486612,-0.000350098993993,-0.000348338746129,-0.000346569473608,-0.000344795432079,-0.000343010214716,-0.000341214597636,-0.000339407375958,-0.000337580848909,-0.000335729139725,-0.000333852657625,-0.000331949846161,-0.000330020569123,-0.000328067135265,-0.000326083720519,-0.000324072364823,-0.000322032161885,-0.000319958189951,-0.000317861217771,-0.000315745558258,-0.000313614564898,-0.000311461261689,-0.000309288830528,-0.000307096550595,-0.000304890277296,-0.000302670321824,-0.000300437814127,-0.00029819249925,-0.000295930996712,-0.000293645371621,-0.000291337635366,-0.00028900818456,-0.000286657419666,-0.000284283903596,-0.000281885669426,-0.000279461605325,-0.000277012305511,-0.000274537811372,-0.000272040368617,-0.000269525169303,-0.000266993401249,-0.000264446446946,-0.000261881464774,-0.000259300945814,-0.000256698531305,-0.000254069611123,-0.000251411670757,-0.000248728445726,-0.000246017968314,-0.000243281894556,-0.000240517128739,-0.000237721971119,-0.000234895444152,-0.000232038419217,-0.000229154054844,-0.000226249894946,-0.000223326750551,-0.00022038849713,-0.000217433925762,-0.000214461487625,-0.000211474463469,-0.000208473501277,-0.000205458730603,-0.000202430910713,-0.000199394286028,-0.000196344261545,-0.000193280953507,-0.000190201579038,-0.000187100335064,-0.000183980917111,-0.000180845093434,-0.000177689697197,-0.000174513382893,-0.000171317694923,-0.000168096722152,-0.000164846802407,-0.00016157346662,-0.000158277376297,-0.00015496345474,-0.000151632334724,-0.000148277734291,-0.000144895212426,-0.000141490251472,-0.000138062108311,-0.000134612831785,-0.000131147688196,-0.000127668418284,-0.000124168944628,-0.000120647113452,-0.000117098466431,-0.000113525130681,-0.000109929505252,-0.000106311524127,-0.000102669621648,-9.90072819116e-05,-9.53240984014e-05,-9.16155677117e-05,-8.78831323441e-05,-8.41312963693e-05,-8.03623014855e-05,-7.65776902784e-05,-7.2731309609e-05,-6.87710351498e-05,-6.46512021401e-05,-6.03287139334e-05,-5.55275534529e-05,-5.12187397841e-05,-4.71239869482e-05,-4.320925563e-05,-3.94267775541e-05,-3.57228325072e-05,-3.20501616543e-05,-2.84529617184e-05,-2.49845851299e-05,-2.16917948194e-05,-1.86134018668e-05,-1.60216832885e-05,-1.29407499005e-05,-9.64458959658e-06,-6.1602762472e-06,-2.52603185299e-06,1.21234705099e-06,5.01079037209e-06,8.87555309581e-06,1.28116128057e-05,1.68248738532e-05,2.09210454055e-05,2.51011944746e-05,2.93677297982e-05,3.37148602954e-05,3.81362506966e-05,4.26263124028e-05,4.71767591151e-05,5.17802701408e-05,5.64326940059e-05,6.11272612811e-05,6.58507102285e-05,7.05949442119e-05,7.53539533985e-05,8.01221591781e-05,8.48989429533e-05,8.96821198087e-05,9.44751798095e-05,9.92826481467e-05,0.000104111000214,0.000108960599447,0.00011383947951,0.000118758398114,0.000123716676461,0.000128712155117,0.000133743872355,0.000138805583253,0.000143883750878,0.000148958840511,0.000154010020172,0.000159011261246,0.000163935226901,0.000168757730895,0.00017345602542,0.000178019700446,0.000182436363743,0.000186692500262,0.000190790170635,0.000194737114782,0.000198543471369,0.000202229053853,0.000205824901484,0.000209359459056,0.000212854564436,0.000216330156491,0.000219804321412,0.000223296683778,0.000226816021143,0.000230372479565,0.00023397739833,0.000237635683176,0.000241346587068,0.000245093588995,0.000248875538914,0.000252689741474,0.000256532234204,0.000260401003285,0.000264302653555,0.000268239915134,0.00027221234551,0.000276221485666,0.000280262606898,0.000284339014387,0.000288461262605,0.000292624914989,0.000296827267131,0.000301072575561,0.000305357281964,0.000309671303808,0.000314015491094,0.000318382562659,0.000322766222169,0.000327168950007,0.000331585214332,0.000336010931803,0.000340448673836,0.000344897984262,0.000349350289088,0.000353807424376,0.000358265815757,0.00036272923801,0.000367200828901,0.000371679585486,0.000376164632706,0.000380652418753,0.000385145623777,0.00038963550316,0.00039412239678,0.000398615543323,0.000403107801045,0.000407595559233,0.000412075922209,0.00041654775721,0.000421012798193,0.000425473264841,0.000429930356153,0.000434384629801,0.000438843695621,0.000443301397042,0.000447752926748,0.00045220632614,0.00045666580655,0.000461127425446,0.000465586445337,0.000470040394801,0.000474480908371,0.000478912304147,0.000483323009894,0.000487711691533,0.000492083686595,0.000496431598586,0.000500744464569,0.000505028421617,0.000509278337544,0.000513494938056,0.000517681514618,0.000521840168096,0.000525973108118,0.000530085263879,0.000534174759799,0.000538238662983,0.000542284992721,0.00054630725976,0.000550302008513,0.000554269013095,0.000558211237699,0.000562120079936,0.000565992509392,0.000569815258448,0.000573584819222,0.000577301422269,0.000580965853791,0.000584575861498,0.000588139085907,0.000591659353551,0.000595135608043,0.000598561982174,0.000601943060624,0.000605290830818,0.000608610675708,0.00061190106067,0.00061516016608,0.000618388097811,0.000621581695682,0.000624739741026,0.000627851169874,0.000630923940704,0.000633956689383,0.000636938004541,0.000639863062034,0.00064273452696,0.000645554194377,0.000648322174288,0.000651039059785,0.000653702384429,0.000656319070942,0.000658892015291,0.000661420736071,0.000663910414432,0.000666368303377,0.00066878808478,0.000671166272324,0.000673505290433,0.000675803522988,0.000678064347533,0.000680289795268,0.000682477603236,0.000684625942627,0.000686733535127,0.000688798171638,0.00069082240699,0.000692811576833,0.00069476576669,0.000696682195452,0.00069856491816,0.000700406775551,0.000702209056675,0.00070397431608,0.000705707110329,0.00070740509285,0.000709066521302,0.000710692074001,0.000712277140587,0.000713824229473,0.000715327108162,0.000716789584943,0.00071821069904,0.000719589558055,0.000720917094928,0.00072219220916,0.000723422873656,0.000724609448689,0.000725753534108,0.000726857680668,0.00072792404074,0.000728952816815,0.000729938997305,0.000730882598988,0.000731787321313,0.000732655128354,0.000733480047759,0.000734253562752,0.0007349771538,0.00073564900561,0.000736264154154,0.00073682128951,0.000737328008127,0.000737782650151,0.000738188366462,0.000738543890459,0.000738852663929,0.000739119055855,0.000739346798767,0.000739534746933,0.000739682172081,0.000739796162823,0.000739870391591,0.000739908336824,0.000739915710874,0.000739889930794,0.000739836402283,0.000739753317686,0.000739635249145,0.000739481193614,0.000739293533724,0.000739065791023,0.000738795588735,0.000738481023428,0.000738108616848,0.000737673605327,0.000737167344968,0.000736583999752,0.000735932119406,0.000735216614092,0.000734434961206,0.000733586195474,0.000732676487798,0.000731704173788,0.000730674303253,0.000729595489378,0.000728469824686,0.000727307631184,0.000726101055554,0.000724842565853,0.000723536602425,0.000722188243682,0.000720799351473,0.000719378092213,0.00071792518027,0.000716443276151,0.000714936043782,0.000713399861545,0.000711830708613,0.000710235724791,0.000708616951044,0.000706969796075,0.000705294747577,0.000703580461054,0.000701820764561,0.000700012539919,0.000698153503528,0.0006962441715,0.000694290820704,0.000692295403095,0.000690258012781,0.000688176167393,0.000686048769443,0.000683876490524,0.000681678042154,0.000679453651408,0.000677209593416,0.000674942127093,0.000672649109366,0.000670323035276,0.000667959985771,0.000665558356145,0.000663113970038,0.00066062799645,0.000658085239925,0.000655481124254,0.000652811475022,0.000650071545235,0.000647265075083,0.000644391130336,0.000641455746401,0.000638467181003,0.000635429967001,0.000632346722079,0.000629218656598,0.000626052254419,0.000622835686774,0.000619576532368,0.00061627210051,0.00061292740866,0.000609539299935,0.000606097698459,0.000602597695919,0.000599035455947,0.000595409556553,0.000591719610753,0.000587973332173,0.000584169013002,0.000580301623278,0.000576369302126,0.000572368334807,0.000568305537036,0.000564185052729,0.000560013009039,0.000555797293145,0.000551543116697,0.000547254760379,0.000542939541164,0.000538607005114,0.000534268142171,0.000529929702516,0.000525595440601,0.000521268691879,0.000516955203455,0.000512651926621,0.000508354651853,0.000504064425215,0.000499776760229,0.00049548862394,0.00049119609145,0.00048689402399,0.000482583087419,0.000478260218175,0.000473919381132,0.000469563456359,0.000465194088473,0.000460805605297,0.000456397399832,0.000451971633971,0.00044752649564,0.000443068963982,0.00043859237464,0.000434096576453,0.000429581151336,0.000425046642496,0.000420490410831,0.000415917809143,0.000411339708554,0.000406757283171,0.000402173625582,0.000397582363825,0.000392989644541,0.00038840271236,0.000383823787211,0.000379252832628,0.000374693546964,0.000370142025181,0.000365590298733,0.000361035305618,0.00035647014752,0.000351894487922,0.000347309671945,0.000342708746895,0.000338091344523,0.000333462032374,0.000328818347853,0.0003241564644,0.000319482575035,0.000314800247636,0.000310113599963,0.000305427334726,0.000300738615989,0.000296049202059,0.000291358421963,0.000286661106274,0.000281954428952,0.000277249257545,0.000272542333995,0.000267827153257,0.000263098961769,0.000258349742036,0.00025358462743,0.000248803560601,0.00024400758055,0.00023919787301,0.000234371877571,0.00022953212166,0.000224669511518,0.000219792139745,0.000214905336383,0.000210019008295,0.000205130380239,0.000200233344024,0.000195330744187,0.000190426258743,0.000185523931778,0.000180621046444,0.000175711957044,0.000170798168612,0.000165878855531,0.0001609492814,0.000156007500287,0.00015106228139,0.000146115482517,0.000141163285288,0.000136202126841,0.000131232926661,0.000126268321563,0.000121309913375,0.00011636025533,0.000111421118739,0.000106496509071,0.000101584790408,9.66859352689e-05,9.17976853401e-05,8.69212342425e-05,8.20596835053e-05,7.72066632728e-05,7.23597643957e-05,6.75176833295e-05,6.26827136518e-05,5.78553070038e-05,5.3035313348e-05,4.82220227469e-05,4.34140268139e-05,3.8621473994e-05,3.38402418915e-05,2.90728161961e-05,2.43278659772e-05,1.96066796149e-05,1.49098533074e-05,1.02337901403e-05,5.57824654044e-06,9.46344305036e-07,-3.65676425399e-06,-8.22986507586e-06,-1.27762547842e-05,-1.72910563635e-05,-2.17814871556e-05,-2.62543878436e-05,-3.07074833663e-05,-3.51378021904e-05,-3.95425255162e-05,-4.39247306624e-05,-4.82898534415e-05,-5.26370225688e-05,-5.69703028494e-05,-6.12887975218e-05,-6.55944809979e-05,-6.98851000187e-05,-7.4162060733e-05,-7.84286021646e-05,-8.26867105047e-05,-8.69329590015e-05,-9.11614397561e-05,-9.53753133869e-05,-9.95778125935e-05,-0.00010376282426,-0.000107932197984,-0.000112077317687,-0.000116193485808,-0.000120276398407,-0.000124323916237,-0.000128343672846,-0.000132340322885,-0.000136318760511,-0.000140268394986,-0.000144196575187,-0.000148101773373,-0.000151988973778,-0.000155864346926,-0.000159732275071,-0.000163598959473,-0.000167460318631,-0.000171303596572,-0.00017512220762,-0.000178915481733,-0.000182687553127,-0.000186430369281,-0.00019014943,-0.00019383738871,-0.000197488729983,-0.000201095322633,-0.000204654146956,-0.000208179889755,-0.000211676278863,-0.000215150370766,-0.000218592375959,-0.000222003323351,-0.000225379540624,-0.000228718384381,-0.000232032566565,-0.000235328282357,-0.000238612892875,-0.000241878014697,-0.000245121104971,-0.000248336195416,-0.000251526574869,-0.00025470309237,-0.000257867291937,-0.000261022728051,-0.000264161986301,-0.000267272367108,-0.000270346792998,-0.000273384109646,-0.000276390248949,-0.000279364024726,-0.000282309886207,-0.00028521984839,-0.000288089926361,-0.000290919847562,-0.000293710082137,-0.000296471235146,-0.000299209235074,-0.000301927858732,-0.00030462798899,-0.000307308473071,-0.000309964012202,-0.000312594575741,-0.000315203066827,-0.000317793237781,-0.000320361091047,-0.000322902425376,-0.00032541272602,-0.00032788666319,-0.000330326544814,-0.00033272655151,-0.000335085337251,-0.000337405773857,-0.000339685538889,-0.000341925807592,-0.000344126800008,-0.000346290176134,-0.000348418147732,-0.00035051955196,-0.000352589568356,-0.000354629638423,-0.000356646432486,-0.000358643043521,-0.00036061556015,-0.000362566917541,-0.000364494643339,-0.000366398608533,-0.000368281056356,-0.000370139997988,-0.000371966386848,-0.000373763189747,-0.000375528110168,-0.000377259462465,-0.00037895984731,-0.000380626881515,-0.000382264007889,-0.000383872567956,-0.000385456197041,-0.000387005644834,-0.000388533236437,-0.000390045289799,-0.000391540399656,-0.000393021204404,-0.000394484762548,-0.000395928908058,-0.000397358141523,-0.000398766067363,-0.000400148739808,-0.000401510465678,-0.000402852284906,-0.000404165316021,-0.000405444729172,-0.000406693555591,-0.000407911516098,-0.000409095686143,-0.000410247421412,-0.000411363115154,-0.000412442754499,-0.000413486595766,-0.000414490793576,-0.000415460498726,-0.000416404374525,-0.000417320890005,-0.000418211541562,-0.000419075544637,-0.000419914907051,-0.00042073599218,-0.000421542484623,-0.000422339090484,-0.000423121038186,-0.000423880336092,-0.000424565994495,-0.000425118258356,-0.000425538019135,-0.000425816705817,-0.000425954055106)
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(232)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Sus_scrofa-male-liver-H3K4me3-ERR572292.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) : 232',bty='n')
dev.off()