# R script for Peak Model
#  -- generated by MACS
p <- c(0.0430278223765,0.0502053525472,0.0573470806806,0.0645510732266,0.0718341415768,0.0718061225911,0.0718581133757,0.0718360095092,0.0717964716071,0.0718590473418,0.0718515756123,0.0718923588026,0.0719508873505,0.0719614723007,0.0718571794095,0.071874302123,0.0719029437528,0.0719518213167,0.0719960290497,0.0720143970515,0.0719891799643,0.0719487080961,0.0718839531069,0.0718232453046,0.0718490850358,0.071845037849,0.071874613445,0.0718805285642,0.0718294717458,0.0717519525521,0.0717700092317,0.0718064339131,0.0719322080267,0.0719686327081,0.0719440382651,0.0720109725088,0.0719303400944,0.0718808398863,0.0718655851052,0.0718680756817,0.0719297174502,0.0718497076799,0.07173202794,0.0717659620449,0.071869632292,0.0717852640128,0.0718026980484,0.0718462831372,0.071845037849,0.071859669986,0.0718515756123,0.0718375661195,0.0718272924914,0.0717668960111,0.0716165274545,0.0716078104367,0.0715931782997,0.0716165274545,0.0716404992534,0.0716451690843,0.0716629144419,0.0716825277319,0.0717394996695,0.0717569337051,0.0717264241429,0.0717591129595,0.0717236222443,0.0717033863102,0.0717258014987,0.0717167731589,0.071687820207,0.0717472827211,0.0716890654953,0.071682839054,0.0717310939738,0.0716763012907,0.0717354524827,0.0717005844116,0.0716464143726,0.0717267354649,0.0716915560718,0.0717550657727,0.0717921130982,0.0717855753349,0.0717918017762,0.0718634058507,0.0718198207619,0.0718985852439,0.071948396774,0.0718867550055,0.0719275381958,0.0718369434753,0.0718372547974,0.0718771040215,0.0718901795482,0.0718521982565,0.0719714346067,0.0718693209699,0.071903877719,0.0719331419929,0.071938434468,0.0719113494485,0.0718976512777,0.0719013871425,0.0719178872118,0.071943415621,0.0718335189327,0.071815773575,0.071717395803,0.0717363864489,0.0717329619062,0.0718581133757,0.0719689440302,0.0720315197649,0.07209565211,0.072071057667,0.0721227371295,0.0722407281915,0.0722783981612,0.0723207379618,0.0723515588461,0.0723285210134,0.0722055487984,0.0721165106882,0.0720965860762,0.0722114639176,0.0722597188374,0.0722914736878,0.0723780212215,0.0723624551183,0.0724368610914,0.0724782669259,0.0725993712085,0.0727145603719,0.0727226547456,0.0727404001032,0.072724834,0.072690277251,0.0726958810481,0.0728185419411,0.0727656171903,0.0727024188115,0.0726955697261,0.072656031824,0.0727036640997,0.0725856730377,0.0726059089718,0.0726663054521,0.0727201641691,0.072763749258,0.0728655515727,0.0729633067006,0.0730034672467,0.0731354678016,0.0732388267266,0.073378299011,0.0734576861372,0.0735143467527,0.0735380072295,0.0734729409183,0.0735199505499,0.0736145924571,0.0736307812044,0.0735591771298,0.0735884414038,0.0736307812044,0.0736992720583,0.0737107909747,0.0738048102378,0.0738807728213,0.0738916690935,0.0739212446895,0.0740224243601,0.0741127077585,0.0740977642994,0.0741665664754,0.0741911609184,0.0742935858773,0.0742708593667,0.0742960764538,0.074405350498,0.0744417751795,0.0744872282007,0.0745728417681,0.0746223419762,0.0747082668657,0.0747708426004,0.0748894563066,0.0749349093278,0.0749756925181,0.0750317304895,0.0750553909663,0.0751662216209,0.0751867688771,0.0751967311831,0.0752378256955,0.0753383827219,0.0752761183092,0.0753906848286,0.0753807225225,0.0754056282876,0.0755046287037,0.0755030720934,0.0755840158299,0.0757642713046,0.0758601585001,0.0758897340961,0.0759548004074,0.0760821311313,0.0762511790117,0.0763442643086,0.0764619440486,0.0765976804682,0.0766963695623,0.0767605019073,0.0767598792632,0.0768532758822,0.0769516536542,0.0768647947986,0.0768875213092,0.0768943703946,0.0769348422628,0.0769725122325,0.0770677767839,0.0771895037106,0.0773193250111,0.0774040046123,0.0774967785872,0.0777265342699,0.0779301388994,0.0780882905075,0.0782218476727,0.0782971876121,0.0783905842311,0.078444442948,0.0786349720508,0.0787601235203,0.0789008410929,0.0790412473435,0.0791094268754,0.0791769837631,0.0792130971224,0.0793949092074,0.0794976454884,0.0795932213618,0.0796224856358,0.0797003161516,0.0797865523632,0.0798572224715,0.0799948268235,0.0801177990386,0.0802557147126,0.0802541581023,0.0803761963511,0.0804699042922,0.0806286785445,0.0807273676386,0.0808615474479,0.0809300383019,0.081039001024,0.0811464071359,0.0813086059309,0.0815673145656,0.0817130132912,0.0819486840932,0.0820072126411,0.0821180432956,0.0822578269021,0.0824555164123,0.0825442432004,0.08260152646,0.0827079986057,0.0827858291215,0.0829508298151,0.082969820461,0.0831329532222,0.0833586617181,0.0834878603744,0.0836597101534,0.0838810601404,0.0841509763693,0.0843766848653,0.0845746856976,0.084763346868,0.0849498287839,0.0851967071802,0.0853520568898,0.0855861710814,0.0856929545491,0.0858202852731,0.0859613141678,0.0860540881426,0.0862274945319,0.0863548252558,0.0865201372715,0.0866337698246,0.0867981478741,0.0869236106656,0.0872277723215,0.0875503019791,0.0878818599766,0.0882454841466,0.0885664571939,0.0888970812252,0.0892638186158,0.0897376507963,0.0901940489412,0.0906921642425,0.0910339958681,0.0914592618066,0.0918014047543,0.0920812832892,0.0923826430465,0.0927341256561,0.0930423344988,0.093259325977,0.0933863453788,0.0935432516987,0.093780167789,0.0938455454223,0.0939931120803,0.0941761694535,0.0943726136755,0.0945453974207,0.094713822657,0.0949367292543,0.0951608811399,0.0953109383745,0.0954507219809,0.0957088079714,0.095986507252,0.0961599136413,0.0962872443652,0.0964114618684,0.0966732837237,0.0967694822413,0.096998926602,0.0972081350286,0.0974802305119,0.0976421179849,0.0977563731821,0.0979662042528,0.0982563564159,0.0984447062642,0.0985181782712,0.0987264527316,0.0989207176991,0.0991588790776,0.099269087088,0.0993995310325,0.0996140319342,0.0997709382541,0.0998534386009,0.100100628319,0.100352799191,0.100499431882,0.100580686941,0.100749423499,0.100981358436,0.101187453642,0.101404445121,0.101670625485,0.101993155142,0.102051995012,0.102233495775,0.102319731987,0.10256318584,0.102671525918,0.102784847149,0.10290719672,0.102909687297,0.102965102624,0.102938328927,0.103130103318,0.103298839876,0.103585878818,0.103658105537,0.103807540128,0.10386669132,0.10410672063,0.104297872377,0.104395316183,0.104544439452,0.104689204211,0.104840506734,0.104945110947,0.105179536461,0.10536041458,0.105542537987,0.105684500848,0.105846699643,0.106054662781,0.106231493713,0.106360381047,0.106480862686,0.106623136869,0.106769146916,0.106834213228,0.107056185859,0.107150827766,0.107310535984,0.107394904264,0.107475225356,0.10761314103,0.107747632161,0.10789831204,0.10803716168,0.108314549639,0.108444059617,0.10862556038,0.108860608538,0.109171307957,0.109472356392,0.109644517493,0.109800801169,0.109947122539,0.110088151434,0.11028677491,0.110439945365,0.11060805928,0.110728540918,0.110723559765,0.110937126701,0.11107130651,0.111252807273,0.111450185461,0.111552921742,0.11158280866,0.111812564343,0.111914366657,0.112096801387,0.112266471911,0.11231161361,0.112571256211,0.112667143407,0.112737813515,0.11297846547,0.113101437685,0.113095833888,0.113252740208,0.113209155119,0.113382250186,0.113507090334,0.113607958682,0.113708204386,0.113829931313,0.11378261036,0.113861997486,0.11393048834,0.114018903806,0.114172385583,0.114276989796,0.114326490004,0.114261423693,0.114280414339,0.114268272778,0.114305631426,0.114313414478,0.114356376922,0.114358556177,0.114374433602,0.114272008643,0.114270140711,0.114287574746,0.114292867221,0.114308122003,0.114344546684,0.114333027768,0.114318084309,0.114296914408,0.114280103017,0.114161800633,0.114038205774,0.114056885097,0.113965045089,0.113904025964,0.11388067681,0.11389126176,0.113858884265,0.113779497139,0.113823704872,0.113889082505,0.113982479124,0.113902780676,0.114044432215,0.114091130524,0.114084904083,0.114104517373,0.114129111816,0.114114168357,0.114053460555,0.113977186649,0.113961620546,0.113996177295,0.113813431244,0.113682364655,0.113601109597,0.113502731825,0.113432373038,0.113453854261,0.113432061716,0.113513939419,0.113511760164,0.113430816428,0.113428948496,0.11355939244,0.113611694547,0.113658081534,0.113626015362,0.113494948773,0.113285740346,0.11317459837,0.113053494087,0.112917757668,0.112877597121,0.112702945444,0.112576237364,0.112385396939,0.112217594347,0.112203273532,0.112225688721,0.112178056445,0.112081857927,0.112002470801,0.111828130446,0.111758082982,0.111521478213,0.111378270064,0.111289231954,0.111054495118,0.110838126284,0.110647597182,0.110507813575,0.110299539115,0.110079434416,0.109798310593,0.109549875586,0.109369620112,0.109211779825,0.108994477025,0.108819514026,0.108559248781,0.108250417294,0.108016614424,0.107895198819,0.107740783076,0.107610339131,0.107386187246,0.107082959556,0.106861298247,0.106672325755,0.106500164654,0.106341079079,0.106194135065,0.105838293947,0.105474358455,0.105286631251,0.105152762763,0.104950714744,0.104810931138,0.104552222503,0.104348617874,0.104219107895,0.104051305303,0.104008965503,0.103984059738,0.103778275854,0.103506491692,0.103269886924,0.103023942494,0.102803526473,0.102684912767,0.102411883318,0.102233184453,0.101958287071,0.101679653825,0.101595285545,0.101319765519,0.101284897448,0.101209246187,0.101199283881,0.100928745008,0.100768102823,0.100558583074,0.100461139269,0.100329761358,0.100149194561,0.100142656798,0.100039609195,0.0997986459178,0.0995906827794,0.0995436731479,0.0993901913706,0.0993014645826,0.0991946811148,0.0990878976471,0.098983916078,0.0986856695413,0.0982918471311,0.0981299596582,0.0978419867496,0.0974173434551,0.0970378418599,0.0965500001866,0.0959899317947,0.0954357785219,0.0948069079539,0.094389736389,0.0939977819112,0.0935634876329,0.0931307499648,0.092826899631,0.0925361248238,0.0922845765966,0.0921326514297,0.0920797266789,0.0919371411739,0.0918014047543,0.091652592808,0.0914443183476,0.0913515443727,0.0912562798213,0.0910078448148,0.0908820707012,0.09067971136,0.0904826444939,0.0904088611649,0.0902015206707,0.0900601804539,0.0899779914292,0.0898600003672,0.0896557730936,0.0895835463749,0.0893525454039,0.0892877904147,0.0891296388065,0.0889444021788,0.0887990147753,0.0885929195693,0.0883432392745,0.088143993154,0.0879939359194,0.0879151714374,0.0878466805834,0.0876816798899,0.0875316226553,0.087382810709,0.0873021782946,0.0872094043198,0.087107290683,0.0869382428026,0.0868183838082,0.0865892507696,0.0864858918445,0.0863582497985,0.0862016548007,0.0860662297031,0.0858881534829,0.0858355400542,0.0857592661486,0.0855945767771,0.0854504346618,0.085333377566,0.0851450277176,0.0849323947484,0.0847748657843,0.0846073745142,0.0844828456889,0.084267410821,0.0840968063303,0.0840127493732,0.0838331165427,0.0837135688703,0.0835996249951,0.0835974457407,0.0835519927194,0.0834486337944,0.0834090958924,0.0832929727627,0.0831500759357,0.0829860092083,0.082979782767,0.0828586784844,0.0827126684366,0.0825999698497,0.0824209596633,0.0822494212064,0.0820809959701,0.0819907125717,0.0818991838851,0.0817497492947,0.0815638900229,0.0814153893986,0.0812840114879,0.0811541901875,0.0809228778944,0.0809082457574,0.0807669055407,0.080601593525,0.0804456211713,0.0803945643529,0.0803089507855,0.0802065258266,0.0801844219601,0.0800268929961,0.08001693069,0.0798011845001,0.0796638914702,0.079564891054,0.0794033149032,0.0792790973999,0.0791953517648,0.0790954173825,0.078950341301,0.0788155388475,0.0787355290773,0.0786334154405,0.078468726069,0.0783771973823,0.0783208480889,0.0781256491551,0.0778797047251,0.0778009402431,0.0777352512877,0.0776191281581,0.0774547501086,0.0773850139664,0.0773317778936,0.0772265510362,0.07714716391,0.077078050412,0.077009248236,0.0768984175814,0.0767910114695,0.0766204069788,0.0765064631036,0.0763794437018,0.0763003678977,0.0761671220546,0.0760653197399,0.075997140208,0.0759373663718,0.0757997620198,0.0756490821411,0.0756602897354,0.0755883743388,0.0755012041611,0.0754890626006,0.0754149679495,0.075279854174,0.0752424955264,0.075186457555,0.0751254384306,0.0751061364627,0.074970400043,0.0749128054613,0.0748116257907,0.0746578326914,0.0746086438054,0.0746167381791,0.0745277000689,0.074390407039,0.0743405955089,0.0741930288508,0.0741077266055,0.074066320771,0.0740666320931,0.0740242922925,0.0739330749279,0.0738487066488,0.0738048102378,0.0737581119283,0.0736858852096,0.0736622247328,0.073727291044,0.0736893097523,0.0735766111654,0.0735432997046,0.073535205331,0.0734679597653,0.0733726952139,0.0733465441606,0.0732839684258,0.0732048926217,0.073102778985,0.0729928822966,0.0729299952398,0.0728506081136,0.0728017305497,0.0727472491886,0.0727413340694,0.0727572114946,0.0727456925783,0.0727360415943,0.0727158056602,0.0726921451834,0.0727151830161,0.0726918338613,0.0726750224699,0.0726423336533,0.0725806918847,0.0725065972336,0.0724527385167,0.0723942099688,0.0724160025132,0.0724013703762,0.0724648800771,0.0724044835968,0.0723839363407,0.0722905397217,0.0722665679228,0.0722127092058,0.0722597188374,0.0722889831113,0.0722114639176,0.0722142658161,0.0721081049925,0.0721093502808,0.0720467745461,0.0720751048538,0.072066387836,0.0720757274979,0.0720785293965,0.072110595569,0.0721065483822,0.0721146427559,0.072086001126,0.0720670104802,0.0720828879054,0.0721476428946,0.0721983883909,0.0721787751009,0.0720828879054,0.0720137744073,0.0719813969127,0.0719150853133,0.0719813969127,0.0720477085122,0.0720028781351,0.0720676331243,0.0720150196956,0.071923491009,0.0719418590107,0.0719518213167,0.0719820195569,0.0720744822097,0.0720477085122,0.0720349443076,0.0721236710957,0.0720501990887,0.072086001126,0.0722422848018,0.0722609641256,0.0722447753783,0.0722500678534,0.072228275309,0.0722572282609,0.072203680866,0.0721965204585,0.0722450867004,0.0723310115899,0.0723325682002,0.0723132662323,0.0723814457642,0.072311709622,0.072252869752,0.072267501889,0.0723282096913,0.0722401055474,0.0721529353697,0.0720679444464,0.0720775954303,0.0720828879054,0.0720006988807,0.072125227706,0.0721769071685,0.0721367466224,0.0721691241169,0.072252869752,0.0722942755864,0.0723026812821,0.0722550490064,0.0722808887377,0.072385492951,0.0723303889458,0.0723671249492,0.0723836250186,0.0722805774156,0.072213643172,0.072184067576,0.0722061714425,0.0722485112431,0.0722472659549,0.0722151997823,0.07219371856,0.0722055487984,0.072272794364,0.0723627664404,0.0724745310611,0.0724844933671,0.072473908417,0.0725072198778,0.0724458894313,0.0723998137659,0.0724415309224,0.0724717291625,0.0723615211521,0.0723646343727,0.0722877378231,0.0723403512518,0.0724082194616,0.0723590305756,0.0724125779705,0.0724779556038,0.0724900971643,0.0723985684776,0.0724399743121,0.0724160025132,0.0724763989935,0.0724801348582,0.0723917193922,0.0723721061023,0.0724212949883,0.0724869839436,0.0724026156645,0.0724433988548,0.0724648800771,0.0725333709311,0.0725529842211,0.0725268331677,0.0726130693793,0.0726149373117,0.0725853617157,0.0725081538439,0.0726915225393,0.0726597676888,0.0726874753524,0.0726267675501,0.0725383520841,0.0725928334452,0.0724944556732,0.0725140689631,0.0725545408314,0.0725349275414,0.072434681837,0.0724925877408,0.072488851876,0.0724714178405,0.0725909655128,0.0724860499774,0.0725258992016,0.0725467577798,0.072538040762,0.0725090878101,0.0725617012388,0.0724941443511,0.0724695499081,0.0724356158032,0.0723375493532,0.0724424648886,0.072415068547,0.072518427472,0.0725504936446,0.0726345506017,0.0726180505323,0.072680626267,0.0726871640304,0.0727313717634,0.072827881603,0.0728705327257,0.0728842308965,0.0727684190889,0.0727182962367,0.0727086452527,0.0727077112866,0.0727263906104,0.0726968150143,0.0727699756992,0.0726635035536,0.0725909655128,0.0726572771123,0.0727105131851,0.0727559662064,0.0728272589589,0.0728795610655,0.0728973064231,0.0729412028341,0.0729156744249,0.0729247027647,0.0729882124656,0.072906334763,0.0728892120495,0.0728736459463,0.0727332396958,0.0727083339307,0.0726305034148,0.0726407770429,0.0726308147369,0.0726277015163,0.0726121354131,0.0727033527777,0.0726965036923,0.0727668624786,0.0728446929944,0.0727790040391,0.0727877210568,0.0727319944075,0.0727111358293,0.0727288811869,0.0726940131158,0.072606842938,0.0726619469432,0.0727045980659,0.0726793809788,0.0726532299255,0.072606842938,0.0726694186728,0.0726513619931,0.0726669280963,0.0727179849146,0.0727877210568,0.072837532587,0.0727338623399,0.0727450699342,0.0727958154305,0.0728092022792,0.0728297495354,0.0728341080443,0.0729004196438,0.0728602590976,0.0728839195744,0.0727749568522,0.0728001739394,0.0727363529164,0.0727257679662,0.0728026645159,0.07274444729,0.0727615700035,0.0727447586121,0.0726787583347,0.0726146259896,0.0726133807014,0.072528078456,0.0725931447672,0.0725470691019,0.0725897202245,0.072606531616,0.0725862956818,0.0725452011695,0.0725853617157,0.0724891631981,0.0724882292319,0.0725601446285,0.0725302577104,0.0725878522922,0.0724947669952,0.0724810688244,0.0724832480789,0.0723693042037,0.0723089077234,0.0723770872553,0.07238082312,0.0723008133497,0.0722463319887,0.0722071054087,0.0721968317806,0.0721049917719,0.0720280952222,0.0720508217329,0.0720262272899,0.0720246706796,0.071943104299,0.0719300287723,0.072012217797,0.0720041234234,0.0720723029552,0.072105614416,0.0722189356471,0.0721719260155,0.0722288979531,0.0721579165227,0.0721426617416,0.0721155767221,0.072046463224,0.0719860667437,0.0718602926301,0.0718512642903,0.071727046787,0.071761603536,0.0717080561411,0.0717282920752,0.0716660276626,0.0716520181697,0.0716644710522,0.0717348298386,0.0717382543813,0.0718528209006,0.0717986508616,0.0717790375716,0.07173202794,0.0717189524133,0.0717354524827,0.0717382543813,0.0716479709829,0.0715284233106,0.0714792344246,0.071260375014,0.0713484791579,0.0713475451918,0.0713895736703,0.0713350923092,0.0713462999035,0.071260375014,0.0713061393573,0.0712983563057,0.0713895736703,0.0714207058766,0.0714300455385,0.071392998213,0.0713497244462,0.0713556395654,0.0713273092576,0.071334158343,0.0712472994874,0.0712572617934,0.0711193461193,0.0711193461193,0.0710172324825,0.0709708454951,0.0709474963403,0.0708070900898,0.0707610144244,0.0707267689974,0.0707093349619,0.0706268346151,0.0706492498036,0.0705297021313,0.0705608343377,0.0705841834924,0.0705561645067,0.0706738442466,0.070719919912,0.070695014147,0.0706339950225,0.0705848061365,0.0704914095175,0.070587296713,0.0705147586723,0.0704820698556,0.0704705509393,0.070351314589,0.0702504462405,0.0702448424433,0.0702818897689,0.070317069162,0.0703173804841,0.0702355027814,0.0702224272548,0.0702616538348,0.0701797761321,0.0702457764095,0.0702551160714,0.0701688798599,0.0701047475148,0.070091049344,0.0701424174845,0.0701228041945,0.0700891814117,0.0700082376752,0.0699817752998,0.0699229354298,0.0698880673587,0.0699201335313,0.0699428600419,0.0698507087111,0.0698276708784,0.0697675857202,0.0697143496474,0.0697685196864,0.0698052556899,0.0697268025299,0.0697109251047,0.0696377644198,0.0695801698381,0.0695524621744,0.0694453673846,0.0693482349009,0.0693473009347,0.0692483005185,0.0691732719013,0.0691742058675,0.0690801866043,0.0690649318232,0.0690191674799,0.0689939503928,0.0689886579177,0.0690615072805,0.069014497649,0.068975271069,0.0689438275406,0.0689120726901,0.0689634408306,0.0689217236741,0.0689295067257,0.0689226576403,0.0688357987846,0.061928807487,0.0550317784954,0.0481145135697,0.0412296261385,0.0)
m <- c(0.0408337118116,0.0477103265676,0.0545209756073,0.0613951010909,0.0682029496993,0.0683015871146,0.0682707823698,0.068281050618,0.0682959862519,0.0683429712667,0.0683336364956,0.0683255463606,0.0683992910528,0.0683890228045,0.0684590335882,0.0684419198411,0.0684708576317,0.0686391946716,0.068674044484,0.0688971455147,0.0689005682642,0.0689018129003,0.0689120811486,0.0689951606119,0.0690465018533,0.0690987765718,0.0691373602926,0.0691031327984,0.0691479396999,0.0690561477835,0.069204259486,0.0693050750145,0.0693461480076,0.0693990450442,0.0694503862856,0.0694948820281,0.0695860516265,0.0696392598221,0.0697484766447,0.0698107084524,0.0698903651664,0.0699382836583,0.0700129618276,0.0700073609649,0.0700406549821,0.0700353652784,0.070040032664,0.0700503009123,0.0701019533127,0.0701669855518,0.0700826614523,0.070040343823,0.0700552794569,0.0700786163848,0.0701010198356,0.0701968568195,0.0702961165529,0.0703322110014,0.0702839813503,0.0701893890026,0.0702668676032,0.070361148792,0.0703987990356,0.0704081338068,0.0704401831878,0.070449517959,0.070393820491,0.0703508805437,0.0704103119201,0.0705319751042,0.0706657734909,0.070714936619,0.0707619216338,0.0708207306922,0.0708462457333,0.0708801620686,0.0709501728523,0.0710351192698,0.071084282398,0.0711701622927,0.0711020184632,0.0710696579231,0.0710880163064,0.0711446472515,0.0712121687629,0.0712096794906,0.0712062567411,0.0712622653681,0.0713297868795,0.0713313426747,0.0712952482262,0.0713456559905,0.0713605916244,0.0713475229447,0.0712893362045,0.0713521903303,0.071470119606,0.0715311067776,0.0714987462376,0.0714816324904,0.0716204094217,0.0716403236002,0.0716378343279,0.0716810854342,0.071719357996,0.0716415682363,0.0715883600407,0.0716138750819,0.0716879309331,0.0717395833335,0.0717003772946,0.0717657206928,0.0718223516378,0.0718590684044,0.0719514826389,0.0721254205416,0.0721577810816,0.0721584033997,0.0721101737487,0.0721658712166,0.0721792510553,0.0721683604889,0.0722181459351,0.0722128562314,0.0722025879832,0.0722035214603,0.0722514399522,0.0722607747234,0.072281933538,0.0722383712726,0.0722589077692,0.072305581625,0.072305892784,0.0723363863698,0.0723513220037,0.0724624057805,0.0725339723594,0.0725367727908,0.0725538865379,0.0726145625504,0.0727103995344,0.0727520948456,0.0727321806671,0.0727766764096,0.0727906785664,0.0726758608811,0.072594959531,0.072611139801,0.072667459587,0.0726767943582,0.0726098951649,0.0726117621191,0.0726154960276,0.0725694444898,0.0726024273479,0.0726550132255,0.072691107674,0.072675549722,0.0727010647632,0.0726970196957,0.0727601849806,0.0727754317735,0.07281214854,0.0728675348489,0.0729222988397,0.0729605714015,0.0729951100548,0.073076633723,0.0730725886554,0.0730613869301,0.072948747358,0.0728796700514,0.0729419018592,0.0729468804038,0.0728582000778,0.07276360773,0.0727611184577,0.0726820840618,0.0726743050859,0.0727035540355,0.0728015691327,0.072804058405,0.072811526222,0.0728827816418,0.0728827816418,0.0728877601864,0.0729042516155,0.072956215175,0.0729954212138,0.0729848418065,0.0730175135056,0.073108994263,0.0730744556097,0.0730302710262,0.0731584685501,0.0732104321096,0.0731646917309,0.0732312797652,0.0733003570718,0.0733451639734,0.073309691843,0.0732403033773,0.0732188334037,0.0731444663934,0.073028715231,0.073020625096,0.0730284040719,0.07298048558,0.0729070520468,0.0729204318855,0.0729400349049,0.072932255929,0.0729381679507,0.0729751958763,0.073020936255,0.0730676101108,0.0730333826166,0.0730704105422,0.0730897024026,0.0730380500021,0.073053296795,0.073117395557,0.0731052603545,0.0730872131303,0.0731236187378,0.0732070093602,0.0732552390112,0.0733044021393,0.0732452819219,0.073293822732,0.0732521274208,0.0732284793339,0.0733367626793,0.073382503058,0.073406773463,0.0733168485009,0.0733087583658,0.073205453565,0.0732070093602,0.0731930072034,0.0731908290902,0.0732004750204,0.0731457110296,0.073117395557,0.0730912581978,0.073076944882,0.0730710328603,0.0730165800285,0.07302902639,0.0730355607298,0.0730875242893,0.0730897024026,0.0730504963637,0.0730648096795,0.0730305821852,0.0729615048786,0.0729191872494,0.072948747358,0.0729527924255,0.0730187581417,0.0729845306475,0.0729331894061,0.072908296683,0.0728432644439,0.0727682751156,0.0727766764096,0.0727424489154,0.0727629854119,0.0726867514474,0.072546418721,0.0725131247038,0.072563221309,0.0726394552735,0.0726870626065,0.0727561399131,0.0727782322048,0.0728146378123,0.072803747246,0.0728385970583,0.0729064297288,0.0728899382997,0.0728725133935,0.0728479318295,0.0727822772723,0.0728043695641,0.072819927516,0.0728460648753,0.0728189940389,0.0727356034165,0.0726951527415,0.0727903674073,0.0728028137689,0.0727841442265,0.072828017651,0.0727748094554,0.0728003244966,0.0728802923695,0.072924476953,0.0729783074667,0.0729708396498,0.0728865155503,0.0727906785664,0.0727390261659,0.0727608072986,0.0727324918261,0.0727328029852,0.0725878028731,0.0725591762415,0.0725420624944,0.07256291015,0.0725703779669,0.0726531462712,0.0727309360309,0.0726976420138,0.0727100883753,0.0726543909074,0.0727533394817,0.0727203566236,0.0728168159256,0.0728071699954,0.0728065476773,0.0726780389943,0.0726519016351,0.0726581248159,0.07274742746,0.0727023093994,0.072635099047,0.0727380926888,0.0727452493467,0.072691107674,0.0726795947895,0.0727853888627,0.0727589403444,0.0728435756029,0.0727128888067,0.0727819661133,0.0728053030412,0.0726985754909,0.0726123844372,0.0726680819051,0.0727007536042,0.0726248307987,0.0726811505847,0.0726263865939,0.0726845733342,0.0726820840618,0.0725597985596,0.0725034787736,0.0725125023857,0.0724801418457,0.0724356461032,0.072562598991,0.0724717405517,0.0723998628137,0.0723310966662,0.072265753268,0.0723563005483,0.0724785860505,0.072506901523,0.0725576204464,0.0725367727908,0.072466762007,0.0725125023857,0.0726167406637,0.0726042943022,0.0726251419578,0.0726102063239,0.072571000285,0.0725249487473,0.0723752812497,0.0723037146707,0.0723503885266,0.0723506996856,0.0722134785495,0.072305581625,0.0722881567188,0.0723208284179,0.0723628348881,0.072370302705,0.072450581737,0.0725265045425,0.0724602276672,0.0723833713847,0.0724779637324,0.0724624057805,0.0724975667519,0.07253054961,0.0725507749475,0.0725890475093,0.072651590476,0.072659058293,0.072691418833,0.0727872558169,0.0727965905881,0.072835796627,0.0728466871933,0.0728448202391,0.0727107106934,0.072691107674,0.072643500341,0.0727343587803,0.0727259574863,0.0726892407197,0.0727418265973,0.0726858179703,0.0727119553296,0.0726851956522,0.0727626742529,0.0727642300481,0.0728177494027,0.0727909897254,0.0728385970583,0.0729148310228,0.0729188760903,0.0729341228832,0.0729191872494,0.0729453246086,0.0729832860113,0.0730638762024,0.0730704105422,0.0731482003019,0.0732070093602,0.0732250565844,0.0732527497389,0.0733635223567,0.0734027283955,0.0734568700683,0.0735007434927,0.0734886082902,0.0735206576712,0.0735446169172,0.0736973960052,0.0737661621528,0.0737845205361,0.0738610656596,0.0740141559066,0.0740869671217,0.0741871603322,0.0743666990975,0.07449863053,0.0745994460585,0.0745580619063,0.0745372142508,0.0746380297793,0.0747164418571,0.0747279547415,0.0748586415378,0.0749610128615,0.0750378691441,0.0751137919495,0.0751589100101,0.07518162462,0.0752855517389,0.0753281805272,0.0753732985878,0.0754622900729,0.0755805305076,0.0756256485682,0.0756729447421,0.0758123439915,0.0758851552065,0.0760226875017,0.0761403056183,0.0763282456777,0.0764467972714,0.0765952201329,0.0766344261718,0.0767760035344,0.0768416580916,0.0768684177689,0.0769645659119,0.0770529350789,0.0771086325468,0.0771627742196,0.0773236434426,0.0774281928796,0.0774627315329,0.0774916693235,0.0776733862021,0.0777362403279,0.0778684829194,0.0779341374766,0.0781681290737,0.078299438188,0.0782708115565,0.0783031720965,0.0785281400815,0.078668472808,0.0787033226203,0.0788442776649,0.078861080253,0.0789948786396,0.0790676898547,0.079190597675,0.0793206621532,0.079448237359,0.0795537202732,0.0797139671781,0.0797958020053,0.0799211990979,0.0801611027168,0.080323838894,0.0804047402441,0.0805236029969,0.0806552232703,0.0807563499579,0.0808282276958,0.0808434744887,0.0810242578902,0.0811969511567,0.0813484856086,0.0813976487367,0.0815544728922,0.0815550952103,0.0817106747296,0.0818815010419,0.0819904067055,0.0822128854182,0.0823252138311,0.0824328748585,0.0824434542659,0.0825501818161,0.0826226818722,0.0828342700185,0.0829285512072,0.0830458581648,0.0831945921853,0.0833529721361,0.0834699679346,0.083553669716,0.0837257406645,0.0839012343623,0.0840362773851,0.0841423826173,0.0843048076355,0.0844784343792,0.0845263528711,0.084637747807,0.0847650118538,0.0849339712119,0.0850839498685,0.0853107848078,0.0854038213603,0.0855102377516,0.0855880275113,0.0857610319368,0.0859888003531,0.0861201094675,0.0862274593359,0.0863509894742,0.0864959895863,0.0865716012327,0.0868105713744,0.0869649062576,0.0870980823262,0.087200764809,0.0873246061064,0.0874552929027,0.087594380993,0.0877580506474,0.0879220314608,0.08808414532,0.0881930509835,0.0883626326596,0.0885695534204,0.0887450471182,0.0889457446982,0.0889908627588,0.0892245431969,0.0893430947907,0.0894463995915,0.0896788353935,0.0897952088739,0.0899131381496,0.0900372906061,0.090140906566,0.0902719045213,0.0904894046893,0.0906253811893,0.0907641581205,0.090912269823,0.0909748127898,0.0912240511798,0.0914138581934,0.0916058433203,0.0916923455331,0.0918793521154,0.0920218629551,0.092077560423,0.092157528296,0.0923159082467,0.0924571744503,0.0925377646413,0.0926541381218,0.0927257047007,0.0929176898276,0.0929643636834,0.0931308337691,0.0934052760413,0.0936734951327,0.0939818537401,0.0943539999504,0.0946754272374,0.0950867794866,0.0955112004154,0.0960003424243,0.0965346024938,0.0970060084375,0.0974911053789,0.0978358695938,0.0982024149414,0.0984865031438,0.0988399798118,0.0991290465587,0.0993621046787,0.0994725661375,0.0995690254395,0.0997871479256,0.0998652488444,0.100188543086,0.100305850043,0.100477920992,0.100587137814,0.100776011351,0.100913543646,0.101123575997,0.101348855141,0.101476741506,0.10172784685,0.101840175263,0.101995443624,0.102192096136,0.102322160614,0.102416130644,0.102634875448,0.102820948553,0.10289967179,0.10306800883,0.103125573252,0.10324288021,0.10338850264,0.103439532722,0.103649253914,0.103762515804,0.103886668261,0.103981882927,0.104199694254,0.10434656132,0.104586464939,0.104775338476,0.104929984518,0.105256701508,0.105450864749,0.1056608971,0.105952764278,0.106234363208,0.106420436313,0.106567614539,0.106851080423,0.107119610673,0.107448194618,0.107614664704,0.107864525412,0.108123720891,0.108245695234,0.108440169634,0.108673538913,0.108876103447,0.109009590675,0.109233002864,0.10931546001,0.109550696243,0.109721522555,0.109929065634,0.110216887745,0.110367177561,0.110493196971,0.110706963231,0.110978916231,0.111069152352,0.111317457265,0.111441609721,0.111637639916,0.111780150755,0.11190803712,0.112047125211,0.112168166077,0.112400913038,0.112432340101,0.112573295145,0.112670065606,0.112838091487,0.112881031434,0.112995226802,0.113022297638,0.113139915755,0.113288027457,0.113232641148,0.113304518886,0.113361149831,0.113416847299,0.113267490961,0.11332598886,0.113355548969,0.113455119861,0.113422759321,0.113408757164,0.11348125722,0.113417158458,0.113490591991,0.113534776575,0.113633102831,0.113588918248,0.113580828113,0.113557180026,0.113595763746,0.113675731619,0.113712759545,0.113764723104,0.113707781,0.113635903262,0.113664529894,0.113676665096,0.113738585745,0.113787748873,0.113781525693,0.113853092271,0.11393119319,0.113933371303,0.113880785426,0.113918124511,0.11387954079,0.114030764083,0.113984401386,0.113924970009,0.114036053786,0.11405410101,0.114028897128,0.114045077398,0.114164562469,0.114176697672,0.114224927323,0.114204390826,0.114242974547,0.114233639776,0.114195989532,0.114105442252,0.114094240526,0.114088017346,0.114032631037,0.113956085913,0.114015828449,0.113952040846,0.113933682462,0.113907233944,0.113783392647,0.113781525693,0.113704980569,0.113627190809,0.113631547036,0.113634347467,0.113483435333,0.113431471774,0.113390398781,0.113366439535,0.113380752851,0.113321321474,0.113288960934,0.11325784503,0.1131122226,0.112969400601,0.112840580759,0.112664775903,0.112538134174,0.112456299347,0.112214528774,0.112043080143,0.111760547736,0.11167840175,0.111490150531,0.111321502332,0.111168723244,0.111078487123,0.110910461242,0.110714431048,0.110698250778,0.110660600534,0.110660600534,0.110435632549,0.110319881387,0.11023151222,0.110145632325,0.109980095716,0.109715610533,0.109574033171,0.10939947295,0.10900772372,0.108765953147,0.108586414382,0.108442036588,0.10826996564,0.108070201537,0.107918978244,0.107818473874,0.107637379314,0.10739903149,0.107355780384,0.10714668151,0.106988301559,0.106824631905,0.106697679017,0.106529653136,0.106357271028,0.106210092803,0.105983880182,0.105865950906,0.105719394999,0.105666497962,0.105522742487,0.105341025608,0.105106722852,0.10496825708,0.104795252654,0.104620692433,0.104474447685,0.104298642828,0.104163910964,0.103991528857,0.103813857046,0.103684726045,0.103655165936,0.103450734448,0.103260616275,0.103146109749,0.103092901553,0.102933588125,0.102671592215,0.102368212152,0.102251216353,0.102104349287,0.101894316936,0.101777632296,0.101613029165,0.101533994769,0.101343876596,0.10122283573,0.101139756267,0.101113307749,0.100926612325,0.100735249517,0.100537352368,0.100314873655,0.100156182546,0.0999109892231,0.0996785534211,0.0994650983206,0.0992805810106,0.0991218899008,0.0989277266607,0.0987796149582,0.0986305697787,0.0984398292879,0.0982484664791,0.0980483912172,0.0979130370354,0.0977120282964,0.0975259551912,0.0971964377692,0.0970122316183,0.0968071778117,0.096672757107,0.0965374029251,0.0963662654538,0.0961615228064,0.0958562757894,0.0956910503398,0.0955292476397,0.0954891081237,0.0953369513537,0.0951275413207,0.0948633672968,0.094624085996,0.0944666395224,0.0941990427491,0.0940742679746,0.0939448258144,0.093676295564,0.0933878511351,0.0931121642268,0.0929086662155,0.0927530866961,0.0925928397912,0.0923124854973,0.0921600175683,0.0919814122801,0.0918006288786,0.0916714978775,0.091547034262,0.09128223792,0.0909418299317,0.0905093188678,0.0901689108795,0.0898490393876,0.0894856056304,0.0890446932725,0.0885337701309,0.0879855079047,0.0874223100446,0.0871295093891,0.0868541336399,0.0865862257075,0.0862896911436,0.0860127595991,0.0857940147949,0.0855715360822,0.0853493685286,0.0852189928913,0.0850907953674,0.0848533810208,0.0846626405301,0.084573960204,0.0843779300096,0.0841514062294,0.0839821357124,0.0838480261667,0.083722006756,0.0835393564003,0.0835023284747,0.0833744421097,0.083200193048,0.0830035405356,0.0828977464624,0.0828501391295,0.0826805574534,0.0825620058596,0.0824755036468,0.082323969195,0.0821319840681,0.0819608465968,0.081842295003,0.0817467691781,0.0816366188784,0.0814807282,0.0813232817264,0.081150899619,0.0810339038204,0.0809175303399,0.0807647512519,0.0805817897371,0.0804514140999,0.0803222830988,0.0802136885943,0.0800350833061,0.0799501368885,0.0798073148897,0.0796125293315,0.0795465636153,0.0793632909415,0.0794329905661,0.0793692029632,0.0791162306647,0.0789478936248,0.0789005974509,0.0787543527027,0.078668783967,0.0785937946387,0.0784323030976,0.0783688266537,0.078211069021,0.0780489551619,0.0780729144078,0.0779814336505,0.0778725279869,0.0778439013553,0.0777228604893,0.0775526564951,0.0774257036073,0.0773805855467,0.0772433644106,0.0771960682367,0.0770684930308,0.0769841689313,0.076877441381,0.0767355528594,0.0766817223457,0.0766300699453,0.0765665935014,0.0764128809362,0.0763192220656,0.0762510782361,0.076242676942,0.0761119901458,0.0760482025428,0.0760142862076,0.0759144041562,0.0758316358519,0.0757837173599,0.0757824727238,0.0756916142844,0.0755556377845,0.0753704981565,0.0753113779391,0.0752594143796,0.0750808090914,0.0750272897368,0.0750145322162,0.0749317639119,0.0748440170629,0.0748231694073,0.0747715170069,0.0747628045538,0.0747466242838,0.0746825255218,0.0747074182449,0.0746819032038,0.0745428151135,0.0745387700459,0.0743816347314,0.0743209587188,0.0742139200095,0.0741121710038,0.0740365593574,0.0739435228049,0.0738903146092,0.0738470635028,0.0737891879216,0.0737048638221,0.0737135762752,0.0736065375659,0.0735975139538,0.0735968916357,0.0735642199366,0.0735785332524,0.0734932756758,0.0734487799333,0.0734453571838,0.0734792735191,0.0734963872662,0.073478340042,0.0735019881289,0.0734204644607,0.0733165373418,0.0732434149677,0.0732269235387,0.0732250565844,0.0731534900055,0.0730352495708,0.0729879533969,0.0729683503775,0.0728883825045,0.0729232323169,0.0729048739336,0.072932567088,0.0729994662813,0.0729011400251,0.0729263439072,0.0728501099428,0.072747738619,0.0726929746282,0.0726649703147,0.0726609252472,0.072691107674,0.0725361504727,0.072474540983,0.0724306675585,0.0723755924087,0.0723286073938,0.072410131062,0.0724365795803,0.072386482975,0.072241171704,0.0722228133207,0.0722946910586,0.0722047660964,0.0722041437784,0.0721960536433,0.0722268583882,0.0721409784935,0.0720373625336,0.0720096693791,0.0719614397281,0.0718568902911,0.0717576305578,0.0717688322832,0.0717482957866,0.0716499695304,0.0716810854342,0.0716505918485,0.0717056669983,0.0716848193427,0.0717370940612,0.0717977700738,0.0718329310451,0.0717588751939,0.0717302485624,0.0717538966493,0.0716496583713,0.0716253879663,0.0715731132478,0.0716431240315,0.0716751734125,0.0716745510944,0.0716530811208,0.0716490360533,0.0715488428428,0.0715678235441,0.0716104523325,0.0716045403107,0.0716885532512,0.0716263214434,0.071566267749,0.0715027913051,0.071494390011,0.0715519544332,0.0716481025761,0.0716014287203,0.0716350338965,0.0716757957306,0.0716456133038,0.0716655274823,0.0716474802581,0.0716589931425,0.0716913536825,0.0716857528198,0.0716910425235,0.0716913536825,0.0716088965373,0.0716241433302,0.0715457312524,0.0714763427868,0.0715146153485,0.071590849313,0.0715214608474,0.0715497763199,0.0716076519011,0.0716120081276,0.071654948075,0.071639078964,0.0716901090464,0.0717184245189,0.0716739287764,0.0715868042455,0.0716412570773,0.0715491540018,0.0714750981506,0.0715034136231,0.0715289286643,0.0714498942685,0.0713889070969,0.0714306024081,0.0714595401987,0.0713885959378,0.0714215787959,0.0715236389606,0.0715519544332,0.0716331669423,0.0716403236002,0.0717090897477,0.0717990147099,0.0718195512065,0.0718811606962,0.0720137144466,0.0720102916972,0.0719776199982,0.0720230492178,0.0720171371961,0.0720557209169,0.0720295835576,0.071936547005,0.0719984676538,0.0719486822076,0.0719371693231,0.0719228560073,0.0719396585954,0.0718976521252,0.0718388430669,0.0717791005314,0.0717473623095,0.0717800340086,0.0716891755693,0.0717078451116,0.071775677782,0.0717184245189,0.0716095188553,0.0716779738439,0.0717009996127,0.0717650983747,0.0718792937419,0.0719035641469,0.0720202487865,0.0720034461984,0.0719172551446,0.071976375362,0.0720333174661,0.0719994011309,0.0719626843643,0.071904186465,0.0718534675417,0.0718363537946,0.0717467399914,0.071751718536,0.0717962142786,0.0718055490497,0.0718279525005,0.0718198623655,0.0718814718552,0.0647123676028,0.0575317504661,0.0503738479391,0.0431854518264,0.0)
ycorr <- c(4.48985792786e-05,4.47384370287e-05,4.42617891448e-05,4.34605915911e-05,4.23336254616e-05,4.0878565458e-05,3.9096397067e-05,3.73125127342e-05,3.55303364469e-05,3.37472882239e-05,3.19577868595e-05,3.01606558234e-05,2.83530331801e-05,2.65336764248e-05,2.47061436965e-05,2.28680797213e-05,2.10232445786e-05,1.91739050805e-05,1.7316561863e-05,1.54489102577e-05,1.35733564497e-05,1.1688291855e-05,9.79450848472e-06,7.89407470565e-06,5.98552084837e-06,4.07193564105e-06,2.14881277083e-06,2.14707651928e-07,-1.7337711695e-06,-3.6916354505e-06,-5.65948241095e-06,-7.63547383128e-06,-9.61959270133e-06,-1.16143799565e-05,-1.36191772506e-05,-1.5639629399e-05,-1.76756596356e-05,-1.97244646812e-05,-2.17880724177e-05,-2.38666222334e-05,-2.59619038303e-05,-2.80742910912e-05,-3.0207571897e-05,-3.2359089719e-05,-3.45304859036e-05,-3.67190344213e-05,-3.89216813679e-05,-4.11420843356e-05,-4.33773601777e-05,-4.56257895287e-05,-4.78868423946e-05,-5.01586939007e-05,-5.24401969136e-05,-5.47331521511e-05,-5.70358761846e-05,-5.9348750882e-05,-6.16734745124e-05,-6.40084635928e-05,-6.6353822396e-05,-6.87109134877e-05,-7.10799690819e-05,-7.3462071348e-05,-7.58599355056e-05,-7.82701391967e-05,-8.06918781343e-05,-8.31254795425e-05,-8.55704744584e-05,-8.80252192991e-05,-9.04884946861e-05,-9.29587207007e-05,-9.54351032194e-05,-9.79202027583e-05,-0.000100407966772,-0.000102897084497,-0.000105389640174,-0.000107882638497,-0.00011037425445,-0.000112864789906,-0.00011535541221,-0.000117848197286,-0.000120343864501,-0.000122838632211,-0.000125330802159,-0.00012782415744,-0.000130317541985,-0.000132808800416,-0.000135300480505,-0.000137793949215,-0.000140286664125,-0.000142775322203,-0.000145255851455,-0.000147727717255,-0.000150194198006,-0.000152655687324,-0.000155111031683,-0.000157561612087,-0.000160007540552,-0.000162446505932,-0.000164879670761,-0.000167308164153,-0.000169737559231,-0.000172170976341,-0.000174605761395,-0.000177040333925,-0.000179471304752,-0.000181900807874,-0.000184327042406,-0.000186753625116,-0.000189179829894,-0.0001916046502,-0.000194027453717,-0.000196445072177,-0.000198856313996,-0.000201259540299,-0.000203658213203,-0.000206051892978,-0.000208444040824,-0.000210832557219,-0.000213215441357,-0.000215595699669,-0.000217973647295,-0.000220348225906,-0.000222720283549,-0.000225093237889,-0.000227469158531,-0.000229847564329,-0.000232228579014,-0.000234607769188,-0.000236986196689,-0.000239363640277,-0.000241735131049,-0.000244101938333,-0.000246464380889,-0.000248821721942,-0.000251170856382,-0.000253514482239,-0.000255850373025,-0.000258179731997,-0.000260501852135,-0.00026281525717,-0.000265123146795,-0.000267426061768,-0.000269723474709,-0.000272016118479,-0.000274304122091,-0.000276582378174,-0.000278848947115,-0.000281105959397,-0.000283353850255,-0.000285595258365,-0.000287830773659,-0.000290058115729,-0.000292277873508,-0.000294486165102,-0.000296679621175,-0.000298859504016,-0.000301027534039,-0.000303184269175,-0.000305329517976,-0.000307457448932,-0.000309565846926,-0.00031165322979,-0.000313720802892,-0.00031576830084,-0.000317798237041,-0.000319812140897,-0.000321810635362,-0.000323793505615,-0.000325759583642,-0.000327711873638,-0.00032965525868,-0.000331590102427,-0.000333515137615,-0.000335429005406,-0.000337334136411,-0.000339231183632,-0.000341118331142,-0.000342990494768,-0.000344850305708,-0.000346696695856,-0.000348520800226,-0.000350323392999,-0.000352103982431,-0.000353865803172,-0.000355607307401,-0.000357325611147,-0.000359021479325,-0.000360699228356,-0.000362359567323,-0.000364001071823,-0.000365628051498,-0.000367243518972,-0.000368847364228,-0.000370439417403,-0.000372021725292,-0.000373594578269,-0.00037515883306,-0.000376712524664,-0.000378252618204,-0.000379782939769,-0.000381304523549,-0.000382816174067,-0.000384319134658,-0.00038581136843,-0.000387289659412,-0.000388753670572,-0.000390204125578,-0.000391640528644,-0.000393064084765,-0.000394474345245,-0.000395871218702,-0.00039725451032,-0.000398621520209,-0.000399974043553,-0.000401316632269,-0.000402648717432,-0.000403967814959,-0.000405276687251,-0.000406577409507,-0.000407869118291,-0.000409148842564,-0.000410412533916,-0.000411662782399,-0.000412902134779,-0.000414129869042,-0.000415346103265,-0.000416553323515,-0.00041775449177,-0.000418945616167,-0.000420124636823,-0.000421293987203,-0.000422459472309,-0.000423622427732,-0.000424777819916,-0.000425921218048,-0.000427050840904,-0.000428163960583,-0.000429259560155,-0.000430336262315,-0.000431397000574,-0.000432442850705,-0.000433471594402,-0.000434480304089,-0.000435472312864,-0.000436451017925,-0.000437417389213,-0.000438373200679,-0.000439317922582,-0.000440253451774,-0.000441178407234,-0.000442091103008,-0.000442988639047,-0.000443872751355,-0.00044474306624,-0.000445598826222,-0.000446441035575,-0.000447271031286,-0.000448086789187,-0.000448885234026,-0.000449667208364,-0.00045043562143,-0.000451193250285,-0.000451942205638,-0.000452680378129,-0.000453407280147,-0.000454119604613,-0.000454815810556,-0.000455494300635,-0.000456159904306,-0.000456816220532,-0.000457459313608,-0.000458086117508,-0.000458693520901,-0.000459282228805,-0.000459854141544,-0.000460412566875,-0.000460958614467,-0.000461493159282,-0.000462017498744,-0.000462528939576,-0.000463027410816,-0.000463515164876,-0.000463989118926,-0.000464446183366,-0.000464881420685,-0.000465292149933,-0.000465674903759,-0.000466028507962,-0.000466347076959,-0.00046662597907,-0.000466860188023,-0.000467046171494,-0.000467188817808,-0.000467294388802,-0.000467367354534,-0.000467411575518,-0.000467428421616,-0.000467420950533,-0.000467393164841,-0.000467351047037,-0.00046730254555,-0.000467253560741,-0.000467205654839,-0.000467154791367,-0.000467102205351,-0.000467046000905,-0.000466985758019,-0.000466922844523,-0.000466856371019,-0.000466785041407,-0.000466706213693,-0.000466619753042,-0.000466523899706,-0.000466419047862,-0.000466303707928,-0.000466175442138,-0.000466037147962,-0.000465888516197,-0.000465729978747,-0.000465562362876,-0.000465384276285,-0.000465197881375,-0.00046499981653,-0.000464792487551,-0.000464578193252,-0.00046435941245,-0.000464135551507,-0.000463903816326,-0.000463664715585,-0.000463417750621,-0.000463163715848,-0.000462901892617,-0.000462630983855,-0.000462350702103,-0.000462059561524,-0.00046175795535,-0.00046144421037,-0.00046112119133,-0.000460789302,-0.000460448175007,-0.000460098414008,-0.000459737292371,-0.000459371580483,-0.000459003060101,-0.000458628260558,-0.000458246817828,-0.000457859117537,-0.000457464738283,-0.00045706271815,-0.000456655293805,-0.000456243075202,-0.000455825891005,-0.000455403655841,-0.000454969498733,-0.00045452713767,-0.00045408038529,-0.000453629587298,-0.000453174320202,-0.000452713818818,-0.000452244665646,-0.000451764896929,-0.000451277758578,-0.000450780745875,-0.000450277717511,-0.000449769149275,-0.000449250448632,-0.000448720652123,-0.00044817764126,-0.000447622278226,-0.000447057936217,-0.000446486846668,-0.000445908002639,-0.000445319530738,-0.000444723829448,-0.000444120909727,-0.000443511193973,-0.00044289621221,-0.000442279836977,-0.000441662289676,-0.000441040769745,-0.00044041516845,-0.000439786354361,-0.000439154527564,-0.000438516867444,-0.000437869730328,-0.000437212492053,-0.000436545866522,-0.000435865983183,-0.000435172853291,-0.000434470668644,-0.000433759200784,-0.000433035678789,-0.000432300374334,-0.00043155573229,-0.000430804720235,-0.00043005088297,-0.000429292774914,-0.00042853149282,-0.000427770571139,-0.000427004281274,-0.000426232286731,-0.000425453105278,-0.00042466927974,-0.000423877698931,-0.00042307761543,-0.000422268317762,-0.00042144849227,-0.00042061886869,-0.000419778271111,-0.000418925565035,-0.000418063144912,-0.000417190967054,-0.000416309237381,-0.000415418560826,-0.000414521477206,-0.00041361691473,-0.00041270614011,-0.000411788386949,-0.000410862123593,-0.000409928645663,-0.000408988767002,-0.000408044333389,-0.000407092519484,-0.000406135499597,-0.000405169719522,-0.000404193161477,-0.000403206143131,-0.000402207550678,-0.000401199306155,-0.000400180689561,-0.000399149357946,-0.000398105360966,-0.000397049397855,-0.000395981269977,-0.000394902137864,-0.000393813219668,-0.000392717623625,-0.000391617272732,-0.000390508505338,-0.000389391046204,-0.000388262803823,-0.000387122943519,-0.000385969913636,-0.000384802856037,-0.000383623101771,-0.000382430132455,-0.000381221238506,-0.000379994756898,-0.000378749180026,-0.00037748759611,-0.000376210847281,-0.00037492478952,-0.000373632041927,-0.000372331822116,-0.00037102093534,-0.000369700738503,-0.000368370664444,-0.000367031220738,-0.000365683519771,-0.000364327980261,-0.000362965456644,-0.000361591714571,-0.000360201494123,-0.000358793644313,-0.000357368925171,-0.000355927566324,-0.00035446789373,-0.000352990878754,-0.000351499006127,-0.000349988711926,-0.000348460690272,-0.000346914110852,-0.000345354305171,-0.000343784356449,-0.000342206209446,-0.000340620157572,-0.000339027126805,-0.000337423835969,-0.000335807531057,-0.000334178735382,-0.00033253723555,-0.000330881980105,-0.000329211928346,-0.000327525413602,-0.000325820859897,-0.000324097070586,-0.000322353782501,-0.000320593335185,-0.000318816397492,-0.000317026701098,-0.000315223767478,-0.000313408367647,-0.000311581855814,-0.000309742656653,-0.000307888642102,-0.000306019628643,-0.00030413518039,-0.000302236592064,-0.000300325302599,-0.000298399910154,-0.000296459482968,-0.00029450390337,-0.000292532275968,-0.0002905435536,-0.000288540403927,-0.000286523055404,-0.000284493701608,-0.000282450918561,-0.000280392549671,-0.000278315960305,-0.000276221799755,-0.000274109749254,-0.000271977970001,-0.000269827260167,-0.000267658083852,-0.000265472213309,-0.000263266713811,-0.000261042501587,-0.000258802229999,-0.000256545269775,-0.000254272380614,-0.000251984570718,-0.000249681451957,-0.000247365179041,-0.00024503439382,-0.000242686486778,-0.000240321342001,-0.00023793911583,-0.000235537138557,-0.000233115965121,-0.000230677250034,-0.000228217977513,-0.000225739160991,-0.000223240666289,-0.000220721984282,-0.000218183277903,-0.000215627445873,-0.000213054061411,-0.000210465304353,-0.000207863089675,-0.000205244422515,-0.000202611759016,-0.000199967846702,-0.000197312005041,-0.000194643510462,-0.000191963843583,-0.000189272683211,-0.000186567018005,-0.000183845445212,-0.000181107538338,-0.000178353397507,-0.000175581532494,-0.000172787035333,-0.000169972555491,-0.000167138522287,-0.000164284000596,-0.00016140708978,-0.000158510753968,-0.000155595591385,-0.000152661284063,-0.000149707272989,-0.000146732109396,-0.000143738912499,-0.000140726324811,-0.000137692103148,-0.000134638847623,-0.000131566441803,-0.000128474024383,-0.000125363720918,-0.000122235590729,-0.000119090662139,-0.000115932267655,-0.000112760150465,-0.000109576129311,-0.000106381938333,-0.000103173618064,-9.99508348892e-05,-9.67142102635e-05,-9.34627751401e-05,-9.01932420375e-05,-8.69055002927e-05,-8.35994094051e-05,-8.02735591977e-05,-7.6925759898e-05,-7.35543787146e-05,-7.01628588667e-05,-6.67530274217e-05,-6.33247155355e-05,-5.98780069929e-05,-5.64156828589e-05,-5.27745716915e-05,-4.87892768615e-05,-4.43217347017e-05,-3.92616962679e-05,-3.27084851885e-05,-2.75970172321e-05,-2.30754998193e-05,-1.90502886662e-05,-1.53971559168e-05,-1.19674656941e-05,-8.60324693544e-06,-5.46685211525e-06,-2.72430766309e-06,-5.13583827142e-07,1.05687401104e-06,1.08200154918e-06,2.49742011119e-06,4.45352237026e-06,6.85549985648e-06,9.58217609993e-06,1.24814455801e-05,1.53946941231e-05,1.8321184003e-05,2.1260666834e-05,2.42148171605e-05,2.71830493184e-05,3.01653198233e-05,3.31612527682e-05,3.61722443679e-05,3.91972331273e-05,4.22352448185e-05,4.52912483618e-05,4.83650594136e-05,5.14561146249e-05,5.4563766193e-05,5.76872926401e-05,6.08280470947e-05,6.39871002448e-05,6.7162537313e-05,7.03521371165e-05,7.35578580755e-05,7.67780765514e-05,8.00128731601e-05,8.32633565906e-05,8.65276074227e-05,8.98061453617e-05,9.30994582654e-05,9.64050171898e-05,9.97245677486e-05,0.000103060654451,0.000106413303667,0.000109780104107,0.000113160738258,0.000116554106109,0.000119962926173,0.000123387747009,0.000126824804542,0.000130274751711,0.000133735837449,0.000137206136292,0.000140687840697,0.000144181604206,0.000147688346962,0.000151206215826,0.000154730986379,0.000158260829867,0.000161799432301,0.00016535002123,0.00016891035497,0.000172484180137,0.000176068379844,0.000179660396011,0.000183258153982,0.000186863282298,0.000190479869779,0.000194111937318,0.000197755045842,0.000201406468334,0.000205065500222,0.000208729566327,0.00021239811346,0.000216072872948,0.000219755131055,0.000223445216277,0.000227141986897,0.000230841012895,0.000234542375762,0.000238248073052,0.000241956841387,0.000245671049592,0.000249390723301,0.00025311595694,0.000256846960272,0.000260583826594,0.000264325619718,0.000268071709399,0.000271823834221,0.000275580756656,0.000279343517909,0.000283111196045,0.000286881862179,0.000290655961536,0.000294431362277,0.000298205945432,0.000301978476772,0.000305749498797,0.000309519999549,0.000313288018577,0.00031705313057,0.000320809568477,0.000324560761819,0.000328304408147,0.000332043054359,0.000335777936422,0.000339511774079,0.00034324121722,0.000346965601696,0.000350684211316,0.000354398370894,0.000358110592995,0.000361824601076,0.00036553813438,0.000369250557492,0.000372958840346,0.0003766600182,0.000380355016947,0.000384043276398,0.000387726124907,0.000391399234987,0.000395064167779,0.000398715450549,0.000402355815172,0.000405984461972,0.000409604013571,0.000413215344342,0.000416818218899,0.000420413787218,0.000424001619249,0.000427582693758,0.000431157563325,0.000434725012369,0.000438285297763,0.000441836380729,0.000445375203749,0.000448899728721,0.000452412185025,0.000455912385053,0.000459397660439,0.000462868605127,0.000466322895725,0.000469762736729,0.000473185524054,0.000476592394633,0.00047998325039,0.000483362049616,0.000486728548391,0.00049007725043,0.000493407591248,0.00049672044257,0.000500016334275,0.000503294109476,0.000506555983054,0.000509800909738,0.000513029610864,0.000516238669653,0.000519425013193,0.000522591158197,0.0005257381353,0.000528866848576,0.000531976178264,0.000535066030083,0.000538134932488,0.000541182186665,0.000544206890773,0.000547209090937,0.000550188629121,0.000553146028961,0.000556080791233,0.00055899494943,0.000561885470532,0.000564752104372,0.000567592117158,0.000570404643933,0.000573188065431,0.000575942890746,0.000578670909537,0.000581373064512,0.000584050829834,0.000586701057999,0.000589322403629,0.000591915864984,0.000594480495414,0.000597017695044,0.000599528163853,0.000602013324684,0.000604474726965,0.000606908130542,0.000609312522224,0.000611684308285,0.000614025959892,0.000616335744437,0.000618613786778,0.00062086055607,0.000623078354258,0.00062526821502,0.000627424664823,0.000629548662554,0.000631641171699,0.000633702435682,0.000635732843887,0.000637731821869,0.000639700671446,0.000641641586992,0.00064355184768,0.000645427900896,0.000647270520667,0.000649079148913,0.000650852506573,0.000652589314282,0.000654290877754,0.000655956998204,0.000657586352312,0.000659178081593,0.000660732878966,0.000662251603541,0.000663735268735,0.00066518566932,0.000666603790321,0.000667988632232,0.000669341819069,0.000670663416682,0.00067195551813,0.000673217970279,0.000674449474825,0.000675646730575,0.000676808741848,0.000677932851037,0.000679017451334,0.000680068151285,0.000681084293732,0.000682063976682,0.000683006067656,0.000683907825616,0.000684768484608,0.000685589968587,0.000686375517497,0.000687127435129,0.000687848373884,0.00068853495144,0.000689182104035,0.000689792016573,0.000690363312867,0.000690897451366,0.000691394348539,0.000691854534958,0.000692275783027,0.000692656359197,0.00069299135659,0.00069328285679,0.000693532411608,0.000693739669937,0.000693905360371,0.000694029635832,0.000694112339314,0.000694156323531,0.000694161092548,0.0006941265892,0.000694054789907,0.000693945869832,0.000693797437705,0.000693610572875,0.000693383774285,0.000693118000322,0.000692814515845,0.000692469577113,0.00069207909268,0.000691645791921,0.000691170330028,0.000690650927036,0.000690093690482,0.000689498160539,0.000688866324528,0.000688195532983,0.000687485063105,0.000686736958983,0.000685955275465,0.000685140588289,0.000684290872352,0.000683407338039,0.000682487405817,0.00068152918805,0.000680532075036,0.000679495381992,0.000678422513345,0.000677309529993,0.00067615517076,0.000674960545648,0.000673727818259,0.000672454928178,0.000671142248957,0.000669788473046,0.000668396305738,0.000666968493305,0.000665502533389,0.000663998683566,0.000662459798031,0.000660882728104,0.000659262579738,0.000657601401074,0.000655899117761,0.000654158755888,0.000652380441348,0.000650558954451,0.000648693186502,0.000646785493287,0.000644837176875,0.000642849541361,0.00064082751907,0.00063877220805,0.00063668037583,0.000634551566283,0.00063238361614,0.000630178777258,0.000627941470091,0.000625672316297,0.000623368476939,0.000621028161585,0.000618649153203,0.000616229859387,0.000613775991821,0.000611288700493,0.000608768285012,0.000606217919668,0.000603635991676,0.000601018936586,0.000598367796908,0.000595685433238,0.000592974554018,0.000590235663869,0.000587466341612,0.000584665769707,0.000581835010409,0.000578971267339,0.000576071578819,0.000573138272197,0.000570172212828,0.000567172127638,0.000564138165229,0.00056107285201,0.0005579761518,0.000554849667886,0.0005516906297,0.000548500670351,0.00054528368759,0.000542039861869,0.000538769765206,0.000535475141969,0.000532154373752,0.000528804544745,0.000525424058964,0.000522011761661,0.00051857018774,0.000515101160344,0.000511604396131,0.000508083542817,0.000504535059555,0.000500956085965,0.000497349596801,0.000493717204297,0.000490060935716,0.000486382981167,0.000482683991953,0.000478962076058,0.000475215826715,0.000471441430339,0.00046763813343,0.000463812258529,0.000459964702698,0.000456092339395,0.000452195772055,0.000448271686664,0.000444318733777,0.000440338851741,0.000436333643976,0.000432306829511,0.000428263560335,0.000424202100313,0.000420117716803,0.000416012997817,0.000411888342856,0.000407745537765,0.000403588318281,0.000399416891,0.000395230819275,0.000391030220694,0.000386811631406,0.00038257357685,0.000378316796969,0.000374045552584,0.000369759223528,0.00036546121659,0.000361150083641,0.000356826458483,0.000352489431019,0.000348137213677,0.000343771625518,0.000339393243174,0.000335003723756,0.000330604553272,0.000326195918681,0.000321776890058,0.000317344538742,0.000312899088867,0.000308440648205,0.000303970699923,0.000299492633436,0.000295006165289,0.000290513387335,0.000286012995037,0.000281505434955,0.000276988432574,0.000272464317475,0.00026793401582,0.000263399104496,0.000258859564004,0.00025431471702,0.000249763707376,0.000245205283119,0.000240637852057,0.000236063129711,0.000231480650819,0.000226893182014,0.000222301726805,0.000217706316527,0.000213107327901,0.000208503891548,0.000203898743807,0.000199294335481,0.000194690140599,0.000190086189828,0.000185484043087,0.000180885206473,0.000176286921271,0.000171689344893,0.000167094518492,0.000162503148873,0.000157915793844,0.000153330388097,0.000148747376377,0.000144168659784,0.000139593470923,0.00013501937291,0.000130445942758,0.000125877861197,0.000121313952935,0.000116754278303,0.000112199208993,0.000107648888533,0.000103102442886,9.85602754209e-05,9.40235058018e-05,8.94944190738e-05,8.49753081741e-05,8.04648631195e-05,7.59614873748e-05,7.14660528064e-05,6.69764483737e-05,6.24942111532e-05,5.80230848789e-05,5.35640133275e-05,4.91171986156e-05,4.46822845813e-05,4.0257872712e-05,3.58435920972e-05,3.14424667021e-05,2.70541949183e-05,2.26788665507e-05,1.83172724655e-05,1.39683361182e-05,9.63041384515e-06,5.30582183506e-06,9.92745847005e-07,-3.30796224707e-06,-7.5928801082e-06,-1.18624377097e-05,-1.61171344541e-05,-2.03570082833e-05,-2.45799381314e-05,-2.87836992491e-05,-3.29706817525e-05,-3.71431263022e-05,-4.12990224318e-05,-4.54359995556e-05,-4.95561853335e-05,-5.36621248459e-05,-5.77524547503e-05,-6.18242331178e-05,-6.5877993261e-05,-6.9915598885e-05,-7.39362997306e-05,-7.79372625183e-05,-8.19168920968e-05,-8.58770180143e-05,-8.98181567151e-05,-9.37387462982e-05,-9.76365239785e-05,-0.000101512199427,-0.000105367603943,-0.000109201258039,-0.000113011983747,-0.000116797630258,-0.000120561505568,-0.000124301221548,-0.000128018396941,-0.000131712387167,-0.000135382217592,-0.000139030845745,-0.000142657684163,-0.000146264274342,-0.000149848662145,-0.000153414163185,-0.00015696212163,-0.000160487947952,-0.000163992244346,-0.000167473597871,-0.000170932775884,-0.000174369712536,-0.000177782732051,-0.000181173152151,-0.000184540071966,-0.000187884420039,-0.000191200843431,-0.000194491490753,-0.000197757189268,-0.0002009972657,-0.000204214132544,-0.000207406150091,-0.000210572516087,-0.000213710637281,-0.000216820581813,-0.00021990101867,-0.000222953764241,-0.000225983739162,-0.000228991461646,-0.000231977920941,-0.0002349421609,-0.000237882022236,-0.000240799717945,-0.000243695297381,-0.000246571454488,-0.000249426549468,-0.000252261072726,-0.00025507216522,-0.000257855119234,-0.000260609625183,-0.000263334738458,-0.000266031294362,-0.000268697798867,-0.000271335183669,-0.000273943501105,-0.00027652174179,-0.000279070206819,-0.000281589474386,-0.000284082607279,-0.000286548110999,-0.000288985763477,-0.000291394281458,-0.000293775230478,-0.000296129440962,-0.000298455586802,-0.00030075390078,-0.00030302282914,-0.000305262708657,-0.000307473760285,-0.000309656384793,-0.000311814693397,-0.000313947277674,-0.000316053847809,-0.00031813241133,-0.000320183442383,-0.0003222059972,-0.000324199704295,-0.000326166935706,-0.000328104764735,-0.000330015338173,-0.000331894711864,-0.000333742464392,-0.000335560072667,-0.000337349487093,-0.00033910901615,-0.000340840852992,-0.000342543953903,-0.000344217629615,-0.000345862542673,-0.000347478981886,-0.0003490645423,-0.000350622479439,-0.000352150473478,-0.000353647914879,-0.000355115904646,-0.000356556641047,-0.000357972725581,-0.000359369238607,-0.000360748977803,-0.000362110615301,-0.000363339918481,-0.000364320045309,-0.000365050422434,-0.000365533450523,-0.000365772980442)
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(255)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('A549-100nM-Dex-2h-H3K27ac.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) : 255',bty='n')
dev.off()