# R script for Peak Model
#  -- generated by MACS
p <- c(0.0427490079426,0.0498879268289,0.0568578349647,0.064031270131,0.0710904445083,0.0710523575786,0.0710178412985,0.0708428794652,0.0708547816307,0.0708643033632,0.070984515235,0.0710821129924,0.071195183565,0.0712380313609,0.0712475530933,0.0712094661636,0.0712344607112,0.0711856618325,0.0713249171693,0.0713713356148,0.0714046616783,0.0712320802781,0.071208275947,0.0709666619867,0.0710130804323,0.0710237923813,0.0709535696046,0.0710928249414,0.0709559500378,0.0708178849176,0.0706572056829,0.0705072383972,0.0705536568428,0.0704096406398,0.0703489395956,0.070334656997,0.070246580972,0.0701216082339,0.0701477929981,0.0701180375843,0.070100184336,0.0702215864244,0.0702477711886,0.070470341684,0.0703525102453,0.0702001625265,0.0702180157747,0.070078760438,0.0701025647691,0.0701216082339,0.0701751679788,0.0700620974063,0.0699871137634,0.0699930648462,0.0701727875457,0.0703084722328,0.0703108526659,0.0704501080026,0.0704608199516,0.0704429667033,0.0703751243598,0.0704977166648,0.0705465155434,0.0704834340661,0.0704405862702,0.0704608199516,0.0704382058371,0.0705536568428,0.0705143796965,0.0705298525117,0.0706155481035,0.0706453035174,0.070648874167,0.0706524448167,0.0706655371988,0.0705881731228,0.0706500643836,0.0705274720786,0.0705096188303,0.070526281862,0.0704989068813,0.0704846242827,0.0704048797736,0.0704441569199,0.0703917873915,0.0703513200287,0.0702596733541,0.0701608853802,0.0701549342974,0.0700513854573,0.0699228420695,0.0698419073439,0.0697597824018,0.0698799942736,0.069820483446,0.0699097496875,0.0698954670888,0.0698942768723,0.0699930648462,0.0700609071897,0.0701025647691,0.0702049233927,0.0702275375072,0.0700716191387,0.0701954016602,0.0700799506546,0.0700371028587,0.0700609071897,0.0700573365401,0.0700073474448,0.070054956107,0.0698990377385,0.0699133203371,0.0699525974834,0.0697931084652,0.0697395487203,0.0699299833689,0.0700240104766,0.0700775702215,0.0700751897884,0.0699752115979,0.0700418637249,0.0701311299664,0.0699692605151,0.0699121301206,0.0699549779165,0.0698395269108,0.0698311953949,0.0696824183258,0.0696693259437,0.0697574019686,0.0696728965934,0.0697562117521,0.0698597605922,0.06998830398,0.0702394396727,0.0702858581183,0.0701858799278,0.0700347224256,0.070054956107,0.0701049452022,0.0702513418382,0.0700478148076,0.0702334885899,0.0702084940423,0.0700299615593,0.0701537440809,0.0703310863473,0.070625069836,0.0705298525117,0.0704417764868,0.0704108308564,0.0704762927668,0.0705143796965,0.0706310209187,0.0706322111353,0.0705322329448,0.0704322547543,0.0703406080797,0.0704096406398,0.0705548470593,0.0704858144992,0.0705441351103,0.070414401506,0.0704084504233,0.0704298743212,0.0706048361546,0.0706822002305,0.0706369720015,0.0708345479493,0.0707690860389,0.0708178849176,0.0707750371217,0.0706964828292,0.0706512546001,0.0706429230843,0.0705060481806,0.0704108308564,0.0705988850718,0.070603645938,0.0707274284595,0.0707702762555,0.0707952708031,0.0708440696818,0.0709892761012,0.0711975639981,0.0711785205332,0.0711499553359,0.0711713792339,0.0712237487622,0.0712356509278,0.0712570748257,0.0712987324051,0.0714046616783,0.0712273194119,0.0711594770684,0.0713796671307,0.0716236615241,0.0716438952055,0.0716486560717,0.0716867430014,0.0717962429243,0.0718640852679,0.0719212156624,0.0721080796613,0.0722747099787,0.0722390034821,0.072279470845,0.0722425741318,0.0724675250604,0.0725008511239,0.0725627423846,0.0726579597089,0.0727805520139,0.0729578942803,0.0729281388665,0.0730293072735,0.0731911767247,0.0730888181012,0.0729317095161,0.0731173832984,0.0731602310944,0.0731887962916,0.0732280734379,0.0731221441646,0.0731721332599,0.0731911767247,0.073163801744,0.073307817947,0.0735779971045,0.0736256057667,0.0736506003143,0.0736732144288,0.0737327252565,0.0738517469118,0.073867219727,0.0739100675229,0.0739362522871,0.0742147629605,0.0742945074696,0.0742278553426,0.0744647084367,0.0747646430081,0.0747217952122,0.0747491701929,0.0748800940138,0.0751145666748,0.0752490611453,0.0751026645092,0.0750098276181,0.0753061915398,0.075399028431,0.0753442784695,0.0755835119967,0.0757775172949,0.0759655715103,0.0759465280455,0.0758382183391,0.0760715007836,0.0763404897246,0.0762226582858,0.0761202996622,0.0762536039162,0.0763012125783,0.0764702233289,0.0766808916588,0.0767249296713,0.0770867555035,0.0772629075534,0.0772617173368,0.0775604616917,0.0780555917778,0.0782543579422,0.0783995643617,0.0785888087937,0.078529297966,0.0787732923594,0.0789506346258,0.0791708246882,0.0793148408911,0.0794707592596,0.0793767321519,0.0796004928639,0.0798635307222,0.0799289926326,0.0800527751541,0.0801813185419,0.0803312858276,0.0804645900816,0.0808276061303,0.0809406767029,0.0811168287527,0.0810192309954,0.0810739809568,0.0811822906632,0.0813013123185,0.081513170865,0.081760735908,0.08198449662,0.0821761214851,0.0825153332028,0.0830687839,0.0834901205599,0.0838995550542,0.0844399133694,0.0853266247015,0.0858979286471,0.0863549718035,0.0869774550609,0.0874368786504,0.087907014189,0.0881605303148,0.0887163614452,0.0891412687547,0.0894578663578,0.0895316597841,0.0895268989179,0.0896875781526,0.0898208824066,0.0899089584315,0.0899030073487,0.0902410288498,0.0905826210006,0.0908301860437,0.0908789849224,0.0909920554949,0.09142886497,0.091687141962,0.0918323483815,0.0921144297046,0.0925167228996,0.0926512173702,0.0925310054983,0.0927976140062,0.0931118311763,0.0933451136207,0.0934177168304,0.0937128905356,0.0941032815651,0.0941532706603,0.0944044063531,0.0945162867091,0.094804319115,0.0948638299426,0.0951566232147,0.095318492666,0.0956612750333,0.095755302141,0.0958874161784,0.0962718561251,0.0962528126602,0.0965075190026,0.0967110460332,0.0968883882997,0.0970431164516,0.0971478555083,0.0974132737997,0.0975680019516,0.0975418171874,0.0976703605752,0.0980500396556,0.0983535448767,0.098571354506,0.098762979371,0.0988796205932,0.0991533704005,0.0992640605399,0.0994759190864,0.0996949189322,0.0997615710592,0.100015087185,0.0999841415546,0.100128157758,0.100225755515,0.10034477717,0.100568537882,0.100681608455,0.10084228769,0.101177928758,0.101180309191,0.10147072203,0.101723047939,0.102191993261,0.102450270253,0.102645465768,0.103101318708,0.103408394578,0.103702378067,0.103932089862,0.104531959005,0.104643839361,0.104799757729,0.104837844659,0.105084219485,0.105434143152,0.105416289904,0.105494844196,0.105656713647,0.105949506919,0.106157794816,0.106247061058,0.106738620494,0.107009989868,0.10740990263,0.107875277303,0.108296613962,0.108721521272,0.109107151435,0.109161901397,0.109247596988,0.109445172936,0.109577286974,0.10989983566,0.110020047532,0.109928400857,0.110153351785,0.110267612575,0.110496134153,0.110665144903,0.111041253334,0.111241209715,0.1114054596,0.111722057203,0.111973192895,0.112269556817,0.112364774141,0.112850382495,0.113074143207,0.113502621166,0.113650208019,0.113983468654,0.114367908601,0.114636897542,0.11493445168,0.115266522098,0.115570027319,0.115605733816,0.115761652184,0.115825923878,0.11601873896,0.11633295613,0.116484113632,0.116567428791,0.116662646115,0.116793569936,0.11703042303,0.117361303232,0.117529123766,0.117850482235,0.118199215685,0.118203976552,0.11850510134,0.118547949135,0.118896682586,0.119270410583,0.119439421334,0.119448943066,0.119828622147,0.120117844769,0.120313040284,0.120646300919,0.120482051034,0.120805789937,0.121027170216,0.12115690382,0.121452077525,0.12171987625,0.121847229421,0.122048376019,0.122401870335,0.122588734334,0.122880337389,0.123093386152,0.123058869872,0.123269538202,0.123265967553,0.123304054482,0.123499249997,0.123248114304,0.12308743507,0.12329453275,0.123389750074,0.123239782788,0.123445690252,0.123457592418,0.123952722504,0.124215760362,0.12437882003,0.124750167594,0.125131036891,0.125238156381,0.12542859103,0.125736857117,0.125732096251,0.125943954797,0.125771373397,0.126140340529,0.126032030822,0.126110585115,0.126064166669,0.126155813344,0.126418851202,0.126600954335,0.126794959633,0.126852090027,0.127043714892,0.126838997645,0.126911600855,0.127024671428,0.12700324753,0.126931834536,0.126623568449,0.12657834022,0.126521209826,0.126277215432,0.125913009167,0.125734476684,0.125629737627,0.125590460481,0.125353607387,0.125367889986,0.125319091107,0.125136987974,0.125071526064,0.125040580433,0.125091759745,0.125004873937,0.124891803364,0.124672803518,0.124472847137,0.124033657229,0.124076505025,0.123806325868,0.123370706609,0.123155277413,0.12276964725,0.12237925622,0.122095984681,0.121654414339,0.121571099181,0.121461599258,0.120972420254,0.120626067237,0.120515377098,0.120224964259,0.119977399216,0.11972745374,0.119608432084,0.119381100723,0.119114492215,0.118695535988,0.1185741339,0.118226590666,0.117894520248,0.117612438925,0.117320835869,0.117092314291,0.116698352612,0.11668526023,0.116287727901,0.116177037761,0.115805690197,0.115805690197,0.11563548923,0.115374831805,0.115185587373,0.114916598432,0.114784484394,0.114339343403,0.1141953272,0.113831120935,0.113591887408,0.113130083385,0.112895610724,0.112802773833,0.112569491389,0.112329067645,0.112013660258,0.111873214705,0.111726818069,0.111663736592,0.111592323598,0.111487584542,0.111184079321,0.111063867449,0.11076631331,0.110673476419,0.110393775529,0.109998623634,0.109514205496,0.109263069804,0.10885006466,0.108620352865,0.108458483414,0.108150217326,0.107819337125,0.107678891571,0.107242082096,0.10691953341,0.10663983252,0.106195881746,0.105638860399,0.105035420607,0.104309388509,0.103342932668,0.102607378838,0.101477863329,0.10101486909,0.100232896814,0.0998948753132,0.0993878430615,0.098986740083,0.0984701860989,0.0981012189674,0.097846512625,0.0976168008303,0.0974799259266,0.0970621599164,0.0970264534199,0.0966658178042,0.0963789756149,0.0961754485843,0.0960718997442,0.0958731335798,0.0956362804857,0.0954351338882,0.095297068768,0.0951542427816,0.0947876560832,0.0943103792454,0.0938699991207,0.0936700427397,0.0934439015946,0.0931356355073,0.0931868148191,0.0929594834574,0.0928654563497,0.0926714510516,0.0925060109507,0.0925405272307,0.092446500123,0.0922810600221,0.0921037177557,0.0921013373226,0.0916538158985,0.0912336694552,0.0909420663997,0.090725446987,0.0909099305528,0.090602854682,0.0904695504281,0.0902338875505,0.0900160779213,0.0897042411843,0.0895066652365,0.0895875999621,0.0895983119111,0.0894090674791,0.0890305786152,0.0888794211129,0.0884949811663,0.0882747911039,0.0881367259837,0.088143867283,0.0879117750552,0.0876130307003,0.0871595581935,0.086934607265,0.0867037052536,0.0865692107831,0.0866430042094,0.0864847054078,0.0864954173568,0.086052656799,0.0859003090802,0.0857217765972,0.0855956136426,0.085426602892,0.0850612064102,0.0847743642208,0.0845053752798,0.0842590004533,0.083961446315,0.0839221691687,0.0837531584182,0.0838828920225,0.0838126692458,0.0837412562526,0.0836841258581,0.0834508434136,0.0832758815803,0.0830783056325,0.0827105287175,0.082541517967,0.0826057896608,0.0823368007198,0.0821201813071,0.0818440510668,0.0816274316541,0.0816345729534,0.0814643719863,0.0814596111201,0.0814179535407,0.0812548938729,0.08111087767,0.0807835681178,0.080540763941,0.0802539217516,0.0801956011405,0.0799182806836,0.0799230415498,0.079648101526,0.0794398136292,0.0793065093753,0.0788958846644,0.0790006237211,0.0790113356701,0.0790601345487,0.0787828140918,0.0786019011757,0.0783745698141,0.0782531677256,0.0781650917007,0.0781615210511,0.0779651353198,0.0775711736406,0.0773140868651,0.0771415054649,0.076997489262,0.0769724947144,0.076752304652,0.0765368754559,0.0763488212405,0.0761095877133,0.0760203214718,0.0760845931657,0.0758322672564,0.0755966043788,0.075601365245,0.0753002404571,0.0753228545716,0.0753799849661,0.0751169471079,0.0747884473392,0.0747444093267,0.0745575453279,0.0745265996975,0.0743635400297,0.0741612032156,0.0742171433936,0.0739755294333,0.0737303448234,0.0737672415365,0.0737969969503,0.0738803121091,0.0737315350399,0.0736553611805,0.0736089427349,0.0734899210796,0.0732756821,0.0730995300501,0.0731161930819,0.0730400192225,0.0730185953245,0.072660340142,0.072604399964,0.0725341771873,0.0723604055706,0.0722913730105,0.0721890143869,0.0722770904118,0.0720973677123,0.0718914602486,0.0717117375491,0.0718938406817,0.0716700799697,0.0716308028234,0.0717926722747,0.071733161447,0.071610569142,0.0713737160479,0.0713153954368,0.0713011128382,0.0711511455525,0.0709440478722,0.0709880858847,0.0708083631852,0.0704893851489,0.0703644124108,0.0704881949323,0.0704286841047,0.0703548906784,0.070470341684,0.0705286622951,0.0703870265253,0.0702430103224,0.070235869023,0.0704346351874,0.0705203307793,0.0705155699131,0.0706833904471,0.0706155481035,0.070379885226,0.0703417982963,0.0702727657362,0.0704739123337,0.0702394396727,0.0700906626036,0.0698907062226,0.0698252443122,0.0696479020457,0.0696776574596,0.0697300269879,0.0696669455106,0.0697419291535,0.0696026738167,0.0698704725412,0.0699978257124,0.0701942114437,0.070110896285,0.0702929994176,0.0702406298893,0.0702275375072,0.0702073038258,0.0701120865015,0.069966880082,0.0699621192158,0.0697657334845,0.0695824401353,0.0694657989131,0.0691396795775,0.0689992340242,0.0688802123689,0.0689266308145,0.068927821031,0.0689087775662,0.0687885656943,0.0687933265605,0.0687647613632,0.0688421254392,0.0687957069936,0.0688385547895,0.0688921145344,0.0687957069936,0.0687897559109,0.0688659297703,0.0689254405979,0.0690135166229,0.0689813807759,0.0688921145344,0.069095641565,0.0689647177442,0.0689171090821,0.0689040167,0.0690075655401,0.0688944949676,0.0686969190197,0.0685302887023,0.0687183429177,0.0688921145344,0.0688040385095,0.0689873318587,0.0690349405208,0.0689171090821,0.0688599786875,0.0690099459732,0.0690920709154,0.0691658643417,0.0690349405208,0.0689206797317,0.0688909243179,0.0688135602419,0.0686838266376,0.0688254624075,0.06865883209,0.0687088211852,0.0687076309687,0.0686409788417,0.0686624027397,0.0686528810072,0.0685540930333,0.0686207451603,0.0686647831728,0.0686885875038,0.0687945167771,0.0686981092363,0.0683850822828,0.0685707560651,0.0685338593519,0.0685350495685,0.0685112452374,0.0684517344097,0.0684553050594,0.0684160279131,0.0684469735435,0.0684255496456,0.0687564298474,0.0685624245492,0.0686088429948,0.0685969408292,0.0686826364211,0.0686873972873,0.0686255060265,0.0686505005741,0.068592179963,0.0685505223837,0.068602891912,0.0685600441161,0.0686290766762,0.0686659733893,0.0688897341013,0.0689313916807,0.0690432720367,0.0691158752465,0.0690277992215,0.0690765981002,0.0690194677056,0.0690361307374,0.0688754515027,0.0688278428406,0.0686635929562,0.0687885656943,0.0687588102805,0.0685767071478,0.0687469081149,0.0685969408292,0.0683862724993,0.0684160279131,0.0684184083463,0.0684207887794,0.0683374736206,0.0682803432261,0.068301767124,0.0683184301558,0.0682577291116,0.0683148595061,0.0684041257476,0.0683981746649,0.0685457615175,0.0684374518111,0.0684148376966,0.068435071378,0.0684279300787,0.0686659733893,0.0686576418735,0.068602891912,0.068815940675,0.0688814025855,0.0689206797317,0.0690944513485,0.0692325164687,0.0691420600106,0.0691849078065,0.0690123264063,0.0688647395537,0.0690004242408,0.0687397668156,0.0687933265605,0.0687266744335,0.0686659733893,0.0686814462045,0.0687540494143,0.0687231037839,0.0685648049823,0.0688528373882,0.068927821031,0.0691920491059,0.0691813371569,0.0691349187113,0.0691646741251,0.0691706252079,0.0691432502272,0.0691206361127,0.0693420163916,0.0693693913723,0.069396766353,0.0694515163145,0.0695836303519,0.0696062444664,0.0697014617906,0.0697181248224,0.0698216736625,0.0700073474448,0.0700585267566,0.0699478366172,0.0699049888212,0.0697931084652,0.069732407421,0.0697907280321,0.0698311953949,0.069876423624,0.0698633312419,0.0698395269108,0.0698323856115,0.0697704943507,0.0699264127192,0.069966880082,0.0700382930752,0.0701156571512,0.070123988667,0.070012108311,0.070012108311,0.0699359344516,0.0699942550627,0.0699037986047,0.0697276465548,0.0697443095866,0.069609815116,0.0695514945049,0.0695098369256,0.0695276901739,0.0693991467861,0.0693812935378,0.0693491576909,0.069620527065,0.0697002715741,0.0697585921852,0.0698597605922,0.0698026301977,0.0698228638791,0.0699371246682,0.0700478148076,0.070068048489,0.0700597169732,0.0700513854573,0.0700037767952,0.0699609289993,0.0700394832918,0.0703513200287,0.0703953580412,0.0704560590854,0.0704370156205,0.0706095970208,0.0707667056058,0.0707548034403,0.0708036023189,0.070816694701,0.070805982752,0.0705179503462,0.0705286622951,0.0704084504233,0.0704965264482,0.0704393960537,0.0705048579641,0.0704643906013,0.0704822438496,0.0706191187532,0.0705441351103,0.0705905535559,0.0706119774539,0.0706643469822,0.0707060045616,0.0707357599754,0.0705703198745,0.0704751025502,0.0704786731999,0.0703870265253,0.0703775047929,0.0705060481806,0.0705500861931,0.0706084068042,0.0705227112124,0.070414401506,0.0703929776081,0.0705941242056,0.0707179067271,0.0706738687146,0.0707667056058,0.0707429012747,0.0708404990321,0.0708202653507,0.0708762055287,0.0710023684833,0.0710987760241,0.0709714228529,0.0710071293495,0.071061879311,0.0710285532475,0.0709749935026,0.0708738250956,0.0709190533246,0.0709773739357,0.070939287006,0.0709309554901,0.0708654935797,0.0707417110582,0.0706667274153,0.0705536568428,0.0706726784981,0.0706179285366,0.0705346133779,0.070614357887,0.0708047925355,0.0708357381659,0.070995227184,0.0710106999992,0.0710226021647,0.071208275947,0.0711297216545,0.071117819489,0.0713487215003,0.0713915692962,0.0712868302396,0.0713094443541,0.0714118029776,0.0714284660094,0.071320156303,0.0712987324051,0.0713987105956,0.0714225149266,0.0713546725831,0.0711904226987,0.0712689769913,0.0713225367362,0.0711594770684,0.0711963737815,0.0713832377804,0.0712927813223,0.0712784987237,0.0712142270298,0.0711130586228,0.0711916129153,0.071117819489,0.0710130804323,0.071083303209,0.0709904663178,0.0709702326364,0.0710642597441,0.0710749716931,0.0712166074629,0.071264216125,0.0711594770684,0.0712249389788,0.0711904226987,0.0712416020105,0.0713475312838,0.0713332486851,0.071320156303,0.0713737160479,0.0713451508507,0.0712987324051,0.0713915692962,0.0713820475638,0.0713653845321,0.0711225803552,0.0710714010434,0.0710868738586,0.0709214337577,0.0707512327906,0.0706369720015,0.070603645938,0.0706095970208,0.0704489177861,0.0703953580412,0.0706345915684,0.0707345697589,0.0708857272611,0.0711332923042,0.0710499771455,0.0711332923042,0.0711368629538,0.0709690424198,0.0708464501149,0.0709107218087,0.0708714446625,0.0708559718473,0.0708702544459,0.0708785859618,0.0709357163564,0.0709571402543,0.0708333577328,0.0710202217316,0.0711499553359,0.0712023248643,0.0711094879731,0.071005939133,0.0709261946239,0.0708155044845,0.0707738469051,0.0707762273382,0.0710844934255,0.0710214119482,0.0711547162021,0.0711761401001,0.071218987896,0.0711725694504,0.0710226021647,0.0708738250956,0.0707226675933,0.0705596079255,0.0703334667804,0.0703096624493,0.0700954234698,0.069956168133,0.070134700616,0.0701537440809,0.0701144669346,0.0701715973292,0.0704120210729,0.0705619883586,0.0705834122566,0.0706405426511,0.0706429230843,0.070694102396,0.0704953362317,0.0706583958994,0.063695629063,0.0566995361631,0.0496094161555,0.0425050135492,0.0)
m <- c(0.0424781701556,0.0494900061514,0.0563997568423,0.0634887503359,0.0704780326016,0.0704364862566,0.0704602270251,0.0705551900994,0.070495838178,0.0704079973343,0.0704661622173,0.0705551900994,0.0708638200907,0.0709706535493,0.0711439611598,0.0712745353869,0.0713410095389,0.0712068741965,0.0712757224254,0.0714146059215,0.071413418883,0.0714371596516,0.0715807913014,0.0715356838411,0.0714680226507,0.0714514041127,0.0713172687703,0.0712816576175,0.0712769094638,0.0712401112725,0.0712472335031,0.0713042113476,0.0709528479729,0.0708531367449,0.0709706535493,0.0709694665109,0.0712412983109,0.0713220169241,0.0713101465398,0.0713671243843,0.0712294279267,0.0712472335031,0.0713148946935,0.0714407207669,0.0713196428472,0.0713291391546,0.0710988536995,0.0710216962017,0.0710644295851,0.0710810481231,0.0712792835406,0.0712318020035,0.0712745353869,0.0712875928096,0.0713564410385,0.0716057191084,0.0717980193338,0.0719737010212,0.0720401751732,0.0720116862509,0.0721849938614,0.0720330529426,0.072275208782,0.0722657124745,0.0722431587444,0.0719962547513,0.0718324434482,0.0717754656037,0.0719096009461,0.0720864696719,0.0718217601024,0.071967765829,0.0718609323705,0.0718787379469,0.0718526231015,0.0718502490246,0.0719665787906,0.0719642047138,0.0718075156412,0.0717529118735,0.0719642047138,0.0719618306369,0.0719416509836,0.0720698511339,0.0721660012466,0.0722229790911,0.0723072588195,0.0723060717811,0.0723499922029,0.0724034089322,0.0722372235523,0.0722763958204,0.0723215032807,0.0723013236274,0.0723440570108,0.0723191292038,0.0723298125497,0.0724366460082,0.0724556386231,0.0723654237025,0.0723927255864,0.0724022218938,0.0722490939365,0.0722514680134,0.0722657124745,0.0723298125497,0.0723404958955,0.0722621513592,0.072117332671,0.0721434475164,0.0720211825583,0.0719238454072,0.0721185197094,0.07195945656,0.0718704286779,0.0718158249102,0.0716116543006,0.0715285616106,0.0716508265687,0.0717113655285,0.0718336304866,0.0720057510587,0.0717707174499,0.0718336304866,0.0719167231766,0.071992693636,0.0720639159417,0.0721933031304,0.0720698511339,0.0719012916771,0.0718680546011,0.0718003934106,0.0719606435985,0.0720484844422,0.0719737010212,0.0720484844422,0.072100714133,0.0720805344797,0.0720484844422,0.0722039864763,0.0721351382474,0.072225353168,0.0721363252858,0.071992693636,0.0720401751732,0.0718941694465,0.0718977305618,0.0719048527923,0.0719642047138,0.0719487732142,0.0721517567854,0.072109023402,0.0720461103653,0.0720461103653,0.0721944901688,0.072183806823,0.0722051735147,0.0720128732893,0.072142260478,0.0721268289784,0.0719238454072,0.0718514360631,0.0717802137574,0.0719689528675,0.0717481637198,0.0717410414892,0.0716947469905,0.0719950677129,0.0719001046386,0.0717351062971,0.0719107879845,0.0719202842919,0.072092404864,0.0718383786404,0.0719084139076,0.0718217601024,0.0718502490246,0.071671006222,0.0717018692211,0.0718039545259,0.0718181989871,0.0718538101399,0.0718668675626,0.0717398544508,0.0715985968778,0.0717434155661,0.0716638839914,0.0716270858001,0.0715475542254,0.0715107560342,0.071413418883,0.0713386354621,0.0712780965022,0.0715119430726,0.0715178782647,0.0713789947686,0.0714169799983,0.0714775189582,0.0713018372708,0.0712686001948,0.0713327002699,0.0713421965773,0.0713528799232,0.0713647503075,0.0713789947686,0.0714205411136,0.0714157929599,0.0714229151905,0.0716579487993,0.0717398544508,0.0717327322202,0.0717267970281,0.0716567617608,0.0716472654534,0.0716674451067,0.0716116543006,0.0715416190333,0.0715060078804,0.0714585263433,0.0714074836909,0.0712721613101,0.0711795723127,0.0710371277013,0.0709943943179,0.0709029923589,0.0709540350113,0.070950473896,0.0709041793973,0.0709991424716,0.0708745034366,0.0707831014776,0.0707249365946,0.070925546089,0.0708377052453,0.0707866625929,0.0706050457134,0.0706287864819,0.0705445067535,0.0704436084871,0.0706525272505,0.0706976347108,0.0707902237082,0.0706050457134,0.0706525272505,0.0706525272505,0.070883999744,0.0708282089379,0.0708804386287,0.0707557995938,0.0705634993684,0.0705492549073,0.0704079973343,0.0705433197151,0.0704637881404,0.0705694345605,0.0703890047194,0.0704756585247,0.0704744714863,0.0705326363693,0.0705777438295,0.0705718086374,0.0706430309431,0.0705836790217,0.0705195789465,0.0703854436042,0.0705112696776,0.0703640769124,0.070371199143,0.0701895822635,0.0703415231823,0.0701741507639,0.0700732524975,0.0699509875394,0.0698489022346,0.0698940096949,0.0696898390852,0.0697396946992,0.0696518538555,0.0696174297411,0.0693432238641,0.069453618438,0.0694476832458,0.0694108850545,0.0693812090938,0.069420381362,0.0693800220554,0.0693907054013,0.0694358128615,0.0696542279323,0.0696162427026,0.0695165314747,0.069420381362,0.0694524313995,0.0696233649332,0.0694797332834,0.0696530408939,0.0695557037428,0.0694334387847,0.0691722903305,0.069279123789,0.069345597941,0.0695604518965,0.0696791557393,0.0695782574729,0.0694832943987,0.0693942665166,0.0694180072851,0.0694571795532,0.0695082222057,0.0695936889725,0.0696126815874,0.0696660983166,0.0696067463952,0.0695450203969,0.0696482927402,0.0697681836215,0.0697195150459,0.0698216003507,0.069908254156,0.0698797652337,0.0697539391603,0.0696364223559,0.0695094092441,0.0696352353175,0.0694844814371,0.0693800220554,0.0693182960571,0.0693016775191,0.0693562812868,0.0692257070597,0.0693610294406,0.0692090885217,0.0693087997497,0.0692909941733,0.0693503460947,0.0691912829453,0.0693586553637,0.0692838719427,0.069337288672,0.0692340163287,0.0692945552886,0.0694251295157,0.0694073239393,0.0693266053261,0.0694393739768,0.0696660983166,0.0694809203218,0.0693361016336,0.0692173977907,0.069337288672,0.0692850589811,0.069403762824,0.069378835017,0.0692933682501,0.0692981164039,0.0692886200964,0.0692898071349,0.0693491590563,0.0693693387096,0.0693859572476,0.069395453555,0.0693028645576,0.0693052386344,0.0693610294406,0.0693717127864,0.0692696274816,0.069229268175,0.0694476832458,0.0694096980161,0.0693064256729,0.0692399515209,0.0692589441357,0.0695189055515,0.0696067463952,0.0697100187385,0.0698073558896,0.0699260597324,0.069766996583,0.0698132910817,0.0700934321508,0.0701551581491,0.0701812729945,0.0700423894984,0.0701694026102,0.0702109489552,0.0701599063028,0.0702869194146,0.0705029604086,0.0704483566409,0.0702976027605,0.0703403361439,0.0703747602583,0.070437673295,0.0704186806801,0.0702560564155,0.0704412344103,0.0704899029858,0.0703427102207,0.0705646864068,0.0706988217492,0.0707593607091,0.0707652959012,0.0707914107466,0.0709148627432,0.0710181350864,0.0710359406628,0.0711154722375,0.0712899668865,0.0711225944681,0.0711202203913,0.071363563269,0.0713778077302,0.07143834669,0.0714039225756,0.0714561522665,0.071546367187,0.0715807913014,0.0716270858001,0.0717802137574,0.0718312564098,0.0715012597267,0.0716508265687,0.0716638839914,0.071720861836,0.0720378010963,0.072225353168,0.072266899513,0.07220873463,0.0724568256615,0.0727072907698,0.0730479707988,0.0730966393743,0.0732070339481,0.0732818173691,0.073226026563,0.0732129691403,0.0731524301804,0.0732236524861,0.0733530396748,0.0733518526364,0.0734646212871,0.0735904473605,0.0736272455518,0.0737578197789,0.0738409124688,0.0738017402007,0.0740272775021,0.0741887147283,0.0739821700418,0.0739916663492,0.0740510182706,0.0740605145781,0.0741756573056,0.0744605465284,0.0744724169127,0.0744273094524,0.0746041781782,0.0748629525556,0.0751454677015,0.075443414347,0.0755122625758,0.0756796349942,0.0758968630266,0.0759419704869,0.0760856021367,0.0765259933936,0.0767562788487,0.0768191918854,0.0770518514173,0.0770340458409,0.0772845109492,0.0773319924864,0.0775575297878,0.0774886815589,0.0776133205939,0.0776121335555,0.0774115240611,0.0774685019056,0.0775017389816,0.0778008726655,0.0778174912035,0.0779955469678,0.0779255117005,0.0782555083836,0.0785617642981,0.0786579144108,0.0790330185541,0.078952299941,0.0789499258641,0.078894135058,0.0790983056676,0.0794140578896,0.0797416804958,0.079778478687,0.079786787956,0.0798770028766,0.0800823605247,0.080465773937,0.0807518501982,0.0810937172656,0.0810770987276,0.0812610896839,0.0812373489154,0.0813702972193,0.081715725402,0.0818083143994,0.0817679550928,0.0818985293199,0.0820006146248,0.0819578812413,0.0822748205017,0.0822926260781,0.0826060042232,0.0829526194442,0.0828351026398,0.0832434438592,0.0835508868121,0.0837052018078,0.0839782206463,0.0840826800279,0.0843830007503,0.0846085380517,0.0846180343591,0.0845847972831,0.0849397217731,0.0851189645758,0.0853373796466,0.0856020892161,0.0857587782887,0.0859498914756,0.0860401063962,0.0863071900425,0.0864294550006,0.0867285886845,0.0868805296034,0.0870277223685,0.0870111038305,0.0871072539432,0.0874146968961,0.0875927526603,0.0875713859686,0.087722139849,0.0878277862691,0.0880165253792,0.0880592587626,0.0880699421085,0.0884213054833,0.0887596114353,0.088947163507,0.0893222676503,0.0895311864137,0.0895323734521,0.0898588090199,0.0899407146714,0.0904202781965,0.0906968581502,0.0908582953765,0.0909508843739,0.091189479098,0.0913105570177,0.0915562739723,0.0918304798492,0.0920441467663,0.0923029211437,0.0922043969541,0.0923741434494,0.0924762287542,0.092661406749,0.0926436011726,0.0930614386994,0.0932169407335,0.0936157856454,0.0937855321406,0.093819956255,0.0940953491704,0.0944384032762,0.0945855960413,0.0946817461539,0.0949891891069,0.0948146944579,0.0951162022187,0.0950722817968,0.0953049413288,0.09567411028,0.0960492144233,0.0961584219587,0.0964991019876,0.0970356433572,0.097345460387,0.0976445940709,0.097899807333,0.0982772855532,0.0984731468938,0.0985230025078,0.0986357711585,0.0988055176537,0.0989313437271,0.099008501225,0.0990963420687,0.0994429572897,0.0997005446287,0.100089893233,0.100702405062,0.101567756076,0.1020781826,0.102903174308,0.103761403092,0.104503302109,0.105108691708,0.105873144456,0.106479721093,0.106984212425,0.107529063063,0.108065604433,0.108722036683,0.109060342636,0.109265700284,0.109618250697,0.10997080111,0.110203460642,0.110603492592,0.110926367045,0.111377441648,0.111434419492,0.111602978949,0.111862940365,0.112097973973,0.112311640891,0.112619083844,0.112740161763,0.112896850836,0.113076093638,0.112958576834,0.113008432448,0.113236343826,0.113427457013,0.113661303584,0.113567527548,0.113876157539,0.114288059874,0.114419821139,0.114610934326,0.114862586473,0.115327905537,0.11539319265,0.115500026109,0.115670959643,0.116152897244,0.11620156582,0.116279910356,0.116625338539,0.116905479608,0.117174937331,0.117317381943,0.117494250668,0.117716226854,0.117957195655,0.118257516378,0.118321616453,0.11860294456,0.118687224289,0.118927006051,0.119221391582,0.119423188114,0.119926492408,0.12016627417,0.120371631819,0.120457098585,0.120904612073,0.121070797453,0.121368744098,0.121813883509,0.121817444624,0.122136757961,0.122251900689,0.12245488426,0.122748082752,0.122814556904,0.122948692246,0.123433003925,0.123786741377,0.123675159764,0.124090623214,0.124233067826,0.124256808594,0.124850327808,0.124927485306,0.125285970912,0.125526939712,0.125449782215,0.125569673096,0.125802332628,0.12591391424,0.126039740314,0.126401787034,0.126213047924,0.126591713183,0.126470635263,0.126539483492,0.126605957644,0.126715165179,0.126754337447,0.126844552368,0.126721100371,0.126638007681,0.126617828028,0.126557289068,0.126857609791,0.126778078216,0.126840991253,0.126550166838,0.126438585225,0.126180997886,0.126171501579,0.125986323584,0.125667010247,0.125378559909,0.125091296609,0.124961909421,0.124773170311,0.124612920123,0.124360080938,0.124374325399,0.124344649438,0.124003969409,0.124089436176,0.123971919371,0.123827100683,0.12353508923,0.123296494506,0.123302429698,0.123151675818,0.122794377251,0.122428769415,0.122407402723,0.122207980267,0.122158124653,0.121976507774,0.121984817043,0.121773524202,0.121491009056,0.121310579215,0.12147320348,0.121331945907,0.121311766254,0.121114717875,0.120690945156,0.120479652315,0.120425048548,0.120191201977,0.120153216748,0.119943110946,0.119446928883,0.119259376811,0.118982796857,0.118572081561,0.118499672217,0.118282444185,0.117820686236,0.117582091512,0.117123894679,0.117040801989,0.11666213673,0.116414045699,0.116076926785,0.116053186016,0.115625852182,0.115371825959,0.115192583156,0.115073879313,0.114831723474,0.11468334367,0.114652480671,0.114436439677,0.114385397025,0.114150363416,0.114050652188,0.11371709439,0.113753892581,0.113401342168,0.113169869674,0.112712859879,0.112658256112,0.112734226571,0.112389985427,0.11207779432,0.111854631096,0.111803588443,0.111278917458,0.111064063502,0.110932302237,0.110712700128,0.110278244063,0.109650300734,0.109408144895,0.109168363133,0.108813438642,0.108419341884,0.108116647085,0.107927907975,0.107618090945,0.107314209108,0.10707798846,0.106950975349,0.106624539781,0.106408498787,0.106317096828,0.105984726068,0.105594190425,0.105202467744,0.105146676938,0.104988800827,0.104624380029,0.104347800075,0.104235031425,0.103826690205,0.10351331206,0.103421910101,0.103303206258,0.103013568882,0.102609975816,0.102262173557,0.102194512366,0.102027139948,0.101736315533,0.101468044848,0.101145170396,0.100781936637,0.100665606871,0.100601506796,0.1004626233,0.100294063843,0.0998370540479,0.0995581000173,0.099421590598,0.0991628162207,0.0990464864547,0.099008501225,0.098809078769,0.0985443691995,0.0983781838196,0.098371061589,0.0981336539033,0.097941353678,0.0976647737242,0.0975531921119,0.097262367697,0.0969727303205,0.096699711482,0.0965976261772,0.0965370872173,0.0962415146487,0.0962106516496,0.0960420921927,0.0958818420049,0.0957275270092,0.0954984285926,0.0951969208318,0.0949274631086,0.0947232924989,0.0942935845879,0.0941547010918,0.0939267897136,0.093465031765,0.0930863665064,0.0929902163937,0.092860829205,0.09290237555,0.0927017660556,0.092389574949,0.092065513458,0.0919574929611,0.0918637169252,0.0919776726144,0.0919836078065,0.0916951574684,0.0915978203173,0.0913983978614,0.0911384364456,0.0910945160237,0.0908962806062,0.0905556005773,0.0902932650846,0.089939527633,0.0896855014094,0.0894730215307,0.0890528099271,0.0889020560467,0.0887014465523,0.088467599982,0.0884402980981,0.0881815237207,0.0881387903373,0.0881482866448,0.0878349084997,0.0875322137005,0.0875096599703,0.0871274335964,0.0868852777571,0.0864021531168,0.0858739210162,0.0853528111462,0.0846761992421,0.0838559556881,0.083195962322,0.0827508229114,0.082261763079,0.0817169124404,0.0814284621023,0.0809322800393,0.0805761685108,0.0803803071702,0.0802580422121,0.079994519681,0.0801630791378,0.0800514975255,0.0795802432695,0.0795541284241,0.0793440226223,0.0793285911227,0.0792799225472,0.0792431243559,0.0791054278982,0.0791351038589,0.0788430924056,0.0786294254885,0.0784679882622,0.078198530539,0.0779409432001,0.0778780301634,0.077644183593,0.0772655183344,0.0770779662627,0.0768334363465,0.0767123584268,0.0765877193919,0.076759839964,0.0764630803569,0.0763348802066,0.0762078670948,0.0760131927926,0.0759835168319,0.0758363240668,0.0759633371786,0.0758695611428,0.0757995258755,0.0755051403453,0.0754813995767,0.0755312551907,0.075318775312,0.0753638827723,0.0753425160806,0.0752285603915,0.0748878803626,0.0747027023678,0.0744795391433,0.074484287297,0.0743857631074,0.0742575629572,0.0743359074934,0.0741293628069,0.0739987885798,0.0738195457771,0.073821919854,0.0737946179701,0.0738349772767,0.0736284325902,0.0735299084006,0.0734990454015,0.073051531914,0.0729221447254,0.0727571463838,0.0726408166179,0.072621824003,0.0724686960458,0.072175497554,0.0724603867768,0.0724129052396,0.072258590244,0.0721778716308,0.0722431587444,0.072275208782,0.0722111087068,0.0718929824081,0.0717184877591,0.0717790267189,0.0714122318446,0.0713445706542,0.0712650390795,0.0715083819573,0.0715321227259,0.0713196428472,0.0712804705791,0.071355254,0.0713232039625,0.0711677019284,0.071058494393,0.0711522704288,0.0710027035869,0.070850762668,0.0706026716365,0.0706299735204,0.0704483566409,0.0705195789465,0.0705005863317,0.0706109809055,0.070570621599,0.0703830695273,0.0705255141387,0.0703581417203,0.0704068102959,0.0704424214487,0.0704637881404,0.0703581417203,0.07031303426,0.0702441860312,0.0701883952251,0.0701432877648,0.0699865986923,0.0701931433788,0.0701219210731,0.0698857004259,0.0699319949246,0.0698263485044,0.0699284338093,0.0697954855053,0.0696815298162,0.0697468169297,0.0697515650835,0.069683903893,0.0698216003507,0.0699403041936,0.0700340802294,0.069941491232,0.0697135798538,0.0698026077359,0.0698607726189,0.0698429670424,0.0697764928905,0.0698216003507,0.0696732205472,0.0698132910817,0.0697325724686,0.0697361335839,0.0698524633499,0.0696744075856,0.069742068776,0.0697812410442,0.0698216003507,0.0697883632747,0.0696613501629,0.0694405610153,0.0695402722432,0.0696720335088,0.0696471057018,0.069717140969,0.0697812410442,0.0695652000502,0.0695153444362,0.0693277923646,0.069279123789,0.0691485495619,0.0688790918387,0.0688185528788,0.0689384437601,0.0689301344911,0.068683230498,0.0688565381085,0.0688636603391,0.0687307120351,0.0689431919138,0.0689977956815,0.0689657456439,0.0690227234885,0.0689657456439,0.0691271828702,0.069237577444,0.0691022550632,0.0690239105269,0.0692114625986,0.0691176865628,0.0690820754099,0.0692470737514,0.0690167882964,0.0689420048754,0.0688292362247,0.0688256751094,0.0688482288395,0.0687936250718,0.0687900639566,0.0687010360744,0.0687354601889,0.0686476193452,0.0687022231129,0.0685906415006,0.0685289155023,0.0684470098508,0.0683342412001,0.0683662912377,0.0682321558953,0.0682107892036,0.0682143503189,0.0680932723992,0.0681003946297,0.0680920853607,0.0682262207031,0.0682107892036,0.0682677670481,0.068361543084,0.0685170451181,0.0684280172359,0.0684802469268,0.0685894544622,0.0684968654648,0.0685680877705,0.0684600672735,0.0685206062333,0.0685514692325,0.06858351927,0.0684814339652,0.0686784823443,0.0685514692325,0.0685063617722,0.0686179433845,0.0686725471522,0.0687129064587,0.0687449564963,0.0689313215295,0.0690061049505,0.0691164995243,0.0690274716422,0.0690891976405,0.0690844494868,0.0691770384842,0.0692019662912,0.0691639810615,0.0691782255226,0.0689621845287,0.0689503141444,0.0688422936474,0.0690725791025,0.0690903846789,0.0691343051008,0.0689265733758,0.0689645586055,0.0689170770684,0.0689218252221,0.0688458547627,0.0686677989985,0.0686630508447,0.0684944913879,0.0685870803853,0.0685799581548,0.0689633715671,0.068841106609,0.0688589121854,0.0690013567968,0.0692162107523,0.0691948440606,0.0692019662912,0.0693420368257,0.0693444109026,0.0694441221305,0.0691829736763,0.0692743756353,0.0693717127864,0.069412072093,0.0693907054013,0.0694809203218,0.0696126815874,0.0694749851297,0.0692482607899,0.0692245200213,0.0692530089436,0.0693586553637,0.069362216479,0.0691081902553,0.0689693067592,0.0689704937977,0.0689360696832,0.0690642698335,0.0692268940982,0.0692731885969,0.0693527201716,0.0691176865628,0.0691770384842,0.0692814978659,0.0693835831707,0.0693693387096,0.0693087997497,0.0692304552134,0.069370525748,0.0690713920641,0.0689598104518,0.0690512124108,0.0689776160282,0.0690583346414,0.0691248087933,0.0692162107523,0.0694180072851,0.0694144461698,0.0694844814371,0.0698797652337,0.0699960949997,0.0700032172303,0.0700198357682,0.0630246183105,0.0560472064291,0.049040118587,0.0419618084393,0.0)
ycorr <- c(4.64831991713e-05,4.63349831095e-05,4.58920976178e-05,4.51537318989e-05,4.41120043898e-05,4.27701327262e-05,4.11239489634e-05,3.94716176298e-05,3.78135071901e-05,3.61536734073e-05,3.44877060466e-05,3.28144623627e-05,3.11324216832e-05,2.9443581296e-05,2.77475956943e-05,2.60486954846e-05,2.4351291396e-05,2.26590341922e-05,2.09642620987e-05,1.92655737381e-05,1.7560576765e-05,1.58542457094e-05,1.41410615985e-05,1.24187577298e-05,1.06868246846e-05,8.94283312281e-06,7.18619251394e-06,5.40753192939e-06,3.61240081453e-06,1.80465304805e-06,-1.4715135281e-08,-1.84906030571e-06,-3.69862532858e-06,-5.5569675432e-06,-7.42401461165e-06,-9.30184564018e-06,-1.11912702988e-05,-1.30897043671e-05,-1.49936699303e-05,-1.69086392325e-05,-1.88356843535e-05,-2.07766457794e-05,-2.27245409104e-05,-2.4686953044e-05,-2.66627055177e-05,-2.86499010199e-05,-3.06501242833e-05,-3.26604915757e-05,-3.46873457772e-05,-3.67276197937e-05,-3.87807560376e-05,-4.08442411583e-05,-4.29198996306e-05,-4.50082694356e-05,-4.71097675662e-05,-4.92292954968e-05,-5.13577573437e-05,-5.34982127805e-05,-5.56494025094e-05,-5.78096204031e-05,-5.998277209e-05,-6.21658879329e-05,-6.43617333325e-05,-6.65715877023e-05,-6.8795247022e-05,-7.10250304085e-05,-7.32645968581e-05,-7.55177702117e-05,-7.77769166993e-05,-8.0050407856e-05,-8.23302838576e-05,-8.46167985431e-05,-8.69124506536e-05,-8.92121108638e-05,-9.15110501057e-05,-9.3811773481e-05,-9.61181329441e-05,-9.84242119668e-05,-0.00010073635003,-0.000103051558772,-0.000105370956584,-0.000107695372742,-0.00011002216247,-0.000112350593306,-0.00011468625096,-0.000117027223991,-0.000119372914556,-0.000121718736905,-0.000124063055887,-0.000126403189629,-0.000128742636449,-0.000131078361502,-0.000133410438373,-0.000135738798593,-0.000138058035341,-0.000140366422319,-0.00014266318486,-0.000144950282165,-0.000147231405269,-0.000149502959672,-0.000151763652307,-0.000154013166189,-0.000156248201024,-0.00015847102325,-0.000160680778113,-0.000162882569473,-0.000165077361174,-0.000167265977471,-0.00016944189241,-0.000171609837139,-0.000173771268214,-0.000175926414937,-0.00017807469484,-0.000180216166768,-0.000182355646082,-0.000184491066967,-0.000186621602294,-0.000188745916414,-0.000190867139122,-0.00019298715178,-0.000195103914728,-0.000197218528254,-0.000199333387101,-0.000201447564995,-0.000203555623372,-0.000205654414406,-0.000207749665838,-0.000209840641949,-0.000211929070918,-0.000214009993052,-0.000216079773479,-0.000218136971631,-0.000220185735589,-0.000222219820095,-0.000224248076533,-0.000226270806793,-0.000228282941802,-0.000230281920856,-0.000232267092059,-0.000234235161735,-0.000236192759822,-0.000238143091849,-0.000240080245924,-0.000242004882647,-0.000243915645413,-0.000245812588539,-0.000247694262687,-0.000249565682045,-0.000251424811867,-0.000253277720147,-0.000255120855465,-0.000256951944387,-0.000258774593352,-0.000260595818382,-0.000262411601858,-0.000264225820447,-0.000266034593526,-0.000267841215043,-0.000269647812196,-0.000271454259902,-0.000273257120127,-0.000275056241919,-0.000276853318647,-0.00027864184743,-0.000280419236716,-0.000282182668415,-0.000283937609924,-0.000285684361446,-0.000287420181195,-0.000289140420074,-0.000290847940209,-0.000292544790066,-0.000294229346603,-0.000295899843874,-0.000297562973143,-0.00029921878743,-0.000300866855464,-0.000302497940745,-0.000304112932142,-0.000305716888563,-0.000307311137298,-0.000308895059452,-0.000310467598134,-0.000312035176801,-0.000313594932562,-0.000315144314954,-0.000316685218452,-0.00031822497791,-0.000319763385363,-0.00032129659726,-0.000322823557122,-0.000324341253606,-0.000325846030919,-0.00032733615398,-0.000328813954265,-0.00033028207341,-0.000331739054659,-0.000333183123606,-0.000334614013703,-0.000336032561645,-0.000337441254494,-0.000338841135238,-0.000340236569616,-0.000341628943672,-0.0003430169004,-0.000344397872028,-0.000345770172215,-0.000347135589681,-0.000348492607201,-0.000349838415562,-0.000351173707821,-0.000352495990661,-0.000353806667959,-0.000355106171838,-0.000356395980787,-0.000357677982809,-0.000358949775412,-0.000360210827145,-0.000361463450876,-0.000362708741524,-0.000363948588357,-0.000365188265933,-0.000366427873693,-0.000367663128277,-0.000368895626506,-0.000370126240449,-0.000371353506758,-0.000372579451741,-0.000373802668438,-0.000375023305835,-0.000376238733823,-0.000377447121918,-0.000378645190225,-0.000379835777118,-0.000381020883642,-0.000382194566121,-0.000383359363385,-0.000384517897552,-0.000385670584128,-0.000386818442079,-0.000387958666065,-0.000389092654215,-0.000390220157655,-0.000391341744014,-0.000392451429491,-0.000393553069371,-0.000394648264933,-0.000395729933107,-0.000396797292009,-0.000397852466989,-0.000398897177987,-0.000399934660435,-0.000400965989557,-0.00040198884524,-0.000403001974426,-0.000404010732939,-0.000405012430113,-0.000406011609275,-0.000407011243052,-0.000408008614907,-0.000409002529763,-0.000409989903268,-0.000410966038981,-0.000411936525897,-0.000412903077554,-0.000413862614396,-0.00041481275987,-0.000415749949683,-0.000416671860038,-0.000417577904316,-0.000418468854057,-0.00041934746018,-0.000420215587876,-0.000421073826583,-0.00042191919285,-0.000422751942898,-0.000423579509153,-0.000424404819152,-0.000425225380912,-0.000426040253859,-0.000426853294136,-0.000427660133839,-0.00042845508688,-0.000429231731948,-0.000429988647634,-0.000430720739784,-0.000431423844329,-0.00043208797253,-0.000432710031312,-0.000433294884638,-0.00043383949866,-0.000434339465866,-0.000434804438053,-0.00043523412243,-0.000435635335078,-0.000436013497336,-0.000436375002623,-0.000436724258268,-0.000437074269536,-0.000437424404734,-0.000437769059763,-0.000438116322393,-0.000438466548722,-0.000438820148833,-0.000439179296005,-0.000439544609369,-0.000439910229096,-0.000440275030418,-0.00044063561445,-0.000440985642831,-0.000441327207101,-0.000441664154911,-0.000441990184696,-0.000442308040579,-0.000442613840078,-0.000442904324877,-0.000443179940061,-0.000443442206416,-0.000443689755466,-0.000443926165324,-0.000444157967871,-0.000444379274347,-0.000444591833003,-0.00044479660936,-0.000444987351397,-0.000445165078544,-0.000445333557843,-0.00044549529525,-0.000445649002408,-0.000445794809333,-0.000445928513144,-0.000446045876529,-0.000446154672002,-0.000446251128774,-0.000446340694533,-0.000446429041207,-0.000446511976926,-0.000446583709756,-0.000446642179226,-0.000446689707998,-0.0004467274248,-0.000446758309206,-0.00044677866411,-0.000446790227626,-0.000446793282093,-0.000446781724242,-0.000446754560312,-0.000446718386706,-0.000446677771496,-0.000446631164174,-0.000446575631547,-0.00044650987962,-0.000446436955236,-0.000446350553879,-0.000446247309018,-0.000446130710866,-0.000446002817595,-0.000445863457929,-0.000445708622958,-0.000445536326877,-0.00044535383977,-0.000445162015798,-0.000444957949368,-0.00044474021614,-0.000444518491063,-0.00044429183166,-0.000444056626022,-0.000443807504982,-0.000443544707099,-0.000443271504066,-0.000442985080349,-0.000442681273843,-0.000442362580454,-0.000442035701372,-0.000441698729839,-0.000441345065811,-0.000440977132918,-0.000440599948065,-0.000440215911178,-0.00043982193469,-0.000439415084118,-0.00043900190451,-0.000438575761556,-0.000438135427244,-0.000437674075989,-0.000437196262917,-0.000436702723327,-0.000436195078648,-0.000435670951379,-0.000435135283167,-0.000434588065676,-0.000434025363445,-0.000433449212238,-0.000432859294419,-0.000432258240973,-0.000431648456607,-0.000431027196597,-0.00043039614549,-0.000429749577238,-0.000429085323981,-0.000428401505169,-0.000427702182659,-0.00042698885032,-0.00042626217032,-0.000425523048505,-0.000424766961051,-0.0004239955607,-0.000423206482416,-0.000422404182792,-0.000421588197442,-0.000420758334108,-0.000419914615722,-0.000419055077636,-0.000418181061493,-0.000417290963147,-0.000416387122006,-0.000415473027644,-0.000414542723118,-0.000413595834267,-0.000412633291456,-0.000411657311027,-0.000410669635763,-0.000409668493531,-0.000408654938441,-0.000407626437225,-0.000406583610235,-0.000405522405415,-0.000404443128512,-0.000403350572958,-0.00040224194472,-0.000401115715635,-0.00039997172725,-0.000398811462571,-0.000397634103648,-0.000396436956555,-0.000395219171244,-0.000393979890734,-0.000392725431499,-0.000391454177399,-0.000390166888896,-0.000388868115327,-0.000387550006777,-0.00038621242115,-0.000384851332272,-0.000383469148878,-0.000382067002873,-0.00038064676586,-0.000379204763433,-0.000377740174395,-0.000376252154244,-0.000374736965536,-0.000373199940147,-0.000371643855555,-0.000370067451672,-0.00036847635931,-0.00036686820069,-0.000365241811274,-0.000363600867795,-0.000361945311648,-0.000360275005692,-0.000358589398648,-0.000356885577759,-0.000355157217417,-0.000353410131332,-0.000351643252664,-0.000349853122233,-0.000348043996603,-0.000346213560583,-0.000344360090816,-0.000342484025644,-0.000340583592893,-0.000338661323718,-0.000336721752812,-0.000334765094,-0.000332786004634,-0.000330787880733,-0.000328769085577,-0.000326727558656,-0.000324664024305,-0.000322576930302,-0.000320466531495,-0.000318333150127,-0.000316177123561,-0.000313995923227,-0.000311791838191,-0.000309566645226,-0.00030731735153,-0.0003050465028,-0.000302752353998,-0.000300439984177,-0.000298110285889,-0.000295762849755,-0.000293398931885,-0.000291018078403,-0.000288618635514,-0.000286199618258,-0.000283761473667,-0.000281302550955,-0.000278824050423,-0.000276324581688,-0.000273802692241,-0.000271259395676,-0.00026869438475,-0.000266104657863,-0.000263493400682,-0.000260861559028,-0.000258208711756,-0.000255535758911,-0.000252845747229,-0.000250136732793,-0.000247410455585,-0.00024466825415,-0.000241908082649,-0.000239131417592,-0.000236336657444,-0.000233520537308,-0.000230684639578,-0.000227829723185,-0.000224954619425,-0.00022205748091,-0.000219138859452,-0.000216194913896,-0.000213224330943,-0.000210227130227,-0.000207206600646,-0.000204163841937,-0.000201098359786,-0.000198008152094,-0.000194893359452,-0.000191752990195,-0.000188589262466,-0.000185400949753,-0.00018219058525,-0.000178958111171,-0.000175701900973,-0.000172421299018,-0.000169118070542,-0.000165797660679,-0.000162457281551,-0.00015909662006,-0.000155717135909,-0.000152318996083,-0.000148900909356,-0.000145464982319,-0.000142012992429,-0.000138546023603,-0.000135061241661,-0.000131553551416,-0.000128021443217,-0.000124471363014,-0.000120903437022,-0.00011731703094,-0.000113710840442,-0.000110087805482,-0.000106442797746,-0.00010277103609,-9.90764148073e-05,-9.53591138724e-05,-9.16268442476e-05,-8.78756462045e-05,-8.41012476015e-05,-8.03026270908e-05,-7.6481933139e-05,-7.26389971462e-05,-6.8776723732e-05,-6.49025178438e-05,-6.10188599526e-05,-5.71251092774e-05,-5.32145375106e-05,-4.92870078493e-05,-4.53430839432e-05,-4.13873316695e-05,-3.74208399916e-05,-3.34407148343e-05,-2.94481285546e-05,-2.54412129238e-05,-2.14108204527e-05,-1.73562026266e-05,-1.32793708332e-05,-9.185221092e-06,-5.07417577878e-06,-9.46451512548e-07,3.19766002921e-06,7.35754362941e-06,1.1534507872e-05,1.57284748162e-05,1.99356926667e-05,2.41510625101e-05,2.83740338299e-05,3.26077803552e-05,3.695797083e-05,4.15313488505e-05,4.64158760301e-05,5.16799043469e-05,5.7904417117e-05,6.31407602242e-05,6.79762450919e-05,7.24836262021e-05,7.67487230637e-05,8.08750283775e-05,8.49689807656e-05,8.89198512759e-05,9.26276339692e-05,9.60040621265e-05,9.89808700886e-05,0.00010097771031,0.000103941445553,0.000107286030567,0.00011094106337,0.00011481885926,0.00011881648065,0.00012282772707,0.0001268501543,0.000130879055884,0.000134918110524,0.000138965220754,0.00014302215735,0.000147090089075,0.000151167997067,0.00015525901523,0.00015936500733,0.000163484914437,0.000167617082706,0.000171767952151,0.00017593501409,0.000180118111736,0.000184314705942,0.000188518861196,0.000192726038781,0.000196936741816,0.000201150209802,0.000205367351883,0.000209590156847,0.000213819217461,0.000218052981619,0.000222288562069,0.000226524697323,0.000230766418974,0.000235018352597,0.000239281292751,0.000243553159874,0.000247831074139,0.000252111648106,0.000256389885708,0.00026066592727,0.000264944371461,0.000269230224603,0.00027351983857,0.00027781484584,0.000282111505809,0.00028641030025,0.000290712225266,0.000295016258621,0.000299321432389,0.000303630983069,0.000307944172799,0.00031225415799,0.000316562478332,0.000320871761939,0.00032518139429,0.000329491055334,0.000333798389282,0.000338105045058,0.000342415298871,0.000346731865251,0.000351049388036,0.000355369375241,0.000359693632162,0.0003640188102,0.000368343231218,0.000372665151007,0.000376986674584,0.000381308788458,0.000385627952888,0.000389940269198,0.000394246386156,0.000398549515923,0.000402844586768,0.000407132184885,0.000411411274515,0.000415680984161,0.000419942176875,0.000424192726575,0.000428434547622,0.000432669264249,0.000436895553151,0.00044111102228,0.000445316462768,0.000449513421798,0.00045370334365,0.000457883992875,0.00046205310036,0.000466211193897,0.000470359536732,0.00047449318044,0.000478611825315,0.000482719104575,0.00048681204087,0.000490887090919,0.000494944157222,0.000498982268774,0.000503005318086,0.000507013398141,0.000511000696689,0.000514969489907,0.000518922775959,0.000522854119618,0.000526763999672,0.000530655126801,0.00053452607565,0.000538376665488,0.00054220313309,0.000546000515389,0.000549771235255,0.000553514651691,0.00055722634348,0.00056090693947,0.000564558944863,0.000568176683002,0.000571758700787,0.000575308287073,0.000578827086885,0.000582317729662,0.00058578226108,0.000589218158762,0.000592626224272,0.000596005295542,0.000599355420645,0.000602678699805,0.000605978540156,0.0006092533132,0.000612501029089,0.000615721909275,0.000618912735959,0.000622074095226,0.000625204897612,0.000628308290011,0.000631384762937,0.000634432200683,0.000637447749326,0.000640430823659,0.000643380425222,0.00064629335872,0.000649166518755,0.000652001296918,0.000654800720297,0.000657564633382,0.000660289330128,0.00066297341955,0.000665616326865,0.000668219964024,0.000670783050243,0.000673305131712,0.000675793474727,0.000678247698771,0.000680664784529,0.000683040177742,0.000685374346584,0.000687668111485,0.000689924110788,0.000692140057234,0.000694313348783,0.000696447525059,0.000698540572892,0.000700587871941,0.000702588112669,0.000704544210642,0.000706456261938,0.000708327324258,0.000710158231356,0.000711948226817,0.00071369882295,0.00071541107918,0.000717081004951,0.000718709570729,0.000720298302064,0.000721848460864,0.00072335984563,0.000724827431181,0.000726245519312,0.000727614129785,0.00072893363798,0.000730204371038,0.000731426138955,0.00073259965422,0.000733724530858,0.000734796924893,0.000735815791872,0.000736783303348,0.000737704108042,0.000738579588086,0.000739409088416,0.000740187995256,0.000740914524106,0.000741587011912,0.000742207345349,0.000742776193771,0.000743295128279,0.000743764180415,0.000744180893348,0.000744543824936,0.000744855399598,0.000745115816613,0.000745329176439,0.000745498964959,0.000745626037402,0.000745710370132,0.000745753429523,0.000745755458409,0.000745716754859,0.000745636174649,0.000745512677891,0.000745346013617,0.000745135379871,0.000744880993094,0.000744580530889,0.000744233529373,0.00074383632376,0.000743386735237,0.00074288453819,0.000742332090332,0.000741729607838,0.000741082697416,0.000740392117041,0.000739655228793,0.000738870452808,0.000738038872507,0.000737162685797,0.000736244387688,0.000735284821429,0.000734283449408,0.000733238410652,0.000732149839382,0.000731010999799,0.000729822078977,0.000728586692568,0.000727307586389,0.000725982547507,0.000724612278063,0.000723198435051,0.000721740943817,0.000720242674993,0.000718699275978,0.000717112107229,0.000715485438371,0.000713816132285,0.000712101417322,0.000710341682729,0.000708538962121,0.000706689782523,0.000704795160133,0.00070285368328,0.000700865190617,0.000698837887148,0.000696769957829,0.000694665416829,0.000692526389349,0.000690352828407,0.000688143857998,0.000685899993797,0.000683621541676,0.000681305812162,0.000678958518666,0.000676574691517,0.000674153348198,0.000671694010404,0.000669193272816,0.000666653470163,0.000664074395091,0.000661457305289,0.000658799792615,0.000656103546802,0.000653369060939,0.00065059355773,0.000647778510098,0.000644922710098,0.00064202841089,0.000639095314111,0.000636120698961,0.000633105271223,0.000630049779955,0.0006269599838,0.00062383288478,0.00062067247427,0.000617480223085,0.000614255332688,0.000610997939118,0.000607707062957,0.000604387549636,0.000601038752433,0.000597665896648,0.000594265806046,0.000590836497725,0.000587379363989,0.000583889361994,0.000580367086557,0.000576815213629,0.000573233880499,0.00056962127755,0.000565973723853,0.000562290522453,0.000558569151938,0.000554812586065,0.000551019550272,0.000547194654318,0.000543340155699,0.000539454493234,0.000535539825825,0.00053159334959,0.000527623760279,0.000523627141729,0.000519606233287,0.000515561538687,0.00051149394084,0.000507404286385,0.000503291319601,0.000499154243839,0.000494993245833,0.000490811981171,0.000486607378917,0.000482377660488,0.000478129602113,0.00047386244714,0.000469577202016,0.000465271261221,0.000460944496026,0.000456597741155,0.000452232567044,0.000447849124907,0.000443445754949,0.000439027868851,0.000434591180131,0.00043013626798,0.00042566121322,0.00042116603811,0.000416653588901,0.000412125041225,0.000407581058971,0.00040302318048,0.000398453669839,0.000393873391908,0.000389279919479,0.000384673773556,0.00038005461584,0.00037542764043,0.000370788715544,0.000366140553742,0.000361481350803,0.000356805600646,0.000352112290523,0.0003474028424,0.000342677889435,0.000337940127412,0.000333190491694,0.000328427892788,0.000323654808346,0.000318871279051,0.000314075628218,0.000309271288538,0.000304462659597,0.000299647925953,0.000294823921579,0.000289989832783,0.00028514872722,0.000280299124679,0.000275439002979,0.000270565323731,0.000265682431679,0.000260790120418,0.000255886889458,0.000250975939816,0.000246059087551,0.0002411360707,0.000236203693393,0.000231262543713,0.000226313975979,0.000221364147143,0.000216411570245,0.000211458009525,0.000206505535234,0.000201553040915,0.000196601505554,0.000191654300343,0.000186713913558,0.000181782203113,0.000176861144941,0.000171949295122,0.000167046914411,0.000162154171901,0.000157268685589,0.000152384477142,0.000147506317049,0.000142628578194,0.000137750766724,0.000132872825168,0.000127993612419,0.000123111641885,0.000118229003221,0.000113344786434,0.000108462052142,0.000103587157953,9.87208448108e-05,9.38630964974e-05,8.9015281192e-05,8.41787766813e-05,7.93589987477e-05,7.45564414184e-05,6.97709534379e-05,6.50032634788e-05,6.02484464366e-05,5.5505430649e-05,5.07717027537e-05,4.60538992959e-05,4.13514731184e-05,3.66651131428e-05,3.19887126625e-05,2.73194123347e-05,2.26554090175e-05,1.79946884793e-05,1.33429068119e-05,8.70640241624e-06,4.08240346733e-06,-5.30502011768e-07,-5.13259753332e-06,-9.7243047617e-06,-1.43019307867e-05,-1.88594368813e-05,-2.33954550503e-05,-2.79027805503e-05,-3.23838989771e-05,-3.68450199872e-05,-4.12856421147e-05,-4.5706684903e-05,-5.01064093579e-05,-5.44861248609e-05,-5.88428577155e-05,-6.31795852438e-05,-6.74989372312e-05,-7.180387098e-05,-7.60945671817e-05,-8.03672889195e-05,-8.46207658322e-05,-8.88519812661e-05,-9.3058764424e-05,-9.72423279162e-05,-0.000101405742922,-0.000105551880091,-0.00010967619938,-0.00011377562478,-0.000117850164988,-0.000121903674141,-0.000125933083564,-0.000129938503261,-0.000133925811618,-0.000137893907803,-0.000141841515899,-0.000145762757531,-0.000149660168284,-0.0001535357428,-0.000157391220071,-0.00016122491841,-0.0001650321904,-0.000168817993524,-0.000172577935932,-0.000176308964732,-0.000180009677452,-0.000183684492899,-0.000187331240448,-0.000190950432273,-0.00019454028969,-0.000198098322998,-0.000201629871349,-0.000205139197308,-0.000208622271054,-0.000212080433534,-0.000215516760363,-0.000218928370363,-0.000222315616069,-0.000225682638273,-0.000229024795788,-0.000232343513439,-0.000235635554616,-0.000238895285816,-0.000242123872588,-0.000245324697619,-0.000248499671381,-0.00025164520057,-0.000254761538084,-0.000257841645861,-0.000260889399678,-0.000263907825501,-0.000266902777547,-0.000269874617935,-0.000272822991194,-0.00027574240805,-0.000278628401232,-0.000281483770283,-0.000284310342343,-0.000287112241734,-0.000289889027455,-0.000292637009821,-0.000295352183468,-0.000298028177773,-0.000300669541873,-0.000303279496598,-0.000305861335657,-0.000308417105482,-0.000310945761318,-0.000313447089851,-0.000315919814512,-0.000318365210924,-0.000320779880712,-0.00032316984886,-0.000325536044379,-0.00032787655533,-0.000330186692408,-0.000332463848016,-0.000334706149235,-0.000336913313025,-0.000339085566517,-0.000341220900197,-0.000343325319418,-0.00034540158733,-0.000347449318749,-0.000349467065075,-0.000351458480825,-0.000353424822041,-0.000355367435011,-0.000357283946784,-0.00035917218534,-0.000361034078184,-0.000362871173622,-0.000364681451204,-0.000366458796626,-0.000368201709568,-0.000369911249839,-0.000371590545999,-0.000373242629702,-0.00037486739551,-0.000376471502887,-0.000378053900687,-0.000379611757557,-0.000381141325711,-0.000382643787895,-0.000384126196905,-0.000385587186155,-0.000387024924466,-0.000388436296843,-0.00038981693829,-0.000391163091382,-0.000392472305569,-0.000393750180883,-0.000395000436304,-0.000396223834196,-0.000397417448592,-0.00039857978699,-0.000399710857568,-0.000400807952191,-0.000401875809072,-0.000402919257134,-0.000403942540443,-0.000404944263571,-0.000405914751359,-0.000406856475176,-0.000407769636109,-0.000408653517121,-0.000409508125841,-0.000410335702469,-0.00041114220234,-0.000411920733755,-0.000412668825431,-0.000413384186369,-0.000414073381125,-0.000414739945013,-0.000415382889783,-0.000416005710468,-0.000416609353344,-0.000417192906705,-0.000417749810481,-0.000418278544627,-0.000418783010961,-0.00041926328821,-0.000419719319898,-0.000420144831434,-0.000420542959018,-0.000420911007235,-0.000421245822579,-0.000421542785655,-0.000421809561709,-0.000422046541866,-0.000422255931505,-0.000422436926549,-0.00042259204859,-0.000422726442105,-0.000422839945601,-0.000422931097159,-0.000422999203723,-0.000423044910243,-0.000423075373849,-0.000423088257726)
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(208)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('G1E-H3K27ac.pooled.sorted.pseudoRep1.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) : 208',bty='n')
dev.off()