# R script for Peak Model
#  -- generated by MACS
p <- c(0.0418351319823,0.0489790420997,0.0561348502355,0.0632668623347,0.0702017072738,0.0701388177487,0.0701575146345,0.0699994409631,0.0701694126528,0.0700079395476,0.0700657299221,0.0698209706889,0.0695643134375,0.0693994408985,0.0695626137206,0.0696034069261,0.0695796108896,0.0695082227799,0.0692651632637,0.0692957581678,0.0692328686426,0.069292358734,0.069309355903,0.069474228442,0.0692073728892,0.0692396675102,0.0691563813823,0.0694300358027,0.0696849933372,0.0697988743693,0.0698974579493,0.0698923587986,0.0698090726707,0.0696187043782,0.0696815939034,0.0693297525058,0.069390942314,0.0694317355196,0.0691359847795,0.0692243700581,0.0691597808161,0.0690526986516,0.0692617638299,0.0691376844964,0.0693059564692,0.0693892425971,0.0693569479761,0.069226069775,0.0694334352365,0.0692294692088,0.0692311689257,0.0691801774188,0.0688504323408,0.0687127552722,0.0684408005687,0.0685172878291,0.068534284998,0.0683626135914,0.0680957580386,0.0681603472807,0.068172245299,0.0682963246325,0.0685121886784,0.0685648799022,0.0686787609343,0.0687025569708,0.068617571126,0.0689660130898,0.0690051065785,0.0686821603681,0.0685716787698,0.0684238033997,0.0683252198197,0.068386409628,0.0683643133083,0.0685274861304,0.0687433501763,0.068435701418,0.0683898090618,0.0685716787698,0.0685070895277,0.0685665796191,0.0684985909432,0.0686379677287,0.0686974578201,0.0683847099111,0.0681467495455,0.0680685625683,0.0681620469976,0.0682334351073,0.0679699789883,0.0681212537921,0.0682334351073,0.06810595634,0.0679291857827,0.0680107721938,0.0680532651162,0.0681331518104,0.068088959171,0.0681654464314,0.068666862916,0.0686039733908,0.0686192708429,0.0686685626329,0.0687688459298,0.0686362680118,0.0685869762218,0.0685580810346,0.0684442000025,0.0683218203859,0.0682198373721,0.068320120669,0.068139950678,0.0679427835179,0.0679053897462,0.0679835767234,0.0680447665317,0.0681739450159,0.0683133218014,0.0684136050983,0.068354115007,0.0681637467145,0.0682402339749,0.0682657297283,0.0682147382214,0.0681586475638,0.0681637467145,0.0679444832348,0.0679342849334,0.0679478826686,0.0679206871983,0.0678034067324,0.0676198373075,0.0678051064493,0.0677796106958,0.0678136050338,0.0677456163579,0.0680277693628,0.0677150214537,0.0678187041844,0.0678934917279,0.0678357013534,0.0681365512442,0.0681773444497,0.068337117838,0.0685121886784,0.0685801773542,0.0685597807515,0.068913321866,0.0689252198843,0.0687807439481,0.068947316204,0.0690017071447,0.0691206873274,0.0691580810992,0.0691784777019,0.069144483364,0.0691903757202,0.0692141717568,0.069078194405,0.0691019904416,0.0691784777019,0.0694487326885,0.0693501491085,0.0694130386337,0.0694504324054,0.0695082227799,0.0694164380675,0.0695507157023,0.0696900924879,0.0698923587986,0.0699450500224,0.0696492992824,0.0697903757848,0.0696085060768,0.069605106643,0.0698124721045,0.0699297525703,0.0698175712551,0.0696374012641,0.0697070896569,0.0697223871089,0.0698770613465,0.0699059565338,0.0702866931187,0.0703359849087,0.0704039735846,0.0703852766987,0.0704685628266,0.0707031237584,0.0707626138498,0.0709614807267,0.0708272030919,0.0707201209274,0.0704974580139,0.0707507158315,0.0707830104526,0.0708153050736,0.0709427838409,0.0709138886536,0.0709954750647,0.0709002909184,0.0711297526995,0.0714815940972,0.0719388179424,0.0717790445541,0.0720475998238,0.0722498661345,0.0724045403722,0.0726255035688,0.0727546820529,0.0727852769571,0.0729076565736,0.0728838605371,0.0727801778064,0.0729586480805,0.0724878265001,0.0725116225367,0.0725711126281,0.0727920758246,0.0728634639343,0.0729705460988,0.0730470333592,0.0730402344916,0.0732832940078,0.0732832940078,0.0737813110586,0.074054965479,0.0740668634973,0.0740583649128,0.0742844272601,0.074615872055,0.0745784782832,0.0745920760184,0.0745291864932,0.0745733791325,0.0744594981005,0.0745920760184,0.0747977417629,0.0747977417629,0.0748929259092,0.0749626143019,0.0751172885395,0.0753807446586,0.0755065237089,0.0756832942662,0.07593315265,0.0757138891703,0.0758685634079,0.0759161554811,0.0757733792617,0.0757767786955,0.0761099232073,0.076245900559,0.0764141725318,0.076575645637,0.0767643142126,0.076971679674,0.076939385053,0.0772079403227,0.0773099233365,0.0776498667158,0.0775410848345,0.0777348525607,0.0776583653003,0.0777773454831,0.0778657307618,0.0781699800863,0.0785575155388,0.0786442011005,0.0788056742057,0.0788821614661,0.0791881105075,0.0791405184344,0.0794515666265,0.0797133230286,0.0799342862252,0.0798730964169,0.0799325865083,0.0801263542346,0.0803405185636,0.0802946262074,0.0801892437597,0.0804374024267,0.0806923599612,0.0808215384454,0.0809694138154,0.0813824450213,0.0815932099165,0.0817920767935,0.0818617651863,0.0820861278166,0.0824328700636,0.0827048247671,0.0825518502464,0.0826164394885,0.0825110570409,0.0826266377898,0.0831892440827,0.083991510458,0.0846408023126,0.0856912273549,0.0866651651368,0.0876510009369,0.0891382532217,0.0904504346661,0.0919070920467,0.0932005766052,0.0937869789346,0.0943325880585,0.0950906617945,0.0956039762973,0.0964198404078,0.0967818801068,0.0970504353765,0.0972628999886,0.0974022767742,0.0974770643176,0.0979393873136,0.098196044565,0.0987433534058,0.0987382542551,0.0988096423648,0.0991699823469,0.0992923619635,0.0995915121373,0.0998991608957,0.0999841467405,0.100058934284,0.100251002293,0.100288396065,0.100760917362,0.100886696413,0.100859500942,0.100895194997,0.101158651116,0.10130992592,0.101801144103,0.102006809848,0.102100294277,0.102083297108,0.102260067665,0.102421540771,0.102681597456,0.103317291575,0.10347876468,0.103616441749,0.10357224911,0.103624940334,0.103834005512,0.104003977202,0.1039937789,0.103998878051,0.104197744928,0.10391729164,0.104003977202,0.104384713786,0.104736555184,0.10522607365,0.105603410802,0.105950153048,0.106271399542,0.106349586519,0.106477065286,0.106541654529,0.106708226784,0.106842504419,0.107026073844,0.10712125799,0.107479898256,0.107767150411,0.107789246731,0.108100294923,0.108283864348,0.108878765262,0.109189813454,0.109507660514,0.109689530222,0.109963184642,0.109886697382,0.110092363126,0.110717858944,0.111324657876,0.111516725886,0.111679898708,0.11191445964,0.111900861904,0.112291796791,0.112570550362,0.112854403083,0.113204544764,0.112988680718,0.113112760052,0.113400012207,0.113605677952,0.113697462664,0.114169983962,0.114390947158,0.114411343761,0.114392646875,0.11437904914,0.114775083177,0.115087831086,0.115410777296,0.115635139927,0.115686131434,0.115573950118,0.115488964274,0.115832307087,0.116292930366,0.116306528101,0.116286131498,0.116041372265,0.115924091799,0.11600057906,0.116391513946,0.116930324202,0.117227774659,0.117525225116,0.117742788879,0.11831729319,0.118839106277,0.119187548241,0.11964817152,0.119836840096,0.120152987439,0.120098596498,0.12023457385,0.120377350069,0.120571117795,0.120771684389,0.120532024307,0.120928058344,0.121291797759,0.121764319057,0.12193259103,0.122221542902,0.122534290811,0.122440806382,0.122603979204,0.122379616573,0.122911627962,0.122801146364,0.122632874391,0.12222834177,0.122473101003,0.122265735541,0.122345622236,0.122639673259,0.12262777524,0.122887831926,0.122915027396,0.122870834757,0.122841939569,0.123200579835,0.123090098236,0.123350154922,0.123273667661,0.123351854638,0.12350992831,0.123766585561,0.124038540265,0.124291798082,0.12447366779,0.12451786043,0.124422676283,0.124409078548,0.124635140896,0.124585849106,0.124541656466,0.124596047407,0.124317293836,0.124284999215,0.124664036083,0.124531458165,0.124718427024,0.124937690503,0.124941089937,0.124915594184,0.124815310887,0.124624942594,0.124842506357,0.12486800211,0.124606245708,0.124641939763,0.12451786043,0.124126925543,0.123785282447,0.12378358273,0.124028341963,0.123839673388,0.12363570736,0.123652704529,0.123452137935,0.123588115287,0.123489531707,0.123623809342,0.123651004812,0.123288965113,0.122976217204,0.122928625131,0.122826642117,0.122656670428,0.122568285149,0.122114460738,0.122128058473,0.121694630664,0.121709928116,0.121658936609,0.121669134911,0.1215875485,0.121635140573,0.121460069732,0.121239106536,0.121242505969,0.120941656079,0.121060636261,0.12053542374,0.120639106471,0.120380749503,0.1203603529,0.1199881149,0.119765451986,0.11989463047,0.119843638963,0.11954958794,0.119323525593,0.119588681429,0.119573383977,0.119211344278,0.118687831473,0.118273100551,0.117982448961,0.117600012659,0.117450437573,0.117365451728,0.117178482869,0.116850437508,0.116080465754,0.116034573397,0.116165451599,0.116240239142,0.115988681041,0.115645338228,0.114865168172,0.114727491104,0.11462550809,0.11430256188,0.114234573204,0.113925224728,0.113456102865,0.113160352125,0.113073666563,0.113092363449,0.113345621267,0.112896896006,0.112636839321,0.1123631849,0.112327490845,0.11216091859,0.112101428498,0.111871966717,0.112060635293,0.111877065868,0.111730890215,0.111841371813,0.111678198991,0.111509927018,0.111554119657,0.111501428434,0.111421541739,0.111385847685,0.110787547337,0.110695762624,0.110556385839,0.110415309336,0.110316725756,0.110321824907,0.109884997665,0.109818708706,0.10960794381,0.109505960797,0.109325790806,0.108999445161,0.108812476303,0.108392646229,0.108185280768,0.107869133425,0.107678765133,0.107437405333,0.107078765068,0.106886697059,0.106762617725,0.106772816027,0.106624940657,0.10650256104,0.106461767834,0.106084430683,0.105498028354,0.104801144426,0.104224940398,0.103235705164,0.102137688049,0.100786413116,0.0991495857441,0.0976640331763,0.0958487355305,0.0944583671088,0.0934385369707,0.0921212563757,0.0911082251051,0.090105392136,0.0897076583821,0.0889206894589,0.0887133239975,0.0882493012846,0.0881456185539,0.0879926440332,0.087666298389,0.0877937771563,0.0877631822521,0.0875337204711,0.0873552501969,0.0872770632196,0.0871648819044,0.0873229555758,0.0872328705803,0.0869541170092,0.0868827288996,0.0865818790088,0.0861960432732,0.0861467514832,0.0857116239576,0.0856810290535,0.0855297542497,0.0854107740669,0.0850164397468,0.0849875445596,0.0846985926871,0.084535419865,0.0845711139198,0.0844147399653,0.0843960430795,0.0843348532712,0.0844147399653,0.0842668645953,0.0842311705405,0.0841308872436,0.0841631818646,0.0839864113073,0.0836447682111,0.0835019919917,0.0833422186034,0.0832759296444,0.0829155896623,0.0827745131599,0.0825008587395,0.0822374026205,0.0821915102642,0.0818872609397,0.0817155895331,0.0816119068024,0.0814708303,0.0812940597427,0.0809609152309,0.0806872608105,0.0807654477878,0.0808198387285,0.0805818783629,0.0803983089381,0.0802946262074,0.080218138947,0.0799767791476,0.0795722465262,0.0794345694575,0.0791694136216,0.0790878272106,0.0789773456123,0.0787750793016,0.0788277705254,0.078883861183,0.0787835778861,0.0787835778861,0.0786985920412,0.0787903767536,0.0787750793016,0.0784487336574,0.0781529829173,0.0780306033007,0.0778895267983,0.0774951924782,0.0772215380578,0.0772487335282,0.077020971464,0.0767150224226,0.0765960422398,0.0766198382764,0.0765229544132,0.0763818779108,0.0762051073535,0.0761524161297,0.0760096399104,0.0755779118186,0.0754368353161,0.0753841440923,0.0751682800464,0.0748436341191,0.0748929259092,0.0745750788494,0.0745750788494,0.0744883932877,0.0744645972511,0.0745461836622,0.0745189881918,0.0742946255615,0.0741059569859,0.0742963252784,0.0740906595338,0.0742402346208,0.0740668634973,0.0741093564197,0.0739002912414,0.0738170051134,0.0737779116248,0.0738849937893,0.0739937756707,0.0737133223827,0.0733172883458,0.0731167217519,0.0729943421354,0.0727682797881,0.0726017075322,0.0721529822714,0.0720628972759,0.0718351352117,0.0717773448372,0.0717586479514,0.0717229538965,0.0715274864534,0.0715053901337,0.0714917923985,0.0715971748462,0.0716770615403,0.071517288152,0.0712810275033,0.0710328688364,0.0708713957312,0.0709869764802,0.0708509991284,0.0709291861057,0.0706946251739,0.0703682795297,0.0701779112373,0.0701847101049,0.0702968914201,0.0702068064245,0.0703002908539,0.0702391010456,0.0703614806621,0.0698923587986,0.0697716788989,0.0700742285066,0.0699858432279,0.0699025571,0.0697682794651,0.069885559931,0.0695541151361,0.0694283360858,0.0692515655285,0.0696458998486,0.0695881094741,0.0693841434465,0.0693484493916,0.0693178544875,0.0693059564692,0.0692889593002,0.0692039734554,0.0691512822316,0.0689643133729,0.0685257864135,0.0685444832994,0.0684272028335,0.0686107722584,0.0684985909432,0.0685393841487,0.0681773444497,0.06815524813,0.0681144549245,0.0681280526597,0.0683881093449,0.0682963246325,0.0683915087787,0.0681195540752,0.0681263529428,0.0677150214537,0.0676759279651,0.0676691290975,0.067628335892,0.067611338723,0.067266296193,0.0672628967592,0.0671286191243,0.0671796106312,0.066953548284,0.067035134695,0.0670385341288,0.0670079392247,0.0668073726308,0.067067429316,0.0670215369598,0.0669042564939,0.0667665794253,0.0665286190597,0.0667104887677,0.0669144547953,0.0671133216723,0.0670691290329,0.0671813103481,0.067018137526,0.0670810270512,0.0669076559277,0.0670249363936,0.0671456162933,0.0671269194074,0.0669824434712,0.0668413669688,0.0669229533798,0.0667597805577,0.0667206870691,0.066673094996,0.0670249363936,0.0670368344119,0.0671864094988,0.0671541148778,0.0671592140285,0.0671133216723,0.0669807437543,0.0669569477177,0.0668328683843,0.0671575143116,0.067084426485,0.0669671460191,0.0668107720646,0.066870262156,0.0668889590419,0.0669773443205,0.0671184208229,0.0674447664671,0.0674872593896,0.0672645964761,0.0671643131792,0.0671762111974,0.0673597806223,0.0671575143116,0.0669909420557,0.0669331516812,0.0668005737632,0.0665524150963,0.0665320184935,0.0663858428404,0.066392641708,0.0663824434066,0.0663943414249,0.0665048230232,0.0666696955622,0.0666764944298,0.0666323017904,0.0664640298177,0.0665167210415,0.0664963244387,0.0666425000918,0.0665473159456,0.0664725284021,0.0662634632238,0.0662192705845,0.0661580807762,0.0664215368952,0.0667597805577,0.0666543981101,0.0666051063201,0.0665320184935,0.0667920751788,0.066985842905,0.0672560978916,0.0672289024212,0.0671201205398,0.0669892423388,0.066968845736,0.0674090724123,0.0674583642023,0.0675450497641,0.0673376843026,0.0671881092157,0.0671184208229,0.0673223868506,0.0676232367413,0.0676640299468,0.0678340016365,0.0676572310792,0.0677745115451,0.0678577976731,0.0680345682304,0.0681025569062,0.067941083801,0.0678798939927,0.0676521319286,0.0676589307961,0.0674260695813,0.0673274860013,0.0674906588234,0.067495757974,0.0674345681658,0.0674192707137,0.0674991574078,0.0675399506134,0.067793208431,0.0676980242848,0.0678679959745,0.0676912254172,0.0677490157917,0.0676861262665,0.0676844265496,0.0677235200382,0.0679478826686,0.0680719620021,0.0679444832348,0.0679427835179,0.067990375591,0.0682589308607,0.0684492991532,0.0684340017011,0.068534284998,0.0686532651808,0.0686600640484,0.0685801773542,0.0687416504594,0.0690272028981,0.0691920754371,0.0691648799668,0.0689507156378,0.0690849932726,0.0691971745878,0.0692753615651,0.069243066944,0.0692328686426,0.0692889593002,0.0691665796837,0.0691546816654,0.0691172878936,0.0691002907247,0.0693076561861,0.0693008573185,0.0691784777019,0.0692022737385,0.0691903757202,0.0692498658116,0.0693637468437,0.0692090726061,0.0693994408985,0.0695099224968,0.0693127553368,0.0694470329716,0.0694181377844,0.0697478828624,0.0699569480407,0.0698957582324,0.0701286194473,0.0702679962328,0.0704498659408,0.0704668631097,0.0705246534842,0.0704090727353,0.0705144551829,0.0703104891552,0.0703053900045,0.0703750783973,0.0704328687718,0.070281593968,0.0701456166162,0.0703444834932,0.0705263532011,0.0707252200781,0.0705926421601,0.0706521322515,0.0708781945988,0.0709087895029,0.0710022739323,0.0712776280695,0.0714340020241,0.0714102059875,0.0713881096678,0.0712266365626,0.071435701741,0.0715478830561,0.0714917923985,0.0712895260878,0.0711807442064,0.0712810275033,0.071155248453,0.0711960416585,0.0709393844071,0.0712487328823,0.0715410841886,0.071665163522,0.071632868901,0.0722022740614,0.0720764950111,0.0720815941618,0.0722073732121,0.072193775477,0.0724657301804,0.0724538321622,0.0721784780249,0.0722175715135,0.0722498661345,0.072275361888,0.0722685630204,0.0722515658514,0.0722158717966,0.0724113392397,0.0724113392397,0.0724487330115,0.0724521324453,0.0725473165915,0.0727223874319,0.0722872599063,0.0726119058336,0.0726526990391,0.0728549653498,0.0729161551581,0.0727903761077,0.0728056735598,0.0729535489298,0.0729144554412,0.0727835772402,0.0731388180716,0.0730130390212,0.0730351353409,0.0729756452495,0.0729314526102,0.073215305332,0.0730640305281,0.0729603477974,0.0728957585554,0.0728702628019,0.0728107727105,0.0728634639343,0.0728005744091,0.072967146665,0.0728549653498,0.0727563817698,0.0726560984729,0.0729943421354,0.0729518492129,0.0731881098616,0.0731864101447,0.0731235206195,0.0731779115602,0.0729433506285,0.073001141003,0.0729518492129,0.0731286197702,0.0732459002361,0.0734532656975,0.073313888912,0.0734736623003,0.0737541155883,0.0736963252138,0.0738255036979,0.0740617643466,0.0741756453787,0.0742334357532,0.0740736623649,0.0741518493421,0.0743337190501,0.0743711128218,0.0740753620818,0.074138251607,0.074532585927,0.074367713388,0.0746175717719,0.0745801780001,0.0746532658267,0.0745070901736,0.0745529825298,0.0745546822467,0.0749099230781,0.0750628975988,0.0750374018454,0.0749966086399,0.0750611978819,0.0751903763661,0.0752158721196,0.0751512828775,0.0751155888226,0.0750628975988,0.0747756454433,0.074911622795,0.0746634641281,0.0747008578998,0.0746073734705,0.0746175717719,0.0744713961187,0.0744781949863,0.0744900930046,0.0745070901736,0.0745053904567,0.074401707726,0.0742436340546,0.0745852771508,0.0745461836622,0.0745954754522,0.0748827276078,0.0749626143019,0.0749099230781,0.0749405179823,0.0752005746675,0.0752532658913,0.0755983084213,0.075273662494,0.0751189882564,0.0751495831606,0.0748827276078,0.0749201213795,0.0750085066581,0.074928619964,0.0748368352516,0.0748606312881,0.0745886765846,0.0746957587491,0.074746750256,0.0745733791325,0.0747178550688,0.0748657304388,0.0746719627126,0.0747399513884,0.0746668635619,0.0745563819636,0.074680461297,0.074615872055,0.0745512828129,0.0746192714888,0.0743456170684,0.074434002347,0.0747280533702,0.0746617644112,0.0747280533702,0.0749371185485,0.074830036384,0.074731452804,0.0748470335529,0.0747246539364,0.074796042046,0.0744119060273,0.0741960419814,0.0741977416983,0.0740260702918,0.0740277700087,0.0741586482097,0.0743269201825,0.0743711128218,0.0745019910229,0.074549583096,0.0747892431784,0.0748776284571,0.0750611978819,0.075175078914,0.0749439174161,0.0749983083568,0.0749048239274,0.074780744594,0.074780744594,0.0747518494067,0.0744408012146,0.0743813111232,0.074434002347,0.0744985915891,0.0743898097077,0.0743575150866,0.0743388182008,0.0743881099908,0.0744204046118,0.0744713961187,0.0746583649774,0.0747093564843,0.0746226709226,0.0746872601646,0.0748368352516,0.0747450505391,0.0745631808312,0.0746940590322,0.0748283366671,0.074731452804,0.0750136058088,0.0748963253429,0.0748674301557,0.0746141723381,0.0744883932877,0.0744611978174,0.0746685632788,0.074631169507,0.0744085065936,0.0745070901736,0.0741331524563,0.0740855603831,0.0741943422645,0.0668974576264,0.0595546806319,0.0521439149617,0.0446957555197,0.0)
m <- c(0.0435048011465,0.0509852492784,0.0584128982547,0.0658609856138,0.0733380273486,0.0735969135317,0.073627571106,0.0737859685733,0.0738915668848,0.0740107907849,0.0742339097979,0.0741334210821,0.0741913298336,0.0740329323663,0.0739494756363,0.0739375532462,0.0740567771463,0.0740891379192,0.074130014685,0.0741947362307,0.073966507622,0.0739682108206,0.0738575029133,0.0739750236148,0.0742202842093,0.0743122569323,0.0743446177052,0.074540485541,0.0744825767896,0.0744229648395,0.0744536224138,0.074608613484,0.0747465725684,0.0747005862069,0.074528563151,0.0745830655054,0.0742441289894,0.074118092295,0.0740652931392,0.074165781855,0.0743395081094,0.0743480241023,0.0742151746136,0.0743599464923,0.0743088505351,0.074177704245,0.0743957136623,0.0742151746136,0.0743326953151,0.0743309921166,0.0743786816766,0.074141937075,0.074213471415,0.0742662705708,0.0742594577765,0.0741794074436,0.073954585232,0.0740414483592,0.0740193067777,0.0737587173961,0.0735407079788,0.0736939958503,0.0737706397861,0.0737876717718,0.0738336581333,0.0741010603092,0.0745387823425,0.0744910927824,0.0744297776338,0.0748572804756,0.0748351388941,0.0749185956242,0.074891344447,0.07495947239,0.0749560659928,0.0747653077527,0.0746631158383,0.0746699286326,0.0748249197027,0.0747295405826,0.0747142117955,0.0746988830083,0.0746580062426,0.0745779559096,0.0748368420927,0.0747108053983,0.0748232165041,0.0748010749227,0.0747465725684,0.0746256454697,0.0748504676813,0.0747329469798,0.0747005862069,0.0743923072652,0.074293521748,0.0746188326754,0.074608613484,0.0746069102854,0.0746426774554,0.074680147824,0.0747431661712,0.0748964540428,0.0750258971343,0.0752490161473,0.0751297922472,0.0750480387157,0.0748896412485,0.0749748011771,0.0747772301427,0.0749185956242,0.0747005862069,0.0747823397384,0.0747670109512,0.0747397597741,0.0748368420927,0.0747891525327,0.0746750382283,0.0745643303211,0.0747465725684,0.0745966910939,0.0747601981569,0.0744417000238,0.074552407931,0.0745592207253,0.0746971798097,0.0747601981569,0.0749611755885,0.0750752898929,0.07504292912,0.0752473129488,0.0752047329845,0.075533450309,0.0755232311176,0.0756628934005,0.0751842946016,0.0751672626158,0.0749526595957,0.0748879380499,0.0748470612842,0.0744025264566,0.0743003345423,0.0740704027349,0.0737314662189,0.0735832879431,0.0738915668848,0.0735202695959,0.0737876717718,0.0739341468491,0.0740533707492,0.0741708914507,0.0742390193936,0.0742918185494,0.0743633528895,0.0744059328538,0.0742662705708,0.0745302663496,0.0746018006897,0.0745728463139,0.074492795981,0.0749168924256,0.0749441436028,0.074784042937,0.0747431661712,0.0745132343639,0.0744331840309,0.0742764897622,0.0739000828776,0.0737484982047,0.0738540965162,0.0734708768373,0.0733584657315,0.0734214840787,0.0733754977172,0.0734300000715,0.0736088359217,0.0738660189062,0.0738796444948,0.0738864572891,0.0734793928301,0.0734180776815,0.07331247937,0.0732596802142,0.0732818217957,0.0732153970514,0.0732205066471,0.0730024972297,0.0730604059812,0.0729871684426,0.07332440176,0.07333632415,0.0734231872772,0.07330055698,0.0732017714628,0.0732392418314,0.0731200179313,0.0732613834128,0.0732443514271,0.0733056665757,0.0732579770157,0.0732562738171,0.07328863459,0.0734742832344,0.0735764751488,0.0734538448516,0.0732920409871,0.0728440997625,0.072845802961,0.0726976246852,0.0725801039837,0.0724966472536,0.072295669822,0.0721389755533,0.0720538156247,0.0721747427233,0.0719482173131,0.072072550809,0.072108317979,0.0723876425449,0.0723399529849,0.0722786378363,0.0723144050063,0.0722633090491,0.071968655696,0.071817071023,0.0718869021645,0.071980578086,0.071920966136,0.0717268014987,0.0716075775986,0.0717625686687,0.0718426190016,0.0716995503215,0.072120240369,0.0722309482762,0.0722871538291,0.0722462770634,0.0722122130919,0.0721253499647,0.0720521124261,0.0717796006544,0.07164164157,0.071733614293,0.07159395201,0.0716705959458,0.0716995503215,0.0716620799529,0.0713197370398,0.0712056227354,0.071255015494,0.0712107323311,0.0712771570754,0.0712567186926,0.0710591476581,0.070939923758,0.0704476993705,0.0702603475274,0.0705073113205,0.0706640055892,0.0704868729376,0.070365945839,0.0701973291803,0.0701530460174,0.0701717812017,0.0700201965287,0.0703216626761,0.0703931970161,0.0700610732944,0.0698737214514,0.0698345478842,0.0699077854229,0.0697289495727,0.0694445154111,0.0695058305597,0.0693797938653,0.069349136291,0.0691243140794,0.0693150723195,0.0693985290496,0.0693167755181,0.0692827115466,0.0694002322482,0.0696369768498,0.0694291866239,0.069512643354,0.0696676344241,0.0696863696084,0.0696148352683,0.0692401315823,0.0692554603695,0.069337213901,0.0693644650781,0.0691226108808,0.0693917162553,0.0694922049711,0.0690442637464,0.0690749213207,0.069081734115,0.0694581409996,0.0695109401554,0.0693917162553,0.0691600812494,0.0694155610353,0.0690766245193,0.0688262543291,0.0691311268736,0.0692724923552,0.0693525426881,0.0691668940437,0.0691089852922,0.0692793051495,0.0692111772066,0.0688858662792,0.0690902501079,0.0689420718321,0.0686201673018,0.0685826969332,0.0684668794302,0.0682982627715,0.0682641988001,0.0681449749,0.0681551940914,0.0682999659701,0.068029157397,0.0681040981342,0.0682624956015,0.0681603036871,0.0680972853399,0.0682505732115,0.0682539796086,0.0681262397157,0.0682795275872,0.0682096964457,0.0682420572186,0.0682778243886,0.0682999659701,0.0682079932472,0.0680478925813,0.0678877919155,0.0680870661485,0.0681415685028,0.0681858516657,0.0679984998227,0.0680087190141,0.0678605407383,0.0677821936039,0.0676272025338,0.0676868144839,0.0675181978252,0.0672439828549,0.0671554165291,0.0670753661962,0.0670753661962,0.067024270239,0.0671911836992,0.0671826677063,0.0674006771236,0.067327439585,0.0675795129738,0.0673700195493,0.0675846225695,0.0674892434494,0.0677634584196,0.0678264767668,0.0678230703697,0.0677310976468,0.0676527505124,0.067690220881,0.067630608931,0.0678366959583,0.0675982481581,0.0675420426052,0.0673444715707,0.067116242962,0.0668641695732,0.0670668502033,0.067000425459,0.0669731742818,0.0668266992046,0.0668658727717,0.0668760919632,0.0669135623318,0.066988503069,0.067163932522,0.067315517195,0.0673240331878,0.0675318234137,0.0675829193709,0.0677276912496,0.067794115994,0.0679337782769,0.0680615181699,0.0681705228786,0.0681960708571,0.0681483812971,0.0681790388714,0.0681279429142,0.0680836597513,0.0681960708571,0.0681637100843,0.0679763582412,0.0679218558869,0.0679337782769,0.0678435087526,0.0678571343411,0.0679746550427,0.0679644358512,0.0680121254113,0.0680223446027,0.06818074207,0.0684242994659,0.0683357331401,0.0684447378488,0.0685605553517,0.068718952819,0.0686780760533,0.0686848888476,0.068858615102,0.0686917016418,0.0685094593946,0.0685826969332,0.0686729664575,0.0686814824504,0.0688381767191,0.0689403686335,0.0689352590378,0.0691396428665,0.0689369622363,0.0691685972422,0.0694445154111,0.0692537571709,0.069560332914,0.0694462186096,0.0694956113682,0.0694887985739,0.0694717665882,0.0694411090139,0.0696540088355,0.0698072967071,0.0697459815584,0.0696846664098,0.0697562007499,0.0698192190971,0.0698413606785,0.0699912421529,0.0699248174086,0.0700610732944,0.0701496396202,0.070027009323,0.0701462332231,0.0705498912848,0.0706316448163,0.0708172934608,0.0708990469923,0.0708820150065,0.0711732619625,0.0712175451254,0.0711647459696,0.0715275272657,0.0715309336628,0.0714628057199,0.0714083033656,0.0713010018555,0.0712260611183,0.071418522557,0.0714168193584,0.0714849473013,0.0718732765759,0.0717659750659,0.0720487060289,0.072319514602,0.072236057872,0.0726192775509,0.0729326660883,0.072774268621,0.0727964102024,0.0728509125568,0.0727146566709,0.0728049261953,0.0726635607137,0.0726005423666,0.0727913006067,0.0727844878124,0.0728492093582,0.0732085842571,0.07328863459,0.0733533561358,0.0734555480501,0.0737638269918,0.0739613980263,0.0740312291678,0.074177704245,0.0743582432937,0.074480873591,0.0745711431153,0.0748879380499,0.0748879380499,0.0752796737217,0.0752353905588,0.0753920848275,0.075824697265,0.0760341906894,0.0759865011294,0.0759711723422,0.0760273778951,0.0762504969082,0.0762675288939,0.076012049108,0.0763169216525,0.0763288440425,0.0762607160996,0.0762539033053,0.0765110862898,0.0768329908201,0.0771072057903,0.077064625826,0.077614758965,0.077941773091,0.0778566131624,0.0780490746011,0.0780609969911,0.078021823424,0.0779860562539,0.0781785176927,0.0780848417711,0.0782006592741,0.0782432392384,0.0785668469673,0.0787661212003,0.0788121075618,0.079086322532,0.0792345008078,0.0795802501181,0.0795700309267,0.079648378061,0.0798510586912,0.0801440088457,0.0801286800586,0.0803245478945,0.0806038724604,0.0808133658849,0.0808968226149,0.0809376993807,0.0812289463366,0.0815883212355,0.0817450155042,0.0817756730785,0.0820277464673,0.0821827375374,0.0821214223888,0.0820992808074,0.0824143725433,0.0826051307835,0.0826426011521,0.0827686378465,0.0828044050165,0.0827396834708,0.0826085371807,0.0826238659678,0.0832830038155,0.0833988213185,0.0836406755158,0.0836781458844,0.0838757169189,0.0839881280247,0.0841294935062,0.084405411675,0.0847136906167,0.0849606544098,0.0847409417939,0.0848857136726,0.0848857136726,0.0851531158485,0.0853353580958,0.0853779380601,0.0859910895463,0.0860558110921,0.0860472950993,0.0860268567164,0.0862261309494,0.0865378162882,0.0867336841241,0.0869857575129,0.0869619127329,0.0873928219718,0.0872787076674,0.0876414889634,0.0879071879408,0.0880655854081,0.0882342020668,0.0883040332083,0.088520339427,0.0885033074413,0.0888201023759,0.088823508773,0.0889699838503,0.0891113493318,0.0891999156576,0.0897176880238,0.0900106381783,0.0905284105444,0.091347649058,0.0922452347059,0.0931445235523,0.0941971002704,0.0952411609955,0.0966207518395,0.0985828365955,0.099940285858,0.101207465596,0.102478051732,0.103288774252,0.104327725382,0.104983456832,0.105441617248,0.106058175132,0.106252339769,0.106182508628,0.106468645988,0.106846756071,0.106964276772,0.10761149223,0.107907848782,0.108389853978,0.109003005464,0.109619563348,0.109944874275,0.110621044108,0.110719829626,0.11112008129,0.111631040862,0.111470940196,0.111636150458,0.111654885642,0.112119858853,0.112044918115,0.112118155654,0.11203980852,0.112124968448,0.111997228555,0.111876301457,0.112216941171,0.112496265737,0.112753448722,0.11257631607,0.112615489637,0.112773887105,0.112533736106,0.112831795856,0.1128982206,0.113209905939,0.113255892301,0.113085572443,0.113165622776,0.113232047521,0.113201389946,0.113240563513,0.113645924774,0.113954203715,0.11446175689,0.114633779946,0.114986342051,0.115204351468,0.115400219304,0.115543287984,0.116023589982,0.116493672788,0.116503891979,0.116762778162,0.116735526985,0.117106824274,0.116963755594,0.117241376961,0.117372523251,0.117582016676,0.118033364297,0.118421693572,0.118472789529,0.118343346438,0.118884963584,0.11906890903,0.11961733897,0.119802987615,0.119750188459,0.120138517734,0.119976713869,0.120024403429,0.120862377127,0.121053135367,0.120974788233,0.120995226616,0.121184281657,0.121242190409,0.121782104356,0.121652661265,0.121696944428,0.121673099648,0.121494263798,0.121855341895,0.121759962775,0.121548766152,0.121349491919,0.121790620349,0.121754853179,0.122001816972,0.122444648601,0.122679690004,0.122965827364,0.122993078542,0.123679467567,0.1239979657,0.12434371501,0.124243226294,0.124302838244,0.124072906437,0.123999668898,0.123921321764,0.123795285069,0.123934947352,0.123633481205,0.123783362679,0.123989449707,0.123958792132,0.124265367876,0.124781437043,0.124870003369,0.124876816163,0.125098231978,0.125040323226,0.125323054189,0.125442278089,0.125309428601,0.125336679778,0.124997743262,0.125173172715,0.125019884843,0.124905770539,0.124706496306,0.124680948327,0.124497002881,0.124548098839,0.124444203726,0.124588975604,0.124910880135,0.124529363654,0.124290915854,0.124376075783,0.124190427138,0.123975824118,0.123635184404,0.12311400564,0.122998188137,0.12285171306,0.122705237983,0.12279210111,0.123085051265,0.123081644867,0.123110599243,0.122965827364,0.123098676853,0.12324515193,0.123258777519,0.12293516979,0.122395255843,0.121977972192,0.121785510753,0.121846825902,0.121802542739,0.121758259576,0.121877483476,0.121763369172,0.121536843762,0.121369930302,0.121519811776,0.121547062953,0.121283067174,0.121114450516,0.120795952383,0.12079935878,0.12046553186,0.120034622621,0.120141924131,0.120014184238,0.119866005962,0.119375484773,0.119257964071,0.118789584464,0.118680579755,0.118162807389,0.11783919966,0.118082757056,0.117525811123,0.117418509613,0.11721923538,0.11715962343,0.116985897175,0.116558394333,0.116427248043,0.11645449922,0.116403403263,0.116003151599,0.115892443691,0.115710201444,0.115609712728,0.115442799268,0.114950574881,0.115018702824,0.114713830279,0.11442598972,0.11384179261,0.113480714512,0.113339349031,0.112990193323,0.112748339126,0.112668288793,0.112630818424,0.112429840993,0.112118155654,0.1120636533,0.11193250701,0.11199211896,0.111578241706,0.111416437842,0.11091740066,0.110684062456,0.110539290577,0.110420066677,0.110421769875,0.110179915678,0.110200354061,0.109985751041,0.110137335714,0.110016408615,0.109984047842,0.109766038425,0.109379412349,0.109147777343,0.108594237807,0.108367712397,0.108205908532,0.107940209555,0.107570615464,0.107419030791,0.107454797961,0.10731343248,0.107359418841,0.107279368508,0.107275962111,0.107078391077,0.106548696321,0.106022407962,0.105691987439,0.105613640304,0.104961315251,0.104624081933,0.104339647772,0.104044994419,0.103748637867,0.103438655727,0.103379043777,0.103220646309,0.102987308105,0.102391188604,0.102321357463,0.102185101577,0.101977311351,0.101546402112,0.101578762885,0.101398223836,0.101219387986,0.101258561553,0.101040552136,0.100996268973,0.100945173016,0.100660738854,0.100485309401,0.100309879948,0.100095276928,0.0998908930994,0.0997921075822,0.0993577919461,0.0992777416132,0.0990648417916,0.0987156860842,0.0984789414825,0.098513005454,0.0986509645384,0.0985641014112,0.0982541192709,0.0979424339321,0.0978334292234,0.0977414565005,0.0976665157633,0.0976341549904,0.0976205294018,0.0969613915541,0.0965560302938,0.096375491245,0.096375491245,0.0960638059062,0.09551026637,0.0946416350979,0.09374404945,0.092854979795,0.0917989966798,0.0908247670961,0.0893957834935,0.0877249456935,0.0864526563596,0.0853081069186,0.0845076035894,0.0837241322459,0.082862313768,0.0822031759203,0.0816956227456,0.0812579007124,0.0813277318539,0.0814214077754,0.0810790648622,0.0808065530906,0.0806958451833,0.080489758156,0.0804693197731,0.0802002143986,0.0801559312357,0.0803211414973,0.0801133512714,0.079915780237,0.0799651729956,0.0798732002726,0.0796262364796,0.0796194236853,0.0795700309267,0.0795547021395,0.0791868112478,0.0788836419018,0.0786639292859,0.0786792580731,0.0787916691789,0.0785992077402,0.0781887368841,0.0780524809983,0.0779622114739,0.0776607453265,0.0777271700708,0.0775841013907,0.0776300877522,0.0772332424847,0.0768244748272,0.07670184453,0.0769215571459,0.0766984381328,0.0765434470627,0.0764736159212,0.0762522001068,0.0762522001068,0.0759728755408,0.0759251859808,0.0757701949106,0.0755777334719,0.0753648336503,0.0752217649702,0.07498331717,0.0750463355172,0.0749305180142,0.0745626271225,0.0743735720809,0.0742475353865,0.0740414483592,0.0741470466707,0.0740874347207,0.0739120052677,0.0737774525804,0.0737859685733,0.0738421741262,0.0737655301904,0.0736939958503,0.0736837766589,0.0736428998931,0.0736020231274,0.0737042150418,0.0736411966946,0.0733669817243,0.0731625978956,0.0729990908326,0.0729650268611,0.0728202549825,0.0726209807494,0.072574994388,0.0726158711537,0.0726158711537,0.0725017568493,0.0726192775509,0.0725136792393,0.0724421448993,0.0724915376579,0.0722071034962,0.0722905602263,0.0720810668018,0.0717523494773,0.0714014905713,0.0713623170041,0.0713316594298,0.0711885907497,0.0710131612967,0.0707236175393,0.0709688781338,0.0707457591207,0.0704647313562,0.0704630281576,0.0703523202504,0.0703574298461,0.0701274980388,0.070038931713,0.0700218997272,0.0700542605001,0.0701240916416,0.0697766391328,0.0702484251374,0.0701087628545,0.0700559636987,0.0698839406428,0.0700048677415,0.0699656941743,0.0696829632113,0.0695109401554,0.0691515652565,0.0691243140794,0.0685384137703,0.0683646875159,0.0682607924029,0.0682079932472,0.0681637100843,0.068064924567,0.0680495957799,0.0680359701913,0.0682182124386,0.068567368146,0.0686814824504,0.0687087336276,0.0686814824504,0.0688500991091,0.0685281945789,0.0684566602388,0.0685809937346,0.0684600666359,0.0682982627715,0.068041079787,0.0682113996443,0.06815689729,0.0681092077299,0.0681075045314,0.06822843163,0.0681960708571,0.0680564085742,0.0682079932472,0.0681211301199,0.0683016691687,0.0681279429142,0.0682267284315,0.0682590892043,0.06819266446,0.0683016691687,0.0683152947572,0.0683663907144,0.0683476555301,0.0684549570402,0.0681177237228,0.068017235007,0.067794115994,0.0675590745909,0.0673172203936,0.0669833934733,0.0669782838776,0.0670276766362,0.0668777951618,0.0667500552688,0.0667994480274,0.0666580825459,0.0667619776588,0.0668931239489,0.0670753661962,0.0672507956492,0.0670855853876,0.0667909320345,0.0667739000488,0.0667943384317,0.0667943384317,0.066964658289,0.0667006625102,0.0666512697516,0.0666342377658,0.0664911690857,0.0666325345673,0.0667279136873,0.0666155025815,0.0663685387885,0.0662527212855,0.0662970044484,0.0664656211071,0.0663651323913,0.0662118445198,0.0661982189312,0.0662254701084,0.0663157396327,0.0663872739728,0.0664724339014,0.0664707307028,0.0665116074686,0.06646221471,0.0664451827243,0.0664145251499,0.06652182666,0.0665644066244,0.0665320458515,0.0665388586458,0.0665780322129,0.0666631921416,0.0667790096445,0.0668624663746,0.066848840786,0.0669442199061,0.0670532246148,0.0669731742818,0.0670872885862,0.0671724485149,0.0673717227479,0.0673853483365,0.0672184348763,0.0671673389191,0.0672712340321,0.0671928868977,0.0672490924506,0.0671230557562,0.0669680646861,0.0670464118205,0.0669152655304,0.0667483520702,0.066601876993,0.066601876993,0.0667381328788,0.0665967673972,0.0663651323913,0.0665507810358,0.0665030914757,0.06646221471,0.0663804611785,0.0664315571357,0.066613799383,0.0666308313687,0.0667125849002,0.0668284024031,0.0669544390975,0.066860763176,0.0670941013805,0.0669731742818,0.0669203751261,0.0671945900963,0.0672899692164,0.0674773210594,0.0674296314994,0.0674602890737,0.0675607777895,0.0675318234137,0.0674074899179,0.0676765952924,0.0677702712139,0.0678026319868,0.0677123624625,0.0678264767668,0.0676391249238,0.0677379104411,0.0675522617966,0.0675079786337,0.0676237961367,0.0675113850309,0.0677532392282,0.067702143271,0.0678043351854,0.0677174720582,0.0678809791212,0.0679167462912,0.0680802533542,0.0682607924029,0.0684089706788,0.0685929161246,0.0686576376704,0.068695108039,0.0685043497988,0.0684294090616,0.0683578747216,0.068332326743,0.0684873178131,0.068742797599,0.0686678568618,0.068579290536,0.0685128657917,0.0685213817846,0.0689267430449,0.0689710262078,0.069010199775,0.0689591038178,0.0691328300722,0.0689233366478,0.068882459882,0.0688296607263,0.0689744326049,0.0621190583492,0.0550490810733,0.0481937068175,0.0414115701004,0.0)
ycorr <- c(9.21847114991e-05,9.21040731147e-05,9.18633668634e-05,9.14571302552e-05,9.08691331766e-05,9.00984022149e-05,8.9137082876e-05,8.81827612057e-05,8.7228092993e-05,8.62749806985e-05,8.53088727682e-05,8.43287122507e-05,8.33333383036e-05,8.23215097625e-05,8.12996423767e-05,8.02738480732e-05,7.92468868321e-05,7.82147842682e-05,7.7187107452e-05,7.61661831322e-05,7.51514193685e-05,7.4147608866e-05,7.3150778442e-05,7.2161012252e-05,7.11751146668e-05,7.0183278916e-05,6.91865882308e-05,6.81887446385e-05,6.71952619189e-05,6.61976475702e-05,6.52027447009e-05,6.42020034966e-05,6.3197156557e-05,6.21835922835e-05,6.11647841696e-05,6.01488471623e-05,5.91344398325e-05,5.81219463925e-05,5.71047333855e-05,5.60827067246e-05,5.50499934976e-05,5.40019887538e-05,5.29415932723e-05,5.18704886726e-05,5.07865806515e-05,4.96874088401e-05,4.85693020068e-05,4.74367376288e-05,4.62848184969e-05,4.51129311422e-05,4.39282003665e-05,4.27321223161e-05,4.15264452615e-05,4.03109262054e-05,3.9091718765e-05,3.78712269028e-05,3.66521190164e-05,3.54284848544e-05,3.41929204424e-05,3.29491155799e-05,3.17025709883e-05,3.04528563755e-05,2.91972763112e-05,2.79342019941e-05,2.66604477803e-05,2.53681922228e-05,2.40623630641e-05,2.27398610464e-05,2.14168273357e-05,2.00971845796e-05,1.87698956734e-05,1.74338635776e-05,1.60897397283e-05,1.47456973858e-05,1.33967453142e-05,1.20520582331e-05,1.07033435477e-05,9.35515844932e-06,8.00624655712e-06,6.6500019705e-06,5.2893501579e-06,3.93188291869e-06,2.57698741705e-06,1.22091895363e-06,-1.33061875596e-07,-1.48986468599e-06,-2.84778118882e-06,-4.20305305139e-06,-5.56811707027e-06,-6.94170005813e-06,-8.32743478141e-06,-9.72661462525e-06,-1.11418560862e-05,-1.25738627851e-05,-1.40252125181e-05,-1.54920523735e-05,-1.69676821459e-05,-1.84525505868e-05,-1.99413690318e-05,-2.14276049284e-05,-2.29082876458e-05,-2.43851772225e-05,-2.58556766026e-05,-2.7317212035e-05,-2.87755436822e-05,-3.02290166704e-05,-3.16860870028e-05,-3.31502759849e-05,-3.46240021105e-05,-3.61088753542e-05,-3.76096912957e-05,-3.91224938332e-05,-4.06494116911e-05,-4.21913079433e-05,-4.37381441108e-05,-4.52885866738e-05,-4.68386877163e-05,-4.83911074953e-05,-4.99378150905e-05,-5.14783257327e-05,-5.3009449332e-05,-5.45318171152e-05,-5.60462858324e-05,-5.75529035004e-05,-5.90553352039e-05,-6.05618831869e-05,-6.20752471349e-05,-6.35931835135e-05,-6.51084079967e-05,-6.66281039616e-05,-6.81523668013e-05,-6.96831757434e-05,-7.12145623726e-05,-7.27452789894e-05,-7.42732176889e-05,-7.57971223063e-05,-7.73147459828e-05,-7.88260075325e-05,-8.03445849619e-05,-8.18700231707e-05,-8.3400091038e-05,-8.49319113856e-05,-8.6469577209e-05,-8.8017925081e-05,-8.95816957693e-05,-9.11523878008e-05,-9.27252321637e-05,-9.42959312255e-05,-9.58614469456e-05,-9.74215155455e-05,-9.89789614591e-05,-0.000100536557846,-0.00010210296808,-0.000103673081125,-0.000105238665561,-0.000106801758606,-0.000108371579277,-0.000109954031992,-0.000111547866177,-0.000113149981685,-0.000114750991539,-0.000116351897251,-0.000117943586637,-0.000119518795054,-0.00012108876568,-0.000122658490087,-0.000124226169051,-0.000125784266083,-0.000127334162838,-0.00012887730303,-0.000130417022583,-0.000131951246207,-0.000133478318293,-0.000135009287517,-0.000136538082692,-0.000138057242105,-0.000139568740435,-0.000141074793034,-0.000142579054866,-0.000144073579677,-0.000145563203064,-0.000147050050002,-0.000148541926011,-0.000150038355079,-0.00015153559734,-0.000153042021243,-0.000154553026721,-0.000156065707825,-0.000157575513825,-0.00015909112551,-0.000160614965427,-0.000162143962291,-0.000163667504978,-0.000165182712722,-0.000166692231589,-0.000168193592525,-0.000169690963766,-0.000171190858821,-0.00017269645852,-0.000174206637163,-0.000175712820402,-0.000177220482215,-0.000178730465752,-0.000180253003383,-0.000181785614803,-0.000183327013092,-0.00018487073893,-0.000186413902885,-0.000187952516782,-0.000189488570414,-0.000191028107335,-0.000192570212657,-0.000194115324242,-0.000195658651755,-0.000197198687828,-0.000198736937488,-0.000200277502512,-0.000201824454212,-0.000203374425745,-0.000204926682222,-0.000206472046609,-0.000208007996974,-0.000209538138151,-0.000211058629584,-0.000212574851555,-0.000214086822933,-0.000215597375159,-0.00021710237332,-0.00021860656897,-0.00022011309503,-0.000221624108274,-0.000223144342402,-0.000224668883683,-0.000226193422348,-0.000227718409668,-0.000229245748369,-0.000230766175092,-0.000232278873123,-0.000233784917134,-0.000235281341296,-0.000236769924538,-0.000238253118409,-0.000239735295998,-0.000241222743301,-0.000242717832038,-0.000244214660945,-0.000245715415219,-0.000247227752284,-0.000248751371064,-0.000250282070847,-0.000251825050709,-0.000253373286352,-0.000254922719722,-0.000256473752423,-0.000258023504998,-0.000259575519287,-0.000261136833533,-0.000262699840531,-0.000264261749996,-0.000265822233385,-0.000267383373183,-0.000268941575461,-0.000270504931842,-0.000272069864278,-0.000273633595962,-0.000275197744407,-0.000276756251368,-0.000278309411784,-0.000279865292302,-0.000281427512361,-0.000282993477775,-0.000284561496615,-0.000286127388702,-0.000287690215345,-0.000289255870634,-0.000290821662463,-0.000292389059369,-0.000293959960182,-0.000295525785721,-0.000297082688738,-0.000298631012913,-0.000300175405348,-0.000301714395818,-0.000303243122369,-0.000304751124418,-0.000306229444825,-0.000307676263794,-0.000309084970401,-0.000310449257627,-0.000311762979473,-0.000313013808821,-0.000314196601728,-0.000315309826799,-0.000316362199656,-0.000317363075429,-0.000318322299183,-0.000319248476973,-0.000320148896101,-0.000321033962568,-0.000321922355933,-0.000322833408632,-0.000323777324265,-0.000324755910962,-0.000325767781215,-0.000326806515342,-0.0003278734016,-0.000328964844723,-0.000330081423401,-0.000331221321977,-0.000332376277439,-0.000333533950579,-0.000334690796211,-0.000335846293983,-0.000337001288292,-0.00033815948064,-0.000339321852895,-0.000340485182988,-0.000341647000048,-0.000342805209671,-0.000343957119893,-0.000345107702299,-0.0003462587996,-0.000347407214732,-0.000348550222928,-0.000349690874721,-0.000350826091444,-0.00035195384099,-0.000353076855196,-0.000354197126492,-0.000355317400812,-0.000356433616655,-0.000357543343287,-0.000358646624932,-0.000359750790074,-0.000360854773812,-0.000361956476179,-0.000363055630141,-0.000364153872693,-0.00036525004292,-0.000366342652678,-0.000367430316249,-0.000368515999231,-0.000369598686061,-0.000370674044697,-0.000371736269304,-0.000372790864832,-0.000373840862689,-0.00037488388004,-0.000375918670088,-0.00037694249634,-0.000377958260771,-0.000378962609798,-0.00037996026377,-0.000380952045267,-0.000381939960076,-0.000382922970441,-0.000383903545559,-0.000384878364719,-0.000385848442236,-0.000386817236293,-0.000387786993246,-0.000388759219666,-0.00038973537405,-0.000390714588575,-0.00039169359447,-0.000392668665459,-0.000393639513934,-0.000394603900828,-0.000395561520352,-0.000396509933428,-0.000397447713432,-0.000398374208842,-0.000399291255017,-0.000400199421704,-0.000401094899714,-0.000401983815966,-0.000402866992035,-0.000403743921039,-0.000404615604511,-0.000405481069281,-0.000406345421952,-0.000407205925573,-0.000408058567312,-0.000408897089165,-0.000409723613124,-0.000410539432604,-0.000411340041419,-0.000412128291827,-0.000412901966873,-0.000413664441523,-0.00041441423769,-0.000415144975846,-0.000415860966104,-0.000416563915586,-0.000417259902309,-0.00041794384497,-0.000418617466915,-0.000419282257941,-0.000419939427364,-0.000420592640512,-0.000421229863946,-0.000421864233069,-0.000422495081969,-0.000423121151312,-0.000423740030211,-0.000424351246843,-0.000424953540125,-0.000425541484075,-0.000426115608499,-0.00042667153986,-0.000427210947188,-0.000427731252005,-0.000428224275987,-0.0004286957109,-0.000429146488252,-0.000429581209661,-0.00042999823941,-0.000430402164164,-0.000430795561091,-0.000431178897437,-0.000431558978429,-0.000431932648385,-0.000432307218511,-0.000432680217604,-0.000433051212818,-0.000433409446869,-0.000433753897476,-0.00043408464049,-0.000434398207661,-0.000434693569219,-0.000434966953745,-0.000435218599916,-0.000435446980365,-0.000435651493003,-0.00043583163237,-0.000435988688921,-0.000436130778504,-0.000436255863345,-0.000436365535417,-0.000436459133633,-0.000436541159806,-0.000436609987805,-0.000436663041801,-0.00043670081141,-0.000436723191831,-0.000436732817476,-0.000436727090907,-0.000436704401325,-0.000436665685,-0.000436609196981,-0.000436530208612,-0.000436426386172,-0.000436299764904,-0.000436146122376,-0.000435966387467,-0.000435760666554,-0.000435528709073,-0.000435275082294,-0.000434998200851,-0.000434698852978,-0.000434377528113,-0.000434038146727,-0.000433681602385,-0.000433312109102,-0.00043293450342,-0.000432549374201,-0.000432154354114,-0.000431742180629,-0.000431310953427,-0.000430863971712,-0.00043040101515,-0.000429923228265,-0.000429427345035,-0.000428911494336,-0.000428373801282,-0.000427809733314,-0.000427220008482,-0.000426608414385,-0.000425975591033,-0.000425316050295,-0.000424629446888,-0.000423917176431,-0.000423180176492,-0.000422423446617,-0.000421644634487,-0.000420843845195,-0.00042002373588,-0.000419184053611,-0.000418325209883,-0.000417450576238,-0.000416562619277,-0.000415660756223,-0.000414741078401,-0.000413798366634,-0.000412833005756,-0.000411845653498,-0.000410834971435,-0.000409799570168,-0.000408737870714,-0.000407650284283,-0.000406536674634,-0.000405399325185,-0.000404239460632,-0.000403056761508,-0.000401851591287,-0.000400626007459,-0.000399378101859,-0.000398109028496,-0.000396819611196,-0.000395512874219,-0.000394187836101,-0.000392840183097,-0.000391466118287,-0.000390066664339,-0.000388641252595,-0.000387192242181,-0.000385714296115,-0.000384209979008,-0.00038268280541,-0.000381128084161,-0.000379540414268,-0.000377919542231,-0.000376270824066,-0.000374599344475,-0.00037290217669,-0.000371180262925,-0.000369437964646,-0.000367675381927,-0.000365889579019,-0.000364075702004,-0.000362238815248,-0.000360382377687,-0.000358505357527,-0.000356605536914,-0.000354679369347,-0.000352729015204,-0.000350753137556,-0.00034875084984,-0.00034672248968,-0.000344670617594,-0.000342598371321,-0.000340505522878,-0.000338392333262,-0.000336259323619,-0.000334107259428,-0.000331935402854,-0.000329741836027,-0.000327525371474,-0.000325285657609,-0.000323024426817,-0.000320741098197,-0.00031842962131,-0.000316092259262,-0.000313722181023,-0.000311323505544,-0.000308893763082,-0.000306433964279,-0.00030394964599,-0.000301442301459,-0.000298910443962,-0.000296355291481,-0.000293778865182,-0.000291182982355,-0.000288567389592,-0.000285935584252,-0.000283285005543,-0.000280617893012,-0.000277932488759,-0.000275223733243,-0.000272494622788,-0.000269740813162,-0.000266960681057,-0.000264152240346,-0.000261315739632,-0.000258448118139,-0.000255554161964,-0.00025263627179,-0.000249693580264,-0.000246726701685,-0.0002437352538,-0.00024071882022,-0.000237682502114,-0.00023462712693,-0.000231555487464,-0.000228468530367,-0.000225367505807,-0.000222244283127,-0.000219093715237,-0.000215916535846,-0.000212714598924,-0.000209389789462,-0.000205846707566,-0.000202005303021,-0.00019780900086,-0.000192725592401,-0.000188583037486,-0.000184799686811,-0.000181309503043,-0.000178026222952,-0.000174845650541,-0.000171660397142,-0.0001685709483,-0.000165673284777,-0.000163035621378,-0.000160716608715,-0.000159241938122,-0.000156782081358,-0.000153920788517,-0.000150730543961,-0.00014729961291,-0.000143728945548,-0.000140123664666,-0.000136477744547,-0.000132794287708,-0.000129077121108,-0.000125327426677,-0.000121553986251,-0.000117757118775,-0.000113930901606,-0.000110073977641,-0.000106187133511,-0.000102272553567,-9.83298873926e-05,-9.43669888691e-05,-9.03822974364e-05,-8.63801738798e-05,-8.23584833711e-05,-7.831314401e-05,-7.42467392522e-05,-7.01621482685e-05,-6.60604280135e-05,-6.19454285015e-05,-5.78224612702e-05,-5.36909591941e-05,-4.95479941717e-05,-4.53925391956e-05,-4.12232345205e-05,-3.70398671424e-05,-3.28441524751e-05,-2.86314424203e-05,-2.44034670704e-05,-2.01601740945e-05,-1.58984002908e-05,-1.16168060488e-05,-7.31841245941e-06,-3.00474903744e-06,1.32303668457e-06,5.66239687714e-06,1.00101418731e-05,1.43650952484e-05,1.87243530619e-05,2.30857775722e-05,2.74512920178e-05,3.18275240398e-05,3.6212888845e-05,4.06084132644e-05,4.50136892622e-05,4.94309675247e-05,5.38644967922e-05,5.83138931808e-05,6.27809071943e-05,6.72699289413e-05,7.17792297145e-05,7.6303254259e-05,8.08434159259e-05,8.54011615773e-05,8.99766587747e-05,9.45729766801e-05,9.91873447294e-05,0.000103818262219,0.000108468698609,0.000113135273633,0.000117815952113,0.000122514873125,0.000127231521965,0.000131960299074,0.000136701731064,0.000141449850699,0.000146205494841,0.000150970168309,0.000155741176978,0.000160519917957,0.000165306978561,0.000170094974201,0.000174886829639,0.000179687108974,0.000184493389569,0.000189313386668,0.000194144082197,0.000198982445745,0.000203826965528,0.000208677197664,0.000213532286281,0.000218394777536,0.000223263460155,0.000228134234356,0.000233009431207,0.000237883483186,0.000242752824631,0.000247624922981,0.000252498858962,0.00025737336846,0.000262249129461,0.000267121018522,0.000271990433954,0.000276857389042,0.000281723453803,0.000286581978453,0.00029144110264,0.000296293075479,0.000301139910112,0.000305981636731,0.000310819094666,0.000315654591949,0.000320490997798,0.000325325803664,0.000330158885168,0.000334989784939,0.000339821910499,0.000344652148881,0.000349478213847,0.00035429745101,0.000359107924556,0.000363911483809,0.000368704354159,0.000373487762203,0.000378258653756,0.000383025370029,0.000387782552465,0.000392522704308,0.000397249773539,0.000401968783578,0.000406676827404,0.000411374098014,0.000416059273535,0.000420732271613,0.000425390322422,0.00043003000274,0.000434642154304,0.000439234469482,0.000443806227034,0.00044834998031,0.000452868921112,0.000457362212398,0.000461829704392,0.000466267276632,0.000470675022597,0.00047505113406,0.000479403848813,0.000483734180426,0.000488039942308,0.000492328493057,0.000496597109007,0.000500843205852,0.000505066045624,0.000509267343975,0.00051344973137,0.000517615361585,0.000521762289349,0.000525887643499,0.000529991037723,0.000534068173897,0.000538116459496,0.000542141045193,0.000546137738433,0.000550110717198,0.00055405381283,0.00055796565606,0.000561843223954,0.000565689955406,0.00056951064971,0.000573301237163,0.000577064490673,0.000580799633722,0.000584502473202,0.000588173423134,0.000591811260447,0.000595420510846,0.000598998631061,0.00060254542764,0.000606050429572,0.000609513910429,0.000612938398637,0.000616322681522,0.000619667692527,0.000622975902409,0.000626248813414,0.000629480576168,0.000632670810973,0.00063582145184,0.000638933006445,0.000642014720723,0.000645059114161,0.000648065528893,0.000651036856925,0.00065397470879,0.000656876852458,0.000659745421955,0.000662582879785,0.000665387925831,0.000668164261695,0.000670902990471,0.000673605562388,0.000676271989084,0.000678902419022,0.000681485263337,0.000684020879775,0.000686508260005,0.000688946829238,0.000691333473633,0.000693669379161,0.000695953730989,0.000698197162564,0.000700398303559,0.000702553333152,0.000704668231787,0.000706751036797,0.000708799487007,0.000710815363244,0.000712793527063,0.000714738168188,0.000716649239034,0.000718520400202,0.0007203446422,0.000722125576809,0.000723864755282,0.000725555104764,0.000727194014452,0.000728781988475,0.000730322718006,0.000731818104046,0.000733267146889,0.000734667073854,0.000736025354595,0.000737341194291,0.000738612168165,0.000739840471154,0.000741030005791,0.00074218247209,0.0007432970377,0.000744367065977,0.000745392685024,0.000746372551024,0.000747303545129,0.000748182662232,0.000749011989629,0.000749794574833,0.000750529144283,0.000751210923522,0.000751839036422,0.000752410606308,0.000752930153628,0.000753400181156,0.000753821228792,0.000754199357801,0.000754533690916,0.000754822267747,0.00075506072185,0.000755249417088,0.000755394789542,0.000755500754022,0.000755567561845,0.000755593337637,0.000755576929756,0.000755520907402,0.00075542253855,0.000755277461605,0.000755093653669,0.000754872016482,0.000754612871741,0.000754309505749,0.000753957102485,0.000753559939761,0.000753119283985,0.00075263325449,0.000752100785028,0.000751526943398,0.000750913506164,0.000750253920638,0.000749548217887,0.000748796743445,0.00074800690208,0.000747177305884,0.000746302499419,0.000745381005545,0.000744412794612,0.000743396468466,0.00074232754365,0.000741211651959,0.000740042989236,0.000738821161987,0.000737539684972,0.000736195339897,0.000734787324373,0.000733315002279,0.000731774595593,0.000730165450043,0.000728479098043,0.000726709953795,0.000724856424747,0.000722922804751,0.000720909754479,0.000718821050008,0.000716658119933,0.000714425733965,0.000712125963642,0.0007097615333,0.000707333890773,0.000704857091794,0.000702334133416,0.000699765400045,0.000697151093438,0.000694484985473,0.000691770028351,0.000689005701024,0.000686194792592,0.000683339796084,0.000680443006826,0.000677498544712,0.000674503736311,0.000671463931387,0.000668379680153,0.000665259249353,0.0006621061518,0.000658919198894,0.000655696165222,0.000652434864813,0.000649136714698,0.000645807085065,0.000642449740506,0.000639058807686,0.000635632069941,0.000632166020829,0.000628661122165,0.000625120902934,0.000621550478351,0.000617949751448,0.000614319722834,0.000610657399399,0.000606960988658,0.000603234433099,0.000599485953123,0.00059571501086,0.000591920457679,0.000588096858255,0.00058424190035,0.000580350084816,0.000576424609495,0.000572462604133,0.000568468215126,0.000564441139979,0.000560379527623,0.000556282530374,0.000552154207353,0.000547996945354,0.000543810896094,0.000539599930608,0.000535371137575,0.000531126641187,0.000526863666415,0.000522578598979,0.000518268168268,0.000513934240896,0.000509575470326,0.000505190665496,0.000500782582302,0.000496355295476,0.00049189975148,0.000487411316671,0.000482889205726,0.00047833946516,0.000473765466178,0.000469167435482,0.000464547166468,0.00045990268238,0.00045523556606,0.000450539000613,0.000445811609026,0.000441060464173,0.000436288564045,0.00043149430401,0.000426678078004,0.000421842331838,0.000416989884063,0.000412119218871,0.000407231150008,0.00040232831442,0.000397415938243,0.000392497408128,0.000387572174441,0.0003826401331,0.000377699928933,0.000372748899835,0.000367779932528,0.000362792982557,0.000357788917254,0.000352770808647,0.000347736144184,0.000342680231889,0.000337602648065,0.000332504224146,0.000327384007602,0.000322241439619,0.000317081915052,0.000311909272872,0.000306723213149,0.000301522169898,0.000296310421325,0.000291088138059,0.000285861373733,0.000280626980208,0.000275384354627,0.000270137731083,0.000264887421983,0.000259634854445,0.000254379599517,0.000249123160016,0.000243863805643,0.000238595917011,0.000233318302885,0.000228030904547,0.000222738501108,0.000217442892337,0.000212144740176,0.000206842611762,0.000201536325549,0.000196224121219,0.0001909106929,0.000185602571561,0.000180301293491,0.000175008143333,0.000169725394145,0.000164451185734,0.000159185716753,0.00015392363558,0.000148673244789,0.000143434607704,0.000138204720174,0.000132980647405,0.000127759267669,0.000122547581603,0.000117343859971,0.000112146918316,0.000106956297486,0.000101777898335,9.66080749903e-05,9.14442275243e-05,8.62909402238e-05,8.11530461594e-05,7.60313289847e-05,7.09244039009e-05,6.58263433278e-05,6.07397388283e-05,5.56637150813e-05,5.05977709488e-05,4.55390486338e-05,4.04948615476e-05,3.54616209109e-05,3.04339529052e-05,2.54104136012e-05,2.03879727245e-05,1.53733586669e-05,1.03666735657e-05,5.37087408289e-06,3.88426412032e-07,-4.58310371572e-06,-9.54312694176e-06,-1.44917808682e-05,-1.9422956254e-05,-2.43384300022e-05,-2.92333722035e-05,-3.41094414896e-05,-3.8967528199e-05,-4.3810949136e-05,-4.86390826386e-05,-5.34514309137e-05,-5.824354863e-05,-6.30180162351e-05,-6.7773942948e-05,-7.25086194022e-05,-7.7217353728e-05,-8.19007145116e-05,-8.65563981688e-05,-9.11858527721e-05,-9.57859358037e-05,-0.000100356254117,-0.000104898406721,-0.000109409761233,-0.000113893325257,-0.000118345480095,-0.000122775423474,-0.000127184624238,-0.0001315703424,-0.000135931025801,-0.000140266391536,-0.000144575477851,-0.000148862058688,-0.000153127997684,-0.00015737255261,-0.000161594083456,-0.000165795378025,-0.000169970964416,-0.000174122742075,-0.000178254599588,-0.000182364008162,-0.000186451659969,-0.000190518013125,-0.000194560758663,-0.000198575116115,-0.000202565713857,-0.000206528829519,-0.000210466144353,-0.000214376037092,-0.000218255155239,-0.000222104411147,-0.000225927186838,-0.000229720411979,-0.000233482325086,-0.000237216817998,-0.000240923461602,-0.000244597826082,-0.000248239008113,-0.000251849366296,-0.000255430016105,-0.00025898437794,-0.000262507200845,-0.000265997406397,-0.000269461476314,-0.000272900062538,-0.000276310492895,-0.000279695212782,-0.000283056760574,-0.000286398024446,-0.000289712825044,-0.000292998756536,-0.000296256939467,-0.000299490389419,-0.000302698369021,-0.000305872193322,-0.00030901313327,-0.000312125258536,-0.000315205625807,-0.000318251708604,-0.000321262091073,-0.000324241189934,-0.000327190034954,-0.000330106835603,-0.000332986934581,-0.000335832864029,-0.000338648791044,-0.000341433190442,-0.000344185949728,-0.000346906811516,-0.000349596912415,-0.000352256070249,-0.000354883932864,-0.000357479340657,-0.000360040564854,-0.000362572861369,-0.000365074015135,-0.000367544393975,-0.000369980430666,-0.000372379126516,-0.00037474489912,-0.000377081198986,-0.000379388400626,-0.000381668605953,-0.000383924543527,-0.000386156148251,-0.000388360660861,-0.000390535196485,-0.000392681562048,-0.000394804715572,-0.000396907351975,-0.00039898179692,-0.000401029490584,-0.000403046728127,-0.000405029472434,-0.000406976681238,-0.000408890309665,-0.000410768093597,-0.000412616597817,-0.000414433167463,-0.000416217005569,-0.000417964244081,-0.000419676736204,-0.000421352323492,-0.000422998014893,-0.000424614466898,-0.000426202502833,-0.000427767136274,-0.000429310913002,-0.000430836802632,-0.000432343550968,-0.000433837979136,-0.000435187444327,-0.000436262666519,-0.000437069928822,-0.000437603587482,-0.000437870715279)
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(262)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Sus_scrofa-male-liver-H3K27Ac-ERR572261.50mers.unique.MACS2_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) : 262',bty='n')
dev.off()