# R script for Peak Model
#  -- generated by MACS
p <- c(0.035985624856,0.0380412151831,0.0400968055103,0.0417941601788,0.0435512207904,0.045538575754,0.0472444598429,0.0488650497274,0.0506903457025,0.0526094653026,0.0543665259142,0.0563027043551,0.0584009417845,0.0601068258734,0.0618724159055,0.0633565350628,0.0652671252424,0.0670924212176,0.0672203625243,0.06694742107,0.0671265388994,0.067100950638,0.0673909509331,0.0672630096265,0.066717126718,0.066640361934,0.0665038912069,0.0663930087411,0.0660433025029,0.066103008446,0.0661285967073,0.0661627143891,0.0662650674345,0.0662224203322,0.0660603613438,0.0660688907642,0.0661541849687,0.0660433025029,0.0657447727873,0.0659153611962,0.0658983023553,0.0656765374238,0.0659153611962,0.0660347730824,0.0663247733776,0.06617977323,0.0663247733776,0.0661883026504,0.0657362433669,0.066026243662,0.0659324200371,0.0664783029456,0.0665294794682,0.0668365386042,0.0670156564336,0.0675103628194,0.0675785981829,0.0676894806487,0.0675274216603,0.0675530099216,0.0679027161598,0.0679112455803,0.0679197750007,0.0682268341367,0.0683888931252,0.0684571284887,0.0686106580567,0.0686874228407,0.0686618345794,0.068653305159,0.0688238935678,0.0688494818292,0.0689774231358,0.0688409524087,0.0689774231358,0.068960364295,0.0692162469083,0.0694465412603,0.069497717783,0.0695403648852,0.0691394821243,0.0689433054541,0.0687215405225,0.0688324229883,0.0691224232834,0.0688921289314,0.0690115408176,0.0687215405225,0.0689006583518,0.0686277168976,0.0686618345794,0.0686021286363,0.0683718342843,0.0682950695003,0.0683718342843,0.0682609518185,0.0682865400798,0.0682438929776,0.0682524223981,0.0682097752958,0.0683888931252,0.0684741873296,0.0684144813865,0.0683035989207,0.0683462460229,0.0682865400798,0.0682780106594,0.0680903634096,0.0680391868869,0.0683121283412,0.0684827167501,0.0684400696478,0.0684230108069,0.0683974225456,0.0685594815341,0.068653305159,0.069344188215,0.0697194827145,0.0700862477937,0.0702994833048,0.0705297776568,0.0708368367928,0.0709988957812,0.0714253668035,0.0711950724515,0.0714765433261,0.0713741902808,0.0711524253492,0.0712291901332,0.0714253668035,0.0713997785421,0.071493602167,0.0714253668035,0.0717324259395,0.0719627202915,0.0722953676888,0.0723124265297,0.0721930146435,0.0720565439164,0.0722271323253,0.0722271323253,0.0725341914613,0.0725597797226,0.0727047798702,0.0727474269724,0.0724488972568,0.0723038971093,0.0725853679839,0.0726109562453,0.072721838711,0.0724744855182,0.0726536033475,0.0724659560977,0.0725341914613,0.0723891913137,0.0721247792799,0.0718944849279,0.0718262495644,0.0720053673937,0.0719286026097,0.0719115437688,0.0718518378257,0.071877426087,0.0718518378257,0.0721503675413,0.0722015440639,0.072184485223,0.0723209559501,0.0724488972568,0.0726109562453,0.0727815446542,0.0723294853706,0.0723721324728,0.0725768385635,0.0728071329155,0.0725938974044,0.0725938974044,0.0725768385635,0.0726791916088,0.0729009565404,0.0728327211768,0.0729691919039,0.0730033095857,0.0730203684266,0.0731994862559,0.0733018393013,0.0733018393013,0.0733871335057,0.0730630155288,0.0728838976995,0.0729265448017,0.0728838976995,0.0729606624835,0.0730288978471,0.0729606624835,0.072645073927,0.0730459566879,0.0727474269724,0.0727047798702,0.0729180153813,0.072645073927,0.072568309143,0.0726194856657,0.0727133092906,0.0728156623359,0.0728753682791,0.072721838711,0.0731141920515,0.0732080156764,0.0732677216195,0.0734638982897,0.0737880162666,0.0743083109138,0.0742997814933,0.0741888990275,0.0743338991751,0.0745300758453,0.0748030172995,0.0750333116515,0.0752636060036,0.0753403707876,0.0754512532533,0.0756133122418,0.0758436065938,0.076270077616,0.0763894895022,0.0766965486383,0.0769694900925,0.0772850786489,0.0771997844445,0.0772083138649,0.0776944908303,0.0777883144552,0.0782233148978,0.078513315193,0.0788289037494,0.0790762569423,0.0794259631805,0.0796989046348,0.0798439047823,0.0796391986917,0.079588022169,0.0797841988392,0.0799889049299,0.0797074340552,0.0801936110206,0.0803215523272,0.0806712585655,0.0806286114632,0.0806541997246,0.0809100823379,0.0811915532126,0.0814474358259,0.0815156711895,0.0816180242348,0.0817033184393,0.0818227303255,0.0818739068482,0.0820700835184,0.0820359658366,0.0818653774277,0.0824368485975,0.0823942014953,0.0828803784606,0.0827780254153,0.0831021433922,0.0833921436873,0.0835542026757,0.083673614562,0.0839721442775,0.0837674381869,0.0838356735504,0.0839721442775,0.0841512621069,0.0841597915273,0.084287732834,0.0850042041513,0.0852344985033,0.0855500870598,0.085439204594,0.0856865577869,0.085515969378,0.0856183224234,0.085669498946,0.0855671459007,0.0859339109798,0.0863177348998,0.0862494995363,0.0861983230136,0.0866418528767,0.086820970706,0.0872559711487,0.0873753830349,0.0874265595576,0.0875459714438,0.087682442171,0.0882709721816,0.0881771485567,0.0885183253745,0.0883903840679,0.0887230314652,0.0890556788625,0.0891324436465,0.0895333264074,0.0898062678617,0.0896868559754,0.0905142097586,0.0908468571559,0.0908639159968,0.091213622235,0.0916145049959,0.0919215641319,0.0921006819613,0.0924077410973,0.0925868589266,0.0931668595169,0.0937042130049,0.0939771544591,0.0944718608449,0.0945400962085,0.0951712733214,0.0954356853551,0.0958536269569,0.0964762746494,0.0969795104556,0.0968515691489,0.0973377461143,0.0972865695916,0.0976703935116,0.0979689232272,0.0983953942494,0.0984465707721,0.0984721590334,0.0991203949872,0.0992909833961,0.099615101373,0.0998198074637,0.100092748918,0.100254807906,0.100152454861,0.100357160952,0.100971279224,0.100800690815,0.100911573281,0.101269808939,0.100911573281,0.100971279224,0.100979808644,0.100954220383,0.101107749951,0.101210102996,0.101320985462,0.101397750246,0.10166216228,0.101969221416,0.102310398234,0.102395692438,0.102745398676,0.10262598679,0.102532163165,0.102651575051,0.103265693323,0.103095104914,0.103052457812,0.102992751869,0.103257163903,0.103666576084,0.104272164936,0.104655988856,0.104647459435,0.105193342344,0.105483342639,0.106157166854,0.10646422599,0.107061285421,0.107555991807,0.107547462387,0.107658344852,0.108033639352,0.108639228203,0.109278934737,0.109696876339,0.109995406054,0.110310994611,0.110148935622,0.110669230269,0.110933642303,0.110959230564,0.111078642451,0.111496584052,0.111428348689,0.111726878404,0.111974231597,0.111940113916,0.112264231892,0.112520114506,0.11279305596,0.112903938426,0.11316835046,0.1135607038,0.114038351345,0.114430704685,0.11433688106,0.114695116719,0.115198352525,0.115368940934,0.115385999775,0.115530999923,0.115147176003,0.114746293242,0.11472070498,0.114635410776,0.115258058468,0.115454235139,0.115548058764,0.115522470502,0.115420117457,0.116008647468,0.116298647763,0.11662276574,0.116989530819,0.11701511908,0.117262472273,0.117313648796,0.117398943,0.117433060682,0.11759511967,0.117688943295,0.117910708227,0.118192179101,0.118064237795,0.118183649681,0.118268943885,0.118533355919,0.118780709112,0.118942768101,0.118823356214,0.118866003317,0.119428945066,0.119565415793,0.119411886225,0.119778651304,0.120256298849,0.12066571103,0.120938652485,0.121748947427,0.122073065404,0.122260712654,0.122431301062,0.122943066289,0.123471890357,0.12334394905,0.123420713834,0.123446302095,0.123898361379,0.124060420367,0.12468306806,0.124734244582,0.125109539082,0.125860128081,0.126354834467,0.126465716933,0.126713070126,0.126866599694,0.127054246943,0.127438070863,0.127924247829,0.127881600727,0.127915718408,0.127932777249,0.128265424647,0.128632189726,0.128930719441,0.12910130785,0.128581013203,0.128581013203,0.12870895451,0.128828366396,0.128691895669,0.1289136606,0.129109837271,0.12910130785,0.129050131327,0.129365719884,0.129212190316,0.128981895964,0.128760131032,0.128947778282,0.129212190316,0.129399837566,0.129263366839,0.129903073372,0.129928661633,0.130517191644,0.130457485701,0.130090720622,0.130193073667,0.130278367872,0.130423368019,0.130662191792,0.130602485848,0.130525721064,0.130798662519,0.130841309621,0.130866897882,0.130764544837,0.130798662519,0.130730427155,0.131233662961,0.131173957018,0.131463957313,0.131361604268,0.131446898472,0.131310427745,0.13102042745,0.130960721507,0.130892486144,0.130858368462,0.130670721212,0.130372191496,0.13025277961,0.129979838156,0.13024425019,0.130150426565,0.129971308736,0.129894543952,0.129553367134,0.12871748393,0.128760131032,0.12794130667,0.127676894636,0.127540423909,0.127258953034,0.127079835205,0.126951893898,0.126474246353,0.126423069831,0.126243952001,0.125595716047,0.125570127786,0.1254507159,0.125041303719,0.124717185742,0.124631891537,0.12411159689,0.123983655583,0.123787478913,0.123778949493,0.123693655288,0.123002772232,0.123122184118,0.122908948607,0.122610418892,0.122209536131,0.122218065551,0.12219247729,0.122124241926,0.122311889176,0.121911006415,0.122124241926,0.122286300915,0.122064535983,0.12218394787,0.12220100671,0.122030418302,0.122081594824,0.121962182938,0.121774535688,0.121646594382,0.121168946837,0.120930123064,0.12103247611,0.120921593644,0.120887475962,0.120921593644,0.120716887553,0.120785122917,0.121023946689,0.120810711178,0.120384240156,0.119838357247,0.119812768986,0.11951423927,0.119011003464,0.118465120556,0.118482179397,0.118226296783,0.117535413727,0.117117472125,0.116716589365,0.116230412399,0.115710117752,0.114985117014,0.114285704538,0.114098057288,0.113654527425,0.112878350164,0.112366584938,0.111735407825,0.110959230564,0.109790699963,0.109116875748,0.108622169363,0.108289521965,0.107948345147,0.107692462534,0.106984520637,0.106250990479,0.1055089309,0.104519518129,0.103794517391,0.103086575494,0.102216574609,0.101653632859,0.10109922053,0.10089451444,0.100459513997,0.0994701012255,0.099077747885,0.0988901006352,0.0983271588859,0.0979774526476,0.0974400991596,0.0972524519098,0.0970136281374,0.0968430397285,0.0965189217516,0.0961606860929,0.0961265684112,0.096143627252,0.0952650969462,0.0946680375151,0.094685096356,0.0941903899702,0.0940283309818,0.0938748014138,0.0939345073569,0.0936274482209,0.0933545067666,0.0933118596644,0.0929109769035,0.0926806825515,0.0929792122671,0.0929365651649,0.0929536240057,0.0930218593693,0.0925527412448,0.0927403884946,0.092612447188,0.0921262702226,0.0919300935524,0.0915377402119,0.0913756812235,0.0913842106439,0.0912306810759,0.0904545038155,0.0903436213497,0.0901303858386,0.0899171503275,0.089601561771,0.0893371497372,0.0889959729194,0.0887912668288,0.0886889137834,0.088680384363,0.0881174426136,0.0877165598527,0.0875630302847,0.0870086179558,0.0866930293994,0.0863774408429,0.08613008765,0.0855842047416,0.0856609695256,0.0852003808216,0.08497861589,0.0847056744358,0.0845777331291,0.0839380265958,0.0833750848464,0.0827865548357,0.0823515543931,0.0825818487451,0.0820871423593,0.0816265536553,0.0815412594508,0.0813621416215,0.0810892001672,0.0807309645086,0.0805518466792,0.0800315520321,0.0802362581228,0.0802362581228,0.0798780224641,0.0795624339077,0.0792639041921,0.0793406689761,0.0792468453512,0.0789141979539,0.078666844761,0.078283020841,0.0779162557618,0.0780186088072,0.0779418440232,0.0779333146027,0.0777200790916,0.0775665495236,0.0777115496712,0.0780868441707,0.0777883144552,0.0779930205458,0.0778139027165,0.0779077263414,0.0775239024214,0.0773362551716,0.0773191963307,0.0773959611147,0.0773533140125,0.0771059608196,0.0770974313992,0.0773191963307,0.0772594903876,0.0772509609672,0.0770036077743,0.0774386082169,0.0772850786489,0.0775921377849,0.0774727258987,0.0770206666151,0.0772594903876,0.0773789022738,0.0773618434329,0.0768927253085,0.0769950783538,0.0772168432854,0.0771741961832,0.0768330193654,0.0770462548765,0.0771571373423,0.0768586076267,0.0763894895022,0.0765600779111,0.0764065483431,0.0762359599342,0.0759886067413,0.076039783264,0.0758009594916,0.0757583123893,0.0754512532533,0.0756986064462,0.075425664992,0.0755280180373,0.0753744884693,0.0756815476053,0.0756047828213,0.0756474299236,0.0756900770258,0.0757753712302,0.0755450768782,0.0755706651396,0.0751271352764,0.0750247822311,0.0748371349813,0.0747433113564,0.0749138997653,0.0746921348338,0.0743424285955,0.0742656638115,0.0744362522204,0.0742144872889,0.0742827226524,0.0742315461297,0.0741718401866,0.0739841929369,0.0739415458346,0.0738647810506,0.073967134096,0.0737880162666,0.0738391927893,0.0738988987324,0.0739415458346,0.0738221339484,0.0738050751075,0.0735577219146,0.0735747807555,0.0734468394488,0.0737624280053,0.0737283103235,0.0738562516302,0.0734041923466,0.0735150748124,0.0731653685742,0.0732250745173,0.0732080156764,0.0731397803128,0.0732421333582,0.0732080156764,0.0732165450968,0.0729862507448,0.0727644858133,0.0724318384159,0.0723636030524,0.0724318384159,0.072491544359,0.0723891913137,0.0723550736319,0.0719456614506,0.0719200731893,0.0719797791324,0.0716897788372,0.0715959552124,0.0715447786897,0.071647131735,0.0713912491217,0.0711694841901,0.0711609547697,0.0709647780995,0.0708538956337,0.0708112485314,0.0707771308497,0.0705638953386,0.070111836055,0.0698474240212,0.0697365415554,0.0695830119874,0.0696171296692,0.0692418351696,0.0693527176354,0.0690285996585,0.0689262466132,0.0688409524087,0.0684315402274,0.0684571284887,0.0682950695003,0.0684315402274,0.0685083050114,0.0685935992158,0.0684315402274,0.0683547754434,0.0683803637047,0.0682524223981,0.0679709515234,0.0682353635572,0.0680733045687,0.0681585987732,0.0684230108069,0.0684485990683,0.0684485990683,0.0683803637047,0.068883599511,0.0690285996585,0.0685424226932,0.0682694812389,0.0683035989207,0.0683121283412,0.0683633048638,0.0680306574665,0.0682012458754,0.0684230108069,0.0681671281936,0.0680903634096,0.0681841870345,0.0683035989207,0.0684315402274,0.0685509521136,0.0681756576141,0.0681415399323,0.0683035989207,0.0682780106594,0.0684827167501,0.0682780106594,0.0680562457278,0.0680733045687,0.0684144813865,0.0681756576141,0.0678856573189,0.0679112455803,0.0679965397847,0.0677662454327,0.0676894806487,0.0674165391945,0.0675018333989,0.067638304126,0.0675956570238,0.0675785981829,0.0672885978878,0.0671435977402,0.0673397744105,0.0679027161598,0.0677662454327,0.0677406571714,0.0677065394896,0.0683462460229,0.0684144813865,0.0682183047163,0.0684230108069,0.0683547754434,0.0683974225456,0.0684485990683,0.0684485990683,0.0682012458754,0.0686703639998,0.0688665406701,0.0689859525563,0.068883599511,0.0685935992158,0.0687983053065,0.0689774231358,0.068960364295,0.0689688937154,0.069190658647,0.0694294824194,0.0693783058967,0.0695403648852,0.0696086002488,0.0698644828621,0.0702738950434,0.0703336009865,0.0701715419981,0.0702056596799,0.0703080127252,0.0700094830097,0.069958306487,0.0698986005439,0.069497717783,0.0695233060443,0.0695062472034,0.0692844822719,0.0690968350221,0.0692844822719,0.0693015411127,0.0691565409652,0.0693612470559,0.0691735998061,0.0692588940105,0.0690541879199,0.0691821292265,0.068960364295,0.0689518348745,0.0689262466132,0.0689177171927,0.0690968350221,0.0690712467607,0.0689091877723,0.0688153641474,0.0685594815341,0.0684144813865,0.0679027161598,0.0679538926825,0.0678088925349,0.0676553629669,0.0674933039785,0.0670838917971,0.0670497741154,0.0670583035358,0.0668877151269,0.0669047739678,0.0672118331038,0.0673738920923,0.0673483038309,0.0676041864443,0.0677321277509,0.0675956570238,0.0677662454327,0.0678174219554,0.067791833694,0.0674591862967,0.0674506568763,0.0670753623767,0.0670071270131,0.0668791857065,0.0668791857065,0.0668280091838,0.0668194797634,0.0668877151269,0.0668962445474,0.0670583035358,0.0671265388994,0.0669303622291,0.0670668329562,0.0670327152745,0.0669047739678,0.0670412446949,0.0674677157171,0.0673568332514,0.0671521271607,0.0673397744105,0.0673994803536,0.0674165391945,0.0673568332514,0.0670327152745,0.067177715422,0.0667853620816,0.0667597738202,0.066717126718,0.0665721265705,0.06617977323,0.0660688907642,0.0659835965598,0.0656338903215,0.0654974195944,0.0653609488673,0.065719184526,0.0656850668442,0.0658130081509,0.06579594931,0.065642419742,0.0655230078558,0.0654291842309,0.0653524194469,0.0653438900264,0.0651562427766,0.0650368308904,0.0649174190042,0.0650794779926,0.0649771249473,0.0650538897313,0.0652330075606,0.0651135956744,0.0648150659589,0.0649088895838,0.0651221250949,0.0649174190042,0.0650453603109,0.0651562427766,0.0650112426291,0.0653012429242,0.0652330075606,0.0655059490149,0.0653183017651,0.0651903604584,0.065488890174,0.0654803607535,0.0653865371287,0.0655912432193,0.0660603613438,0.0661627143891,0.0662224203322,0.0660944790256,0.0663930087411,0.066486832366,0.0666744796158,0.0669133033882,0.0669900681722,0.0669218328087,0.0669644799109,0.0667341855589,0.0668109503429,0.0666830090362,0.0668535974451,0.0667768326611,0.0667256561385,0.0667853620816,0.0667597738202,0.0667341855589,0.0670668329562,0.0671180094789,0.0670156564336,0.0672459507856,0.0670668329562,0.0668791857065,0.0670327152745,0.0668365386042,0.0669388916496,0.0668280091838,0.0670156564336,0.067024185854,0.0668535974451,0.0669559504905,0.06694742107,0.0668535974451,0.0666318325136,0.0662821262753,0.0661541849687,0.0662650674345,0.0660944790256,0.0660433025029,0.065949478878,0.0658215375713,0.0658215375713,0.0660688907642,0.0659921259802,0.0660347730824,0.0659409494576,0.0661456555482,0.0658641846736,0.0657362433669,0.0661115378664,0.0661883026504,0.0660347730824,0.0662991851162,0.0659665377189,0.0659580082984,0.0659750671393,0.0657277139464,0.0657788904691,0.0660859496051,0.0658385964122,0.0660774201847,0.0660944790256,0.0663162439571,0.0662650674345,0.066333302798,0.0662138909118,0.0662480085936,0.0662991851162,0.0662394791731,0.0662224203322,0.0664185970025,0.0662906556958,0.0662224203322,0.0659921259802,0.0657362433669,0.0658471258327,0.0661115378664,0.0661200672869,0.0660518319233,0.06617977323,0.0661200672869,0.0661200672869,0.0660347730824,0.066333302798,0.0662735968549,0.0661968320709,0.0663077145367,0.0662053614913,0.065949478878,0.0661200672869,0.0659665377189,0.066103008446,0.0664185970025,0.0662650674345,0.0660177142416,0.0660518319233,0.0656935962647,0.0655997726398,0.0654206548104,0.0654462430718,0.0654718313331,0.0655827137989,0.0657362433669,0.0656765374238,0.0659409494576,0.0661712438096,0.066410067582,0.0667000678771,0.0667256561385,0.0669303622291,0.0672800684674,0.0672800684674,0.06733124499,0.0671947742629,0.0669388916496,0.0668621268656,0.0669815387518,0.067177715422,0.0672118331038,0.0670753623767,0.0671691860016,0.0673056567287,0.0669047739678,0.067100950638,0.0671947742629,0.0671350683198,0.0673397744105,0.0673141861491,0.0670497741154,0.06733124499,0.0674933039785,0.067561539342,0.0678771278985,0.0678003631145,0.0676724218078,0.0676297747056,0.0677662454327,0.0676894806487,0.0675444805011,0.0679027161598,0.0677747748532,0.0676809512283,0.0676212452851,0.0675444805011,0.0676553629669,0.0658300669918,0.0638938885508,0.0619065335872,0.059791237317,0.0580938826485,0.0564306456618,0.0545456437435,0.0526606418252,0.050698875123,0.0488224026252,0.0469459301273,0.0452485754588,0.043141808609,0.0414700422019,0.0396191579654,0.0377938619902,0.0360538602195,0.0341688583012)
m <- c(0.0354270868649,0.037187859641,0.038982493432,0.0407348009544,0.0427326008349,0.0447473312229,0.0466604785662,0.0482519462676,0.0502497461482,0.0522221502676,0.0539998535511,0.0557098348048,0.0577753567152,0.0595953862674,0.0612291802375,0.0629560919987,0.0650131486554,0.0667993171926,0.066850108715,0.0667993171926,0.0668924349837,0.0670278790434,0.0669686222673,0.0673580239389,0.0674511417299,0.0673918849538,0.0672733714016,0.0675611900284,0.067764356118,0.0673495586852,0.0670532748046,0.0670956010732,0.0670786705658,0.067070205312,0.0666384773717,0.0666638731329,0.0666977341479,0.0669686222673,0.0670871358195,0.0674426764762,0.0672987671628,0.0670956010732,0.0670786705658,0.0672225798792,0.0670532748046,0.0670617400583,0.0674342112225,0.067637377312,0.0671717883568,0.0671125315807,0.0673580239389,0.0673918849538,0.0672225798792,0.0671802536105,0.0671294620881,0.0669262959986,0.0670363442971,0.0671463925956,0.0669432265061,0.0668924349837,0.0673326281777,0.0675865857896,0.0674596069837,0.0673156976702,0.0672818366553,0.0675781205359,0.0674680722374,0.0674088154613,0.0672987671628,0.067417280715,0.0675103985061,0.0676712383269,0.067764356118,0.0675527247747,0.0674426764762,0.0672141146255,0.0671125315807,0.0675103985061,0.0675950510434,0.0677304951031,0.0678998001777,0.0678828696702,0.0676712383269,0.0676797035807,0.0682299450732,0.0682638060881,0.0683399933717,0.0683399933717,0.0682553408344,0.0684415764165,0.0683484586254,0.0683907848941,0.0684839026851,0.0681452925359,0.0681960840583,0.0680183137299,0.0675696552822,0.0672225798792,0.0672987671628,0.0673580239389,0.0670786705658,0.0669262959986,0.0673326281777,0.0675527247747,0.0678320781478,0.0677050993419,0.0675781205359,0.0674088154613,0.0673580239389,0.0673834197001,0.067417280715,0.0675781205359,0.0678405434016,0.067417280715,0.067290301909,0.0670956010732,0.0667400604165,0.0667061994016,0.066503033312,0.0662321451926,0.0658512087747,0.0657072994613,0.0655549248942,0.065622646924,0.0656311121777,0.0656480426852,0.065715764715,0.0656057164165,0.0653771545658,0.0655803206553,0.0656649731927,0.0656311121777,0.0656734384464,0.0660543748643,0.0662321451926,0.0660374443568,0.0662490757001,0.0663252629837,0.0660543748643,0.0659273960583,0.0655718554016,0.0656395774315,0.065529529133,0.0654533418494,0.0656819037001,0.0655887859091,0.0656903689539,0.0658004172524,0.0656903689539,0.065715764715,0.0656988342076,0.066282936715,0.0667146646553,0.0665876858494,0.0666977341479,0.0669940180285,0.0672225798792,0.0674934679986,0.0676204468046,0.0677050993419,0.0679336611926,0.0680267789837,0.0682553408344,0.0684331111627,0.0685346942075,0.0683907848941,0.0684839026851,0.0688055823269,0.0689833526553,0.0691865187448,0.0691441924762,0.0693473585657,0.0692627060284,0.0691695882374,0.0691949839986,0.0691780534911,0.0693050322971,0.0693812195806,0.0693642890732,0.0695081983866,0.0691949839986,0.0693050322971,0.0693134975508,0.068991817909,0.0691780534911,0.0692965670433,0.0691441924762,0.0687632560583,0.068771721312,0.0689071653717,0.0690002831627,0.0685008331926,0.0684077154016,0.0684839026851,0.0683823196404,0.0681622230434,0.0679421264463,0.0677474256105,0.0678066823866,0.0676881688344,0.0678151476404,0.0678236128941,0.067984452715,0.067544259521,0.0674342112225,0.067070205312,0.0671209968344,0.0670024832822,0.0671294620881,0.0671633231031,0.0670871358195,0.0670024832822,0.0670786705658,0.0669178307449,0.0669347612523,0.0667654561777,0.0668416434613,0.0670532748046,0.0668585739688,0.0666977341479,0.0665114985658,0.066536894327,0.0667485256702,0.0666977341479,0.0664437765359,0.0662406104464,0.0660882358792,0.0667315951628,0.0667823866852,0.0669093654911,0.0670278790434,0.067197184118,0.0673072324165,0.0674088154613,0.0669601570135,0.0669601570135,0.0667146646553,0.0666469426255,0.0664776375508,0.0666215468643,0.0667146646553,0.0666046163568,0.0665622900882,0.0668162477001,0.0669009002374,0.0668839697299,0.067070205312,0.0675696552822,0.0676458425658,0.0676289120583,0.0678828696702,0.0681876188045,0.0680521747448,0.068077570506,0.0682892018493,0.0684331111627,0.0684754374314,0.0682384103269,0.0683907848941,0.0684500416702,0.0682638060881,0.0682468755807,0.0687124645359,0.0683653891329,0.0683230628642,0.0682299450732,0.0680098484762,0.0680691052523,0.0680013832225,0.0677897518792,0.0679167306851,0.0680352442374,0.0681537577896,0.0682130145657,0.0680098484762,0.0680945010135,0.0679505917001,0.0682468755807,0.0682468755807,0.0678998001777,0.0675781205359,0.0676035162971,0.0675273290135,0.0669686222673,0.0668755044762,0.0669262959986,0.0667654561777,0.066536894327,0.0667739214314,0.0666046163568,0.0664522417897,0.0663337282374,0.0663337282374,0.0664437765359,0.0661051663867,0.0662490757001,0.066630012118,0.0667146646553,0.0663675892523,0.0663337282374,0.0662236799389,0.0662406104464,0.066536894327,0.0665876858494,0.0664945680583,0.066630012118,0.0668162477001,0.0668162477001,0.0669009002374,0.0669601570135,0.0672310451329,0.0671548578493,0.0673664891926,0.0672987671628,0.0673156976702,0.0674003502075,0.0672564408941,0.0672395103867,0.0673326281777,0.0675357942672,0.0674934679986,0.0671717883568,0.0673410934314,0.0674850027449,0.0672479756404,0.0672818366553,0.0675103985061,0.0676289120583,0.0676881688344,0.0679336611926,0.0680437094911,0.068111431521,0.067764356118,0.0678320781478,0.0679336611926,0.068111431521,0.068111431521,0.0681368272822,0.0680267789837,0.068077570506,0.0683145976105,0.0684500416702,0.0682299450732,0.0681706882971,0.0681622230434,0.0681029662672,0.068077570506,0.0681791535508,0.0680352442374,0.0681368272822,0.0683061323568,0.0685092984463,0.0690426094314,0.0691272619687,0.0690172136702,0.0691611229836,0.0691018662075,0.0697198297299,0.0699145305657,0.0700245788642,0.0704817025657,0.0704986330732,0.0703547237597,0.0703293279985,0.0701515576702,0.0701684881776,0.0701854186851,0.0699145305657,0.0701176966553,0.0699314610732,0.0699483915806,0.069999183103,0.0701854186851,0.069999183103,0.0698298780284,0.0695081983866,0.0696013161777,0.0696605729538,0.0698129475209,0.0702023491926,0.0701684881776,0.0703716542672,0.0703547237597,0.0705240288343,0.070693333909,0.0708203127149,0.070693333909,0.0708964999985,0.0708964999985,0.0707187296702,0.0711673881179,0.0710488745657,0.0714721372522,0.0714890677597,0.0715652550433,0.0714975330134,0.0712859016702,0.071446741491,0.0715398592821,0.0718276779089,0.0721324270433,0.0720562397597,0.0722932668642,0.0724202456701,0.0730974659686,0.0734106803567,0.0734022151029,0.073715429491,0.0739524565955,0.0740117133716,0.0745196285955,0.0750783353417,0.0752476404163,0.0753407582074,0.0755269937895,0.0755439242969,0.0758740691924,0.0759841174909,0.0760687700283,0.0760095132521,0.0760941657895,0.076204214088,0.0763565886551,0.076077235282,0.0760349090133,0.0765258937297,0.0764835674611,0.0766613377894,0.0765597547447,0.0764666369536,0.0763481234014,0.0764158454312,0.0765682199984,0.0765512894909,0.0767290598193,0.0769322259088,0.0767883165954,0.076991482685,0.0769406911626,0.0771607877596,0.076991482685,0.0771692530133,0.0772623708044,0.077084600476,0.0769999479387,0.0772539055506,0.077177718267,0.076991482685,0.0769660869238,0.0770592047148,0.0771099962372,0.0770592047148,0.0770168784462,0.077177718267,0.0774486063864,0.0774486063864,0.0774147453715,0.0771269267447,0.0772539055506,0.0775840504461,0.0777702860282,0.077964986864,0.0778210775506,0.0778126122969,0.0779311258491,0.0781850834611,0.0783543885357,0.0783882495506,0.0783882495506,0.0784729020879,0.0785406241178,0.078752255461,0.0789638868043,0.0788876995207,0.0793786842371,0.0795141282968,0.0793363579685,0.0792601706849,0.0794548715207,0.0797680859088,0.079886599461,0.0799204604759,0.0800474392819,0.0800389740282,0.0798950647147,0.0797850164162,0.0801744180879,0.0804707019685,0.0805638197595,0.0808601036401,0.0807839163565,0.0809870824461,0.0812071790431,0.0816473722371,0.0816643027446,0.0819775171326,0.0822145442371,0.0822568705057,0.0824769671028,0.0828325077595,0.0830272085953,0.0831287916401,0.0834081450132,0.0835012628042,0.0838821992221,0.0840345737893,0.0845509542669,0.0844070449535,0.0842885314012,0.0846440720579,0.0845424890132,0.084483232237,0.0845086279982,0.0848472381475,0.0850334737296,0.085050404237,0.0851519872818,0.0854059448937,0.0853890143863,0.0859731168937,0.0859815821475,0.0862355397594,0.0862609355206,0.0863963795803,0.0867773159982,0.0867265244758,0.08709899564,0.0874883973116,0.08766616764,0.0875476540877,0.087539188834,0.0872090439385,0.0874376057892,0.0875561193415,0.0877169591623,0.0879709167743,0.0883179921773,0.088639671819,0.0886142760578,0.0889528862071,0.0888597684161,0.0892914963563,0.0890967955205,0.0893846141474,0.0898586683563,0.0900449039384,0.0903073268041,0.0908067767742,0.0913316225056,0.0914162750429,0.0916363716399,0.0919241902667,0.0920934953414,0.0921950783861,0.0928215071622,0.0930331385055,0.0936764977891,0.0941928782667,0.0944468358786,0.0947600502667,0.0947769807741,0.094937820595,0.0951663824458,0.095064799401,0.0953356875204,0.0954795968338,0.0960383035801,0.0966224060875,0.0967239891323,0.0970202730129,0.0973419526547,0.097519722983,0.0977821458487,0.0979006594009,0.0984593661472,0.0985863449532,0.0991873779681,0.0994751965949,0.099661432177,0.0999746465651,0.100389443998,0.10064340161,0.100787310923,0.10127829564,0.101752349849,0.102691993013,0.103233769252,0.103826337013,0.104596675102,0.105527853013,0.105900324177,0.106086559759,0.10681457158,0.107288625789,0.107534118147,0.107796541013,0.108643066386,0.109320286684,0.110124485789,0.111097989968,0.111902189072,0.11278257546,0.113155046625,0.113679892356,0.114458695699,0.114881958386,0.115711553251,0.116244864236,0.116625800654,0.117150646386,0.117692422624,0.118200337848,0.11865746155,0.118860627639,0.119478591162,0.11985952758,0.120215068236,0.120985406326,0.121383273251,0.121603369848,0.121874257968,0.12192504949,0.121815001191,0.122111285072,0.122102819818,0.122449895221,0.12262766555,0.122720783341,0.122703852833,0.122568408774,0.122890088415,0.12312711552,0.123033997729,0.123271024833,0.123186372296,0.123017067221,0.122466825729,0.122483756236,0.122661526565,0.122881623162,0.122602269788,0.122610735042,0.122407568953,0.122653061311,0.122619200296,0.122551478266,0.12249222149,0.12249222149,0.122373707938,0.122593804535,0.123000136714,0.123135580774,0.123508051938,0.123541912953,0.123855127341,0.123914384117,0.124007501908,0.124049828177,0.124363042565,0.124295320535,0.124506951878,0.124295320535,0.12469318746,0.125632830624,0.125861392475,0.126445494982,0.126767174624,0.126978805967,0.127308950863,0.127012666982,0.126995736475,0.127300485609,0.128197802505,0.128273989788,0.128341711818,0.128485621132,0.12886655755,0.129306750744,0.129789270206,0.129780804953,0.129840061729,0.130051693072,0.130263324415,0.130652726087,0.131059058266,0.131414598923,0.131169106564,0.131109849788,0.13093207946,0.130822031161,0.130805100654,0.131033662505,0.130881287938,0.130788170147,0.130838961669,0.131101384535,0.131219898087,0.131033662505,0.13093207946,0.130458025251,0.130237928654,0.130110949848,0.130144810863,0.129890853251,0.129983971042,0.130271789669,0.129983971042,0.129924714266,0.129509916833,0.129763874445,0.129560708356,0.129476055818,0.129052793132,0.128985071102,0.128451760117,0.128451760117,0.128536412654,0.128223198266,0.127918449132,0.127672956773,0.127385138147,0.126877222923,0.126817966147,0.126868757669,0.12689415343,0.126733313609,0.126369307699,0.125810600953,0.125835996714,0.125429664535,0.125277289968,0.124608534923,0.124083689191,0.123821266326,0.123448795162,0.123296420594,0.123296420594,0.123101719759,0.122703852833,0.122737713848,0.122331381669,0.122077424057,0.121831931699,0.121637230863,0.12149332155,0.121120850386,0.121129315639,0.120968475818,0.12099387158,0.120511352117,0.120460560594,0.119927249609,0.119757944535,0.119749479281,0.119741014027,0.119622500475,0.119317751341,0.118987606445,0.118784440356,0.118293455639,0.117633165848,0.117370742983,0.117556978565,0.117446930266,0.117082924356,0.117150646386,0.116769709968,0.116879758266,0.117065993848,0.117192972654,0.116600404893,0.116202537968,0.115906254087,0.11555071343,0.115017402445,0.114788840595,0.114263994863,0.113798405908,0.113950780475,0.113578309311,0.113409004236,0.112884158505,0.112731783938,0.112376243281,0.112325451759,0.112156146684,0.111978376356,0.111944515341,0.11164823146,0.111461995878,0.111140316236,0.111030267938,0.110615470505,0.110598539998,0.110276860356,0.110674727281,0.111021802684,0.111114920475,0.110598539998,0.110767845072,0.11085249761,0.110759379819,0.110903289132,0.110632401013,0.110386908654,0.109828201908,0.109912854445,0.109743549371,0.109438800237,0.109311821431,0.109557313789,0.109210238386,0.109091724834,0.109066329072,0.10894781552,0.108761579938,0.10824519946,0.108185942684,0.107940450326,0.107364813072,0.107093924953,0.106797641072,0.106509822446,0.106348982625,0.106222003819,0.106171212296,0.106086559759,0.105993441968,0.10581567164,0.105629436057,0.105392408953,0.104994542028,0.104664397132,0.104122620893,0.104148016655,0.103623170923,0.103326887043,0.102962881132,0.102471896416,0.101938585431,0.101583044774,0.101489926983,0.101379878684,0.101379878684,0.101151316834,0.101117455819,0.100855032953,0.10064340161,0.100457166028,0.100389443998,0.0999577160576,0.099881528774,0.0998984592815,0.0999492508039,0.0998138067442,0.100059299102,0.0993820788039,0.099221238983,0.0987641152815,0.0984762966547,0.0980276382069,0.0974773967144,0.0968932942069,0.0964954272816,0.0964784967741,0.0961229561174,0.095979046804,0.0956996934308,0.0952425697294,0.095064799401,0.0947431197592,0.0944891621473,0.0939219901473,0.0937188240577,0.0936595672816,0.0939981774309,0.0938796638786,0.0935749147443,0.0935410537294,0.0929484859682,0.0926437368339,0.0921781478787,0.0916194411324,0.0913654835205,0.0914247402966,0.0911538521772,0.0909422208339,0.0907475199981,0.0904512361175,0.0900618344459,0.0896724327742,0.0890713997593,0.0893168921175,0.0887581853713,0.0884111099683,0.0881402218489,0.0879370557594,0.0876830981474,0.0876069108638,0.0870143431027,0.0868111770131,0.0865656846549,0.0863286575504,0.0855667847146,0.0853128271027,0.0850250084758,0.0849149601773,0.0848387728937,0.084737189849,0.0846525373117,0.0844409059684,0.0839837822669,0.083509728058,0.0833234924759,0.0828071119983,0.0829510213117,0.0829594865654,0.0826970636998,0.0825277586251,0.0823669188042,0.0819267256102,0.081681233252,0.081588115461,0.0811055959983,0.0808854994013,0.0805130282371,0.0802760011327,0.0803013968938,0.0799543214909,0.0803352579088,0.0803691189237,0.0800643697894,0.079666502864,0.079573385073,0.0792940316998,0.0792855664461,0.0791331918789,0.07922630967,0.0790231435804,0.0792178444163,0.0791162613715,0.0789046300282,0.0786676029237,0.0781596876999,0.0783628537894,0.0780157783864,0.0780073131327,0.0778887995805,0.0779311258491,0.0777364250133,0.0775840504461,0.077304697073,0.0771015309835,0.0769237606551,0.0771269267447,0.0769406911626,0.0765766852521,0.076297331879,0.0760603047745,0.076517428476,0.0765258937297,0.0765682199984,0.0765682199984,0.076644407282,0.0766359420282,0.0763057971327,0.0765682199984,0.0765512894909,0.0767883165954,0.0765004979686,0.076424310685,0.0762380751029,0.0760349090133,0.0757216946253,0.0756285768342,0.0756793683566,0.0758063471626,0.0755523895507,0.0754508065059,0.0758063471626,0.0752307099089,0.0753407582074,0.0752730361775,0.0750952658492,0.0749344260283,0.0750190785656,0.0751206616104,0.0751545226253,0.0751883836402,0.075069870088,0.0750106133119,0.0749852175507,0.0750529395805,0.0752645709238,0.0749598217895,0.0745619548641,0.0744180455507,0.0742910667447,0.0742148794611,0.074155622685,0.0739863176104,0.0742572057298,0.0738931998194,0.0737577557597,0.0735291939089,0.0735715201776,0.0734191456104,0.0735207286552,0.0734530066253,0.0735037981477,0.0734614718791,0.0733006320582,0.0733852845955,0.0732921668044,0.0733429583268,0.0730128134313,0.0731313269835,0.0730043481776,0.072581085491,0.0723694541477,0.0722509405955,0.0718784694313,0.0716245118194,0.0713366931925,0.0711504576105,0.071226644894,0.0710404093119,0.0710658050731,0.0711419923567,0.0710912008343,0.0714636719985,0.0716668380881,0.0716922338492,0.0720731702672,0.0720985660283,0.0719969829836,0.0719123304463,0.071446741491,0.0716245118194,0.0717176296104,0.0719546567149,0.0720985660283,0.0722509405955,0.072267871103,0.0722424753418,0.0722763363567,0.0722932668642,0.0721154965358,0.0718361431627,0.0720985660283,0.0720393092522,0.0723525236403,0.072140892297,0.0720223787448,0.0718615389239,0.0718276779089,0.0718361431627,0.0719207957,0.0718446084164,0.0718361431627,0.0716583728343,0.0715229287746,0.0716245118194,0.0716160465657,0.0717430253716,0.0716922338492,0.071480602506,0.0711165965955,0.0708541737299,0.0706510076403,0.0705324940881,0.0705578898493,0.0706510076403,0.0707356601776,0.0706002161179,0.0707441254314,0.0705409593418,0.0703377932523,0.0703293279985,0.0701515576702,0.0702023491926,0.0700161136105,0.0700584398791,0.0700076483567,0.0699907178493,0.0697960170135,0.0697282949836,0.0696944339687,0.0701430924164,0.0702192797,0.0705409593418,0.0707441254314,0.0708880347448,0.070913430506,0.0706425423866,0.0706510076403,0.0707525906851,0.0706510076403,0.0705324940881,0.0704478415508,0.0700838356403,0.0699483915806,0.0702446754612,0.070346258506,0.0707864517,0.0706510076403,0.0706425423866,0.0704478415508,0.0702870017299,0.0701430924164,0.0701938839388,0.0700753703866,0.0700838356403,0.0702700712224,0.0701346271627,0.070126161909,0.0700923008941,0.0700923008941,0.0699737873418,0.069999183103,0.0700161136105,0.0702362102075,0.0699822525956,0.0697621559985,0.0694235458493,0.0693050322971,0.0690510746851,0.0689494916404,0.0688055823269,0.0690172136702,0.0692542407747,0.069338893312,0.0692796365359,0.0690510746851,0.0689833526553,0.0689494916404,0.0691695882374,0.0690002831627,0.0687886518195,0.0687039992821,0.0684500416702,0.0684669721777,0.0682976671031,0.0681960840583,0.0680945010135,0.0677812866254,0.0674426764762,0.0673072324165,0.067544259521,0.067197184118,0.0674596069837,0.0675357942672,0.0673834197001,0.0672818366553,0.067324162924,0.0676119815508,0.0674257459687,0.0673664891926,0.0675188637598,0.0674511417299,0.0674765374911,0.0676881688344,0.0679759874613,0.0681537577896,0.0684669721777,0.0682214798195,0.0684415764165,0.0683145976105,0.0684585069239,0.0690426094314,0.0689748874015,0.0691357272224,0.0688309780881,0.0690172136702,0.0689579568941,0.068771721312,0.0686532077598,0.0687378602971,0.0686701382672,0.0687463255508,0.0687801865657,0.0688309780881,0.069118796715,0.0672225798792,0.0651231969539,0.0634640072226,0.0613646242972,0.0594684074614,0.057656843163,0.055862209372,0.0538982705063,0.0518073528347,0.0499703927751,0.0480064539094,0.0461102370737,0.0442055549842,0.0423093381484,0.040243816238,0.038195224835,0.0361635639395,0.0339879937306)
s <- c(0.0362890329889,0.0363880480857,0.0363385405373,0.0363610439684,0.0364105515168,0.036230524068,0.0362575281853,0.0361630137747,0.0359244774051,0.0357399492701,0.035780455446,0.0358119602496,0.0356634376043,0.0355824252524,0.0357984581909,0.0359154760326,0.0360639986779,0.0359964883846,0.0359289780913,0.0358389643669,0.0358119602496,0.0358254623082,0.0358434650531,0.0359289780913,0.0360684993641,0.0358434650531,0.0357759547598,0.0356724389768,0.0354834101555,0.0354654074107,0.0353573909414,0.0352133689824,0.0350108381025,0.0349343264368,0.0348533140848,0.0348893195746,0.0348938202608,0.0349028216332,0.034938827123,0.0348803182021,0.0347587996742,0.0348668161435,0.0349118230057,0.0348938202608,0.0349163236919,0.0351188545718,0.0352133689824,0.0351098531993,0.0352223703548,0.0352628765308,0.0351188545718,0.0350513442785,0.0348623154572,0.034898320947,0.0348398120261,0.0347993058502,0.0349208243781,0.0348713168297,0.0349253250643,0.0349838339852,0.0349253250643,0.034938827123,0.0349298257505,0.0352403730997,0.0354699080969,0.0354023978036,0.0354609067244,0.0356184307421,0.0357399492701,0.0358839712291,0.0359514815224,0.0359964883846,0.0361180069125,0.0361675144609,0.0362890329889,0.0363835473995,0.0364375556341,0.0363610439684,0.0364105515168,0.0365815775931,0.0366760920037,0.036784108473,0.0367616050419,0.0368696215112,0.036824614649,0.0367751071006,0.0367886091592,0.0367796077868,0.0558355132407,0.0569606847956,0.0580363488021,0.0590084970255,0.0597691129967,0.0608762818067,0.0617809197368,0.0624650240422,0.06352718599,0.0646028499965,0.0654489790058,0.0662681038978,0.067379773394,0.0683519216175,0.0693330712134,0.0698506501286,0.0708092962934,0.0718129493204,0.071826451379,0.0715654115783,0.0715429081472,0.0714258903055,0.0716104184405,0.0714798985401,0.0712593649154,0.0712233594256,0.0712368614843,0.07094431688,0.0707012798241,0.0705392551202,0.0705797612962,0.070534754434,0.0706562729619,0.0706517722757,0.0705257530616,0.0704852468856,0.0705707599238,0.0704267379647,0.0702782153195,0.0702782153195,0.070309720123,0.0703052194368,0.0703277228679,0.0703052194368,0.0703592276714,0.0702962180644,0.0704852468856,0.0703862317888,0.0700126748325,0.0700576816947,0.0699271617944,0.0705572578651,0.0706112660997,0.0708408010969,0.0709983251146,0.0713493786398,0.0714438930504,0.0715564102059,0.0712323607981,0.0712458628567,0.0712998710913,0.0712683662878,0.0711828532496,0.0714213896193,0.0715564102059,0.0715339067748,0.0715924156956,0.0717679424582,0.0717994472617,0.0717859452031,0.0719749740243,0.0722540165699,0.0723620330392,0.0722810206872,0.0724880522533,0.0726410755848,0.0727040851919,0.0728391057785,0.0729786270513,0.0730776421481,0.0728886133269,0.0726590783297,0.0726230728399,0.0727130865643,0.0727670947989,0.0726365748986,0.0729471222477,0.0726095707813,0.0726815817608,0.0724880522533,0.0723890371565,0.0723890371565,0.0722315131388,0.0720784898073,0.0721865062766,0.0721910069628,0.0722675186286,0.072276520001,0.072173004218,0.0721955076491,0.0722135103939,0.0724160412738,0.0723845364703,0.0721414994144,0.0719929767692,0.0719749740243,0.0719299671621,0.0715339067748,0.071457395109,0.0716284211854,0.0716329218716,0.0714888999126,0.0716059177543,0.0715024019712,0.0715069026574,0.0714934005988,0.0718579561826,0.0721144952971,0.0721279973558,0.072317026177,0.0726410755848,0.0728481071509,0.0727490920541,0.0729561236202,0.0727760961714,0.0729336201891,0.0730371359721,0.0729471222477,0.0729381208753,0.0731136476379,0.073199160676,0.0732486682244,0.0732576695969,0.0734511991043,0.0737167395913,0.0738517601779,0.0739732787058,0.073874263609,0.0738112540019,0.0739462745885,0.0738697629228,0.0740227862542,0.0740857958613,0.0742703239963,0.0742703239963,0.0739417739023,0.0739552759609,0.0741803102719,0.0740677931164,0.0741443047822,0.0741353034097,0.0742928274274,0.0742253171341,0.0743918425242,0.0743738397794,0.0742703239963,0.0739642773334,0.0739642773334,0.0741127999786,0.0741668082132,0.0741578068408,0.0741398040959,0.0740947972337,0.0741082992924,0.0743918425242,0.0744908576211,0.0743648384069,0.0744053445829,0.07446835419,0.0745223624246,0.0745988740903,0.0744143459553,0.0743603377207,0.0745223624246,0.0747338946769,0.0747293939907,0.0750129372225,0.0750489427123,0.0750444420261,0.0752379715335,0.0751704612402,0.0755710223138,0.0756925408417,0.075760051135,0.0760976026015,0.0761606122085,0.0760841005428,0.0761156053463,0.0758500648594,0.0757645518212,0.0757960566248,0.0756295312346,0.0757780538799,0.0757150442728,0.0756880401555,0.0755485188827,0.0758590662318,0.0756025271173,0.0754900099618,0.075431501041,0.0753369866304,0.0753279852579,0.0754360017272,0.0756925408417,0.0757285463315,0.0758680676043,0.0757780538799,0.0760750991704,0.0762146204432,0.07631363554,0.0763496410298,0.0766286835754,0.0769032254348,0.076804210338,0.0769842377867,0.0769977398454,0.0773262899394,0.0774793132709,0.0776413379748,0.077726851013,0.0776548400335,0.0777988619925,0.0779338825791,0.0782084244385,0.0785954834534,0.0786179868845,0.0789060308025,0.0791175630548,0.0796441433425,0.0797656618705,0.0797656618705,0.0801887263751,0.0803642531377,0.0806252929384,0.0810483574431,0.0815119281237,0.0817324617484,0.0819664974319,0.0822095344877,0.0822950475259,0.0823625578192,0.0823940626227,0.082542585268,0.0826190969337,0.0825155811507,0.082830629186,0.0829791518313,0.083015157321,0.0829701504588,0.0832446923182,0.0833572094737,0.0836002465296,0.0836812588815,0.0836677568229,0.0836587554504,0.0837397678024,0.0838837897614,0.0839017925063,0.0840998227,0.0841898364244,0.0840233110342,0.0844328734802,0.0843833659318,0.084756922888,0.084612900929,0.084878441416,0.0850809722958,0.0850719709234,0.0850899736683,0.0853825182726,0.0852339956273,0.0851709860202,0.0852294949411,0.0853735169001,0.0854050217037,0.0854455278796,0.085801082091,0.0860081136571,0.0863186610062,0.0862601520854,0.0863726692409,0.086129632185,0.0862511507129,0.0864536815928,0.086498688455,0.0867957337455,0.0869217529597,0.0868812467837,0.0869172522735,0.0872863085435,0.0874708366785,0.0877183744205,0.0877813840276,0.0878533950071,0.087952410104,0.088136938239,0.0885600027436,0.0884699890192,0.0889110562687,0.088915556955,0.0889965693069,0.0891315898935,0.0892756118525,0.089653669495,0.0898607010611,0.0898156941989,0.0903197710555,0.0904907971318,0.0904232868385,0.0905493060527,0.0909678698711,0.0912874185927,0.0914314405517,0.0917509892733,0.091804997508,0.0922190606402,0.0926196217137,0.0929976793562,0.0932677205293,0.0934702514092,0.0939293214036,0.0940913461075,0.094428897574,0.0949464764893,0.0953155327593,0.0953020307006,0.0957070924604,0.0957295958915,0.0961346576513,0.0963731940209,0.0968727701913,0.0968232626429,0.0967737550944,0.0973048360684,0.0973408415581,0.0974803628309,0.0976018813589,0.0979259307667,0.0981104589017,0.0980654520395,0.0982274767434,0.0986865467378,0.0985875316409,0.098956587911,0.0991501174184,0.0990961091838,0.099141116046,0.0992176277117,0.0994066565329,0.0994606647676,0.0997127031959,0.0999782436828,0.100113264269,0.100189775935,0.100347299953,0.100351800639,0.100518326029,0.100765863771,0.100788367202,0.100873880241,0.101121417983,0.101616493467,0.101512977684,0.101670501701,0.101589489349,0.101958545619,0.102071062775,0.102543634828,0.102998204136,0.103092718547,0.103520283738,0.103938847556,0.104573444313,0.104780475879,0.105212541756,0.105626604888,0.105712117927,0.105824635082,0.106355716056,0.106787781933,0.107467385552,0.107962461036,0.108255005641,0.108588056421,0.108511544755,0.108871599653,0.109132639454,0.109092133278,0.109299164844,0.109596210134,0.109857249935,0.110325321302,0.110509849437,0.11064937071,0.110991422862,0.111220957859,0.111504501091,0.111626019619,0.112062586183,0.112337128042,0.112908715192,0.113268770089,0.113318277638,0.113673831849,0.114159905961,0.114384940272,0.11447045331,0.114808004776,0.114857512325,0.115145556243,0.115420098102,0.115690139276,0.116428251816,0.117026843083,0.117274380825,0.117359893863,0.117692944643,0.118255530421,0.118539073653,0.118849621002,0.119493219131,0.119866776087,0.120424861179,0.120969444211,0.121442016264,0.121928090376,0.122211633608,0.122540183702,0.123071264676,0.123444821632,0.123818378588,0.124164931427,0.124412469169,0.124831032988,0.125249596806,0.125605151017,0.125785178466,0.125915698367,0.126541293751,0.12681583561,0.12692385208,0.127526944033,0.127990514714,0.128323565494,0.128611609412,0.12906617872,0.129178695876,0.12943523499,0.129520748028,0.129975317337,0.130348874293,0.130330871548,0.130362376352,0.130303867431,0.130713429877,0.130924962129,0.131204004675,0.131357028006,0.131510051338,0.131816098,0.131784593197,0.13185210349,0.132077137801,0.132275167995,0.132225660446,0.132432692013,0.132581214658,0.132689231127,0.132689231127,0.13266222701,0.132806248969,0.132999778476,0.133094292887,0.133301324453,0.133242815532,0.133314826512,0.133580366999,0.133661379351,0.133755893761,0.133904416406,0.134057439738,0.134075442483,0.134214963756,0.134345483656,0.134376988459,0.134142952776,0.134237467187,0.134836058454,0.135097098255,0.135506660701,0.135605675797,0.136055744419,0.136244773241,0.136397796572,0.136357290396,0.136325785593,0.136856866566,0.136942379605,0.13705489676,0.13725742764,0.137428453716,0.137621983224,0.138022544297,0.138040547042,0.138085553904,0.138144062825,0.138274582726,0.138445608802,0.138927182227,0.139084706245,0.139107209676,0.139021696638,0.13897218909,0.138841669189,0.138679644485,0.13876965821,0.138652640368,0.138585130075,0.138513119095,0.13849511635,0.13849511635,0.138252079295,0.138337592333,0.138036046356,0.137824514104,0.137716497634,0.13755447293,0.136978385094,0.137050396074,0.136771353528,0.136478808924,0.136375293141,0.136006236871,0.136046743047,0.135871216284,0.135574170994,0.135322132566,0.135191612665,0.134566017281,0.134552515222,0.134534512477,0.134151954148,0.133818903368,0.133643376606,0.133215811415,0.132878259948,0.132743239362,0.132765742793,0.132734237989,0.132284169367,0.132153649467,0.131744087021,0.131600065062,0.131172499871,0.131095988205,0.130726931935,0.1304118839,0.130371377724,0.129961815278,0.129993320082,0.13007883312,0.129858299495,0.12970977685,0.129736780967,0.129430734304,0.129322717835,0.129129188327,0.128926657447,0.128782635488,0.128332566866,0.128211048339,0.128179543535,0.128134536673,0.127859994813,0.127850993441,0.12745943374,0.127405425505,0.127526944033,0.127409926191,0.127121882273,0.126671813651,0.12648278483,0.126217244343,0.125690664056,0.125051566612,0.124921046712,0.124885041222,0.124461976718,0.124047913585,0.123872386823,0.123413316828,0.12319728389,0.122913740658,0.122612194681,0.122198131549,0.121752563613,0.12118547715,0.120726407155,0.120109813143,0.119578732169,0.118683095612,0.118080003658,0.117899976209,0.117526419253,0.11725637808,0.116842314948,0.11638774564,0.115811657803,0.115393093985,0.114781000659,0.11430392792,0.113912368219,0.113295774207,0.112899713819,0.112436143139,0.112269617749,0.111819549127,0.111288468153,0.11091041051,0.111022927666,0.11091041051,0.110775389924,0.110217304832,0.11020830346,0.110127291108,0.109987769835,0.109893255425,0.109560204644,0.109411681999,0.109123638081,0.108705074263,0.108300012503,0.108146989171,0.107818439077,0.10786344594,0.107597905453,0.107566400649,0.107390873887,0.10718384232,0.107062323793,0.106576249681,0.106423226349,0.106450230467,0.106121680373,0.105986659786,0.105865141258,0.105464580185,0.105478082243,0.105343061657,0.105059518425,0.10491099578,0.104654456665,0.104474429216,0.104379914806,0.10417288324,0.103551788541,0.103317752858,0.102917191784,0.102818176687,0.102372608752,0.102075563461,0.101702006505,0.101332950235,0.100995398768,0.100801869261,0.100455316422,0.100185275249,0.100104262897,0.0996901997648,0.0995056716298,0.0991996249668,0.098956587911,0.0985695288961,0.0985740295823,0.0981014575292,0.0979439335115,0.097808912925,0.097768406749,0.097358844303,0.0971923189129,0.0965217166661,0.0962066686308,0.0960851501028,0.0956710869706,0.0951895135451,0.0948519620787,0.0944469003189,0.0940913461075,0.0938933159139,0.093609772682,0.0932587191569,0.0932182129809,0.0929751759251,0.0926916326932,0.0923540812268,0.0920615366225,0.0918004968218,0.0916429728041,0.091435941238,0.0914854487864,0.0912199082994,0.0908643540881,0.0909003595778,0.0905448053665,0.0903782799763,0.0900182250788,0.0896401674363,0.0895816585155,0.0898111935127,0.089509647536,0.0895051468497,0.0893071166561,0.0891991001868,0.0887895377408,0.0884834910779,0.0881549409839,0.0883259670602,0.0880064183386,0.0876913703032,0.087542847658,0.0875518490304,0.0873853236403,0.0873403167781,0.0868947488424,0.0870162673703,0.086804735118,0.0868407406077,0.0863726692409,0.0859991122847,0.0859721081673,0.0859766088536,0.0859271013051,0.0856255553284,0.0856345567009,0.0856390573871,0.0853735169001,0.084941451023,0.0849549530817,0.0847389201432,0.0846579077912,0.0844148707353,0.0843653631869,0.0841943371106,0.084018810348,0.0836542547642,0.0835507389812,0.0833752122186,0.083096169673,0.0828171271274,0.0827496168341,0.0824795756609,0.0825470859542,0.0822815454672,0.082646101051,0.0826235976199,0.0824840763471,0.0822950475259,0.0822905468397,0.0820205056665,0.0820295070389,0.0817144590036,0.0817099583173,0.0815029267512,0.0815569349859,0.0815929404756,0.0813634054784,0.0810528581293,0.0807423107801,0.0809403409738,0.0806387949971,0.0806702998006,0.0805802860762,0.0805712847038,0.0803687538239,0.0802652380408,0.0800762092196,0.080022200985,0.0798331721638,0.0799681927503,0.0799006824571,0.0797296563807,0.0795181241284,0.0793831035418,0.0794956206973,0.0795091227559,0.0794641158938,0.0796306412839,0.079653144715,0.079716154322,0.0793020911898,0.0795001213835,0.0793065918761,0.0794641158938,0.0793020911898,0.0792255795241,0.0791805726619,0.0790545534478,0.0788925287439,0.0787215026675,0.0786314889431,0.0785234724738,0.0783524463975,0.0783344436526,0.0785549772774,0.0781949223798,0.0782354285558,0.0779833901275,0.0778753736582,0.0778213654236,0.0777133489543,0.0777178496405,0.0777088482681,0.0777808592476,0.0775828290539,0.0774343064087,0.0774163036638,0.0773487933705,0.0774028016052,0.0772182734702,0.076988738473,0.0767997096517,0.0764936629888,0.07631363554,0.0762236218156,0.0760525957393,0.0762146204432,0.0758230607421,0.0758095586834,0.0755170140791,0.0754855092756,0.0753594900614,0.0751974653575,0.0751749619264,0.0751164530056,0.075165960554,0.0751209536918,0.0752109674162,0.0750759468296,0.075062444771,0.074900420067,0.0748959193808,0.0746798864423,0.0745943734041,0.0743963432104,0.0743783404656,0.0743198315447,0.0741983130168,0.0740452896853,0.0739102690987,0.0742163157617,0.0741938123306,0.0739507752747,0.0738472594917,0.0738382581192,0.0740407889991,0.0741758095857,0.0740137848818,0.0743063294861,0.0744368493864,0.0742478205652,0.074162307527,0.0739642773334,0.0741218013511,0.0742388191928,0.074427848014,0.0743063294861,0.0743693390931,0.0744638535037,0.0744368493864,0.0745628686006,0.0744638535037,0.0742523212514,0.0741127999786,0.0744323487002,0.0742748246825,0.0742883267412,0.0741893116443,0.0741713088995,0.0739642773334,0.0739057684125,0.0737662471397,0.0738562608641,0.0738877656676,0.0738607615503,0.0737572457673,0.0735322114563,0.0735097080252,0.073608723122,0.0739732787058,0.073874263609,0.0737482443948,0.0735367121425,0.0737347423362,0.0736627313566,0.0734962059665,0.0736177244945,0.0736312265531,0.0736987368464,0.0736537299842,0.0737302416499,0.0734917052803,0.0736312265531,0.0737302416499,0.0736987368464,0.0736717327291,0.0734196943008,0.0735502142012,0.0736177244945,0.0735997217496,0.0735007066527,0.0735817190047,0.073689735474,0.0739012677263,0.0740272869404,0.0742343185065,0.0744773555624,0.0747699001667,0.0748149070289,0.0745853720317,0.0746078754628,0.074715891932,0.0745043596797,0.0744143459553,0.0743378342896,0.0739327725298,0.073874263609,0.0740227862542,0.0739597766471,0.0740947972337,0.0741218013511,0.0741263020373,0.0739462745885,0.0739687780196,0.073793251257,0.0738652622365,0.0736942361602,0.0737662471397,0.0737482443948,0.0736717327291,0.0736537299842,0.0736312265531,0.0737257409637,0.073649229298,0.0735772183185,0.0735367121425,0.0735187093976,0.0733071771453,0.0729201181304,0.0727670947989,0.0726275735261,0.0724115405876,0.0722720193148,0.0719794747105,0.0720739891211,0.0722045090215,0.0721595021593,0.0721369987282,0.0721775049042,0.0722270124526,0.0721955076491,0.0724475460774,0.0724250426463,0.0722405145112,0.0722855213734,0.0721775049042,0.072173004218,0.071907463731,0.0718489548101,0.0715969163818,0.071394385502,0.0711468477599,0.0710748367804,0.0711738518772,0.070984823056,0.0711603498185,0.0712053566807,0.071209857367,0.0711918546221,0.0711108422701,0.0713358765811,0.0712188587394,0.0711198436426,0.071272866974,0.0714618957953,0.0714168889331,0.0714213896193,0.0716734280476,0.0717994472617,0.0719749740243,0.0718129493204,0.0717589410857,0.0717679424582,0.0716374225578,0.0719344678483,0.0718759589275,0.0718849602999,0.0715159040299,0.0715564102059,0.0714798985401,0.0711963553083,0.0710613347217,0.0710343306044,0.0711873539359,0.071209857367,0.0712953704051,0.07131337315,0.0713853841295,0.0703142208092,0.0691485430784,0.0682259024033,0.0671052315347,0.0659980627246,0.0649719062665,0.0639547511809,0.0629961050161,0.0618304272852,0.0608942845516,0.0599446397592,0.058873476439,0.0577032980218,0.0567446518571,0.055759001575,0.0545618190405,0.0535491646411,0.0524509972035,0.034304230366,0.0344572536975,0.0344212482077,0.0345652701667,0.0344662550699,0.0343987447766,0.0345562687943,0.0345517681081,0.0345022605597,0.0346102770289,0.034857814771,0.0349118230057,0.0349433278092,0.0348758175159,0.0350333415336,0.035082849082,0.0351818641788,0.035307883393,0.035348389569,0.0353123840792,0.0353348875103,0.0352133689824,0.0352538751583,0.0351863648651,0.0352763785894,0.0352358724135,0.0352088682961,0.0352403730997,0.035226871041,0.0352133689824,0.0353888957449,0.0354158998623,0.0353618916276,0.0354834101555,0.0353888957449,0.0352898806481,0.0353708930001,0.035267377217,0.0353213854516,0.0352628765308,0.0353618916276,0.0353663923138,0.0352763785894,0.0353303868241,0.0353258861379,0.0352763785894,0.0351593607477,0.0349748326127,0.0349073223194,0.0349658312403,0.0348758175159,0.0348488133986,0.0347993058502,0.0347317955569,0.0347317955569,0.0348623154572,0.0348218092813,0.0348443127124,0.0347948051639,0.0349028216332,0.034754298988,0.0346867886947,0.0348848188883,0.0349253250643,0.0348443127124,0.0349838339852,0.0348083072226,0.0348038065364,0.0348128079088,0.0346822880085,0.0347092921258,0.0348713168297,0.0347407969293,0.0348668161435,0.0348758175159,0.0349928353576,0.0349658312403,0.03500183673,0.034938827123,0.0349568298678,0.0349838339852,0.0349523291816,0.0349433278092,0.0350468435922,0.0349793332989,0.0349433278092,0.0348218092813,0.0346867886947)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("23-organelles-nucleus-merged/APETALA1-GR_2h_induced_sample_2-GSM506209.36mers.macs2.0.9_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"))
lines(x,s,col=c("black"))
abline(v=median(x[p==max(p)]),lty=2,col=c("red"))
abline(v=median(x[m==max(m)]),lty=2,col=c("blue"))
abline(v=median(x[s==max(s)]),lty=2,col=c("black"))
legend("topleft",c("forward tags","reverse tags","shifted tags"),lty=c(1,1,1),col=c("red","blue","black"))
legend("right",c("d=176"),bty="n")
dev.off()