# R script for Peak Model
#  -- generated by MACS
p <- c(0.0328926522966,0.0380007380008,0.0434828467169,0.0485802460494,0.0537310772408,0.0537097044972,0.0534318588313,0.0526624400641,0.0520426305017,0.0527372446665,0.0529189129865,0.0536669590102,0.0533891133443,0.0540837275091,0.0542440230856,0.0542119639703,0.0544684368926,0.0546714779562,0.0549172645068,0.0546287324691,0.0547142234433,0.0542760822009,0.0545966733538,0.0543722595468,0.0548531462762,0.0546073597256,0.0550241282245,0.0552164829163,0.0560820790294,0.0562637473494,0.0558149197352,0.0556225650434,0.0555157013257,0.0562423746058,0.0561996291188,0.0568621841683,0.0563492383235,0.0565202202718,0.0554195239798,0.0549813827374,0.0549493236221,0.0549493236221,0.0547676553021,0.0540089229067,0.0532822496266,0.0534852906902,0.0535707816643,0.0536135271513,0.0542547094573,0.0542012775985,0.0544363777773,0.0542440230856,0.0547783416739,0.0547035370715,0.0552271692881,0.0542653958291,0.054179904855,0.0537845090996,0.053581468036,0.0538379409584,0.0539661774196,0.0546287324691,0.0542547094573,0.0543402004315,0.0541585321114,0.0550882464551,0.0550561873398,0.0550775600833,0.0552912875186,0.0556439377869,0.0558149197352,0.0560393335423,0.056648456733,0.0569476751424,0.0572148344366,0.0565736521306,0.0570331661166,0.057193461693,0.0569476751424,0.0569156160271,0.0571293434624,0.0570011070013,0.0567873795659,0.0569797342577,0.0572575799236,0.0572468935519,0.0575995438202,0.0577277802814,0.0582193533826,0.0583582762156,0.0580590578061,0.0581659215238,0.0584117080744,0.0583048443567,0.0580697441779,0.0592131859569,0.0587643583427,0.0595444634816,0.06026045039,0.0598971137499,0.0600467229546,0.0598864273781,0.0601963321594,0.0606024142865,0.060762709863,0.0603352549923,0.0606665325171,0.0605489824277,0.0606451597735,0.0609123190677,0.061126046503,0.0607733962347,0.0608268280936,0.0607092780041,0.0608695735806,0.0612115374772,0.0613077148231,0.0609657509265,0.060303195877,0.0602390776464,0.0601535866723,0.0609871236701,0.0608268280936,0.0605703551712,0.0605382960559,0.0604848641971,0.0606024142865,0.0606665325171,0.0607733962347,0.0614893831431,0.0615535013737,0.0613504603101,0.0617886015525,0.0619168380137,0.0620237017314,0.0622588019103,0.0617031105784,0.0618954652702,0.0618634061549,0.0616389923478,0.0619595835008,0.0617244833219,0.0612008511054,0.061585560489,0.0614573240278,0.061083301016,0.0610405555289,0.060762709863,0.0604314323382,0.0609657509265,0.0610191827854,0.0614359512843,0.0611474192466,0.0608268280936,0.0612863420795,0.0616069332325,0.0618954652702,0.0622160564232,0.0631350843951,0.0623549792561,0.0623656656279,0.0629641024468,0.0628251796139,0.0628144932421,0.0630068479339,0.0633381254586,0.0640113668799,0.063872444047,0.063915189534,0.0641609760846,0.0645991173271,0.06437470352,0.0651654950307,0.0664478596426,0.0662555049508,0.0661272684896,0.0670035509745,0.0675913014216,0.0671424738074,0.0672172784098,0.0673562012428,0.0672707102686,0.0677409106263,0.0669608054874,0.0676874787675,0.068350033817,0.0680615017793,0.0684996430218,0.0690339616101,0.0687347432006,0.0687133704571,0.0689805297512,0.0687133704571,0.0690980798407,0.0687668023159,0.0689270978924,0.0685423885088,0.0680615017793,0.0681790518688,0.0698033803772,0.0700598532996,0.0702949534785,0.0709040766692,0.0708506448103,0.0715345726034,0.0712032950786,0.0716948681799,0.0723146777423,0.0728276235871,0.0724856596906,0.0723146777423,0.0722185003964,0.0721116366787,0.0720154593329,0.0718017318975,0.0720368320764,0.0719406547305,0.0719085956152,0.072100950307,0.0722505595117,0.0729986055353,0.0738321425331,0.0737680243025,0.0741527336861,0.0740886154555,0.0747939159921,0.074932838825,0.0746977386462,0.0741206745708,0.0738214561614,0.073564983239,0.0741527336861,0.0747725432485,0.0752748027216,0.0764396172441,0.0761083397193,0.0762686352958,0.0765571673335,0.0770914859218,0.077358645216,0.0781601230985,0.0777433545996,0.0781494367267,0.078363164162,0.0782135549573,0.0788440508915,0.0796775878893,0.0804149475411,0.0808744615271,0.0815049574613,0.0817400576402,0.0817293712684,0.0818896668449,0.0820927079084,0.0816225075507,0.0812484845389,0.0812805436542,0.0818148622425,0.0823278080873,0.0825522218944,0.082434671805,0.082936931278,0.0830544813674,0.0839307638522,0.0843368459794,0.0852772466948,0.0850528328877,0.0852451875795,0.0854268558995,0.0848284190806,0.0846574371323,0.0849245964265,0.0855764651042,0.0847429281065,0.0858115652831,0.0858970562572,0.0867733387421,0.0867519659985,0.0872114799845,0.0874465801633,0.0883014899046,0.0883869808788,0.0881732534434,0.0885472764553,0.0881839398152,0.0886648265447,0.0882159989305,0.0888464948647,0.0894556180554,0.0908769055003,0.0912081830251,0.0916356378957,0.0924050566629,0.0930676117124,0.0933240846348,0.0938049713643,0.094136248889,0.0944034081832,0.094275171722,0.0949377267715,0.0956109681928,0.0969040191765,0.0981008928143,0.0996397303486,0.101456413549,0.102663973558,0.106008807921,0.107707941032,0.110283356628,0.112388571866,0.113724368337,0.114258686925,0.114931928346,0.116321156676,0.116727238803,0.117005084469,0.116556256855,0.117111948186,0.116449393137,0.116417334022,0.116866161636,0.118458431029,0.118725590323,0.11924922254,0.12052090078,0.121568165213,0.122113170173,0.12270092062,0.123149748234,0.122626116018,0.1225192523,0.121920815481,0.12233758398,0.121653656187,0.121354437778,0.121461301495,0.12215591566,0.123160434606,0.124175639924,0.125372513562,0.125671731971,0.126868605609,0.127349492339,0.127915870042,0.128685288809,0.129689807755,0.129582944038,0.129444021205,0.129721866871,0.130085203511,0.131698845647,0.132126300518,0.132810228311,0.134007101949,0.134552106909,0.134648284255,0.135642116829,0.136219180905,0.136646635775,0.137565663747,0.137319877196,0.137608409234,0.137587036491,0.137651154721,0.137266445338,0.137533604632,0.137768704811,0.13782213667,0.138132041451,0.138238905168,0.139307542345,0.139916665536,0.141199030148,0.141872271569,0.143176008924,0.14338973636,0.1428447314,0.14320806804,0.144383568934,0.144394255306,0.144340823447,0.144875142035,0.145494951598,0.145719365405,0.146168193019,0.146894866299,0.147664285066,0.147674971438,0.146884179927,0.147268889311,0.148316153744,0.148187917283,0.147407812144,0.147845953386,0.147781835156,0.148519194808,0.149074886139,0.15041068261,0.151222846864,0.151361769697,0.151896088286,0.152505211476,0.153103648295,0.153477671307,0.154749349547,0.154663858573,0.155230236277,0.155358472738,0.155112686187,0.156138577877,0.15591416407,0.156127891505,0.157891142847,0.156993487618,0.156747701068,0.157078978592,0.157762906385,0.158927720908,0.160081849059,0.160498617558,0.160797835967,0.161321468184,0.161150486235,0.162582460052,0.162400791732,0.163373251563,0.163437369793,0.162903051205,0.163715215459,0.165147189276,0.165756312467,0.166312003798,0.166600535836,0.167060049822,0.167989764166,0.169720956392,0.171633816938,0.17291618155,0.173172654472,0.171687248797,0.172595590397,0.173247459075,0.174038250585,0.175106887762,0.175748070068,0.174839728468,0.17473286475,0.174390900854,0.17436952811,0.175844247414,0.175972483875,0.1753954198,0.175021396788,0.175256496967,0.175993856619,0.175908365644,0.175983170247,0.17618621131,0.176827393616,0.177212103,0.178141817344,0.179434868327,0.179766145852,0.179498986558,0.179905068685,0.179734086737,0.177992208139,0.178793686021,0.178227308318,0.176773961758,0.175427478915,0.174348155367,0.174743551122,0.17436952811,0.172905495178,0.171815485258,0.172755885973,0.171559012336,0.171441462246,0.171655189681,0.170479688787,0.169838506481,0.167914959563,0.167615741154,0.166301317427,0.166066217248,0.1645701252,0.163330506076,0.162667951026,0.161599313849,0.161460391016,0.160584108532,0.159804003393,0.15845752055,0.157837710988,0.156683582837,0.155743182122,0.155508081943,0.154001303524,0.154215030959,0.154236403702,0.153819635204,0.152943352719,0.15307158918,0.152996784578,0.152686879796,0.152280797669,0.151896088286,0.15131902421,0.14932067269,0.148743608615,0.147856639758,0.146969670901,0.146061329301,0.144672100972,0.144607982741,0.144992692125,0.144811023805,0.143432481847,0.144062977781,0.142224921837,0.142107371748,0.142214235465,0.142107371748,0.141850898825,0.141947076171,0.140600593329,0.138709105526,0.140322747663,0.140301374919,0.139916665536,0.13988460642,0.139489210665,0.139040383051,0.139809801818,0.138217532425,0.138538123578,0.139553328896,0.138741164641,0.137619095606,0.13824959154,0.136924481441,0.13715958162,0.135535253112,0.135278780189,0.135781039662,0.136123003559,0.135642116829,0.135716921432,0.135439075766,0.135300152933,0.135866530636,0.136379476481,0.137416054542,0.136785558608,0.13734124994,0.136390162853,0.135994767097,0.135695548688,0.136240553648,0.136967226928,0.13806792322,0.138516750834,0.13897626482,0.140643338816,0.141968448915,0.143966800435,0.145676619918,0.148925276935,0.152109815721,0.155689750263,0.160359694725,0.166183767337,0.172841376948,0.178676135932,0.185055899876,0.189757903454,0.195443053233,0.199589365479,0.202399881253,0.202581549573,0.200925161949,0.19687502705,0.191435663821,0.186145909797,0.179445554699,0.173429127395,0.167369954603,0.160113908174,0.153424239448,0.148337526488,0.143806504859,0.139606760754,0.137458800029,0.134039161064,0.131025604226,0.129828730588,0.126900664724,0.125511436395,0.124378680988,0.12263680239,0.120275114229,0.11870421758,0.116395961278,0.113809859311,0.111490916637,0.107665195545,0.105549293935,0.102663973558,0.0995862984898,0.0972780421883,0.0966475462541,0.0953865543857,0.0934630074677,0.092950061623,0.092169956484,0.0923302520605,0.0916249515239,0.0912829876274,0.0913150467427,0.0918600517028,0.0911761239098,0.0912402421404,0.0912936739992,0.0909303373591,0.0911333784227,0.0906738644367,0.0902891550532,0.089519736286,0.089338067966,0.088194626187,0.0878633486622,0.0873931483045,0.086548924935,0.0862924520126,0.0859504881161,0.0858863698855,0.0859291153725,0.0861214700643,0.0856085242195,0.0849780282853,0.0840162548264,0.0833964452639,0.0831613450851,0.0831292859698,0.0827766357015,0.0825522218944,0.0821354533955,0.0815263302048,0.0814942710895,0.0822423171132,0.082114080652,0.0812698572824,0.0813660346283,0.0808744615271,0.0804790657717,0.0802973974517,0.0797737652352,0.0792928785057,0.0792073875315,0.078042573009,0.0777112954843,0.0779143365478,0.0772731542419,0.0769311903453,0.0760869669758,0.0754885301569,0.0762686352958,0.075894612284,0.0749969570556,0.0749007797097,0.0746977386462,0.0743450883779,0.074932838825,0.0744840112109,0.0746336204156,0.0750290161709,0.0738748880202,0.0736504742131,0.073746651559,0.0736825333284,0.0729558600483,0.0732016465989,0.0723467368576,0.0722291867682,0.0718765364999,0.0709895676433,0.0707330947209,0.0707437810927,0.0700277941843,0.0695575938266,0.0698354394925,0.0690019024948,0.0689591570077,0.0691194525842,0.0687133704571,0.06867062497,0.0687026840853,0.0682004246123,0.0690339616101,0.0687881750594,0.0684568975347,0.068350033817,0.0677836561134,0.0672707102686,0.0671852192945,0.0668966872568,0.0669073736286,0.066886000885,0.066383741412,0.0667363916803,0.066843255398,0.066886000885,0.066383741412,0.0664158005273,0.0657853045931,0.0655715771578,0.0648235311342,0.0649838267107,0.0644601944941,0.0639793077646,0.0638831304187,0.0636587166116,0.0639686213929,0.0639899941364,0.0641930351999,0.0638190121881,0.0641823488282,0.0643105852894,0.0647914720189,0.0647273537883,0.0649517675954,0.0649731403389,0.0645029399812,0.0642785261741,0.0645456854682,0.0640754851105,0.0632205753692,0.0625045884609,0.0617886015525,0.0619595835008,0.0610512419007,0.0609871236701,0.0609871236701,0.0613504603101,0.0611153601313,0.0616389923478,0.0620664472185,0.0621519381926,0.0623122337691,0.0617565424372,0.0614893831431,0.0614680103995,0.0613932057972,0.0605276096841,0.060303195877,0.0602925095053,0.0596299544558,0.0593200496745,0.0594162270204,0.0593948542769,0.0593093633028,0.0590315176368,0.0584971990485,0.0585185717921,0.0586788673686,0.0586040627662,0.058294157985,0.0583903353309,0.0575567983331,0.0570545388601,0.057332384526,0.057332384526,0.057834643999,0.0574285618719,0.056969047886,0.0568835569118,0.0577064075378,0.0580483714343,0.0580697441779,0.0576957211661,0.0574926801025,0.0574392482437,0.0576957211661,0.0576850347943,0.057834643999,0.057150716206,0.0568408114248,0.0561248245164,0.0561141381447,0.0565843385024,0.0572041480648,0.0567660068224,0.0562316882341,0.0559110970811,0.0553767784928,0.056188942747,0.0557187423893,0.0557721742481,0.0556653105305,0.0557187423893,0.0551523646857,0.0549172645068,0.054543241495,0.0545325551232,0.0548424599045,0.0538058818431,0.053720390869,0.0535707816643,0.0536883317537,0.0533677406007,0.0532288177678,0.0530898949348,0.0533249951137,0.0535280361772,0.0538165682149,0.0542440230856,0.0542760822009,0.054404318662,0.054040982022,0.0538486273302,0.053902059189,0.0539127455608,0.0541585321114,0.0544791232644,0.0538165682149,0.0536348998949,0.053859313702,0.0537845090996,0.0540730411373,0.0541905912267,0.0539341183043,0.0536990181255,0.0534852906902,0.0527372446665,0.0528441083842,0.0530578358195,0.0530150903324,0.0525876354618,0.0524593990006,0.0526517536924,0.0519464531558,0.0524807717441,0.0528761674995,0.0536669590102,0.0533463678572,0.0533143087419,0.0527372446665,0.0524807717441,0.0529723448454,0.0528868538712,0.0534318588313,0.0531967586525,0.0527265582947,0.0522777306806,0.0526090082053,0.0523739080265,0.0528227356406,0.0534746043184,0.0527693037818,0.052256357937,0.0522242988217,0.0518716485534,0.0516579211181,0.0521494942194,0.0520105713864,0.0520319441299,0.0515510574005,0.0508457568639,0.051070170671,0.0511342889016,0.0510167388121,0.0517434120922,0.051112916158,0.0504717338521,0.0508243841204,0.0505144793391,0.0506961476592,0.0508457568639,0.0507175204027,0.0514228209393,0.0518075303228,0.0511449752733,0.0519464531558,0.0518609621817,0.0513480163369,0.0514228209393,0.0512090935039,0.0510487979274,0.0511770343886,0.050567911198,0.0500122198661,0.0498626106614,0.0497343742002,0.0499801607508,0.0500763380967,0.0498732970332,0.0500015334943,0.050290065532,0.0500656517249,0.0505892839415,0.0510487979274,0.0514762527981,0.0514762527981,0.0514121345675,0.0515617437722,0.0512304662475,0.0516151756311,0.0513266435934,0.0514655664263,0.0510808570427,0.0512090935039,0.0510381115557,0.0512945844781,0.0508564432356,0.0505358520827,0.0509739933251,0.0503114382756,0.0507282067745,0.050610656685,0.0509739933251,0.0507175204027,0.0504503611085,0.0499053561485,0.0501725154426,0.0502366336732,0.0503007519038,0.0506747749156,0.0506213430568,0.0505785975697,0.0501404563273,0.0502259473014,0.0505572248262,0.0508885023509,0.0508136977486,0.0510915434145,0.0513587027087,0.0513052708498,0.0515296846569,0.0516044892593,0.051572430144,0.0513159572216,0.0512945844781,0.0511556616451,0.051251838991,0.0510060524404,0.0509633069533,0.0507282067745,0.0501404563273,0.0503328110191,0.0504717338521,0.0502686927885,0.0502152609297,0.0507602658898,0.0514655664263,0.0515510574005,0.051390761824,0.051935766784,0.05221361245,0.0517647848358,0.0518289030664,0.0521281214758,0.0522884170523,0.0517327257205,0.0511663480169,0.0512838981063,0.0508243841204,0.0506854612874,0.0509205614662,0.0512090935039,0.0511449752733,0.0513052708498,0.0512838981063,0.0508671296074,0.050931247838,0.0506427158003,0.0511663480169,0.0512945844781,0.0514976255416,0.0514869391699,0.0510594842992,0.0511984071322,0.0510808570427,0.0519678258993,0.0520319441299,0.0521281214758,0.0518395894381,0.0513693890804,0.0513373299651,0.0515831165158,0.0515617437722,0.0513373299651,0.0511236025298,0.0512838981063,0.051070170671,0.0512304662475,0.0516365483746,0.0516151756311,0.0516258620028,0.0510060524404,0.0513266435934,0.0512090935039,0.0517220393487,0.0510167388121,0.0508136977486,0.0506747749156,0.0507175204027,0.0509846796968,0.050290065532,0.0505572248262,0.050567911198,0.0503862428779,0.0503434973909,0.0507282067745,0.0508030113768,0.0504931065956,0.0501618290708,0.0508564432356,0.0515938028875,0.0519891986429,0.0520533168735,0.0524059671418,0.0525128308594,0.0521601805911,0.0526624400641,0.0526517536924,0.0532822496266,0.0519785122711,0.0517754712075,0.0510487979274,0.0509633069533,0.0513480163369,0.0516365483746,0.051893021297,0.0510808570427,0.0513159572216,0.0508671296074,0.0512197798757,0.0512090935039,0.0516044892593,0.0514548800546,0.0514014481957,0.0510060524404,0.0513159572216,0.0519037076687,0.0522242988217,0.0525235172312,0.0532715632548,0.0532929359984,0.0532929359984,0.0537417636125,0.0533356814854,0.0533249951137,0.0531219540501,0.0527479310383,0.0521815533347,0.0522242988217,0.0518289030664,0.0514014481957,0.0515938028875,0.051572430144,0.0519464531558,0.0516365483746,0.0514869391699,0.0519571395276,0.0526517536924,0.0524807717441,0.0522991034241,0.0524487126288,0.0527265582947,0.0525021444877,0.05221361245,0.0527051855512,0.0530257767042,0.0528547947559,0.0528547947559,0.0524273398853,0.0523845943982,0.0521815533347,0.0522029260782,0.0517647848358,0.0518182166946,0.0514762527981,0.0511022297863,0.0512304662475,0.0507923250051,0.0508671296074,0.0512090935039,0.0514869391699,0.0508136977486,0.0515831165158,0.0515617437722,0.0512838981063,0.0512304662475,0.0511449752733,0.0509739933251,0.0509846796968,0.0510487979274,0.051251838991,0.0507816386333,0.0507816386333,0.0503755565062,0.0504824202238,0.050567911198,0.0506320294286,0.0506640885439,0.0508885023509,0.050610656685,0.049969474379,0.0506320294286,0.0502259473014,0.0501404563273,0.0504610474803,0.0502686927885,0.0500335926096,0.0502580064167,0.049606137739,0.0496381968543,0.0498198651743,0.0502259473014,0.0504931065956,0.0505785975697,0.0501832018144,0.0505572248262,0.0504183019932,0.0503862428779,0.0510274251839,0.051390761824,0.0516258620028,0.0512304662475,0.0507175204027,0.0510808570427,0.0512945844781,0.0516365483746,0.0519678258993,0.0523418489112,0.0522884170523,0.0517327257205,0.0518502758099,0.0519250804123,0.0522777306806,0.0520426305017,0.051711352977,0.0508030113768,0.0505358520827,0.0500549653532,0.0497771196873,0.0497984924308,0.0493496648166,0.0495099603931,0.0496168241108,0.049787806059,0.050290065532,0.0507602658898,0.0509098750945,0.050931247838,0.0510381115557,0.0513373299651,0.0519143940405,0.0516579211181,0.0514441936828,0.0515189982852,0.0508564432356,0.0504503611085,0.0503862428779,0.0502045745579,0.0503755565062,0.0497343742002,0.0493282920731,0.0489115235742,0.0487512279977,0.048783287113,0.0491252510095,0.0494458421625,0.0492962329578,0.0495633922519,0.0493817239319,0.0495420195084,0.0497023150849,0.0499053561485,0.0504503611085,0.0503434973909,0.0501832018144,0.0495527058802,0.0495206467649,0.0488580917154,0.0483665186141,0.0482275957811,0.0480779865764,0.0477253363081,0.0475116088728,0.0477039635646,0.0479497501152,0.0484733823318,0.04846269596,0.0489008372024,0.0491679964966,0.0500122198661,0.049787806059,0.0498839834049,0.0495420195084,0.0494885876496,0.0491252510095,0.0488580917154,0.0491573101248,0.048964955433,0.0441988336253,0.0387167249092,0.0340254077038,0.0293875223572,0.0)
m <- c(0.0279552309916,0.032446890141,0.0370241047027,0.0418045133688,0.0463068669448,0.0462747836651,0.0465956164615,0.0470875600826,0.0467453384331,0.0467881161393,0.0469699213906,0.0475367259976,0.0475153371445,0.047526031571,0.0481356138841,0.047878947647,0.0476222814099,0.0473549207463,0.0476650591161,0.047975197486,0.0475367259976,0.047055476803,0.0474404761586,0.0472586709074,0.0470768656561,0.0470020046703,0.0472479764808,0.0466276997411,0.0469271436844,0.047055476803,0.0471624210684,0.0471624210684,0.047173115495,0.0474297817321,0.0476864479692,0.0478254755143,0.0481997804434,0.0487558906238,0.0487131129176,0.0484243634009,0.0488307516096,0.0492478342449,0.0496114447475,0.0499322775439,0.0495045004821,0.0496435280272,0.0497932499988,0.0502210270606,0.0503386657526,0.0505097765774,0.0503172768996,0.0504135267385,0.0497504722926,0.0496970001599,0.0502958880465,0.0500499162359,0.0496114447475,0.0493440840839,0.0491195011264,0.0494938060555,0.0496114447475,0.049151584406,0.0493547785104,0.0492478342449,0.0488949181689,0.0496328336006,0.0504563044447,0.0502424159137,0.0501354716483,0.049365472937,0.0491195011264,0.0497932499988,0.0495472781882,0.0491088066998,0.0488949181689,0.0483708912682,0.0479538086329,0.0478896420736,0.048328113562,0.0484885299602,0.0487665850504,0.0482532525762,0.0487665850504,0.0490446401406,0.0486917240645,0.0488521404627,0.0482211692965,0.048328113562,0.0479324197798,0.0480179751921,0.0478040866612,0.0477720033816,0.0478040866612,0.0479645030594,0.0484564466805,0.048092836178,0.0482853358558,0.0480607528983,0.0482960302823,0.0483174191354,0.0488628348893,0.0487558906238,0.0488200571831,0.0490232512875,0.049365472937,0.049365472937,0.049600750321,0.0498146388519,0.0498039444253,0.049953666397,0.0496970001599,0.0501033883686,0.0499857496766,0.0501033883686,0.0501247772217,0.0506488041225,0.0512690808622,0.0517717189098,0.0517824133364,0.0519428297346,0.0522315792513,0.0528839392706,0.0533117163325,0.053557688143,0.0534507438776,0.0535469937165,0.0532154664936,0.0521353294124,0.0521567182655,0.0515899136585,0.0512049143029,0.0507450539614,0.0505953319898,0.0503386657526,0.0501247772217,0.0499857496766,0.0500606106625,0.0507450539614,0.0510979700374,0.0513653307011,0.051226303156,0.0510658867578,0.0511835254498,0.0518251910426,0.0520176907204,0.0523919956495,0.0525844953273,0.0532261609201,0.0530978278016,0.0533865773183,0.0540389373376,0.0541137983234,0.0541672704562,0.0537608822474,0.0538143543801,0.0539212986456,0.0534828271572,0.0535469937165,0.0534293550245,0.0539854652049,0.0536967156881,0.0539640763518,0.0538999097925,0.0534293550245,0.0543704645605,0.0542849091482,0.0550442134329,0.054477408826,0.0543490757074,0.0538464376598,0.0538678265129,0.0535362992899,0.0533437996121,0.053322410759,0.0523492179433,0.0518679687487,0.0510231090516,0.0510979700374,0.0515899136585,0.0512904697153,0.0513760251276,0.0516113025116,0.0520711628531,0.0521567182655,0.052049774,0.0522743569575,0.0525738009008,0.0527769950052,0.052381301223,0.0528197727114,0.0526379674601,0.0524668566353,0.0521994959717,0.0524026900761,0.0525417176212,0.0527556061521,0.0531726887874,0.0524775510619,0.0522529681044,0.0525738009008,0.0528304671379,0.0526486618866,0.0524561622088,0.052498939915,0.0524347733557,0.0519000520284,0.0512156087294,0.0515471359524,0.0515364415258,0.0512049143029,0.0511621365967,0.0515150526727,0.0512049143029,0.0507664428145,0.0509696369189,0.0513760251276,0.0517182467771,0.0518465798957,0.0520283851469,0.0519107464549,0.0518038021895,0.0519107464549,0.0517503300567,0.0516754690709,0.0515150526727,0.0515150526727,0.0513225529949,0.0511193588905,0.0511621365967,0.0509161647861,0.0506381096959,0.0499750552501,0.0502531103403,0.0501996382075,0.0501996382075,0.0500499162359,0.0499857496766,0.0505097765774,0.0508306093738,0.0511728310232,0.0516647746444,0.0518358854691,0.0517931077629,0.0527449117255,0.0530443556688,0.0534935215838,0.0538678265129,0.0538999097925,0.0537394933943,0.053889215366,0.0537501878209,0.0541886593093,0.0541672704562,0.0536218547023,0.0535790769961,0.053322410759,0.053204772067,0.0533331051856,0.053557688143,0.052969494683,0.0532475497732,0.0534507438776,0.0537929655271,0.0533437996121,0.0529908835361,0.0526700507397,0.0526379674601,0.0520711628531,0.0516433857913,0.0525738009008,0.0522422736779,0.0519856074408,0.051932135308,0.0522101903982,0.0519749130142,0.0519642185877,0.0515150526727,0.0513867195542,0.0513867195542,0.0506060264163,0.0506274152694,0.050306582473,0.0501568605014,0.0500926939421,0.0503707490323,0.0502317214872,0.0502958880465,0.0509803313454,0.0515257470993,0.0517931077629,0.0516113025116,0.052285051384,0.0525738009008,0.0529588002565,0.0529801891095,0.0533758828918,0.0535897714227,0.0535042160103,0.0529481058299,0.0530229668157,0.0538250488067,0.0530550500954,0.0525738009008,0.0523599123699,0.0526914395928,0.0528090782848,0.0533331051856,0.0532154664936,0.0533331051856,0.0534293550245,0.0532903274794,0.0533758828918,0.0531833832139,0.0533010219059,0.0525844953273,0.052263662531,0.0519856074408,0.0524347733557,0.0524347733557,0.0521460238389,0.0514722749665,0.0514401916869,0.0518465798957,0.0512797752887,0.0513225529949,0.0511835254498,0.0511300533171,0.0514188028338,0.0516861634975,0.051932135308,0.0523385235168,0.052167412692,0.0522957458106,0.0530978278016,0.0532154664936,0.0530657445219,0.0532475497732,0.0523064402371,0.0521353294124,0.052167412692,0.0515364415258,0.0516861634975,0.0514508861134,0.0511193588905,0.0512369975825,0.0514722749665,0.0514188028338,0.0514294972604,0.0514294972604,0.0513546362745,0.0518893576018,0.0519535241611,0.0521781071186,0.0521994959717,0.0524775510619,0.0523706067964,0.0520604684266,0.0522743569575,0.0525524120477,0.0526807451663,0.052734217299,0.0531619943608,0.0532582441997,0.0537929655271,0.0542100481623,0.0546699085038,0.0547875471958,0.0550549078595,0.0550869911391,0.0550976855657,0.0553008796701,0.0551083799922,0.0553222685231,0.0557286567319,0.0560922672345,0.0562633780592,0.0564451833105,0.0562312947796,0.0562526836327,0.0559746285425,0.0553008796701,0.055065602286,0.0547233806366,0.0537822711005,0.0534828271572,0.0533544940387,0.0535256048634,0.0539106042191,0.0540496317642,0.0542528258685,0.0551511576984,0.055750045585,0.055632406893,0.0563703223247,0.0561136560876,0.0560708783814,0.0561564337937,0.0561243505141,0.0565628220025,0.0567232384007,0.0562312947796,0.0564024056043,0.0569478213582,0.0568836547989,0.0573862928466,0.0570547656236,0.0568408770927,0.0570654600502,0.05678740496,0.056455877737,0.056669766268,0.0567660161069,0.0568301826662,0.0566911551211,0.056552127576,0.0573221262873,0.0574504594058,0.0571296266094,0.0568301826662,0.0579103197473,0.0581883748375,0.0586375407524,0.059236428639,0.0595144837292,0.0594824004496,0.0594610115965,0.0595251781558,0.0598673998053,0.0600919827627,0.0600492050565,0.0599743440707,0.0595893447151,0.0589476791223,0.0588407348568,0.0588728181365,0.0590546233877,0.0598994830849,0.0596107335681,0.0601989270282,0.0599636496442,0.060273788014,0.0601133716158,0.0604342044122,0.0603593434264,0.0601989270282,0.0603807322795,0.0601989270282,0.0609368424599,0.0601454548955,0.0606694817962,0.0605304542511,0.0604876765449,0.0600919827627,0.0608298981944,0.0620062851145,0.0618458687163,0.0623164234843,0.0619848962614,0.0630008667833,0.0630115612098,0.0634714215513,0.0642948923954,0.0649793356943,0.0649044747085,0.0642948923954,0.064562253059,0.064091698291,0.0645943363386,0.0644125310874,0.064679891751,0.0644873920732,0.0639205874662,0.064091698291,0.0641023927175,0.064679891751,0.0646585028979,0.065150446519,0.0652360019314,0.0646691973245,0.0644980864997,0.0649686412678,0.0653964183296,0.065150446519,0.065834889818,0.0660487783489,0.06654072197,0.0667866937806,0.0672572485486,0.0684443298953,0.0682411357909,0.0683480800563,0.0687009961324,0.0690646066349,0.068497802028,0.0684122466156,0.0690646066349,0.0686475239996,0.0685084964545,0.0683266912032,0.0683694689094,0.0682304413643,0.0679523862741,0.0682946079236,0.0681341915254,0.0677812754494,0.0671503042832,0.0673641928141,0.0679844695538,0.068048636113,0.0686796072793,0.0688400236775,0.0694282171375,0.0696955778012,0.0698559941993,0.0702196047019,0.0704121043797,0.0715350191671,0.0717702965511,0.0727327949403,0.0728183503526,0.0730001556039,0.0734707103719,0.0736525156232,0.0738984874338,0.0742514035098,0.0746150140124,0.0743690422018,0.0746150140124,0.0745936251593,0.075235290752,0.0757272343732,0.0757165399466,0.0758448730652,0.0768073714543,0.0772565373693,0.0781762580522,0.0777484809904,0.077545286886,0.0775025091798,0.0771282042507,0.0779837583744,0.0779195918151,0.0786147295406,0.0798125053138,0.0801761158164,0.0802723656553,0.080892642395,0.0811600030586,0.0813097250303,0.0824968063769,0.082421945391,0.0830422221307,0.0829673611449,0.0819406961965,0.0820797237416,0.0814380581488,0.0815343079877,0.0817588909452,0.0824540286707,0.0822615289929,0.0823256955521,0.082871111306,0.0829459722918,0.0833844437802,0.0832881939413,0.0839726372402,0.0843362477428,0.0845180529941,0.0844431920083,0.0850527743214,0.0855768012222,0.0862505500946,0.0876515199721,0.0876942976783,0.0888706845984,0.0892663783806,0.0892877672337,0.0897476275752,0.0906031816988,0.090645959405,0.0907101259643,0.0899615161061,0.0894267947788,0.0904962374334,0.0893412393664,0.0900149882388,0.0913410971305,0.0920576237091,0.0925709561833,0.0933837326008,0.0934158158805,0.0945173418147,0.0947419247722,0.0947740080518,0.0965171995789,0.0970198376265,0.0971053930389,0.0978860861768,0.0981748356935,0.0992335839216,0.101864412852,0.103072883052,0.104944407697,0.106773154637,0.109275650448,0.111361063625,0.114483836176,0.11651577722,0.118782995648,0.120601048161,0.122387017394,0.125199651576,0.127413397871,0.130022837948,0.131295474707,0.133541304282,0.135359356794,0.13785115818,0.142749205538,0.145636700705,0.149561555248,0.154801824255,0.161154313624,0.167827635788,0.175880538978,0.182853305086,0.188296768198,0.195077034628,0.198691750801,0.203525631599,0.20494799033,0.20349354832,0.200819941683,0.196723976316,0.191772456825,0.186104410756,0.181527196194,0.17537790093,0.169164439107,0.162940282857,0.159346955537,0.156309738398,0.153261826833,0.14995724903,0.146791698772,0.145037812819,0.142984482922,0.140225320873,0.139198655924,0.138428657213,0.136075883373,0.13602241124,0.135616023032,0.136075883373,0.135059912851,0.134247136434,0.134717691202,0.135113384984,0.135658800738,0.135402134501,0.135947550254,0.134621441363,0.134514497097,0.134439636111,0.135658800738,0.137401992265,0.137615880796,0.138139907696,0.136781715525,0.13695282635,0.136557132568,0.137594491943,0.138482129346,0.138193379829,0.138150602123,0.137166714881,0.136706854539,0.137102548321,0.137936713592,0.13989379365,0.141027402864,0.141027402864,0.140899069745,0.141797401575,0.14286684423,0.143872120325,0.144246425254,0.144182258695,0.145401423321,0.145626006279,0.147069753862,0.148342390621,0.149005445067,0.150406414945,0.150620303476,0.150641692329,0.150898358566,0.1519998845,0.15172182941,0.150941136272,0.151026691684,0.152235161884,0.152983771742,0.153443632084,0.153582659629,0.154491685885,0.156416682664,0.156833765299,0.157282931214,0.158031541072,0.157700013849,0.157464736465,0.158352373869,0.159100983727,0.160801397548,0.161025980505,0.160940425093,0.161742507084,0.162555283501,0.163635420582,0.165378612109,0.165710139332,0.166276943939,0.166287638366,0.166298332792,0.167656524964,0.167998746613,0.167849024642,0.168415829249,0.169271383372,0.169228605666,0.169549438462,0.168651106633,0.169282077799,0.169239300093,0.169966521098,0.17184874017,0.172971654957,0.173709570389,0.173773736948,0.174597207792,0.175752205859,0.177067620324,0.177677202637,0.178030118713,0.177837619036,0.176992759339,0.177409841974,0.177110398031,0.177848313462,0.178147757405,0.178126368552,0.177848313462,0.177634424931,0.177538175092,0.17773067477,0.177334980988,0.177441925253,0.177495397386,0.175837761272,0.175645261594,0.175153317973,0.175281651091,0.175153317973,0.174971512721,0.174297763849,0.174297763849,0.174019708759,0.17389137564,0.174682763205,0.173442209725,0.173345959886,0.173527765138,0.17243693363,0.171795268037,0.171271241136,0.170896936207,0.170404992586,0.170094854216,0.169324855505,0.169645688301,0.168864995163,0.167677913817,0.167613747258,0.167410553153,0.166127221968,0.165175418005,0.16358194845,0.163357365492,0.162277228411,0.161635562818,0.160812091974,0.159389733244,0.157678624996,0.157261542361,0.156951403991,0.156630571195,0.15673751546,0.155625295099,0.154716268843,0.153315298965,0.152855438624,0.152908910757,0.153732381601,0.153336687818,0.153400854378,0.153850020293,0.153775159307,0.152962382889,0.154095992103,0.153892797999,0.153743076027,0.153678909468,0.153112104861,0.152042662206,0.151540024159,0.150770025447,0.149978637883,0.15057752577,0.149080306053,0.148877111949,0.148727389977,0.147861141427,0.146920031891,0.147444058792,0.147754197161,0.147080448289,0.146032394487,0.145519062013,0.145679478411,0.145358645615,0.143946981311,0.143583370808,0.143262538012,0.142107539945,0.141455179926,0.140407126124,0.140695875641,0.140278793006,0.140000737915,0.139968654636,0.139487405441,0.139883099223,0.139316294616,0.139198655924,0.138503518199,0.138214768682,0.136781715525,0.135915466975,0.135305884662,0.135316579088,0.135883383695,0.135583939752,0.135658800738,0.13543421778,0.134364775126,0.133231165912,0.133551998708,0.13304936066,0.132279361949,0.130365059597,0.129659227445,0.127926730345,0.127370620164,0.126482982761,0.125873400448,0.125606039784,0.12391632039,0.122911044295,0.122419100674,0.122312156408,0.121360352446,0.121360352446,0.120654520293,0.120718686853,0.120964658663,0.121360352446,0.122782711176,0.123157016105,0.121552852123,0.121991323612,0.121584935403,0.121242713754,0.120675909147,0.120162576672,0.119852438303,0.118387301866,0.116932859855,0.116451610661,0.117606608728,0.116890082149,0.116697582471,0.116665499192,0.116718971324,0.116558554926,0.114975779797,0.115200362755,0.114654947001,0.113082866299,0.111842312819,0.111211341653,0.109168706183,0.107243709405,0.105521906731,0.104452464076,0.103104966331,0.101810940719,0.100185387884,0.0995971944241,0.0981320579873,0.0957258120144,0.0951162297013,0.0945922028005,0.0934372047336,0.0922608178135,0.0919399850171,0.0911699863058,0.0913090138509,0.0910095699076,0.0908919312156,0.0905176262865,0.0899508216795,0.0893091560868,0.0897262387221,0.0890631842762,0.088667490494,0.0883359632711,0.0877156865314,0.087865408503,0.087630131119,0.0869884655262,0.0868601324077,0.0860366615636,0.0854056903974,0.0844111087286,0.0847854136577,0.0841865257712,0.0843362477428,0.0826893060547,0.0816519466797,0.0818872240637,0.0819086129168,0.082186668007,0.0821759735805,0.0827213893343,0.0820369460354,0.0816198634001,0.0809995866604,0.0804327820535,0.0808498646888,0.0805718095986,0.0803151433615,0.0797162554749,0.0789248679105,0.0779730639479,0.0771816763834,0.0770961209711,0.0762512612739,0.0763154278332,0.0759625117572,0.0759304284775,0.0748930691026,0.0750107077946,0.0750427910742,0.0748182081167,0.0748502913964,0.0746684861451,0.0752994573113,0.0750320966477,0.0744652920407,0.0739519595665,0.0745080697469,0.0742193202302,0.0734386270923,0.0734172382392,0.0735348769312,0.073823626448,0.073139183149,0.0735134880781,0.0734493215188,0.0733637661065,0.0728504336323,0.072433350997,0.0727221005137,0.0725937673952,0.0726579339544,0.072219462466,0.0717061299918,0.0718879352431,0.0718772408166,0.0719627962289,0.0717061299918,0.0713746027689,0.0709682145601,0.0707543260292,0.0702730768346,0.0695458558295,0.0696100223888,0.0688293292509,0.0692250230331,0.0685191908811,0.0681021082458,0.068380163336,0.0684122466156,0.0682197469378,0.0677598865963,0.0686582184262,0.0686261351465,0.0688721069571,0.067813358729,0.0678454420087,0.0682304413643,0.0686582184262,0.0680807193927,0.0676636367574,0.0671182210035,0.0661343337613,0.0659846117896,0.0659097508038,0.0657065566994,0.0653429461969,0.0651825297987,0.0644232255139,0.0644660032201,0.0641879481299,0.0647654471634,0.064562253059,0.0642735035423,0.063974059599,0.0641451704237,0.0642735035423,0.0638885041866,0.063738782215,0.0634393382717,0.0635890602433,0.063642532376,0.0634928104044,0.063407254992,0.0632789218735,0.0629901723567,0.0627655893993,0.0627869782523,0.062819061532,0.0625517008683,0.0622308680719,0.0613325362421,0.0616747578916,0.0611293421377,0.0606694817962,0.0598994830849,0.059354067331,0.0598353165256,0.0598139276725,0.0596428168478,0.0597604555398,0.0598460109522,0.0591936509328,0.0592685119187,0.0593112896249,0.0599850384973,0.0601882326016,0.0593754561841,0.0592578174921,0.059118789947,0.0589369846957,0.0588514292834,0.0588300404303,0.0587124017383,0.0582632358233,0.057610875804,0.0576001813775,0.0574397649793,0.0568087938131,0.0570868489033,0.0569478213582,0.0570975433298,0.0573969872731,0.0574718482589,0.0578354587615,0.057846153188,0.0582311525437,0.058295319103,0.058648235179,0.0584664299277,0.0583274023826,0.0585733741932,0.0587765682975,0.0592792063452,0.0588407348568,0.0591080955205,0.0584664299277,0.0584771243543,0.0581349027048,0.0584343466481,0.0580707361455,0.0573649039935,0.0568729603723,0.0560494895283,0.0562954613388,0.0559746285425,0.056338239045,0.0563917111778,0.0569264325051,0.0569478213582,0.0572258764484,0.0571296266094,0.0567232384007,0.0567125439741,0.0564131000309,0.0565949052821,0.0563810167512,0.0560601839548,0.0553008796701,0.0551083799922,0.0548944914613,0.0550014357268,0.0549800468737,0.0549265747409,0.0553436573762,0.0546592140773,0.0551190744188,0.0552474075373,0.0553008796701,0.0553115740966,0.0555896291868,0.055985322969,0.0564879610167,0.0565949052821,0.0560281006752,0.0563489334716,0.0564237944574,0.056338239045,0.0565949052821,0.0561885170734,0.0564665721636,0.0562526836327,0.0558035177177,0.0555682403337,0.0557928232912,0.0558783787035,0.055065602286,0.0543811589871,0.05412449275,0.0544453255464,0.0538357432332,0.0537501878209,0.0532796330528,0.0539533819252,0.0538785209394,0.05412449275,0.0541565760296,0.0546378252242,0.0544239366933,0.0539212986456,0.0538678265129,0.0539426874987,0.0545308809587,0.0538785209394,0.0539212986456,0.0537822711005,0.0539961596314,0.0539212986456,0.0540282429111,0.054359770134,0.0546592140773,0.0545843530915,0.0544132422667,0.054359770134,0.0542100481623,0.0542207425889,0.0543276868544,0.0540603261907,0.0537929655271,0.0534507438776,0.0527983838583,0.0530229668157,0.0531726887874,0.0532261609201,0.0530015779626,0.0527876894317,0.0524882454884,0.0525417176212,0.0525417176212,0.0520925517062,0.0525096343415,0.0516326913647,0.0514294972604,0.0514508861134,0.0513332474214,0.0515043582462,0.0515043582462,0.0518251910426,0.0524668566353,0.0522957458106,0.0525203287681,0.0529908835361,0.0530015779626,0.0528197727114,0.0529481058299,0.0525951897539,0.0523064402371,0.0522422736779,0.0515257470993,0.0524133845026,0.0518465798957,0.0512369975825,0.0459646452953,0.0408634038328,0.0356766069579,0.0305860599219,0.0)
ycorr <- c(0.000111845972301,0.000111659519496,0.000111096153236,0.000110153259436,0.000108821849157,0.000107088796105,0.000104937548704,0.0001026616443,0.000100244540864,9.76738868574e-05,9.49411764083e-05,9.2036620917e-05,8.89639852693e-05,8.57266962262e-05,8.23391945349e-05,7.88283260018e-05,7.52284974078e-05,7.15817157842e-05,6.79311977126e-05,6.43172005131e-05,6.07716096114e-05,5.73266273736e-05,5.40166133196e-05,5.08629053652e-05,4.78804101021e-05,4.50675074488e-05,4.24156822384e-05,3.99142433116e-05,3.75467947609e-05,3.52928859418e-05,3.31371682411e-05,3.10701681689e-05,2.90712449397e-05,2.71218008611e-05,2.52129704621e-05,2.333782896e-05,2.14937366618e-05,1.96733949978e-05,1.78725885135e-05,1.60871658489e-05,1.43152026251e-05,1.25521290554e-05,1.07930083195e-05,9.04211125224e-06,7.29875472607e-06,5.56033757405e-06,3.82718680862e-06,2.09799783565e-06,3.71028670962e-07,-1.35894298098e-06,-3.08905873742e-06,-4.81951596914e-06,-6.54609888525e-06,-8.26990198401e-06,-9.99358364092e-06,-1.1717932129e-05,-1.3450992042e-05,-1.51907861613e-05,-1.69349686469e-05,-1.86757636284e-05,-2.04132054865e-05,-2.21510147806e-05,-2.38929025625e-05,-2.56488798894e-05,-2.74217047225e-05,-2.9211774204e-05,-3.10177482364e-05,-3.28360330376e-05,-3.46740978748e-05,-3.65392233308e-05,-3.84345697934e-05,-4.03563761368e-05,-4.23062809835e-05,-4.42779121939e-05,-4.62674406886e-05,-4.82768872726e-05,-5.03033401004e-05,-5.23513541827e-05,-5.44186638034e-05,-5.6495957622e-05,-5.85786594497e-05,-6.06723450877e-05,-6.27773023255e-05,-6.48904813745e-05,-6.70162137757e-05,-6.91558548769e-05,-7.13096532168e-05,-7.3481818309e-05,-7.56680402034e-05,-7.78732097679e-05,-8.01043595138e-05,-8.23601474732e-05,-8.46351716404e-05,-8.69326532934e-05,-8.9251040096e-05,-9.1586491477e-05,-9.39364928894e-05,-9.62996183753e-05,-9.86780776766e-05,-0.000101071401517,-0.000103477341686,-0.000105893219165,-0.000108322818417,-0.000110767826065,-0.000113229797172,-0.000115707926328,-0.000118204297176,-0.00012071512307,-0.000123236981661,-0.000125771157928,-0.000128315579987,-0.000130869543343,-0.000133431426027,-0.000136003082619,-0.000138581092459,-0.00014116285534,-0.000143746252497,-0.00014633214391,-0.000148923079857,-0.000151517904622,-0.00015411834672,-0.000156730374762,-0.000159355026163,-0.000161988991203,-0.000164630614254,-0.000167285328407,-0.000169955803118,-0.000172647124684,-0.000175354623985,-0.000178078669703,-0.000180816633727,-0.000183561880629,-0.000186309483561,-0.00018906096977,-0.000191817762788,-0.000194575769357,-0.000197330637432,-0.000200077425809,-0.000202816781111,-0.00020555343546,-0.000208286028128,-0.000211018395202,-0.000213750425375,-0.000216478955751,-0.000219204160173,-0.000221926257401,-0.000224643906698,-0.000227357222682,-0.000230066855611,-0.000232769885193,-0.00023546638195,-0.00023815349113,-0.000240828258023,-0.000243491153178,-0.000246140457133,-0.000248772996656,-0.000251394702274,-0.000254004416211,-0.000256599477032,-0.000259175877753,-0.000261732570076,-0.000264266109041,-0.000266779571224,-0.000269274637446,-0.000271752248462,-0.000274215651463,-0.000276660803725,-0.000279083502762,-0.000281489418592,-0.000283879069396,-0.000286254551725,-0.000288616814437,-0.000290966836827,-0.000293303875786,-0.000295629304496,-0.000297940921522,-0.000300239313337,-0.00030252546031,-0.000304799394412,-0.000307059761662,-0.000309310254389,-0.00031155640457,-0.000313800579564,-0.00031603916487,-0.000318270057876,-0.000320494080491,-0.000322711042969,-0.000324926998061,-0.00032714394665,-0.000329360611785,-0.000331576830637,-0.000333787042852,-0.000335983556369,-0.000338168418837,-0.000340342403555,-0.000342506721048,-0.000344659469362,-0.000346797851286,-0.000348912740566,-0.000351005438926,-0.000353075179985,-0.000355121624546,-0.000357152621075,-0.000359169796446,-0.000361172948825,-0.000363164239449,-0.000365143174441,-0.00036711060041,-0.00036907319379,-0.000371035466708,-0.000372994379823,-0.000374949054613,-0.000376899283074,-0.000378842520225,-0.00038077944462,-0.000382704467941,-0.000384619410992,-0.000386524083107,-0.00038841485828,-0.000390289312417,-0.000392145927194,-0.000393987388486,-0.000395813375762,-0.000397621206813,-0.000399409648998,-0.000401177341179,-0.000402929577573,-0.000404663395599,-0.000406381215664,-0.000408084136523,-0.000409770116961,-0.000411438270504,-0.000413088188527,-0.000414722323533,-0.000416344130942,-0.000417957151378,-0.000419561998688,-0.000421157303967,-0.000422744157704,-0.000424318040234,-0.000425880230426,-0.000427434235395,-0.000428980076799,-0.000430516449217,-0.00043203860387,-0.00043354270231,-0.000435020946856,-0.000436475095749,-0.000437903491343,-0.000439306807368,-0.000440686399381,-0.000442036697327,-0.000443352707726,-0.000444636358472,-0.000445888419417,-0.00044711158103,-0.000448307892156,-0.00044947949162,-0.00045062710672,-0.000451752717861,-0.000452859610805,-0.00045395643601,-0.000455052444099,-0.000456145353914,-0.000457241481811,-0.00045834243134,-0.000459452972066,-0.000460573332239,-0.000461705283955,-0.000462848650557,-0.000463997763832,-0.000465146294497,-0.000466289064306,-0.000467428055262,-0.000468563388602,-0.000469689912799,-0.000470808674795,-0.000471919163984,-0.000473021054526,-0.00047411153464,-0.000475192781216,-0.000476267384802,-0.000477332320626,-0.000478385340285,-0.000479421335379,-0.000480438633024,-0.000481430976911,-0.00048239176743,-0.000483316873567,-0.000484201000671,-0.000485045552779,-0.000485844012101,-0.000486598219965,-0.000487310275276,-0.000487974727217,-0.000488592781607,-0.000489169667333,-0.000489709241702,-0.000490214900205,-0.000490688335407,-0.000491133458797,-0.000491552844404,-0.000491948640596,-0.000492319650677,-0.000492668998339,-0.000493002155482,-0.00049331520976,-0.000493610931699,-0.000493888794799,-0.000494152896698,-0.000494403102168,-0.000494642661365,-0.000494872749497,-0.000495096491683,-0.000495314872645,-0.000495529149002,-0.00049573899116,-0.000495947362764,-0.000496152114681,-0.000496358134245,-0.000496563070498,-0.000496767724637,-0.000496969182519,-0.000497164439759,-0.000497355069081,-0.000497542658286,-0.000497730448204,-0.00049792007396,-0.000498112696678,-0.00049830624466,-0.000498495723812,-0.000498679443873,-0.000498854022594,-0.000499023342632,-0.000499186760323,-0.000499341992244,-0.000499485806403,-0.00049961193881,-0.000499717785057,-0.000499801088302,-0.000499866241195,-0.000499914882253,-0.000499950418961,-0.000499974585253,-0.000499985946414,-0.000499982693422,-0.000499965155958,-0.000499935136339,-0.000499894242169,-0.000499844661114,-0.000499786182124,-0.000499719757917,-0.000499644953346,-0.000499558673366,-0.000499462090551,-0.000499355446553,-0.000499239915103,-0.000499111640342,-0.000498970577029,-0.000498818063357,-0.00049865631585,-0.000498481807038,-0.000498292291977,-0.0004980867608,-0.000497865266206,-0.00049762701754,-0.000497371728598,-0.000497104418566,-0.000496827885587,-0.000496541994371,-0.000496243231717,-0.000495928806141,-0.000495603705454,-0.000495267671707,-0.000494922394829,-0.000494567194847,-0.000494202372266,-0.000493826325662,-0.00049343709249,-0.000493034742344,-0.000492618603237,-0.000492194322904,-0.000491761729991,-0.000491323846594,-0.000490878476241,-0.000490426988426,-0.000489974232543,-0.000489520452122,-0.000489065833886,-0.000488608924533,-0.000488154550981,-0.000487702614162,-0.000487252798072,-0.000486802020181,-0.000486348467153,-0.000485895738347,-0.000485441249534,-0.000484980570546,-0.000484514251526,-0.00048404223993,-0.000483562379699,-0.000483070397376,-0.00048256635158,-0.000482048684192,-0.000481520617283,-0.000480980360978,-0.000480425050299,-0.000479856310798,-0.000479274857222,-0.000478683629443,-0.000478081164275,-0.000477468577083,-0.000476846137576,-0.000476214065679,-0.000475571607479,-0.00047491808055,-0.000474252663238,-0.000473576703399,-0.000472889112981,-0.000472188776091,-0.000471472230334,-0.000470742179457,-0.000469997754985,-0.000469236561985,-0.000468459855309,-0.000467667030467,-0.000466859642195,-0.000466037181967,-0.000465199415881,-0.000464343615158,-0.000463473113335,-0.000462585805061,-0.000461680773895,-0.000460759158207,-0.000459821053643,-0.000458868869107,-0.000457905250325,-0.000456929353723,-0.000455943168543,-0.00045494740495,-0.000453944552471,-0.000452934311197,-0.000451920353706,-0.000450906186827,-0.000449892749316,-0.000448878999136,-0.000447861571367,-0.000446838282341,-0.000445809817659,-0.000444775005977,-0.000443732816819,-0.000442684379877,-0.000441626490179,-0.000440556940546,-0.000439473032545,-0.000438373648503,-0.000437259212016,-0.000436131374652,-0.00043498912561,-0.000433833634446,-0.000432664879109,-0.000431481032849,-0.000430281904941,-0.000429067609156,-0.000427839504523,-0.000426595700277,-0.000425336566118,-0.000424062526275,-0.000422770778442,-0.000421463318723,-0.000420139943698,-0.000418803222464,-0.000417453317109,-0.000416092123728,-0.000414718159457,-0.000413331919128,-0.000411934781498,-0.000410530655883,-0.000409121417115,-0.000407706068948,-0.000406282598774,-0.000404847380407,-0.000403400702253,-0.00040194293251,-0.000400474313619,-0.000398997882647,-0.000397512474628,-0.000396017491685,-0.000394510951867,-0.000392991784358,-0.000391461382716,-0.000389921310688,-0.000388372653061,-0.000386813878639,-0.000385246382559,-0.000383667437705,-0.000382076632995,-0.000380472340936,-0.00037885244184,-0.00037721718616,-0.000375565125924,-0.000373897584575,-0.00037221593455,-0.000370518231432,-0.000368805205988,-0.000367076965238,-0.000365334246794,-0.000363576803966,-0.00036180739877,-0.000360028867494,-0.000358241300072,-0.000356446404148,-0.000354641074594,-0.000352825255746,-0.000351002201437,-0.000349168798267,-0.000347324742339,-0.000345468309806,-0.000343600037935,-0.000341715909805,-0.000339814490876,-0.000337892012997,-0.000335947681815,-0.000333981753944,-0.000331988060766,-0.000329964478852,-0.000327911060692,-0.000325828063523,-0.000323714510851,-0.000321570562395,-0.000319395311825,-0.000317192079374,-0.000314962098462,-0.000312707662438,-0.000310429674627,-0.000308132925769,-0.000305817172134,-0.000303482310036,-0.000301128996252,-0.000298760090494,-0.000296379379295,-0.00029398692757,-0.000291581315622,-0.000289162068344,-0.000286729103723,-0.000284283483871,-0.000281825759636,-0.000279358195032,-0.000276882775792,-0.000274398152832,-0.000271903001001,-0.000269395001787,-0.000266878271661,-0.000264352160272,-0.000261817424705,-0.000259270991168,-0.000256712648558,-0.000254142198899,-0.000251556665153,-0.000248956796605,-0.000246341333936,-0.000243711159565,-0.000241063107162,-0.000238396209365,-0.000235710449106,-0.000233008119271,-0.000230291048285,-0.000227556572133,-0.000224805981327,-0.0002220388743,-0.000219254701008,-0.000216454096017,-0.000213636540236,-0.000210803930573,-0.000207956801047,-0.000205095157272,-0.000202218362332,-0.000199323826081,-0.000196413265181,-0.000193483768136,-0.000190536962303,-0.000187570017576,-0.000184582019196,-0.000181571239035,-0.000178534856212,-0.000175471648591,-0.000172377520949,-0.000169255782989,-0.000166108042859,-0.000162934103314,-0.000159718852716,-0.000156442888456,-0.000153088125499,-0.000149638070151,-0.000146001666309,-0.000142567840173,-0.00013924948024,-0.000136034562109,-0.000132900893498,-0.000129827639734,-0.000126799369406,-0.000123827654412,-0.000120930911152,-0.000118125624542,-0.000115424603497,-0.000112916144417,-0.000110205986418,-0.000107376475423,-0.000104435319685,-0.000101393447916,-9.82649729754e-05,-9.5059579543e-05,-9.17725580905e-05,-8.83984856058e-05,-8.49322834014e-05,-8.13729106624e-05,-7.7718678908e-05,-7.39694913036e-05,-7.01250242286e-05,-6.61896516626e-05,-6.21664316792e-05,-5.80586830364e-05,-5.38732833117e-05,-4.96157490599e-05,-4.52925074426e-05,-4.09101736362e-05,-3.64754612476e-05,-3.19938461677e-05,-2.74719154526e-05,-2.29139054469e-05,-1.83201639679e-05,-1.3691868518e-05,-9.02988622448e-06,-4.33453016579e-06,3.88861212888e-07,5.13708488419e-06,9.90448734492e-06,1.46858436218e-05,1.94714615978e-05,2.42482264717e-05,2.89976312863e-05,3.36974861404e-05,3.83241881386e-05,4.28518206554e-05,4.72574756293e-05,5.1516395973e-05,5.56058944153e-05,5.95057298742e-05,6.31978805764e-05,6.66718070307e-05,6.99222160205e-05,7.29525054441e-05,7.57709815351e-05,7.83906003459e-05,8.0830308252e-05,8.31124666545e-05,8.52637221789e-05,8.73108545271e-05,8.92830121613e-05,9.1208149014e-05,9.31134109724e-05,9.50254399838e-05,9.69643316696e-05,9.89505460172e-05,0.000100998346479,0.000103118855975,0.000105320205643,0.000107608084474,0.000109984723158,0.000112451996184,0.000115010580976,0.000117655014353,0.000120379618028,0.000123180852373,0.000126052019203,0.000128988923008,0.000131986656002,0.000135043133037,0.000138155543074,0.000141319935394,0.000144528883008,0.000147777683199,0.000151065408308,0.000154387589092,0.000157743845836,0.000161131276754,0.000164548489646,0.000167992821924,0.000171458984244,0.000174945845643,0.000178455871796,0.000181990526222,0.000185551583758,0.000189139902535,0.000192756001448,0.000196399410557,0.000200072832743,0.000203774339957,0.000207508151089,0.000211276808046,0.000215078556582,0.000218911133158,0.000222774147679,0.000226665919002,0.000230584553288,0.00023453084135,0.000238502842485,0.000242498422764,0.000246517662961,0.00025055583799,0.000254610844945,0.000258684436916,0.000262776551966,0.000266886090779,0.000271013063723,0.000275158840301,0.00027932036283,0.000283500732832,0.000287699008949,0.000291914895251,0.000296148446659,0.000300399620865,0.000304663622021,0.000308939862807,0.000313228870013,0.000317528490429,0.000321837924954,0.000326159163411,0.000330488928643,0.00033482673419,0.000339175072475,0.000343534674466,0.000347906635297,0.000352294268002,0.000356694887585,0.000361107220558,0.000365531602566,0.000369963507897,0.000374401277488,0.000378842862304,0.000383286970734,0.000387727022766,0.00039215946289,0.000396578436802,0.000400981922789,0.000405368759792,0.00040973616132,0.000414081694937,0.000418405115453,0.000422706247731,0.000426983513157,0.000431235744737,0.000435464799171,0.000439670422741,0.000443852938282,0.000448009567035,0.00045213761809,0.000456233843536,0.000460294931627,0.000464316289483,0.000468291753778,0.000472218095019,0.000476088463201,0.000479896960047,0.000483639783698,0.000487314457086,0.000490919601086,0.000494454132428,0.000497919917659,0.00050131566019,0.000504644413228,0.00050790631866,0.000511105845096,0.000514248251457,0.000517337313875,0.00052037425204,0.00052336016267,0.000526298830438,0.000529192322917,0.000532045126196,0.000534859119461,0.000537635209127,0.000540374690412,0.000543075077556,0.000545735976136,0.000548356237862,0.000550936439184,0.000553475504689,0.000555968966145,0.000558415177407,0.000560811818282,0.000563163143327,0.000565468518806,0.000567729175785,0.000569947068791,0.000572124992999,0.00057426628496,0.000576371387967,0.000578445999811,0.000580492253287,0.000582512213636,0.000584504826018,0.000586469518597,0.000588411143517,0.000590330545846,0.000592229144215,0.000594106579028,0.000595966123146,0.000597810303712,0.000599639973581,0.000601458108123,0.000603268064219,0.000605074011465,0.000606877250819,0.000608677031896,0.000610477019657,0.000612277167287,0.000614076754388,0.000615873330912,0.000617667771934,0.000619458418176,0.000621243635859,0.000623021994718,0.000624787279253,0.000626536757557,0.000628265480266,0.000629971286655,0.000631652898498,0.000633309598856,0.000634940160386,0.000636539923865,0.000638107166711,0.000639641858319,0.000641145108568,0.000642620499333,0.000644069707203,0.000645494686222,0.000646893896064,0.000648266527785,0.000649612491139,0.0006509346192,0.000652234435588,0.000653511761025,0.000654767226458,0.000655998739091,0.000657202668364,0.000658377794122,0.000659524966849,0.000660643310843,0.000661730536888,0.00066278607975,0.000663807365985,0.000664793761563,0.0006657429676,0.0006666519697,0.000667521971213,0.00066835500196,0.000669150242813,0.000669907269662,0.000670627686165,0.000671311836323,0.000671960474608,0.000672571159759,0.000673143676975,0.000673679813096,0.000674179960596,0.000674641059692,0.000675061457917,0.000675439399202,0.00067577216405,0.000676057525707,0.000676293169083,0.000676476885013,0.000676607850567,0.000676683412064,0.000676701178744,0.000676661575887,0.000676564863598,0.000676413079828,0.000676206888863,0.000675947421833,0.000675637106213,0.000675279953335,0.00067488164056,0.000674447165311,0.000673982761746,0.000673491682317,0.000672977073561,0.000672439060861,0.000671880811993,0.000671303025698,0.000670706337999,0.000670090514722,0.000669451035955,0.000668782306962,0.000668078932209,0.000667335000401,0.000666543956685,0.00066570020522,0.000664799499107,0.000663835975156,0.00066280754862,0.000661710900984,0.000660543407112,0.000659305706591,0.00065799584362,0.0006566121489,0.000655154624937,0.000653623526236,0.000652015290969,0.000650329645194,0.000648562540892,0.000646710842221,0.000644772326374,0.000642742922123,0.000640621319136,0.000638408502724,0.000636107039274,0.000633718352218,0.000631247447221,0.000628700514843,0.000626086213843,0.000623415282549,0.000620694687037,0.000617937194842,0.000615154055776,0.000612353178414,0.00060954285536,0.000606731865979,0.000603927292396,0.000601135081774,0.000598359198594,0.00059560127219,0.000592863443135,0.000590146086191,0.000587443915796,0.000584755117461,0.000582077585062,0.000579409247135,0.000576747273808,0.000574088916317,0.000571430640678,0.00056876774085,0.000566096710602,0.000563413028023,0.000560717662339,0.000558010609828,0.000555293041907,0.000552563302586,0.000549818116576,0.00054705654437,0.000544275983206,0.000541477162724,0.00053866475294,0.000535840638738,0.000533001963198,0.000530149121806,0.000527279462742,0.000524390704411,0.000521486592003,0.00051856797147,0.000515634229565,0.000512685015688,0.000509716773979,0.000506723908351,0.00050370663582,0.000500665012507,0.000497597096043,0.000494506438928,0.000491393234804,0.000488254737832,0.000485090436468,0.000481900819002,0.000478688535551,0.0004754554916,0.000472205089626,0.000468934946158,0.000465645960839,0.000462337586846,0.000459006213362,0.000455650661908,0.000452274012253,0.000448876553281,0.000445455962115,0.000442011745304,0.000438544495689,0.000435055568918,0.000431546116037,0.000428018353202,0.00042447409459,0.000420914399856,0.000417340051807,0.000413748587709,0.000410140840199,0.00040651841606,0.000402880377521,0.000399227029129,0.000395557854753,0.000391872207834,0.00038816875602,0.000384449511549,0.00038071371938,0.000376960897802,0.000373191478191,0.00036940413281,0.000365600687529,0.000361782409093,0.000357948123635,0.000354095660173,0.000350226373508,0.000346339261057,0.000342432532939,0.000338507998026,0.000334566441475,0.000330611845964,0.000326644027064,0.00032265940004,0.000318658389231,0.000314643711313,0.000310617585798,0.000306580370175,0.000302533390946,0.000298476359333,0.000294408568107,0.000290329776234,0.000286236537865,0.000282130889847,0.000278013147514,0.000273882389646,0.000269733029464,0.000265564725858,0.000261378644218,0.000257176936913,0.000252959461742,0.000248727112743,0.000244478991187,0.000240215880848,0.000235941316865,0.000231656576283,0.000227364097655,0.000223068662515,0.000218770144276,0.000214467583368,0.000210159720135,0.000205849613737,0.000201538327233,0.000197227323881,0.000192914125799,0.000188596808132,0.000184279718606,0.000179960967632,0.000175640000228,0.000171318392231,0.000166997589038,0.000162676819346,0.000158355083834,0.000154036424238,0.000149723506316,0.000145419728697,0.000141122889891,0.000136829444977,0.000132541826654,0.00012826185432,0.000123989193921,0.000119723586743,0.000115470787312,0.000111228619615,0.000106996321116,0.000102774615774,9.8568010067e-05,9.43813701536e-05,9.02172590549e-05,8.60770882241e-05,8.19623648099e-05,7.78743937983e-05,7.38126547536e-05,6.97761149689e-05,6.57655842158e-05,6.17806228302e-05,5.78185147904e-05,5.38776310041e-05,4.99553991877e-05,4.60516531512e-05,4.21658448017e-05,3.82964614724e-05,3.44439577588e-05,3.06096486385e-05,2.67942122813e-05,2.29970125728e-05,1.92188779224e-05,1.54621445804e-05,1.17258702016e-05,8.00960348489e-06,4.3135567098e-06,6.36474123534e-07,-3.02345182215e-06,-6.66925167111e-06,-1.03012257458e-05,-1.39235135496e-05,-1.75359808687e-05,-2.11424752949e-05,-2.47456810926e-05,-2.83467420104e-05,-3.19444006646e-05,-3.55395313571e-05,-3.91308966652e-05,-4.27149865575e-05,-4.62926136794e-05,-4.98635489685e-05,-5.34273366109e-05,-5.69827798747e-05,-6.05257983877e-05,-6.40551623985e-05,-6.75712185253e-05,-7.10719400545e-05,-7.45590863413e-05,-7.80328176792e-05,-8.14933608846e-05,-8.49384155779e-05,-8.83691709237e-05,-9.17826850738e-05,-9.51784556646e-05,-9.85605303642e-05,-0.000101926120274,-0.000105276986565,-0.000108613992427,-0.000111936320772,-0.000115245827207,-0.000118543044413,-0.000121822421472,-0.000125082869928,-0.000128327855991,-0.000131554990707,-0.000134765214365,-0.000137960934521,-0.000141138401443,-0.000144300478852,-0.000147442726988,-0.000150559936603,-0.000153655914649,-0.000156735124813,-0.00015979598567,-0.00016283680878,-0.000165858227153,-0.000168857076851,-0.000171834794744,-0.000174789317223,-0.000177720637462,-0.000180634184455,-0.000183533069488,-0.000186416036895,-0.000189283077183,-0.000192135510082,-0.000194973384452,-0.000197796000878,-0.000200601938771,-0.0002033907469,-0.000206166355723,-0.000208925492565,-0.000211665006621,-0.00021438401666,-0.000217078263595,-0.000219747116051,-0.000222392143451,-0.000225011482056,-0.000227604627605,-0.000230170915478,-0.00023270532593,-0.000235208072026,-0.000237679780486,-0.000240121314248,-0.00024253497005,-0.000244923361483,-0.000247283392226,-0.000249613862012,-0.000251915929354,-0.000254190447519,-0.000256441170999,-0.000258668282524,-0.000260873174367,-0.000263055076576,-0.00026521278264,-0.000267343764732,-0.000269447899267,-0.000271528443377,-0.000273584818877,-0.000275618160832,-0.000277631617684,-0.000279625365284,-0.000281599117642,-0.000283553338384,-0.000285490651151,-0.000287414161497,-0.000289323730064,-0.000291218255785,-0.000292934519088,-0.000294310122382,-0.000295343274684,-0.000296030424161,-0.000296371743349)
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(275)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Bos_taurus-male-liver-H3K4me3-ERR572180.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) : 275',bty='n')
dev.off()