# R script for Peak Model
#  -- generated by MACS
p <- c(0.0382339564167,0.0403128048919,0.0422511906324,0.0443019465607,0.0458751291906,0.0477292372902,0.0494709752019,0.0518026565998,0.0540219678099,0.0564098343017,0.058516775324,0.0603427908766,0.0621407138822,0.0643319325453,0.0662422257388,0.068321074214,0.070624663065,0.0728439742751,0.0728158817281,0.0733496401204,0.0729844370099,0.0727877891812,0.0732372699326,0.0729844370099,0.0729844370099,0.0730687146508,0.0729844370099,0.0728158817281,0.0730687146508,0.0724225860706,0.0732372699326,0.0737429357779,0.0738833985127,0.0733777326674,0.0737710283249,0.0738833985127,0.0739957687006,0.0734339177613,0.0730687146508,0.0727316040872,0.0735462879492,0.0737710283249,0.0742205090763,0.0741362314354,0.0740238612475,0.0741362314354,0.0740519537945,0.0746980823747,0.0750351929382,0.0753442109548,0.0756813215184,0.0757936917062,0.0760746171758,0.0752880258609,0.0753161184078,0.0753442109548,0.0752880258609,0.0754003960487,0.0748385451095,0.0743890643581,0.0741924165293,0.0745857121868,0.0750351929382,0.075175655673,0.0750913780321,0.0755970438775,0.0749509152973,0.0748385451095,0.0746980823747,0.0757094140653,0.0752880258609,0.0752318407669,0.0753442109548,0.075990339535,0.076692653209,0.0771702265074,0.0769735786787,0.0768050233969,0.076720745756,0.0765240979272,0.0762431724576,0.0759060618941,0.0757936917062,0.0752880258609,0.0751194705791,0.0746980823747,0.0751475631261,0.0754565811427,0.0750351929382,0.0754003960487,0.0756813215184,0.0754565811427,0.0754846736896,0.0761308022698,0.0762150799107,0.0766083755681,0.076748838303,0.0764960053803,0.0762712650046,0.0763836351924,0.0761027097228,0.0764117277394,0.0765240979272,0.0760465246289,0.0761027097228,0.0752880258609,0.0751194705791,0.0753442109548,0.0751475631261,0.075175655673,0.0754003960487,0.0752599333139,0.0754003960487,0.0753442109548,0.07520374822,0.0755127662366,0.0757936917062,0.0755689513305,0.075934154441,0.0766364681151,0.0770297637726,0.0772264116013,0.0764960053803,0.0756532289714,0.0759060618941,0.0764117277394,0.0765521904742,0.0770578563195,0.0772825966952,0.0771140414135,0.0777320774467,0.0774230594301,0.0780691880102,0.0784624836677,0.0784062985738,0.0784624836677,0.0787434091373,0.0791928898887,0.079024334607,0.0788838718721,0.0791928898887,0.0793052600766,0.0796704631871,0.0789400569661,0.0791928898887,0.0793895377175,0.07899624206,0.0796142780932,0.0796985557341,0.0799232961098,0.0801480364855,0.0795861855462,0.0799513886567,0.0803446843142,0.0800356662976,0.0799513886567,0.0796142780932,0.0796423706401,0.0799232961098,0.0802323141264,0.0800918513916,0.079726648281,0.0795019079053,0.0788838718721,0.0791367047948,0.0785748538555,0.0783220209329,0.0790524271539,0.0788557793252,0.0787434091373,0.0787995942313,0.0784624836677,0.0781534656511,0.0771421339604,0.0770859488665,0.0775916147118,0.077507337071,0.0776758923527,0.0776758923527,0.0779849103693,0.0779287252754,0.0776197072588,0.0780972805572,0.077479244524,0.0772545041483,0.0778163550875,0.0777601699936,0.0779006327284,0.0778163550875,0.0775916147118,0.0773387817892,0.076748838303,0.0765802830212,0.0761869873637,0.075990339535,0.0758779693471,0.0756532289714,0.0753723035018,0.0756813215184,0.0760746171758,0.0758779693471,0.0761588948167,0.0757375066123,0.07520374822,0.0747261749216,0.0747542674686,0.0749509152973,0.0755127662366,0.075990339535,0.0766645606621,0.0771421339604,0.0776758923527,0.077479244524,0.077507337071,0.0773106892422,0.0775635221649,0.0772545041483,0.0777601699936,0.0775354296179,0.0776758923527,0.0777601699936,0.0773106892422,0.0781534656511,0.0784062985738,0.0780410954633,0.0778444476345,0.0785186687616,0.0785467613086,0.0789119644191,0.0796423706401,0.0800075737507,0.0800918513916,0.0807098874247,0.081243645817,0.0812155532701,0.0810750905353,0.0811312756292,0.0811593681761,0.0817493116624,0.0821145147729,0.0822830700547,0.0824235327895,0.0823111626016,0.0818616818502,0.0816369414745,0.0810469979883,0.0809346278004,0.0810189054413,0.0811312756292,0.0809627203474,0.0809908128944,0.0807941650656,0.0806817948778,0.0804289619551,0.0802323141264,0.0801199439385,0.0804008694081,0.0806817948778,0.079754740828,0.0800356662976,0.0803727768612,0.080485147049,0.0803165917673,0.0801199439385,0.0798952035628,0.0791928898887,0.0792209824357,0.0791647973418,0.0791647973418,0.079754740828,0.0796985557341,0.0796423706401,0.0794176302644,0.0799794812037,0.0800918513916,0.0803446843142,0.0803165917673,0.0802884992203,0.0809908128944,0.081271738364,0.0816369414745,0.082002144585,0.0823111626016,0.0815245712867,0.0821145147729,0.0822830700547,0.0824797178834,0.0833786793862,0.0841371781542,0.0844742887178,0.0847552141874,0.0853451576736,0.0859070086129,0.0859912862538,0.0874240061489,0.0874520986959,0.0870026179445,0.0876206539776,0.0877892092594,0.0889971887788,0.0893062067954,0.0903456310331,0.0904860937679,0.0909636670662,0.0910198521602,0.0909355745193,0.0912164999889,0.0919749987569,0.0925087571492,0.0920873689448,0.0925649422431,0.0923121093205,0.0929301453536,0.0931548857294,0.0931829782763,0.0929863304476,0.0935200888399,0.0939695695913,0.0936605515747,0.0946718832654,0.0943909577957,0.0950651789228,0.0952618267516,0.094952808735,0.0953180118455,0.094952808735,0.0950370863759,0.094952808735,0.0940257546852,0.0941381248731,0.0930425155415,0.0929020528067,0.0938571994034,0.0937448292156,0.0944471428896,0.0943347727018,0.0946999758123,0.0948966236411,0.0953180118455,0.0953741969394,0.0951775491107,0.0953741969394,0.0949809012819,0.0948123460002,0.0946437907184,0.0947561609062,0.0943628652488,0.0946718832654,0.0946718832654,0.0948404385471,0.0946718832654,0.0952056416577,0.0950370863759,0.0947842534532,0.0952618267516,0.0947561609062,0.0954303820334,0.0950932714698,0.0954865671273,0.0955146596742,0.0955146596742,0.0960203255196,0.0961607882544,0.0967226391937,0.0971721199451,0.0975654156025,0.0978463410722,0.0980429889009,0.0979025261661,0.0986610249341,0.0980991739948,0.0978182485252,0.0981272665418,0.0979306187131,0.0976777857904,0.0979025261661,0.0974811379617,0.0973968603208,0.0975654156025,0.097256397586,0.0971721199451,0.097200212492,0.0974811379617,0.0976496932434,0.0975654156025,0.0976216006965,0.0978182485252,0.0980710814479,0.0981834516357,0.0985767472932,0.0983800994645,0.0991947833264,0.0994195237021,0.0994195237021,0.0989138578568,0.0996161715308,0.0990824131385,0.0986610249341,0.0988857653098,0.0986329323871,0.0992790609673,0.0993633386082,0.0998690044535,0.100093744829,0.0997847268126,0.0988857653098,0.0990543205916,0.0992228758734,0.0986891174811,0.0981834516357,0.0986048398402,0.0989419504037,0.0994476162491,0.0989419504037,0.0990824131385,0.0999251895474,0.100262300111,0.100627503222,0.100402762846,0.100346577752,0.100964613785,0.101217446708,0.10147027963,0.101273631802,0.100964613785,0.100739873409,0.100767965956,0.100796058503,0.100065652282,0.100571318128,0.101273631802,0.100599410675,0.102060223117,0.101947852929,0.102622074056,0.102987277166,0.102369241133,0.102060223117,0.101638834912,0.1017512051,0.102256870945,0.103099647354,0.103240110089,0.103183924995,0.104082886498,0.104785200172,0.104700922531,0.10517849583,0.106077457332,0.10739780704,0.107875380338,0.107453992134,0.10748208468,0.10776301015,0.10840913873,0.107903472885,0.107285436852,0.107425899587,0.107004511382,0.107453992134,0.107875380338,0.107819195244,0.107875380338,0.107201159211,0.107257344305,0.107144974117,0.106695493366,0.106948326288,0.106217920067,0.107510177227,0.107173066664,0.106583123178,0.107510177227,0.107931565432,0.108072028167,0.108156305808,0.107875380338,0.107847287791,0.107622547415,0.107903472885,0.107791102697,0.10739780704,0.106948326288,0.106639308272,0.105375143658,0.104869477813,0.104448089608,0.104504274702,0.105122310736,0.10582462441,0.105768439316,0.105627976581,0.106217920067,0.105740346769,0.105571791487,0.105459421299,0.106049364785,0.10618982752,0.106414567896,0.10711688157,0.107510177227,0.107959657979,0.107819195244,0.108212490902,0.108352953636,0.107538269774,0.107144974117,0.107622547415,0.107369714493,0.106892141194,0.106695493366,0.106526938084,0.106667400819,0.106442660443,0.107004511382,0.106779771006,0.106302197708,0.106302197708,0.106892141194,0.106611215725,0.107369714493,0.107004511382,0.107650639962,0.107987750526,0.107453992134,0.106133642426,0.10582462441,0.106695493366,0.106217920067,0.106695493366,0.107032603929,0.1068359561,0.105936994598,0.105965087144,0.105431328752,0.104953755454,0.104504274702,0.103408665371,0.103352480277,0.102987277166,0.102987277166,0.103521035559,0.102959184619,0.10239733368,0.101666927459,0.101835482741,0.101835482741,0.102200685851,0.102144500758,0.102172593304,0.101779297647,0.102088315664,0.102116408211,0.102228778398,0.101891667835,0.102116408211,0.10203213057,0.101554557271,0.101076983973,0.101357909443,0.101666927459,0.10147027963,0.101863575288,0.102088315664,0.102144500758,0.102088315664,0.102172593304,0.102284963492,0.102622074056,0.10267825915,0.102565888962,0.102537796415,0.102706351697,0.102846814432,0.103183924995,0.103099647354,0.102902999526,0.102256870945,0.102818721885,0.102846814432,0.102902999526,0.102088315664,0.102116408211,0.102341148586,0.102116408211,0.101835482741,0.101947852929,0.101161261614,0.101161261614,0.101498372177,0.10147027963,0.100739873409,0.0997004491717,0.100627503222,0.100711780862,0.0997566342657,0.0994476162491,0.0999251895474,0.0990543205916,0.0984081920114,0.0978463410722,0.0969473795694,0.0963855286301,0.0956270298621,0.0946437907184,0.0943347727018,0.0948123460002,0.0942785876079,0.0935762739338,0.0932953484642,0.0930987006354,0.0933796261051,0.092649219884,0.0923682944144,0.0917221658342,0.0913850552707,0.0912164999889,0.091132222348,0.0904860937679,0.0893623918893,0.0890533738728,0.0886600782153,0.0885477080274,0.0886881707622,0.0882667825578,0.0875644688837,0.0870868955853,0.0872835434141,0.0879015794473,0.0868340626627,0.0865250446461,0.086609322287,0.0863283968173,0.0859351011599,0.0859912862538,0.0853732502206,0.0855418055024,0.0854856204084,0.0854013427676,0.0853732502206,0.0852889725797,0.085064232204,0.0843619185299,0.084333825983,0.0846990290935,0.0849518620162,0.0848394918283,0.0841652707012,0.0839686228724,0.0834910495741,0.0840248079664,0.0841371781542,0.0837157899498,0.0842214557951,0.0846990290935,0.0849237694692,0.0855137129554,0.0852889725797,0.084305733436,0.0843619185299,0.0838281601376,0.0837438824967,0.0839405303255,0.0837719750437,0.0840809930603,0.0842495483421,0.0841090856073,0.0848675843753,0.0844461961708,0.084305733436,0.0842214557951,0.0846147514526,0.0852046949388,0.0851204172979,0.0851204172979,0.0852046949388,0.0852608800327,0.0851204172979,0.085064232204,0.0852889725797,0.085064232204,0.0847271216404,0.0846990290935,0.0846428439996,0.0846428439996,0.0851485098449,0.084277640889,0.084277640889,0.0846428439996,0.0846428439996,0.0842214557951,0.083575327215,0.0829853837287,0.0829291986348,0.0836596048559,0.0836034197619,0.0837438824967,0.0833224942923,0.0828730135409,0.0829011060879,0.0823392551486,0.0825078104304,0.0823954402425,0.0813560160049,0.082002144585,0.0817774042093,0.0817774042093,0.0819178669441,0.0809908128944,0.0807660725187,0.0809346278004,0.081271738364,0.0814964787397,0.0813560160049,0.0816369414745,0.0809346278004,0.0810469979883,0.0810469979883,0.080541332143,0.0807098874247,0.0809627203474,0.0805694246899,0.0812155532701,0.0815526638336,0.0810189054413,0.0807660725187,0.080485147049,0.0811593681761,0.0811312756292,0.0809346278004,0.0809627203474,0.0806256097838,0.081271738364,0.0815807563806,0.0818897743972,0.0817212191154,0.0815245712867,0.0816088489276,0.0817212191154,0.0818616818502,0.0812155532701,0.0814402936458,0.0814122010988,0.0809346278004,0.0807098874247,0.0809346278004,0.080513239596,0.0803727768612,0.0800637588446,0.0803165917673,0.0801480364855,0.080513239596,0.0803727768612,0.0809908128944,0.0812155532701,0.0809627203474,0.0807379799717,0.0807660725187,0.0803727768612,0.0800075737507,0.0800918513916,0.0800075737507,0.0809627203474,0.0811031830822,0.0809908128944,0.0814683861927,0.0816650340215,0.0818335893033,0.0816650340215,0.0816088489276,0.0814964787397,0.0816088489276,0.0821706998668,0.0820864222259,0.0822549775077,0.0824235327895,0.0823954402425,0.0821706998668,0.0820864222259,0.082030237132,0.0822549775077,0.0823954402425,0.0825078104304,0.0821426073199,0.0830415688227,0.0832663091984,0.0833224942923,0.0834629570271,0.0836034197619,0.0831820315575,0.0830415688227,0.0829853837287,0.082816828447,0.0833786793862,0.0831820315575,0.0828730135409,0.0826201806182,0.0824797178834,0.0821706998668,0.0815807563806,0.0818335893033,0.0811593681761,0.0802604066733,0.0796704631871,0.0794738153584,0.0790524271539,0.0788557793252,0.0785748538555,0.0782939283859,0.0785467613086,0.0785186687616,0.0786310389495,0.0788838718721,0.079024334607,0.0794176302644,0.0795861855462,0.0798952035628,0.0796142780932,0.079754740828,0.0803446843142,0.0799513886567,0.0795861855462,0.0792490749827,0.0792209824357,0.0791647973418,0.0791086122478,0.0793052600766,0.0790805197009,0.0794457228114,0.07899624206,0.0791367047948,0.079754740828,0.0800637588446,0.0800356662976,0.0796704631871,0.0800637588446,0.0796704631871,0.0799513886567,0.0801199439385,0.0804008694081,0.0806256097838,0.0805694246899,0.0807660725187,0.0803727768612,0.0800918513916,0.0794176302644,0.078968149513,0.0786029464025,0.0784624836677,0.078265835839,0.0778725401815,0.0779287252754,0.0781534656511,0.0780410954633,0.077479244524,0.0770297637726,0.0766364681151,0.0764960053803,0.0765802830212,0.0764960053803,0.0760465246289,0.0756532289714,0.0761027097228,0.075962246988,0.0758498768001,0.0764398202864,0.0769173935847,0.0763274500985,0.076720745756,0.0769735786787,0.0768612084908,0.0762993575515,0.0765240979272,0.0766645606621,0.0769735786787,0.0770297637726,0.0764117277394,0.0767769308499,0.0765521904742,0.0766645606621,0.0770016712256,0.0770297637726,0.0771421339604,0.0769454861317,0.0770016712256,0.0770297637726,0.0771421339604,0.0768331159438,0.0764117277394,0.0767769308499,0.0775916147118,0.0777601699936,0.0783220209329,0.0786872240434,0.0791086122478,0.0791647973418,0.0795861855462,0.0799513886567,0.0795300004523,0.0798952035628,0.079782833375,0.0791928898887,0.0789400569661,0.0788838718721,0.0786029464025,0.0781253731041,0.078209650745,0.0787715016843,0.078968149513,0.07899624206,0.079024334607,0.0795861855462,0.0795300004523,0.0798671110158,0.0801480364855,0.0803165917673,0.0799513886567,0.0802323141264,0.0802323141264,0.080485147049,0.0798952035628,0.079754740828,0.079726648281,0.0796142780932,0.079754740828,0.0795861855462,0.0791647973418,0.0787434091373,0.0785748538555,0.078237743292,0.0775916147118,0.0772264116013,0.0767769308499,0.0771702265074,0.0770016712256,0.0768331159438,0.0769735786787,0.0766083755681,0.0766083755681,0.0764960053803,0.076720745756,0.0765521904742,0.0765240979272,0.0761027097228,0.0755127662366,0.0754003960487,0.0750632854852,0.0744733419989,0.0745576196398,0.0742205090763,0.0739676761536,0.0743609718111,0.0741643239824,0.0741643239824,0.0740800463415,0.0737991208718,0.0742766941702,0.0743047867172,0.0743328792641,0.0748666376564,0.0745014345459,0.0744733419989,0.0745295270929,0.0747261749216,0.0742486016232,0.0745014345459,0.0750351929382,0.0753161184078,0.0757655991592,0.07520374822,0.0755127662366,0.0756251364244,0.0752599333139,0.0755689513305,0.0755408587835,0.0753161184078,0.0750351929382,0.0756251364244,0.075934154441,0.0757936917062,0.0760746171758,0.075990339535,0.0762993575515,0.0761588948167,0.075934154441,0.0760746171758,0.0761588948167,0.075934154441,0.0763274500985,0.0759060618941,0.075962246988,0.0757375066123,0.0755689513305,0.07520374822,0.0747823600155,0.0743890643581,0.0744733419989,0.074417156905,0.0746138047338,0.0746699898277,0.0748104525625,0.0745014345459,0.0738833985127,0.0734339177613,0.0731529922917,0.0730125295569,0.0724225860706,0.072141660601,0.0724787711646,0.0723383084298,0.0728720668221,0.0732372699326,0.0734339177613,0.0731248997447,0.0726754189933,0.0727316040872,0.0732653624795,0.0731810848386,0.072928251916,0.0732091773856,0.0733777326674,0.0734620103083,0.0737148432309,0.0735462879492,0.0734058252144,0.0730125295569,0.0733215475735,0.0737710283249,0.0739676761536,0.0742486016232,0.0746699898277,0.0752599333139,0.0750913780321,0.0752318407669,0.0749790078443,0.0743609718111,0.0748385451095,0.0750071003912,0.0753161184078,0.0761308022698,0.0762431724576,0.0763274500985,0.0771983190544,0.0772825966952,0.0776197072588,0.0781253731041,0.0779287252754,0.0778444476345,0.0776758923527,0.0777882625406,0.0779568178224,0.078209650745,0.0779568178224,0.0783501134798,0.0783782060268,0.0785186687616,0.0782939283859,0.077507337071,0.0771421339604,0.0773668743361,0.0768050233969,0.0768893010378,0.0763555426455,0.0760746171758,0.0755689513305,0.0754284885957,0.0751475631261,0.0748666376564,0.0748947302034,0.0748385451095,0.0745857121868,0.0751475631261,0.0742486016232,0.0739395836067,0.0737429357779,0.073658658137,0.0732372699326,0.0732653624795,0.0723944935237,0.0723102158828,0.0714393469269,0.0710460512695,0.0703156450484,0.0704561077832,0.0700909046727,0.0700347195788,0.0703718301423,0.0705403854241,0.0701751823136,0.0700347195788,0.069894256844,0.0699223493909,0.0704842003302,0.0708774959877,0.0705965705181,0.0704561077832,0.0708494034407,0.0710741438164,0.0710460512695,0.0712426990982,0.0714393469269,0.0714955320209,0.0717764574905,0.0714674394739,0.0718045500375,0.0714674394739,0.0714393469269,0.0715798096618,0.0721978456949,0.0728158817281,0.0725911413524,0.072169753148,0.0724506786176,0.0730125295569,0.0732934550265,0.0732934550265,0.0739957687006,0.0741643239824,0.0747261749216,0.0747823600155,0.0748385451095,0.0748104525625,0.0741924165293,0.0739957687006,0.0734901028552,0.0734620103083,0.0735462879492,0.073686750684,0.0737991208718,0.0741643239824,0.0741924165293,0.0741362314354,0.0739395836067,0.0739957687006,0.073686750684,0.0732934550265,0.0730687146508,0.0733496401204,0.0735462879492,0.0735181954022,0.0728720668221,0.0728439742751,0.0730406221038,0.0727596966342,0.0722259382419,0.0722821233358,0.0723102158828,0.0729563444629,0.0730125295569,0.0727596966342,0.0726754189933,0.0730125295569,0.0726473264464,0.0724506786176,0.0716359947557,0.0715236245678,0.0719169202253,0.072141660601,0.0726754189933,0.0716640873026,0.0721978456949,0.0723102158828,0.0720854755071,0.0714674394739,0.071383161833,0.0708213108938,0.0707932183468,0.0709617736286,0.0714674394739,0.0716079022087,0.0718326425844,0.0722821233358,0.0726473264464,0.0723944935237,0.0719731053192,0.0720854755071,0.0723944935237,0.0730687146508,0.0731810848386,0.0732091773856,0.0732091773856,0.0730406221038,0.0736024730431,0.0710460512695,0.0689952953412,0.0667197990372,0.0647252282028,0.0625621020866,0.0605394387053,0.058516775324,0.0569155001471,0.0548647442188,0.0526454330087,0.0504542143456,0.0480944404007,0.0469145534282,0.0449480751408,0.0427849490247,0.0409589334721,0.0391048253725,0.0369136067094)
m <- c(0.0359230927509,0.0376567230182,0.0397029751369,0.0415218659091,0.0436249583645,0.0457848911564,0.0474616810871,0.0496784542157,0.0518099668393,0.0537141181165,0.0559593114134,0.0578350425223,0.0601939164925,0.0622401686112,0.0637180173636,0.0655369081358,0.0673842190763,0.0690325888386,0.0691462695119,0.0691462695119,0.0688336476604,0.0691178493436,0.0693736308584,0.0692031098485,0.0699136140564,0.0700272947297,0.0703683367494,0.0708514796108,0.0702262359079,0.0711641014623,0.0714483031454,0.0715335636504,0.0713062023039,0.0713630426405,0.071590403987,0.0717325048286,0.072130387185,0.0725566897097,0.0723861686998,0.07221564769,0.0723009081949,0.0716188241553,0.0717040846603,0.0713346224722,0.0715051434821,0.0712493619672,0.0707946392742,0.0714198829771,0.0711072611256,0.0713630426405,0.0720167065117,0.0720451266801,0.0721588073533,0.0727556308879,0.0726987905513,0.073210353581,0.0734661350958,0.0732387737493,0.0730398325711,0.0734377149275,0.0728408913929,0.0728693115612,0.0728693115612,0.0727272107196,0.0734377149275,0.0732956140859,0.0729829922345,0.073665076274,0.0735798157691,0.0733524544226,0.0732671939176,0.0732387737493,0.0732956140859,0.0731535132444,0.0733524544226,0.0740345384622,0.0738355972839,0.0745461014918,0.0744892611552,0.0744040006503,0.0742334796404,0.07474504267,0.0755123872146,0.0753134460364,0.0750292443532,0.074830303175,0.0743187401453,0.0749724040166,0.0749724040166,0.0744892611552,0.0745176813235,0.0746597821651,0.0744040006503,0.0748018830067,0.0755408073829,0.0754839670462,0.0760807905809,0.0759671099076,0.076450252769,0.0760523704126,0.0755408073829,0.0753418662047,0.0755408073829,0.0750576645215,0.0753418662047,0.0756544880561,0.0756260678878,0.0756829082245,0.0753418662047,0.0753987065413,0.0753418662047,0.0750008241849,0.0753418662047,0.0757681687294,0.0759671099076,0.0759955300759,0.0764218326007,0.0761092107492,0.0755123872146,0.0749155636799,0.0752566056997,0.0748871435116,0.0756544880561,0.0749724040166,0.0749439838482,0.0756544880561,0.0756544880561,0.0752566056997,0.0756829082245,0.0753987065413,0.0748018830067,0.0751145048581,0.0743471603136,0.0744040006503,0.0738924376206,0.0743755804819,0.0744608409869,0.0748018830067,0.0747734628384,0.0746597821651,0.0743755804819,0.0740913787988,0.0744892611552,0.0750576645215,0.0755408073829,0.0757681687294,0.0755692275512,0.0757965888977,0.0754839670462,0.0748018830067,0.0748587233433,0.0748871435116,0.0747166225017,0.0751713451948,0.0754271267096,0.0757397485611,0.075910269571,0.0761376309175,0.0759386897393,0.0765923536106,0.0765923536106,0.0766491939472,0.0767060342838,0.0767060342838,0.0767912947888,0.0766491939472,0.076450252769,0.076364992264,0.0767060342838,0.076904975462,0.0765923536106,0.076904975462,0.076904975462,0.0765923536106,0.0764786729373,0.076450252769,0.0766776141155,0.0770754964719,0.0764786729373,0.0766207737789,0.0766491939472,0.076364992264,0.0765639334422,0.0763081519274,0.0768197149571,0.0771323368086,0.0776438998382,0.0779565216897,0.0777291603432,0.0777007401749,0.0780133620263,0.0778144208481,0.07744495866,0.0774733788283,0.0770754964719,0.076450252769,0.0761944712541,0.0757113283928,0.0757681687294,0.0756829082245,0.0755692275512,0.075910269571,0.0761944712541,0.0760807905809,0.0763081519274,0.0762513115908,0.0767912947888,0.0765923536106,0.0770754964719,0.0774165384917,0.0777007401749,0.0772744376501,0.0770470763036,0.0767060342838,0.0771891771452,0.0769333956303,0.0767912947888,0.0770186561353,0.0771607569769,0.0773596981551,0.0776723200065,0.077530219165,0.0770754964719,0.076904975462,0.0777575805115,0.0774165384917,0.0771039166402,0.0774165384917,0.0775870595016,0.0773028578184,0.0781838830362,0.0784680847194,0.0789512275808,0.0788091267392,0.0787522864025,0.0786670258976,0.0791217485906,0.0789512275808,0.0787807065709,0.0786386057293,0.0777575805115,0.0778428410164,0.0776154796699,0.0779565216897,0.0777575805115,0.0780133620263,0.0775586393333,0.077984941858,0.0780986225313,0.0786670258976,0.078610185561,0.0785817653926,0.0789512275808,0.0783828242144,0.0780417821947,0.0783544040461,0.0780986225313,0.0783544040461,0.0786670258976,0.0792922696005,0.0788659670758,0.0788091267392,0.0782975637095,0.0781838830362,0.0783259838778,0.078524925056,0.0780133620263,0.0778712611848,0.0776438998382,0.0781270426996,0.0782691435412,0.0780417821947,0.0778712611848,0.0778428410164,0.0779281015214,0.0778144208481,0.0786670258976,0.0788943872441,0.0790933284223,0.0789228074124,0.079150168759,0.0785817653926,0.078610185561,0.0782975637095,0.0784680847194,0.0780986225313,0.0787522864025,0.0786670258976,0.0782975637095,0.0786386057293,0.079064908254,0.0785533452243,0.0781838830362,0.0780417821947,0.0778996813531,0.0767912947888,0.0765923536106,0.0765070931056,0.0768197149571,0.0774733788283,0.077984941858,0.0789228074124,0.079064908254,0.0790080679174,0.0794059502738,0.079064908254,0.0790364880857,0.0794912107787,0.0794059502738,0.0793206897689,0.0791785889273,0.079604891452,0.0799175133035,0.0792070090956,0.0798606729668,0.0799175133035,0.0795764712837,0.0798606729668,0.0798038326302,0.0803438158282,0.08014487465,0.0803722359965,0.0794059502738,0.079064908254,0.0786954460659,0.0788375469075,0.0790080679174,0.079064908254,0.0787238662342,0.0784680847194,0.0783828242144,0.0786954460659,0.0785817653926,0.0795196309471,0.0793775301055,0.0791217485906,0.0787807065709,0.0781270426996,0.0778428410164,0.0783259838778,0.0783828242144,0.0787238662342,0.0787238662342,0.0785817653926,0.0782407233729,0.0787522864025,0.0792070090956,0.0788091267392,0.0787807065709,0.0789228074124,0.0782407233729,0.0780986225313,0.0782975637095,0.0781270426996,0.0782975637095,0.0779281015214,0.0781554628679,0.0777575805115,0.0778712611848,0.0781270426996,0.0783544040461,0.0783828242144,0.0781270426996,0.0779565216897,0.0781554628679,0.0783828242144,0.0785817653926,0.0791785889273,0.0790080679174,0.0783259838778,0.0788375469075,0.0788943872441,0.0786670258976,0.0787238662342,0.0789228074124,0.0787238662342,0.0788375469075,0.0785817653926,0.0784396645511,0.0791785889273,0.0791217485906,0.079064908254,0.0787807065709,0.0786386057293,0.0785817653926,0.0789796477491,0.0791785889273,0.0791217485906,0.0794343704421,0.0794627906104,0.0796333116203,0.0798038326302,0.0792922696005,0.0796617317886,0.0798890931352,0.0800311939767,0.0802585553233,0.0800311939767,0.0800311939767,0.08014487465,0.0803153956599,0.0807416981846,0.0804859166698,0.0802585553233,0.0802017149866,0.0807985385213,0.0804574965015,0.0807985385213,0.0811680007094,0.0813101015509,0.0813669418876,0.0814237822242,0.0810827402044,0.0811395805411,0.081224841046,0.0806280175114,0.0813953620559,0.0811395805411,0.0815090427292,0.0821058662638,0.0823900679469,0.0824753284519,0.0824184881153,0.0827026897984,0.0825605889568,0.0822763872737,0.0819069250856,0.0815658830658,0.082219546937,0.0817932444123,0.0814237822242,0.0810827402044,0.0809690595312,0.0813385217193,0.081679563739,0.0827879503034,0.0826458494618,0.0823332276103,0.0826742696301,0.0831574124915,0.0829300511449,0.0824469082836,0.0826174292935,0.0818785049173,0.0815658830658,0.0815090427292,0.0813953620559,0.0817079839074,0.0821911267687,0.0819069250856,0.0817079839074,0.081679563739,0.0816511435707,0.0821342864321,0.0819637654222,0.081764824244,0.0812532612143,0.0811395805411,0.0809122191945,0.0807701183529,0.0801164544817,0.0806564376797,0.0809690595312,0.0817364040757,0.0807416981846,0.0811111603727,0.0816511435707,0.081679563739,0.0819637654222,0.082219546937,0.0820774460955,0.0815374628975,0.0820774460955,0.0821058662638,0.0821911267687,0.0818216645806,0.0819069250856,0.0828732108083,0.0831858326598,0.0834416141746,0.0830721519865,0.0835552948479,0.0835268746796,0.0832142528281,0.0834984545112,0.0840952780459,0.0841521183825,0.0841236982142,0.0840952780459,0.0838110763627,0.0837258158578,0.0837542360261,0.083839496531,0.0839531772043,0.0842089587191,0.0842373788875,0.0852605049468,0.0851184041052,0.0851184041052,0.0850615637686,0.0861415301646,0.0859710091547,0.086539412521,0.0865962528576,0.0862267906695,0.0861131099963,0.0859425889864,0.0856583873032,0.0858857486498,0.0858573284814,0.0860278494913,0.0858004881448,0.0864541520161,0.086084689828,0.0857152276399,0.0863973116794,0.087079395719,0.0864825721844,0.0869657150458,0.0873067570655,0.0870509755507,0.086539412521,0.0868804545408,0.087164656224,0.087079395719,0.0871930763923,0.0868236142042,0.0866815133626,0.0867099335309,0.086539412521,0.0867951940359,0.0868520343725,0.0862552108379,0.0863404713428,0.0864825721844,0.0858573284814,0.0858289083131,0.0860278494913,0.0857152276399,0.0862552108379,0.0865109923527,0.0864257318478,0.086539412521,0.0866530931943,0.0861983705012,0.0864825721844,0.0863120511745,0.0869372948774,0.0868520343725,0.086539412521,0.086624673026,0.0855731267983,0.0855731267983,0.0857152276399,0.0851184041052,0.0853741856201,0.0853173452834,0.0858857486498,0.0857436478082,0.085459446125,0.0851468242736,0.0851468242736,0.084919462927,0.0849478830953,0.0850899839369,0.0855162864617,0.0857152276399,0.0855162864617,0.0861415301646,0.086084689828,0.0861131099963,0.0863688915111,0.0861131099963,0.0862267906695,0.0862836310062,0.086539412521,0.0869088747091,0.0867383536992,0.0863973116794,0.0867667738675,0.0875909587487,0.0877330595903,0.0880741016101,0.0880172612734,0.0883014629566,0.0885288243031,0.0893245890159,0.0902624545704,0.0901771940654,0.0903477150753,0.0909445386099,0.0912003201248,0.0911718999565,0.0909161184416,0.0910866394515,0.0912287402931,0.0919960848376,0.0931613117386,0.0943265386395,0.0948665218375,0.0951507235206,0.0954917655404,0.0954065050355,0.0960601689067,0.0965433117681,0.0971685554711,0.0975095974908,0.0978222193423,0.0986748243918,0.0986748243918,0.0984190428769,0.0983622025403,0.0983622025403,0.0987600848967,0.0992432277581,0.0995842697779,0.0991863874215,0.0991579672531,0.0991579672531,0.0994421689363,0.099328488263,0.0997832109561,0.0996126899462,0.0998116311244,0.100010572303,0.100749496679,0.100664236174,0.100010572303,0.100408454659,0.101204219372,0.102142084926,0.103079950481,0.103676774015,0.103364152164,0.103108370649,0.103392572332,0.103477832837,0.103108370649,0.103335731996,0.103790454689,0.103392572332,0.103534673174,0.104131496708,0.104472538728,0.103818874857,0.104074656372,0.103875715194,0.103648353847,0.103705194184,0.103563093342,0.104159916877,0.104330437887,0.104472538728,0.104728320243,0.105410404283,0.105779866471,0.105865126976,0.105694605966,0.105410404283,0.105183042936,0.106149328659,0.105694605966,0.106405110174,0.106717732025,0.106604051352,0.10663247152,0.106319849669,0.105637765629,0.10444411856,0.104046236203,0.104927261421,0.105239883273,0.104842000916,0.104898841253,0.104586219401,0.104302017718,0.10461463957,0.105040942094,0.104671479906,0.104870421085,0.105694605966,0.105353563946,0.106092488322,0.106547211015,0.106490370679,0.106234589164,0.106376690005,0.106660891688,0.10680299253,0.106689311857,0.106263009332,0.105495664788,0.105865126976,0.106092488322,0.1062914295,0.106604051352,0.106007227817,0.105978807649,0.106007227817,0.105779866471,0.105865126976,0.105637765629,0.105723026134,0.1062914295,0.107058774045,0.107257715223,0.106689311857,0.106376690005,0.107058774045,0.107115614382,0.107286135391,0.107371395896,0.106945093372,0.107342975728,0.108195580778,0.108252421114,0.107371395896,0.108110320273,0.108053479936,0.107740858084,0.107797698421,0.108195580778,0.107769278253,0.107001933708,0.106945093372,0.10697351354,0.107342975728,0.108138740441,0.108053479936,0.107882958926,0.108138740441,0.108025059768,0.107826118589,0.107996639599,0.107001933708,0.107115614382,0.106859832867,0.106689311857,0.105865126976,0.105779866471,0.105921967312,0.105779866471,0.105438824451,0.105723026134,0.105325143778,0.105296723609,0.105410404283,0.104699900075,0.104813580748,0.10410307654,0.103705194184,0.10359151351,0.10376203452,0.103563093342,0.103733614352,0.104159916877,0.104131496708,0.104216757213,0.104131496708,0.10376203452,0.103335731996,0.103079950481,0.102312605936,0.10208524459,0.102426286609,0.102312605936,0.101857883243,0.101516841223,0.101460000887,0.101147379035,0.101658942065,0.10191472358,0.102341026104,0.102369446273,0.103051530312,0.102994689976,0.101971563916,0.102341026104,0.102426286609,0.1022557656,0.102710488293,0.1034209925,0.103307311827,0.103904135362,0.103733614352,0.103790454689,0.103449412669,0.102909429471,0.103364152164,0.102625227788,0.102369446273,0.10191472358,0.101602101728,0.101658942065,0.101857883243,0.10208524459,0.101857883243,0.101460000887,0.101630521897,0.101971563916,0.10089159752,0.100266353817,0.100408454659,0.100777916847,0.100607395837,0.100465294996,0.100408454659,0.100493715164,0.100124252976,0.100152673144,0.100550555501,0.100124252976,0.100436874827,0.0997547907878,0.0999821521343,0.0998116311244,0.0994990092729,0.0989021857383,0.0987316647284,0.0980495806888,0.0981064210255,0.0973390764809,0.0964580512632,0.0966285722731,0.0963443705899,0.0970264546295,0.0969411941245,0.0969127739562,0.0974243369859,0.096799093283,0.0968275134513,0.096799093283,0.0970264546295,0.0969696142928,0.0964012109265,0.096259110085,0.0960317487384,0.0963727907582,0.09617384958,0.0954633453721,0.095179143689,0.0955201857087,0.0954065050355,0.0950654630157,0.0954633453721,0.0948949420058,0.0940707571247,0.0943833789761,0.0942412781345,0.0939286562831,0.0941560176296,0.0938433957781,0.0933318327484,0.092933950392,0.0929623705603,0.0927634293821,0.0919960848376,0.091853983996,0.0921666058475,0.0925360680356,0.0920245050059,0.091939244501,0.0917687234911,0.0918255638277,0.0913424209664,0.0919676646693,0.0920529251742,0.0916550428178,0.0917687234911,0.0921381856792,0.0927065890455,0.0921950260158,0.0930760512336,0.092933950392,0.092479227699,0.0921666058475,0.0919108243327,0.0913708411347,0.0910866394515,0.0907171772634,0.0899782528872,0.0902624545704,0.0903761352436,0.0903477150753,0.0903761352436,0.0906319167585,0.0899498327189,0.0900350932238,0.0897508915407,0.0893814293526,0.0885572444714,0.0885572444714,0.0890119671645,0.089239328511,0.0894951100258,0.0889267066595,0.0888698663229,0.0879320007685,0.0877330595903,0.0870225553824,0.0866815133626,0.0860562696597,0.0853457654518,0.0852320847785,0.0845784209072,0.0847489419171,0.0835268746796,0.0834416141746,0.0825890091251,0.0825321687885,0.082759530135,0.0827026897984,0.0827879503034,0.0830437318182,0.082759530135,0.0826742696301,0.0823332276103,0.0821058662638,0.0811395805411,0.0805427570064,0.0805143368381,0.0798890931352,0.0799175133035,0.0797185721253,0.0798606729668,0.0802017149866,0.0805427570064,0.0805995973431,0.08014487465,0.079690151957,0.0793206897689,0.0789228074124,0.0787807065709,0.0787522864025,0.0788375469075,0.0788943872441,0.0791217485906,0.0791785889273,0.0793775301055,0.0796333116203,0.0794627906104,0.0792922696005,0.079150168759,0.0782407233729,0.0783828242144,0.0781554628679,0.0783544040461,0.0786670258976,0.0789796477491,0.078610185561,0.0785533452243,0.0787807065709,0.0788943872441,0.0785817653926,0.0791785889273,0.0788091267392,0.0784965048877,0.0784396645511,0.0781838830362,0.0775017989967,0.0773312779868,0.0768765552937,0.076904975462,0.0765923536106,0.0763081519274,0.0765639334422,0.0766776141155,0.0771323368086,0.0772744376501,0.0773881183234,0.0772460174818,0.0773312779868,0.0773028578184,0.0772460174818,0.0768197149571,0.0763365720957,0.0760523704126,0.0756544880561,0.0759671099076,0.0762228914225,0.0760239502442,0.0761660510858,0.075825009066,0.0756829082245,0.0755408073829,0.0755408073829,0.0756544880561,0.0754555468779,0.0751145048581,0.0754555468779,0.0753134460364,0.0755692275512,0.0755692275512,0.0757965888977,0.0758818494027,0.0761660510858,0.0762797317591,0.0758534292343,0.0753134460364,0.0752566056997,0.0756544880561,0.0752281855314,0.0743471603136,0.0739492779572,0.0740629586305,0.0741482191354,0.0741482191354,0.0743755804819,0.0738355972839,0.0734377149275,0.0737219166107,0.0740345384622,0.0746597821651,0.0743755804819,0.0748587233433,0.0755976477195,0.0756829082245,0.0755692275512,0.0756260678878,0.0758818494027,0.0760523704126,0.076364992264,0.0766776141155,0.0765639334422,0.0766207737789,0.0762228914225,0.0763365720957,0.0764218326007,0.0761092107492,0.0761376309175,0.0758818494027,0.0761376309175,0.0760239502442,0.0765355132739,0.0771039166402,0.0771323368086,0.0766776141155,0.0770186561353,0.0776438998382,0.077530219165,0.0772175973135,0.0771323368086,0.0764786729373,0.0763081519274,0.0770470763036,0.0773881183234,0.0773312779868,0.0772744376501,0.0773881183234,0.0777860006798,0.0778428410164,0.0768765552937,0.0771039166402,0.0771323368086,0.0766776141155,0.0763934124323,0.0758534292343,0.0755692275512,0.0751145048581,0.0751145048581,0.0751997653631,0.0755976477195,0.0758818494027,0.0751713451948,0.0759386897393,0.0760239502442,0.0759671099076,0.0757113283928,0.0756829082245,0.075825009066,0.0754839670462,0.0751429250265,0.0748871435116,0.0745461014918,0.0741197989671,0.0744324208186,0.0749155636799,0.075285025868,0.0756829082245,0.075285025868,0.0745461014918,0.0746597821651,0.0745745216601,0.0744892611552,0.0741197989671,0.0739208577889,0.0736934964424,0.0738355972839,0.0735229754325,0.0739208577889,0.0741766393037,0.0740913787988,0.0741197989671,0.0737787569473,0.0740061182938,0.0741197989671,0.0741197989671,0.0737219166107,0.0734092947592,0.0740345384622,0.073750336779,0.0736082359374,0.0742618998087,0.0745176813235,0.0743755804819,0.0740061182938,0.0741482191354,0.0751145048581,0.0754839670462,0.0757113283928,0.0761376309175,0.0762228914225,0.0756544880561,0.0756544880561,0.075910269571,0.0759386897393,0.0761660510858,0.0759671099076,0.0761660510858,0.0759386897393,0.075910269571,0.0762228914225,0.0762513115908,0.0763365720957,0.0765923536106,0.0760523704126,0.0759955300759,0.0765923536106,0.0768765552937,0.0772460174818,0.0769618157987,0.0766207737789,0.0763081519274,0.0764786729373,0.0764786729373,0.0766776141155,0.0764786729373,0.076990235967,0.0763365720957,0.0760239502442,0.0759386897393,0.0754271267096,0.0757113283928,0.0748587233433,0.07474504267,0.0751145048581,0.0755123872146,0.0755123872146,0.0757113283928,0.0753418662047,0.0749155636799,0.0749439838482,0.0749155636799,0.0751997653631,0.0752566056997,0.0754555468779,0.075285025868,0.0751145048581,0.0754839670462,0.0753418662047,0.075285025868,0.0751713451948,0.0749724040166,0.0743755804819,0.0746029418285,0.0742618998087,0.0743755804819,0.0744324208186,0.0747734628384,0.0746313619968,0.0744608409869,0.0744324208186,0.0745745216601,0.0738924376206,0.073750336779,0.0735798157691,0.0740629586305,0.0745176813235,0.0746029418285,0.0750008241849,0.0751145048581,0.0750008241849,0.074290319977,0.0719314460068,0.0697999333831,0.0678673619377,0.0660200509972,0.0641727400566,0.0622117484429,0.0599381349776,0.0574940005025,0.0555045887204,0.0536856979482,0.0514973449879,0.0489963701761,0.0471206390673,0.0449038659387,0.0429144541566,0.041152403721,0.039077731434,0.0366051767905)
s <- c(0.0411251389899,0.0407050183873,0.0407361384319,0.0404560580302,0.0407205784096,0.0407672584766,0.0409539787444,0.0409384187221,0.0408761786328,0.0407205784096,0.0405649781864,0.0407828184989,0.0410940189453,0.0413585393247,0.0414830195032,0.041374099347,0.0414985795256,0.0413274192801,0.0409539787444,0.040985098789,0.0410006588113,0.0409072986774,0.0411562590345,0.0412962992354,0.0414674594809,0.0415608196148,0.0416852997934,0.0415763796372,0.0419342601505,0.0419342601505,0.0419653801951,0.0419965002398,0.0419965002398,0.0420431803067,0.0419653801951,0.0418564600389,0.0418097799719,0.0419965002398,0.042105420396,0.0419342601505,0.042105420396,0.042105420396,0.0419342601505,0.0418720200612,0.0418564600389,0.0419809402175,0.0421987805299,0.0418720200612,0.0419498201728,0.0419653801951,0.0418097799719,0.0419187001282,0.0417786599273,0.0420587403291,0.0422299005746,0.0425099809763,0.0426811412218,0.0425566610433,0.042541101021,0.0427122612665,0.0426033411102,0.0424010608201,0.0424166208424,0.0421987805299,0.0418564600389,0.041716419838,0.0414518994586,0.0414830195032,0.0414363394363,0.041374099347,0.0415608196148,0.041716419838,0.0416541797488,0.0417786599273,0.0417475398827,0.0420431803067,0.0419342601505,0.0421987805299,0.0423855007978,0.042541101021,0.0423077006862,0.0421832205076,0.0419965002398,0.0422610206192,0.0421209804183,0.0420431803067,0.0421676604853,0.0422454605969,0.0423543807531,0.0425255409986,0.042447740887,0.0421987805299,0.042105420396,0.0425722210656,0.0423855007978,0.0422143405523,0.0423855007978,0.0424788609317,0.0423232607085,0.0428056214004,0.0429612216236,0.043225742003,0.0431479418914,0.0431168218468,0.0430701417798,0.0433191021369,0.043225742003,0.0431323818691,0.0430545817575,0.0425722210656,0.0426189011326,0.042494420954,0.0426811412218,0.0425722210656,0.0427122612665,0.0424633009094,0.0426967012441,0.0427589413334,0.0430701417798,0.0430390217352,0.0430234617129,0.043225742003,0.0429145415566,0.0427278212888,0.0428989815343,0.0427589413334,0.0428989815343,0.0430701417798,0.0434124622708,0.043179061936,0.0431479418914,0.0640450518662,0.0651342534286,0.0662856950802,0.0675304968657,0.0681217777139,0.0690709390754,0.0699111802806,0.0714671825125,0.0727742243873,0.0739723461059,0.075045987646,0.0760418290744,0.0770843505698,0.0782357922214,0.0797606744087,0.0810365962389,0.0824214382253,0.0835573198546,0.0836662400109,0.0836506799885,0.0834639597207,0.083183879319,0.08352619981,0.083183879319,0.0835417598323,0.0835417598323,0.0832927994752,0.0833861596091,0.0837596001448,0.0831216392297,0.0833705995868,0.0835728798769,0.0835728798769,0.0826859586047,0.082794878761,0.0828104387833,0.0830438391181,0.083090519185,0.0831683192966,0.0834950797653,0.0840241205242,0.0841174806581,0.0845842813277,0.0843508809929,0.0842730808813,0.0845842813277,0.0844909211938,0.0848021216402,0.0849110417964,0.0853156023767,0.08567348289,0.0853467224213,0.0858602031579,0.0854556425776,0.0852844823321,0.0854556425776,0.0853934024883,0.0857512830016,0.085331162399,0.0852066822205,0.0845687213054,0.08459984135,0.084646521417,0.0848021216402,0.0848488017071,0.0851600021535,0.0846154013723,0.0844131210822,0.0842886409036,0.0850199619526,0.0847243215286,0.0852066822205,0.0851911221981,0.0854089625106,0.0856112428008,0.0855178826669,0.0852533622874,0.0854245225329,0.0854089625106,0.0854867626222,0.085331162399,0.0850666420196,0.0848176816625,0.0848176816625,0.0849732818857,0.0845220412384,0.0847554415732,0.0850044019303,0.0843975610599,0.0845220412384,0.0847865616178,0.0845687213054,0.0846776414616,0.0848332416848,0.0850044019303,0.0850044019303,0.0851444421312,0.0851444421312,0.0851444421312,0.0852222422428,0.0849266018187,0.0850044019303,0.0851755621758,0.085035521975,0.0851755621758,0.0850510819973,0.0848643617294,0.0846154013723,0.0847865616178,0.0848332416848,0.0848332416848,0.0847865616178,0.0849732818857,0.0848332416848,0.0848176816625,0.0848488017071,0.0849266018187,0.0852066822205,0.085377842466,0.0857357229793,0.0857979630686,0.0858290831132,0.0853934024883,0.0851444421312,0.0853934024883,0.0856423628454,0.0858913232025,0.0861869636266,0.0864048039391,0.0864048039391,0.0864670440283,0.086498164073,0.0869805247649,0.0872761651889,0.0873695253228,0.0872761651889,0.0874317654121,0.0877429658585,0.0877429658585,0.0878985660817,0.0879296861263,0.0878674460371,0.0880386062826,0.087960806171,0.087914126104,0.0882097665281,0.0881942065058,0.0886143271084,0.08869212722,0.0888477274432,0.0887854873539,0.0885054069522,0.0887543673093,0.088645447153,0.0888944075101,0.0887076872423,0.0887232472646,0.0890655677557,0.089376768202,0.0895946085145,0.0894856883583,0.0894390082913,0.0892367280012,0.0887388072869,0.0886765671977,0.0881786464835,0.0883964867959,0.0885676470414,0.088256446595,0.0880074862379,0.0879763661933,0.0879919262156,0.0880074862379,0.0880541663049,0.0879452461487,0.0880541663049,0.0881942065058,0.0885520870191,0.0884276068406,0.0883342467066,0.0883964867959,0.0878207659701,0.087914126104,0.0875406855684,0.0873539653005,0.0878363259924,0.0880697263272,0.0879919262156,0.0878363259924,0.0876962857916,0.0875406855684,0.0874784454791,0.0872917252113,0.0869649647425,0.0865759641846,0.086451484006,0.0862025236489,0.0859691233141,0.0857824030463,0.0862958837828,0.0863581238721,0.0869338446979,0.0861558435819,0.086062483448,0.0860936034927,0.0861247235373,0.0863892439167,0.086840484564,0.0870272048318,0.0871050049434,0.0876651657469,0.0879763661933,0.087914126104,0.0877274058362,0.0876651657469,0.0883342467066,0.0883342467066,0.0887543673093,0.0884276068406,0.0887699273316,0.0888010473762,0.0883809267736,0.0890033276664,0.089470128336,0.0892989680904,0.0891744879119,0.0895323684252,0.0893923282244,0.0895479284475,0.0899680490502,0.0902170094073,0.0903259295635,0.0908082902554,0.0911194907018,0.091664091483,0.0915084912598,0.0915396113044,0.0915240512821,0.0924420925989,0.0925510127552,0.0929555733355,0.0930644934917,0.0927999731123,0.0924887726659,0.0922709323534,0.0917885716615,0.0918508117508,0.0918819317954,0.0920375320186,0.0918196917062,0.0921931322418,0.0918819317954,0.091617411416,0.0918508117508,0.0921153321302,0.0917263315723,0.0921464521749,0.0924887726659,0.0918352517285,0.0917107715499,0.0920842120856,0.0923020523981,0.0921620121972,0.0921153321302,0.0917885716615,0.0913217709919,0.0913528910366,0.091228410858,0.0913684510589,0.0917263315723,0.0913684510589,0.0913840110812,0.0913373310143,0.0913062109696,0.0913528910366,0.0916018513937,0.0914151311259,0.0916952115276,0.0922242522865,0.0923331724427,0.0925976928221,0.0928622132016,0.09278441309,0.0925043326882,0.092737733023,0.0931734136479,0.0932356537372,0.0935624142059,0.0940292148755,0.0936402143175,0.0937958145407,0.094200375121,0.0941848150987,0.0943715353665,0.0951339764602,0.0954607369289,0.0951339764602,0.095320696728,0.0952428966164,0.0959119775761,0.0959586576431,0.0965499384912,0.0967055387144,0.0972034594286,0.0973434996295,0.0971878994063,0.0976858201205,0.0980748206785,0.0983860211249,0.098292660991,0.0984171411695,0.098339341058,0.0987127815936,0.098977301973,0.0991951422855,0.0989928619954,0.0991017821516,0.0995530227989,0.0998331032006,0.100471064116,0.10050218416,0.100844504651,0.101109025031,0.101062344964,0.101700305879,0.102011506325,0.102011506325,0.102058186392,0.101871466124,0.102073746415,0.101451345522,0.101233505209,0.101855906102,0.101871466124,0.102680587285,0.103256308111,0.104096549316,0.104501109896,0.104890110454,0.105107950767,0.104952350544,0.105419151213,0.10546583128,0.105714791637,0.105808151771,0.106041552106,0.106290512463,0.106461672709,0.106321632508,0.106383872597,0.106290512463,0.1068039932,0.106975153445,0.107021833512,0.107068513579,0.106772873155,0.107146313691,0.107115193646,0.107270793869,0.107535314249,0.107441954115,0.107830954673,0.108017674941,0.108733435967,0.108935716257,0.108795676057,0.109169116592,0.109713717373,0.110149397998,0.111082999337,0.11109855936,0.110771798891,0.110802918936,0.110849599003,0.110756238869,0.110678438757,0.110569518601,0.110771798891,0.110647318713,0.110553958579,0.11083403898,0.11103631927,0.11083403898,0.111067439315,0.110911839092,0.110818478958,0.110958519159,0.111020759248,0.111409759806,0.111720960253,0.111689840208,0.112281121056,0.11277904177,0.11298132206,0.112747921726,0.11304356215,0.112592321502,0.112234440989,0.112887961926,0.112498961369,0.11324584244,0.113463682752,0.113681523065,0.113821563266,0.113479242775,0.112607881525,0.112047720721,0.111923240543,0.112109960811,0.112001040654,0.112016600677,0.112234440989,0.112343361145,0.11190768052,0.112156640877,0.112856841882,0.11284128186,0.113152482306,0.113479242775,0.113261402462,0.114008283533,0.114397284091,0.114506204248,0.114257243891,0.114163883757,0.114195003801,0.114288363935,0.114241683868,0.113603722953,0.113463682752,0.1140549636,0.113806003243,0.11472404456,0.114832964716,0.114879644783,0.115066365051,0.114739604582,0.114443964158,0.114257243891,0.114195003801,0.11452176427,0.115299765386,0.1157976861,0.115875486212,0.11606220648,0.116280046792,0.116606807261,0.116902447685,0.117493728533,0.118271729649,0.118302849694,0.118287289671,0.118769650363,0.118956370631,0.118831890452,0.118956370631,0.118582930095,0.118489569961,0.118287289671,0.118754090341,0.118754090341,0.118302849694,0.118302849694,0.11794496918,0.118178369515,0.118551810051,0.118256169627,0.118302849694,0.118038329314,0.118691850252,0.118396209828,0.118162809493,0.118131689448,0.118427329872,0.118365089783,0.118318409716,0.117711568845,0.117649328756,0.117602648689,0.117680448801,0.117431488444,0.117369248354,0.116902447685,0.116715727417,0.116077766502,0.115408685542,0.115237525297,0.114879644783,0.115004124962,0.115330885431,0.11539312552,0.115206405252,0.115626525855,0.11559540581,0.115486485654,0.115470925631,0.115751006033,0.115626525855,0.115517605698,0.115766566056,0.115564285765,0.115688765944,0.1157976861,0.115953286323,0.115782126078,0.115144165163,0.114895204806,0.11498856494,0.11512860514,0.115004124962,0.11512860514,0.115050805029,0.115502045676,0.115346445453,0.115097485096,0.115175285207,0.114957444895,0.114864084761,0.115439805587,0.115673205922,0.116031086435,0.116155566614,0.116420086993,0.116637927305,0.116155566614,0.11512860514,0.115206405252,0.115284205364,0.114879644783,0.114895204806,0.114910764828,0.114832964716,0.114443964158,0.114584004359,0.114163883757,0.113681523065,0.113525922842,0.113105802239,0.112483401346,0.111938800565,0.112016600677,0.112514521391,0.112109960811,0.111720960253,0.111285279628,0.111425319828,0.111223039538,0.111440879851,0.111627600119,0.111409759806,0.111363079739,0.111160799449,0.11130083965,0.111269719605,0.110911839092,0.110709558802,0.110569518601,0.109931557686,0.109698157351,0.109433636972,0.109122436525,0.109106876503,0.109169116592,0.109667037306,0.109651477284,0.109604797217,0.109931557686,0.109651477284,0.109853757574,0.109869317597,0.109931557686,0.109884877619,0.109667037306,0.109667037306,0.109729277396,0.109869317597,0.109651477284,0.108904596213,0.109060196436,0.109262476726,0.109231356681,0.108593395766,0.108826796101,0.108640075833,0.108064355008,0.10807991503,0.108064355008,0.107457514137,0.107581994316,0.107597554338,0.107301913914,0.106679513021,0.106119352218,0.106523912798,0.106150472262,0.105543631392,0.105543631392,0.106010432061,0.105247990968,0.104843430387,0.104438869807,0.103972069138,0.103396348312,0.1033185482,0.102820627486,0.102431626928,0.102758387397,0.102665027263,0.102587227151,0.102151546526,0.102524987062,0.102602787173,0.101949266236,0.101622505767,0.101124585053,0.100642224361,0.100393264004,0.100144303647,0.0993818625533,0.0989150618838,0.0988061417275,0.0985727413927,0.0985260613258,0.0987439016383,0.0981370607678,0.0977947402768,0.0973746196742,0.0972812595402,0.097172339384,0.0965810585359,0.0966588586475,0.096830018893,0.0968144588707,0.0962854181118,0.0962854181118,0.0954296168842,0.0954140568619,0.0949939362593,0.0947605359245,0.0944026554112,0.0939669747862,0.0937802545184,0.0930333734471,0.0931111735587,0.0926443728891,0.092737733023,0.0922086922641,0.0918041316838,0.0918196917062,0.0915240512821,0.0918663717731,0.0920686520633,0.0916796515053,0.0919130518401,0.0919908519517,0.0919908519517,0.0917885716615,0.0913373310143,0.0907771702108,0.0904659697644,0.0901858893626,0.0900302891394,0.0902170094073,0.0903103695412,0.0906682500545,0.0907927302331,0.0904659697644,0.0906371300099,0.090201449385,0.0899058089609,0.0897813287823,0.0899836090725,0.0903570496082,0.0903414895858,0.0904659697644,0.090543769876,0.0906838100769,0.0907460501661,0.0906215699876,0.0906526900322,0.0904504097421,0.08976576876,0.0898280088493,0.0896724086261,0.0897813287823,0.0902325694296,0.0899213689832,0.0897190886931,0.0898902489386,0.0900147291171,0.0898435688716,0.0893145281128,0.0893145281128,0.089081127778,0.0893145281128,0.0892522880235,0.0891900479342,0.0885832070638,0.0882408865727,0.0880074862379,0.0877118458139,0.0876340457023,0.0874162053898,0.0869805247649,0.0874006453675,0.087525125546,0.0876029256576,0.0877429658585,0.0871516850104,0.0870738848988,0.0871516850104,0.0873072852336,0.0871983650773,0.0868560445863,0.0868560445863,0.0862492037159,0.0864826040506,0.0866226442515,0.0862336436935,0.0864048039391,0.0863581238721,0.086062483448,0.0863425638498,0.0865292841176,0.0862958837828,0.0860469234257,0.0857046029347,0.0862647637382,0.0861714036043,0.0862025236489,0.0862180836712,0.0861558435819,0.0865604041622,0.0868871646309,0.0871205649657,0.086793804497,0.0863892439167,0.0864048039391,0.0866848843408,0.0865292841176,0.0856890429124,0.0855956827784,0.0856423628454,0.0854245225329,0.0853000423544,0.0855490027115,0.0850199619526,0.0847243215286,0.0847087615062,0.0850199619526,0.0852689223097,0.0853156023767,0.0855023226445,0.0862492037159,0.0864203639614,0.0862180836712,0.0861247235373,0.0862803237605,0.0861558435819,0.0861247235373,0.0863425638498,0.0862336436935,0.086793804497,0.0866537642962,0.0866537642962,0.0869649647425,0.0869027246533,0.0870116448095,0.0867782444747,0.0868871646309,0.0867626844524,0.0871050049434,0.0877274058362,0.0876962857916,0.0875406855684,0.0878207659701,0.0881475264388,0.087960806171,0.0877429658585,0.0876651657469,0.0874317654121,0.0874162053898,0.0878830060594,0.0878674460371,0.0883342467066,0.0884276068406,0.0885209669745,0.0888166073985,0.0889255275548,0.0881630864611,0.0882097665281,0.0881942065058,0.0878518860147,0.0880074862379,0.0876029256576,0.0872761651889,0.0868871646309,0.0868093645194,0.0866848843408,0.0865759641846,0.0868716046086,0.086109163515,0.0860313634034,0.0857512830016,0.0856112428008,0.0852378022651,0.0851133220865,0.085035521975,0.0846932014839,0.084646521417,0.0844909211938,0.0843664410152,0.0842730808813,0.0845220412384,0.0850044019303,0.0853000423544,0.0856890429124,0.0853156023767,0.084988841908,0.085377842466,0.0851133220865,0.0848643617294,0.0844753611715,0.0843508809929,0.0841952807697,0.0842419608367,0.0841797207474,0.0842730808813,0.0846154013723,0.0843197609483,0.0844131210822,0.0845687213054,0.0848643617294,0.0849110417964,0.0847087615062,0.0847087615062,0.0843197609483,0.0848176816625,0.0847554415732,0.0848332416848,0.0853156023767,0.0854245225329,0.0854556425776,0.085035521975,0.0849577218634,0.0851133220865,0.0850666420196,0.084988841908,0.0851444421312,0.0850822020419,0.0845531612831,0.0845842813277,0.0848488017071,0.0848021216402,0.0846154013723,0.084257520859,0.0841486007028,0.0839463204126,0.0839774404572,0.0841019206358,0.083868520301,0.0836973600555,0.0840863606135,0.0837129200778,0.0836195599439,0.0842730808813,0.0846932014839,0.0845687213054,0.0846309613947,0.0845842813277,0.0843508809929,0.0841330406804,0.084257520859,0.0844442411268,0.0845064812161,0.0848176816625,0.0841174806581,0.0841486007028,0.0839774404572,0.0837596001448,0.0841019206358,0.0836506799885,0.0836506799885,0.0837440401225,0.0839930004796,0.0840085605019,0.0841797207474,0.0838062802117,0.0833394795421,0.0835573198546,0.0839930004796,0.0842419608367,0.0845842813277,0.0848954817741,0.085035521975,0.0849732818857,0.0854089625106,0.0855334426892,0.0852689223097,0.0854089625106,0.0852378022651,0.0845842813277,0.0845687213054,0.0843508809929,0.084257520859,0.0840241205242,0.084257520859,0.0844909211938,0.0845064812161,0.0845064812161,0.08459984135,0.0845376012607,0.0844286811045,0.0845220412384,0.084942161841,0.0852844823321,0.0851288821089,0.0855023226445,0.0855645627338,0.0856423628454,0.0849266018187,0.0835573198546,0.0823747581584,0.0812544365514,0.0803208352122,0.0792160736275,0.0779090317527,0.0764308296324,0.074999307579,0.0737233857488,0.072369663807,0.0709692617983,0.0693510194771,0.0685418983165,0.0672348564417,0.0660522947454,0.0651653734732,0.0638272115538,0.062473489612,0.0423699407754,0.042494420954,0.0424010608201,0.0423855007978,0.042152100463,0.0418253399943,0.041763099905,0.0415763796372,0.0412496191685,0.0412962992354,0.0411095789676,0.0409695387667,0.0411873790792,0.0410784589229,0.0410784589229,0.041031778856,0.0408761786328,0.0411406990122,0.0411562590345,0.0411718190569,0.0414674594809,0.0412651791908,0.0412496191685,0.0412807392131,0.0413896593693,0.0411251389899,0.0412651791908,0.0415608196148,0.041716419838,0.0419653801951,0.0416541797488,0.0418253399943,0.0418875800835,0.0416852997934,0.0418564600389,0.0418409000166,0.041716419838,0.0415608196148,0.0418875800835,0.0420587403291,0.0419809402175,0.0421365404407,0.0420898603737,0.0422610206192,0.0421832205076,0.0420587403291,0.0421365404407,0.0421832205076,0.0420587403291,0.0422765806415,0.0420431803067,0.0420743003514,0.0419498201728,0.0418564600389,0.0416541797488,0.041420779414,0.0412029391015,0.0412496191685,0.0412184991238,0.0413274192801,0.0413585393247,0.0414363394363,0.0412651791908,0.0409228586997,0.0406738983426,0.0405182981194,0.0404404980079,0.0401137375391,0.039958137316,0.0401448575838,0.0400670574722,0.0403626978963,0.0405649781864,0.0406738983426,0.0405027380971,0.04025377774,0.0402848977847,0.0405805382087,0.0405338581418,0.0403938179409,0.0405494181641,0.040642778298,0.040689458365,0.0408294985658,0.0407361384319,0.0406583383203,0.0404404980079,0.0406116582534,0.0408606186105,0.0409695387667,0.0411251389899,0.0413585393247,0.0416852997934,0.0415919396595,0.0416697397711,0.0415296995702,0.0411873790792,0.0414518994586,0.0415452595925,0.041716419838,0.0421676604853,0.0422299005746,0.0422765806415,0.0427589413334,0.0428056214004,0.0429923416682,0.04327242207,0.0431635019137,0.0431168218468,0.0430234617129,0.0430857018021,0.043179061936,0.0433191021369,0.043179061936,0.0433969022485,0.0434124622708,0.0434902623824,0.0433657822039,0.0429301015789,0.0427278212888,0.0428523014673,0.042541101021,0.0425877810879,0.0422921406638,0.0421365404407,0.0418564600389,0.0417786599273,0.0416230597041,0.0414674594809,0.0414830195032,0.0414518994586)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("ChIPseq_H3K36me3_iSLK219-GSM1359507.36mers.macs2.0.9_model.pdf",height=6,width=6)
plot(x,p,type="l",col=c("red"),main="Peak Model",xlab="Distance to the middle",ylab="Percentage")
lines(x,m,col=c("blue"))
lines(x,s,col=c("black"))
abline(v=median(x[p==max(p)]),lty=2,col=c("red"))
abline(v=median(x[m==max(m)]),lty=2,col=c("blue"))
abline(v=median(x[s==max(s)]),lty=2,col=c("black"))
legend("topleft",c("forward tags","reverse tags","shifted tags"),lty=c(1,1,1),col=c("red","blue","black"))
legend("right",c("d=262"),bty="n")
dev.off()