# R script for Peak Model
#  -- generated by MACS
p <- c(0.0423764135069,0.0447114727035,0.0468627687611,0.0490108964888,0.0512081333312,0.0534323009784,0.0556786469355,0.0579012304178,0.0601903488296,0.0624842197365,0.0646101691543,0.0668359209665,0.0690363261389,0.0711701963816,0.0733579282341,0.0755630859014,0.0777729960638,0.0800209261859,0.0800240945158,0.0800462728257,0.0800684511356,0.0799702329062,0.079989242886,0.0799813220611,0.0799591437512,0.0799797378961,0.0799433021013,0.0799638962462,0.0799797378961,0.0799638962462,0.0800114211959,0.0800066687009,0.0799068663065,0.0800272628458,0.0799179554615,0.0798704305117,0.0799353812764,0.0798038955821,0.0799179554615,0.0799575595862,0.0799765695661,0.0799132029665,0.0799433021013,0.0799132029665,0.0798577571918,0.0797595389624,0.0797943905922,0.0798577571918,0.0798514205318,0.0798973613166,0.0799385496063,0.0799496387613,0.0799337971114,0.0799591437512,0.0799734012361,0.0799163712965,0.0798007272521,0.079822905562,0.0798086480771,0.0797215190026,0.0796644890629,0.0795520133486,0.0795472608536,0.0795947858033,0.0796169641132,0.0795789441534,0.0795456766886,0.0794617159441,0.0795646866685,0.079477557594,0.0794601317791,0.0795298350387,0.0795029042338,0.0794411217992,0.0793444877347,0.0793492402297,0.0792668636502,0.0793714185396,0.07930488361,0.0792874577951,0.0792367645154,0.0792383486804,0.07930488361,0.0792034970506,0.0792288436904,0.0793159727649,0.0792668636502,0.0793286460848,0.0792874577951,0.079122704636,0.0790450805515,0.0788803273924,0.078946862322,0.0788375549377,0.0787931983179,0.0788137924628,0.0788359707727,0.0788930007123,0.0789025057023,0.0789326048371,0.078954783147,0.0790118130867,0.0790625063664,0.0790704271913,0.0790498330464,0.0791417146159,0.0791369621209,0.0791068629861,0.0792256753604,0.0793809235295,0.0793524085597,0.0793745868696,0.0794997359039,0.0794363693042,0.0793524085597,0.0792842894651,0.0792478536703,0.07930488361,0.0792732003102,0.079293794455,0.0792272595254,0.0791607245958,0.0792716161452,0.0792383486804,0.079293794455,0.0793761710346,0.0793793393645,0.0796090432882,0.0795425083586,0.0796185482782,0.0795900333083,0.0795900333083,0.0795456766886,0.0795551816785,0.0796280532681,0.0795678549985,0.0795330033687,0.0795662708335,0.0794284484793,0.079477557594,0.079479141759,0.0794141909943,0.0794236959843,0.0794981517389,0.079479141759,0.079471220934,0.0795472608536,0.0795662708335,0.0795868649784,0.0795250825437,0.0795631025035,0.079647063248,0.0797151823426,0.0796391424231,0.0796739940529,0.0797215190026,0.0797848856022,0.0797848856022,0.0797389448175,0.0797848856022,0.079829242222,0.0799116188015,0.0799322129464,0.0799179554615,0.0799433021013,0.079998747876,0.0801096394254,0.0801856793449,0.0802775609144,0.080353600834,0.0802094418198,0.0803757791438,0.0804771657032,0.0804724132083,0.0805848889226,0.0805357798079,0.0804961756831,0.0805373639729,0.0807147904519,0.0806419188623,0.0805516214578,0.0806244930474,0.0805326114779,0.0804438982384,0.0803615216589,0.0804423140734,0.0804312249185,0.0804518190634,0.0804106307736,0.0804771657032,0.0804755815383,0.0804391457435,0.0804153832686,0.0803947891237,0.0804597398883,0.0803044917192,0.0801619168701,0.0801476593851,0.0800842927855,0.0800874611155,0.0800684511356,0.0800747877956,0.0800494411557,0.0798941929866,0.0798640938518,0.0797817172722,0.0797833014372,0.0796850832078,0.0795947858033,0.0795187458837,0.0795979541333,0.0796676573929,0.0798118164071,0.0797326081575,0.0796787465478,0.0796739940529,0.0796153799482,0.0794332009742,0.0795092408938,0.0795852808134,0.0795836966484,0.0796328057631,0.0797120140126,0.0796930040327,0.0797928064272,0.0797421131475,0.0798403313769,0.079818153067,0.0799480545963,0.080001916206,0.0799702329062,0.0800969661054,0.0802886500693,0.0802537984395,0.0802997392243,0.0802252834697,0.080353600834,0.0803092442142,0.0804233040936,0.080512017333,0.0805991464075,0.0806514238522,0.0808510286411,0.0809334052206,0.0809761776754,0.0810775642348,0.0810918217197,0.0811979607741,0.0811536041544,0.0812692481987,0.0813563772732,0.0814308330278,0.0816209328267,0.081744497696,0.0818157851206,0.0819631124647,0.0820169740744,0.0820740040141,0.0821864797284,0.0823322229076,0.0823464803925,0.0825175702115,0.0824811344167,0.082606283451,0.0824922235717,0.0825033127266,0.0824969760667,0.082607867616,0.0825856893061,0.0827124225054,0.0828645023445,0.0829231164492,0.0828549973546,0.082964304739,0.0829294531092,0.0831433153829,0.0831559887029,0.0833334151819,0.0832874743971,0.0833191576969,0.0834696533711,0.0835235149808,0.0835203466508,0.0834728217011,0.0835393566307,0.0836328223651,0.0836328223651,0.0835678716005,0.0836011390653,0.0837611397294,0.0838894570937,0.0838910412587,0.0840256952829,0.0840906460475,0.0841888642769,0.0841001510375,0.0840763885626,0.0840478735928,0.0841445076572,0.0841920326069,0.0843853007358,0.0845136181001,0.0846245096494,0.0846102521645,0.084882728543,0.0849983725873,0.0851092641367,0.0853199580805,0.0854926320645,0.0856209494287,0.0857255043181,0.0857175834932,0.085925109107,0.085926693272,0.0860391689863,0.0860676839562,0.0860835256061,0.0862419421052,0.0862862987249,0.086446299389,0.0865777850832,0.086447883554,0.0865191709786,0.0867631323872,0.0867821423671,0.0866680824877,0.0866332308579,0.0866775874777,0.0866839241376,0.0868249148218,0.0868169939969,0.0870577870755,0.0872463027094,0.0873270951239,0.0874221450234,0.0874427391683,0.0874379866733,0.0875219474178,0.0875789773575,0.0877754138164,0.0876233339772,0.0875694723676,0.0875029374379,0.0875187790878,0.0875045216029,0.0875758090275,0.087666106432,0.0878070971162,0.087841948746,0.0878625428909,0.0879306619855,0.0879892760901,0.0880558110198,0.0879655136153,0.0881350192693,0.0882680891285,0.0882427424887,0.0884344264526,0.088534228847,0.0885041297122,0.0886371995714,0.0887876952456,0.0889397750847,0.0890839340989,0.0892090831331,0.0890078941793,0.0890775974389,0.0889223492698,0.0889651217245,0.0890379933141,0.0889746267145,0.0890379933141,0.0890855182639,0.0891076965737,0.0891631423484,0.0891267065536,0.0891773998333,0.0892835388877,0.0893453213224,0.0893500738173,0.0894467078818,0.0894356187268,0.089407103757,0.0894197770769,0.0894276979019,0.0894625495317,0.0895354211213,0.0895417577812,0.0894356187268,0.0895179953064,0.0894308662319,0.0892138356281,0.0892645289078,0.0893532421473,0.0893754204572,0.0893627471373,0.089410272087,0.0894530445417,0.089407103757,0.089405519592,0.0893484896523,0.0895275002963,0.0894894803365,0.0896177977008,0.0896510651656,0.0896859167954,0.0898522541195,0.0899425515239,0.0901358196528,0.0903449294316,0.0904209693512,0.0905176034156,0.0905112667557,0.0905920591702,0.0907932481241,0.0908629513837,0.0908946346835,0.0908962188485,0.0910023579029,0.0909421596332,0.090984932088,0.0910007737379,0.0909453279632,0.0911290911021,0.0912843392712,0.0913762208407,0.0914823598951,0.091674043859,0.0917770145834,0.0918277078631,0.091848302008,0.0920494909618,0.0920843425916,0.0920954317466,0.0921825608211,0.0922142441209,0.0923615714651,0.0924170172397,0.0925770179038,0.0927290977429,0.0927924643426,0.0927924643426,0.0927560285478,0.0927782068577,0.0926688994733,0.0925294929541,0.0925025621492,0.0924249380647,0.0925817703988,0.0924756313444,0.0923932547649,0.0924756313444,0.092546918769,0.0926768202982,0.0926989986081,0.0926942461131,0.0926641469783,0.0927354344029,0.092722761083,0.0926055328737,0.0925770179038,0.0925690970789,0.0924883046643,0.0923599873001,0.0922966207004,0.0922475115857,0.0922221649459,0.0920669167767,0.0919987976821,0.0920795900967,0.0920827584267,0.0920431543019,0.0919290944225,0.0918372128531,0.091848302008,0.0917247371387,0.0917469154486,0.0917168163138,0.0916376080642,0.0916170139193,0.0916344397342,0.0916154297543,0.0915140431949,0.0915441423297,0.091507706535,0.0916582022091,0.0916376080642,0.0916312714042,0.0915251323499,0.0914585974202,0.091331864221,0.091320775066,0.0912954284262,0.0912193885066,0.091317606736,0.0913683000158,0.0913762208407,0.091322359231,0.0913635475208,0.0914633499152,0.09149661738,0.0914712707402,0.0913999833156,0.0915425581648,0.0915980039394,0.0914633499152,0.091495033215,0.0915092906999,0.091507706535,0.0915520631547,0.0913477058709,0.0912684976213,0.091159190237,0.091144932752,0.0911766160519,0.0911116652872,0.0910086945628,0.0910134470578,0.0910118628928,0.0910229520477,0.0908851296935,0.0907694856492,0.0907077032145,0.0906379999549,0.0906411682849,0.0905730491903,0.0906142374801,0.0905667125304,0.0904985934357,0.0904352268361,0.090286315327,0.0902372062122,0.0901263146629,0.0900597797333,0.0900724530532,0.0900423539184,0.089937799029,0.0899045315642,0.0899758189887,0.0898411649645,0.0897366100751,0.0896970059503,0.0895322527913,0.0894181929119,0.089402351262,0.0893595788073,0.089403935427,0.0895053219864,0.0894768070166,0.0894419553868,0.0893975987671,0.0893500738173,0.0893738362922,0.0892486872579,0.0892486872579,0.0890918549238,0.0891568056884,0.0891092807387,0.0891124490687,0.0891061124087,0.0890490824691,0.0890807657689,0.0890474983041,0.0891488848635,0.0891520531935,0.0891156173987,0.0891552215235,0.0891948256482,0.089228093113,0.0892629447428,0.0892645289078,0.0892661130728,0.0893294796725,0.0893073013626,0.0891884889883,0.0891156173987,0.089060171624,0.0891298748836,0.0891789839983,0.0893009647026,0.0893136380225,0.0892692814028,0.089231261443,0.0891964098132,0.089236013938,0.0892534397529,0.0892930438777,0.0893865096121,0.089402351262,0.0894292820669,0.0894942328315,0.089582946071,0.0895132428114,0.0894799753466,0.0893183905175,0.089231261443,0.0891726473384,0.0891552215235,0.0890744291089,0.0889635375596,0.0889112601149,0.0889350225897,0.0889096759499,0.0887876952456,0.0886783878612,0.0885469021669,0.0883536340381,0.0882237325088,0.0880478901948,0.0879195728305,0.0879465036354,0.0879211569955,0.0878942261907,0.0877231363717,0.0875979873374,0.0874237291884,0.0872653126893,0.0871797677798,0.0870783812204,0.086976994661,0.0867647165522,0.0866823399726,0.0864763985238,0.0863227345197,0.0861912488255,0.0861548130307,0.0859995648616,0.0858047125677,0.085747682628,0.0856700585435,0.0857302568131,0.0856637218835,0.0857049101733,0.0855924344589,0.0855559986641,0.0854847112395,0.0853706513602,0.0852756014607,0.0851472840965,0.0851346107765,0.0851346107765,0.0851361949415,0.0851203532916,0.0849651051225,0.0849302534927,0.0849144118428,0.0848589660681,0.0848209461083,0.0847639161687,0.0847987677985,0.0847686686636,0.0847401536938,0.0846862920841,0.0846561929493,0.0845975788446,0.0845769846997,0.0845896580196,0.0845738163697,0.0846783712591,0.0845611430498,0.0844755981403,0.0844439148405,0.0844708456453,0.0844074790457,0.084361538261,0.0843108449812,0.0842601517015,0.0842902508364,0.0841936167719,0.0840985668725,0.0840256952829,0.0839274770534,0.0838419321439,0.0838023280192,0.0838070805141,0.0837516347395,0.0836708423249,0.083661337335,0.0836977731298,0.0837278722646,0.0836930206348,0.0837753972143,0.083655000675,0.0835868815804,0.0835425249607,0.0834934158459,0.0835187624858,0.0834918316809,0.0835314358057,0.083487079186,0.0835488616206,0.0834221284213,0.0835045050009,0.0833920292865,0.083308068542,0.0833635143167,0.0833587618217,0.0832209394675,0.0831132162481,0.0832447019424,0.0832573752623,0.0832748010772,0.0832447019424,0.0830957904332,0.0830023246988,0.082965888904,0.0829452947591,0.0829706413989,0.0830340079986,0.0829690572339,0.0829088589643,0.0827947990849,0.0828248982198,0.0826949966905,0.0826252934309,0.0825872734711,0.0825666793263,0.0824272728071,0.0824542036119,0.0823559853825,0.0823132129277,0.0822276680182,0.0822070738733,0.0821167764688,0.082080340674,0.0821009348189,0.0819029141951,0.0819868749396,0.0817920226457,0.0817048935712,0.081731824376,0.0815338037522,0.0815037046174,0.0814926154624,0.0814688529876,0.0813706347581,0.0812835056836,0.0813009314985,0.0812565748788,0.0813040998285,0.0812977631685,0.0813199414784,0.0812692481987,0.0812644957037,0.0813452881183,0.0814593479976,0.0814846946375,0.0814894471324,0.0814435063477,0.0815401404121,0.0815433087421,0.081563902887,0.0815559820621,0.0816003386818,0.081560734557,0.0816351903116,0.0817270718811,0.0817207352211,0.0816922202513,0.081744497696,0.0817872701507,0.0818157851206,0.0819520233098,0.0818601417403,0.08192034001,0.0820233107344,0.0819551916398,0.082096182324,0.0822213313582,0.082259351318,0.0822466779981,0.0822736088029,0.082270440473,0.0822403413381,0.0821278656238,0.0821326181187,0.0821738064085,0.0821088556439,0.0821674697485,0.0821722222435,0.0821532122636,0.0820043007545,0.0819963799295,0.0820549940342,0.0820787565091,0.0820233107344,0.0820153899094,0.0820565781992,0.0821738064085,0.0820581623642,0.0820043007545,0.0820391523843,0.081912419185,0.08190766669,0.0819504391448,0.0819235083399,0.0818078642956,0.0817603393459,0.0817492501909,0.0817936068107,0.0817730126658,0.0818316267705,0.0817191510561,0.081741329366,0.0816256853217,0.0816510319615,0.0817033094062,0.0816431111366,0.0816035070118,0.0815005362874,0.081560734557,0.0814530113376,0.0813817239131,0.0814751896475,0.0814973679574,0.0814181597078,0.0812518223838,0.0812882581786,0.0813056839935,0.0812312282389,0.0811456833294,0.0811488516594,0.0810728117398,0.0809698410154,0.0807607312366,0.0807100379569,0.0807971670314,0.0808415236512,0.0808985535908,0.0809096427458,0.0807971670314,0.0807987511964,0.0807369687618,0.0806482555223,0.0806609288422,0.0806244930474,0.0806276613774,0.0805547897878,0.0806625130072,0.0805753839327,0.0805642947777,0.0806134038925,0.0805500372928,0.0806086513975,0.0805912255826,0.0805595422828,0.0806276613774,0.0806736021621,0.080691027977,0.0806339980373,0.0805611264478,0.0806038989025,0.0806736021621,0.0805452847979,0.0804676607133,0.0804502348984,0.0804898390232,0.0803789474738,0.0804296407535,0.080513601498,0.0805405323029,0.0806149880575,0.0804835023632,0.0804438982384,0.0804565715584,0.080344095844,0.0803298383591,0.0802648875945,0.0804328090835,0.0805627106128,0.0805785522627,0.0805769680977,0.0805848889226,0.080524690653,0.0806197405524,0.0806213247174,0.0806371663673,0.0805769680977,0.0805690472727,0.0805389481379,0.0806720179971,0.0807306321018,0.0806070672325,0.0806070672325,0.0805706314377,0.0806102355625,0.0807068696269,0.0807718203916,0.0807591470716,0.0809191477357,0.0809349893856,0.0809080585808,0.0809334052206,0.0810284551201,0.0810332076151,0.0810189501301,0.0810141976352,0.0810997425447,0.0811694458043,0.0809745935104,0.0809856826653,0.0812011291041,0.0812486540538,0.0812454857238,0.0811155841946,0.0811599408143,0.0811330100095,0.0810553859249,0.0810680592449,0.0811425149994,0.0810569700899,0.081221723249,0.0811092475346,0.0811678616393,0.081220139084,0.0811551883194,0.0810839008948,0.0811440991644,0.0812011291041,0.0812296440739,0.0812787531886,0.0813769714181,0.0814149913779,0.0814450905127,0.081563902887,0.0815037046174,0.0814514271727,0.0815955861868,0.0816367744766,0.0816795469313,0.0817239035511,0.0818157851206,0.0818870725452,0.0818648942353,0.0819837066096,0.0821817272335,0.0822197471932,0.0822023213783,0.0822149946983,0.0823005396078,0.0823924211773,0.0823227179177,0.0823163812577,0.0824225203121,0.0824494511169,0.0824256886421,0.0824082628272,0.0823749953624,0.0825698476562,0.0824843027467,0.0825033127266,0.0825397485214,0.0825349960264,0.0825413326864,0.0827393533103,0.0827757891051,0.0828518290246,0.0827567791252,0.0827203433304,0.0826680658857,0.0825951942961,0.082615788441,0.0827678682801,0.0827314324853,0.0828375715397,0.0828613340146,0.0828296507147,0.0828344032097,0.0829437105941,0.0829373739341,0.0828930173144,0.0828138090648,0.0828058882399,0.0826807392056,0.0827805416,0.0826886600306,0.0826712342157,0.0826648975557,0.0827108383404,0.0826934125255,0.0826759867106,0.0827108383404,0.0827124225054,0.0826633133907,0.0825571743363,0.0825603426663,0.0825650951613,0.0825381643564,0.0825540060063,0.0825112335516,0.0823591537124,0.0823448962275,0.0822023213783,0.0821183606338,0.0819979640945,0.0819456866498,0.0819726174547,0.0819821224446,0.0819789541146,0.0820692515191,0.0819282608349,0.0819710332897,0.0820264790644,0.0819726174547,0.0818886567101,0.0818553892453,0.0818094484606,0.0818126167906,0.0817603393459,0.0817793493258,0.0817112302312,0.0817540026859,0.0817048935712,0.0818443000904,0.0818110326256,0.0818142009556,0.081912419185,0.0818316267705,0.0818363792654,0.0818617259053,0.0818965775351,0.0819044983601,0.0818870725452,0.0819599441347,0.0819425183198,0.0819646966297,0.0820011324245,0.0819314291649,0.0820502415392,0.0821516280986,0.0822260838532,0.0822149946983,0.0821294497888,0.0821532122636,0.082080340674,0.0819044983601,0.0820074690845,0.0819710332897,0.0818569734103,0.0818490525854,0.0817112302312,0.081747666026,0.0817793493258,0.0818110326256,0.081738161036,0.0816320219816,0.0816827152613,0.0817080619012,0.0818569734103,0.0816336061466,0.0815401404121,0.0815005362874,0.081399149728,0.0815306354222,0.081562318722,0.0814672688226,0.0814783579775,0.081571823712,0.0816969727462,0.0816953885813,0.0817207352211,0.0817064777362,0.0817555868509,0.0817239035511,0.0817555868509,0.0818268742755,0.08191717168,0.0819916274346,0.0820977664889,0.0820993506539,0.0821785589035,0.0822308363482,0.0821658855836,0.082093013994,0.0821722222435,0.0821785589035,0.0823100445977,0.0823639062074,0.0823322229076,0.0822862821229,0.0823211337527,0.0824177678171,0.0822720246379,0.0823116287627,0.0821722222435,0.0822292521832,0.0823591537124,0.0824557877769,0.0824922235717,0.0825080652216,0.0825191543765,0.0825920259661,0.0827076700104,0.0827266799903,0.0826522242358,0.0826965808555,0.0826728183806,0.0827124225054,0.082611035946,0.0826854917006,0.0826902441955,0.0825904418011,0.0826015309561,0.0825508376763,0.0825555901713,0.0826363825859,0.0825714318212,0.0826965808555,0.0827757891051,0.0829801463889,0.0829753938939,0.0829880672138,0.0830102455237,0.0830403446585,0.0831575728679,0.0833429201718,0.0835124258258,0.0836771789849,0.0838498529689,0.0838514371339,0.0839750020032,0.0839876753231,0.0840431210978,0.0840779727276,0.0841159926874,0.084171438462,0.0842379733917,0.0842601517015,0.0841888642769,0.0842332208967,0.0842823300114,0.0842886666714,0.0844153998706,0.0844423306755,0.0845643113798,0.0846878762491,0.0846783712591,0.0848193619433,0.0847417378588,0.0848051044584,0.0847575795087,0.0847718369936,0.0848130252834,0.0847655003336,0.0847274803739,0.0845722322047,0.0846767870941,0.0847258962089,0.0848272827683,0.0847734211586,0.0847496586837,0.0846656979392,0.08452945975,0.0844771823053,0.0844043107157,0.0843805482408,0.084358369931,0.0844866872952,0.0844090632107,0.0842759933514,0.0841952009369,0.0840716360676,0.0840225269529,0.0839654970132,0.0839179720635,0.0839068829086,0.0838118330091,0.0839306453834,0.0837991596892,0.0837658922244,0.0836708423249,0.0837136147797,0.0838451004739,0.083824506329,0.0837088622847,0.0837896546992,0.0838641104538,0.0838435163089,0.0838466846389,0.0838403479789,0.0838577737938,0.0839433187034,0.0838561896289,0.0815005362874,0.0790751796863,0.0767575463046,0.0743939721381,0.0720620812715,0.0697856361796,0.067444240323,0.0651329436013,0.0628438251894,0.0605261918077,0.0581293501765,0.0558386475996,0.0536366582622,0.0513697181603,0.0490916889033,0.0467677188617,0.0445261253995,0.0422623536275)
m <- c(0.0447134941875,0.0470282839724,0.0494239328526,0.0517529918896,0.0540804654541,0.0563540329552,0.0586577244329,0.0609820270525,0.0633190134518,0.0655989228427,0.0678931014857,0.0703014341455,0.0726241512926,0.074957966747,0.0771871410193,0.0794765632449,0.0819340455508,0.0842963995094,0.0842726174225,0.0841774890752,0.0841204120668,0.0841283394291,0.0841299249016,0.0842345660836,0.0841743181303,0.0841029718698,0.0841204120668,0.0841981002171,0.084204442107,0.0842868866746,0.0842504208082,0.084204442107,0.084221882304,0.0842091985243,0.0841648052956,0.0842504208082,0.0841679762405,0.0842678610052,0.0842551772255,0.0842694464776,0.0843027413992,0.0844010406914,0.084434335613,0.084399455219,0.0844232373058,0.084486656204,0.084629348725,0.0845627588819,0.0846134940005,0.0846230068352,0.0846800838436,0.0847403317969,0.0846658145915,0.0847038659304,0.0847006949855,0.0848148490023,0.0848735114831,0.0848529003412,0.0848941226251,0.08480692164,0.0848164344748,0.0847926523879,0.0848354601442,0.0847672848286,0.0847656993562,0.0845691007717,0.0845643443543,0.0845389767951,0.0844929980938,0.0845294639603,0.0845104382909,0.084399455219,0.0844279937232,0.0843836004944,0.0843376217932,0.0842060275794,0.0840760188381,0.0839475955692,0.0838429543871,0.0837922192686,0.0836701378895,0.0835480565104,0.0833799964302,0.0832991373349,0.0832388893816,0.0832912099726,0.0832198637122,0.0830470472145,0.0829202094181,0.0828108118187,0.082745807448,0.0826760466599,0.0826300679587,0.0825539652809,0.082442982209,0.0825571362258,0.082425542012,0.0824398112641,0.0823129734677,0.0822780930736,0.0821147894107,0.0821544262221,0.0821163748832,0.0821861356712,0.0821861356712,0.0819816097245,0.0819578276376,0.0818785540149,0.0818801394873,0.0818262334238,0.0816803699579,0.0818246479514,0.0819261181885,0.0819419729131,0.082018075591,0.0821243022455,0.0822194305928,0.0823763923659,0.0823843197282,0.0824572514611,0.0823970035078,0.0822939477982,0.0824715207132,0.0825936020923,0.0826332389037,0.0827473929204,0.0828171537085,0.0828139827636,0.0828409357953,0.082853619575,0.0829947266235,0.0828869144965,0.0829677735917,0.0830121668205,0.0830565600492,0.0830629019391,0.083170714066,0.0832579150511,0.0832563295786,0.0832848680828,0.0832214491846,0.0833641417056,0.0834069494619,0.0835036632817,0.0835623257625,0.083529030841,0.0836970909212,0.0836289156057,0.0835924497392,0.0836495267476,0.0835781804871,0.0835195180062,0.0833926802098,0.0831691285936,0.0831659576487,0.0831754704834,0.083153273869,0.0831405900894,0.0829360641426,0.0829091111109,0.0828726452444,0.0827077561091,0.0826126277617,0.0824889609102,0.0823446829168,0.0822432126796,0.0820053918113,0.0820466140951,0.0819435583855,0.0818896523221,0.0818975796843,0.0819657549999,0.0819324600784,0.0818595283454,0.0819213617712,0.0818452590933,0.0819514857478,0.0820101482287,0.0819578276376,0.0819134344089,0.0818214770065,0.0818214770065,0.0816740280681,0.0816724425957,0.0815931689729,0.0815360919645,0.0814948696807,0.0814742585387,0.0815630449962,0.0816629297609,0.0816534169262,0.0815662159412,0.0816882973202,0.0816708571232,0.0817881820849,0.0817564726358,0.0818452590933,0.0819197762987,0.0820291738981,0.0820481995676,0.0821243022455,0.0822685802389,0.0824192001222,0.0822368707898,0.0823018751605,0.0822876059084,0.0822416272072,0.0821544262221,0.0822067468131,0.0821686954742,0.0821163748832,0.0821147894107,0.0819816097245,0.0819324600784,0.0819435583855,0.0819435583855,0.081854771928,0.0818420881484,0.0818706266526,0.0817739128328,0.0818294043688,0.0818785540149,0.0818785540149,0.0817659854705,0.0817437888562,0.0818151351167,0.0818737975975,0.0817992803921,0.0816851263753,0.0816169510597,0.0816058527525,0.0815773142483,0.0814932842082,0.0813585190495,0.081322053183,0.0813807156639,0.0813157112932,0.0812094846387,0.0810889887321,0.081127040071,0.081057279283,0.0810097151093,0.080897146565,0.0806165179404,0.0804674835296,0.0803961372691,0.0802296626612,0.0800758718331,0.0800758718331,0.0800108674624,0.0798792732486,0.0798602475791,0.0798967134456,0.0798015850983,0.0797984141534,0.0798031705707,0.0797603628144,0.0796604780498,0.0796715763569,0.0797841449013,0.0796842601366,0.0795843753719,0.0794432683234,0.0794242426539,0.079330699779,0.0793703365904,0.0793243578892,0.0792989903299,0.0792403278491,0.0792910629676,0.0792102038724,0.0791245883598,0.0791610542263,0.0790801951311,0.0790849515484,0.0791721525335,0.0791895927305,0.0790754387137,0.079083366076,0.0793893622599,0.079421071709,0.079508272694,0.0795209564737,0.0795225419461,0.0794432683234,0.0793909477323,0.0794416828509,0.0793370416688,0.0792181312347,0.0792894774952,0.0793402126138,0.0793116741096,0.0793275288341,0.0794115588743,0.0794607085204,0.079403631512,0.0794654649377,0.0794638794653,0.0795716915922,0.0796224267108,0.0796271831282,0.0796668199396,0.079668405412,0.0797349952552,0.0797825594288,0.079811097933,0.0799062262803,0.0798650039965,0.0799442776193,0.0800568461636,0.0800362350217,0.0799300083672,0.0799078117528,0.0800140384073,0.0800695299432,0.080006111045,0.0800283076594,0.080006111045,0.0800980684474,0.0802296626612,0.080291496087,0.0803311328984,0.0803406457331,0.0803882099068,0.0804310176631,0.0804849237266,0.080486509199,0.0805134622308,0.0805499280972,0.0804785818367,0.0803691842373,0.0803152781738,0.0803121072289,0.0802550302205,0.0801503890385,0.0801931967948,0.0802328336062,0.0802233207714,0.0802058805744,0.0802407609684,0.0801931967948,0.0801456326211,0.0800076965175,0.0800837991953,0.0800029401001,0.0800489188013,0.0801044103373,0.0801297778966,0.0801361197864,0.0801377052588,0.0801250214792,0.0801519745109,0.0801424616762,0.0801123376995,0.0801916113223,0.0802518592756,0.080221735299,0.0802867396696,0.0803041798666,0.0803675987649,0.0803596714026,0.0802471028583,0.0801345343139,0.0801091667546,0.0800346495492,0.0800156238798,0.0800489188013,0.0801820984876,0.0801266069516,0.0801567309283,0.0801916113223,0.0801345343139,0.0802296626612,0.080204295102,0.0801947822672,0.0800536752187,0.0800727008882,0.0800394059666,0.0800774573055,0.0801107522271,0.0800837991953,0.0800695299432,0.0799791580133,0.0799617178163,0.0799839144307,0.0799585468714,0.079936350257,0.0799030553354,0.0798935425007,0.0799173245875,0.0798554911618,0.0797904867911,0.0797968286809,0.0797334097827,0.079633525018,0.079650965215,0.0797793884839,0.0797968286809,0.0797730465941,0.0797698756492,0.079793657736,0.0797904867911,0.0798824441935,0.0798190252953,0.0799173245875,0.0799965982103,0.0799300083672,0.0799157391151,0.0797825594288,0.0796921874989,0.0797270678929,0.0797667047043,0.0797302388378,0.079685845609,0.0795225419461,0.0794543666305,0.0794702213551,0.0793180159994,0.0793782639527,0.0793338707239,0.0792752082431,0.0792006910377,0.079295819385,0.0792244731245,0.0792149602898,0.079226058597,0.0791816653682,0.0790532420993,0.0789866522562,0.0789026222161,0.0790373873748,0.0789882377287,0.0788518870975,0.0788344469005,0.0789422590275,0.078975553949,0.0790294600125,0.0790294600125,0.0789533573346,0.0789993360358,0.0789470154448,0.0788820110741,0.0790009215083,0.0790579985167,0.0790199471778,0.0790817806035,0.0790088488706,0.0790801951311,0.0790326309574,0.0792355714317,0.0794099734018,0.0794971743868,0.0794781487174,0.0796414523803,0.0796366959629,0.0797999996258,0.0797968286809,0.0798602475791,0.0798650039965,0.0799633032887,0.0800505042738,0.0801012393924,0.0801931967948,0.0804674835296,0.080594321326,0.0807703087685,0.0807354283745,0.0808368986117,0.0808384840841,0.0810334971961,0.0811238691261,0.0813061984585,0.0812903437339,0.0813458352699,0.0814108396405,0.0813886430262,0.0813299805453,0.0813712028291,0.08133949338,0.0813426643249,0.081537677437,0.0816661007058,0.0817469598011,0.0817707418879,0.081857942873,0.0817517162184,0.0818167205891,0.0817945239747,0.0819308746059,0.0818262334238,0.0819007506293,0.0819356310233,0.0820085627562,0.0820101482287,0.0819720968897,0.0819007506293,0.0817659854705,0.0817770837777,0.0817263486592,0.0815535321615,0.0815868270831,0.0815788997208,0.0816217074771,0.0815059679879,0.0817057375172,0.0815646304687,0.0814790149561,0.081394984916,0.0814742585387,0.0814536473968,0.0814885277908,0.081659758816,0.0817802547226,0.0818531864556,0.0819499002754,0.0819720968897,0.0819197762987,0.0818944087394,0.0819483148029,0.0820196610634,0.0820846654341,0.082157597167,0.0821528407497,0.08214015697,0.0821354005527,0.0822019903958,0.0823430974443,0.0822669947665,0.0823034606329,0.0824382257916,0.0825048156348,0.0825285977216,0.08258567473,0.082515913942,0.0825555507533,0.0826253115414,0.0827521493378,0.0827553202827,0.0828789871342,0.082975700954,0.0829075256384,0.0829994830409,0.0831120515852,0.0830946113882,0.0829217948905,0.0828472776851,0.0828219101258,0.0828028844564,0.0828425212678,0.082888499969,0.0829170384732,0.0829978975684,0.0831041242229,0.0830533891043,0.0830850985534,0.0830597309942,0.0831120515852,0.0831627867038,0.0832024235151,0.0832753552481,0.0832737697756,0.0833292613116,0.0832277910744,0.0832690133583,0.0834450008008,0.0834767102499,0.0834893940296,0.0836130608811,0.0837177020632,0.0838921040332,0.0839777195458,0.0840633350584,0.0840950445075,0.084148950571,0.0841156556495,0.0841806600201,0.0842377370285,0.0843011559267,0.0843804295495,0.0845056818735,0.084841802034,0.0851573110527,0.0852825633766,0.0853475677473,0.085499773103,0.0855251406623,0.0855409953869,0.0854966021581,0.0855711193635,0.0857883290899,0.0858644317678,0.0859817567295,0.086087983384,0.0861498168098,0.0862354323223,0.0863511718116,0.0865763089003,0.0868458392177,0.0869901172111,0.0871661046537,0.0872184252447,0.0873975836322,0.0876021095789,0.0876274771382,0.0878446868646,0.0879651827712,0.0880666530083,0.0881903198599,0.0881887343874,0.0883520380503,0.0884757049018,0.0885866879737,0.0887595044714,0.0888498764013,0.0889196371894,0.0890337912062,0.0890464749858,0.0891130648289,0.0893255181379,0.0894111336505,0.0894428430996,0.089499920108,0.0896394416841,0.0899359250333,0.0899137284189,0.0899184848363,0.0899739763722,0.0900104422387,0.0901356945627,0.0902910708633,0.0903227803124,0.0903481478717,0.0903465623992,0.0903576607064,0.0903972975178,0.090498767755,0.0905241353142,0.0905590157083,0.0905082805897,0.0906430457484,0.0906921953945,0.0906398748035,0.0906921953945,0.090728661261,0.0908047639388,0.0907413450406,0.0907476869305,0.0906921953945,0.09067634067,0.0907587852376,0.0907096355915,0.0907064646466,0.090655729528,0.0906478021658,0.0906018234646,0.090408395825,0.0905225498418,0.0905590157083,0.0905479174011,0.0905923106298,0.0907096355915,0.0906795116149,0.0907857382694,0.0908856230341,0.0908380588604,0.0906906099221,0.0907270757885,0.0907365886233,0.0906826825598,0.0906715842526,0.0907571997652,0.0907429305131,0.0907714690173,0.0907159774813,0.0907128065364,0.0908000075215,0.0907682980724,0.0908047639388,0.0908650118922,0.0909347726802,0.0910061189407,0.0911583242964,0.0912534526437,0.0913723630779,0.0914437093384,0.0914770042599,0.0916196967809,0.0916736028444,0.0918369065073,0.0918131244205,0.09183215009,0.0919906973355,0.0918892270983,0.0919574024139,0.0920525307613,0.091901910878,0.0919304493822,0.0920557017062,0.0920747273756,0.0920303341469,0.0920858256828,0.092329988441,0.092486950214,0.0925281724979,0.0926169589554,0.0926343991524,0.0926502538769,0.0926391555698,0.0926328136799,0.0927358693895,0.0927517241141,0.092702574468,0.0927152582476,0.0928167284848,0.0927691643111,0.0927422112794,0.0927311129722,0.0928325832093,0.0927406258069,0.0927580660039,0.0927390403345,0.0926359846248,0.0925567110021,0.0925931768686,0.0924932921039,0.092594762341,0.0925503691123,0.0925884204512,0.0925503691123,0.0924584117098,0.0923854799769,0.0924441424577,0.0924552407649,0.0923934073392,0.0922982789918,0.0923331593859,0.0922094925343,0.0922063215894,0.0920842402104,0.0921032658798,0.0920953385176,0.092009723005,0.0919605733588,0.0919526459966,0.0920208213121,0.0919383767445,0.0919780135559,0.091971671666,0.0919795990283,0.0919669152487,0.0918717869013,0.0917544619396,0.0916085984737,0.0914516367007,0.0914674914252,0.0914104144168,0.0913818759126,0.0913945596923,0.091473833315,0.0913628502432,0.0913565083533,0.0911519824066,0.0910980763431,0.0910853925635,0.0911313712647,0.0911995465802,0.0911789354383,0.0911329567371,0.0911139310677,0.0911503969341,0.0911503969341,0.0911028327605,0.0911884482731,0.0910806361461,0.0910172172479,0.0909981915784,0.0909379436251,0.0909664821293,0.0909014777586,0.0908967213413,0.0906573150005,0.0906176781891,0.0905193788969,0.0904274214945,0.0903624171238,0.090318023895,0.0904321779118,0.0904860839753,0.0905843832675,0.0906287764963,0.0907254903161,0.0907841527969,0.0907571997652,0.0907920801592,0.0907143920089,0.0907587852376,0.0908856230341,0.0910077044131,0.090975994964,0.091014046303,0.0910457557521,0.0910647814215,0.0910330719724,0.0910647814215,0.0910949053982,0.0910536831143,0.0910314865,0.0909617257119,0.09094111457,0.0908554990574,0.0909506274047,0.0909014777586,0.0908523281125,0.090728661261,0.0907318322059,0.0905701140154,0.0905764559053,0.0905732849604,0.0906287764963,0.0905558447633,0.0904702292508,0.0904702292508,0.0904147377148,0.0904305924394,0.090283143501,0.0900897158615,0.0899676344824,0.0899359250333,0.0898233564889,0.0898154291267,0.08978530515,0.0897551811734,0.0896616382985,0.0896537109362,0.0896140741248,0.0895268731398,0.0894856508559,0.0893334455002,0.0893619840044,0.0892462445152,0.0890670861277,0.0889989108121,0.0889069534097,0.0889180517169,0.088841949039,0.0888007267552,0.088684987266,0.0887563335265,0.0886738889588,0.0887388933294,0.0888134105348,0.088949761166,0.0890559878205,0.0890512314032,0.0890686716002,0.0891970948691,0.0892272188457,0.0892081931762,0.0891384323882,0.0889624449457,0.0889592740007,0.0890195219541,0.08898464156,0.088880000378,0.0889069534097,0.0888229233696,0.0886992565181,0.0886532778169,0.0884709484845,0.0882584951755,0.0882362985611,0.0881522685209,0.0880777513155,0.0880476273389,0.0878557851718,0.0878082209981,0.0877828534388,0.0877622422969,0.087811391943,0.0877194345406,0.0876528446975,0.0875069812316,0.0874007545771,0.0872326944968,0.0872295235519,0.0870741472513,0.0869298692578,0.0866698517751,0.0865445994512,0.0863844667332,0.0861672570068,0.0861498168098,0.0859849276744,0.0858422351534,0.0857058845222,0.0857074699947,0.085659905821,0.0855505082216,0.0854617217641,0.0853808626689,0.0853554951096,0.0852318282581,0.0851763367221,0.0851129178239,0.0850653536503,0.0851398708557,0.085074866485,0.0849924219173,0.0848703405382,0.0847799686083,0.0847863104981,0.0846927676232,0.0845151947082,0.0843360363208,0.0841188265944,0.0841790745477,0.08400625805,0.0840189418297,0.0838508817494,0.0837636807644,0.0836955054488,0.0836463558027,0.0834671974152,0.0834862230847,0.0833815819026,0.0833562143433,0.0834243896589,0.0832198637122,0.0832563295786,0.0831738850109,0.083208765405,0.0831818123732,0.0831405900894,0.0831199789475,0.0830518036319,0.0829503333947,0.0827886152043,0.0828123972911,0.0827965425666,0.0826982432743,0.0826601919354,0.0825254267767,0.082568234533,0.0824635933509,0.0823843197282,0.0825222558318,0.0825618926432,0.0825761618953,0.0827093415815,0.0828409357953,0.0828694742995,0.0827315381959,0.082763247645,0.0827838587869,0.0829535043396,0.0829661881193,0.0830343634349,0.0830153377654,0.0830850985534,0.0830644874115,0.0830787566636,0.0830375343798,0.0829170384732,0.0829693590642,0.0829249658354,0.0828647178821,0.0827775168971,0.0828441067402,0.0827648331175,0.0826681192977,0.0827664185899,0.0827505638654,0.0828123972911,0.0826982432743,0.0826982432743,0.0826712902426,0.0826950723294,0.0827743459522,0.0827029996917,0.082672875715,0.0826871449671,0.0825809183126,0.0824445676815,0.0824192001222,0.0823859052006,0.0823098025227,0.0823938325629,0.0823319991371,0.0823082170503,0.0822226015377,0.082157597167,0.0821005201586,0.0819990499215,0.0820022208664,0.0818769685424,0.0818991651568,0.081854771928,0.0818484300382,0.0817231777142,0.0817168358244,0.0817136648795,0.081819891534,0.0817992803921,0.0816058527525,0.0816010963352,0.0815820706657,0.0814758440112,0.0815154808226,0.0815138953501,0.081499626098,0.0814346217274,0.0814235234202,0.0814568183417,0.0813632754669,0.0813442497974,0.081412425113,0.0814314507824,0.081377544719,0.0814377926723,0.0813093694034,0.0812570488124,0.0811714332998,0.081039839086,0.0809573945183,0.0809272705416,0.0809447107386,0.0809351979039,0.0809351979039,0.0808908046752,0.0808258003045,0.0808353131392,0.0808051891626,0.0808115310524,0.0808051891626,0.0810271553063,0.0809510526285,0.0809510526285,0.0808717790057,0.0808670225883,0.080879706368,0.0809573945183,0.0809526381009,0.0810176424716,0.0810541083381,0.0810033732195,0.0810271553063,0.0810350826686,0.0810556938105,0.0809003175099,0.0807829925482,0.0807623814063,0.0808099455799,0.0807275010122,0.0807116462877,0.0806355436098,0.080771894241,0.080754454044,0.0808765354231,0.0808812918404,0.0810731340075,0.0811032579842,0.081092159677,0.0811111853465,0.0810382536135,0.0809304414865,0.0809891039674,0.0809082448722,0.080862266171,0.0807909199105,0.0807528685715,0.0805752956565,0.0805800520739,0.0805784666014,0.0806196888853,0.0806846932559,0.0806942060907,0.0806339581374,0.0806720094763,0.0805752956565,0.080451628805,0.0804024791589,0.0803834534894,0.0803533295128,0.0803121072289,0.0803374747882,0.0805087058134,0.080416748411,0.0803580859301,0.0804896801439,0.0804373595529,0.0805229750655,0.0804135774661,0.0804944365613,0.0803961372691,0.0805134622308,0.0804373595529,0.0804563852224,0.0804785818367,0.0802471028583,0.0803707697098,0.080451628805,0.0803374747882,0.0804785818367,0.0805277314829,0.0806085905781,0.0806434709721,0.0807877489656,0.0807925053829,0.0807433557368,0.0807449412093,0.0807512830991,0.0807560395164,0.0808289712494,0.0809431252662,0.0809225141243,0.0810239843614,0.0811032579842,0.0811381383782,0.0811492366854,0.0812205829459,0.0812142410561,0.0811936299141,0.0811682623548,0.0810366681411,0.0809700782979,0.0809621509356,0.0808860482578,0.0808892192027,0.0808210438871,0.0807703087685,0.0805879794362,0.0805277314829,0.0806149324679,0.0806038341607,0.0807433557368,0.0806846932559,0.0808004327452,0.080914586762,0.0808955610925,0.0808654371159,0.0808987320374,0.0808511678638,0.0807560395164,0.0806482273895,0.0805895649086,0.0804849237266,0.0804643125846,0.0805404152625,0.080469069002,0.0803691842373,0.0804484578601,0.0803691842373,0.0803010089217,0.0802930815595,0.0802597866379,0.0802090515193,0.0801931967948,0.0801963677397,0.0803168636463,0.0804326031355,0.080434188608,0.080469069002,0.0806038341607,0.0807734797135,0.0808305567218,0.0809764201877,0.0811222836536,0.0810874032596,0.0810953306219,0.0812221684183,0.081304612986,0.0813442497974,0.0812570488124,0.0812887582615,0.0813632754669,0.0813379079076,0.081287172789,0.081360104522,0.0814790149561,0.081537677437,0.0816312203118,0.0817437888562,0.0817041520448,0.0794083879293,0.0771712862948,0.0749151589907,0.0726082965681,0.0704092462724,0.0682276361738,0.0659683379248,0.0637597747944,0.0614973056005,0.0592966698324,0.0570262732763,0.0547669750273,0.0525346298101,0.0502737460887,0.0480556701236,0.0457012435273,0.0433595007106,0.0410589801778)
s <- c(0.0468352196464,0.0468512737664,0.046815597944,0.0468958685444,0.0469199497246,0.0469743553537,0.0470073554894,0.0469886256827,0.047083166612,0.047044815103,0.0470243015051,0.0470564097452,0.047016274445,0.0469832743093,0.0469119226645,0.0467861653906,0.0467843815994,0.0467897329728,0.046777246435,0.0467701112705,0.0466550567432,0.0466398945187,0.0466193809208,0.0465266237826,0.046473110049,0.0464035421953,0.0463223796994,0.0462652983835,0.0461315140495,0.0461547033341,0.0460967301227,0.0460664056736,0.0460708651514,0.0461092166605,0.0460904868538,0.046049459658,0.0460842435848,0.046041432598,0.0461011896005,0.0461341897362,0.0461047571827,0.046079784107,0.0460280541646,0.0460280541646,0.0459451078775,0.0459442159819,0.0458996212039,0.0458675129638,0.0458443236792,0.0458327290369,0.0458826751883,0.0459388646086,0.0459335132352,0.0458844589794,0.0459531349375,0.0459433240864,0.0460093243578,0.0459914864466,0.046041432598,0.0460833516893,0.0461448924829,0.0461555952296,0.0461984062165,0.0462795687125,0.0463642987907,0.0462617308013,0.0462982985192,0.0462902714592,0.046264406488,0.0462153522322,0.0462447847856,0.0462233792922,0.0461939467387,0.0461930548432,0.0461181356161,0.0460904868538,0.0460967301227,0.0460967301227,0.0460467839713,0.0460396488068,0.0460557029269,0.0460012972978,0.0460325136424,0.0460601624047,0.0460601624047,0.04599683782,0.0459843512821,0.0460244865823,0.046057486718,0.0460155676267,0.0459513511464,0.0459129996373,0.0459067563684,0.0458907022483,0.0458434317836,0.045767620661,0.0457471070632,0.0457801071989,0.0457435394809,0.0456837824784,0.0456159984159,0.0456374039093,0.0455981605047,0.0455714036379,0.0455080790531,0.045350213539,0.0452663753563,0.0452262400561,0.0451325910223,0.045046077153,0.045046077153,0.0450095094351,0.0449354821036,0.0449247793569,0.0449452929547,0.0448917792211,0.04488999543,0.0448926711167,0.0448685899366,0.0448124005163,0.0448186437852,0.04488196837,0.0448257789497,0.0447695895294,0.0446902108246,0.0446795080779,0.0446268862398,0.0446491836288,0.0446233186576,0.0446090483286,0.0445760481929,0.0446045888508,0.0445591021773,0.044510939817,0.0445314534149,0.0444859667413,0.044488642428,0.0445376966838,0.0684057137648,0.0696561513399,0.0708718049882,0.0722533512106,0.0735082482635,0.0748095238855,0.0760813669541,0.0773335883203,0.0785777826265,0.0798398148439,0.0810652793433,0.0822595274982,0.083431478264,0.0846729968835,0.0859332453098,0.0871587098092,0.088411823071,0.0897246933353,0.0897541258888,0.0897345041865,0.0897817746512,0.0897255852309,0.0897969368757,0.0898210180558,0.0898112072046,0.0898450992359,0.0898254775336,0.0898745317894,0.0899102076118,0.0899173427763,0.0899976133767,0.0899717484054,0.0899601537632,0.0900912624105,0.0900181269746,0.0899316131052,0.0899556942854,0.0899414239564,0.0900368567813,0.0900234783479,0.0900466676325,0.0899985052722,0.0900671812304,0.0901242625462,0.0901278301284,0.0900948299927,0.0901198030684,0.0901822357576,0.0902027493555,0.0902589387757,0.0902830199559,0.0903044254493,0.0903160200916,0.0902901551203,0.0902366413867,0.0901742086975,0.0901073165306,0.0900876948282,0.0900208026612,0.0899958295856,0.0899860187344,0.0899173427763,0.0899048562384,0.0899512348076,0.0899369644786,0.0898888021184,0.0897924773979,0.0897880179201,0.0898005044579,0.0897773151734,0.0897987206668,0.0898522344004,0.0898406397581,0.0898067477268,0.0897452069332,0.0897630448444,0.0897113149019,0.0897532339932,0.0897603691577,0.0897844503378,0.0897389636643,0.0897764232778,0.0898236937425,0.089802288249,0.0898120991002,0.0897978287712,0.0897068554241,0.089727369022,0.0896622606461,0.0895588007612,0.0895338276855,0.0895159897743,0.0895222330432,0.0894776382652,0.0894722868918,0.089451773294,0.0895177735654,0.0895356114766,0.0895356114766,0.0894731787874,0.089496368072,0.0895097465054,0.0895596926567,0.0895828819413,0.0895561250745,0.0895998279569,0.0895463142233,0.0895195573565,0.0895989360614,0.0896720714973,0.0896435308394,0.0896372875704,0.0897023959463,0.0896800985573,0.0895980441658,0.0895231249388,0.0895061789231,0.0895026113409,0.0894285840094,0.0894499895028,0.0894847734297,0.0894571246673,0.0895061789231,0.0894856653252,0.0895302601032,0.0895748548812,0.0896283686148,0.0897220176486,0.0897398555598,0.0898272613247,0.0897737475911,0.0897657205311,0.0896658282284,0.0896203415548,0.0896809904529,0.0896693958106,0.0896292605104,0.0896230172415,0.0894535570851,0.0894428543384,0.0894526651895,0.0893304754978,0.0893697189024,0.0893866649181,0.0893429620356,0.0892965834665,0.089392908187,0.0893634756335,0.0893697189024,0.0893411782445,0.0893376106623,0.0893126375866,0.0893135294822,0.0892234480306,0.0893188808555,0.08931798896,0.0892769617642,0.089267150913,0.0893019348399,0.0893465296179,0.0894018271426,0.0894482057117,0.0894169893671,0.0894348272783,0.0894196650538,0.0894143136804,0.0895436385366,0.0896185577637,0.0896488822127,0.0897264771264,0.0896042874347,0.0897380717687,0.0897683962178,0.0898798831628,0.0900413162591,0.0900627217526,0.0900297216168,0.0901447761441,0.0902419927601,0.090292830807,0.090240208969,0.0903169119871,0.0902678577313,0.0902732091047,0.0902758847914,0.0903499121229,0.0903953987964,0.0905612913706,0.0906094537308,0.0907459137515,0.0907254001536,0.0907619678716,0.0907494813337,0.0908475898453,0.0909349956102,0.0909501578347,0.0908609682787,0.0908841575633,0.0908850494589,0.0908743467121,0.0908306438297,0.0908574006965,0.0908252924563,0.0907396704826,0.0908324276208,0.0908582925921,0.0909046711612,0.0908627520699,0.0908609682787,0.0907584002893,0.0908395627853,0.0908663196521,0.0910241851662,0.0909207252813,0.0909323199235,0.0909492659392,0.0909572929992,0.0908556169054,0.0908770223988,0.0908796980855,0.0908029950673,0.0908368870986,0.0908529412187,0.0907450218559,0.090819941083,0.0907869409473,0.0908663196521,0.0907887247384,0.0909742390149,0.0909251847591,0.0908591844876,0.0908832656677,0.0910357798085,0.0910045634639,0.0910500501375,0.0911044557666,0.0912444833695,0.0912605374896,0.0913791595991,0.0914415922883,0.0914612139906,0.0914763762151,0.0916190795047,0.0917055933741,0.0917662422721,0.0918643507837,0.0918697021571,0.0919223239951,0.0918946752328,0.0919972432222,0.0921256761828,0.0921247842873,0.0922523253523,0.0923977043286,0.0924752992423,0.0925716239628,0.092634056652,0.0926269214875,0.0927125434613,0.0928338412574,0.0929132199623,0.0930113284739,0.0930603827297,0.0931852481081,0.0930826801187,0.0931406533301,0.0932004103326,0.0932530321706,0.0931433290168,0.0931727615702,0.093244113215,0.093266410604,0.093250356484,0.0933377622488,0.0933341946666,0.0935000872408,0.0935669794078,0.0936383310526,0.0936303039925,0.0936338715748,0.0937480342064,0.0938068993134,0.0938274129113,0.0938416832402,0.0938782509582,0.0939620891408,0.093905007825,0.0938916293916,0.0940093596055,0.0941172789683,0.0941966576731,0.0942671174224,0.0944017936519,0.0945364698815,0.0946399297664,0.0946381459753,0.0946426054531,0.0946568757821,0.0946925516045,0.0947558761892,0.0948967956877,0.0950047150505,0.0951117425177,0.0951741752069,0.0955166631019,0.0957592586942,0.0958921511327,0.0960473409601,0.0962301795499,0.0963166934192,0.0963844774818,0.0963550449283,0.096513802338,0.0966368839253,0.0967430194969,0.0968250738884,0.0968937498465,0.0970177233294,0.0970908587653,0.0972460485927,0.0974467250937,0.097525211903,0.0976465096992,0.0978828620226,0.0979229973228,0.0979595650407,0.0980549978656,0.0980942412703,0.0982199985442,0.0983671613116,0.0984197831497,0.0986249191285,0.0987301628046,0.0988675147208,0.0989905963081,0.0990646236396,0.0991591645689,0.0992572730805,0.0993286247253,0.0995034362551,0.0994249494458,0.0994320846103,0.0995141390018,0.0995712203176,0.0995810311688,0.0996532747092,0.0997825995654,0.10002876274,0.100035897904,0.100050168233,0.100119736087,0.100173249821,0.100281169183,0.100317736901,0.100431007637,0.100520197193,0.100505034969,0.100619197601,0.10069768441,0.10073781971,0.100827009266,0.100931361047,0.100988442362,0.101145415981,0.101243524493,0.101100821203,0.101169497161,0.101102604994,0.101169497161,0.101174848535,0.101142740294,0.101147199772,0.101165037683,0.10122390279,0.101227470373,0.101205172984,0.101205172984,0.101260470508,0.101269389464,0.101163253892,0.101281876002,0.101296146331,0.101273848942,0.101305957182,0.101376416931,0.101379092618,0.101479876816,0.101539633819,0.101453119949,0.101416552231,0.101388011573,0.101271173255,0.101269389464,0.101313092346,0.101373741244,0.10135857902,0.101401390007,0.101394254842,0.10136660608,0.10141476844,0.101364822289,0.101486120085,0.101498606623,0.101610093568,0.101668958675,0.101774202351,0.101921365118,0.102039095332,0.102188041891,0.102324501911,0.102447583499,0.102532313577,0.102620611237,0.102652719477,0.10277669296,0.102905125921,0.102865882516,0.102905125921,0.103018396657,0.102899774548,0.102939909848,0.103019288553,0.102998774955,0.103077261764,0.103195883873,0.103384965732,0.103533020395,0.103664129042,0.103772048405,0.103810399914,0.103830913512,0.103937940979,0.103953995099,0.10401821158,0.104076184791,0.10406637394,0.104156455392,0.104244753052,0.104308077637,0.104378537386,0.104407969939,0.104465051255,0.104392807715,0.104415105104,0.104342861564,0.104206401543,0.10414664454,0.104123455256,0.104155563496,0.104152887809,0.104081536165,0.104149320227,0.104168050034,0.104189455527,0.104160914869,0.104191239318,0.104180536572,0.104185887945,0.104125239047,0.104078860478,0.103993238504,0.103986995235,0.103872832603,0.10381129181,0.10377115651,0.103695345387,0.103653426296,0.103561561053,0.103561561053,0.103560669157,0.103584750338,0.103558885366,0.103499128364,0.103440263257,0.103392992792,0.103257424667,0.103187856813,0.103082613137,0.103046937315,0.103003234432,0.102996991164,0.102993423581,0.102980937043,0.10293545037,0.10291136919,0.102881044741,0.102839125649,0.102828422903,0.102794530871,0.102795422767,0.10271247648,0.10268036824,0.102655395164,0.102633097775,0.1026883953,0.102690179091,0.102742800929,0.102651827582,0.102639341044,0.102684827718,0.102669665493,0.102671449284,0.102594746266,0.10267234118,0.102568881295,0.102470772783,0.10243331317,0.102389610287,0.102352150674,0.102352150674,0.102301312627,0.102287042298,0.102280799029,0.102297745045,0.102369988585,0.102366421003,0.102293285567,0.102315582956,0.102270988178,0.102302204522,0.102295961253,0.102299528836,0.102246906998,0.102229069086,0.102248690789,0.102221042026,0.1022263934,0.102217474444,0.102196068951,0.102137203844,0.102040879123,0.101973986956,0.101899959625,0.101814337651,0.101874986549,0.101830391771,0.101743877902,0.101655580241,0.101697499333,0.101530714863,0.101475417338,0.101451336158,0.101389795364,0.101284551688,0.101227470373,0.101203389192,0.101197145924,0.101263146195,0.101164145788,0.101035712827,0.100942063793,0.100897469015,0.100847522864,0.100772603637,0.100755657621,0.100650413945,0.100634359825,0.100603143481,0.100582629883,0.100530008045,0.10047471052,0.100406926457,0.100404250771,0.100396223711,0.100297223303,0.100238358197,0.100208925643,0.100237466301,0.100213385121,0.100209817539,0.100145601058,0.100186628254,0.100175925507,0.100200006687,0.100175033612,0.100210709434,0.100239250092,0.10027581781,0.100313277424,0.100454196922,0.100478278102,0.10044260228,0.100381953382,0.100263331272,0.10028384487,0.100327547753,0.100330223439,0.10032398017,0.10034806135,0.10031595311,0.100282952975,0.100307034155,0.100165222761,0.100026978949,0.0999235190638,0.0998271943434,0.0997522751163,0.0997255182495,0.0995721122132,0.0994829226572,0.0994392197748,0.0994410035659,0.0994543819993,0.0993339760987,0.0992349756915,0.0990788939685,0.0989103257077,0.0987426493424,0.0986418651441,0.0984822158389,0.0984162155674,0.0982556743666,0.0981700523929,0.0979836462208,0.0977909967799,0.0976830774171,0.0975011307229,0.0973726977623,0.0972389134283,0.097182724008,0.0970364531361,0.0969285337734,0.0967626411992,0.0966306406563,0.0965423429959,0.0964522615443,0.0963336394349,0.0961882604586,0.0961293953516,0.0961276115605,0.0961249358738,0.0960410976912,0.0959956110176,0.0958814483859,0.0958645023703,0.0957717452321,0.095607636449,0.0954533385171,0.0952589052851,0.0952856621519,0.0951884455358,0.0951964725959,0.0950930127109,0.0949565526902,0.0948985794788,0.0948620117609,0.094730011218,0.0947193084713,0.0946283351242,0.0946336864975,0.094655091991,0.0945239833436,0.0945141724925,0.0944508479077,0.0944374694743,0.0944107126075,0.0943946584874,0.0943741448896,0.0943946584874,0.0942715769002,0.0941324411928,0.094127981715,0.0941342249839,0.0940432516368,0.0939959811721,0.0938916293916,0.0938871699138,0.0938452508225,0.0937462504153,0.0937703315954,0.0937516017887,0.093704331324,0.0937310881908,0.0937828181333,0.09380154794,0.0936927366817,0.0936650879194,0.0936713311883,0.0937872776111,0.0938113587912,0.093830088598,0.0938657644204,0.0938372237624,0.0937872776111,0.0937703315954,0.0937194935485,0.0936659798149,0.0936802501439,0.0936775744572,0.0936187093502,0.0936044390213,0.09357054699,0.0935723307811,0.0934546005672,0.0934626276272,0.0934849250162,0.0935170332564,0.0933752218624,0.0933145729643,0.0933734380712,0.0933939516691,0.0934483572983,0.0933912759824,0.0932904917842,0.0932458970062,0.0931656264058,0.0930773287453,0.0930773287453,0.093094274761,0.0930148960561,0.0930282744895,0.0929292740824,0.0929328416646,0.0928115438684,0.0927357327459,0.0926822190123,0.0926135430541,0.092536840036,0.0924815425113,0.0924387315244,0.0923896772686,0.0923379473261,0.0922558929346,0.0922014873054,0.0921791899164,0.0922505415612,0.0921274599739,0.0920659191803,0.0919535403397,0.0918937833372,0.0918491885592,0.0917599990032,0.091742161092,0.0917278907631,0.0916779446117,0.0916164038181,0.091586079369,0.0915432683821,0.0915075925597,0.0915727009356,0.0915798361001,0.0915619981889,0.0915673495623,0.0914924303352,0.0915084844553,0.0915245385754,0.0914647815729,0.0914210786904,0.0913782677035,0.0914424841839,0.0914389166016,0.0914505112439,0.0914210786904,0.0914094840481,0.0913925380325,0.0914175111082,0.0914728086329,0.0914656734684,0.0915744847267,0.0915611062933,0.0915851874735,0.0915566468155,0.091630674147,0.091586079369,0.0916636742827,0.0917189718075,0.0917171880163,0.0918170803191,0.0918589994104,0.0918937833372,0.0918911076505,0.0919178645173,0.0918286749613,0.0917457286743,0.0916708094472,0.0917002420007,0.0916770527161,0.0916315660426,0.0916217551914,0.0917011338963,0.0916806202984,0.0916654580739,0.0916636742827,0.0918045937812,0.0918349182303,0.0917974586167,0.0918037018857,0.0917858639745,0.0917912153478,0.0917591071077,0.0916832959851,0.0916770527161,0.0915655657711,0.091541484591,0.0914656734684,0.0914531869306,0.0913871866591,0.0913836190769,0.0914139435259,0.091444267975,0.0913987813014,0.0914531869306,0.0913354567167,0.0912783754008,0.0911856182626,0.0911891858448,0.0912016723827,0.0911445910668,0.0911365640068,0.0911749155159,0.0911570776047,0.0910634285709,0.0910973206021,0.0911205098867,0.0911811587848,0.0910750232131,0.0910268608529,0.0909920769261,0.0910678880487,0.0909831579705,0.0909456983569,0.0909599686859,0.0907869409473,0.0907985355895,0.0907262920492,0.0906335349109,0.0907619678716,0.0908145897096,0.0908921846233,0.0909180495946,0.0909358875058,0.090939455088,0.0908770223988,0.090827968143,0.0908386708897,0.0908208329785,0.0908636439654,0.09088683325,0.0909358875058,0.0909439145658,0.0909822660749,0.0910295365396,0.0910001039861,0.091073239422,0.0910598609886,0.0910304284351,0.0910545096153,0.091006347255,0.0909786984927,0.0909421307747,0.0908582925921,0.0908841575633,0.0908850494589,0.0907842652606,0.0906379943887,0.0905942915063,0.0906656431511,0.090596967193,0.0907039946602,0.0907182649891,0.0907985355895,0.0909046711612,0.090819941083,0.0907806976783,0.0908065626496,0.090716481198,0.0906549404044,0.0905577237883,0.090619264582,0.0906335349109,0.0906308592243,0.0906727783156,0.0906371024932,0.0905470210416,0.0906451295532,0.0906014266708,0.0905719941173,0.0905336426082,0.0905104533237,0.0904649666501,0.0905309669215,0.0905657508484,0.0905639670573,0.0906290754331,0.0906094537308,0.0906513728221,0.0907815895739,0.0909135901168,0.0909385631925,0.0911106990355,0.0912016723827,0.0911668884558,0.0911856182626,0.091310483641,0.0913595378968,0.0913738082257,0.0913220782833,0.0913880785547,0.0914692410507,0.0913452675678,0.0913229701788,0.0914852951707,0.0915789442045,0.0916101605491,0.0915896469513,0.0916779446117,0.0916404849982,0.0903053173449,0.0890539878742,0.0878267395836,0.0864808691836,0.0853365671801,0.0840459943048,0.0828080432676,0.081595065306,0.0802857626239,0.0790076762864,0.0777643738758,0.076525530943,0.0752857961146,0.0740416018084,0.0728491374447,0.0715460780315,0.0702456943051,0.0690184460145,0.0458871346661,0.0458577021126,0.0459388646086,0.0459620538931,0.0459861350732,0.0460111081489,0.0460628380914,0.0461029733916,0.0460904868538,0.0461573790208,0.0462688659658,0.0462902714592,0.046280460608,0.0462875957725,0.0463357581328,0.0463874880752,0.0463482446706,0.0463446770884,0.0464044340909,0.0464195963154,0.046406217882,0.0463964070308,0.0463776772241,0.046487380378,0.0464392180177,0.0464499207644,0.0464704343623,0.0464677586756,0.0464713262579,0.0465828132029,0.0466033268008,0.0466461377876,0.046592624054,0.0465721104562,0.0465426779027,0.0465016507069,0.0465132453492,0.046598867323,0.0465783537251,0.0466381107276,0.046651489161,0.0466336512498,0.0466363269365,0.0466978677301,0.0466943001479,0.0466693270722,0.0466247322942,0.0466202728164,0.0465498130672,0.0466060024874,0.046554272545,0.0465444616938,0.0465408941116,0.0465667590828,0.0465569482316,0.0465471373805,0.0465667590828,0.0465676509784,0.046540002216,0.0464802452135,0.0464820290046,0.0464847046913,0.0464695424668,0.0464784614224,0.0464543802422,0.0463687582685,0.0463607312084,0.046280460608,0.0462331901434,0.0461654060808,0.0461359735273,0.0461511357518,0.0461564871252,0.0461547033341,0.046205541381,0.0461261626762,0.0461502438563,0.0461814602009,0.0461511357518,0.0461038652872,0.0460851354804,0.0460592705092,0.0460610543003,0.0460316217468,0.0460423244935,0.0460039729844,0.0460280541646,0.0460004054022,0.0460788922115,0.0460601624047,0.0460619461958,0.0461172437206,0.046071757047,0.0460744327337,0.0460887030626,0.046108324765,0.0461127842428,0.0461029733916,0.0461440005874,0.0461341897362,0.046146676274,0.0461671898719,0.0461279464673,0.0461948386343,0.0462519199501,0.0462938390414,0.0462875957725,0.0462394334123,0.0462528118457,0.0462117846499,0.0461127842428,0.0461707574542,0.0461502438563,0.046086027376,0.0460815678982,0.0460039729844,0.0460244865823,0.0460423244935,0.0460601624047,0.046019135209,0.0459593782064,0.0459879188644,0.0460021891933,0.046086027376,0.045960270102,0.045907648264,0.045885350875,0.0458282695591,0.0459022968906,0.0459201348018,0.0458666210682,0.0458728643371,0.0459254861752,0.0459959459244,0.0459950540288,0.0460093243578,0.0460012972978,0.0460289460601)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("2-organelles-nucleus-merged/AGAMOUS-GFP-AP1-GR-ap1-cal-Rep1-GSM1120014.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=277"),bty="n")
dev.off()