# R script for Peak Model
#  -- generated by MACS
p <- c(0.0405948061548,0.0474467500053,0.0544135509555,0.0613588161995,0.0680097601256,0.0678446530449,0.0672308854187,0.067273956831,0.067273956831,0.0670119390725,0.0668647784136,0.0667535105983,0.0664017607306,0.0659387430477,0.0659387430477,0.0662976714841,0.0665309749677,0.0667642784514,0.0670621890536,0.0672560104092,0.0672021711438,0.0673636889401,0.0674390639118,0.0677010816703,0.0679272065852,0.0678195280543,0.0683471528558,0.0682753671685,0.0683471528558,0.0682251171874,0.0683579207089,0.0680851350973,0.0681174386565,0.0679918137038,0.0679810458507,0.0678231173387,0.0672021711438,0.0670262962099,0.0671483318783,0.0671052604659,0.0669868140819,0.0670011712194,0.0669401533852,0.0669437426696,0.0668827248354,0.066997581935,0.0671734568688,0.0671985818594,0.0669832247976,0.0672452425561,0.0673600996558,0.0672883139685,0.0670909033285,0.0668288855699,0.0667678677357,0.0664627785648,0.0666601892048,0.0664017607306,0.0663048500528,0.0659423323321,0.0660177073037,0.0661828143844,0.0664125285837,0.0663838143088,0.0662043500906,0.0662007608062,0.065931564479,0.0660069394506,0.0660679572848,0.066247421503,0.0661720465313,0.065931564479,0.0658633680761,0.0664232964368,0.0666601892048,0.0669437426696,0.0670909033285,0.0672129389968,0.0669437426696,0.0668683676979,0.0667822248732,0.0669796355132,0.066918617679,0.0670909033285,0.067116028319,0.067155510447,0.067392403215,0.0676041709925,0.0678769566042,0.0680241172631,0.0678769566042,0.0677692780732,0.0681353850783,0.0676687781111,0.0676903138172,0.0677154388078,0.0673242068121,0.067155510447,0.0670227069256,0.0672165282812,0.0674067603525,0.0675646888645,0.067471367471,0.0675969924238,0.0677297959452,0.0678195280543,0.0679666887132,0.0681569207845,0.0682287064718,0.0679810458507,0.0677656887889,0.0676831352485,0.0673385639496,0.067155510447,0.0670550104848,0.0669042605416,0.0666709570579,0.0663407428964,0.0664484214274,0.0665202071146,0.0667642784514,0.0666745463423,0.0669688676601,0.0669437426696,0.0668899034041,0.0666314749299,0.0669688676601,0.0672847246841,0.0671985818594,0.0671770461532,0.0671016711816,0.0671375640252,0.0668719569823,0.0668683676979,0.0669222069634,0.0672452425561,0.0672667782623,0.0672631889779,0.0671985818594,0.0672165282812,0.0670334747787,0.0671088497503,0.067273956831,0.0677118495234,0.0676221174143,0.0680348851162,0.0679774565663,0.0683112600122,0.0684261171118,0.0682251171874,0.068447652818,0.0688209383918,0.0685768670551,0.0685230277896,0.0685122599365,0.0680994922347,0.0680025815569,0.0675287960209,0.0676615995423,0.0680707779598,0.0681030815191,0.0678661887511,0.0684799563773,0.0683974028369,0.0685014920835,0.068368688562,0.0685230277896,0.0686378848893,0.0686091706144,0.0684404742493,0.0684261171118,0.0683830456995,0.067973867282,0.0680097601256,0.0679056708791,0.0681210279409,0.0681748672063,0.0684153492587,0.0684799563773,0.0684045814056,0.0686199384675,0.0686378848893,0.06880299197,0.068881956226,0.0689501526289,0.0691870453969,0.0693988131744,0.0692014025344,0.0693593310464,0.0693126703497,0.0691439739846,0.0693988131744,0.0696034023831,0.0694885452835,0.0695064917053,0.0694490631555,0.0696357059424,0.069818759445,0.0696069916675,0.0697362059046,0.0695890452457,0.0694813667148,0.0694885452835,0.069542384549,0.0694311167337,0.0692229382406,0.0689106705009,0.0687276169984,0.0688963133635,0.0690219383162,0.0694670095773,0.0698546522886,0.0700592414974,0.0703786878057,0.0707232591047,0.0708919554698,0.0708775983323,0.0709099018916,0.0707914555076,0.0711288482378,0.0712365267687,0.0710247589912,0.0709709197258,0.0709852768632,0.0713047231716,0.071505723096,0.0716923658829,0.0719902764851,0.0721230800065,0.0717964551294,0.0717282587265,0.0718179908356,0.0718287586887,0.0716385266174,0.0714949552429,0.0715129016647,0.0713765088589,0.0709063126072,0.0712437053374,0.0714375266931,0.071466240968,0.0714159909869,0.0714554731149,0.0717174908734,0.0717892765607,0.0721876871251,0.0725968655426,0.0730562939411,0.0728911868604,0.0732106331688,0.0734008652401,0.073903365051,0.0739966864445,0.0743017756154,0.0744740612648,0.0740038650132,0.073824400795,0.0740254007194,0.0741725613783,0.0741115435441,0.0742515256343,0.0740828292692,0.0745171326772,0.0746786504736,0.0750339896256,0.075590328702,0.075985149982,0.0761466677784,0.0761897391908,0.0762722927311,0.0763261319966,0.0762651141624,0.0762687034468,0.0762866498686,0.0759492571384,0.0761251320722,0.0762328106031,0.0761538463471,0.0764373998119,0.0765020069304,0.0766707032955,0.0771157745566,0.0770332210163,0.0769650246133,0.0772306316563,0.0769363103384,0.0772593459312,0.0774244530119,0.0778120957232,0.0782966491123,0.0786017382832,0.0784797026149,0.078529952596,0.0787309525203,0.0787919703545,0.0790575773974,0.0790468095444,0.079595970052,0.0798651663793,0.0802851126499,0.0808342731575,0.0814875229117,0.0827401831547,0.083562129274,0.0849117001948,0.0862792175374,0.0875318777804,0.0888276094358,0.0897321090954,0.0905181623711,0.0913006263624,0.0922697331407,0.0929947685821,0.0934003577153,0.0936372504833,0.0936587861895,0.0937521075829,0.0939315718011,0.0941720538535,0.0942510181095,0.0944591966026,0.0948719643044,0.0946566072426,0.095094499935,0.0953672855466,0.0959128567699,0.0961030888412,0.0959738746041,0.0963507494623,0.0968496599889,0.0968711956951,0.0968568385576,0.0976141775584,0.0981202666537,0.0982602487439,0.098202820194,0.098242302322,0.0988811949388,0.0991539805505,0.0992149983846,0.0995846946741,0.0996816053519,0.0994518911527,0.0991934626785,0.099179105541,0.099534444693,0.0997174981956,0.0995631589679,0.0992760162188,0.0993944626028,0.0996026410959,0.0999041409825,0.100359980097,0.100525087177,0.101149622657,0.101077836969,0.101400872562,0.102036175895,0.102377157909,0.102678657796,0.102811461317,0.103048354085,0.102901193426,0.103317550412,0.102689425649,0.102976568398,0.1031596219,0.103173979038,0.103654943143,0.103791335949,0.103992335873,0.104107192973,0.104469710693,0.104932728376,0.105794156624,0.105862353026,0.106479709937,0.106393567112,0.106300245719,0.106651995586,0.106368442122,0.106619692027,0.106429459956,0.106217692178,0.106562263477,0.107043227582,0.106515602781,0.106917602629,0.107010924023,0.106863763364,0.107186798957,0.107384209597,0.107832870142,0.108170262872,0.107944137957,0.108277941403,0.109028101835,0.109232691044,0.109530601646,0.110305887069,0.110941190401,0.111249868857,0.111633922283,0.112000029289,0.11219026136,0.112043100701,0.111867225767,0.111949779307,0.112628154052,0.112983493204,0.113475225162,0.113740832205,0.113927474992,0.114297171281,0.114792492524,0.115449331562,0.116203081279,0.116565598999,0.116468688322,0.116680456099,0.116461509753,0.116856331033,0.117261920166,0.117645973593,0.11789004493,0.118123348413,0.118065919863,0.118636616077,0.119322169391,0.11946933005,0.11960931214,0.11988927632,0.120040026264,0.120068740538,0.120524579653,0.120940936639,0.121228079388,0.121378829331,0.121529579274,0.121461382872,0.122168471891,0.122085918351,0.122304864697,0.122272561138,0.122448436072,0.12243048965,0.122753525243,0.122818132361,0.122760703811,0.123151935807,0.123428310703,0.1234749714,0.123579060646,0.124174881851,0.124436899609,0.124749167349,0.125140399344,0.125607006312,0.125818774089,0.12629614891,0.126486380981,0.127092970038,0.127394469925,0.127473434181,0.127509327025,0.127947219717,0.12804054111,0.128184112485,0.128090791092,0.128169755348,0.128679433727,0.12874763013,0.129203469244,0.129720326193,0.130064897492,0.130161808169,0.130527915175,0.131041182839,0.131859539674,0.132074896735,0.132121557432,0.132509200143,0.132904021423,0.13300811067,0.133629056865,0.134045413851,0.134666360046,0.134931967089,0.135488306165,0.136173859479,0.136992216314,0.137562912528,0.137674180343,0.138119251604,0.138456644334,0.138618162131,0.138632519268,0.138715072808,0.138973501283,0.13870789424,0.138413572922,0.138887358458,0.139526251075,0.13958009034,0.139422161828,0.139939018777,0.140585089962,0.140757375611,0.140979911242,0.141532661034,0.14271353559,0.143352428207,0.143183731841,0.144213856454,0.14510758826,0.144917356189,0.144655338431,0.145010677583,0.145064516848,0.145172195379,0.144418445663,0.144045160089,0.144425624231,0.143664695946,0.143104767585,0.143015035476,0.142627392765,0.142232571485,0.141464464631,0.141119893332,0.140814804161,0.140129250848,0.139594447478,0.139145786932,0.138180269438,0.137595216087,0.137412162584,0.136805573527,0.136403573678,0.135560091853,0.134533556525,0.133804931799,0.132724557205,0.131698021877,0.131041182839,0.130125915326,0.129189112107,0.128421005253,0.127552398437,0.126787880867,0.126303327478,0.125919274051,0.125653667009,0.12513681006,0.124422542472,0.124178471135,0.123794417708,0.123399596428,0.123169882229,0.122947346598,0.122498686053,0.121870561289,0.121052204454,0.120980418767,0.120861972383,0.120319990444,0.120230258335,0.119817490633,0.119616490709,0.119203723007,0.118930937395,0.118399723309,0.118209491238,0.117667509299,0.117595723612,0.117261920166,0.116892223876,0.116540474009,0.116246152691,0.116124117023,0.115973367079,0.116217438416,0.115819027852,0.115420617287,0.11483915322,0.114921706761,0.11441920695,0.114225385594,0.11376954648,0.113223975257,0.112958368214,0.112319475597,0.112276404185,0.112150779232,0.112125654241,0.111594440155,0.111066815354,0.110395619178,0.109814155111,0.108740959086,0.107470352421,0.106623281312,0.105428049618,0.104135907247,0.102588925687,0.101250122619,0.0998072303047,0.0983679272748,0.0972480705533,0.0967276243205,0.0961748745285,0.0949652856979,0.0940895003131,0.0937090361705,0.0936157147771,0.0930306614258,0.0928799114825,0.0930845006912,0.0926717329894,0.0918354297326,0.0915913583959,0.0915770012584,0.0914800905806,0.0914513763057,0.0910421978882,0.0909201622199,0.0907083944424,0.0901089839536,0.0903063945936,0.0907765908453,0.0908735015231,0.0904966266649,0.0904535552526,0.0901987160627,0.0899654125791,0.0895526448772,0.0897715912234,0.0901412875129,0.0895490555929,0.0894988056118,0.0888240201514,0.0890537343507,0.0890501450663,0.0889891272321,0.0887450558954,0.0889209308292,0.0883933060277,0.0879087526386,0.0878513240888,0.0875893063302,0.0874421456713,0.0872985742968,0.0871908957659,0.086778128064,0.0867817173484,0.0866632709644,0.0866883959549,0.0863545925091,0.0862935746749,0.0859597712291,0.0861787175753,0.086027967632,0.0854931642618,0.0851485929628,0.0853818964465,0.0855434142429,0.0851270572567,0.0853029321905,0.085130646541,0.0852957536218,0.0848219680857,0.0843374146966,0.0845312360523,0.0849081109105,0.0845994324552,0.0841220576348,0.0841184683504,0.0838636291606,0.0836841649424,0.0835836649802,0.0834006114777,0.0831924329846,0.0829663080696,0.0825930224958,0.0822556297656,0.0822017905001,0.0821982012158,0.0820187369976,0.0820366834194,0.0818787549074,0.0815880228739,0.081677754983,0.0817136478267,0.0816562192768,0.081559308599,0.0816203264332,0.0814875229117,0.0816813442674,0.0815054693336,0.0807768446077,0.0808235053044,0.0804573982993,0.0800589877349,0.0796031486207,0.0795923807677,0.0794236844026,0.0791114166629,0.0786986489611,0.0785873811458,0.0786663454018,0.0785227740272,0.0786268632738,0.0785550775865,0.0787919703545,0.0784832918992,0.0779843813727,0.0780992384723,0.0779628456665,0.0779448992447,0.0778838814105,0.0779161849697,0.077869524273,0.0776649350643,0.0770978281348,0.0768358103762,0.0766383997362,0.0761466677784,0.0758559357449,0.0753498466496,0.0751309003034,0.0748652932605,0.0746032755019,0.0743735613027,0.0744704719805,0.0747360790234,0.0747899182889,0.0748617039761,0.0746714719049,0.0746786504736,0.0747037754641,0.0747001861798,0.0746965968954,0.0745566148052,0.0742120435063,0.073745436539,0.0737885079514,0.0731244903441,0.0731783296095,0.0729127225666,0.0728660618699,0.0726255798175,0.0722271692531,0.0723922763338,0.0726004548269,0.0726614726611,0.0721876871251,0.0725789191208,0.0722199906844,0.0723599727746,0.0720154014756,0.0717246694422,0.0715416159396,0.071240116053,0.0709457947352,0.0705617413083,0.0708201697825,0.0703499735308,0.0705079020428,0.0702064021563,0.0702279378625,0.0703427949621,0.0703894556588,0.0702889556966,0.0704002235119,0.0703212592559,0.0701884557345,0.0704397056399,0.0702099914406,0.0701166700472,0.0698761879948,0.0696787773548,0.0695890452457,0.0694957238522,0.0692839560748,0.0694275274493,0.069158331122,0.068960920482,0.0688317062449,0.0688675990886,0.0686342956049,0.0686486527424,0.0688173491075,0.06860558133,0.0686414741736,0.0684512421024,0.0684009921213,0.0680420636849,0.0677728673576,0.067589813855,0.0676221174143,0.0674785460398,0.0671734568688,0.0670011712194,0.0668217070012,0.0669222069634,0.0665560999583,0.0669329748165,0.0671842247219,0.0672488318405,0.0671088497503,0.067155510447,0.0669688676601,0.0672416532718,0.067194992575,0.0670047605037,0.0672775461154,0.0670478319161,0.0669222069634,0.0670227069256,0.0671878140063,0.0672883139685,0.0672954925372,0.0672201175656,0.0672129389968,0.0673277960965,0.0674462424805,0.0672380639874,0.0672272961343,0.066958099807,0.0669545105227,0.0668647784136,0.0669293855321,0.0668288855699,0.0668252962856,0.0667032606172,0.0667678677357,0.0669545105227,0.0669042605416,0.0671052604659,0.0670262962099,0.066997581935,0.0669545105227,0.0670298854943,0.0671267961721,0.0669904033663,0.0667463320295,0.0668504212761,0.066958099807,0.0667499213139,0.0670478319161,0.0670944926128,0.0673313853809,0.0675682781489,0.067510849599,0.0678015816325,0.067934385154,0.0675646888645,0.067431885343,0.0673493318027,0.0668863141197,0.0667247963234,0.0663945821619,0.0663838143088,0.0663371536121,0.0664268857212,0.0662294750812,0.0664555999961,0.066484314271,0.0664950821241,0.0668073498637,0.0667714570201,0.0670011712194,0.0669401533852,0.0670657783379,0.0670119390725,0.0673421532339,0.0673349746652,0.0674641889023,0.0677405637983,0.067855420898,0.0677549209358,0.0679559208602,0.0674605996179,0.0675539210114,0.0674175282056,0.0672560104092,0.0677010816703,0.0677979923481,0.0676544209736,0.0674282960587,0.0679056708791,0.0677585102201,0.0681030815191,0.067629295983,0.067658010258,0.0676795459641,0.0671267961721,0.0669904033663,0.0669832247976,0.0670980818972,0.0669545105227,0.0667929927263,0.0669904033663,0.0674677781867,0.0675754567176,0.0677226173765,0.0680707779598,0.0682071707656,0.0685589206333,0.0688209383918,0.0686127598987,0.0688065812544,0.0687527419889,0.0685230277896,0.0685158492209,0.0682430636093,0.0680959029503,0.0681353850783,0.0675934031394,0.0672775461154,0.067313438959,0.0671519211627,0.0667786355888,0.0668073498637,0.0667822248732,0.0669293855321,0.0674103496369,0.0675575102958,0.0679918137038,0.0680456529693,0.0680707779598,0.0678984923103,0.0681066708034,0.0681856350594,0.0680241172631,0.0680707779598,0.0675072603147,0.0671878140063,0.0668324748543,0.0667535105983,0.0668899034041,0.0669652783757,0.0669078498259,0.0667355641765,0.0668217070012,0.0668288855699,0.066760689167,0.0670334747787,0.0671303854565,0.0673277960965,0.0673170282434,0.0673206175278,0.0672165282812,0.067313438959,0.0673959924994,0.0673349746652,0.0677585102201,0.0674462424805,0.0676005817081,0.0673888139307,0.0673242068121,0.0676903138172,0.0681533315002,0.067934385154,0.0679882244194,0.0679595101445,0.0677477423671,0.06801334941,0.0680743672442,0.0683220278653,0.0682681885998,0.0679918137038,0.0676759566798,0.0678913137416,0.0677728673576,0.0680241172631,0.0682143493344,0.0680312958318,0.0676759566798,0.06761852813,0.0678625994667,0.0680959029503,0.0680420636849,0.0682645993154,0.0684655992398,0.0681174386565,0.0678733673198,0.0677118495234,0.0678661887511,0.0677800459263,0.0675969924238,0.067471367471,0.0676364745518,0.0675610995801,0.0673313853809,0.0670334747787,0.0672775461154,0.0674103496369,0.0676113495612,0.0676831352485,0.0676615995423,0.067855420898,0.0678769566042,0.0679236173009,0.0681605100689,0.0684979027991,0.068566099202,0.0687850455482,0.0685014920835,0.0684584206711,0.0685804563395,0.0684584206711,0.0687096705766,0.0685696884864,0.0684943135147,0.0687706884107,0.0687455634202,0.0688711883729,0.0690327061693,0.0691044918566,0.0691834561126,0.0692839560748,0.0690757775817,0.0692085811031,0.0692695989373,0.0691547418377,0.0692265275249,0.069118848994,0.0690506525911,0.0686558313111,0.0685732777707,0.0686665991642,0.0686307063206,0.0686091706144,0.0685876349082,0.0683974028369,0.0681425636471,0.0679595101445,0.0683148492965,0.0686091706144,0.0689860454726,0.0691224382784,0.0692301168093,0.0691332061315,0.0689968133257,0.0692229382406,0.069237295378,0.0695603309708,0.0694275274493,0.0695603309708,0.0691870453969,0.069237295378,0.0689070812166,0.0690470633068,0.0692408846624,0.0693198489184,0.0694705988617,0.0692947239279,0.0694131703119,0.069434706018,0.0696500630799,0.0695352059802,0.0698761879948,0.0697613308952,0.069581866677,0.0696751880704,0.0693198489184,0.0692049918188,0.0690362954537,0.0688927240791,0.0689178490697,0.0687599205577,0.0684979027991,0.0684404742493,0.0686378848893,0.0685589206333,0.0688604205198,0.0689357954915,0.0689752776195,0.0690721882973,0.0689680990508,0.0687706884107,0.0688065812544,0.0686199384675,0.0684045814056,0.0682789564529,0.06821076005,0.0680815458129,0.0682394743249,0.0681066708034,0.0682287064718,0.0686953134391,0.0691152597097,0.0691834561126,0.0690973132879,0.0689860454726,0.0691511525533,0.069355741762,0.0694024024588,0.0694670095773,0.0692983132122,0.0688711883729,0.0685625099176,0.0685589206333,0.0688711883729,0.0688855455104,0.0687599205577,0.0687670991264,0.0685122599365,0.0685373849271,0.0684763670929,0.0687132598609,0.0686378848893,0.0688388848137,0.0687922241169,0.0689501526289,0.0690685990129,0.0691942239657,0.0691619204064,0.0691296168471,0.0692480632311,0.0691152597097,0.0694454738711,0.0693234382028,0.069118848994,0.0689034919322,0.0687276169984,0.0685696884864,0.0686378848893,0.0687706884107,0.0683399742871,0.0679128494478,0.067579046002,0.0673744567932,0.0673888139307,0.0674139389212,0.0673313853809,0.0671842247219,0.067234474703,0.0669688676601,0.0672703675467,0.0677656887889,0.0677800459263,0.0678769566042,0.067629295983,0.0674390639118,0.0671985818594,0.0671339747408,0.0667283856077,0.0666960820485,0.0663981714463,0.066207939375,0.0664125285837,0.066602760655,0.0666709570579,0.0666171177925,0.0670550104848,0.067076546191,0.0670944926128,0.067510849599,0.0677333852296,0.0678051709169,0.0676472424049,0.0674390639118,0.0674103496369,0.0677118495234,0.0677154388078,0.0679451530071,0.0682071707656,0.0677082602391,0.067589813855,0.0674354746274,0.0672560104092,0.0674929031772,0.0676831352485,0.0676113495612,0.0675969924238,0.0674175282056,0.0675216174521,0.0676939031016,0.0677656887889,0.0679272065852,0.0679056708791,0.0678195280543,0.0676723673954,0.0677441530827,0.0672990818216,0.0673313853809,0.067116028319,0.0670837247597,0.0670693676223,0.0670334747787,0.0670873140441,0.0668109391481,0.0667786355888,0.0666565999205,0.0667319748921,0.0666171177925,0.0666242963612,0.0666601892048,0.066365867887,0.0661792251001,0.0663838143088,0.0664950821241,0.0665381535364,0.0666207070768,0.0600810309659,0.0534085513336,0.0467073574264,0.039995395666,0.0)
m <- c(0.0392069317741,0.0457605620761,0.0522783017412,0.058752972642,0.0654286311096,0.0653389045173,0.0655506592751,0.0655829608483,0.0656260296126,0.0657193452686,0.0659311000265,0.0655111795745,0.0657049890139,0.065959812536,0.0658054827973,0.0659634015997,0.065679865568,0.0656439749311,0.0656762765043,0.0655973171031,0.0655327139566,0.0658916203259,0.0659957031729,0.0657911265425,0.065773181224,0.0655111795745,0.065575782721,0.0659705797271,0.0658521406253,0.0655937280394,0.0657588249693,0.0658306062431,0.0655973171031,0.065773181224,0.0657193452686,0.0662648829499,0.0662182251219,0.0661536219754,0.0660638953831,0.0662756501409,0.0663223079689,0.0665053502172,0.0664299798797,0.066473048644,0.0667422284209,0.0665627752363,0.0664909939625,0.0662971845231,0.0668175987585,0.0666883924656,0.0665627752363,0.0665699533637,0.0670688332169,0.0669683394335,0.0672769989111,0.0674923427326,0.0679912225858,0.0680091679043,0.0678691944203,0.0679553319489,0.0679409756941,0.0679230303757,0.0675892474523,0.0677076865541,0.0674241505225,0.0671944504462,0.0669073253508,0.0669934628794,0.0670760113443,0.0673559583123,0.0675641240065,0.0674420958409,0.067546178688,0.067406205204,0.0674564520957,0.0675246443058,0.0675425896243,0.0675102880511,0.0675210552422,0.0674169723951,0.067452863032,0.0676646177898,0.0677507553185,0.0678153584649,0.0677866459554,0.0678153584649,0.0682029773437,0.0680235241591,0.0681024835603,0.0682711695538,0.0681204288788,0.0679804553948,0.0681347851335,0.06819938828,0.0683824305283,0.0684398555474,0.0681886210889,0.0689064338274,0.0689064338274,0.0686803228147,0.0689530916554,0.0692186823686,0.0688095291077,0.0689889822923,0.0691576682858,0.0690679416935,0.0692473948781,0.0686264868594,0.0686085415409,0.068619308732,0.0686623774963,0.0687233915791,0.069003338547,0.0689207900821,0.068572650904,0.0686516103052,0.0683178273818,0.0685008696301,0.068339361764,0.068106072624,0.0679158522483,0.0679230303757,0.0679337975668,0.0678979069298,0.0678979069298,0.0681347851335,0.0684254992926,0.0685977743498,0.0688131181714,0.0691469010947,0.0689136119547,0.0684398555474,0.0683752524009,0.0682065664074,0.0681634976431,0.0677471662548,0.0676753849809,0.0673523692486,0.0675390005606,0.067312889548,0.0676179599618,0.0682747586175,0.0682675804901,0.068339361764,0.0684936915027,0.0687198025154,0.0684865133754,0.0687377478338,0.0684506227384,0.0685762399677,0.0684254992926,0.0678871397388,0.0681096616877,0.0683321836366,0.0683357727003,0.0683608961461,0.068479335248,0.0682316898532,0.0684685680569,0.0685439383944,0.0685977743498,0.0684901024391,0.0684649789932,0.0683680742735,0.0681132507514,0.0681455523246,0.0679984007132,0.0682388679806,0.0679409756941,0.0681706757704,0.0682352789169,0.0685331712034,0.0685331712034,0.0686587884326,0.0687879947255,0.0686157196683,0.0688418306809,0.0689961604197,0.0693730121073,0.0693371214704,0.0692545730055,0.0693981355532,0.0690105166744,0.069049996375,0.0691684354769,0.0692330386234,0.0693048198972,0.0690284619929,0.0686013634135,0.0684290883563,0.0684075539741,0.0682352789169,0.0685834180951,0.0682352789169,0.0681096616877,0.0681240179424,0.0680450585412,0.0680307022864,0.068152730452,0.0681706757704,0.0684649789932,0.0684757461843,0.068525993076,0.0689064338274,0.0690715307572,0.0691720245406,0.0689243791458,0.069039229184,0.0689279682095,0.0690320510566,0.0689495025917,0.0689746260375,0.0688848994452,0.0686695556237,0.0683788414646,0.0682281007895,0.0684613899295,0.0681778538978,0.0682496351717,0.0682101554711,0.0680665929234,0.0678943178661,0.0680091679043,0.0682101554711,0.0681168398151,0.0681634976431,0.0681670867068,0.068152730452,0.0680019897769,0.0677830568917,0.0676574396625,0.0678907288025,0.0675138771148,0.067359547376,0.0674743974142,0.0675066989874,0.0673559583123,0.0676825631083,0.0677076865541,0.0677974131465,0.0675964255797,0.0674026161403,0.0675031099237,0.0672518754652,0.0672698207837,0.0670688332169,0.0671406144908,0.0670939566628,0.067219573892,0.0669252706692,0.0671154910449,0.066892969096,0.066892969096,0.0670437097711,0.0670472988348,0.0670185863252,0.0670221753889,0.0668427222043,0.0666955705929,0.0670401207074,0.0669468050514,0.0672303410831,0.0672375192105,0.0672482864015,0.0675425896243,0.067546178688,0.0673774926945,0.0673882598855,0.0671406144908,0.0669180925419,0.0669073253508,0.0668857909686,0.0668427222043,0.0668032425037,0.0662900063957,0.0665017611536,0.0665089392809,0.066659679956,0.0671765051277,0.0671944504462,0.0671119019812,0.0672482864015,0.0669647503699,0.0668534893954,0.0672518754652,0.0670544769622,0.0669109144145,0.06703294258,0.0667350502935,0.0668391331406,0.0668534893954,0.0665555971089,0.066706337784,0.0668427222043,0.0664299798797,0.0665017611536,0.0665914877459,0.0664407470708,0.0666848034019,0.0669145034782,0.066986284752,0.0670688332169,0.0672482864015,0.0671442035545,0.0673954380129,0.0674959317963,0.0676538505988,0.0674743974142,0.0672267520194,0.0667422284209,0.066939626924,0.0671442035545,0.0670006410068,0.0671693270003,0.0671406144908,0.0670544769622,0.0672123957646,0.0671621488729,0.0670975457265,0.0673200676754,0.0673774926945,0.067172916064,0.0670760113443,0.0669360378603,0.0668642565865,0.0672267520194,0.0671442035545,0.0672841770385,0.0674026161403,0.0674564520957,0.0672985332932,0.0671083129175,0.067359547376,0.0675210552422,0.0675748911975,0.0671334363634,0.0673451911212,0.0674815755415,0.0678584272292,0.0676897412357,0.0678081803375,0.0681491413883,0.0682998820634,0.0683429508277,0.0686408431141,0.0687628712797,0.0685582946492,0.0684362664837,0.068059414796,0.0684003758467,0.0684290883563,0.0685762399677,0.0682532242354,0.0679732772674,0.0676107818345,0.0675425896243,0.067406205204,0.0674887536689,0.0676000146434,0.0673523692486,0.0671298472997,0.0670688332169,0.0670221753889,0.0672339301468,0.0674923427326,0.067406205204,0.0674564520957,0.0671226691723,0.0669970519431,0.0668391331406,0.0668893800323,0.0665448299179,0.0666668580834,0.0666417346376,0.0664048564339,0.0666202002554,0.0665232955357,0.0667852971852,0.0668140096948,0.0671334363634,0.0671513816818,0.0673559583123,0.0672985332932,0.0674097942677,0.0677579334458,0.0677543443821,0.0681204288788,0.068012756968,0.0683644852098,0.0682137445348,0.0682711695538,0.0682388679806,0.0684578008658,0.0681455523246,0.0679445647578,0.0679732772674,0.0680881273055,0.0680630038597,0.0676897412357,0.0678045912738,0.0677974131465,0.0678871397388,0.0679732772674,0.0682065664074,0.0687054462606,0.0686946790695,0.0685690618403,0.0688418306809,0.0695237527824,0.0694053136806,0.0696529590753,0.0694806840181,0.0692940527061,0.0693730121073,0.0690069276107,0.0689818041649,0.0691648464132,0.0692617511329,0.0689243791458,0.0691469010947,0.0689638588464,0.0693945464895,0.0697175622218,0.0695775887378,0.0698216450689,0.0702702780304,0.070123126419,0.0702595108393,0.0702523327119,0.0701410717375,0.0700585232726,0.0699795638713,0.0695381090372,0.069879070088,0.0697103840944,0.0693478886615,0.0693730121073,0.0692940527061,0.0693263542793,0.0697426856676,0.0701949076929,0.0704748546609,0.0712357361636,0.0710203923421,0.0712285580362,0.0713757096476,0.0716054097239,0.0718853566919,0.0720468645581,0.0720612208128,0.0718530551187,0.0720073848575,0.0721222348956,0.0728579929525,0.0729871992454,0.073249200895,0.073669121347,0.073773204194,0.0740746855442,0.0743977012765,0.0747350732636,0.0748499233017,0.0749360608303,0.0751191030786,0.0752985562632,0.0755318454032,0.0756431063777,0.0761168627851,0.0762173565685,0.0762101784411,0.076572673874,0.0764685910269,0.0766516332752,0.0764147550715,0.0764650019632,0.0765834410651,0.0761276299761,0.0759589439826,0.0760091908743,0.0760737940208,0.0763286175429,0.0766552223389,0.0767557161223,0.0769279911795,0.077609913281,0.0777606539561,0.0784282198029,0.0785969057964,0.0787476464715,0.0789881137389,0.0789450449746,0.0791532106687,0.0791352653502,0.0793757326176,0.0792034575604,0.0793147185349,0.0794116232545,0.0794080341909,0.079662857713,0.0795551858022,0.0796197889487,0.0794080341909,0.0796772139678,0.0797669405601,0.0797310499232,0.0799679281268,0.080222751649,0.0803196563687,0.0803017110502,0.0807000971201,0.0809190300053,0.0815184036419,0.081482513005,0.0817481037182,0.0822326273167,0.0822828742083,0.082146489788,0.0824336148834,0.0827889321889,0.0829289056729,0.0833524151886,0.0834385527172,0.0837436231311,0.0839302544431,0.0839481997615,0.0838512950419,0.0840809951182,0.0841635435831,0.0843071061308,0.0846265327994,0.0843752983409,0.0844865593154,0.0843681202135,0.084386065532,0.0844937374428,0.0850069735508,0.0850249188692,0.0850500423151,0.0849208360221,0.0850500423151,0.0850751657609,0.0849567266591,0.0856063471874,0.0857463206714,0.085749909735,0.0860585692126,0.0861626520597,0.0868086835243,0.0870276164095,0.0868517522886,0.0872142477215,0.0875372634538,0.0873937009061,0.0879212932689,0.0881725277273,0.0881617605362,0.0884919543959,0.088642695071,0.0889334092301,0.0891882327522,0.0893317952999,0.0893748640642,0.0895004812934,0.089109273351,0.0890841499051,0.0892205343254,0.0891882327522,0.0889944233128,0.0891415749242,0.0894861250387,0.089482535975,0.0896440438411,0.0895363719304,0.089809140771,0.0899096345544,0.090089087739,0.0901142111848,0.09056643321,0.0905377207005,0.0905054191273,0.0909791755346,0.0914852335153,0.0919230992857,0.0917400570374,0.0919087430309,0.0917615914196,0.0920056477506,0.0918477289482,0.0927988308266,0.093225929406,0.0929423933743,0.0929854621386,0.0928849683552,0.0933228341257,0.0934448622912,0.0936422607943,0.094112428138,0.0943241828958,0.0940155234183,0.0941375515838,0.095009694061,0.0955803551881,0.0969657337733,0.0981214122822,0.0994098861477,0.101477186834,0.103045607668,0.104567370673,0.105938393004,0.107384785672,0.108447148525,0.109448497295,0.110241680371,0.110762094606,0.111878293415,0.11230180293,0.112693010873,0.113407234547,0.114017375375,0.114512666165,0.115068971037,0.115374041451,0.115657577483,0.116181580782,0.115984182278,0.115442233661,0.115689879056,0.115496069616,0.115424288343,0.115524782126,0.115923168196,0.116282074565,0.116285663629,0.116253362055,0.116820434119,0.117879207908,0.117889975099,0.118227347086,0.118496526863,0.118521650309,0.11862932222,0.118927214506,0.119411738105,0.120693033843,0.120703801034,0.120305414964,0.120915555792,0.121619012275,0.122229153103,0.123036692434,0.123305872211,0.124160069369,0.125007088401,0.124867114917,0.125380351025,0.126392466986,0.126640112381,0.126636523317,0.12739740482,0.127896284673,0.128886866252,0.129177580411,0.129511363335,0.130336847984,0.131546362448,0.132174448594,0.132788178486,0.133606485007,0.134015638268,0.134830355726,0.135228741796,0.135914252962,0.136689490719,0.137267329973,0.137278097165,0.137773387954,0.138753202342,0.139955538679,0.140669762354,0.141244012544,0.141588562659,0.141685467379,0.142008483111,0.142281251952,0.143293367913,0.14372764462,0.143978879078,0.143986057205,0.144018358779,0.144606965224,0.145471929574,0.146042590701,0.146139495421,0.146132317293,0.145665739013,0.145665739013,0.145611903058,0.145227873243,0.144861788746,0.14376712432,0.142719117722,0.142033606557,0.141753659589,0.141358862583,0.141251190672,0.141175820334,0.140436473214,0.140257020029,0.139654057329,0.139456658826,0.139352575979,0.139187479049,0.139011614928,0.138627585113,0.137637003534,0.137206315891,0.136883300158,0.13642748907,0.136337762477,0.135964499853,0.135383071535,0.1348626573,0.134130488306,0.134345832128,0.134353010255,0.133484456842,0.13320092081,0.13289943946,0.132964042606,0.132791767549,0.132687684702,0.132353901779,0.132127790766,0.131173099824,0.130932632557,0.13056654806,0.129766186857,0.12930319764,0.129202703857,0.129575966481,0.129059141309,0.129112977265,0.129159635093,0.129188347602,0.128721769322,0.128538727074,0.129109388201,0.128879688125,0.128140341004,0.126963128113,0.126848278075,0.12592947777,0.125351638515,0.12459793514,0.124364646,0.124325166299,0.123575051988,0.123018747115,0.123043870561,0.122842882994,0.122609593854,0.122688553256,0.122214796848,0.122132248383,0.121956384262,0.121658491976,0.121256516842,0.121550820065,0.121443148154,0.120951446429,0.120998104257,0.120818651072,0.1208653089,0.120682266652,0.120362839983,0.119680917882,0.120086482079,0.119429683423,0.11893080357,0.118837487914,0.118586253455,0.118611376901,0.118474992481,0.11762797345,0.117549014048,0.117778714125,0.117125504533,0.116956818539,0.116454349622,0.115747304075,0.115122806992,0.114699297477,0.114160937923,0.114437295827,0.11419682856,0.113626167433,0.113120109452,0.112940656267,0.11276838121,0.113295973573,0.112825806229,0.112614051471,0.112402296714,0.112287446675,0.11186393716,0.111749087122,0.111225083823,0.110715436778,0.110223735052,0.109767923964,0.109452086359,0.108953206505,0.108235393767,0.108023639009,0.107643198258,0.107090482449,0.107449388818,0.1074314435,0.106885905819,0.106519821322,0.106684918252,0.106408560348,0.10679976829,0.106526999449,0.106207572781,0.106164504017,0.105715871055,0.105231347457,0.105356964686,0.105145209928,0.104969345807,0.104987291125,0.104499178463,0.103996709546,0.10402901112,0.104046956438,0.104312547151,0.104492000336,0.104527890973,0.104312547151,0.103576789094,0.103454760929,0.103059963923,0.103153279579,0.10286256542,0.102119629235,0.101455652452,0.101498721217,0.101286966459,0.101261843013,0.101376693051,0.101286966459,0.101308500841,0.101157760166,0.100841922561,0.10089934758,0.100816799115,0.100152822332,0.0996826549883,0.0995821612049,0.0994637221031,0.0989791985047,0.0988428140843,0.098882293785,0.0988787047213,0.098939718804,0.09879974532,0.0987207859188,0.0987818000016,0.0986202921354,0.0980639872631,0.0981034669637,0.0978594106327,0.0973354073336,0.0971200635121,0.0967001430601,0.096736033697,0.0963914835825,0.0963304694998,0.0958997818567,0.0961330709967,0.0957239177358,0.0955157520416,0.0954655051499,0.0954906285958,0.095242983201,0.0947261580293,0.0944892798257,0.0940155234183,0.0935381779472,0.0932833544251,0.0930931340494,0.0926552682789,0.0922389368906,0.0918764414577,0.091919510222,0.0919123320946,0.0917651804832,0.0916718648272,0.0915354804069,0.0910509568085,0.0902577737325,0.0897553048156,0.0888113810645,0.0879464167147,0.0864641334098,0.0852294954997,0.083686198112,0.0824013133102,0.0816117192979,0.0809118518779,0.0801581485025,0.0795408295475,0.0791747450509,0.0785753714143,0.0786938105161,0.078449754185,0.078823016809,0.0786327964333,0.0784138635481,0.0779293399497,0.0776135023447,0.0775453101346,0.0775345429435,0.077469939797,0.0770823209183,0.077039252154,0.0767413598675,0.0768849224152,0.0765152488549,0.0766121535746,0.0768633880331,0.0764147550715,0.0759589439826,0.0754241734925,0.0753165015817,0.0753093234543,0.0750509108685,0.0745807435248,0.0741213433722,0.0737337244934,0.0733030368504,0.0731020492836,0.0726641835131,0.0730518023919,0.0729548976722,0.0726677725768,0.0727323757233,0.0727969788697,0.073213310258,0.0735112025445,0.0735650384999,0.0735578603725,0.0741428777543,0.0737911495125,0.0737086010476,0.073669121347,0.0731487071116,0.0728795273347,0.072642649131,0.0724524287553,0.0725636897298,0.0723698802904,0.0720145629848,0.0718638223098,0.0716879581888,0.0718351098002,0.0722011942968,0.0719786723479,0.0719966176664,0.0717884519722,0.0712536814821,0.0716197659787,0.0716664238067,0.0717992191633,0.0719248363925,0.0715192721953,0.0713685315202,0.0714797924947,0.0712680377369,0.0710993517433,0.0710491048516,0.0706471297181,0.070496389043,0.0704389640239,0.0701733733107,0.0701913186292,0.0703277030495,0.0702128530113,0.0702989905399,0.0701554279923,0.0704569093424,0.0705215124889,0.0703205249221,0.0700405779541,0.0700980029732,0.0699903310624,0.0695488762283,0.0698144669415,0.0698108778778,0.069749863795,0.0695811778015,0.0693012308335,0.0695273418461,0.0696493700117,0.0696996169033,0.0697462747313,0.0700944139095,0.0700333998267,0.0696350137569,0.06983241226,0.0699687966803,0.0698826591516,0.0696888497123,0.0696960278396,0.0693371214704,0.0690571745024,0.0691361339037,0.068805940044,0.0688741322541,0.0686551993689,0.0685905962224,0.068956680719,0.0687664603434,0.06866596656,0.0687664603434,0.0685295821397,0.0679984007132,0.0682245117258,0.0683608961461,0.068619308732,0.0685475274581,0.0686408431141,0.068992571356,0.068992571356,0.0691469010947,0.0695273418461,0.0697713981772,0.0695452871646,0.0693155870883,0.069003338547,0.0689207900821,0.0687054462606,0.0685762399677,0.0684721571206,0.0688202962987,0.0689674479101,0.0689423244643,0.0686875009421,0.0688597759994,0.0683788414646,0.0684578008658,0.0685547055855,0.0685044586938,0.0682711695538,0.0675354114969,0.066986284752,0.0668857909686,0.0669970519431,0.0666489127649,0.0670760113443,0.0667422284209,0.0666202002554,0.0664335689434,0.0668534893954,0.0671513816818,0.0673451911212,0.0671980395098,0.0670401207074,0.0670867785354,0.0673954380129,0.0673559583123,0.0673308348665,0.0674420958409,0.067406205204,0.0672554645289,0.0669539831788,0.0668642565865,0.0672482864015,0.0674313286498,0.0670544769622,0.0671549707455,0.0670508878985,0.0671011347902,0.0669539831788,0.067219573892,0.0675892474523,0.0676107818345,0.0677722897006,0.0678117694012,0.0678440709745,0.0678799616114,0.0678117694012,0.0676897412357,0.0677543443821,0.0675102880511,0.0669288597329,0.0670508878985,0.0666848034019,0.0668965581597,0.0671406144908,0.0669216816055,0.0669683394335,0.0670580660259,0.0671657379366,0.0673810817582,0.0678907288025,0.068012756968,0.0681311960698,0.0679122631846,0.0675784802612,0.0678620162929,0.0676933302994,0.0677040974905,0.067592836516,0.0673739036308,0.0669216816055,0.0668319550132,0.0666883924656,0.0668965581597,0.0669216816055,0.0668678456502,0.0670544769622,0.0669216816055,0.0669791066246,0.0672267520194,0.068012756968,0.0679373866305,0.0680773601144,0.0680342913501,0.0681706757704,0.0678440709745,0.0678189475286,0.0678943178661,0.0678835506751,0.0677902350191,0.067406205204,0.0673093004843,0.0673882598855,0.0673380129938,0.0673882598855,0.0678368928471,0.0676215490255,0.0676502615351,0.0676717959172,0.0674420958409,0.0676000146434,0.0678799616114,0.0675784802612,0.0676359052803,0.0671800941914,0.0671442035545,0.0676287271529,0.0676789740446,0.0676717959172,0.0677830568917,0.0674420958409,0.0673739036308,0.0676251380892,0.0674851646052,0.0679696882037,0.0681204288788,0.0678907288025,0.0678871397388,0.067826125656,0.0676897412357,0.0680019897769,0.0677687006369,0.0679266194394,0.0676825631083,0.0676215490255,0.0676359052803,0.067406205204,0.0673021223569,0.0671154910449,0.0672626426563,0.0672985332932,0.0674600411594,0.0671657379366,0.0674097942677,0.0673200676754,0.0672769989111,0.067546178688,0.0677220428089,0.0677363990637,0.0678763725477,0.0677722897006,0.0679158522483,0.0680953054329,0.0678763725477,0.0680809491781,0.0682245117258,0.0683680742735,0.0682173335984,0.0683608961461,0.0682855258086,0.0682388679806,0.0680163460317,0.0676466724714,0.0679445647578,0.0676646177898,0.0672626426563,0.0671980395098,0.0671836832551,0.0670831894717,0.0667494065483,0.0600235011891,0.053376555231,0.0468911171391,0.0400108820411,0.0)
ycorr <- c(5.67976032272e-05,5.66430128883e-05,5.61804484926e-05,5.54103710528e-05,5.4324627019e-05,5.2929709465e-05,5.12212545441e-05,4.95073574916e-05,4.77913150779e-05,4.60833982268e-05,4.43771376902e-05,4.26730825045e-05,4.09714850316e-05,3.92696528744e-05,3.75652367215e-05,3.5861231404e-05,3.41585750997e-05,3.24586517847e-05,3.07584328456e-05,2.90428482474e-05,2.73121169531e-05,2.55677066037e-05,2.3806740015e-05,2.20328400951e-05,2.02471727633e-05,1.84488669452e-05,1.66355913603e-05,1.47954013953e-05,1.29341049168e-05,1.10649251553e-05,9.1880455635e-06,7.29604426535e-06,5.38919685318e-06,3.4611711538e-06,1.50980024059e-06,-4.69616103149e-07,-2.47699600861e-06,-4.50045124606e-06,-6.53422534784e-06,-8.5915307076e-06,-1.06747331544e-05,-1.27753437343e-05,-1.48987066913e-05,-1.70434877812e-05,-1.92082434442e-05,-2.13911937668e-05,-2.35886886464e-05,-2.58063862248e-05,-2.80612102983e-05,-3.03496526595e-05,-3.26677279032e-05,-3.50230976956e-05,-3.74156904403e-05,-3.98441450258e-05,-4.23076267919e-05,-4.48050976069e-05,-4.73426917017e-05,-4.99170040979e-05,-5.25160811855e-05,-5.51329366577e-05,-5.77738913487e-05,-6.0444876277e-05,-6.31426229851e-05,-6.58681176664e-05,-6.86143781393e-05,-7.13779621891e-05,-7.41537232982e-05,-7.69397154615e-05,-7.9744436244e-05,-8.25708862233e-05,-8.54150418801e-05,-8.82682231537e-05,-9.11224502146e-05,-9.39781872406e-05,-9.68401399415e-05,-9.9712576845e-05,-0.000102594966071,-0.000105483378571,-0.000108366732256,-0.000111239258514,-0.000114102191227,-0.000116949504995,-0.000119776215317,-0.00012257448564,-0.00012533706655,-0.000128053430467,-0.000130721946176,-0.000133348438567,-0.000135940607717,-0.000138507498825,-0.000141039775505,-0.000143542070822,-0.000146019334881,-0.000148477250406,-0.000150922098892,-0.000153363333205,-0.00015580758003,-0.000158249538453,-0.000160680564689,-0.00016309725216,-0.000165499411774,-0.000167891454987,-0.0001702696769,-0.000172636454409,-0.000174987325033,-0.000177317947014,-0.000179620401065,-0.000181899185033,-0.000184159531554,-0.000186400943692,-0.000188624097078,-0.000190827098821,-0.000193017162069,-0.000195191716947,-0.000197352191861,-0.000199502277419,-0.00020164549947,-0.000203775311153,-0.00020588673387,-0.000207975728129,-0.000210047176668,-0.000212100216322,-0.00021413827571,-0.000216161509845,-0.000218166426774,-0.000220155621452,-0.000222132755263,-0.000224100446276,-0.000226064992498,-0.000228025753048,-0.000229989404189,-0.000231954941397,-0.000233915695803,-0.000235861195987,-0.00023778945076,-0.000239697314631,-0.00024158023901,-0.000243434058762,-0.000245259701079,-0.000247064341443,-0.00024884148777,-0.000250585310177,-0.000252302887089,-0.000253999889334,-0.00025568626917,-0.000257362505959,-0.0002590312923,-0.000260696556431,-0.000262359970688,-0.000264016319891,-0.000265662719608,-0.00026731054161,-0.000268959650135,-0.000270603289882,-0.000272245891442,-0.000273881741405,-0.000275511082359,-0.00027713838202,-0.000278759444293,-0.000280369451857,-0.000281977498032,-0.000283575733546,-0.000285159182525,-0.00028673213313,-0.000288297644873,-0.000289854122416,-0.000291406108995,-0.000292940422134,-0.000294460431731,-0.000295973303405,-0.000297477861424,-0.000298969948797,-0.000300454087623,-0.000301924561752,-0.000303375641192,-0.000304811734991,-0.0003062286315,-0.000307635694568,-0.000309039459778,-0.000310430801684,-0.000311800587101,-0.000313156251558,-0.000314496327638,-0.000315833792684,-0.000317168353702,-0.000318502170521,-0.000319831074658,-0.000321154598754,-0.000322461841036,-0.000323760529071,-0.000325055389027,-0.000326347848678,-0.000327633426979,-0.000328909031557,-0.000330165792916,-0.000331405339155,-0.000332622180439,-0.000333820922712,-0.000335003599589,-0.000336167966784,-0.000337318072099,-0.000338458549725,-0.000339586523855,-0.000340704100116,-0.000341817722168,-0.000342923652733,-0.000344034139978,-0.000345151934957,-0.000346270374614,-0.00034739450784,-0.000348522178963,-0.00034964152253,-0.000350756656981,-0.000351872284145,-0.000352989415374,-0.000354108201058,-0.000355226122148,-0.000356332952344,-0.000357436210466,-0.000358536816447,-0.000359633941633,-0.000360731329232,-0.000361831369089,-0.000362924921424,-0.000364006391946,-0.000365078929857,-0.000366136517825,-0.000367188209748,-0.000368234873866,-0.000369267356208,-0.000370284792467,-0.000371292499875,-0.000372289892008,-0.000373281563654,-0.00037427211155,-0.000375266444243,-0.00037626171246,-0.000377257292651,-0.000378246261014,-0.000379231570711,-0.000380219775484,-0.000381205981506,-0.000382180866423,-0.000383148939723,-0.000384106681108,-0.000385049415687,-0.000385981317958,-0.000386907442533,-0.000387831919593,-0.000388759846182,-0.000389686226715,-0.000390610184029,-0.000391542343811,-0.000392482030316,-0.000393422807741,-0.000394366085032,-0.00039531219285,-0.000396253417353,-0.000397183709535,-0.000398100618593,-0.00039900811558,-0.000399906662451,-0.000400796063137,-0.00040166775263,-0.000402528997663,-0.00040338176578,-0.000404223808583,-0.000405057830275,-0.000405891278814,-0.000406722479478,-0.000407546837585,-0.00040835998196,-0.000409160013449,-0.000409946871434,-0.000410726504347,-0.00041149266105,-0.000412246834662,-0.000412988839751,-0.00041371776176,-0.000414434636674,-0.000415143815617,-0.000415849477155,-0.000416550099361,-0.000417246793973,-0.000417930966537,-0.000418595395565,-0.000419237250351,-0.000419849471178,-0.000420426492389,-0.000420956763959,-0.000421429882955,-0.000421834611337,-0.000422170371835,-0.000422437992368,-0.000422642529013,-0.000422792140307,-0.000422895666629,-0.000422959165691,-0.000422988424169,-0.00042299774409,-0.00042299754299,-0.000423001432558,-0.000423016057961,-0.000423042805365,-0.000423079495283,-0.000423122495325,-0.000423170838138,-0.00042322280822,-0.000423274983036,-0.000423326884383,-0.000423375675265,-0.000423419579949,-0.000423455547815,-0.00042348290878,-0.000423502820125,-0.000423520035581,-0.0004235308815,-0.00042353250433,-0.000423523633875,-0.000423505731475,-0.000423483103541,-0.000423451702037,-0.000423412252986,-0.000423359604244,-0.00042329670604,-0.000423220347842,-0.000423129617867,-0.000423027912054,-0.000422924707667,-0.000422817688365,-0.000422700601447,-0.000422573785789,-0.000422437358294,-0.000422296132375,-0.000422154227045,-0.000422011263788,-0.000421868965074,-0.000421730650198,-0.000421590893722,-0.000421445398332,-0.000421300099796,-0.000421153103231,-0.000421000665168,-0.000420841054111,-0.000420669518702,-0.000420485588208,-0.000420287931148,-0.000420076435509,-0.000419844910515,-0.000419598541037,-0.000419337095863,-0.000419062457389,-0.000418777326915,-0.000418485605757,-0.00041818648781,-0.000417877794998,-0.000417562527055,-0.000417241225839,-0.000416919178239,-0.000416599614776,-0.000416279960352,-0.000415959298027,-0.000415635437236,-0.00041530944945,-0.00041497888616,-0.000414646638313,-0.00041431549253,-0.000413979344587,-0.000413638778365,-0.000413286579452,-0.000412922429272,-0.000412552054965,-0.000412174384315,-0.000411789401513,-0.000411399090447,-0.000411007232324,-0.000410609664593,-0.000410206547413,-0.000409796208249,-0.000409381772708,-0.000408963639491,-0.00040853496967,-0.000408098804423,-0.000407654894624,-0.000407199681343,-0.000406730874948,-0.000406243921719,-0.000405745088632,-0.000405238174444,-0.000404727666465,-0.000404212286586,-0.00040369707353,-0.000403183526129,-0.000402662477138,-0.00040213835076,-0.000401613487206,-0.000401087772122,-0.000400562004741,-0.000400032128293,-0.000399490589774,-0.000398934350065,-0.000398364845357,-0.000397776405438,-0.000397174104554,-0.000396559373054,-0.000395929978841,-0.000395289616964,-0.000394636752206,-0.000393972687707,-0.000393297404399,-0.000392611666188,-0.000391911288365,-0.000391198410821,-0.000390475902263,-0.000389744513504,-0.000389005239765,-0.00038825762046,-0.000387498990574,-0.000386730323864,-0.000385952314191,-0.000385166838318,-0.000384379283345,-0.000383590031099,-0.000382794343345,-0.00038198924667,-0.000381171970565,-0.000380344392603,-0.0003795054055,-0.00037865186269,-0.000377789923316,-0.00037691907647,-0.000376036022938,-0.000375137393392,-0.000374226819262,-0.000373299896619,-0.000372362284068,-0.000371412916036,-0.000370450661788,-0.000369475107816,-0.000368481282575,-0.000367464946334,-0.000366425886472,-0.000365367348205,-0.0003642885552,-0.000363193431076,-0.000362079512552,-0.000360944206197,-0.000359786631207,-0.000358612042179,-0.000357421254741,-0.000356218373453,-0.000355001821347,-0.000353766304797,-0.000352509339825,-0.000351235879341,-0.000349941031243,-0.000348630963799,-0.000347305614538,-0.000345964908918,-0.000344602512968,-0.000343212703979,-0.000341797104705,-0.000340362542407,-0.000338915348164,-0.000337451293295,-0.000335971122268,-0.000334474201098,-0.000332961711096,-0.000331429282734,-0.0003298806537,-0.00032832214579,-0.000326756838521,-0.000325185641244,-0.000323600754343,-0.000321998984192,-0.000320381939267,-0.000318744055733,-0.000317084723454,-0.000315404950118,-0.000313705569592,-0.000311979847323,-0.000310227247156,-0.000308445082983,-0.000306637189529,-0.000304808309132,-0.000302957154749,-0.000301088416118,-0.000299203679359,-0.000297304176821,-0.00029538841693,-0.000293462164948,-0.000291528245336,-0.000289582378404,-0.00028762538756,-0.000285647504912,-0.00028364940042,-0.000281628745306,-0.000279585253492,-0.000277519051634,-0.00027543061206,-0.000273314497715,-0.000271167447856,-0.000268992076675,-0.000266789375201,-0.000264562330053,-0.000262315207335,-0.000260046332463,-0.000257755719984,-0.000255441317173,-0.00025310465932,-0.000250752907015,-0.000248385700887,-0.000246003060354,-0.000243602368337,-0.000241182716586,-0.000238739531508,-0.000236274239621,-0.000233787911416,-0.000231282996699,-0.000228757790323,-0.000226205666207,-0.000223619825167,-0.000221004460566,-0.000218360005599,-0.000215691463604,-0.000213005324771,-0.000210300834768,-0.000207577212393,-0.000204832088781,-0.00020206587585,-0.000199283314602,-0.000196492549551,-0.000193688393178,-0.000190871675097,-0.000188035751354,-0.000185177990173,-0.000182299569417,-0.00017940472869,-0.000176493443887,-0.000173565378859,-0.000170618500287,-0.000167650518017,-0.000164662963913,-0.000161659697396,-0.00015864605672,-0.000155626682763,-0.000152596375944,-0.000149550029982,-0.000146488164343,-0.000143408261033,-0.00014031491229,-0.000137208315998,-0.000134091074169,-0.000130955981065,-0.000127804876937,-0.00012463338323,-0.000121440820628,-0.000118231190246,-0.000115002217799,-0.000111760631863,-0.000108508747846,-0.000105244588193,-0.000101968022935,-9.86797729002e-05,-9.53820864501e-05,-9.20742886681e-05,-8.87592106589e-05,-8.54395026219e-05,-8.21158801155e-05,-7.8787508042e-05,-7.54478118029e-05,-7.20974253834e-05,-6.87346623961e-05,-6.53599040742e-05,-6.1972576806e-05,-5.85743123123e-05,-5.51653347383e-05,-5.17383003936e-05,-4.82940182963e-05,-4.48301685316e-05,-4.13466793677e-05,-3.7843358989e-05,-3.43206307871e-05,-3.07859251133e-05,-2.72388972414e-05,-2.36746421059e-05,-2.00950881595e-05,-1.6500916723e-05,-1.28946783003e-05,-9.27577353571e-06,-5.58035897974e-06,-1.73933031074e-06,2.30679699774e-06,6.61336167806e-06,1.15629704825e-05,1.58580473032e-05,1.98700870192e-05,2.36506055144e-05,2.72590823255e-05,3.07658743789e-05,3.42382144836e-05,3.76109390095e-05,4.08144158373e-05,4.37891433748e-05,4.64782026671e-05,4.850854111e-05,5.11749623745e-05,5.41040856128e-05,5.72481062241e-05,6.05486593596e-05,6.39344925891e-05,6.73391149052e-05,7.07600362617e-05,7.41986272963e-05,7.76526109704e-05,8.11237939466e-05,8.46112438531e-05,8.81140248032e-05,9.16316913999e-05,9.5160049446e-05,9.87005157935e-05,0.00010225036753,0.000105812786332,0.000109389564117,0.000112977517403,0.00011657721751,0.000120189577107,0.000123809700779,0.000127436680855,0.000131071617829,0.000134720840276,0.000138383715725,0.000142060206654,0.000145742429224,0.000149432221075,0.000153131633993,0.00015684162136,0.000160568819856,0.000164316040208,0.000168083789821,0.000171871441298,0.000175672213851,0.000179483377707,0.000183312086795,0.000187164490724,0.00019103821678,0.000194932146624,0.000198844529692,0.000202768575144,0.000206709140595,0.000210663778589,0.000214636953846,0.000218633898912,0.000222655477643,0.000226695226891,0.00023075332347,0.000234833733835,0.000238934887174,0.000243063742012,0.000247219793021,0.000251401180657,0.000255611320147,0.000259849684606,0.000264114713803,0.000268411918613,0.000272741229903,0.000277096624183,0.000281478191123,0.000285886489659,0.000290317472637,0.000294772532138,0.000299248809397,0.000303744475007,0.000308255355086,0.000312780964755,0.000317318164793,0.000321874251795,0.000326451324565,0.000331042634154,0.000335648879659,0.000340268438133,0.000344903202414,0.000349553052698,0.000354221629791,0.000358904867864,0.000363602539433,0.000368308484363,0.000373016373509,0.000377727223312,0.000382441117952,0.000387155215815,0.000391862762807,0.00039656297722,0.000401250803064,0.000405921170536,0.000410573274526,0.000415206655312,0.000419818506417,0.000424410545561,0.000428981453666,0.000433532196246,0.000438065710117,0.000442579361706,0.000447066463444,0.000451530823327,0.000455976643168,0.00046040836166,0.000464825934945,0.000469233505847,0.00047362489423,0.000477998957055,0.000482354291891,0.000486691187698,0.000491017168996,0.000495330986392,0.000499626360185,0.000503896511514,0.000508140057513,0.000512352048755,0.000516531662765,0.000520680435284,0.000524799188389,0.000528890036172,0.0005329531279,0.000536988039416,0.000540998008007,0.000544987968766,0.00054895968908,0.000552911179885,0.000556845808475,0.000560758597346,0.000564651120686,0.000568516641064,0.000572351158533,0.000576150321897,0.000579915069659,0.000583645325232,0.000587339814018,0.000590998579587,0.000594621062608,0.000598210086853,0.000601766350955,0.000605290991852,0.000608790785489,0.000612262375493,0.000615706024946,0.000619113032364,0.000622482178343,0.000625811695349,0.000629101764007,0.00063235001796,0.000635550974132,0.000638703166608,0.000641798987213,0.000644839034875,0.000647824080205,0.000650756364001,0.000653638704092,0.000656471987252,0.000659252912525,0.000661979842839,0.000664650127697,0.000667266572923,0.000669833645814,0.000672355645721,0.000674829473434,0.000677255467323,0.000679627382264,0.000681942056337,0.000684196184759,0.000686393226962,0.000688534145179,0.000690621104555,0.000692651279164,0.000694622567952,0.000696529948466,0.00069837169571,0.00070014933901,0.000701864487885,0.000703524008819,0.000705128022363,0.00070667893922,0.000708174300653,0.000709611079542,0.000710991132115,0.000712315671498,0.000713586747507,0.000714808086728,0.000715976506684,0.000717090465933,0.000718149086626,0.000719149103399,0.000720088132213,0.000720969721176,0.000721794003877,0.000722561115374,0.000723269411055,0.00072391945944,0.000724515032667,0.000725058756843,0.000725554597481,0.000725997650516,0.000726390091423,0.000726731636631,0.000727022011797,0.000727264327758,0.000727458321528,0.000727606340981,0.000727707369611,0.000727753339932,0.000727740271564,0.00072767046137,0.000727549367739,0.000727381467735,0.000727165552563,0.00072689953976,0.000726585336894,0.000726223704385,0.000725814474321,0.000725361281205,0.000724869574556,0.000724350823053,0.000723801668627,0.000723218982737,0.0007226020784,0.000721952158054,0.000721268840811,0.000720549946719,0.000719795240886,0.000719008815147,0.000718188630366,0.000717327568781,0.000716423345387,0.000715473175344,0.000714482840864,0.000713453768964,0.000712389233554,0.000711289214382,0.000710155946093,0.000708984933475,0.000707774711008,0.000706528613942,0.000705250984078,0.000703943896701,0.000702605713942,0.000701230066418,0.000699813122307,0.000698356620955,0.000696860289015,0.000695329826499,0.000693763522014,0.000692160424491,0.000690516949003,0.000688831294787,0.000687101435016,0.000685332588286,0.000683531105855,0.000681697462866,0.000679829051961,0.000677927101034,0.000675988550899,0.000674019128137,0.000672017359153,0.00066998579873,0.000667926435793,0.000665835474908,0.000663710787579,0.000661548520076,0.000659352140058,0.000657118801436,0.000654855746856,0.000652559635194,0.000650232532459,0.000647879184709,0.000645498024052,0.000643091707338,0.000640662808146,0.000638214369187,0.00063574408752,0.000633253655174,0.000630741190656,0.000628197871053,0.000625626850528,0.000623021497012,0.000620381002343,0.000617708744392,0.00061499889006,0.00061225095699,0.00060947024536,0.000606655860531,0.000603803418389,0.000600919754325,0.000598003885709,0.000595056784645,0.000592084261853,0.000589079925871,0.000586044516861,0.000582980452899,0.000579881808198,0.00057674405154,0.000573569627632,0.000570359032257,0.000567110221668,0.000563820733401,0.000560482166329,0.000557093931465,0.000553662012661,0.000550181168169,0.000546652948356,0.000543080647635,0.000539467846152,0.000535818036279,0.000532129795825,0.000528409996834,0.000524662561245,0.000520899507083,0.000517114367587,0.000513307310336,0.000509483123481,0.000505642786596,0.000501785114005,0.000497906603481,0.000494009312894,0.00049009406965,0.000486162247311,0.000482213437866,0.00047824355343,0.000474260777361,0.000470262506277,0.000466246566183,0.000462211965236,0.000458159169421,0.000454089427716,0.000450000326851,0.00044589375524,0.000441760498969,0.000437607181074,0.000433430397243,0.000429228591103,0.000425005380032,0.000420759088962,0.000416491482876,0.000412202907258,0.000407889491115,0.000403551402618,0.000399190921111,0.000394810645826,0.000390410328867,0.000385991206801,0.000381550572525,0.000377090271505,0.000372612685796,0.000368114297378,0.000363599674317,0.000359067819161,0.000354514754464,0.000349937714171,0.000345330791701,0.000340694111981,0.000336029710509,0.000331336914504,0.000326613310563,0.00032185952262,0.000317077458531,0.00031226341606,0.000307421333122,0.00030255330859,0.000297662586407,0.000292752183485,0.000287819206619,0.000282863087631,0.000277885401615,0.000272886731535,0.000267866092626,0.000262827844613,0.000257772855417,0.000252702742281,0.000247618132902,0.000242520627547,0.000237414228554,0.00023230198796,0.000227186320923,0.000222068967855,0.000216951364781,0.000211836135603,0.000206723199672,0.000201615729547,0.000196513722304,0.000191417525479,0.000186325347279,0.000181242414192,0.000176166322895,0.000171099408835,0.000166044486699,0.000160998256373,0.000155963494548,0.000150938908797,0.000145927694133,0.000140932033334,0.000135956744511,0.000130996060267,0.000126047496852,0.000121111761897,0.000116191005796,0.000111284109372,0.000106397294138,0.000101529662876,9.66796978667e-05,9.18457266526e-05,8.70250479181e-05,8.22199380031e-05,7.74384130488e-05,7.2681920085e-05,6.7948601427e-05,6.32385376998e-05,5.85496534633e-05,5.38780551642e-05,4.92266224578e-05,4.45951936272e-05,3.99846073422e-05,3.53992539591e-05,3.08382037269e-05,2.62983257148e-05,2.17791395922e-05,1.72842330087e-05,1.28098880178e-05,8.36093219121e-06,3.93776034421e-06,-4.60178183301e-07,-4.82733440268e-06,-9.17054122359e-06,-1.34922260284e-05,-1.77948680099e-05,-2.20801887664e-05,-2.63484880345e-05,-3.05991970068e-05,-3.4833308434e-05,-3.90506064816e-05,-4.3250046703e-05,-4.74385329265e-05,-5.16129896818e-05,-5.57716952399e-05,-5.99119071545e-05,-6.40310414956e-05,-6.81239660255e-05,-7.21936905362e-05,-7.62396530804e-05,-8.02575213205e-05,-8.42486820319e-05,-8.82084415535e-05,-9.21385676763e-05,-9.6038785666e-05,-9.99054640585e-05,-0.000103743206638,-0.000107557457814,-0.000111346635943,-0.000115108127338,-0.00011884517363,-0.000122559431343,-0.000126255785707,-0.000129933552913,-0.000133590740877,-0.000137228439373,-0.00014084350252,-0.000144433623801,-0.000147993907665,-0.000151527795209,-0.00015503518588,-0.000158515076599,-0.000161965943797,-0.00016538210857,-0.000168771963759,-0.000172136154827,-0.000175482779768,-0.000178814795131,-0.000182132170658,-0.000185435448854,-0.000188725937928,-0.000192002664522,-0.000195261801832,-0.000198503599517,-0.000201724755971,-0.000204922393827,-0.000208086634193,-0.000211211182079,-0.000214295370212,-0.000217339463238,-0.000220344887685,-0.000223309635086,-0.000226235693977,-0.000229128412397,-0.00023198729675,-0.000234812264893,-0.000237605276172,-0.000240371312632,-0.000243115416994,-0.000245838611252,-0.000248542218041,-0.000251226897607,-0.000253891672299,-0.000256534444666,-0.000259150249477,-0.000261745903842,-0.000264324728732,-0.000266882509767,-0.00026941625054,-0.000271925512671,-0.000274404034615,-0.000276848209635,-0.000279257815145,-0.00028163360154,-0.000283981513622,-0.000286302808167,-0.000288592820706,-0.000290853753334,-0.000293089934177,-0.000295302866784,-0.000297488735775,-0.000299654557099,-0.000301802687145,-0.000303934743445,-0.000306052751491,-0.000308153236127,-0.000310235101762,-0.000312297297103,-0.000314339616342,-0.000316360796862,-0.000318365396164,-0.000320355961013,-0.000322329052212,-0.00032428538416,-0.00032621951904,-0.000328124712703,-0.000330005713561,-0.000331869116301,-0.000333715138634,-0.000335538554675,-0.000337338841279,-0.000339111651552,-0.000340862037443,-0.000342587064151,-0.000344288110394,-0.00034597048197,-0.000347638027329,-0.000349283350953,-0.000350898762352,-0.000352489746833,-0.00035405903114,-0.0003556062588,-0.000357129631892,-0.000358626116004,-0.000360099581035,-0.000361551297272,-0.000362975198429,-0.000364372378467,-0.000365745364048,-0.000367097652836,-0.000368423980603,-0.000369730267486,-0.0003710154102,-0.00037227629263,-0.000373514372187,-0.00037473049184,-0.000375921790938,-0.000377089881369,-0.000378241406937,-0.000379369857525,-0.000380478456781,-0.000381561245942,-0.000382617270496,-0.000383653114267,-0.00038467369548,-0.000385672983976,-0.000386650059091,-0.000387607918949,-0.00038854263463,-0.000389444968216,-0.000390324295469,-0.000391183724213,-0.000392026845606,-0.000392851640688,-0.000393654483431,-0.000394436070183,-0.000395196207335,-0.000395934800531,-0.000396654023489,-0.000397363354653,-0.000398061972349,-0.000398741905001,-0.000399400913095,-0.000400045805363,-0.000400670668745,-0.000401277975498,-0.000401875382029,-0.000402467495124,-0.000403003161347,-0.000403424727683,-0.000403730871245,-0.00040393211843,-0.000404037120015)
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(209)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('C2C12-myocyte-H3K27ac-AM_39113_31814008-RT_Fix_3367-5933_IP_C3-17876.mm10.36mers.unique.MACS-2.1.0.p1e-1_model.pdf',height=6,width=6)
plot(x,p,type='l',col=c('red'),main='Peak Model',xlab='Distance to the middle',ylab='Percentage')
lines(x,m,col=c('blue'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 209',bty='n')
dev.off()