# R script for Peak Model
#  -- generated by MACS
p <- c(0.0324605359667,0.0334298781587,0.0346974794866,0.0357413864626,0.0367604385105,0.0380031849105,0.0395193355184,0.0410603410544,0.0424770719503,0.0437198183502,0.0447140154702,0.0460313266542,0.0471249434861,0.0483179800301,0.049610436286,0.05080347283,0.0521704938699,0.0531646909899,0.0543080176778,0.0555507640778,0.0566692358377,0.0579119822377,0.0590801638536,0.0604471848936,0.0617147862215,0.0623610143495,0.0625598537735,0.0628084030535,0.0622864495655,0.0621870298535,0.0619633355015,0.0620379002855,0.0618142059335,0.0619633355015,0.0620627552135,0.0617644960775,0.0615408017255,0.0617644960775,0.0623113044935,0.0619881904295,0.0619384805735,0.0616402214375,0.0615905115815,0.0615656566535,0.0612425425895,0.0612176876615,0.0610685580935,0.0612673975175,0.0611928327335,0.0610685580935,0.0610188482375,0.0617147862215,0.0616402214375,0.0618639157895,0.0621870298535,0.0622615946375,0.0618390608615,0.0615656566535,0.0611679778055,0.0611679778055,0.0614413820135,0.0614662369415,0.0616899312935,0.0616650763655,0.0615159467975,0.0615408017255,0.0611431228775,0.0614910918695,0.0615408017255,0.0617147862215,0.0617396411495,0.0616153665095,0.0614910918695,0.0613668172295,0.0613668172295,0.0609194285256,0.0604968947496,0.0607205891016,0.0610934130215,0.0609442834536,0.0608697186696,0.0605714595336,0.0605963144616,0.0604720398216,0.0604968947496,0.0604968947496,0.0607205891016,0.0604471848936,0.0602980553256,0.0605466046056,0.0608697186696,0.0607702989576,0.0608448637416,0.0606211693896,0.0610437031655,0.0611182679495,0.0609194285256,0.0608697186696,0.0610685580935,0.0614910918695,0.0618390608615,0.0615159467975,0.0614910918695,0.0614165270855,0.0613171073735,0.0615408017255,0.0616153665095,0.0615408017255,0.0619384805735,0.0619633355015,0.0623361594215,0.0623113044935,0.0623113044935,0.0623113044935,0.0621870298535,0.0621621749255,0.0624107242055,0.0624355791335,0.0629078227655,0.0630818072615,0.0630569523335,0.0635043410374,0.0637280353894,0.0637528903174,0.0633552114695,0.0636286156774,0.0642002790214,0.0638026001734,0.0637280353894,0.0643245536614,0.0646476677254,0.0654181704934,0.0655673000614,0.0658407042694,0.0657412845574,0.0660643986213,0.0663378028293,0.0666857718213,0.0664123676133,0.0667603366053,0.0664869323973,0.0667851915333,0.0666609168933,0.0669591760293,0.0668846112453,0.0668349013893,0.0669094661733,0.0667603366053,0.0668846112453,0.0665614971813,0.0665366422533,0.0665366422533,0.0665863521093,0.0667603366053,0.0672822900933,0.0673319999493,0.0672822900933,0.0673568548773,0.0672574351653,0.0674065647333,0.0671580154533,0.0671083055973,0.0671580154533,0.0672325802373,0.0675556943013,0.0675805492293,0.0676302590853,0.0674811295173,0.0673071450213,0.0670088858853,0.0671580154533,0.0669591760293,0.0675059844453,0.0678788083653,0.0682516322853,0.0682764872133,0.0683013421413,0.0681522125733,0.0680527928613,0.0677545337253,0.0679533731493,0.0674811295173,0.0678042435813,0.0673817098053,0.0677793886533,0.0675059844453,0.0674065647333,0.0675059844453,0.0682764872133,0.0681025027173,0.0682516322853,0.0681522125733,0.0683261970693,0.0680279379333,0.0680776477893,0.0683261970693,0.0681522125733,0.0682764872133,0.0679782280773,0.0682019224293,0.0681770675013,0.0680279379333,0.0683013421413,0.0683261970693,0.0680776477893,0.0679036632933,0.0681025027173,0.0681025027173,0.0682019224293,0.0684007618533,0.0682267773573,0.0685747463492,0.0689724251972,0.0694695237572,0.0691215547652,0.0695192336132,0.0699666223172,0.0705631405892,0.0701903166692,0.0706128504452,0.0706874152292,0.0711845137891,0.0709111095812,0.0707619800132,0.0706874152292,0.0710105292931,0.0714330630691,0.0723526954051,0.0723526954051,0.0725763897571,0.0725763897571,0.0728995038211,0.0728497939651,0.0732971826691,0.0733468925251,0.073670006589,0.073868846013,0.073843991085,0.073694861517,0.074067685437,0.074465364285,0.074962462845,0.075136447341,0.075633545901,0.0760809346049,0.0762300641729,0.0768265824449,0.0770751317249,0.0777959246369,0.0781190387009,0.0782930231969,0.0788398316128,0.0788398316128,0.0793369301728,0.0794114949568,0.0799085935168,0.0801819977248,0.0806293864288,0.0808282258528,0.0809276455647,0.0812507596287,0.0817727131167,0.0818969877567,0.0815987286207,0.0827669102367,0.0829408947327,0.0832142989407,0.0832888637247,0.0840096566366,0.0839599467806,0.0850784185406,0.0848795791166,0.0850287086846,0.0855506621726,0.0862714550845,0.0868431184285,0.0864702945085,0.0863460198685,0.0868431184285,0.0868679733565,0.0871662324925,0.0873153620605,0.0872407972765,0.0879864451165,0.0882847042525,0.0889806422364,0.0887569478844,0.0890303520924,0.0893286112284,0.0894031760124,0.0893783210844,0.0896020154364,0.0898257097884,0.0896020154364,0.0895274506524,0.0902482435644,0.0903973731324,0.0910933111163,0.0917146843163,0.0918141040283,0.0924851870843,0.0927088814363,0.0933053997083,0.0936782236282,0.0937030785562,0.0941256123322,0.0947966953882,0.0948464052442,0.0950949545242,0.0958157474362,0.0962879910681,0.0959400220761,0.0964371206361,0.0965365403481,0.0965613952761,0.0967850896281,0.0971827684761,0.0975058825401,0.0981272557401,0.098723774012,0.09874862894,0.098848048652,0.099295437356,0.09974282606,0.099717971132,0.099842245772,0.100662458396,0.101184411884,0.101432961164,0.102625997708,0.102924256844,0.103297080764,0.104316132812,0.104664101804,0.1048380863,0.105012070796,0.106180252412,0.106379091836,0.107298724172,0.107621838236,0.107994662156,0.108392341004,0.108715455068,0.109386538124,0.109659942332,0.109784216972,0.11005762118,0.110082476108,0.109908491612,0.110579574668,0.110828123948,0.111026963372,0.111573771788,0.111747756284,0.111946595708,0.112070870347,0.112741953403,0.113785860379,0.114481798363,0.114680637787,0.115451140555,0.115997948971,0.115948239115,0.116867871451,0.116992146091,0.117613519291,0.117663229147,0.117613519291,0.117663229147,0.118458586843,0.118433731915,0.119701333243,0.119477638891,0.119850462811,0.120372416299,0.121068354283,0.121391468347,0.121441178203,0.121764292267,0.121689727483,0.121938276763,0.122062551403,0.121739437339,0.121416323275,0.121714582411,0.122261390827,0.122236535899,0.122833054171,0.122062551403,0.122584504891,0.123181023163,0.123255587947,0.123429572443,0.124150365355,0.124523189275,0.124398914635,0.124821448411,0.125765935675,0.125716225819,0.125915065243,0.126337599019,0.126735277867,0.126511583515,0.126909262363,0.127630055275,0.128027734123,0.127431215851,0.127480925707,0.127903459483,0.127878604555,0.127679765131,0.127828894699,0.128350848187,0.128748527035,0.129046786171,0.129817288939,0.130040983291,0.130562936779,0.130065838219,0.129693014299,0.130264677643,0.129866998795,0.130562936779,0.130811486059,0.131010325483,0.130960615627,0.131060035339,0.131755973323,0.132451911307,0.131880247963,0.131880247963,0.132228216955,0.132675605659,0.133197559147,0.134067481627,0.134117191483,0.134589435115,0.134813129467,0.135807326587,0.136279570219,0.136677249067,0.13700036313,0.137323477194,0.137596881402,0.137895140538,0.138143689818,0.138516513738,0.137919995466,0.138069125034,0.138218254602,0.138417094026,0.138640788378,0.139088177082,0.138889337658,0.139560420714,0.139510710858,0.139709550282,0.139336726362,0.13998295449,0.140206648842,0.140032664346,0.140803167114,0.14110142625,0.140952296682,0.141499105098,0.14097715161,0.141300265674,0.141399685386,0.142443592362,0.14259272193,0.142145333226,0.14221989801,0.142319317722,0.142145333226,0.142145333226,0.142269607866,0.143040110634,0.142791561354,0.142692141642,0.143537209194,0.143810613402,0.144059162682,0.144183437322,0.144158582394,0.143910033114,0.14371119369,0.143412934554,0.14371119369,0.143363224698,0.14308982049,0.14284127121,0.14358691905,0.143412934554,0.143064965562,0.14296554585,0.142791561354,0.142443592362,0.142766706426,0.142393882506,0.142866126138,0.142393882506,0.142493302218,0.142567867002,0.143288659914,0.143636628906,0.143189240202,0.14346264441,0.143810613402,0.143437789482,0.143910033114,0.144431986602,0.143636628906,0.143661483834,0.142940690922,0.142791561354,0.142791561354,0.142543012074,0.142890981066,0.14296554585,0.14296554585,0.142866126138,0.142244752938,0.142070768442,0.141573669882,0.141946493802,0.14209562337,0.141325120602,0.141772509306,0.141002006538,0.140579472762,0.140206648842,0.140032664346,0.139883534778,0.13985867985,0.139808969994,0.140405488266,0.140281213626,0.140654037546,0.140380633338,0.140430343194,0.140281213626,0.139709550282,0.139883534778,0.139759260138,0.139386436218,0.139386436218,0.139510710858,0.13923730665,0.140082374202,0.13961013057,0.13961013057,0.139013612298,0.138690498234,0.138069125034,0.137422896906,0.137895140538,0.138193399674,0.137770865898,0.136851233563,0.136354135003,0.135881891371,0.135533922379,0.134589435115,0.135260518171,0.134937404107,0.134117191483,0.133719512635,0.132973864795,0.132501621163,0.132352491595,0.132103942315,0.132451911307,0.132775025371,0.132973864795,0.132079087387,0.131805683179,0.131308584619,0.130687211419,0.130861195915,0.130562936779,0.130214967787,0.129792434011,0.128872801675,0.128499977755,0.128176863691,0.126859552507,0.126412163803,0.124896013195,0.125020287835,0.123951525931,0.123553847083,0.122783344315,0.122410520395,0.121963131691,0.122037696475,0.121391468347,0.120993789499,0.120745240219,0.119701333243,0.118881120619,0.118284602347,0.118110617851,0.117041855947,0.116619322171,0.115674834907,0.115128026491,0.113860425163,0.113661585739,0.113437891387,0.112965647755,0.112592823835,0.112294564699,0.112170290059,0.111822321068,0.1110518183,0.110877833804,0.110629284524,0.11018189582,0.109535667692,0.1085663255,0.10819350158,0.107671548092,0.10632938198,0.105384894716,0.105484314428,0.10458953702,0.103794179324,0.103147951196,0.102899401916,0.102302883644,0.101830640012,0.101432961164,0.101209266812,0.100712168252,0.10011564998,0.100811587964,0.100687313324,0.100389054188,0.099519131708,0.099419711996,0.098972323292,0.098823193724,0.0982266754521,0.0980278360281,0.0976550121081,0.0977544318201,0.0973070431161,0.0972324783321,0.0973567529721,0.0972821881881,0.0963625558521,0.0960891516441,0.0965365403481,0.0961388615001,0.0962382812121,0.0960394417881,0.0955671981562,0.0949955348122,0.0946475658202,0.0939764827642,0.0936533687002,0.0934793842042,0.0930568504283,0.0924851870843,0.0927337363643,0.0926094617243,0.0924851870843,0.0924106223003,0.0922366378043,0.0924354772283,0.0923112025883,0.0918886688123,0.0923857673723,0.0926094617243,0.0923360575163,0.0920377983803,0.0921372180923,0.0918638138843,0.0918886688123,0.0918389589563,0.0916649744603,0.0915158448923,0.0922117828763,0.0917395392443,0.0915904096763,0.0910436012603,0.0904719379164,0.0904222280604,0.0899251295004,0.0900494041404,0.0898505647164,0.0893286112284,0.0892291915164,0.0892043365884,0.0889060774524,0.0889309323804,0.0889309323804,0.0881852845405,0.0877876056925,0.0873153620605,0.0879615901885,0.0878870254045,0.0875142014845,0.0874893465565,0.0868679733565,0.0864454395805,0.0862217452285,0.0862217452285,0.0859980508765,0.0859980508765,0.0853766776766,0.0855009523166,0.0854015326046,0.0850784185406,0.0847055946206,0.0845316101246,0.0841090763486,0.0839848017086,0.0837362524286,0.0832391538687,0.0828663299487,0.0829160398047,0.0823443764607,0.0819218426847,0.0816981483327,0.0813501793407,0.0813004694847,0.0811513399167,0.0803808371488,0.0804305470048,0.0803808371488,0.0799831583008,0.0788646865408,0.0790635259648,0.0787155569728,0.0777462147809,0.0776965049249,0.0777462147809,0.0781687485569,0.0778704894209,0.0774479556449,0.0772242612929,0.0769508570849,0.0768017275169,0.0768265824449,0.0760560796769,0.075906950109,0.0763294838849,0.0762549191009,0.0761554993889,0.0763294838849,0.075931805037,0.075857240253,0.075658400829,0.075558981117,0.075434706477,0.075782675469,0.075534126189,0.075360141693,0.074813333277,0.075211012125,0.074962462845,0.074689058637,0.074763623421,0.074241669933,0.074365944573,0.073993120653,0.073620296733,0.0734463122371,0.0733220375971,0.0734463122371,0.0733220375971,0.0733220375971,0.0732971826691,0.0728746488931,0.0728000841091,0.0728000841091,0.0727255193251,0.0728497939651,0.0728497939651,0.0730486333891,0.0732971826691,0.073545731949,0.0731480531011,0.0726509545411,0.0731480531011,0.0731729080291,0.0725763897571,0.0720792911971,0.0718307419171,0.0723775503331,0.0723029855491,0.0725515348291,0.0720047264131,0.0712093687171,0.0713336433571,0.0708862546532,0.0705382856612,0.0703394462372,0.0702151715972,0.0693701040452,0.0692706843332,0.0690718449092,0.0690966998372,0.0692706843332,0.0687735857732,0.0682764872133,0.0681025027173,0.0679036632933,0.0681273576453,0.0679285182213,0.0674562745893,0.0673071450213,0.0670088858853,0.0672077253093,0.0669343211013,0.0676551140133,0.0675059844453,0.0674562745893,0.0676551140133,0.0673817098053,0.0673071450213,0.0669094661733,0.0668349013893,0.0671331605253,0.0673319999493,0.0667354816773,0.0668349013893,0.0666609168933,0.0661141084773,0.0657909944134,0.0656667197734,0.0657164296294,0.0659401239814,0.0665366422533,0.0662135281893,0.0660643986213,0.0661886732613,0.0665366422533,0.0666360619653,0.0657661394854,0.0660146887653,0.0654430254214,0.0653684606374,0.0655921549894,0.0653187507814,0.0654678803494,0.0651944761414,0.0650950564294,0.0654678803494,0.0655673000614,0.0656667197734,0.0654678803494,0.0647719423654,0.0642251339494,0.0647967972934,0.0654430254214,0.0653684606374,0.0654927352774,0.0656667197734,0.0654927352774,0.0654678803494,0.0655175902054,0.0654927352774,0.0650950564294,0.0649707817894,0.0640262945254,0.0639268748134,0.0635291959654,0.0632309368295,0.0634049213255,0.0634297762535,0.0635540508934,0.0634297762535,0.0633552114695,0.0633552114695,0.0635789058214,0.0629078227655,0.0627089833415,0.0626841284135,0.0623610143495,0.0622864495655,0.0621870298535,0.0616153665095,0.0610685580935,0.0610188482375,0.0613419623015,0.0615159467975,0.0610188482375,0.0610685580935,0.0614165270855,0.0613668172295,0.0614910918695,0.0615159467975,0.0614662369415,0.0615159467975,0.0616650763655,0.0615408017255,0.0615656566535,0.0613668172295,0.0612673975175,0.0614165270855,0.0614662369415,0.0616650763655,0.0619881904295,0.0612176876615,0.0605714595336,0.0609939933096,0.0607951538856,0.0605217496776,0.0602483454696,0.0606211693896,0.0605466046056,0.0604968947496,0.0604223299656,0.0604471848936,0.0608448637416,0.0610437031655,0.0615905115815,0.0617396411495,0.0615656566535,0.0616402214375,0.0619633355015,0.0621621749255,0.0621124650695,0.0618639157895,0.0618142059335,0.0620379002855,0.0619881904295,0.0624355791335,0.0625847087015,0.0623113044935,0.0621124650695,0.0625349988455,0.0626344185575,0.0627338382695,0.0617893510055,0.0614910918695,0.0618142059335,0.0616153665095,0.0618142059335,0.0615656566535,0.0613419623015,0.0615408017255,0.0616899312935,0.0622367397095,0.0616402214375,0.0616402214375,0.0615905115815,0.0612922524455,0.0613419623015,0.0613668172295,0.0611928327335,0.0613668172295,0.0614662369415,0.0621373199975,0.0622864495655,0.0617396411495,0.0617644960775,0.0615159467975,0.0619384805735,0.0617147862215,0.0619136256455,0.0619136256455,0.0621373199975,0.0620379002855,0.0620627552135,0.0621373199975,0.0618639157895,0.0616650763655,0.0616650763655,0.0615159467975,0.0612922524455,0.0610685580935,0.0609691383816,0.0608448637416,0.0609691383816,0.0607951538856,0.0606211693896,0.0603477651816,0.0602980553256,0.0603477651816,0.0603726201096,0.0600743609736,0.0600992159016,0.0598506666216,0.0603974750376,0.0606211693896,0.0605466046056,0.0605217496776,0.0600495060456,0.0600495060456,0.0599997961896,0.0598009567656,0.0596269722696,0.0593784229896,0.0594281328456,0.0595772624136,0.0593287131336,0.0594281328456,0.0593287131336,0.0589558892136,0.0589807441416,0.0590801638536,0.0590553089256,0.0589310342856,0.0592541483496,0.0598506666216,0.0601986356136,0.0602234905416,0.0599003764776,0.0602980553256,0.0600246511176,0.0598506666216,0.0598506666216,0.0598258116936,0.0594778427016,0.0593287131336,0.0593038582056,0.0593535680616,0.0595026976296,0.0593535680616,0.0592292934216,0.0592044384936,0.0589807441416,0.0592541483496,0.0591298737096,0.0596021173416,0.0598755215496,0.0598506666216,0.0597761018376,0.0597512469096,0.0594529877736,0.0595772624136,0.0595524074856,0.0595524074856,0.0597512469096,0.0601986356136,0.0599749412616,0.0600743609736,0.0601489257576,0.0600992159016,0.0602732003976,0.0604223299656,0.0602483454696,0.0597761018376,0.0600495060456,0.0597015370536,0.0601240708296,0.0602483454696,0.0602732003976,0.0602732003976,0.0602483454696,0.0595772624136,0.0595026976296,0.0592292934216,0.0590553089256,0.0587321948616,0.0582350963017,0.0583842258697,0.0582848061577,0.0576634329577,0.0576385780297,0.0578622723817,0.0577628526697,0.0576634329577,0.0578125625257,0.0578622723817,0.0579119822377,0.0576882878857,0.0576634329577,0.0576385780297,0.0577131428137,0.0576385780297,0.0578125625257,0.0573403188937,0.0573651738217,0.0570669146857,0.0567189456937,0.0569923499017,0.0569674949737,0.0573900287497,0.0577877075977,0.0577877075977,0.0582350963017,0.0582102413737,0.0581605315177,0.0574645935337,0.0576385780297,0.0576882878857,0.0578374174537,0.0581356765897,0.0582350963017,0.0581853864457,0.0583345160137,0.0583096610857,0.0582599512297,0.0585582103656,0.0584090807977,0.0579616920937,0.0578125625257,0.0576882878857,0.0579368371657,0.0579368371657,0.0581108216617,0.0584090807977,0.0584339357257,0.0581605315177,0.0583096610857,0.0580859667337,0.0586079202216,0.0590055990696,0.0587073399336,0.0585582103656,0.0586079202216,0.0585582103656,0.0583842258697,0.0583842258697,0.0582350963017,0.0583593709417,0.0582599512297,0.0585333554376,0.0586824850056,0.0585582103656,0.0586079202216,0.0589558892136,0.0590553089256,0.0590055990696,0.0593784229896,0.0593287131336,0.0593535680616,0.0588813244296,0.0589807441416,0.0583593709417,0.0578125625257,0.0579616920937,0.0577877075977,0.0583096610857,0.0578871273097,0.0576882878857,0.0574894484617,0.0569177851177,0.0568432203337,0.0564952513417,0.0564703964137,0.0565698161257,0.0562467020617,0.0559484429258,0.0556998936458,0.0560230077098,0.0558490232138,0.0558490232138,0.0556004739338,0.0557993133578,0.0552276500138,0.0544820021738,0.0539351937578,0.0542085979658,0.0542583078218,0.0545068571018,0.0542334528938,0.0539351937578,0.0545565669578,0.0541588881098,0.0541340331818,0.0542085979658,0.0542334528938,0.0540594683978,0.0539849036138,0.0538854839018,0.0536866444778,0.0537612092618,0.0536369346218,0.0534380951979,0.0529907064939,0.0528167219979,0.0515739755979,0.050530068622,0.049262467294,0.0478208814701,0.0468018294221,0.0457827773742,0.0444157563342,0.0439186577742,0.0428747507983,0.0416817142543,0.0405383875664,0.0389973820304,0.0382268792625,0.0370338427185,0.0360893554546,0.0352194329746,0.0340761062866,0.0332061838067,0.0321125669747,0.0311183698548,0.0302235924468,0.0292293953268,0.0282103432789,0.0270421616629,0.0261970941109)
m <- c(0.0299247691304,0.0311217598956,0.0322938133532,0.0334159921956,0.0344384218076,0.0355855379576,0.0364583437239,0.0376303971815,0.0387525760239,0.0401241279424,0.0414458052456,0.0426427960108,0.0437400375456,0.0447874044652,0.0457848967695,0.0466078279206,0.0475803829173,0.0485030632989,0.0496501794489,0.0504731106,0.0517947879032,0.0531164652065,0.0540890202032,0.0549368886619,0.055884506351,0.0556600705826,0.055186261738,0.0549368886619,0.054737390201,0.054612703663,0.0546625782782,0.0548371394315,0.055186261738,0.0549119513543,0.0547623275086,0.054612703663,0.0547623275086,0.0549368886619,0.0547872648163,0.0548870140467,0.0550366378923,0.0552361363532,0.0551114498152,0.0546376409706,0.0545378917402,0.0545877663554,0.0545129544326,0.0543882678945,0.0543633305869,0.0544132052021,0.0543633305869,0.0547623275086,0.0545877663554,0.0547623275086,0.0546376409706,0.0544630798173,0.0550615751999,0.055186261738,0.055186261738,0.0550366378923,0.0550615751999,0.0548620767391,0.0549867632771,0.0547872648163,0.054737390201,0.0549867632771,0.0553358855836,0.0552111990456,0.0554356348141,0.055759819813,0.0556101959673,0.0553358855836,0.0555852586597,0.0560840048119,0.056333377888,0.0565079390413,0.0569568105782,0.0569817478858,0.0572061836543,0.057605180576,0.0577548044217,0.0579044282673,0.0578545536521,0.0583034251891,0.0585029236499,0.0588520459565,0.0589517951869,0.0589767324945,0.0590016698021,0.0587772340336,0.0586026728804,0.0585029236499,0.0583532998043,0.0584779863423,0.0584530490347,0.0584281117271,0.0583283624967,0.0583782371119,0.0586525474956,0.0585278609576,0.0587024221108,0.0581039267282,0.0584779863423,0.0582286132662,0.0582535505739,0.0585527982652,0.0582286132662,0.0579044282673,0.0578046790369,0.0574555567304,0.0574306194228,0.057480494038,0.0575303686532,0.0580041774978,0.0583532998043,0.0580789894206,0.0578794909597,0.0582784878815,0.0583782371119,0.0580789894206,0.058054052113,0.0581538013434,0.0583034251891,0.0582535505739,0.0582784878815,0.0581538013434,0.0582784878815,0.0584530490347,0.0587273594184,0.0585278609576,0.0583782371119,0.0580291148054,0.0578794909597,0.0577548044217,0.0572061836543,0.0566076882717,0.0563583151956,0.0564081898108,0.0566326255793,0.0566825001945,0.0565578136565,0.0568321240402,0.0570066851934,0.0573558074999,0.0575054313456,0.0572560582695,0.0574056821152,0.0577298671141,0.0578046790369,0.0579293655749,0.058054052113,0.0583782371119,0.0585527982652,0.0590515444173,0.0593009174934,0.0595004159543,0.0597497890304,0.0600240994141,0.0601487859521,0.060472970951,0.0604480336434,0.0605727201815,0.0608470305652,0.0608220932576,0.0604979082586,0.0607472813347,0.0607223440271,0.0608719678728,0.0605477828739,0.0610714663336,0.0612460274869,0.0611462782565,0.0609467797956,0.061046529026,0.0612709647945,0.0615951497934,0.0618195855619,0.0621188332532,0.0619442720999,0.0621437705608,0.0622684570989,0.0626923913282,0.0632659494032,0.0634155732489,0.0636898836325,0.0641387551695,0.0644629401684,0.0645876267065,0.0644629401684,0.0645377520912,0.0647621878597,0.0643881282456,0.064487877476,0.0642135670923,0.0643133163228,0.0642385043999,0.0642385043999,0.0640140686315,0.0635651970945,0.0635651970945,0.0631163255575,0.0630415136347,0.0628170778662,0.0622684570989,0.0621188332532,0.0617447736391,0.061495400563,0.0617697109467,0.0620938959456,0.0620440213304,0.0621188332532,0.0622435197912,0.061620087101,0.0615203378706,0.0621437705608,0.0620190840228,0.062193645176,0.0619692094075,0.0618943974847,0.0620190840228,0.0618694601771,0.0619193347923,0.0617697109467,0.0615452751782,0.0611462782565,0.0606974067195,0.0601737232597,0.0598495382608,0.0601986605673,0.0600739740293,0.0602734724902,0.0602235978749,0.0598495382608,0.0595752278771,0.0596749771076,0.0595004159543,0.0593009174934,0.0591512936478,0.0594006667239,0.0595004159543,0.0595502905695,0.0597248517228,0.0594006667239,0.0593757294162,0.0590764817249,0.0595253532619,0.0593757294162,0.0590515444173,0.0589517951869,0.058752296726,0.0591263563402,0.0594006667239,0.0594006667239,0.0597248517228,0.0598495382608,0.0596001651847,0.0597497890304,0.0596749771076,0.0590515444173,0.059201168263,0.0590764817249,0.0589767324945,0.059325854801,0.0593009174934,0.0589517951869,0.0595004159543,0.0593507921086,0.0594006667239,0.0595253532619,0.0595502905695,0.0590764817249,0.059201168263,0.0595502905695,0.0595502905695,0.0596999144152,0.0596999144152,0.0598744755684,0.0599991621065,0.0596999144152,0.0597996636456,0.0595502905695,0.0592759801858,0.0588271086489,0.0589767324945,0.0586774848032,0.0588520459565,0.0591512936478,0.0594256040315,0.0589019205717,0.0589268578793,0.0587024221108,0.0590016698021,0.0596001651847,0.0595502905695,0.0596999144152,0.0599991621065,0.0600490367217,0.060472970951,0.061046529026,0.0611712155641,0.0610714663336,0.0607722186423,0.0606225947967,0.0603233471054,0.0603233471054,0.0605727201815,0.0607722186423,0.060472970951,0.0611462782565,0.0607722186423,0.0605477828739,0.0605976574891,0.0605976574891,0.0607472813347,0.060921842488,0.060921842488,0.0610964036412,0.0608470305652,0.0611961528717,0.0607223440271,0.0610714663336,0.0613208394097,0.0615203378706,0.0613208394097,0.0615203378706,0.0617946482543,0.0620190840228,0.0620440213304,0.0623432690217,0.0625427674825,0.0627173286358,0.0629417644043,0.0634654478641,0.0633656986336,0.0635153224793,0.0636150717097,0.0635402597869,0.0636150717097,0.0638893820934,0.0642385043999,0.0643382536304,0.0644629401684,0.0641886297847,0.0644380028608,0.0646624386293,0.0640888805543,0.0643881282456,0.0643133163228,0.0642385043999,0.064363190938,0.064487877476,0.0642385043999,0.0642385043999,0.0641886297847,0.0642634417075,0.0644130655532,0.064363190938,0.0645876267065,0.0642883790152,0.0652359967043,0.0655352443956,0.0653357459347,0.0653606832423,0.0652609340119,0.0653606832423,0.0648868743978,0.0646375013217,0.0651362474739,0.0649616863206,0.0652858713195,0.0662334890086,0.0661836143934,0.0658095547793,0.0661337397782,0.066208551701,0.0666324859304,0.0663581755467,0.0664828620847,0.0665327366999,0.0662833636238,0.0663831128543,0.0664080501619,0.0661586770858,0.0663581755467,0.0664828620847,0.0665077993923,0.0666324859304,0.0664329874695,0.066782109776,0.0662584263162,0.0664080501619,0.0661337397782,0.0662334890086,0.0665327366999,0.0667072978532,0.0668070470836,0.0671811066978,0.0670813574673,0.067230981313,0.0672559186206,0.0676798528499,0.0682783482325,0.068502784001,0.0692758405369,0.0696748374586,0.0699990224575,0.0698493986119,0.0698992732271,0.0702733328412,0.0694753389978,0.0696997747662,0.0704478939945,0.0706224551478,0.0706473924554,0.0703980193793,0.0712209505304,0.0717945086054,0.0716448847597,0.0720189443738,0.0721935055271,0.0719690697586,0.0722184428347,0.0726423770641,0.0728169382173,0.0726922516793,0.0725675651412,0.0730663112934,0.0731411232162,0.0729166874478,0.0732408724467,0.0733156843695,0.0732907470619,0.0737645559065,0.0738892424445,0.0741884901358,0.0743879885967,0.0743131766738,0.0745874870575,0.0747371109032,0.0750862332097,0.0749864839793,0.0753605435934,0.0755351047467,0.075260794363,0.0754852301314,0.0757844778228,0.0752857316706,0.0753106689782,0.0753356062858,0.0758842270532,0.0753356062858,0.075385480901,0.0755101674391,0.0749864839793,0.0748368601336,0.0749116720565,0.0749116720565,0.0750114212869,0.0750862332097,0.0755351047467,0.0760338508988,0.0757844778228,0.0758592897456,0.0762084120521,0.0768069074347,0.0765824716662,0.0767819701271,0.0776547758934,0.0777046505086,0.0776049012782,0.077555026663,0.0775300893554,0.0773555282021,0.0779290862771,0.0779540235847,0.078253271276,0.0787270801206,0.0791260770423,0.0793505128108,0.0796996351173,0.0795998858869,0.0803230678075,0.0805225662684,0.0806223154988,0.0809465004977,0.0807470020369,0.0806721901141,0.0807719393445,0.0807968766521,0.0810711870358,0.0818941181869,0.0819439928021,0.0820936166477,0.0824676762619,0.0827918612608,0.0829165477988,0.0836896043347,0.0849364697151,0.085011281638,0.085011281638,0.0855100277901,0.0857843381738,0.0860087739423,0.0865573947097,0.0870062662467,0.0873553885532,0.0877543854749,0.0874800750912,0.0876795735521,0.0875798243217,0.0871309527847,0.087430200476,0.0877793227825,0.0877294481673,0.0878042600901,0.0881035077814,0.0881783197043,0.0876795735521,0.0875299497064,0.0878291973977,0.088003758551,0.0881035077814,0.0884027554727,0.0884027554727,0.0893004985467,0.0896496208532,0.0895249343151,0.0897743073912,0.0902481162358,0.0901483670053,0.0912705458477,0.091569793539,0.0917692919999,0.0923677873825,0.0922680381521,0.0927667843043,0.0934400916097,0.0940136496847,0.0941133989151,0.0943627719912,0.0939887123771,0.094312897376,0.0945622704521,0.0944625212216,0.0945123958369,0.094761768913,0.0946370823749,0.0948615181434,0.0948615181434,0.0951607658347,0.0952106404499,0.0955348254488,0.095584700064,0.095584700064,0.0957592612173,0.0957592612173,0.0962081327543,0.096731816214,0.0974051235195,0.0976046219803,0.0979038696716,0.0982529919782,0.0985273023619,0.0993252962053,0.099474920051,0.10042253774,0.100472412355,0.100846471969,0.101320280814,0.102118274658,0.102267898503,0.102916268501,0.103040955039,0.103115766962,0.103190578885,0.10334020273,0.103639450422,0.103938698113,0.104437444265,0.105035939648,0.105135688878,0.105235438109,0.105385061954,0.105559623108,0.106332679643,0.107404983871,0.108128165791,0.108402476175,0.109474780402,0.110372523476,0.111394953088,0.111868761933,0.11294106616,0.113788934618,0.11408818231,0.114985925384,0.115609358074,0.115584420766,0.116881160762,0.117305094991,0.117953464989,0.11825271268,0.119474640753,0.120347446519,0.121195314978,0.121519499977,0.12274142805,0.123040675741,0.123439672663,0.124462102275,0.125534406502,0.125733904963,0.1261827765,0.12628252573,0.127180268804,0.126955833036,0.128277510339,0.129649062257,0.130072996487,0.130422118793,0.131444548405,0.131668984174,0.132915849554,0.133364721091,0.133863467243,0.134062965704,0.134461962626,0.134262464165,0.134337276088,0.134611586472,0.134511837241,0.134586649164,0.134960708778,0.135235019162,0.135484392238,0.13483602224,0.134935771471,0.135135269931,0.134910834163,0.134711335702,0.13473627301,0.13545945493,0.135409580315,0.135908326467,0.13660657108,0.136831006849,0.137504314154,0.137155191848,0.136980630694,0.137155191848,0.137354690309,0.138102809537,0.137853436461,0.138127746844,0.137978122999,0.138252433382,0.137778624538,0.138501806459,0.138003060306,0.138701304919,0.138202558767,0.138352182613,0.139299800302,0.140097794146,0.139798546454,0.140322229914,0.139848421069,0.139050427226,0.139374612225,0.140197543376,0.139798546454,0.140621477605,0.140197543376,0.140347167222,0.140022982223,0.140596540298,0.141120223757,0.141843405678,0.1422424026,0.142466838368,0.14286583529,0.142741148752,0.142940647213,0.142840897982,0.142990521828,0.143514205288,0.143638891826,0.14391320221,0.144037888748,0.144436885669,0.144736133361,0.144137637978,0.143863327594,0.143938139517,0.143938139517,0.143738641056,0.143190020289,0.14338951875,0.142965584521,0.142890772598,0.142915709905,0.142466838368,0.143065333751,0.14286583529,0.142990521828,0.143663829134,0.143738641056,0.144062826055,0.144187512593,0.143963076825,0.144237387209,0.145010443744,0.144436885669,0.144187512593,0.144611446823,0.143938139517,0.144287261824,0.144511697592,0.144162575286,0.143439393365,0.143688766441,0.143539142596,0.143564079903,0.143938139517,0.144262324516,0.143738641056,0.143190020289,0.143190020289,0.142566587599,0.142516712984,0.141943154909,0.141893280293,0.141569095294,0.141369596834,0.141045411835,0.140646414913,0.140247417991,0.140172606068,0.1399481703,0.139723734531,0.139175113764,0.13880105415,0.139000552611,0.138626492997,0.138027997614,0.137953185691,0.138526743766,0.138227496075,0.138651430304,0.138925740688,0.13880105415,0.138202558767,0.137304815693,0.137205066463,0.137105317232,0.136357198004,0.135758702622,0.135035520701,0.134811084932,0.134362213396,0.134262464165,0.133240034553,0.133215097246,0.132392166094,0.131818608019,0.131170238022,0.130521868024,0.130222620332,0.130072996487,0.129250065336,0.128701444568,0.127604203034,0.127379767265,0.126881021113,0.127005707651,0.126631648037,0.126132901885,0.125210221503,0.12555934381,0.125060597657,0.124861099197,0.125235158811,0.125010723042,0.125309970734,0.125185284196,0.124886036504,0.124711475351,0.12398829343,0.123788794969,0.123863606892,0.123763857662,0.123290048817,0.123489547278,0.123115487664,0.122791302665,0.122167869975,0.121245189593,0.121270126901,0.120746443441,0.119998324213,0.120197822674,0.120721506134,0.120272634597,0.120147948059,0.119424766138,0.119200330369,0.119275142292,0.119699076522,0.119724013829,0.11939982883,0.119000831909,0.118926019986,0.118277649988,0.118427273834,0.117953464989,0.118551960372,0.117953464989,0.117878653066,0.117679154605,0.117704091913,0.117753966528,0.118477148449,0.118227775373,0.118103088835,0.117429781529,0.117778903836,0.118103088835,0.118177900757,0.117803841143,0.117828778451,0.117778903836,0.117205345761,0.1170058473,0.116108104226,0.115634295381,0.115758981919,0.115634295381,0.115484671536,0.11533504769,0.114861238846,0.11418793154,0.114561991154,0.113315125774,0.112966003467,0.112267758854,0.1124173827,0.112093197701,0.111769012702,0.111444827703,0.111494702318,0.111095705397,0.110447335399,0.110347586168,0.109574529633,0.109399968479,0.109300219249,0.108901222327,0.107754106177,0.107380046563,0.107055861564,0.106656864642,0.106357616951,0.10615811849,0.105709246953,0.105584560415,0.105235438109,0.10563443503,0.105360124647,0.10501100234,0.104587068111,0.104163133881,0.103215516192,0.102691832733,0.102018525427,0.10146990466,0.100696848124,0.0999736662032,0.0994499827434,0.0991257977445,0.0984026158238,0.0983527412086,0.0981033681325,0.0982529919782,0.0989262992836,0.0990509858216,0.0987517381303,0.0984275531314,0.0985273023619,0.0984774277466,0.0974549981347,0.097754245826,0.0974300608271,0.0974051235195,0.0973801862119,0.0975796846727,0.0973801862119,0.0971058758282,0.0967816908293,0.0964325685227,0.0962829446771,0.096158258139,0.0957841985249,0.0958091358325,0.0956345746793,0.0953103896803,0.0948615181434,0.0943877092988,0.0947867062206,0.0943877092988,0.0937892139162,0.0936894646858,0.0935149035325,0.0927667843043,0.0922929754597,0.0919937277684,0.0918690412303,0.0911458593097,0.0908964862336,0.0903977400814,0.090297990851,0.0898989939293,0.0892007493162,0.0890760627782,0.0886770658564,0.0886271912412,0.0885274420108,0.0887269404717,0.0884027554727,0.0878541347054,0.0880286958586,0.0878042600901,0.0876546362445,0.0868317050934,0.0862332097108,0.0853853412521,0.0851858427912,0.0846372220238,0.0840387266412,0.0832407327977,0.0835898551043,0.0827918612608,0.082717049338,0.0827419866456,0.0822931151086,0.0818941181869,0.0815200585727,0.0811709362662,0.0811709362662,0.0810462497282,0.0801734439619,0.0793006381956,0.0788517666586,0.0783779578141,0.0783779578141,0.0780787101228,0.0779540235847,0.0782033966608,0.0778542743543,0.0776049012782,0.0776547758934,0.0772557789717,0.0767819701271,0.0767819701271,0.0770812178184,0.0772308416641,0.0765824716662,0.0762084120521,0.0756597912847,0.0757595405151,0.0755849793619,0.0752109197478,0.0754353555162,0.0750114212869,0.0753106689782,0.075260794363,0.0748867347488,0.0745126751347,0.0749366093641,0.0750363585945,0.0747121735956,0.0741635528282,0.0739141797521,0.0740638035978,0.0733406216771,0.0737396185988,0.0732159351391,0.0731411232162,0.0729914993706,0.0731909978315,0.072966562063,0.0732408724467,0.0728169382173,0.0723680666804,0.0723431293728,0.0722932547575,0.0719191951434,0.0717446339901,0.0719191951434,0.0717446339901,0.0721436309119,0.0720688189891,0.0722683174499,0.0719940070662,0.0720438816815,0.0723680666804,0.0721186936043,0.0717945086054,0.0711960132228,0.0711461386075,0.0710713266847,0.0711212012999,0.0710713266847,0.0710962639923,0.0709466401467,0.0704728313021,0.0706972670706,0.0711960132228,0.071819445913,0.0715451355293,0.0712209505304,0.0713456370684,0.0711212012999,0.0711960132228,0.0710463893771,0.0709965147619,0.0707720789934,0.0707720789934,0.0703232074565,0.0701985209184,0.0701486463032,0.0703481447641,0.0701486463032,0.0701735836108,0.0703980193793,0.0699242105347,0.0700488970728,0.0701237089956,0.0696997747662,0.0693506524597,0.0692010286141,0.0688269689999,0.0691511539988,0.0689765928456,0.0691262166912,0.0691262166912,0.0691511539988,0.069076342076,0.0690015301532,0.0691012793836,0.0687022824619,0.0689267182304,0.0685775959238,0.0688768436152,0.0688269689999,0.0682534109249,0.0684030347706,0.0680289751565,0.0681785990021,0.0684279720782,0.0683531601554,0.0680539124641,0.0680788497717,0.0680539124641,0.067929225926,0.0679791005412,0.0680040378488,0.0674304797738,0.0668569216988,0.0669566709293,0.0671062947749,0.0671811066978,0.0669816082369,0.0670314828521,0.0668818590065,0.0665826113152,0.0668319843912,0.0668319843912,0.0669816082369,0.0671312320825,0.066782109776,0.0670314828521,0.0672060440054,0.0672808559282,0.0671062947749,0.0673057932358,0.0672060440054,0.0673057932358,0.0681287243869,0.0684030347706,0.0684279720782,0.0688519063075,0.068951655538,0.0688020316923,0.068502784001,0.0682534109249,0.0681785990021,0.0685277213086,0.0681287243869,0.0680289751565,0.0681785990021,0.0677796020804,0.067804539388,0.0671561693902,0.0666075486228,0.0666823605456,0.0661337397782,0.0664329874695,0.0664828620847,0.0661088024706,0.0661586770858,0.0659342413173,0.0660589278554,0.0657098055489,0.0654604324728,0.0650863728586,0.0645876267065,0.0647123132445,0.0645377520912,0.0646375013217,0.0641886297847,0.0638395074782,0.0640140686315,0.0641138178619,0.0640390059391,0.063789632863,0.0636150717097,0.0635651970945,0.0632659494032,0.0625677047902,0.0628669524815,0.0623183317141,0.0625677047902,0.0622684570989,0.0622185824836,0.0619941467152,0.0620440213304,0.0617946482543,0.0610964036412,0.0610215917184,0.0606724694119,0.0604480336434,0.0596749771076,0.0596251024923,0.0596251024923,0.0596999144152,0.0598246009532,0.0596251024923,0.0593757294162,0.0591762309554,0.0589019205717,0.0589767324945,0.0589517951869,0.059325854801,0.0598744755684,0.0600989113369,0.0604230963358,0.0600240994141,0.0602235978749,0.0602235978749,0.059899412876,0.0603981590282,0.059899412876,0.0600739740293,0.0604979082586,0.0607223440271,0.0606724694119,0.0606225947967,0.0605477828739,0.0602485351826,0.0605477828739,0.0606724694119,0.0608719678728,0.0606225947967,0.0602734724902,0.0602734724902,0.060472970951,0.0590266071097,0.0580291148054,0.0572061836543,0.0558595690434,0.0546625782782,0.0529668413608,0.0517199759804,0.0505479225228,0.0493010571423,0.0479045679163,0.0466826398434,0.0456602102315,0.0443634702358,0.0432911660087,0.0419445513978,0.040971996401,0.0399745040967,0.038677764101,0.0375306479511,0.036134158725,0.0348124814217,0.0337651145021,0.0325681237369,0.0315207568174,0.0303487033598)
s <- c(0.0306301583224,0.0308273481829,0.0306958882759,0.0307090342666,0.030866786155,0.0306958882759,0.0305249903969,0.0304724064341,0.0302883625643,0.0302752165736,0.030301508555,0.0303278005364,0.0305775743596,0.0307616182294,0.0306170123317,0.0305118444062,0.0307221802573,0.0307747642201,0.0306170123317,0.030603866341,0.0306564503038,0.030735326248,0.0307090342666,0.0307221802573,0.0306564503038,0.0307221802573,0.0308142021922,0.0309588080898,0.0308536401643,0.0307747642201,0.0305907203503,0.0305118444062,0.0304461144527,0.0301569026574,0.0298413988806,0.0297099389737,0.0297362309551,0.0298545448713,0.0298808368527,0.0298151068993,0.0299597127969,0.0300517347318,0.0302357786015,0.0303146545457,0.0301831946387,0.0302620705829,0.030432968462,0.0304724064341,0.0305381363876,0.030603866341,0.0307747642201,0.030866786155,0.0311297059689,0.0312611658758,0.0313663338014,0.0314977937084,0.031642399606,0.0317081295595,0.0318790274386,0.0318658814479,0.0319316114014,0.032076217299,0.0320630713083,0.0318921734293,0.0320236333362,0.0320104873455,0.0320893632897,0.0319184654107,0.0321945312153,0.0322865531502,0.0322339691874,0.0321288012618,0.0321813852246,0.0322996991409,0.0324705970199,0.0325889109362,0.0327466628245,0.0326546408897,0.0327598088152,0.0328255387687,0.0330490206105,0.0333513783966,0.0334302543407,0.0335748602384,0.0338114880709,0.03398238595,0.0340481159035,0.03398238595,0.0340218239221,0.0341401378383,0.0339429479779,0.0339955319407,0.033850926043,0.0339035100058,0.0338640720337,0.0338640720337,0.0337457581175,0.0335091302849,0.0335091302849,0.0332725024524,0.0332330644803,0.0502834144134,0.0505068962553,0.0510984658366,0.0514534075854,0.051860933297,0.0526628387295,0.053635642041,0.0544244014828,0.0552131609245,0.0559361904128,0.0561333802733,0.0567775338174,0.0576846071754,0.0582498847754,0.0590254982265,0.0595381918636,0.0602217833798,0.0608133529612,0.061339192589,0.0620227841052,0.0625354777424,0.0630744633609,0.0634819890725,0.0639683907283,0.0643627704492,0.0645336683282,0.0648228801236,0.064888610077,0.064717712198,0.0646388362538,0.0643233324771,0.0642181645515,0.064152434598,0.0641392886073,0.0640867046446,0.063850076812,0.0638632228027,0.0640341206818,0.0643496244585,0.0642707485143,0.0640735586539,0.0639026607748,0.0637186169051,0.0639420987469,0.0636923249237,0.0635082810539,0.063376821147,0.063376821147,0.0635345730353,0.0636134489795,0.0635871569981,0.0641261426166,0.064152434598,0.0641392886073,0.0643890624306,0.0643890624306,0.0638369308213,0.0637712008678,0.0634951350632,0.0634425511004,0.0637712008678,0.0637712008678,0.0637054709144,0.063981536719,0.0638237848306,0.0638632228027,0.0637186169051,0.0639158067655,0.0636923249237,0.063850076812,0.0640472666725,0.063981536719,0.0639946827097,0.0639289527562,0.0640209746911,0.063850076812,0.0634688430818,0.0636397409609,0.0637054709144,0.0634819890725,0.0632059232679,0.0631270473237,0.0629824414261,0.0630087334075,0.0631796312865,0.0633242371842,0.0631664852958,0.0630350253889,0.0628378355284,0.0631270473237,0.0636134489795,0.0635345730353,0.0636528869516,0.0636923249237,0.0639420987469,0.0642050185608,0.0644022084213,0.0644416463934,0.0644942303561,0.0645599603096,0.0646651282352,0.0643364784678,0.0643233324771,0.064415354412,0.0644679383748,0.0644285004027,0.0648228801236,0.064586252291,0.0646782742259,0.064717712198,0.0649149020584,0.0649806320119,0.0650726539468,0.0650726539468,0.0650989459282,0.0649543400305,0.0652698438072,0.0650332159747,0.0654670336677,0.0656905155095,0.0657825374444,0.0659139973513,0.0661374791932,0.0662952310815,0.0662032091467,0.066360961035,0.0668210707094,0.0667159027838,0.0667684867466,0.0672023044396,0.0676492681233,0.0680042098721,0.0681619617604,0.0683591516209,0.068267129686,0.0684774655371,0.0687666773324,0.0691347650719,0.0690427431371,0.0692925169603,0.069003305165,0.0692925169603,0.0693451009231,0.0692004950254,0.0693188089417,0.0692530789882,0.0692530789882,0.0692399329975,0.0693713929045,0.0690690351185,0.0690558891278,0.0690295971464,0.0690953270999,0.0692662249789,0.0695159988021,0.0696606046998,0.06947656083,0.0700155464486,0.0701207143742,0.0700944223928,0.0699761084765,0.0698972325323,0.0699761084765,0.0697657726254,0.0698052105975,0.0700812764021,0.0700155464486,0.0701075683835,0.0705150940951,0.0703310502253,0.070212736309,0.0702784662625,0.0706071160299,0.0710277877322,0.071080371695,0.0711592476392,0.0711986856113,0.0709883497601,0.0709883497601,0.0708437438625,0.0708174518811,0.0706728459834,0.0709094738159,0.0706991379648,0.0709752037694,0.0707254299462,0.0708568898532,0.0706334080113,0.0711198096671,0.0708831818346,0.0710146417415,0.0711198096671,0.0713038535368,0.0711986856113,0.0714221674531,0.0715010433973,0.0714878974066,0.0715667733508,0.0716325033042,0.0720663209972,0.0721714889228,0.0725001386902,0.072855080439,0.0730391243088,0.0728287884576,0.0727630585041,0.0730654162901,0.0726447445879,0.0728156424669,0.0733151901134,0.0733151901134,0.0735123799738,0.073591255918,0.0742879934249,0.0744063073412,0.0745377672481,0.0749715849411,0.0753791106527,0.075063606876,0.0754185486248,0.0756814684387,0.0760364101875,0.0758260743364,0.0756814684387,0.0759049502805,0.0761152861317,0.0762204540573,0.0768777535921,0.0769171915642,0.0770223594897,0.077272133313,0.0775087611455,0.0776402210525,0.0779820168106,0.0779688708199,0.0782843745966,0.0784684184663,0.0786393163454,0.0785078564384,0.0789022361593,0.0792045939453,0.0793229078616,0.0795332437127,0.079953915415,0.0799276234336,0.0800196453685,0.0803482951359,0.0807689668382,0.0808609887731,0.0810581786335,0.0812159305219,0.0812290765126,0.0811502005684,0.0814525583544,0.0814919963265,0.0818075001032,0.0819915439729,0.082464799638,0.0828328873775,0.0827540114333,0.0829643472845,0.0834244569588,0.083805690689,0.0835296248844,0.0842526543727,0.084804785982,0.084975683861,0.0849625378703,0.0853174796191,0.085278041647,0.0857775892935,0.0859747791539,0.0860668010888,0.0865006187818,0.0871316263352,0.0876443199724,0.0875654440282,0.0876837579445,0.0878940937956,0.0882884735165,0.0885513933304,0.0886828532374,0.0888143131443,0.0891035249397,0.0892218388559,0.0896425105582,0.0895373426326,0.089826554428,0.0904181240093,0.0904838539628,0.0905495839162,0.090865087693,0.0911542994883,0.0911017155255,0.091469803265,0.09250833653,0.0926266504463,0.0929947381858,0.0935863077671,0.0937834976275,0.0942567532926,0.0946642790042,0.0952164106134,0.0955976443436,0.0958211261855,0.0959000021297,0.096360111804,0.0963338198226,0.0962286518971,0.0967676375156,0.0972014552086,0.0969911193574,0.0972934771435,0.0975038129946,0.0975563969574,0.0974117910597,0.0975432509667,0.0978719007341,0.0982925724364,0.0986606601759,0.0988315580549,0.0988841420177,0.0995940255153,0.100014697218,0.0999358212734,0.100133011134,0.10081660265,0.101040084492,0.10176311398,0.102551873422,0.102814793236,0.103327486873,0.103813888529,0.104260852213,0.104707815896,0.105102195617,0.105772641143,0.106009268975,0.10629848077,0.106640276529,0.106968926296,0.107126678184,0.107323868045,0.107810269701,0.107889145645,0.108073189514,0.108217795412,0.108388693291,0.108322963338,0.108848802966,0.109006554854,0.109111722779,0.10949295651,0.109584978445,0.109926774203,0.110268569961,0.110978453458,0.111635752993,0.112161592621,0.112450804416,0.113002936026,0.113712819523,0.113765403486,0.114751352788,0.114843374723,0.115369214351,0.115645280156,0.116039659876,0.116144827802,0.116907295262,0.116959879225,0.117669762723,0.117590886779,0.117866952583,0.118300770276,0.118826609904,0.119260427597,0.119602223355,0.119825705197,0.119838851188,0.120049187039,0.120206938927,0.12044356676,0.120837946481,0.121376932099,0.121810749792,0.122362881401,0.123151640843,0.12328310075,0.123808940378,0.124689721755,0.12517612341,0.125425897234,0.126280386629,0.126806226257,0.126727350313,0.127634423671,0.128357453159,0.128672956936,0.12893587675,0.129803512135,0.130473957661,0.130802607428,0.131183841159,0.132209228433,0.132577316172,0.132472148247,0.133037425847,0.133826185289,0.133918207223,0.13404966713,0.134181127037,0.134930448507,0.135022470442,0.135876959837,0.137007515037,0.137349310795,0.13780942047,0.138085486274,0.13800661033,0.138966267651,0.138992559632,0.139623567186,0.139860195018,0.140175698795,0.140044238888,0.140136260823,0.14064895446,0.140964458237,0.140701538423,0.140898728283,0.141227378051,0.14159546579,0.141529735837,0.142042429474,0.142173889381,0.142305349288,0.142318495278,0.142857480897,0.14348848845,0.14367253232,0.144106350013,0.144645335632,0.144908255446,0.145420949083,0.14536836512,0.145473533045,0.145250051204,0.145434095073,0.145907350738,0.145881058757,0.146143978571,0.146301730459,0.146341168431,0.146446336357,0.146801278106,0.146643526217,0.146814424096,0.146893300041,0.147090489901,0.147498015613,0.148326213027,0.148326213027,0.148523402887,0.148562840859,0.147866103352,0.14820789911,0.148694300766,0.149036096524,0.149548790161,0.149088680487,0.149206994403,0.149088680487,0.149299016338,0.149575082143,0.150022045826,0.150639907389,0.150626761398,0.150784513287,0.151165747017,0.15141552084,0.151494396784,0.151639002682,0.151901922496,0.151836192542,0.151875630515,0.15178360858,0.152151696319,0.152125404338,0.151665294663,0.151389228859,0.151823046552,0.151731024617,0.151441812822,0.151100017063,0.151113163054,0.150705637343,0.15083709725,0.15065305338,0.150666199371,0.150731929324,0.150679345361,0.150784513287,0.151520688766,0.151744170608,0.151678440654,0.151888776505,0.151954506459,0.151901922496,0.152559222031,0.152532930049,0.15198079844,0.152217426273,0.151481250794,0.151586418719,0.151704732636,0.151389228859,0.151192038998,0.151362936877,0.151284060933,0.151244622961,0.151113163054,0.151192038998,0.15065305338,0.150561031445,0.150639907389,0.14990373191,0.150114067761,0.149404184264,0.14915441044,0.148786322701,0.14858913284,0.148339359017,0.148115877175,0.147879249343,0.148155315148,0.147971271278,0.148050147222,0.147616329529,0.14744543165,0.147471723631,0.146972175985,0.146748694143,0.146643526217,0.146748694143,0.146590942255,0.14688015405,0.14688015405,0.14726138778,0.14669611018,0.146222854515,0.145854766776,0.145631284934,0.144908255446,0.144250955911,0.144119496004,0.144158933976,0.143698824301,0.143159838683,0.14235793325,0.142095013437,0.141477151874,0.140675246441,0.140688392432,0.140175698795,0.139584129214,0.139294917418,0.138466720004,0.137927734386,0.137270434851,0.137020661028,0.136941785084,0.137178412916,0.137086390981,0.136350215502,0.135719207949,0.135640332005,0.135048762423,0.135035616433,0.135075054405,0.134772696619,0.134706966665,0.134154835056,0.133799893307,0.133536973493,0.132459002256,0.132117206498,0.131354739038,0.131367885028,0.130552833605,0.13044766568,0.129842950108,0.129474862368,0.128909584768,0.128462621084,0.128133971317,0.127647569661,0.127121730033,0.12667476635,0.126517014461,0.125964882852,0.125807130964,0.124860619634,0.124518823876,0.124058714201,0.123992984248,0.123335684713,0.123059618908,0.122730969141,0.122441757346,0.121902771727,0.121823895783,0.121508392006,0.121639851913,0.120916822425,0.120785362518,0.120548734685,0.120325252843,0.120009749067,0.11987828916,0.119549639392,0.119207843634,0.118143018388,0.117827514611,0.118050996453,0.11761717876,0.116999317197,0.11667066743,0.116512915541,0.115895053979,0.11554011223,0.114856520714,0.114488432974,0.114291243114,0.113910009384,0.114199221179,0.114054615281,0.11364708957,0.112832038147,0.112976644044,0.112082716677,0.111819796863,0.111136205347,0.111109913365,0.110741825626,0.11062351171,0.110215985998,0.110202840007,0.11005823411,0.109677000379,0.109138014761,0.108585883152,0.108730489049,0.108467569235,0.108309817347,0.107599933849,0.107152970166,0.106679714501,0.10628533478,0.105772641143,0.105496575338,0.105167925571,0.104878713775,0.104392312119,0.104734107878,0.104523772026,0.104273998203,0.104011078389,0.103695574613,0.103301194892,0.102959399134,0.102380975543,0.102354683562,0.102065471766,0.101539632138,0.101105814445,0.100987500529,0.100461660901,0.100448514911,0.100290763022,0.100277617032,0.100553682836,0.100987500529,0.100579974818,0.100330200994,0.100093573162,0.0997649233944,0.0991996457944,0.0990944778689,0.0989893099433,0.098870996027,0.0985817842317,0.0986343681945,0.0985160542782,0.0982136964922,0.0980559446038,0.0978719007341,0.097398645069,0.0971225792644,0.0966756155807,0.0970305573295,0.0968990974226,0.0965310096831,0.0962812358598,0.0957028122692,0.0956896662785,0.0953610165111,0.0950455127344,0.0948746148553,0.0947825929205,0.0940595634322,0.0938755195624,0.0936651837113,0.0934285558787,0.0928501322881,0.0926266504463,0.0921402487905,0.0920219348742,0.0916801391161,0.0910491315627,0.0907862117488,0.090602167879,0.0902735181116,0.089997452307,0.0899843063163,0.0896293645675,0.0893138607908,0.0893270067815,0.0888011671536,0.0887485831909,0.0882884735165,0.0877626338886,0.0867241006236,0.0867241006236,0.0862508449586,0.0854226475447,0.084975683861,0.0851860197122,0.0849888298517,0.0847916399913,0.0845813041401,0.0842263623913,0.0838714206425,0.0835953548379,0.0834244569588,0.0830169312473,0.0828723253496,0.0826356975171,0.0821361498706,0.0818469380753,0.0816891861869,0.0814788503358,0.0812816604753,0.0811107625963,0.0811896385405,0.0809398647172,0.08099244868,0.0808872807545,0.0805849229684,0.0800459373499,0.080256273201,0.0802825651824,0.0802168352289,0.0799144774429,0.0794412217779,0.079217739936,0.0790731340384,0.078783922243,0.0784947104477,0.0785472944105,0.0783895425222,0.078481564457,0.0784552724756,0.0782449366245,0.0778242649222,0.078008308792,0.0780608927547,0.0778505569036,0.0776270750618,0.0774956151548,0.0776796590246,0.0774298852013,0.0777716809594,0.0772852793037,0.0769829215176,0.0771669653874,0.0772852793037,0.0768514616107,0.0767331476944,0.0763782059456,0.0764307899084,0.0763782059456,0.0764833738712,0.0759969722154,0.0754842785783,0.0756420304666,0.0753133806992,0.0753396726806,0.0751950667829,0.075234504755,0.0746429351737,0.0746166431923,0.0746823731458,0.0745640592295,0.0744851832853,0.0739067596947,0.0736175478994,0.0734860879924,0.0734072120482,0.0734992339831,0.0734072120482,0.0730785622808,0.0727499125134,0.0727104745413,0.0730785622808,0.0732626061506,0.0734992339831,0.0732494601599,0.073288898132,0.0732757521413,0.0731705842157,0.0730522702994,0.0728156424669,0.0726578905786,0.0728156424669,0.07268418256,0.0723029488298,0.0723292408111,0.0723423868018,0.071948007081,0.0717902551926,0.0718428391554,0.0716193573135,0.0718034011833,0.0721583429321,0.0717639632112,0.0715010433973,0.0714878974066,0.0714747514159,0.0716982332577,0.0711461016485,0.0713564374996,0.0710540797136,0.0710277877322,0.0711066636764,0.0709226198066,0.0710540797136,0.0706991379648,0.0707648679183,0.070778013909,0.0709883497601,0.0710146417415,0.0706071160299,0.0703179042346,0.0698315025788,0.070212736309,0.0706859919741,0.0706071160299,0.0705150940951,0.0706202620206,0.0705150940951,0.0704362181509,0.0704888021137,0.0704888021137,0.0699761084765,0.069608020737,0.0691610570533,0.0691873490347,0.0690164511557,0.0687535313418,0.068871845258,0.0688061153045,0.0687140933697,0.0687798233231,0.0687403853511,0.0688192612952,0.0690164511557,0.0684774655371,0.0685037575185,0.0685826334627,0.0684511735557,0.0683197136488,0.0683722976116,0.0680173558628,0.0677807280302,0.0681882537418,0.0685037575185,0.0686089254441,0.068569487472,0.0686483634162,0.0687535313418,0.068569487472,0.0685037575185,0.0684774655371,0.0686352174255,0.0684511735557,0.0684774655371,0.0684906115278,0.0682934216674,0.0682013997325,0.0678070200116,0.0675966841605,0.067662414114,0.0674783702442,0.0678070200116,0.0674257862814,0.0668868006629,0.0671365744861,0.0669130926443,0.0668342167001,0.0665055669327,0.0665712968862,0.0663346690536,0.0660454572583,0.0660717492397,0.0659928732955,0.0662557931095,0.0661243332025,0.0662295011281,0.0664003990071,0.066360961035,0.066360961035,0.0664003990071,0.0664135449978,0.066360961035,0.0660717492397,0.0656773695188,0.0659534353234,0.0656379315467,0.0660060192862,0.065927143342,0.065756245463,0.0655327636212,0.0657825374444,0.0657036615002,0.0653881577235,0.0648491721049,0.0645073763468,0.0645599603096,0.0640472666725,0.0641261426166,0.0639946827097,0.0639158067655,0.0640867046446,0.0640604126632,0.0642181645515,0.0637974928492,0.0636528869516,0.0636660329423,0.0634951350632,0.0637186169051,0.0640209746911,0.0640472666725,0.0643101864864,0.064152434598,0.0646125442724,0.0646914202166,0.0642313105422,0.0645073763468,0.064112996626,0.0644285004027,0.0645336683282,0.0647571501701,0.0647308581887,0.0648228801236,0.0647308581887,0.064586252291,0.0647834421515,0.0647045662073,0.0647045662073,0.0645731063003,0.0643101864864,0.0641918725701,0.0641787265794,0.0633636751563,0.0627721055749,0.0624040178354,0.061602112403,0.0608790829147,0.0598405496496,0.0591569581334,0.0585653885521,0.057921235008,0.0570273076406,0.0563963000872,0.0557258545617,0.0553314748408,0.0548845111571,0.0541351896874,0.0536093500596,0.0528337366085,0.0521501450923,0.0515191375389,0.0506777941343,0.0498890346925,0.0492054431763,0.0486007276043,0.0481274719392,0.0473781504695,0.0314320637549,0.0313794797921,0.0311822899317,0.0311954359224,0.0312480198852,0.0312348738945,0.031169143941,0.03134004182,0.0316555455967,0.0318395894665,0.0318527354572,0.0316818375781,0.0318921734293,0.0317475675316,0.0316555455967,0.0316555455967,0.031642399606,0.0314583557363,0.0313794797921,0.0313663338014,0.0313926257828,0.031471501727,0.0313926257828,0.0313268958293,0.0313137498386,0.0311954359224,0.03134004182,0.0312743118665,0.0315240856898,0.0316686915874,0.0316555455967,0.0316161076246,0.031602961634,0.0314452097456,0.0315109396991,0.0314977937084,0.0314977937084,0.031602961634,0.0318395894665,0.0317212755502,0.031773859513,0.0318132974851,0.0317870055037,0.0318790274386,0.0319579033828,0.0318658814479,0.0316161076246,0.0317607135223,0.0315766696526,0.0318001514944,0.0318658814479,0.0318790274386,0.0318790274386,0.0318658814479,0.0315109396991,0.031471501727,0.0313268958293,0.0312348738945,0.0310639760154,0.0308010562015,0.0308799321457,0.0308273481829,0.0304986984155,0.0304855524248,0.030603866341,0.0305512823782,0.0304986984155,0.0305775743596,0.030603866341,0.0306301583224,0.0305118444062,0.0304986984155,0.0304855524248,0.0305249903969,0.0304855524248,0.0305775743596,0.0303278005364,0.0303409465271,0.0301831946387,0.029999150769,0.0301437566667,0.030130610676,0.0303540925178,0.0305644283689,0.0305644283689,0.0308010562015,0.0307879102108,0.0307616182294,0.0303935304899,0.0304855524248,0.0305118444062,0.0305907203503,0.0307484722387,0.0308010562015,0.0307747642201,0.0308536401643,0.0308404941736,0.0308142021922,0.0309719540805,0.0308930781364,0.0306564503038)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("17648-22-FLP-CD25+-PU1WTHA-aH3K27Ac.50mers.unique.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=202"),bty="n")
dev.off()