# R script for Peak Model
#  -- generated by MACS
p <- c(0.0388507616391,0.0410395369427,0.0425716796552,0.0443226998981,0.0456359650803,0.0471681077928,0.0494663218616,0.0509984645741,0.0519834134607,0.0536249949385,0.0555948927117,0.0577836680153,0.0596441270234,0.0608479534404,0.0621612186225,0.0632556062743,0.0643499939261,0.0663198916994,0.0679614731771,0.0694936158896,0.0703691260111,0.0715729524281,0.0731050951406,0.0750749929138,0.0766071356264,0.076388258096,0.076388258096,0.0767165743915,0.0785770333996,0.0782487171041,0.0785770333996,0.0795619822862,0.0796714210514,0.0797808598166,0.0797808598166,0.0793431047559,0.079999737347,0.0817507575899,0.0817507575899,0.081860196355,0.0815318800595,0.0819696351202,0.0824073901809,0.0824073901809,0.0819696351202,0.0816413188247,0.0813130025291,0.0812035637639,0.0808752474684,0.0796714210514,0.0796714210514,0.0789053496952,0.0797808598166,0.0794525435211,0.079999737347,0.0801091761121,0.0794525435211,0.0794525435211,0.079999737347,0.0802186148773,0.0795619822862,0.0785770333996,0.0790147884603,0.0792336659907,0.0793431047559,0.0802186148773,0.0802186148773,0.0797808598166,0.0797808598166,0.0792336659907,0.080656369938,0.0809846862336,0.0816413188247,0.0808752474684,0.0809846862336,0.080656369938,0.0816413188247,0.0817507575899,0.0807658087032,0.0812035637639,0.0803280536425,0.0802186148773,0.0809846862336,0.0816413188247,0.0810941249988,0.0805469311729,0.0798902985818,0.0779204008085,0.0783581558693,0.0774826457478,0.0769354519219,0.0767165743915,0.0766071356264,0.0760599418005,0.0747466766183,0.0745277990879,0.0737617277317,0.0741994827924,0.0744183603228,0.0748561153835,0.0752938704442,0.0755127479746,0.0744183603228,0.0745277990879,0.0746372378531,0.0741994827924,0.0743089215576,0.073980605262,0.0745277990879,0.0740900440272,0.0740900440272,0.0740900440272,0.0728862176102,0.0731050951406,0.0736522889665,0.0729956563754,0.0734334114361,0.0737617277317,0.0736522889665,0.0748561153835,0.0741994827924,0.0740900440272,0.0728862176102,0.0728862176102,0.073323972671,0.0738711664969,0.0735428502013,0.0745277990879,0.0736522889665,0.0725579013147,0.0724484625495,0.0717918299584,0.06971249342,0.0689464220637,0.06971249342,0.0701502484807,0.0704785647763,0.070916319837,0.0705880035414,0.0708068810718,0.0706974423066,0.0712446361325,0.0711351973673,0.0713540748977,0.0723390237843,0.0723390237843,0.073323972671,0.0724484625495,0.0723390237843,0.0724484625495,0.0723390237843,0.0719012687236,0.0716823911932,0.0711351973673,0.0705880035414,0.0710257586022,0.0704785647763,0.070916319837,0.06971249342,0.0696030546548,0.0689464220637,0.0686181057682,0.0687275445334,0.0682897894726,0.0670859630557,0.067304840586,0.0666482079949,0.0664293304646,0.0659915754039,0.0647877489869,0.0646783102217,0.0657726978735,0.0657726978735,0.0662104529342,0.0657726978735,0.0656632591083,0.0646783102217,0.0638028001002,0.064240555161,0.0647877489869,0.065444381578,0.0659915754039,0.0668670855253,0.0668670855253,0.0670859630557,0.0667576467601,0.0670859630557,0.0670859630557,0.0669765242905,0.0666482079949,0.0668670855253,0.0662104529342,0.0665387692298,0.0671954018208,0.0668670855253,0.0665387692298,0.0663198916994,0.0676331568816,0.0687275445334,0.0687275445334,0.0690558608289,0.0692747383593,0.0690558608289,0.0705880035414,0.0704785647763,0.0703691260111,0.0699313709504,0.0693841771245,0.0702596872459,0.0699313709504,0.0702596872459,0.0702596872459,0.0698219321852,0.0705880035414,0.0706974423066,0.0698219321852,0.0710257586022,0.0702596872459,0.0706974423066,0.0711351973673,0.0703691260111,0.0696030546548,0.06971249342,0.0689464220637,0.0691652995941,0.0687275445334,0.06971249342,0.0698219321852,0.06971249342,0.0703691260111,0.0698219321852,0.0694936158896,0.0699313709504,0.0696030546548,0.0690558608289,0.0693841771245,0.0687275445334,0.0688369832986,0.068508667003,0.0686181057682,0.0686181057682,0.0701502484807,0.070916319837,0.0696030546548,0.0701502484807,0.0711351973673,0.070916319837,0.0706974423066,0.0699313709504,0.06971249342,0.0698219321852,0.0699313709504,0.0704785647763,0.0698219321852,0.0702596872459,0.0706974423066,0.0713540748977,0.0720107074888,0.0716823911932,0.072120146254,0.0720107074888,0.0729956563754,0.0737617277317,0.0734334114361,0.0736522889665,0.075184431679,0.0748561153835,0.0749655541487,0.0741994827924,0.0743089215576,0.075184431679,0.0749655541487,0.0758410642701,0.0766071356264,0.0762788193308,0.0761693805656,0.0755127479746,0.0754033092094,0.0758410642701,0.0748561153835,0.0749655541487,0.0745277990879,0.0737617277317,0.0734334114361,0.0736522889665,0.0740900440272,0.0741994827924,0.0746372378531,0.0750749929138,0.0754033092094,0.0749655541487,0.0743089215576,0.0736522889665,0.0748561153835,0.0748561153835,0.0744183603228,0.0749655541487,0.0755127479746,0.0761693805656,0.0771543294523,0.0764976968612,0.0769354519219,0.0767165743915,0.0762788193308,0.076388258096,0.0757316255049,0.0762788193308,0.0766071356264,0.0770448906871,0.0771543294523,0.0783581558693,0.0780298395737,0.0777015232782,0.0777015232782,0.0781392783389,0.077592084513,0.0780298395737,0.0793431047559,0.0803280536425,0.0795619822862,0.0801091761121,0.0805469311729,0.0810941249988,0.0812035637639,0.0822979514158,0.0828451452417,0.0837206553631,0.0831734615372,0.0838300941283,0.0837206553631,0.0832829003024,0.0840489716586,0.0845961654845,0.085471675606,0.085471675606,0.085471675606,0.0861283081971,0.0863471857274,0.0862377469623,0.0868943795533,0.0883170835007,0.088535961031,0.0893020323873,0.0896303486828,0.0906152975695,0.0914908076909,0.092147440282,0.0916002464561,0.0916002464561,0.0908341750998,0.0913813689257,0.090943613865,0.0917096852213,0.0914908076909,0.0919285627516,0.0922568790472,0.0924757565775,0.092147440282,0.0920380015168,0.0922568790472,0.092147440282,0.0922568790472,0.0929135116383,0.0931323891686,0.0935701442293,0.0940078992901,0.0940078992901,0.0924757565775,0.0925851953427,0.0937890217597,0.0941173380553,0.0936795829945,0.0924757565775,0.093351266699,0.0928040728731,0.0932418279338,0.093351266699,0.0941173380553,0.0934607054642,0.094555093116,0.0953211644722,0.0951022869419,0.095758919533,0.0959777970633,0.0958683582981,0.0958683582981,0.096415552124,0.096415552124,0.0970721847151,0.096415552124,0.0968533071848,0.0977288173062,0.0981665723669,0.0989326437232,0.0990420824884,0.0992609600187,0.0987137661928,0.0999175926098,0.100574225201,0.101121419027,0.101449735322,0.101230857792,0.102106367913,0.103529071861,0.103857388156,0.104076265687,0.104514020747,0.105717847164,0.106921673581,0.106155602225,0.105498969634,0.105389530869,0.10604616346,0.106483918521,0.106374479755,0.105389530869,0.105717847164,0.106702796051,0.107687744938,0.107906622468,0.107578306172,0.108563255059,0.10921988765,0.108672693824,0.108672693824,0.108125499998,0.108563255059,0.109438765181,0.110314275302,0.110423714067,0.109767081476,0.109767081476,0.10921988765,0.110095397772,0.110314275302,0.110642591598,0.109767081476,0.110204836537,0.111189785423,0.11217473431,0.111736979249,0.111299224189,0.110204836537,0.109876520241,0.109876520241,0.108891571355,0.108782132589,0.108125499998,0.107031112347,0.106593357286,0.106593357286,0.106483918521,0.106155602225,0.104951775808,0.104623459513,0.105061214573,0.103638510626,0.102544122974,0.101230857792,0.102215806679,0.10331019433,0.104076265687,0.103747949391,0.10331019433,0.103966826921,0.105389530869,0.104951775808,0.104076265687,0.102763000505,0.101996929148,0.101996929148,0.101121419027,0.101011980262,0.100355347671,0.101121419027,0.101559174088,0.101121419027,0.0999175926098,0.0991515212536,0.100245908905,0.101230857792,0.101340296557,0.101340296557,0.0998081538446,0.100355347671,0.100027031375,0.100683663966,0.0999175926098,0.098823204958,0.0992609600187,0.0992609600187,0.0987137661928,0.0984948886625,0.0978382560714,0.0967438684196,0.0972910622455,0.0971816234803,0.0967438684196,0.0967438684196,0.0977288173062,0.097619378541,0.0981665723669,0.0981665723669,0.0989326437232,0.098823204958,0.0984948886625,0.10013647014,0.101011980262,0.101449735322,0.102106367913,0.102106367913,0.102544122974,0.102106367913,0.102106367913,0.101230857792,0.100793102731,0.100574225201,0.102215806679,0.101668612853,0.1030913168,0.1030913168,0.103419633096,0.104185704452,0.105061214573,0.104842337043,0.105280092104,0.105936724695,0.107578306172,0.109110448885,0.108891571355,0.110970907893,0.112284173075,0.11491070344,0.117427795039,0.117865550099,0.120273202933,0.122790294533,0.12421299848,0.125526263662,0.126292335018,0.128152794026,0.130232130565,0.133734171051,0.137126772771,0.140519374492,0.143911976212,0.146866822872,0.149931108297,0.153870903844,0.156059679147,0.159999474694,0.163282637649,0.165471412953,0.168207382082,0.170833912447,0.173460442811,0.174773707993,0.177400238358,0.180136207487,0.182762737851,0.186264778337,0.188781869936,0.19097064524,0.192174471657,0.193816053135,0.194582124491,0.196004828438,0.196442583499,0.198850236333,0.199725746454,0.20027294028,0.201148450402,0.201805082993,0.20300890941,0.204322174592,0.204978807183,0.204212735827,0.203556103236,0.202242838054,0.202133399288,0.20005406275,0.199069113863,0.196114267204,0.193487736839,0.192940543013,0.190423451414,0.187468604754,0.186374217102,0.185279829451,0.183528809208,0.181121156374,0.178494626009,0.175102024289,0.171381106273,0.167879065787,0.16350151518,0.16054666852,0.157482383095,0.153761465079,0.151025495949,0.147304577933,0.143364782386,0.140081619431,0.137126772771,0.134719119937,0.131326518217,0.128371671557,0.124322437245,0.120929835524,0.117537233804,0.114582387144,0.111518101719,0.108672693824,0.107031112347,0.105170653338,0.103529071861,0.102106367913,0.101559174088,0.0993703987839,0.0977288173062,0.0965249908892,0.0958683582981,0.0947739706463,0.0931323891686,0.0916002464561,0.0911624913954,0.0901775425088,0.0891925936221,0.0895209099177,0.0880982059703,0.0877698896748,0.0871132570837,0.0876604509096,0.0891925936221,0.0890831548569,0.088535961031,0.0886453997962,0.0879887672051,0.0865660632578,0.0856905531364,0.0853622368408,0.0852527980756,0.0848150430149,0.0851433593104,0.0860188694319,0.0860188694319,0.0859094306667,0.0853622368408,0.0855811143712,0.0855811143712,0.085471675606,0.0859094306667,0.0857999919015,0.085471675606,0.0844867267194,0.0851433593104,0.0856905531364,0.0859094306667,0.0868943795533,0.0863471857274,0.0850339205453,0.0845961654845,0.0853622368408,0.0862377469623,0.086675502023,0.0875510121444,0.0875510121444,0.0874415733792,0.08787932844,0.0882076447355,0.088535961031,0.0879887672051,0.0884265222659,0.0888642773266,0.0884265222659,0.0870038183185,0.0876604509096,0.08787932844,0.0875510121444,0.0873321346141,0.0871132570837,0.088535961031,0.0893020323873,0.0889737160918,0.0879887672051,0.0883170835007,0.0874415733792,0.0877698896748,0.0886453997962,0.0891925936221,0.089739787448,0.0899586649784,0.0901775425088,0.0894114711525,0.0891925936221,0.0902869812739,0.0902869812739,0.0910530526302,0.0907247363347,0.0899586649784,0.0896303486828,0.0896303486828,0.0900681037436,0.089739787448,0.0893020323873,0.0891925936221,0.0890831548569,0.0891925936221,0.088535961031,0.0879887672051,0.0877698896748,0.0868943795533,0.086675502023,0.0852527980756,0.0847056042497,0.0843772879542,0.0836112165979,0.0824073901809,0.0827357064765,0.0816413188247,0.0807658087032,0.0803280536425,0.0792336659907,0.0783581558693,0.0774826457478,0.0777015232782,0.0778109620434,0.0778109620434,0.0773732069826,0.0784675946344,0.0784675946344,0.0772637682175,0.0756221867397,0.0747466766183,0.0748561153835,0.0747466766183,0.0748561153835,0.0745277990879,0.0744183603228,0.0743089215576,0.0734334114361,0.073323972671,0.0734334114361,0.0735428502013,0.0729956563754,0.0723390237843,0.0720107074888,0.0719012687236,0.072776778845,0.0729956563754,0.0720107074888,0.0716823911932,0.0705880035414,0.0700408097155,0.0706974423066,0.06971249342,0.0692747383593,0.0687275445334,0.0681803507075,0.0696030546548,0.0692747383593,0.0699313709504,0.0692747383593,0.0696030546548,0.0690558608289,0.0686181057682,0.0687275445334,0.0692747383593,0.0682897894726,0.0680709119423,0.0675237181164,0.0674142793512,0.067304840586,0.0665387692298,0.0668670855253,0.0659915754039,0.0652255040476,0.0643499939261,0.0640216776306,0.063036728744,0.063036728744,0.0627084124484,0.0623800961529,0.0629272899788,0.0640216776306,0.0643499939261,0.0651160652824,0.0658821366387,0.0656632591083,0.0659915754039,0.0663198916994,0.0659915754039,0.0659915754039,0.0662104529342,0.0663198916994,0.0655538203431,0.0663198916994,0.065444381578,0.0638028001002,0.0646783102217,0.0653349428128,0.0646783102217,0.0653349428128,0.0658821366387,0.0655538203431,0.066101014169,0.0656632591083,0.0656632591083,0.065444381578,0.0646783102217,0.0648971877521,0.0639122388654,0.0645688714565,0.0656632591083,0.065444381578,0.065444381578,0.0651160652824,0.0653349428128,0.0666482079949,0.0668670855253,0.0683992282378,0.0681803507075,0.0687275445334,0.0690558608289,0.0690558608289,0.06971249342,0.0705880035414,0.0712446361325,0.0713540748977,0.0710257586022,0.070916319837,0.0713540748977,0.072120146254,0.0714635136629,0.0701502484807,0.0702596872459,0.0696030546548,0.0690558608289,0.0692747383593,0.0690558608289,0.0694936158896,0.0696030546548,0.0694936158896,0.06971249342,0.0701502484807,0.0705880035414,0.0691652995941,0.0696030546548,0.06971249342,0.0688369832986,0.0679614731771,0.068508667003,0.0686181057682,0.0687275445334,0.0682897894726,0.0678520344119,0.068508667003,0.0689464220637,0.0687275445334,0.0689464220637,0.0681803507075,0.0689464220637,0.0683992282378,0.0677425956467,0.0686181057682,0.0686181057682,0.0692747383593,0.0682897894726,0.0668670855253,0.0666482079949,0.0656632591083,0.0658821366387,0.0651160652824,0.0646783102217,0.065444381578,0.0657726978735,0.0651160652824,0.0647877489869,0.0644594326913,0.0646783102217,0.0644594326913,0.0640216776306,0.0631461675092,0.0632556062743,0.0629272899788,0.0622706573877,0.0627084124484,0.0620517798574,0.0611762697359,0.0609573922056,0.0607385146752,0.0613951472663,0.0613951472663,0.0609573922056,0.0608479534404,0.0608479534404,0.0617234635618,0.0622706573877,0.0639122388654,0.0641311163958,0.0652255040476,0.0650066265172,0.0653349428128,0.0647877489869,0.0652255040476,0.0663198916994,0.0665387692298,0.066101014169,0.0669765242905,0.0663198916994,0.067304840586,0.0674142793512,0.0671954018208,0.0669765242905,0.0675237181164,0.0676331568816,0.0674142793512,0.0680709119423,0.0683992282378,0.0689464220637,0.0692747383593,0.0693841771245,0.0699313709504,0.0710257586022,0.0696030546548,0.0694936158896,0.0690558608289,0.0691652995941,0.0696030546548,0.0698219321852,0.0717918299584,0.0725579013147,0.0736522889665,0.0736522889665,0.0749655541487,0.0752938704442,0.0750749929138,0.0756221867397,0.0770448906871,0.0766071356264,0.076388258096,0.0755127479746,0.0761693805656,0.0760599418005,0.0748561153835,0.0746372378531,0.0740900440272,0.0724484625495,0.0714635136629,0.0711351973673,0.0714635136629,0.0719012687236,0.0714635136629,0.0713540748977,0.072120146254,0.0714635136629,0.0711351973673,0.0708068810718,0.0698219321852,0.0706974423066,0.0702596872459,0.0699313709504,0.0700408097155,0.0700408097155,0.0699313709504,0.0699313709504,0.0699313709504,0.0702596872459,0.0702596872459,0.0702596872459,0.070916319837,0.0717918299584,0.072120146254,0.0728862176102,0.0749655541487,0.0752938704442,0.0770448906871,0.0771543294523,0.077592084513,0.0769354519219,0.0754033092094,0.0750749929138,0.0750749929138,0.0748561153835,0.0740900440272,0.0735428502013,0.073980605262,0.0736522889665,0.0726673400799,0.0732145339058,0.0736522889665,0.0737617277317,0.0726673400799,0.072776778845,0.0732145339058,0.073980605262,0.0747466766183,0.0752938704442,0.0746372378531,0.0746372378531,0.0738711664969,0.0744183603228,0.0748561153835,0.0755127479746,0.0752938704442,0.0754033092094,0.0760599418005,0.077592084513,0.0778109620434,0.0774826457478,0.0773732069826,0.0780298395737,0.0781392783389,0.0782487171041,0.0773732069826,0.0767165743915,0.076388258096,0.0766071356264,0.076388258096,0.0759505030353,0.0754033092094,0.0746372378531,0.0745277990879,0.0743089215576,0.0735428502013,0.0736522889665,0.0723390237843,0.0725579013147,0.0728862176102,0.0738711664969,0.0734334114361,0.0729956563754,0.0723390237843,0.0717918299584,0.0714635136629,0.0722295850191,0.0728862176102,0.072776778845,0.0729956563754,0.0738711664969,0.073980605262,0.0749655541487,0.0757316255049,0.0759505030353,0.0760599418005,0.0768260131567,0.0762788193308,0.0760599418005,0.0764976968612,0.0764976968612,0.0769354519219,0.0771543294523,0.077592084513,0.077592084513,0.0771543294523,0.0770448906871,0.076388258096,0.0748561153835,0.075184431679,0.0748561153835,0.0750749929138,0.075184431679,0.0755127479746,0.0755127479746,0.0760599418005,0.0764976968612,0.0766071356264,0.0761693805656,0.0759505030353,0.075184431679,0.0750749929138,0.0749655541487,0.0732145339058,0.0720107074888,0.0708068810718,0.0701502484807,0.0699313709504,0.0692747383593,0.0680709119423,0.0667576467601,0.0669765242905,0.0671954018208,0.0676331568816,0.0680709119423,0.0686181057682,0.0677425956467,0.0659915754039,0.0659915754039,0.0657726978735,0.0648971877521,0.0640216776306,0.0640216776306,0.0632556062743,0.0629272899788,0.0631461675092,0.0621612186225,0.0621612186225,0.0629272899788,0.0619423410922,0.0617234635618,0.0609573922056,0.059425249493,0.0580025455457,0.0577836680153,0.0577836680153,0.0574553517198,0.0574553517198,0.0587686169019,0.0585497393716,0.0584403006064,0.0588780556671,0.0580025455457,0.0574553517198,0.0570175966591,0.0562515253028,0.056360964068,0.0571270354242,0.0566892803635,0.0573459129546,0.0592063719627,0.0592063719627,0.0595346882582,0.0610668309707,0.0609573922056,0.0615045860315,0.0620517798574,0.0633650450395,0.0634744838047,0.0641311163958,0.0647877489869,0.0643499939261,0.0644594326913,0.0639122388654,0.0639122388654,0.0641311163958,0.0644594326913,0.0656632591083,0.0655538203431,0.0656632591083,0.0662104529342,0.0662104529342,0.0662104529342,0.067304840586,0.0674142793512,0.0676331568816,0.0676331568816,0.0680709119423,0.0680709119423,0.0690558608289,0.0690558608289,0.0690558608289,0.0704785647763,0.0705880035414,0.0708068810718,0.0705880035414,0.070916319837,0.0708068810718,0.0698219321852,0.0698219321852,0.0701502484807,0.06971249342,0.0704785647763,0.0711351973673,0.0715729524281,0.0719012687236,0.0719012687236,0.0723390237843,0.073323972671,0.0731050951406,0.0719012687236,0.0716823911932,0.0713540748977,0.0711351973673,0.0714635136629,0.0705880035414,0.0701502484807,0.0678520344119,0.0667576467601,0.0651160652824,0.0638028001002,0.0629272899788,0.0612857085011,0.0603007596145,0.0592063719627,0.057564790485,0.056360964068,0.0545005050599,0.0535155561733,0.0519834134607,0.0501229544527,0.0490285668009,0.0470586690276,0.0451982100196,0.0438849448374,0.0421339245945,0.040601781882,0.0388507616391,0.0372091801614,0.0356770374489,0.034582649797,0.0335977009104)
m <- c(0.0440111568837,0.0454523282678,0.0462283436285,0.047891233687,0.0501084204318,0.0517713104904,0.0532124818745,0.0543210752469,0.0559839653055,0.0570925586778,0.0589771674109,0.0598640421088,0.0610834948184,0.0625246662025,0.0637441189122,0.0656287276452,0.0669590396921,0.0679567737272,0.0691762264368,0.0702848198092,0.0713934131816,0.0727237252285,0.0737214592636,0.075273489985,0.0772689580553,0.0767146613691,0.0762712240201,0.0747191932988,0.0737214592636,0.0732780219147,0.0728345845657,0.0726128658912,0.072502006554,0.0721694285423,0.0715042725189,0.0723911472168,0.0713934131816,0.0702848198092,0.0707282571582,0.070173960472,0.0698413824603,0.0712825538444,0.0707282571582,0.070173960472,0.069730523123,0.0688436484251,0.0682893517389,0.0684002110762,0.0689545077624,0.0705065384837,0.0713934131816,0.0711716945071,0.0718368505306,0.0717259911933,0.0712825538444,0.0712825538444,0.0715042725189,0.0726128658912,0.0728345845657,0.0736105999264,0.0736105999264,0.0740540372753,0.0747191932988,0.0756060679967,0.0764929426946,0.0760495053456,0.0757169273339,0.0769363800435,0.0772689580553,0.0777123954042,0.0772689580553,0.0773798173925,0.0781558327532,0.0789318481138,0.0783775514276,0.0780449734159,0.0783775514276,0.0783775514276,0.0801513008235,0.0810381755214,0.0811490348586,0.0828119249172,0.0834770809406,0.0834770809406,0.0838096589523,0.0834770809406,0.0835879402779,0.0838096589523,0.0831445029289,0.0835879402779,0.0841422369641,0.0834770809406,0.0839205182896,0.0844748149758,0.085029111662,0.0855834083482,0.0864702830461,0.086913720395,0.0859159863599,0.0848073929875,0.0836987996151,0.0848073929875,0.0852508303364,0.0855834083482,0.0859159863599,0.0862485643716,0.0865811423833,0.0862485643716,0.086913720395,0.0872462984067,0.0870245797323,0.0874680170812,0.0880223137674,0.087357157744,0.0870245797323,0.0866920017205,0.0874680170812,0.086913720395,0.0879114544302,0.0879114544302,0.0882440324419,0.0883548917791,0.0879114544302,0.0870245797323,0.0880223137674,0.0889091884653,0.0885766104536,0.0889091884653,0.0884657511164,0.0878005950929,0.0886874697908,0.0876897357557,0.0878005950929,0.0871354390695,0.0866920017205,0.0865811423833,0.0866920017205,0.0861377050343,0.0861377050343,0.0858051270226,0.0859159863599,0.0852508303364,0.0853616896737,0.0842530963013,0.0836987996151,0.0834770809406,0.0827010655799,0.0823684875682,0.081814190882,0.0824793469055,0.0827010655799,0.081814190882,0.0813707535331,0.0812598941958,0.0803730194979,0.0793752854628,0.0793752854628,0.0789318481138,0.0777123954042,0.0768255207063,0.0763820833574,0.0768255207063,0.0762712240201,0.0762712240201,0.0758277866712,0.0764929426946,0.0764929426946,0.0763820833574,0.0751626306477,0.075273489985,0.0750517713105,0.0746083339615,0.0749409119733,0.0744974746243,0.0738323186009,0.0746083339615,0.0751626306477,0.0740540372753,0.0738323186009,0.0737214592636,0.0727237252285,0.0722802878795,0.072502006554,0.0722802878795,0.0728345845657,0.0726128658912,0.072058569205,0.0717259911933,0.072058569205,0.0721694285423,0.0718368505306,0.0722802878795,0.0728345845657,0.0740540372753,0.0749409119733,0.0756060679967,0.0758277866712,0.0754952086594,0.0763820833574,0.0762712240201,0.0763820833574,0.0757169273339,0.0761603646829,0.0750517713105,0.0747191932988,0.0749409119733,0.0738323186009,0.0737214592636,0.0732780219147,0.072945443903,0.0727237252285,0.0713934131816,0.0710608351699,0.0699522417975,0.0696196637858,0.0681784924017,0.0679567737272,0.06784591439,0.0686219297507,0.0696196637858,0.0703956791465,0.0710608351699,0.0710608351699,0.0712825538444,0.0717259911933,0.0709499758327,0.0700631011348,0.0706173978209,0.0703956791465,0.0709499758327,0.0708391164954,0.0715042725189,0.0718368505306,0.0721694285423,0.0726128658912,0.0722802878795,0.0726128658912,0.0732780219147,0.0727237252285,0.0726128658912,0.0712825538444,0.0710608351699,0.0707282571582,0.0707282571582,0.0700631011348,0.0691762264368,0.0693979451113,0.069730523123,0.0696196637858,0.0703956791465,0.0709499758327,0.0719477098678,0.0716151318561,0.072058569205,0.0722802878795,0.0722802878795,0.0721694285423,0.0723911472168,0.072945443903,0.072945443903,0.0727237252285,0.0732780219147,0.0730563032402,0.0736105999264,0.0743866152871,0.0759386460084,0.0762712240201,0.0761603646829,0.0743866152871,0.072945443903,0.072502006554,0.0716151318561,0.0713934131816,0.0721694285423,0.0708391164954,0.0706173978209,0.0712825538444,0.0713934131816,0.0707282571582,0.0703956791465,0.070173960472,0.069730523123,0.0684002110762,0.0687327890879,0.0684002110762,0.0687327890879,0.0696196637858,0.0691762264368,0.069730523123,0.0691762264368,0.0699522417975,0.0703956791465,0.0707282571582,0.0699522417975,0.0695088044486,0.0695088044486,0.0686219297507,0.0685110704134,0.0688436484251,0.0681784924017,0.0672916177038,0.0671807583666,0.0677350550527,0.0682893517389,0.0681784924017,0.0681784924017,0.0688436484251,0.0690653670996,0.0696196637858,0.0703956791465,0.0716151318561,0.0723911472168,0.0728345845657,0.0736105999264,0.0734997405892,0.0731671625774,0.0731671625774,0.0731671625774,0.0741648966126,0.0747191932988,0.075273489985,0.0757169273339,0.0754952086594,0.0744974746243,0.0756060679967,0.074830052636,0.075273489985,0.0751626306477,0.0750517713105,0.0747191932988,0.0750517713105,0.0744974746243,0.0749409119733,0.0741648966126,0.0741648966126,0.0736105999264,0.0727237252285,0.0730563032402,0.0731671625774,0.0734997405892,0.0739431779381,0.0731671625774,0.0727237252285,0.0734997405892,0.0744974746243,0.074830052636,0.0753843493222,0.0754952086594,0.0759386460084,0.0754952086594,0.0766038020318,0.0768255207063,0.0760495053456,0.0754952086594,0.0753843493222,0.0762712240201,0.0761603646829,0.0766038020318,0.0761603646829,0.0753843493222,0.0743866152871,0.0740540372753,0.0734997405892,0.0733888812519,0.0736105999264,0.0733888812519,0.0727237252285,0.072945443903,0.0736105999264,0.0728345845657,0.0723911472168,0.0722802878795,0.072502006554,0.0728345845657,0.0723911472168,0.0730563032402,0.0713934131816,0.0709499758327,0.0718368505306,0.072058569205,0.0728345845657,0.0733888812519,0.0738323186009,0.0742757559498,0.0738323186009,0.0750517713105,0.0749409119733,0.074830052636,0.0753843493222,0.0751626306477,0.074830052636,0.0761603646829,0.0763820833574,0.0763820833574,0.0762712240201,0.0766038020318,0.0767146613691,0.0774906767297,0.077158098718,0.0783775514276,0.0774906767297,0.077158098718,0.0770472393808,0.077158098718,0.077601536067,0.0767146613691,0.0769363800435,0.0759386460084,0.0761603646829,0.0768255207063,0.0779341140787,0.0772689580553,0.0782666920904,0.0778232547415,0.077601536067,0.077601536067,0.0780449734159,0.0780449734159,0.0780449734159,0.0783775514276,0.0784884107649,0.0787101294394,0.0783775514276,0.0790427074511,0.0793752854628,0.0795970041373,0.0812598941958,0.0825902062427,0.0828119249172,0.0824793469055,0.0820359095565,0.082257628231,0.0829227842544,0.0829227842544,0.0834770809406,0.0824793469055,0.0823684875682,0.0829227842544,0.0829227842544,0.0839205182896,0.0838096589523,0.0829227842544,0.0825902062427,0.0821467688938,0.0815924722076,0.0814816128703,0.0811490348586,0.0808164568469,0.0821467688938,0.081814190882,0.0827010655799,0.0830336435917,0.0835879402779,0.0846965336502,0.0854725490109,0.0855834083482,0.0858051270226,0.0864702830461,0.0856942676854,0.0851399709992,0.0853616896737,0.0858051270226,0.0854725490109,0.0853616896737,0.085029111662,0.0854725490109,0.0859159863599,0.0861377050343,0.0863594237088,0.0872462984067,0.0875788764184,0.0884657511164,0.0890200478025,0.0889091884653,0.0880223137674,0.0889091884653,0.0882440324419,0.0882440324419,0.0886874697908,0.089685203826,0.0895743444887,0.0894634851515,0.0893526258143,0.0893526258143,0.089241766477,0.089685203826,0.0909046565356,0.0914589532218,0.0907937971984,0.0907937971984,0.0912372345473,0.092013249908,0.0923458279197,0.0922349685825,0.0934544212921,0.0932327026176,0.093897858641,0.0930109839431,0.092013249908,0.0909046565356,0.0902395005122,0.0899069225005,0.0889091884653,0.087357157744,0.0874680170812,0.0871354390695,0.0870245797323,0.0866920017205,0.0872462984067,0.0879114544302,0.0870245797323,0.0868028610578,0.0866920017205,0.0874680170812,0.0880223137674,0.0882440324419,0.0876897357557,0.0874680170812,0.0864702830461,0.0865811423833,0.0864702830461,0.085029111662,0.0853616896737,0.0848073929875,0.0858051270226,0.0848073929875,0.085029111662,0.0848073929875,0.0846965336502,0.0839205182896,0.0840313776268,0.0848073929875,0.0842530963013,0.0840313776268,0.0842530963013,0.0843639556385,0.0833662216034,0.0828119249172,0.0840313776268,0.0833662216034,0.0827010655799,0.0810381755214,0.0804838788352,0.0801513008235,0.0793752854628,0.0795970041373,0.0794861448,0.0798187228117,0.0785992701021,0.0787101294394,0.0795970041373,0.0797078634745,0.0802621601607,0.0812598941958,0.0814816128703,0.0831445029289,0.0828119249172,0.0831445029289,0.0838096589523,0.0836987996151,0.0833662216034,0.0833662216034,0.0831445029289,0.0832553622661,0.0829227842544,0.0828119249172,0.0831445029289,0.0833662216034,0.0832553622661,0.0827010655799,0.0829227842544,0.0839205182896,0.0832553622661,0.0846965336502,0.0848073929875,0.0852508303364,0.0864702830461,0.0875788764184,0.0889091884653,0.0897960631632,0.0910155158728,0.0913480938846,0.0929001246059,0.0946738740017,0.0954498893624,0.0981105134561,0.0996625441774,0.101658012248,0.10276660562,0.105538089051,0.108198713145,0.112633086634,0.116513163438,0.120725818253,0.123719020358,0.127488237824,0.13048143993,0.133142064023,0.137354718839,0.14212167034,0.145558309794,0.149105808586,0.153207604064,0.156644243518,0.157974555565,0.159859164298,0.163960959776,0.166399865195,0.169282207963,0.173384003441,0.17704236157,0.180146423013,0.183028765781,0.184580796502,0.187019701921,0.187684857945,0.190012904027,0.192008372097,0.193560402818,0.195555870889,0.197773057634,0.198881651006,0.201874853111,0.202207431123,0.202983446484,0.204535477205,0.204646336542,0.203759461844,0.20231829046,0.201985712449,0.200987978413,0.199990244378,0.199325088355,0.198438213657,0.197662198296,0.194225558842,0.193560402818,0.192451809446,0.191010638062,0.189791185352,0.187795717282,0.183804781141,0.18025728235,0.176820642895,0.173494862778,0.169725645312,0.166399865195,0.164736975136,0.161743773031,0.157641977553,0.154094478762,0.150657839307,0.14733205919,0.144006279073,0.14212167034,0.139571905583,0.136135266129,0.134028938721,0.130703158604,0.126157925777,0.123275583009,0.120614958916,0.118397772171,0.116734882112,0.114185117356,0.113519961332,0.112522227297,0.110970196576,0.109972462541,0.107422697784,0.105205511039,0.106092385737,0.103653480318,0.102434027608,0.102101449597,0.101103715562,0.100992856224,0.100881996887,0.100438559538,0.101214574899,0.101547152911,0.101658012248,0.100992856224,0.101103715562,0.101436293573,0.102655746283,0.101990590259,0.101325434236,0.10077113755,0.0993299661657,0.0985539508051,0.0991082474913,0.0983322321306,0.0988865288168,0.0988865288168,0.0985539508051,0.0983322321306,0.0977779354444,0.0981105134561,0.0986648101423,0.0988865288168,0.0991082474913,0.0992191068285,0.0995516848402,0.100105981526,0.0996625441774,0.100105981526,0.0999951221892,0.0997734035147,0.101325434236,0.101879730922,0.102988324295,0.103653480318,0.103320902306,0.103210042969,0.102988324295,0.102212308934,0.101214574899,0.100992856224,0.103653480318,0.103875198993,0.102988324295,0.103099183632,0.10276660562,0.102212308934,0.101768871585,0.101325434236,0.100327700201,0.101103715562,0.100438559538,0.0995516848402,0.0995516848402,0.0996625441774,0.0999951221892,0.0995516848402,0.0999951221892,0.100992856224,0.101436293573,0.101658012248,0.102544886946,0.103653480318,0.104207777004,0.105427229714,0.105870667063,0.107090119772,0.108531291157,0.109639884529,0.109529025192,0.108753009831,0.108309572482,0.108087853808,0.107866135133,0.107311838447,0.106203245075,0.104983792365,0.10398605833,0.102655746283,0.101990590259,0.102323168271,0.100327700201,0.0996625441774,0.0982213727933,0.0974453574327,0.0976670761072,0.0981105134561,0.0979996541189,0.0974453574327,0.0974453574327,0.0974453574327,0.0953390300251,0.0953390300251,0.0941195773155,0.09434129599,0.0942304366528,0.0944521553272,0.0937869993038,0.0927892652687,0.0936761399666,0.0929001246059,0.0924566872569,0.0931218432804,0.0930109839431,0.0927892652687,0.0926784059314,0.0930109839431,0.0919023905707,0.0905720785239,0.0893526258143,0.0890200478025,0.089241766477,0.0891309071398,0.0883548917791,0.0875788764184,0.0866920017205,0.0864702830461,0.0856942676854,0.084585674313,0.084585674313,0.085029111662,0.0852508303364,0.085029111662,0.0859159863599,0.0855834083482,0.0874680170812,0.0875788764184,0.0885766104536,0.0882440324419,0.0884657511164,0.0885766104536,0.0891309071398,0.0890200478025,0.0889091884653,0.0881331731046,0.0874680170812,0.086913720395,0.0865811423833,0.0863594237088,0.086913720395,0.0878005950929,0.0872462984067,0.087357157744,0.0870245797323,0.0870245797323,0.0874680170812,0.0862485643716,0.0865811423833,0.0872462984067,0.0866920017205,0.0864702830461,0.0870245797323,0.0864702830461,0.0865811423833,0.0865811423833,0.0861377050343,0.0851399709992,0.0859159863599,0.0865811423833,0.0880223137674,0.0884657511164,0.0878005950929,0.086913720395,0.0870245797323,0.0871354390695,0.0863594237088,0.0856942676854,0.0848073929875,0.0838096589523,0.0843639556385,0.0834770809406,0.0829227842544,0.0817033315448,0.0803730194979,0.0805947381724,0.0784884107649,0.0787101294394,0.0783775514276,0.0785992701021,0.0787101294394,0.0772689580553,0.077601536067,0.0772689580553,0.0768255207063,0.0769363800435,0.0772689580553,0.077158098718,0.0768255207063,0.0760495053456,0.0759386460084,0.0753843493222,0.0756060679967,0.0753843493222,0.0742757559498,0.0733888812519,0.0728345845657,0.0734997405892,0.0731671625774,0.0726128658912,0.072058569205,0.072502006554,0.072058569205,0.0710608351699,0.0702848198092,0.0699522417975,0.0696196637858,0.0705065384837,0.070173960472,0.0699522417975,0.0688436484251,0.0693979451113,0.0696196637858,0.0703956791465,0.0708391164954,0.0719477098678,0.0723911472168,0.0726128658912,0.0732780219147,0.0742757559498,0.0732780219147,0.0740540372753,0.072945443903,0.0742757559498,0.0739431779381,0.0743866152871,0.0757169273339,0.0759386460084,0.0764929426946,0.0772689580553,0.0772689580553,0.0772689580553,0.0774906767297,0.0780449734159,0.0788209887766,0.0788209887766,0.0788209887766,0.0790427074511,0.0789318481138,0.0791535667883,0.0793752854628,0.0795970041373,0.0792644261256,0.0783775514276,0.0794861448,0.0793752854628,0.0798187228117,0.0793752854628,0.0792644261256,0.0788209887766,0.0792644261256,0.0777123954042,0.0777123954042,0.0783775514276,0.0784884107649,0.0780449734159,0.0779341140787,0.0773798173925,0.077158098718,0.0767146613691,0.077158098718,0.0753843493222,0.074830052636,0.0738323186009,0.0728345845657,0.0713934131816,0.0712825538444,0.0703956791465,0.069730523123,0.0693979451113,0.0691762264368,0.0687327890879,0.0692870857741,0.0682893517389,0.0686219297507,0.0679567737272,0.0671807583666,0.0662938836686,0.0656287276452,0.0646309936101,0.0647418529473,0.0657395869825,0.065074430959,0.0648527122845,0.0640766969239,0.0635224002377,0.0629681035515,0.0629681035515,0.0628572442143,0.0625246662025,0.0618595101791,0.060861776144,0.0606400574695,0.0607509168067,0.0610834948184,0.0609726354812,0.0595314640971,0.0593097454226,0.0590880267481,0.0595314640971,0.060418338795,0.0614160728302,0.0609726354812,0.0614160728302,0.0616377915046,0.0621920881908,0.0620812288536,0.0620812288536,0.0617486508419,0.062746384877,0.0620812288536,0.0628572442143,0.0629681035515,0.0623029475281,0.0621920881908,0.0625246662025,0.0621920881908,0.0621920881908,0.0624138068653,0.0624138068653,0.0624138068653,0.0630789628887,0.063189822226,0.0633006815632,0.0633006815632,0.0629681035515,0.0623029475281,0.0626355255398,0.0619703695163,0.0624138068653,0.0618595101791,0.0614160728302,0.0616377915046,0.060418338795,0.0614160728302,0.0620812288536,0.0623029475281,0.0624138068653,0.062746384877,0.0641875562611,0.0641875562611,0.0648527122845,0.0656287276452,0.0660721649942,0.0664047430059,0.0671807583666,0.0691762264368,0.0703956791465,0.0709499758327,0.0715042725189,0.0708391164954,0.0709499758327,0.0709499758327,0.0705065384837,0.0696196637858,0.0689545077624,0.0689545077624,0.0689545077624,0.0689545077624,0.0680676330645,0.0681784924017,0.0682893517389,0.0682893517389,0.0691762264368,0.0692870857741,0.0691762264368,0.0699522417975,0.0699522417975,0.0699522417975,0.0705065384837,0.0708391164954,0.0699522417975,0.0705065384837,0.0711716945071,0.0710608351699,0.072058569205,0.0733888812519,0.0746083339615,0.0761603646829,0.0770472393808,0.0774906767297,0.0774906767297,0.0777123954042,0.0790427074511,0.0783775514276,0.0780449734159,0.0791535667883,0.0790427074511,0.0789318481138,0.0779341140787,0.0779341140787,0.0783775514276,0.0787101294394,0.0789318481138,0.0782666920904,0.0784884107649,0.0773798173925,0.0769363800435,0.0774906767297,0.0773798173925,0.0768255207063,0.0767146613691,0.0764929426946,0.0764929426946,0.0769363800435,0.0770472393808,0.077601536067,0.0772689580553,0.077158098718,0.0773798173925,0.0768255207063,0.0768255207063,0.0769363800435,0.0772689580553,0.0779341140787,0.0783775514276,0.0778232547415,0.077601536067,0.0774906767297,0.0772689580553,0.0770472393808,0.0777123954042,0.0777123954042,0.0782666920904,0.0797078634745,0.0789318481138,0.077601536067,0.0764929426946,0.0757169273339,0.0751626306477,0.0749409119733,0.0754952086594,0.075273489985,0.0742757559498,0.0737214592636,0.0737214592636,0.072502006554,0.072058569205,0.0721694285423,0.0723911472168,0.0722802878795,0.0708391164954,0.0695088044486,0.0682893517389,0.0679567737272,0.0668481803548,0.0667373210176,0.0659613056569,0.0657395869825,0.0647418529473,0.0646309936101,0.0645201342728,0.0645201342728,0.0642984155984,0.0639658375866,0.0637441189122,0.0630789628887,0.0633006815632,0.0628572442143,0.0626355255398,0.0628572442143,0.0623029475281,0.0623029475281,0.0618595101791,0.0606400574695,0.0605291981322,0.0598640421088,0.0600857607833,0.059974901446,0.059974901446,0.0594206047599,0.0585337300619,0.0578685740385,0.0570925586778,0.0554296686193,0.0549862312703,0.055318809282,0.0554296686193,0.0560948246427,0.0560948246427,0.0554296686193,0.0545427939214,0.0549862312703,0.0549862312703,0.0549862312703,0.055318809282,0.0559839653055,0.0560948246427,0.0565382619917,0.0562056839799,0.0564274026544,0.0567599806661,0.0575359960268,0.0583120113875,0.0587554487364,0.0584228707247,0.0583120113875,0.0582011520502,0.0574251366896,0.0566491213289,0.055762246631,0.0543210752469,0.0532124818745,0.0522147478394,0.0514387324787,0.0504409984435,0.0492215457339,0.047891233687,0.0471152183264,0.0456740469423,0.0445654535699,0.0434568601975,0.0419048294762,0.0406853767665,0.0400202207431,0.038579049359,0.0379138933356,0.0369161593004,0.035807565928,0.0345881132184,0.033922957195,0.0328143638226,0.0317057704502,0.0300428803916)
s <- c(0.0384563573445,0.0376738151893,0.0371707523752,0.0369471689022,0.0367235854293,0.0366117936928,0.0365558978246,0.0363882102199,0.0360528350105,0.0365000019564,0.0359969391423,0.0354379804599,0.0356615639329,0.0353820845917,0.035214396987,0.035941043274,0.0356615639329,0.0353820845917,0.0351585011188,0.0347113341729,0.0344318548317,0.0344877507,0.0347672300411,0.0355497721964,0.0359969391423,0.0358851474058,0.056063555838,0.0571255773344,0.0576845360168,0.0585788699085,0.0593614120638,0.0607029129014,0.0619885178707,0.0631623311036,0.0636653939177,0.0647274154142,0.0660689162518,0.0676340005623,0.0690313972681,0.0694226683458,0.0699257311599,0.0710995443928,0.0718261906798,0.0730558997809,0.0736707543315,0.074509192355,0.0753476303785,0.0763537560067,0.0768568188208,0.0776952568443,0.0786454866043,0.0785336948678,0.0794280287595,0.0800428833101,0.0810490089383,0.0817197593571,0.0822228221712,0.0827258849853,0.0829494684582,0.0828376767218,0.08289357259,0.0827817808535,0.0827817808535,0.0838996982182,0.0841791775594,0.0838996982182,0.0839555940864,0.0844586569005,0.0849617197146,0.0852411990558,0.0854647825287,0.085520678397,0.0848499279782,0.0842350734276,0.0835084271406,0.0834525312723,0.0836761147453,0.0834525312723,0.0840673858229,0.0840673858229,0.0845145527688,0.0844027610323,0.0844027610323,0.084570448637,0.0847381362417,0.0850735114511,0.0850176155829,0.0841791775594,0.0842350734276,0.0841791775594,0.0846263445052,0.0847940321099,0.085297094924,0.0850735114511,0.0852411990558,0.0850176155829,0.085520678397,0.0852411990558,0.0860796370793,0.0861355329475,0.0860237412111,0.0860237412111,0.0863032205522,0.0860237412111,0.0859678453428,0.0856883660017,0.085297094924,0.0849058238464,0.0850735114511,0.0853529907923,0.0851294073193,0.084570448637,0.0842350734276,0.0830612601947,0.0833407395359,0.0825581973806,0.0823346139077,0.0816638634889,0.0813284882795,0.0809372172018,0.0798751957054,0.0795957163642,0.0789249659454,0.0794839246278,0.0797075081007,0.0794839246278,0.0794839246278,0.079539820496,0.0785336948678,0.0780865279219,0.0781424237902,0.0776952568443,0.077136298162,0.0765214436114,0.0765773394796,0.0765773394796,0.0762978601385,0.0762978601385,0.075459422115,0.0759065890608,0.076186068402,0.0757947973244,0.0754035262467,0.0756271097197,0.075459422115,0.0758506931926,0.0756830055879,0.0754035262467,0.0744532964868,0.0748445675644,0.0753476303785,0.0750681510373,0.0747886716962,0.075235838642,0.0742856088821,0.0735030667268,0.073558962595,0.0731117956492,0.0723292534939,0.0718261906798,0.0719379824163,0.0719938782845,0.0723292534939,0.0726087328351,0.0722733576257,0.0726087328351,0.072832316308,0.0737266501997,0.0741179212774,0.0745650882232,0.0751799427738,0.0750122551691,0.0759624849291,0.075459422115,0.075459422115,0.0751799427738,0.0753476303785,0.0745650882232,0.0742856088821,0.0741179212774,0.0732794832539,0.0734471708586,0.0729441080445,0.0730000039127,0.0722733576257,0.0715467113386,0.0710436485245,0.0703170022375,0.070205210501,0.0692549807411,0.068528334454,0.0685842303223,0.0686401261905,0.0690313972681,0.0691990848728,0.0689196055317,0.0688637096634,0.0695344600822,0.0697580435552,0.0695903559505,0.0689196055317,0.0691431890046,0.068528334454,0.0683606468493,0.068528334454,0.0691431890046,0.0696462518187,0.0700934187646,0.0707641691834,0.0705964815787,0.0708759609198,0.0710436485245,0.0709318567881,0.0708759609198,0.0701493146328,0.0698698352916,0.0698139394234,0.069478564214,0.0693108766093,0.0691990848728,0.0691431890046,0.0691431890046,0.0689755013999,0.0700375228963,0.0708759609198,0.0713790237339,0.0713790237339,0.0717143989433,0.0717143989433,0.0724969410986,0.0723851493621,0.0724410452304,0.0724969410986,0.0722174617574,0.0725528369668,0.0726646287033,0.0727205245715,0.0730000039127,0.0731676915174,0.0743415047503,0.0745650882232,0.0740620254091,0.073782546068,0.0726646287033,0.0726646287033,0.0724410452304,0.0719379824163,0.0719379824163,0.0713231278657,0.0708200650516,0.0712672319975,0.0710995443928,0.0712672319975,0.071155440261,0.0709877526563,0.0710995443928,0.0701493146328,0.0701493146328,0.070205210501,0.070205210501,0.0703728981057,0.0703170022375,0.0702611063693,0.0700375228963,0.0702611063693,0.0705405857104,0.0707082733151,0.0710995443928,0.0712672319975,0.0705964815787,0.070428793974,0.0708759609198,0.0709318567881,0.0704846898422,0.0696462518187,0.069478564214,0.0698139394234,0.0701493146328,0.0703728981057,0.0700375228963,0.0705964815787,0.0709318567881,0.0715467113386,0.0722733576257,0.0727205245715,0.0733353791221,0.0735030667268,0.0743974006185,0.0747327758279,0.0743974006185,0.074509192355,0.0752917345103,0.0756271097197,0.0759624849291,0.0758506931926,0.0761301725338,0.0764655477432,0.0758506931926,0.0768568188208,0.0768568188208,0.076912714689,0.0768009229526,0.0764096518749,0.076186068402,0.0765773394796,0.0757947973244,0.0760742766655,0.075459422115,0.0750681510373,0.0746209840915,0.0742856088821,0.0746768799597,0.0747886716962,0.0751799427738,0.0756271097197,0.0754035262467,0.0749563593009,0.0750122551691,0.0751799427738,0.0759624849291,0.0762419642702,0.0760742766655,0.0765773394796,0.0766332353479,0.0775275692396,0.0781424237902,0.0774157775031,0.0773598816349,0.0771921940302,0.0774157775031,0.0774157775031,0.0773039857667,0.0773598816349,0.077136298162,0.0768568188208,0.0767450270843,0.0770804022937,0.0768568188208,0.0768009229526,0.0766891312161,0.0765773394796,0.0764096518749,0.0769686105573,0.0772480898984,0.0775275692396,0.0770804022937,0.0774716733714,0.077862944449,0.0779188403172,0.0783101113949,0.0780306320537,0.0780865279219,0.0789808618137,0.078813174209,0.079539820496,0.0797634039689,0.0797634039689,0.0803782585195,0.0804341543877,0.0814961758842,0.0814402800159,0.0813843841477,0.0819992386983,0.0819992386983,0.0817756552253,0.0827817808535,0.083620218877,0.0837320106135,0.0840673858229,0.0844027610323,0.0849617197146,0.0858001577381,0.0859678453428,0.0863032205522,0.0858560536064,0.085297094924,0.085520678397,0.0853529907923,0.0859678453428,0.0854088866605,0.0857442618699,0.0854088866605,0.0856324701334,0.0858001577381,0.0863032205522,0.0860796370793,0.0865268040252,0.0863591164205,0.0865826998934,0.0866944916299,0.0871416585757,0.0873652420487,0.0873652420487,0.0867503874981,0.0868621792346,0.0875888255216,0.0875888255216,0.0877006172581,0.0872534503122,0.0878124089945,0.0883713676769,0.0892657015686,0.0894333891733,0.0896569726462,0.0890980139639,0.0897687643827,0.0904954106697,0.0903836189333,0.0909984734838,0.0906072024062,0.0904954106697,0.0907748900109,0.0910543693521,0.0915574321662,0.0918369115073,0.0910543693521,0.0911102652203,0.0913338486932,0.091277952825,0.0916133280344,0.0915015362979,0.0914456404297,0.0918369115073,0.0922840784532,0.0930666206085,0.0935137875543,0.0939609545002,0.0944081214461,0.0952465594696,0.0960291016248,0.096308580966,0.0967557479119,0.0965880603072,0.0969234355166,0.0976500818036,0.0974823941989,0.0969793313848,0.0968675396483,0.097035227253,0.0974823941989,0.0976500818036,0.097258810726,0.0975382900671,0.0984885198271,0.0991592702459,0.0997182289282,0.0998300206647,0.100277187611,0.100165395874,0.100333083479,0.0999977082694,0.0997182289282,0.100165395874,0.101115625634,0.101506896712,0.101506896712,0.101115625634,0.101115625634,0.100780250425,0.101451000843,0.102177647131,0.102624814076,0.101842271921,0.102065855394,0.102792501681,0.103686835573,0.103630939705,0.103351460363,0.103407356232,0.10312787689,0.1034632521,0.10251302234,0.101954063658,0.101059729766,0.100165395874,0.0997741247965,0.0992710619824,0.0984326239589,0.0983208322224,0.0975382900671,0.0973147065942,0.0973706024624,0.0969234355166,0.0966998520436,0.095581934679,0.0959732057566,0.0964762685707,0.097258810726,0.0973706024624,0.097258810726,0.0973147065942,0.0979295611448,0.0972029148577,0.0968116437801,0.0960849974931,0.0949670801284,0.0951347677331,0.0944081214461,0.0948552883919,0.0940168503684,0.0945199131825,0.094631704919,0.0943522255778,0.0933460999496,0.0930107247402,0.0939609545002,0.0941845379731,0.0941286421049,0.0942404338414,0.0935137875543,0.0932902040814,0.0928430371355,0.0937932668955,0.0930666206085,0.0921722867167,0.0915574321662,0.091277952825,0.0908307858791,0.090327723065,0.0901041395921,0.0894892850415,0.0899364519874,0.0892657015686,0.0890980139639,0.0895451809098,0.0901041395921,0.090327723065,0.0911102652203,0.0912220569568,0.0924517660579,0.092228182585,0.092228182585,0.0934019958179,0.0937932668955,0.0938491627637,0.0941845379731,0.0940727462367,0.0943522255778,0.0939609545002,0.093905058632,0.0936255792908,0.0935137875543,0.0933460999496,0.093905058632,0.0937373710273,0.0949670801284,0.094631704919,0.0955260388107,0.0959732057566,0.0966439561754,0.0971470189895,0.0979295611448,0.098935686773,0.100221291742,0.101618688448,0.101674584316,0.103519147968,0.105084232279,0.106817004194,0.109444110001,0.110450235629,0.112686070358,0.11453063401,0.116654677003,0.118666928259,0.121294034066,0.124200619214,0.127386683704,0.130684539929,0.134317771365,0.137559731722,0.140634004475,0.14426723591,0.148235842555,0.151980865726,0.154887450875,0.158967849256,0.162377497218,0.164166165001,0.166513791467,0.169923439429,0.172494649368,0.174618692361,0.178028340323,0.181270300681,0.184176885829,0.187418846186,0.189486993311,0.191834619777,0.192784849537,0.194797100793,0.196194497499,0.197703685941,0.198933395042,0.201281021508,0.202287147136,0.20407581492,0.20469066947,0.205417315757,0.206814712463,0.20754135875,0.207429567014,0.206311649649,0.205808586835,0.204634773602,0.20407581492,0.202678418214,0.201728188454,0.199827728934,0.196753456181,0.196138601631,0.194294037979,0.19205820325,0.190884390017,0.189319305706,0.186412720558,0.183394343674,0.180320070921,0.176910422958,0.173109503919,0.169643960088,0.166569687335,0.163551310451,0.159918079016,0.156228951712,0.153098783091,0.149521447524,0.145832320221,0.143205214414,0.140410421002,0.137447939986,0.134653146574,0.131467082085,0.127107204363,0.123921139873,0.12084686712,0.118219761313,0.115816238979,0.113077341436,0.111903528203,0.110450235629,0.10882925545,0.107599546349,0.106034462039,0.103798627309,0.103407356232,0.10156279258,0.10061256282,0.0998859165329,0.0985444156953,0.0977059776718,0.0974264983307,0.0966998520436,0.0965880603072,0.0969234355166,0.0962526850978,0.0957496222837,0.0954701429425,0.0959173098884,0.0973147065942,0.0969234355166,0.096308580966,0.0960849974931,0.0950229759966,0.093905058632,0.0937373710273,0.0931784123449,0.0934019958179,0.0931784123449,0.0931784123449,0.0935137875543,0.0932343082132,0.0933460999496,0.0933460999496,0.0935696834226,0.093681475159,0.093681475159,0.0940727462367,0.0942963297096,0.093905058632,0.0936255792908,0.093905058632,0.0940727462367,0.0949670801284,0.0957496222837,0.0960291016248,0.0956937264154,0.0953024553378,0.0956378305472,0.0959732057566,0.0958055181519,0.0957496222837,0.0956378305472,0.0969234355166,0.097258810726,0.0969793313848,0.0972029148577,0.0967557479119,0.0966998520436,0.0966998520436,0.0962526850978,0.0950229759966,0.0957496222837,0.0955260388107,0.0949111842602,0.0947993925237,0.0947434966555,0.0956378305472,0.0958055181519,0.0958614140201,0.0958614140201,0.0962526850978,0.0959173098884,0.0965321644389,0.0975382900671,0.0980972487495,0.0989915826412,0.0993269578506,0.100053604138,0.100388979347,0.100836146293,0.101339209107,0.100947938029,0.101115625634,0.100836146293,0.100333083479,0.0998859165329,0.0993269578506,0.098935686773,0.0982649363542,0.0973706024624,0.0969793313848,0.0970911231213,0.0961408933613,0.0954701429425,0.0944640173143,0.0939609545002,0.0936255792908,0.0937373710273,0.092954828872,0.0923958701897,0.092228182585,0.0918369115073,0.0901600354603,0.090327723065,0.0891539098321,0.0888185346227,0.0885390552816,0.0880918883357,0.0873093461804,0.0863591164205,0.0869180751028,0.0865826998934,0.0863591164205,0.0864709081569,0.086973970971,0.0868621792346,0.0861914288158,0.085520678397,0.0845145527688,0.0838996982182,0.0832289477994,0.0831171560629,0.0830612601947,0.0829494684582,0.0825023015124,0.0816638634889,0.0811608006748,0.0811049048065,0.0807695295971,0.0799310915736,0.0795957163642,0.0796516122325,0.0797075081007,0.0800428833101,0.0806018419924,0.0799310915736,0.0807136337289,0.0802105709148,0.0804341543877,0.0806018419924,0.0802105709148,0.0800428833101,0.0800428833101,0.0797075081007,0.0803782585195,0.0798192998372,0.0798192998372,0.0792044452866,0.0792044452866,0.078813174209,0.0788690700772,0.0793721328913,0.0793721328913,0.0789249659454,0.0786454866043,0.0783660072631,0.0785336948678,0.077862944449,0.0776393609761,0.0781424237902,0.0774157775031,0.076912714689,0.0767450270843,0.0762978601385,0.0758506931926,0.0758506931926,0.075459422115,0.0747886716962,0.075459422115,0.0763537560067,0.0772480898984,0.077862944449,0.0779188403172,0.0773598816349,0.0775834651078,0.0778070485808,0.0772480898984,0.076912714689,0.0765773394796,0.0761301725338,0.0760183807973,0.0759624849291,0.075235838642,0.073782546068,0.073558962595,0.0740061295409,0.0726087328351,0.0730558997809,0.0731676915174,0.0731117956492,0.0734471708586,0.0724969410986,0.0726646287033,0.0723851493621,0.0717702948116,0.0719379824163,0.0716026072069,0.071882086548,0.0722733576257,0.0717702948116,0.0717143989433,0.0712672319975,0.0714908154704,0.0720497741527,0.0716026072069,0.0719379824163,0.0715467113386,0.0721615658892,0.0721615658892,0.071882086548,0.0719379824163,0.0726087328351,0.0727205245715,0.0722733576257,0.0717143989433,0.0714908154704,0.0715467113386,0.0723851493621,0.071882086548,0.0710995443928,0.0705964815787,0.0705405857104,0.0703728981057,0.0708759609198,0.0709877526563,0.0717702948116,0.0720497741527,0.072105670021,0.0725528369668,0.0732794832539,0.0730000039127,0.0726646287033,0.0723292534939,0.0730558997809,0.0724410452304,0.0722174617574,0.0731676915174,0.0733353791221,0.0736707543315,0.0738384419362,0.0736148584633,0.0739502336727,0.0742856088821,0.0744532964868,0.0749563593009,0.0745650882232,0.0749563593009,0.0747886716962,0.0743974006185,0.0749563593009,0.0750681510373,0.0755153179832,0.0748445675644,0.0736707543315,0.0741179212774,0.073558962595,0.0738943378044,0.0732794832539,0.0730000039127,0.0731676915174,0.073558962595,0.0724410452304,0.0722733576257,0.0724410452304,0.0726087328351,0.0722733576257,0.0719938782845,0.0712672319975,0.0712113361292,0.0708200650516,0.0707082733151,0.0700375228963,0.0694226683458,0.0684724385858,0.0678575840352,0.0670191460117,0.0672986253529,0.066851458407,0.0662924997247,0.0660689162518,0.0659571245153,0.0661807079882,0.0667396666706,0.06707504188,0.0673545212211,0.0675781046941,0.06707504188,0.0667955625388,0.0661807079882,0.0659012286471,0.0665160831976,0.0671309377482,0.0665719790659,0.0669073542753,0.0661807079882,0.0664042914612,0.0661807079882,0.0660689162518,0.0659012286471,0.0660130203835,0.0657335410424,0.0651186864918,0.0653422699647,0.0655658534377,0.0660130203835,0.06612481212,0.0654540617012,0.0656217493059,0.0660689162518,0.0655658534377,0.0659571245153,0.0662366038565,0.0660689162518,0.0665160831976,0.0667396666706,0.0680252716399,0.0683606468493,0.0689196055317,0.068751917927,0.0699257311599,0.0697580435552,0.0700375228963,0.0703728981057,0.0707641691834,0.0704846898422,0.0705405857104,0.0699257311599,0.0702611063693,0.0703170022375,0.0697021476869,0.0695903559505,0.0696462518187,0.0688637096634,0.0684165427176,0.0682488551129,0.0682488551129,0.0681370633764,0.0680811675082,0.0676898964305,0.0683047509811,0.0676898964305,0.0672986253529,0.0672427294847,0.06612481212,0.06707504188,0.0671868336164,0.0671309377482,0.0672427294847,0.0674104170894,0.0680811675082,0.0680811675082,0.0684165427176,0.0689755013999,0.0691990848728,0.0693667724775,0.0700934187646,0.0715467113386,0.0723292534939,0.0730000039127,0.0743415047503,0.0741738171456,0.0751240469056,0.0751799427738,0.0751799427738,0.0743974006185,0.0732794832539,0.0731117956492,0.0731117956492,0.0730000039127,0.0721615658892,0.0719379824163,0.0722174617574,0.0720497741527,0.0719938782845,0.0723292534939,0.0724969410986,0.0729441080445,0.0723851493621,0.0724410452304,0.0729441080445,0.0735030667268,0.0734471708586,0.0740061295409,0.0740061295409,0.0739502336727,0.0740620254091,0.0750122551691,0.0758506931926,0.0769686105573,0.0773039857667,0.0775834651078,0.0779188403172,0.078813174209,0.0795957163642,0.0790926535501,0.0788690700772,0.0797634039689,0.0797634039689,0.0797634039689,0.078813174209,0.0784777989996,0.0785336948678,0.078813174209,0.078813174209,0.0782542155266,0.0780865279219,0.077136298162,0.0768568188208,0.0770245064255,0.0765773394796,0.0763537560067,0.0756271097197,0.0756271097197,0.0757947973244,0.0765214436114,0.0763537560067,0.0764096518749,0.0759065890608,0.0755712138514,0.0755153179832,0.0756271097197,0.0759624849291,0.0759624849291,0.0762419642702,0.0770245064255,0.0773039857667,0.0775275692396,0.0778070485808,0.077862944449,0.0778070485808,0.0780865279219,0.0781424237902,0.0780306320537,0.0785336948678,0.0792603411548,0.0790926535501,0.0785336948678,0.0781983196584,0.0778070485808,0.0773039857667,0.077136298162,0.0770804022937,0.076186068402,0.0758506931926,0.0754035262467,0.0755153179832,0.0749563593009,0.0749004634326,0.0749563593009,0.0753476303785,0.0755153179832,0.0748445675644,0.0739502336727,0.0732235873856,0.0726646287033,0.0720497741527,0.0719379824163,0.0706523774469,0.0699257311599,0.0688078137952,0.0684165427176,0.0682488551129,0.0679134799035,0.0671868336164,0.0663483955929,0.0663483955929,0.06612481212,0.0664601873294,0.0664601873294,0.0666278749341,0.0662924997247,0.0651186864918,0.0651186864918,0.0647833112824,0.063721289786,0.0632182269719,0.0628828517625,0.0626033724213,0.0623797889484,0.0624915806848,0.0617090385296,0.0612618715837,0.0613177674519,0.0604234335602,0.0594732038002,0.0588583492497,0.0582434946991,0.0575727442803,0.0577963277532,0.0577963277532,0.0572932649391,0.0568460979933,0.057740431885,0.0576286401485,0.0575727442803,0.0579640153579,0.0578522236215,0.0576286401485,0.0576286401485,0.0570696814662,0.0572373690709,0.0577963277532,0.0579640153579,0.058690661645,0.0598644748779,0.0596967872732,0.0598085790096,0.0605352252967,0.0600880583508,0.0599762666143,0.0598085790096,0.0597526831414,0.0592496203273,0.0590819327226,0.0590260368544,0.0582993905673,0.057740431885,0.056790202125,0.0563989310474,0.0557840764968,0.0553928054192,0.0554487012874,0.0546102632639,0.0540513045816,0.0539954087134,0.0532687624264,0.052933387217,0.0529892830852,0.0524862202711,0.051983157457,0.0516477822476,0.0513124070382,0.0507534483559,0.0504180731465,0.0352702928552,0.0352702928552,0.0359969391423,0.0360528350105,0.036164626747,0.0360528350105,0.0362205226152,0.036164626747,0.0356615639329,0.0356615639329,0.0358292515376,0.0356056680646,0.0359969391423,0.0363323143517,0.0365558978246,0.0367235854293,0.0367235854293,0.0369471689022,0.0374502317163,0.0373384399799,0.0367235854293,0.0366117936928,0.0364441060881,0.0363323143517,0.0365000019564,0.0360528350105)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("17649-23-FLP-CD25+-PU1ENGHA-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=52"),bty="n")
dev.off()