# R script for Peak Model
#  -- generated by MACS
p <- c(0.0384979974277,0.0448704306825,0.0513895286764,0.0577080850883,0.0642990188728,0.0646402388779,0.064837787302,0.0646701704574,0.0645205125603,0.0644905809809,0.0645713962453,0.0646522115097,0.0644247315062,0.0646162936144,0.064589355193,0.0645624167715,0.0647420062479,0.0646731636153,0.0648557462496,0.0647060883526,0.0646522115097,0.0648168351964,0.0651221373063,0.0651610483596,0.0648707120393,0.0646342525621,0.0644816015071,0.0645205125603,0.0645803757191,0.0647599651956,0.0647210541423,0.0645773825612,0.0646133004565,0.0646192867724,0.0649724794093,0.0650113904625,0.0650592809896,0.0652628157295,0.0652598225716,0.0656279809982,0.0656309741562,0.0657117894206,0.0656788646832,0.0656968236309,0.0657477073158,0.0660440299519,0.0661338246901,0.0662535510078,0.0663672910095,0.0663702841674,0.0665947710129,0.0666306889082,0.0666516410138,0.0669868747031,0.0669509568078,0.0668042920688,0.0669060594387,0.0670676899675,0.0670048336508,0.0668042920688,0.0668132715426,0.0669689157555,0.0671066010207,0.0670048336508,0.066891093649,0.0669150389125,0.0669270115443,0.0671514983898,0.0672203410225,0.067295169971,0.0672652383916,0.0673400673401,0.0671036078628,0.0670587104937,0.0672891836551,0.0674897252371,0.0676393831341,0.0676214241865,0.0679267262964,0.0678997878749,0.0680075415607,0.0679985620869,0.0681721652475,0.0680733910354,0.0682020968269,0.0683008710389,0.0680614184037,0.0681063157728,0.067845911032,0.0676244173444,0.0675884994491,0.0675585678697,0.0678578836637,0.0679297194543,0.0677351641882,0.0676184310285,0.0677980205049,0.0677650957676,0.0679087673487,0.068246994196,0.0682529805118,0.068297877881,0.0680165210346,0.0680255005084,0.068196110511,0.0683996452509,0.0684774673574,0.06844454262,0.0682499873539,0.0684535220938,0.068393658935,0.0685253578844,0.0687199131505,0.0689593657858,0.0688426326261,0.0687318857823,0.068845625784,0.0689503863119,0.069396366845,0.0693544626339,0.0694592231618,0.0696298331644,0.0697286073764,0.0696447989541,0.0697046621129,0.0698902379052,0.0699381284322,0.0698094226408,0.069746566324,0.0698902379052,0.0697884705352,0.0695071136888,0.0694173189506,0.069399360003,0.0696807168494,0.0697675184296,0.0697166347446,0.0699381284322,0.0699411215902,0.0700309163284,0.0703362184383,0.0707073700229,0.071051583186,0.0713479058221,0.0716322558264,0.0715873584573,0.072102181623,0.0722757847836,0.0722727916256,0.0720932021492,0.0723087095209,0.0719465374101,0.0719225921466,0.0719644963578,0.0715394679303,0.0717070847749,0.0715155226667,0.0714347074023,0.0714706252976,0.0713868168753,0.0712341658204,0.0718178316187,0.0717250437226,0.0718387837243,0.0721710242557,0.0722727916256,0.072302723205,0.0723446274162,0.0726379568943,0.0731797184815,0.0734640684858,0.073607740067,0.0738322269125,0.0740746727057,0.0738950832292,0.0739399805984,0.0740417479683,0.0742512690241,0.0742183442868,0.0740866453374,0.074206371655,0.0739519532301,0.0737454253322,0.0733233900627,0.0735239316447,0.073505972697,0.0734940000653,0.0735388974344,0.0735538632241,0.0737753569116,0.0738801174395,0.0739250148086,0.0741884127074,0.0742512690241,0.0743500432362,0.0743410637623,0.0745475916602,0.0746433727143,0.0747122153469,0.0748229621907,0.074810989559,0.0750564285101,0.0750294900886,0.0754664911479,0.0756849916775,0.075909478523,0.0759693416818,0.0759424032604,0.0761010406312,0.075912471681,0.0758047179951,0.0757747864157,0.0757298890466,0.0755922037814,0.075508395359,0.0757448548363,0.0755054022011,0.0755233611488,0.0755892106234,0.0757358753625,0.0756909779934,0.075762813784,0.0760022664192,0.0762058011591,0.0763704248458,0.0759573690501,0.0762207669488,0.0766218501128,0.0767385832725,0.0768732753798,0.0771815706477,0.0773791190717,0.0777532638142,0.0777712227619,0.0780256411868,0.0783429159285,0.0783369296126,0.0781633264521,0.0780495864503,0.0779897232915,0.0780226480289,0.0780555727662,0.0779119011851,0.0782770664538,0.0783429159285,0.0785733890899,0.078815834883,0.0785913480375,0.0787739306719,0.0786991017234,0.078720053829,0.0784566559302,0.0784267243508,0.0782920322435,0.0782082238212,0.0782920322435,0.078118429083,0.0783758406658,0.0788337938307,0.0790403217286,0.0792857606797,0.0798963648995,0.0802345917467,0.0802525506944,0.0802735027999,0.0801597627982,0.0803992154334,0.0807015243854,0.0805398938566,0.0804351333287,0.0803932291176,0.080222619115,0.0801777217459,0.0800520091124,0.0801118722712,0.080372277012,0.0805009828034,0.080572818594,0.0805638391202,0.0809978470215,0.0811026075494,0.0813809712378,0.0814109028173,0.0816922596636,0.0820215070371,0.0820664044062,0.0821591923023,0.0825812275719,0.0829164612612,0.0830152354732,0.0830451670526,0.0831020370535,0.0835001270596,0.0833325102149,0.0834073391634,0.0834193117952,0.0833923733737,0.0833205375831,0.0832516949505,0.0837934565377,0.0843890949678,0.0848739865541,0.0852541176125,0.0864094765775,0.0869781765861,0.0875528629107,0.0883580223966,0.0887291739812,0.0895792308362,0.0897767792603,0.0901509240028,0.0902796297943,0.0903873834801,0.0904472466389,0.0908842476982,0.0908812545402,0.0909201655935,0.0911656045446,0.0911147208596,0.0912613855987,0.0913212487575,0.0915636945506,0.0917732156064,0.0918121266597,0.0914679134965,0.0917163456056,0.0918809692923,0.0916953935,0.0920695382425,0.0923748403524,0.0925544298289,0.0924017787739,0.0925215050915,0.0926771493044,0.0928298003594,0.0932608151028,0.0932308835234,0.0935780898444,0.093548158265,0.0933565961568,0.0935242130015,0.0937427135311,0.0937935972161,0.0937935972161,0.0942216188016,0.0943383519613,0.0946915445982,0.094951949339,0.0948082777579,0.0951614703948,0.0949459630231,0.0953380667133,0.0952333061854,0.0953799709245,0.0952333061854,0.095104600394,0.0951614703948,0.0953590188189,0.0955565672429,0.0959815956705,0.0964874393624,0.0968466183152,0.0972147767418,0.0978343604355,0.0981815667566,0.0985856430785,0.0986993830802,0.0986963899223,0.0991184251919,0.098861013609,0.0989897194004,0.0989238699257,0.0993369257215,0.0993488983533,0.099163322561,0.0993818230906,0.0996003236202,0.100025352048,0.10003732468,0.100279770473,0.100641942583,0.100564120477,0.100354599421,0.100067256259,0.100348613105,0.100393510474,0.100626976794,0.100641942583,0.100558134161,0.100740716795,0.100543168371,0.100926292588,0.101483019965,0.101929000498,0.102255254713,0.102614433666,0.102497700506,0.10271021472,0.102862865775,0.103251976307,0.103183133675,0.103144222622,0.103138236306,0.103317825782,0.103614148418,0.103446531573,0.10382965579,0.103943395792,0.103943395792,0.103766799473,0.104197814216,0.1045120958,0.104395362641,0.10444026001,0.104449239483,0.104601890538,0.10464379475,0.104706651066,0.105008960018,0.104970048965,0.105110727388,0.105218481074,0.105649495818,0.105781194767,0.105730311082,0.105829085294,0.106146360036,0.106364860565,0.106475607409,0.107065259523,0.107328657422,0.107589062163,0.107930282168,0.10781055585,0.108295447437,0.108382249017,0.108466057439,0.108723469022,0.109325093768,0.109444820086,0.109328086926,0.109343052716,0.109193394819,0.109839916934,0.109696245353,0.110052431148,0.110124266938,0.109905766409,0.109696245353,0.109780053775,0.110001547463,0.110196102729,0.110420589574,0.110444534838,0.110734871158,0.111073098005,0.111207790113,0.111659756962,0.112171586969,0.112294306445,0.112833074874,0.112904910665,0.113105452247,0.113135383826,0.113051575404,0.113039602772,0.113602316465,0.113934556996,0.114174009631,0.114227886474,0.114188975421,0.114302715423,0.114560127006,0.114790600167,0.115197669647,0.11552691702,0.115739431234,0.115748410708,0.115724465444,0.116044733344,0.116394932823,0.116846899672,0.116855879146,0.117239003362,0.117340770732,0.117340770732,0.117247982836,0.117370702312,0.11735872968,0.117268934942,0.117370702312,0.117239003362,0.117819676003,0.117822669161,0.118124978113,0.118588917593,0.119016939179,0.119220473919,0.119696386031,0.120384812357,0.1204386892,0.120932560261,0.121100177105,0.121486294479,0.121953227118,0.122207645543,0.122725461867,0.123129538189,0.123509669247,0.123737149251,0.123931704517,0.124177143468,0.124207075047,0.124422582419,0.12436271926,0.124416596103,0.124027485571,0.123937690833,0.123913745569,0.124147211888,0.124659041896,0.124796727161,0.124985296112,0.125257673484,0.125260666642,0.125661749806,0.125691681386,0.126404052975,0.12667343719,0.126523779293,0.126730307191,0.126703368769,0.126933841931,0.127032616143,0.12776294668,0.127349890884,0.12777791247,0.127568391414,0.127682131416,0.12784974826,0.127454651412,0.12795151563,0.127783898786,0.12769111089,0.12728404141,0.127649206678,0.127631247731,0.127164315092,0.126930848773,0.127119417723,0.127044588775,0.126356162448,0.126559697188,0.126305278763,0.126161607182,0.125999976653,0.125631818227,0.126014942443,0.126023921917,0.125742565071,0.125604879805,0.125919161389,0.12575753086,0.126230449815,0.125949092968,0.125817394019,0.125736578755,0.125284611906,0.12495835769,0.124410609787,0.124446527682,0.124027485571,0.123584498196,0.122542879232,0.122626687655,0.122566824496,0.122761379762,0.122551858706,0.122626687655,0.122644646602,0.122518933969,0.122216625017,0.122132816595,0.122345330808,0.122249549754,0.121555137112,0.120920587629,0.120923580787,0.120564401834,0.119947811298,0.119947811298,0.120001688141,0.11953774866,0.119091768127,0.118582931277,0.118457218644,0.118220759167,0.117056420728,0.115975890711,0.115502971757,0.114380537529,0.113255110144,0.112372128551,0.111279625903,0.110163177991,0.108935983236,0.107645932164,0.107170020051,0.106628258464,0.10592187319,0.105233446864,0.104634815276,0.104084074215,0.103691970525,0.103201092622,0.103183133675,0.102991571567,0.102398926294,0.102249268397,0.102024781552,0.101497985754,0.101423156806,0.101357307331,0.101046018905,0.100899354166,0.100612011004,0.100240859419,0.100546161529,0.100444394159,0.100282763631,0.100345619947,0.100118139944,0.100079228891,0.0999894341525,0.100046304153,0.0995733851988,0.0999834478366,0.099663179937,0.0992351583515,0.0990256372957,0.0988011504502,0.0987861846605,0.0981306830716,0.0979540867531,0.0976876956964,0.0975979009582,0.0972626672689,0.0971369546354,0.0970321941075,0.0969902898963,0.0969094746319,0.0963946514662,0.0962689388327,0.0963288019915,0.0961402330413,0.0960893493563,0.0959756093546,0.0956254098756,0.0954967040841,0.0955954782962,0.0952273198695,0.0953829640824,0.0952662309227,0.0949639219708,0.0948352161793,0.0947963051261,0.0945299140694,0.0947723598626,0.0945269209115,0.094098899326,0.0942575366969,0.0939612140608,0.094000125114,0.0937606724788,0.093748699847,0.0932398629972,0.0930213624675,0.0924526624589,0.0924406898271,0.0921084492958,0.0919378392932,0.0919198803455,0.0914619271807,0.091494851918,0.0912075087557,0.0912703650725,0.0908303708553,0.090944110857,0.0906238429574,0.0906298292733,0.090390376638,0.0902556845307,0.0905759524303,0.0904203082174,0.0903843903222,0.0903514655848,0.0905400345351,0.0902676571625,0.0904861576921,0.090091060844,0.0898725603144,0.0896061692577,0.0889716197744,0.0888698524044,0.0884538034507,0.0884508102928,0.0884448239769,0.0883071387116,0.0879150350214,0.088139521867,0.0879030623897,0.0877115002815,0.0881065971296,0.0880257818652,0.0880407476549,0.0878731308103,0.0877085071236,0.0874271502772,0.0876516371227,0.0874929997519,0.0871906907999,0.0869961355338,0.0866549155286,0.0865950523698,0.0866040318436,0.0862687981543,0.0862239007852,0.0862777776281,0.0857479886727,0.0855534334066,0.0857509818306,0.0856851323559,0.0855235018272,0.0854037755096,0.0851583365585,0.08508350761,0.0848919455018,0.0847482739206,0.084628547603,0.0842723618081,0.0841137244373,0.0842065123335,0.084077806542,0.0835689696922,0.0835689696922,0.083679716536,0.0833654349522,0.0832606744243,0.0833923733737,0.0836827096939,0.0837545454845,0.0834672023222,0.0834672023222,0.0833923733737,0.0829793175779,0.0826620428363,0.0825363302028,0.0825542891504,0.0820993291435,0.0820095344053,0.0818479038765,0.0817311707169,0.0818209654551,0.0816383828207,0.0817341638748,0.0816204238731,0.0816473622945,0.0812462791305,0.0815186565031,0.0812432859726,0.0809140385992,0.0808302301768,0.0803962222755,0.0806745859639,0.0805458801725,0.0804081949073,0.0800520091124,0.0800639817441,0.0798125564771,0.0797766385819,0.0798305154248,0.0798544606883,0.0799532349003,0.0795940559475,0.0800490159544,0.079971193848,0.0802405780626,0.080022077533,0.0799771801639,0.0795401791046,0.0792797743638,0.0789265817268,0.0788966501474,0.0788008690933,0.0781304017147,0.0780016959233,0.0775886401275,0.0777353048666,0.0774090506511,0.0777891817095,0.0778370722366,0.0778789764477,0.0773761259138,0.0773402080185,0.0774719069679,0.0775018385473,0.0774808864417,0.0770408922245,0.077214495385,0.0769211659069,0.076912186433,0.0770319127506,0.0772923174914,0.0770708238039,0.0769840222236,0.0769870153815,0.0769421180124,0.0771695980159,0.077064837488,0.0772174885429,0.0771247006468,0.0768193985369,0.076711644851,0.0770079674871,0.0770977622253,0.0766457953763,0.0764841648476,0.0763345069506,0.0761189995789,0.0758795469436,0.075759820626,0.0758855332595,0.075861587996,0.0758436290484,0.0754664911479,0.0757478479943,0.0756849916775,0.0759334237866,0.0757448548363,0.0754036348311,0.0754904364114,0.0754455390423,0.0753228195668,0.0749905790354,0.0747241879787,0.0744937148173,0.0747870442954,0.0744488174482,0.0745056874491,0.0746314000826,0.0744907216594,0.0743919474473,0.0744039200791,0.074508680607,0.0744278653426,0.0743530363941,0.07425725534,0.0744697695538,0.0747301742946,0.074861873244,0.0747421469263,0.0744997011332,0.0745236463967,0.0746972495572,0.0745984753452,0.074508680607,0.0742512690241,0.0742003853392,0.0736227058567,0.0733233900627,0.0733473353262,0.0733323695365,0.0730091084789,0.0725840800514,0.0728504711081,0.0730450263742,0.073155773218,0.072802580581,0.073006115321,0.0725870732094,0.0722398668883,0.0720243595166,0.0717609616178,0.0717819137234,0.0715245021406,0.0714287210865,0.0711922616092,0.0709348500263,0.0709827405534,0.0712431452942,0.0712221931886,0.0711772958195,0.0716382421423,0.0712341658204,0.0713389263483,0.0712700837156,0.0711653231877,0.0713718510856,0.0712371589783,0.0714436868762,0.0714466800341,0.0714257279285,0.0711743026615,0.0712790631895,0.0709348500263,0.0708450552881,0.0708690005516,0.0706744452855,0.0705636984417,0.0702194852786,0.0702105058048,0.0702673758056,0.0700818000133,0.0698722789575,0.0700877863292,0.0697615321137,0.0696597647438,0.0695909221111,0.0696896963232,0.069647792112,0.0697196279026,0.0694771821094,0.0692167773686,0.0692586815798,0.0689084821008,0.0690431742081,0.068998276839,0.0691209963145,0.0689533794699,0.068746851572,0.0684355631462,0.0685642689376,0.0688875299952,0.0688725642055,0.0690551468398,0.0691389552622,0.0691000442089,0.0690880715772,0.069195825263,0.069396366845,0.069399360003,0.0693664352656,0.0690072563128,0.0690012699969,0.0686810020973,0.0683367889342,0.0679476784019,0.0678369315582,0.0675256431324,0.0672353068122,0.0671724504954,0.0669240183864,0.0669539499658,0.066840209964,0.0668372168061,0.0668192578585,0.0672263273383,0.0673670057615,0.067193402601,0.067292176813,0.0671514983898,0.0673370741821,0.0673789783933,0.067145512074,0.0672712247074,0.0674388415521,0.0672742178654,0.0670257857563,0.0670527241778,0.066944970492,0.0670617036516,0.0669569431237,0.0667953125949,0.067091635231,0.066941977334,0.0666995315409,0.0662984483769,0.0664241610103,0.0665349078541,0.0664870173271,0.066840209964,0.0666546341717,0.0666606204876,0.0663822567992,0.0665468804859,0.0664181746945,0.0666067436447,0.0663044346927,0.0659961394249,0.0659811736352,0.0654364188901,0.0657147825785,0.0657177757364,0.0658764131073,0.0659123310026,0.0659931462669,0.0659542352137,0.0659572283717,0.0662445715339,0.0663732773254,0.0666516410138,0.0664301473262,0.0664600789056,0.0665289215383,0.0663074278507,0.066543887328,0.0668491894379,0.0667204836464,0.0666366752241,0.0664660652215,0.0663672910095,0.0664361336421,0.0663672910095,0.0661757289013,0.0659123310026,0.0656668920515,0.0654214531004,0.0655112478386,0.0654723367853,0.0654124736265,0.0650323425681,0.0648587394076,0.065089212569,0.064939554672,0.065289754151,0.0651251304643,0.0649814588831,0.0647659515114,0.0646162936144,0.0646342525621,0.0648467667758,0.0650742467793,0.0649575136196,0.0652957404669,0.0650682604634,0.0651520688857,0.0650532946737,0.0652298909922,0.0654663504695,0.0653765557313,0.0652688020454,0.0653017267827,0.0650652673055,0.0648018694067,0.0647449994059,0.0646192867724,0.0647839104591,0.0644307178221,0.0642511283457,0.0644247315062,0.064589355193,0.0642631009775,0.0642840530831,0.0641074567646,0.064035620974,0.0641643267654,0.0639907236049,0.0640296346581,0.0641284088702,0.0639727646573,0.063733312022,0.0636644693894,0.0635507293877,0.0635926335989,0.0638470520238,0.063733312022,0.0635118183345,0.0637213393903,0.0632424341198,0.0631017556967,0.0630508720117,0.0631885572769,0.0631197146443,0.0629461114838,0.0628623030614,0.0627186314803,0.0629700567473,0.0629101935885,0.0632993041207,0.0632484204357,0.0633022972787,0.0630568583275,0.0632544067516,0.0632993041207,0.0632933178048,0.0631197146443,0.0629940020108,0.0628443441138,0.0629670635893,0.0630149541164,0.0631107351705,0.0629520977996,0.0627755014812,0.063035906222,0.0626677477953,0.0631047488546,0.0629670635893,0.0630119609584,0.0625899256889,0.062383397791,0.0620272119961,0.0620361914699,0.0621648972614,0.0621439451558,0.0621978219987,0.0618895267308,0.0618955130467,0.0617518414656,0.0620272119961,0.0622277535781,0.0624911514768,0.062580946215,0.062281630421,0.0620780956811,0.0621559177875,0.0620212256802,0.0621619041034,0.062281630421,0.0620870751549,0.0620062598905,0.0615902109368,0.0614495325136,0.0615483067257,0.0613567446175,0.0611591961934,0.061129264614,0.0607970240826,0.0606862772389,0.0605875030268,0.0604198861822,0.0605665509212,0.0603091393384,0.0603899546028,0.060327098286,0.060377981971,0.0601385293358,0.060380975129,0.0602911803907,0.0602702282852,0.0604857356569,0.0605216535521,0.0607102225024,0.0604438314457,0.0603719956551,0.0602373035478,0.0606144414483,0.0603660093393,0.0603630161813,0.0600637003873,0.0598930903847,0.0597703709091,0.0596626172233,0.0596177198542,0.0598541793315,0.0601115909143,0.0599918645967,0.0602253309161,0.0602313172319,0.0604198861822,0.0602881872328,0.0602672351272,0.0605096809204,0.0603600230234,0.0601026114405,0.0599349945959,0.0598900972267,0.0598601656473,0.0597853366988,0.0596865624868,0.0598092819624,0.0600726798611,0.0600996182826,0.0601624745993,0.0602492761796,0.0600846524929,0.0599469672276,0.05972547354,0.05982724091,0.0598422066997,0.0599050630165,0.0595339114319,0.0592016709005,0.0593423493237,0.0592046640584,0.0592735066911,0.0593962261666,0.0596057472224,0.0595369045898,0.0594081987984,0.0592316024799,0.0594052056404,0.059426157746,0.0594979935366,0.0596326856439,0.0595219388001,0.0594351372198,0.0591657530052,0.0591118761623,0.0593094245863,0.0593543219554,0.0592615340593,0.0592824861649,0.0591358214258,0.0590041224764,0.0590340540558,0.0591148693202,0.0532542660732,0.0473248201935,0.0413055795756,0.0353462021166,0.0)
m <- c(0.0352754271129,0.0411023186601,0.0468903243808,0.0526274794052,0.0584723182569,0.0584274499955,0.0584543709524,0.0585770108669,0.0585650459971,0.058591966954,0.0583825817341,0.0583825817341,0.0584394148652,0.0586308527805,0.0586398264328,0.0586039318237,0.0587205893033,0.0587205893033,0.0587415278253,0.0584902655615,0.0585201777357,0.0587265717382,0.0586099142585,0.0584364236478,0.058367625647,0.0584394148652,0.0585022304312,0.0583646344296,0.0585770108669,0.0588551940875,0.0589000623489,0.0585321426055,0.0588522028701,0.0589688603497,0.0590286846983,0.0591991840916,0.0591602982651,0.0592619996576,0.0592051665265,0.0592530260053,0.0591692719173,0.0595551389654,0.0596089808791,0.0599260499263,0.0600247601014,0.0598452870558,0.0598512694906,0.0600038215794,0.0600815932325,0.0602670487129,0.0605631792382,0.0603178994092,0.0602550838432,0.0599679269703,0.0601892770598,0.0600875756673,0.0599769006225,0.0598363134035,0.0597615329678,0.0599469884483,0.0599499796657,0.0600127952317,0.0599828830574,0.060204233147,0.0601593648856,0.0603747325403,0.0604854075851,0.0607217137618,0.060919134112,0.0607306874141,0.0607695732406,0.0609131516771,0.0610357915916,0.0609370814165,0.0608802482854,0.0610447652439,0.0609669935908,0.0609281077642,0.0609490462862,0.0609729760256,0.0607576083709,0.0608383712414,0.0606918015875,0.0608264063717,0.0607007752398,0.0605302758465,0.0607097488921,0.0607845293278,0.0606977840224,0.0607157313269,0.0607247049792,0.0607097488921,0.060996905765,0.061221247072,0.061508403945,0.0613528606388,0.0615951492504,0.0614964390753,0.0614844742056,0.0614725093359,0.0616071141201,0.0616759121209,0.0615891668155,0.0612182558546,0.061017844287,0.0613917464654,0.061571219511,0.0618404290794,0.061978025081,0.0621515156917,0.0623938043033,0.0623609009116,0.0622950941282,0.0625732773489,0.0625822510012,0.0623908130859,0.0622621907365,0.0621545069092,0.062244243432,0.0618613676014,0.0618284642097,0.0621754454312,0.062447646217,0.0625852422186,0.0627856537862,0.0630428984849,0.0629411970924,0.0632492924873,0.0632403188351,0.0635813176217,0.0636351595354,0.0635454230126,0.0634766250118,0.0633210817056,0.0633390290101,0.0635873000566,0.0633121080533,0.0628365044825,0.0629920477886,0.0628484693522,0.0627617240468,0.0626570314369,0.0621455332569,0.0621096386478,0.0621006649955,0.0618613676014,0.0621066474303,0.0623967955207,0.0623698745639,0.0624955056958,0.0625134530004,0.0623579096942,0.063078793094,0.063282195879,0.0633300553579,0.0633480026624,0.0634437216201,0.0634317567504,0.0633330465753,0.0634168006632,0.0635424317952,0.0636590892748,0.0634197918807,0.0634467128375,0.0635035459686,0.0635962737088,0.0637248960582,0.0636560980574,0.0637667731022,0.0639522285826,0.0638176237984,0.0641017894539,0.063856509625,0.0638236062333,0.0639911144092,0.0639462461478,0.063772755537,0.0639282988432,0.0639253076258,0.063772755537,0.0638325798855,0.0639073603212,0.0644068936315,0.0644996213717,0.0645355159808,0.0647209714613,0.0650529965956,0.06497821616,0.065076926335,0.0651337594662,0.0653341710337,0.065322206164,0.0651786277276,0.0653102412943,0.0654149339043,0.0652264872064,0.0651307682487,0.0653939953823,0.0654328812088,0.0655046704271,0.0652504169458,0.0653341710337,0.065364083208,0.0653700656429,0.0652563993807,0.0652952852072,0.06538502173,0.0652922939898,0.0653491271209,0.0654388636437,0.0658307131266,0.065875581388,0.0661687206958,0.0661567558261,0.06630332548,0.0666024472227,0.0666413330492,0.0667879027031,0.0669404547919,0.0669853230533,0.0667609817463,0.0666802188758,0.0666024472227,0.0667639729637,0.0666772276583,0.0667460256591,0.0665725350484,0.0664977546127,0.0664738248733,0.066569543831,0.0668118324425,0.0670541210541,0.0671827434034,0.0670301913147,0.0673352954922,0.0672126555777,0.0673143569702,0.0673083745354,0.0673921286233,0.0676374084523,0.0676463821046,0.0673382867096,0.0672455589694,0.067649373322,0.0672754711437,0.0674369968847,0.0677091976705,0.0677600483668,0.0674848563635,0.0672575238391,0.0676643294091,0.0677600483668,0.0679215741078,0.0677241537577,0.0679395214124,0.0679604599344,0.0677839781062,0.0679933633261,0.068385212809,0.0684988790712,0.0682147134156,0.068588615594,0.0686065628985,0.0687471501176,0.0687561237699,0.0688099656836,0.0690612279474,0.0689505529026,0.0690911401217,0.0692077976013,0.0691808766445,0.0689685002072,0.0692586482976,0.0691838678619,0.0696415241282,0.0694530774303,0.069423165256,0.0696056295191,0.0694680335174,0.0692915516893,0.0695876822145,0.0697940762169,0.0696235768236,0.0697671552601,0.0697761289124,0.0703145480492,0.0705029947471,0.0705927312699,0.0705807664002,0.0705688015305,0.0704012933546,0.0704282143114,0.0709098003171,0.0708918530125,0.0704641089205,0.0700602945679,0.0699825229148,0.0700303823936,0.0702098554392,0.0704521440508,0.0706854590101,0.0707602394458,0.0703504426583,0.0705149596168,0.0707213536192,0.0707034063147,0.0707662218806,0.0707722043155,0.0707781867503,0.0706914414449,0.0707991252723,0.0708978354474,0.0712687464083,0.0712029396249,0.0713465180614,0.0714781316282,0.0715170174547,0.0714900964979,0.0715200086721,0.0715499208464,0.0717024729352,0.0717264026746,0.0716905080655,0.0717144378049,0.0719447615467,0.0720464629392,0.0725250577275,0.0727882848611,0.0730515119946,0.0732519235622,0.0732220113879,0.0732938006062,0.0734852385215,0.0735630101746,0.0733596073896,0.0736826588716,0.0735360892177,0.0734942121738,0.0734224229555,0.0732160289531,0.0734702824343,0.0737783778293,0.0733775546941,0.0735271155654,0.0738023075687,0.073748465655,0.0739548596575,0.0739847718317,0.0739817806143,0.0741014293114,0.0738800792218,0.07354506287,0.073853158265,0.0737454744376,0.0738023075687,0.0738023075687,0.0735749750443,0.0738890528741,0.0742001394865,0.0747056552316,0.0748881194946,0.0750227242788,0.07487017219,0.0753278284563,0.0754684156754,0.0755252488065,0.0757136955044,0.0756179765467,0.0756718184604,0.075585073155,0.0756508799384,0.0758572739408,0.0762192112495,0.0761324659441,0.0760935801175,0.0761234922918,0.0760636679433,0.0762072463798,0.0759649577682,0.0761593869009,0.0760517030736,0.0758841948977,0.0759440192462,0.0761653693358,0.0766349904718,0.0769670156061,0.0771464886517,0.0772840846534,0.0775233820475,0.0774306543073,0.0777208023977,0.0782053796208,0.0783848526664,0.0784775804066,0.0782143532731,0.0784686067543,0.0786420973651,0.0782532390996,0.0784446770149,0.0787647372796,0.0788245616281,0.0787976406713,0.0784955277112,0.0782801600565,0.0783340019701,0.0781545289245,0.0782861424913,0.0787079041485,0.0785613344946,0.0783639141444,0.0785673169294,0.0786151764082,0.0790309556306,0.0792403408504,0.0795364713757,0.0796501376379,0.0798804613797,0.0797518390304,0.0796501376379,0.0798625140752,0.0802154777315,0.0802693196452,0.0800748905125,0.0802603459929,0.0804398190385,0.080520581909,0.0803979419946,0.0810619922633,0.0814837539204,0.0817559547063,0.0814179471371,0.0813999998325,0.0815914377478,0.0814957187901,0.0814568329636,0.0819204716647,0.0819683311436,0.081684165488,0.0816602357486,0.0817589459237,0.0817589459237,0.0822614704514,0.082560592194,0.0826593023691,0.0825336712372,0.0823960752356,0.0829464592421,0.0830451694172,0.0833113877681,0.0836434129025,0.0836553777722,0.0836942635988,0.0837481055124,0.084193796909,0.0842655861273,0.0839963765589,0.0838797190792,0.0842386651704,0.0842057617787,0.0839425346452,0.0844570240426,0.0845108659562,0.084705295089,0.0846185497836,0.0851061182242,0.0856864144049,0.0855099325768,0.0854441257934,0.0853902838797,0.0857253002315,0.0854291697062,0.0852646527478,0.0854501082282,0.0855488184033,0.0853005473569,0.0851689337901,0.0851988459644,0.085357380488,0.0858928084074,0.0856415461435,0.0857372651012,0.08588981719,0.0859137469294,0.086009465887,0.0862876491077,0.0863414910214,0.0866585600686,0.0865448938064,0.0863295261517,0.0865777971981,0.0869457169416,0.0871670670311,0.0873285927722,0.0872478299017,0.0870952778129,0.0874961009481,0.0876247232974,0.0879477747795,0.0881063093031,0.0884473080898,0.0882768086965,0.0881900633911,0.0882678350442,0.0888361663552,0.0890425603577,0.0888870170515,0.0890425603577,0.0894044976663,0.0896976369741,0.0898801012372,0.0906159407241,0.0908701942054,0.091091544295,0.0911573510784,0.0912620436883,0.0916000512575,0.0916688492583,0.09129494708,0.0911274389041,0.0911065003821,0.0911035091647,0.091007790207,0.0908522469008,0.090867202988,0.0912979382974,0.0914415167339,0.0917196999546,0.091967971001,0.0924704955287,0.0925063901378,0.0925961266606,0.0929550727518,0.0934845182363,0.0937058683259,0.0938135521533,0.0936610000645,0.093601175716,0.0939960164163,0.094007981286,0.0944865760743,0.0944417078129,0.0945553740751,0.0943489800726,0.0946271632933,0.0944805936394,0.0948156099912,0.0949651708625,0.0952583101703,0.0953450554757,0.0953689852151,0.0954736778251,0.0958834746125,0.0958954394822,0.0960120969619,0.0963082274871,0.0968316905368,0.0971427771492,0.0969991987127,0.0972953292379,0.0973401974993,0.0978038362005,0.0978337483747,0.0980311687249,0.0976572665465,0.0979145112452,0.0976782050685,0.097779906461,0.0979474146369,0.0980850106386,0.0985187371654,0.0985187371654,0.0985277108177,0.0988507622998,0.099637452483,0.099721206571,0.0999844337045,0.10007117901,0.100319450056,0.100507896754,0.100510887972,0.100818983367,0.101067254413,0.101031359804,0.101249718676,0.101518928244,0.101916760162,0.102362451559,0.102398346168,0.102715415215,0.102993598436,0.103098291046,0.103370491832,0.103690552096,0.103759350097,0.104205041494,0.104420409148,0.104399470626,0.105156248635,0.105539124466,0.106346753171,0.106962943961,0.107677844926,0.108461543892,0.108712806156,0.109415742251,0.110402844002,0.111757865496,0.112843677422,0.113857700129,0.11434526857,0.115128967536,0.115894719197,0.116857891208,0.117827045655,0.118577841229,0.118682533839,0.119167111062,0.119406408456,0.120396501424,0.120779377255,0.121263954478,0.121688707353,0.122334810317,0.122744607104,0.123315929633,0.123668893289,0.123513349983,0.123420622243,0.122780501713,0.122786484148,0.123118509283,0.123148421457,0.122897159193,0.123190298501,0.122562142841,0.122771528061,0.123151412674,0.123268070154,0.12374965616,0.124240215818,0.124177400252,0.124419688863,0.124697872084,0.124796582259,0.125448667658,0.125592246094,0.125831543489,0.125873420533,0.126019990186,0.126082805752,0.126253305146,0.12636398019,0.126280226103,0.126337059234,0.126253305146,0.126675066803,0.126872487153,0.127261345418,0.127530554987,0.127219468375,0.127168617678,0.127174600113,0.127276301506,0.127324160984,0.127605335423,0.127395950203,0.12738697655,0.12759636177,0.127413897507,0.127327152202,0.127031021677,0.127126740634,0.127303222462,0.127234424462,0.126953250024,0.126848557414,0.126770785761,0.12658533028,0.126396883582,0.1267947155,0.127099819677,0.127102810895,0.126660110716,0.126444743061,0.126301164625,0.126366971408,0.125963157055,0.125595237312,0.125326027743,0.125017932348,0.124823503216,0.124425671298,0.124240215818,0.124494469299,0.124440627385,0.124105611033,0.12372572642,0.123504376331,0.123441560765,0.122959974759,0.122983904498,0.122627949625,0.122565134059,0.121904075007,0.1216797337,0.121748531701,0.121530172829,0.121530172829,0.121186182825,0.120919964474,0.120243949335,0.120333685858,0.12005251142,0.119977730985,0.119442303065,0.118799191318,0.118760305492,0.118619718273,0.118206930268,0.118003527483,0.117844992959,0.117438187389,0.117168977821,0.116684400598,0.117037364254,0.116678418163,0.116421173464,0.116262638941,0.116442111986,0.116603637727,0.11636733155,0.116388270072,0.11599642059,0.116080174678,0.115574658932,0.115801991457,0.115757123195,0.115383221017,0.114778995097,0.114372189527,0.114171777959,0.11375300752,0.114022217088,0.113645323692,0.11322954447,0.113005203163,0.112948370032,0.112499687418,0.112604380028,0.112406959678,0.11199716289,0.11181170741,0.111638216799,0.111805724975,0.111784786453,0.111129709836,0.110588299482,0.110597273134,0.110471642002,0.110444721046,0.110522492699,0.110196449999,0.109876389735,0.109460610512,0.109305067206,0.109209348248,0.109128585378,0.108931165028,0.108739727112,0.108476499979,0.108536324327,0.108569227719,0.108308991803,0.108087641713,0.10791714232,0.10820729041,0.108039782235,0.108045764669,0.107725704405,0.107348811009,0.106849277699,0.106678778305,0.106583059348,0.106681769523,0.106227104474,0.105763465773,0.105129327678,0.104878065415,0.104626803151,0.104656715325,0.104477242279,0.104450321323,0.104073427927,0.103505096616,0.103484158094,0.103645683835,0.103968735317,0.103902928533,0.103950788012,0.104091375231,0.104112313753,0.103852077837,0.103896946099,0.10382515688,0.104121287406,0.103768323749,0.10352304392,0.10334955331,0.103098291046,0.102583801648,0.102233829209,0.102027435207,0.101934707467,0.101611655985,0.10117493824,0.100971535455,0.100887781367,0.100657457626,0.100223731099,0.100244669621,0.100157924315,0.0998707674423,0.099721206571,0.0998976883991,0.0994609706548,0.0994849003943,0.099413111176,0.0994190936109,0.0995028476988,0.0991768049993,0.0993233746532,0.0992426117827,0.0990242529105,0.0985486493397,0.098802902821,0.098452930382,0.09802518629,0.0976064158503,0.0977200821125,0.0977649503739,0.0975645388063,0.09761838072,0.0974239515873,0.0974538637615,0.0970440669741,0.0970500494089,0.0969603128861,0.0967868222754,0.0963979640099,0.0960509827884,0.0958774921777,0.0959074043519,0.0956740893927,0.095620247479,0.0952822399098,0.0951356702558,0.0953929149545,0.0954647041728,0.0953001872143,0.0953061696492,0.0948036451215,0.0945134970311,0.0945404179879,0.0945643477274,0.0945793038145,0.0943669273772,0.0940917353739,0.0937327892827,0.0935922020637,0.0937118507607,0.0939421745026,0.0935862196288,0.0934306763226,0.0930926687534,0.0931973613634,0.0928384152722,0.0926380037046,0.0926170651826,0.0924974164855,0.0918722520433,0.0916120161272,0.0916838053454,0.0916120161272,0.0915282620393,0.0913876748202,0.0913996396899,0.0912829822103,0.0911992281223,0.091274008558,0.0913457977762,0.091315885602,0.0908552381183,0.0906159407241,0.0903078453292,0.0903018628943,0.0901433283707,0.0897963471492,0.0895660234074,0.0892399807078,0.0891083671411,0.0887942893113,0.0885430270474,0.0882169843479,0.0879148713878,0.087397390773,0.0868888838105,0.0864013153699,0.0860662990181,0.0853753277926,0.0846394883056,0.0838916839489,0.0836493953374,0.083275493159,0.0830690991566,0.0826772496737,0.0826174253252,0.0823841103659,0.0821448129717,0.0823332596696,0.0823093299302,0.0824289786273,0.0824050488879,0.0823422333219,0.0819414101867,0.0818965419253,0.0818666297511,0.0817739020108,0.0816034026175,0.081277359918,0.0809722557405,0.0810649834807,0.080849615826,0.0806103184318,0.0804338366037,0.0803740122551,0.0799283208586,0.0799283208586,0.0798595228577,0.0798266194661,0.0798864438146,0.0796710761599,0.0797697863349,0.0797518390304,0.0796531288553,0.0795454450279,0.0795005767665,0.0795095504188,0.0793629807649,0.0791356482405,0.0791177009359,0.0789053244986,0.0783130634481,0.0779930031835,0.0782352917951,0.0778434423122,0.0778314774425,0.0774904786558,0.0775772239612,0.0775921800483,0.0774156982201,0.0775353469172,0.0777477233545,0.0779690734441,0.0777387497022,0.0776549956143,0.0774904786558,0.0774964610907,0.0772661373488,0.0769071912576,0.0773020319579,0.0770746994335,0.0771584535214,0.076952059519,0.0768982176053,0.076931120997,0.0769460770842,0.0768593317788,0.0768683054311,0.0768832615182,0.0762491234237,0.0761922902926,0.0761653693358,0.0760397382039,0.0760277733342,0.0761743429881,0.0757854847226,0.0758871861151,0.0756239589816,0.0755461873285,0.075522257589,0.0756179765467,0.0754624332405,0.0754953366322,0.0752380919335,0.0749299965386,0.0751244256713,0.0749718735825,0.0750675925402,0.0750675925402,0.0750227242788,0.0745590855777,0.0742210780084,0.0741074117462,0.0740745083545,0.0740326313106,0.073993745484,0.074077499572,0.0737813690467,0.0739129826135,0.0739129826135,0.0740864732242,0.0740804907894,0.0741133941811,0.0742270604433,0.0742270604433,0.0739907542666,0.0736647115671,0.0737873514816,0.0736736852194,0.0736706940019,0.0735689926094,0.0736138608708,0.0734194317381,0.0733685810418,0.0730156173855,0.0732638884319,0.0735330980003,0.0734523351298,0.0734224229555,0.0733506337373,0.0731292836477,0.0730275822552,0.0728899862536,0.0727673463391,0.0730006612983,0.0727882848611,0.0725968469457,0.0724712158138,0.0725250577275,0.072584882076,0.0726626537291,0.0726596625117,0.0727135044254,0.0730694592992,0.0730814241689,0.0731382573,0.0731292836477,0.0728540916444,0.0726536800769,0.0726177854677,0.0724113914653,0.0720883399832,0.0720584278089,0.0715618857161,0.0714542018888,0.0714811228456,0.0710234665793,0.0709337300565,0.0711102118847,0.0708380110989,0.0710294490142,0.0711221767544,0.0707961340549,0.0711371328415,0.070852967186,0.0704521440508,0.0709098003171,0.0712238781469,0.0708410023163,0.0708589496208,0.0705897400524,0.0708260462291,0.0711341416241,0.0706166610093,0.0707393009238,0.0707243448366,0.0704611177031,0.0705598278782,0.0705358981388,0.0703055743969,0.0703683899629,0.0701619959604,0.0700214087414,0.0699047512617,0.0698329620435,0.069913724914,0.0698090323041,0.0693842794295,0.0693753057772,0.0694291476909,0.069303516559,0.0691479732528,0.0693812882121,0.0694590598651,0.0695697349099,0.0694770071697,0.0696534889979,0.0694949544743,0.0695697349099,0.0694919632568,0.0695099105614,0.0694680335174,0.068974482642,0.0690672103823,0.069037298208,0.069079175252,0.0688937197715,0.06905823673,0.068995421164,0.0691629293399,0.069261639515,0.0692736043847,0.0694889720394,0.0693962442992,0.0692496746453,0.069198823949,0.0692496746453,0.0691180610785,0.0688279129881,0.0684899054189,0.0684570020272,0.068343335765,0.0681758275891,0.0679514862821,0.0677361186274,0.0675536543643,0.0674848563635,0.0674818651461,0.0676224523652,0.0673412779271,0.0671558224466,0.0669853230533,0.0668118324425,0.0666144120924,0.0666443242666,0.0666622715712,0.0665605701787,0.0663332376543,0.0662913606103,0.0665246755696,0.0665366404393,0.0666921837455,0.0669165250525,0.0671737697512,0.06722162923,0.0670361737495,0.0667220959197,0.0670840332284,0.0669374635744,0.0668806304433,0.0668626831388,0.06681482366,0.0665874911355,0.0664528863513,0.0663751146982,0.0665545877438,0.0665007458302,0.0663003342626,0.0663182815671,0.0664887809604,0.0660071949547,0.0659383969539,0.0660969314776,0.066141799739,0.0659025023448,0.0657200380818,0.0659294233017,0.0662076065223,0.0660730017381,0.0659473706062,0.0662165801746,0.066261448436,0.0660520632161,0.0658067833872,0.0659413881714,0.0661178699995,0.066282386958,0.0661029139124,0.0661567558261,0.0659802739979,0.0656123542544,0.065546547471,0.0657290117341,0.0656063718196,0.0655435562536,0.0654508285134,0.0650709439002,0.0648436113758,0.0649034357243,0.0648615586803,0.0652863115549,0.0653491271209,0.0652354608587,0.0655435562536,0.0654867231225,0.0653880129474,0.0656452576461,0.0657080732121,0.0656961083424,0.065875581388,0.0655315913839,0.0651786277276,0.0648196816364,0.0645744018074,0.0643351044132,0.0641646050199,0.0574852165061,0.050922485472,0.0443029213067,0.03774318149,0.0)
ycorr <- c(-0.000113930847104,-0.000114236040873,-0.000115163526827,-0.000116712792625,-0.000118892543193,-0.000121695483136,-0.000125120022535,-0.000128567632277,-0.0001320312771,-0.000135507950718,-0.000139003815085,-0.000142515113765,-0.0001460308933,-0.000149542522222,-0.000153056176221,-0.000156571311618,-0.000160084988799,-0.000163593815446,-0.000167087984764,-0.000170568594341,-0.000174036509522,-0.000177492775812,-0.00018095350006,-0.000184436732264,-0.000187937276088,-0.000191448783511,-0.000194974483133,-0.000198517780175,-0.000202083123053,-0.000205676707598,-0.000209295628441,-0.000212934382832,-0.000216589746353,-0.000220248634748,-0.000223903418754,-0.000227558040549,-0.000231212820843,-0.000234864200836,-0.000238507600056,-0.000242141868535,-0.0002457704739,-0.000249397372187,-0.000253025852112,-0.000256650871016,-0.000260276989537,-0.000263905232877,-0.000267533488666,-0.000271163230118,-0.000274800885121,-0.000278446649179,-0.000282089919282,-0.000285734646183,-0.000289372601454,-0.000293002189736,-0.000296624968412,-0.000300242210282,-0.000303854619577,-0.000307460658012,-0.000311057125204,-0.000314634050468,-0.000318199249182,-0.00032174824525,-0.000325274874684,-0.000328788424959,-0.000332291514135,-0.000335788708034,-0.000339269723503,-0.000342731451373,-0.000346170517669,-0.000349590889825,-0.000352988689264,-0.000356359759692,-0.000359709184097,-0.000363035462538,-0.000366332267111,-0.0003695904715,-0.000372812491332,-0.000376009312978,-0.00037918330659,-0.000382340216427,-0.000385474004109,-0.00038859138317,-0.000391691769422,-0.000394771666888,-0.0003978358914,-0.000400879561426,-0.000403909206571,-0.000406915128089,-0.000409890450551,-0.000412835596392,-0.000415747930977,-0.000418630730938,-0.000421479814776,-0.000424295492131,-0.000427073679371,-0.00042981899528,-0.000432529790601,-0.000435204832676,-0.000437848484209,-0.000440454538307,-0.000443024703589,-0.000445560580711,-0.000448059978744,-0.000450525410882,-0.000452960516844,-0.000455371186049,-0.000457751149949,-0.000460103895418,-0.000462437133619,-0.000464751875307,-0.000467053879852,-0.000469340599756,-0.000471614221109,-0.000473878596695,-0.000476129427704,-0.000478363648244,-0.00048057834607,-0.000482777653304,-0.000484959245349,-0.00048712088142,-0.000489264140806,-0.000491383173432,-0.000493472321921,-0.000495528571267,-0.000497551383888,-0.000499545828473,-0.000501520260925,-0.000503474763758,-0.000505400072328,-0.000507298823853,-0.000509168823961,-0.000511010376987,-0.000512835480928,-0.000514647438422,-0.000516443921696,-0.000518220976748,-0.00051997937829,-0.000521712585569,-0.000523424360157,-0.000525111957148,-0.000526773883633,-0.000528409871513,-0.00053002335151,-0.000531609276946,-0.000533172494445,-0.000534711758037,-0.000536228015627,-0.000537720435242,-0.000539190751298,-0.000540641353301,-0.000542077329359,-0.000543503019861,-0.000544909882537,-0.00054629738505,-0.000547668340546,-0.000549023224342,-0.000550363751122,-0.000551686381962,-0.00055299062226,-0.00055427894343,-0.000555548301986,-0.000556799950451,-0.00055803216625,-0.000559246057693,-0.000560436384891,-0.000561600214055,-0.000562732518651,-0.00056384106956,-0.000564925756851,-0.000565984428024,-0.000567007813901,-0.000568001543763,-0.000568965672669,-0.000569903000936,-0.000570816888932,-0.000571713397236,-0.000572588860358,-0.000573439175489,-0.000574263815808,-0.000575072007894,-0.000575870843364,-0.000576662742411,-0.000577446634318,-0.000578225614291,-0.000578996064416,-0.000579752758994,-0.000580499068702,-0.000581237670668,-0.000581979136219,-0.000582711517618,-0.000583431836859,-0.000584134356894,-0.000584817525165,-0.000585476022833,-0.000586107602991,-0.000586716819254,-0.000587308520354,-0.000587875225869,-0.000588414069445,-0.000588923268102,-0.0005894102131,-0.000589871136525,-0.000590303401681,-0.000590710408361,-0.000591094372204,-0.000591455722513,-0.000591793104551,-0.000592113911999,-0.000592415269231,-0.000592702776622,-0.000592974231976,-0.00059322984893,-0.000593476562468,-0.000593717730617,-0.000593957396429,-0.000594193129229,-0.00059442046963,-0.000594634566108,-0.000594833666515,-0.00059501733076,-0.000595179894706,-0.000595321289626,-0.000595448181335,-0.000595554759066,-0.000595642381797,-0.0005957078966,-0.000595755364415,-0.000595787643778,-0.000595804263201,-0.00059580385546,-0.000595789218605,-0.000595761437994,-0.000595713147535,-0.000595635502306,-0.000595529537765,-0.000595396596034,-0.000595231983672,-0.000595037398846,-0.000594810824987,-0.000594558487099,-0.000594284622797,-0.000593994502176,-0.000593687329728,-0.000593372959633,-0.000593045141003,-0.000592706007102,-0.000592355296677,-0.000591998885435,-0.000591634621406,-0.000591261339526,-0.000590875646432,-0.000590465352998,-0.000590030515979,-0.000589577925836,-0.000589107294233,-0.000588621548874,-0.000588121395264,-0.000587603616085,-0.000587066545387,-0.000586506407985,-0.000585924782389,-0.00058532463174,-0.000584710949286,-0.000584074605652,-0.00058341497012,-0.000582732250749,-0.00058203045811,-0.000581305849942,-0.000580563038469,-0.000579802166127,-0.000579024974896,-0.000578237580092,-0.000577439975799,-0.00057663254229,-0.000575820754332,-0.000574996194073,-0.000574155593402,-0.000573299795175,-0.000572431645338,-0.000571548508615,-0.000570647233629,-0.000569727315508,-0.000568784189135,-0.000567817270988,-0.000566823972819,-0.000565803661561,-0.000564759458439,-0.000563685870073,-0.000562579012289,-0.000561431165443,-0.000560238879975,-0.000559002437311,-0.000557713100199,-0.000556368878603,-0.000554964442935,-0.00055350383988,-0.000551986848711,-0.000550420370853,-0.000548810933904,-0.000547167912132,-0.000545497036812,-0.000543800838086,-0.00054208720585,-0.000540364164883,-0.000538637434612,-0.000536911212721,-0.000535183543527,-0.000533450015697,-0.000531705406301,-0.00052995005358,-0.000528179735578,-0.000526393345507,-0.000524588463801,-0.000522757764553,-0.000520906920863,-0.000519031393554,-0.000517127722947,-0.000515197277379,-0.000513248417569,-0.000511277064249,-0.00050928494278,-0.000507271619191,-0.000505241447319,-0.000503201130887,-0.000501151281629,-0.000499092823328,-0.000497028243131,-0.000494961634901,-0.000492889222771,-0.000490808154144,-0.000488725069482,-0.000486636843716,-0.000484542567927,-0.000482438783566,-0.000480316034416,-0.000478168033051,-0.000475991155015,-0.000473789469505,-0.000471557053579,-0.000469302427877,-0.000467023926821,-0.000464725080132,-0.000462408807828,-0.000460075362893,-0.000457731046915,-0.000455385021807,-0.000453046636621,-0.000450710417239,-0.000448373611778,-0.000446038824225,-0.00044370039273,-0.000441358568868,-0.000439002568138,-0.000436640353608,-0.000434269390778,-0.000431887601485,-0.000429491047352,-0.000427079057279,-0.000424660300203,-0.000422233506413,-0.000419798820783,-0.000417355865394,-0.000414908718321,-0.000412452602299,-0.000409979997313,-0.000407493459681,-0.000404989164836,-0.000402470491106,-0.0003999362779,-0.000397377551398,-0.000394801451979,-0.000392206842698,-0.000389593893348,-0.000386960417217,-0.000384318433349,-0.000381665259318,-0.000379002849467,-0.000376328360514,-0.000373638023578,-0.000370938078895,-0.0003682311367,-0.000365513111142,-0.000362789580385,-0.000360061125122,-0.000357323913824,-0.000354574993701,-0.000351817345078,-0.00034905040505,-0.000346279061183,-0.000343505860999,-0.000340724204143,-0.000337933036015,-0.000335130056819,-0.000332315104125,-0.00032948968032,-0.000326659190916,-0.000323825878996,-0.000320988749826,-0.000318146679716,-0.000315294240815,-0.000312429645487,-0.000309556429534,-0.00030667813639,-0.000303793613952,-0.000300901313039,-0.00029800084846,-0.000295087644634,-0.000292161616086,-0.000289217417199,-0.000286262030486,-0.00028330227286,-0.000280335925431,-0.000277362948384,-0.000274385501657,-0.000271402781521,-0.000268414332056,-0.000265418850785,-0.000262419994067,-0.000259419304053,-0.000256416898441,-0.00025340609641,-0.000250385732316,-0.000247359613124,-0.00024432346832,-0.000241276944095,-0.000238218843325,-0.000235147965458,-0.000232068155675,-0.000228979263015,-0.000225880099298,-0.000222773774068,-0.000219655458391,-0.000216522193673,-0.000213376182559,-0.000210212585223,-0.000207030874974,-0.000203836394991,-0.000200625648197,-0.000197398012897,-0.000194157520777,-0.000190896578624,-0.000187621237048,-0.000184339849302,-0.00018105022708,-0.00017775691825,-0.000174464151761,-0.000171168843239,-0.000167873970751,-0.000164578496675,-0.000161272103281,-0.000157960301893,-0.000154650063115,-0.000151328558948,-0.000147993952861,-0.00014464485569,-0.000141277811043,-0.000137897954814,-0.000134502083508,-0.000131087793092,-0.000127662611201,-0.000124231009738,-0.000120785852381,-0.000117327298107,-0.000113861085492,-0.000110391199344,-0.000106921476466,-0.000103447195051,-9.99643408904e-05,-9.64807849454e-05,-9.29946350834e-05,-8.95026130352e-05,-8.60024027933e-05,-8.2495847301e-05,-7.89835098843e-05,-7.54646786202e-05,-7.19329431267e-05,-6.83947790239e-05,-6.48493110679e-05,-6.1297946298e-05,-5.77370310733e-05,-5.41687729958e-05,-5.05944018205e-05,-4.70191094135e-05,-4.3437225934e-05,-3.98481885663e-05,-3.62550974012e-05,-3.26524730867e-05,-2.90410594789e-05,-2.54234463783e-05,-2.17999150101e-05,-1.8169709767e-05,-1.4531162373e-05,-1.08844883749e-05,-7.23432628057e-06,-3.58327309861e-06,6.92864794684e-08,3.72373249324e-06,7.37645767213e-06,1.10341040082e-05,1.46980522495e-05,1.83672229137e-05,2.2038232003e-05,2.57163638932e-05,2.94042998956e-05,3.31045692984e-05,3.68181958711e-05,4.05442767996e-05,4.42815437311e-05,4.80282753025e-05,5.17828333067e-05,5.55442478009e-05,5.9314846205e-05,6.30910533394e-05,6.68755614608e-05,7.0664297425e-05,7.4459955845e-05,7.82618504271e-05,8.20742479935e-05,8.58955266995e-05,8.97231311977e-05,9.35591947239e-05,9.74064924603e-05,0.000101263301293,0.000105126868458,0.000108992245739,0.000112857283845,0.000116719549597,0.000120577239615,0.000124429251706,0.000128281701189,0.000132139193975,0.000135992643398,0.000139841573237,0.000143688605952,0.000147541215695,0.000151398594569,0.000155264028113,0.000159138935243,0.000163026272022,0.000166921208335,0.000170820274828,0.000174721295476,0.000178632485036,0.00018254874939,0.000186475742016,0.000190411132482,0.000194350949332,0.000198293919984,0.000202243551429,0.000206198826584,0.000210159776738,0.000214123177844,0.00021808993552,0.000222058935911,0.000226028692492,0.000229993446407,0.000233959903981,0.000237933307474,0.000241910929105,0.000245887244459,0.000249859683253,0.000253835783731,0.000257816283876,0.000261801028681,0.000265792564975,0.000269793115347,0.000273799450096,0.000277808555402,0.000281819253519,0.00028583365086,0.000289856376088,0.000293888470331,0.000297922462785,0.000301963885729,0.000306005066106,0.000310043514631,0.000314081304479,0.000318116908867,0.000322149471463,0.000326180815639,0.00033020695486,0.000334225117758,0.000338239079366,0.000342246528785,0.000346250478801,0.000350259666494,0.000354276463987,0.000358300276518,0.000362334518622,0.000366379235247,0.000370520781236,0.000374860741651,0.000379482969864,0.000384457215958,0.000390255555031,0.000395205145126,0.000399733963387,0.000403899167943,0.000407772551399,0.000411438167655,0.000414970823847,0.000418281326182,0.000421273054046,0.000423864252296,0.000425985246539,0.000427165999969,0.000429074378741,0.000431278820018,0.00043371867081,0.000436321461549,0.000439006464637,0.000441699398732,0.000444403077196,0.00044711594979,0.000449832916169,0.000452551927057,0.000455273597898,0.00045799718821,0.000460721737612,0.000463449223751,0.00046617775681,0.0004689009798,0.0004716122762,0.000474310795212,0.000476995004968,0.000479669230547,0.000482332936853,0.000484988206659,0.000487634582541,0.000490269637385,0.000492894664764,0.00049551274352,0.000498129996667,0.000500749251469,0.00050336711548,0.000505984819026,0.000508600170709,0.000511209171431,0.000513812971657,0.000516411525763,0.000519005522813,0.00052159042249,0.00052416588837,0.00052673089272,0.000529290514474,0.000531845170146,0.000534393727655,0.000536939031201,0.000539479699987,0.00054201609635,0.000544542719461,0.000547063214308,0.00054957480871,0.000552071008459,0.000554548906808,0.000557003024,0.000559433212437,0.000561840459633,0.000564225944872,0.000566590418384,0.000568936179666,0.000571261039607,0.000573565336212,0.000575853505611,0.000578133184278,0.000580401320846,0.000582659157795,0.000584903565727,0.00058713291488,0.000589343870907,0.000591535095426,0.000593703479974,0.000595852276043,0.00059797836119,0.000600077141951,0.000602146853146,0.000604185642241,0.000606191072835,0.000608165992995,0.000610108731721,0.000612018639666,0.000613897759764,0.000615743980228,0.000617560190409,0.000619342073358,0.00062109065759,0.000622808494527,0.000624500267656,0.000626170241053,0.000627818634262,0.000629443529827,0.000631047111867,0.00063262689501,0.000634182454239,0.00063571755971,0.000637237157136,0.000638740483735,0.000640220234879,0.000641666380193,0.000643073220893,0.000644439004512,0.000645771175246,0.000647065356668,0.000648325056456,0.00064954623201,0.000650721748288,0.000651852000547,0.000652938042845,0.000653989821636,0.000655014335713,0.000656015624303,0.000656985427536,0.000657924617539,0.000658828928521,0.000659695982183,0.00066052962628,0.000661331808815,0.000662101486631,0.000662837518475,0.000663534465534,0.000664195711494,0.000664819401524,0.000665416894512,0.000665984129261,0.00066652451853,0.000667044811118,0.00066754257662,0.000668020034815,0.000668469337214,0.000668894724335,0.000669291522596,0.00066965754985,0.000669988127234,0.000670283483761,0.000670543517467,0.000670765851094,0.000670944606234,0.000671076497536,0.000671165900058,0.000671214624629,0.00067122043912,0.000671189251604,0.00067111939591,0.000671012175306,0.000670865604572,0.00067067769471,0.000670452079317,0.000670196680208,0.000669916049059,0.000669602467773,0.000669263391558,0.000668897291201,0.000668500532873,0.000668076474351,0.000667626001654,0.00066715477912,0.000666663608777,0.000666147032735,0.000665598007897,0.000665021678321,0.000664416538835,0.000663781535502,0.000663116588738,0.000662424873867,0.000661709972013,0.000660971819683,0.000660207949244,0.000659420289748,0.000658612520487,0.000657783627859,0.000656930265436,0.000656052654983,0.00065515594339,0.0006542370329,0.000653294247786,0.000652320156568,0.000651312946676,0.000650270498623,0.000649192523422,0.000648083085158,0.000646945642942,0.000645784517842,0.000644596025266,0.000643377055798,0.000642128874275,0.000640851925292,0.000639553630995,0.000638237060561,0.000636902086792,0.000635545767844,0.000634166646029,0.00063276356703,0.00063133508435,0.000629890701712,0.000628429377632,0.000626952330637,0.000625459776363,0.000623949892894,0.000622424883462,0.00062088656569,0.000619334934844,0.000617765800789,0.000616180747242,0.000614574766101,0.000612944076232,0.000611294307333,0.000609625808784,0.000607938869551,0.000606226829998,0.000604489372124,0.000602726885086,0.00060094195388,0.000599140352067,0.000597319226574,0.00059548081776,0.00059361721887,0.000591726782838,0.000589810363524,0.000587870134553,0.00058591487248,0.000583941239446,0.000581947099415,0.000579928294879,0.000577886442882,0.00057582194605,0.000573739752064,0.000571645939243,0.000569536335004,0.000567411182795,0.000565264822645,0.000563095603169,0.000560909496585,0.000558709361583,0.000556495871949,0.000554269268644,0.000552032517717,0.000549775025293,0.000547500790856,0.000545208928051,0.000542901220066,0.000540584315223,0.000538255842994,0.000535910013593,0.00053354406026,0.000531160512625,0.000528755412362,0.000526329811805,0.000523888074774,0.00052143174779,0.000518962021968,0.000516473295237,0.000513959921494,0.000511421737157,0.000508865160077,0.000506287534471,0.000503690358185,0.000501075007421,0.000498438798294,0.000495785204546,0.00049311011631,0.00049041461085,0.000487708554762,0.000484996832304,0.000482278787207,0.000479556854641,0.00047683318838,0.000474107471663,0.000471379498177,0.00046864687394,0.000465910719633,0.000463173963961,0.000460434071311,0.000457685740985,0.000454926061419,0.000452150049609,0.000449350088078,0.000446530062422,0.000443690540867,0.000440834914896,0.000437962972314,0.000435074691255,0.000432166686124,0.000429244461964,0.000426307359336,0.000423356946524,0.000420401478301,0.000417441797927,0.00041447864503,0.000411509861508,0.000408528223052,0.000405531944616,0.000402520395128,0.0003994911287,0.000396440354892,0.000393373183879,0.000390287176583,0.000387177447434,0.000384044316388,0.000380883531244,0.000377700055838,0.000374495516156,0.000371273050608,0.000368033331193,0.000364777608307,0.000361506529112,0.000358217626828,0.00035491252726,0.000351592915135,0.000348261350488,0.000344915083944,0.000341553661307,0.00033818073673,0.000334794174614,0.000331398948295,0.000327992906734,0.000324575288641,0.000321147360891,0.000317703278726,0.000314240465152,0.000310759673692,0.000307264683919,0.000303755957357,0.00030023629192,0.00029670810894,0.000293165696043,0.000289615518945,0.000286058661204,0.00028250230266,0.000278948238888,0.000275404282289,0.000271870459519,0.00026834268757,0.000264811640541,0.000261275831066,0.000257738040665,0.000254196346875,0.000250650776054,0.000247095759463,0.000243530639641,0.00023995980089,0.000236381850204,0.000232797325188,0.000229212454081,0.000225633068755,0.000222057202685,0.000218485544485,0.000214917616722,0.000211356980791,0.000207804746074,0.000204250218265,0.000200693081464,0.000197128982256,0.000193558769608,0.000189980155534,0.00018639680752,0.000182810340872,0.000179222082548,0.000175628222747,0.00017202543511,0.000168423186712,0.000164819526771,0.000161216896094,0.000157618138126,0.000154023648286,0.000150434013465,0.000146848547194,0.000143264504407,0.000139685881753,0.000136120148384,0.000132564348913,0.000129014967077,0.000125471896251,0.000121938796904,0.000118413402044,0.000114894071165,0.000111376136495,0.000107856079906,0.000104335424331,0.000100810304174,9.72809635982e-05,9.37523333814e-05,9.02288372632e-05,8.67173464043e-05,8.32086192078e-05,7.9703388313e-05,7.62054920977e-05,7.27244222846e-05,6.92623061797e-05,6.58226658514e-05,6.23978824303e-05,5.8987523467e-05,5.55913065387e-05,5.21992663832e-05,4.88167481364e-05,4.54472837657e-05,4.20918780392e-05,3.87447707607e-05,3.54041602542e-05,3.20645246268e-05,2.87286605985e-05,2.54005473035e-05,2.20787522305e-05,1.87639243658e-05,1.54556337766e-05,1.21533542159e-05,8.85735160778e-06,5.56889822084e-06,2.28266811101e-06,-9.9948227566e-07,-4.27474302888e-06,-7.54461534264e-06,-1.08093524202e-05,-1.40641618144e-05,-1.73111165375e-05,-2.05484139018e-05,-2.37758907026e-05,-2.69925637198e-05,-3.01940363191e-05,-3.33736425678e-05,-3.65309419754e-05,-3.96663527252e-05,-4.27823226024e-05,-4.58806426345e-05,-4.89593433088e-05,-5.20160481558e-05,-5.50518788064e-05,-5.80743564803e-05,-6.1085219485e-05,-6.408694948e-05,-6.70828672576e-05,-7.00714333857e-05,-7.3047658208e-05,-7.60134168703e-05,-7.89726445662e-05,-8.19288227086e-05,-8.48851546049e-05,-8.78324776465e-05,-9.07618472069e-05,-9.36782830537e-05,-9.65804510143e-05,-9.94689293501e-05,-0.000102345468324,-0.000105213884888,-0.000108070495662,-0.000110908926915,-0.00011373421827,-0.000116543894891,-0.00011934607567,-0.000122138947317,-0.000124917761814,-0.000127688558417,-0.000130447614119,-0.000133192075066,-0.000135918479552,-0.000138634304215,-0.000141331119417,-0.000144008328439,-0.000146669514018,-0.000149317532448,-0.000151958971108,-0.000154584399663,-0.00015719452431,-0.000159793574169,-0.000162384462289,-0.000164963365228,-0.000167531541359,-0.000170097807167,-0.000172656947386,-0.000175204598745,-0.000177737724762,-0.00018025803813,-0.000182774975037,-0.000185282421962,-0.000187772518932,-0.000190251082582,-0.000192720580324,-0.000195180033282,-0.000197629245003,-0.000200066201211,-0.000202491895837,-0.000204906277928,-0.00020730375402,-0.000209685978557,-0.000212059662221,-0.000214424681397,-0.000216777177232,-0.000219114818485,-0.000221429746905,-0.000223727038342,-0.000226013031082,-0.000228284860064,-0.000230538274668,-0.000232777473624,-0.000234995997462,-0.000237194385299,-0.000239377778723,-0.000241546526053,-0.000243710802915,-0.00024586704678,-0.000248007261129,-0.000250135407922,-0.000252258666166,-0.000254374611804,-0.000256487113867,-0.000258594042739,-0.000260684323446,-0.000262754699363,-0.000264800220345,-0.000266818585867,-0.000268811505815,-0.000270780257714,-0.000272720344978,-0.00027463058171,-0.000276513305822,-0.000278371100786,-0.000280210297641,-0.000282036115005,-0.000283854958767,-0.000285671118393,-0.000287483596253,-0.000289292492702,-0.000291100314241,-0.000292904511004,-0.000294703312596,-0.000296495260154,-0.000298277633525,-0.000300049177437,-0.000301804846068,-0.000303543155876,-0.000305260894786,-0.000306957945429,-0.000308634360758,-0.000310287556548,-0.000311918988305,-0.000313527066812,-0.000315112076096,-0.000316675553014,-0.000318215681246,-0.00031973343598,-0.000321232921111,-0.000322715273564,-0.000324177918219,-0.000325624873533,-0.000327052935444,-0.000328462548283,-0.000329858356361,-0.000331237443695,-0.000332599877956,-0.000333948501853,-0.000335283977821,-0.000336595687563,-0.000337888389994,-0.000339161156713,-0.000340416065421,-0.000341658529713,-0.000342881932314,-0.00034408122338,-0.00034526215251,-0.00034642419688,-0.000347566925426,-0.000348694776996,-0.000349812604919,-0.000350919281968,-0.000352018125059,-0.000353099052502,-0.000354162522964,-0.000355217571384,-0.000356263986644,-0.000357293861775,-0.000358297643274,-0.000359282187832,-0.00036024165512,-0.000361175094195,-0.000362082451429,-0.000362962351017,-0.000363819819466,-0.000364653621251,-0.000365463649669,-0.000366248600966,-0.000367023423505,-0.000367790000609,-0.000368536848886,-0.000369271345589,-0.000369988632141,-0.000370690102364,-0.00037137767635,-0.000372049764967,-0.000372702433088,-0.00037333826996,-0.000373952259526,-0.000374538023046,-0.0003751073182,-0.00037566034589,-0.000376196748164,-0.000376716196459,-0.000377180869607,-0.000377549552575,-0.000377823382257,-0.000378006030375,-0.000378089902013)
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(140)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('A549-EtOH-Sin3a.pooled.sorted.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) : 140',bty='n')
dev.off()