# R script for Peak Model
#  -- generated by MACS
p <- c(0.0406537358296,0.0427442725652,0.0448980252499,0.0469503383884,0.0491437848086,0.0513078284617,0.0534865734984,0.055547707467,0.0576367740642,0.0597772955038,0.0618590114093,0.0639789509119,0.0661400542884,0.0682761653129,0.0704563804879,0.0725042832113,0.0746977296315,0.0767823858137,0.0767867962288,0.0768147288575,0.0768764746682,0.0768647135614,0.0767838559521,0.0766177303184,0.076586857413,0.0767132893112,0.076666244884,0.076611849765,0.0766500733621,0.076478067175,0.0764324928861,0.0764001498424,0.0764119109492,0.0763663366603,0.076285479051,0.0761796290897,0.0761737485363,0.0761237638323,0.0761605172911,0.0761031818954,0.0760208541477,0.0759517576452,0.0759385264001,0.0759914513807,0.0760252645628,0.076013503456,0.0760620180216,0.0759929215191,0.0759355861234,0.0758767805893,0.0757856320115,0.0757400577226,0.0756841924653,0.0757194757857,0.0756430285914,0.075632737623,0.0755518800137,0.0755445293219,0.0754754328194,0.0755298279384,0.075582752919,0.0755871633341,0.0756195063778,0.0756209765162,0.0755312980767,0.0756092154094,0.0755959841642,0.0755312980767,0.0755592307054,0.075498955033,0.0755283578,0.075444559914,0.075419567562,0.0754533807441,0.0753225384308,0.0753137176007,0.0754107467319,0.0754166272853,0.0752857849721,0.0752416808215,0.0751828752875,0.0751181892,0.0750520329742,0.0750902565713,0.0751784648724,0.0751284801685,0.0751034878165,0.0751446516903,0.0751093683699,0.075034391314,0.0750270406222,0.0750564433893,0.0749946975785,0.0748785566487,0.0749638246731,0.075034391314,0.0749976378552,0.0750123392387,0.0749623545348,0.0749461830129,0.075004988547,0.0750182197921,0.0750917267097,0.0752196287463,0.0751564127971,0.0752975460789,0.0753622321663,0.0753034266323,0.0752666731735,0.0752710835886,0.0752637328968,0.0753872245183,0.0752093377778,0.0750711447728,0.0751505322437,0.0750446822824,0.0749917573018,0.0749270712143,0.0749417725979,0.0749285413527,0.0747227219835,0.0748094601462,0.0748667955419,0.0748873774789,0.0748300420832,0.0748623851269,0.0748785566487,0.0746933192165,0.0748065198695,0.0747403636437,0.0747388935054,0.0747094907383,0.0747241921219,0.074653625481,0.0747065504616,0.0747183115684,0.0747036101849,0.0746477449276,0.0747080206,0.0746154018839,0.0746756775563,0.074653625481,0.0745330741362,0.074762415719,0.0748873774789,0.0749226607993,0.0750005781319,0.0750417420057,0.0752034572244,0.0753416502294,0.0754092765936,0.0755562904287,0.0757356473076,0.0760752492667,0.0760958312037,0.0761943304732,0.0764075005341,0.0764001498424,0.0763780977671,0.076453074823,0.0766000886582,0.0766765358524,0.0767809156754,0.0769837947679,0.0770558315471,0.0772484196711,0.0774204258582,0.0773439786639,0.0773645606009,0.0773924932295,0.0773660307392,0.0773822022611,0.0775101042976,0.0776556479944,0.0776644688245,0.0778276541815,0.0777497368489,0.0777129833901,0.0778688180554,0.0778761687471,0.0779070416525,0.0780408242425,0.0780452346575,0.078005540922,0.0780040707837,0.0780070110604,0.078005540922,0.0781540248955,0.0780702270095,0.0779643770482,0.0781496144805,0.0781260922669,0.0781628457256,0.0782216512597,0.0783098595608,0.0783127998375,0.0782672255486,0.0783760157866,0.0783157401142,0.0784230602138,0.0783642546798,0.0782569345801,0.0782628151335,0.0784465824274,0.0785906559859,0.0786715135952,0.078653871935,0.0786729837336,0.0787303191293,0.0787523712045,0.0787817739716,0.078842049644,0.0791419578676,0.0791595995278,0.0792419272755,0.0792639793508,0.0793565980669,0.0792683897658,0.0793815904189,0.0795094924555,0.0796315139386,0.0797447145917,0.0798049902641,0.079904959672,0.0800622644756,0.0799916978347,0.0798535048297,0.0798711464899,0.0798696763515,0.0799784665895,0.0801504727766,0.0802651435681,0.080285725505,0.0803342400706,0.0804680226605,0.0805003657043,0.0805959246971,0.0807488190856,0.0807576399157,0.0807370579788,0.0808429079401,0.0809987426054,0.0810869509064,0.0812427855717,0.0812369050183,0.0812280841882,0.0812266140498,0.0812765987538,0.0813324640111,0.0814441945258,0.0813324640111,0.0813265834577,0.0813853889918,0.0814882986764,0.0815691562857,0.0816426632033,0.0816279618197,0.0816397229266,0.0816838270771,0.0815647458706,0.0815353431036,0.0817632145481,0.0820146082061,0.0822101366069,0.0823086358764,0.0823850830707,0.0823659712721,0.0825673802262,0.0827408565517,0.0828128933309,0.0829599071661,0.0830157724234,0.0832260022076,0.0834406424069,0.0835950069338,0.0837434909073,0.0837728936743,0.0838022964414,0.0839772429052,0.0840051755339,0.0841889428278,0.0844256351023,0.0846079322579,0.0846343947482,0.0847240731877,0.0848931390981,0.085022511273,0.0852356813339,0.0853915159992,0.0855091270673,0.0856282082737,0.0856973047762,0.0858751915168,0.0860530782573,0.0861956816774,0.0864088517383,0.086654364843,0.0867190509304,0.0866426037362,0.0867337523139,0.0869439820982,0.0870586528896,0.0873218076545,0.0873600312516,0.0875599700674,0.087608484633,0.0876305367083,0.0876952227957,0.0877701998516,0.087796662342,0.0879495567305,0.0880862795972,0.0881436149929,0.0882920989664,0.0884097100345,0.0887022675664,0.0888331098797,0.0888375202947,0.088997765375,0.0892726812467,0.0894094041134,0.0894520381256,0.0897475359342,0.0898916094926,0.090006280284,0.0902709051873,0.0903929266704,0.0904943662167,0.0905237689837,0.0906722529572,0.0908427890059,0.0910192056081,0.091144167368,0.0912544277443,0.0914029117178,0.0915719776282,0.0916454845458,0.0917704463056,0.0917572150605,0.0918395428081,0.0918704157135,0.0920056684418,0.0920997572963,0.0922570620999,0.0922835245902,0.0922967558354,0.0921173989565,0.0922585322383,0.0925055154813,0.0926069550275,0.0928157146734,0.0927113348505,0.0927245660956,0.0929921312756,0.093106802067,0.0931229735889,0.09322000272,0.0935199109437,0.0933964193222,0.0935052095602,0.0935934178613,0.0935875373079,0.0935890074462,0.0937727747402,0.0939947656312,0.0941079662843,0.0941770627868,0.0942167565223,0.0944299265832,0.0945401869596,0.0947415959137,0.0947959910327,0.0948415653216,0.0950179819237,0.0951179513316,0.0953237707008,0.0955016574413,0.0956530816915,0.0958353788471,0.0958677218908,0.0960897127819,0.0964116730808,0.096810080574,0.0968659458314,0.096889468045,0.0969365124722,0.0970364818801,0.0971629137783,0.0973069873368,0.0973349199654,0.0973025769217,0.0973643227325,0.0973804942543,0.0973187484436,0.0976230670823,0.0976127761139,0.0976113059755,0.0977127455217,0.0980332356823,0.0980788099712,0.0980891009397,0.0981861300709,0.0982860994788,0.0984287028988,0.0983684272264,0.0984992695397,0.0986315819913,0.0988315208071,0.0989785346422,0.0990270492078,0.0990932054336,0.0990682130817,0.0991564213828,0.0992269880236,0.0994313372545,0.0996283357935,0.0996327462086,0.0995239559706,0.0995092545871,0.0995401274925,0.0996342163469,0.0997635885219,0.099860617653,0.0999855794129,0.100120832141,0.100098780066,0.100235502933,0.100423680642,0.100417800088,0.100463374377,0.100463374377,0.100592746552,0.100650081948,0.100669193746,0.100563343785,0.100647141671,0.100647141671,0.100685365268,0.100773573569,0.100725059004,0.100838259657,0.100889714499,0.100917647128,0.100916176989,0.100847080487,0.100730939557,0.100767693016,0.100797095783,0.100863252009,0.100897065191,0.100764752739,0.100744170802,0.100833849242,0.100860311732,0.100877953392,0.100982333215,0.10095146031,0.101060250548,0.100938229065,0.10098674363,0.100914706851,0.101019086674,0.101067601239,0.100945579756,0.100957340863,0.100836789518,0.100845610348,0.100757402047,0.100767693016,0.100797095783,0.100851490902,0.10081767772,0.100823558273,0.100770633293,0.100633910426,0.100673604161,0.10057657503,0.10054129171,0.100431031333,0.100232562656,0.100332532064,0.100654492363,0.100663313193,0.10071917845,0.100629500011,0.100569224338,0.100578045169,0.100595686829,0.100560403508,0.100560403508,0.100554522955,0.100445732717,0.100489836867,0.100320770957,0.100232562656,0.100220801549,0.100276666806,0.100120832141,0.1001575856,0.100185518229,0.100214920996,0.10031783068,0.100356054277,0.100464844515,0.10055011254,0.100608918074,0.100605977797,0.10059421669,0.100544231986,0.100545702125,0.100614798627,0.100691245822,0.10071035762,0.100679484715,0.100607447936,0.100703006928,0.100548642401,0.100335472341,0.100328121649,0.100278136945,0.100245793901,0.10013112311,0.100016452318,0.0999885196896,0.0999076620803,0.0999488259541,0.099935594709,0.100051735639,0.0999297141556,0.0998650280681,0.0999635273376,0.0998709086215,0.0997547676918,0.0997885808738,0.0996577385606,0.0996577385606,0.0996503878688,0.0996753802208,0.0995518885993,0.0994195761476,0.0994122254559,0.0993328379849,0.099178473458,0.0991373095842,0.0992152269168,0.0991564213828,0.0991211380623,0.0990241089311,0.0989182589698,0.0988917964795,0.0990373401763,0.099010877686,0.0991343693075,0.0990535116982,0.0990094075476,0.0990535116982,0.0989506020136,0.0990638026666,0.0991181977856,0.0990608623899,0.0990446908681,0.0989006173096,0.098738902091,0.0986771562802,0.0987227305691,0.0988124090085,0.09879329721,0.0986903875254,0.0986506937899,0.0985786570107,0.0984198820687,0.0982699279569,0.0982052418694,0.0981302648135,0.0980685190028,0.0979700197332,0.0978156552063,0.0976730517863,0.0977259767669,0.0976921635848,0.0975613212716,0.0975657316866,0.0974010761913,0.0972026075138,0.0969850270378,0.0968497743095,0.0966571861855,0.0964969411052,0.0963322856098,0.0961896821898,0.0960573697381,0.0959059454879,0.0958133267718,0.0955457615919,0.0953575838829,0.0950826680112,0.0949356541761,0.0947283646685,0.0945563584814,0.0942049954154,0.0940521010269,0.0937918865387,0.0934875679,0.0932596964555,0.0929347958799,0.0928524681322,0.0927863119064,0.0926113654426,0.0924261280103,0.0922761738985,0.0921218093716,0.0920968170196,0.0919321615243,0.0917322227085,0.0914029117178,0.0911853312418,0.0910500785135,0.0906766633722,0.0904884856633,0.0903811655636,0.0904017475005,0.0901077198303,0.0898504456188,0.0897019616453,0.0894696797858,0.0893755909313,0.0890653917392,0.088830169603,0.0886655141076,0.0885787759449,0.0885126197191,0.0883964787893,0.0883170913183,0.0883288524251,0.0883141510416,0.0882097712187,0.0880451157233,0.0879436761771,0.087851057461,0.0877628491599,0.0877025734875,0.0874438291376,0.0872630021204,0.0872203681082,0.0871027570401,0.086871945319,0.0866396634595,0.0864397246437,0.086219203891,0.086060428949,0.0858913630386,0.0857664012788,0.0855076569289,0.0854811944386,0.0854003368293,0.0851798160766,0.0849651758773,0.0849240120034,0.084863736331,0.084587350321,0.0845182538185,0.0843183150027,0.0842727407138,0.0841154359102,0.0839434297231,0.0838743332206,0.083721438832,0.0837361402156,0.0834773958657,0.0833494938292,0.0831039807245,0.0830848689259,0.0830025411782,0.0827702593187,0.0827276253065,0.0826555885273,0.0826026635467,0.0824732913718,0.0823850830707,0.082223367852,0.0820660630484,0.0820219588979,0.0819734443323,0.0818293707739,0.0818308409122,0.0818205499438,0.0818396617423,0.0817132298441,0.0817058791524,0.0817602742714,0.0816838270771,0.0816411930649,0.0816382527882,0.0814633063244,0.0813809785767,0.0814559556326,0.0813633369165,0.0812663077853,0.0813045313824,0.0812633675086,0.0812927702756,0.0811134133968,0.0809766905301,0.0807488190856,0.0808135051731,0.0806856031365,0.0807120656269,0.0804577316921,0.0803210088254,0.0804092171265,0.0802989567501,0.0802033977573,0.0801240102863,0.0801313609781,0.0800990179344,0.0801710547136,0.0801901665121,0.0801975172039,0.0801725248519,0.0801151894562,0.0800211006017,0.0799520040992,0.0799828770046,0.0798623256598,0.0798682062132,0.0796418049071,0.079578588958,0.0795036119021,0.0793286654382,0.079306613363,0.0792169349235,0.0791698904963,0.0790022947243,0.0790258169379,0.0789317280834,0.0788435197823,0.0787832441099,0.078846460059,0.0788067663235,0.0789082058698,0.0787950052167,0.0787023865006,0.0787317892676,0.0788773329644,0.0788111767386,0.0786773941486,0.078678864287,0.0786979760855,0.0787450205128,0.0787994156318,0.0787406100977,0.078599476816,0.0784083588303,0.0784803956095,0.07851567893,0.0786112379228,0.078549492112,0.0784980372697,0.0783907171701,0.0785436115586,0.0784465824274,0.0785921261242,0.078624469168,0.0787288489909,0.078737669821,0.0787420802361,0.0787611920346,0.0788155871536,0.0788641017192,0.0787009163622,0.0786494615199,0.0785568428038,0.078495096993,0.0784539331192,0.0783583741264,0.0783583741264,0.0783127998375,0.078352493573,0.0781878380776,0.0781290325436,0.0781378533737,0.078193718631,0.078164315864,0.0781084506066,0.0779629069099,0.077812952798,0.0777453264339,0.0776821104847,0.0777365056037,0.077624775089,0.0776380063342,0.0775203952661,0.077595372322,0.0775600890016,0.0774424779335,0.0774013140596,0.0773322175571,0.0772616509163,0.0772601807779,0.0771396294331,0.077239598841,0.0773513293557,0.0772734120231,0.0770029065664,0.0768897059134,0.0769029371585,0.0769088177119,0.0770131975349,0.0769690933843,0.0769720336611,0.0771219877729,0.0770631822388,0.0769749739378,0.0769999662897,0.0770602419621,0.077047010717,0.0769573322775,0.0769720336611,0.0769499815858,0.0769690933843,0.0769293996489,0.0770249586417,0.0770264287801,0.0770690627922,0.0770573016854,0.0770661225155,0.0770440704403,0.0770528912704,0.0770029065664,0.0770646523772,0.0772087259356,0.0771116968044,0.0771484502632,0.0770778836223,0.0769764440761,0.077047010717,0.0770367197485,0.0769514517241,0.0769661531076,0.0770793537607,0.0773175161736,0.0773983737829,0.0773586800475,0.0773866126761,0.0774160154432,0.0773866126761,0.0773351578338,0.0773351578338,0.0774174855815,0.0774145453048,0.0775600890016,0.0775821410769,0.0776879910382,0.0776482973027,0.0776041931521,0.0775733202467,0.0776438868876,0.0776527077177,0.0777761993392,0.0777806097543,0.0778879298539,0.077867347917,0.0777747292009,0.0778585270869,0.0778938104073,0.0778217736281,0.0777173938052,0.0778335347349,0.0778394152883,0.0778776388855,0.0779188027593,0.0778776388855,0.0776982820066,0.0776909313149,0.077862937502,0.0779188027593,0.0776835806231,0.07770416256,0.077783550031,0.0776512375794,0.0777791396159,0.0778688180554,0.0778335347349,0.0777467965722,0.077812952798,0.0777012222833,0.0775644994166,0.0774733508389,0.0774674702855,0.0775336265113,0.0775453876181,0.0776174243973,0.077595372322,0.0774718807005,0.0774483584869,0.0774145453048,0.0773645606009,0.0772748821614,0.0773439786639,0.0771440398482,0.0770426003019,0.0772248974575,0.0773307474188,0.0772351884259,0.0772498898095,0.0772219571808,0.0772425391177,0.0771219877729,0.0772293078725,0.0772807627148,0.0771705023385,0.0771969648288,0.0774130751665,0.0773307474188,0.0772778224381,0.0773748515693,0.0771690322001,0.0771043461127,0.0771205176345,0.0771778530302,0.0771352190181,0.0771896141371,0.0771910842754,0.0770631822388,0.0770705329306,0.0769396906173,0.0769441010324,0.0768676538381,0.0768941163284,0.0769940857363,0.0768309003793,0.0766633046073,0.0766985879277,0.0767662142919,0.07675004277,0.0768705941148,0.0770102572582,0.0768779448066,0.0768456017628,0.07675004277,0.076775035122,0.0768720642532,0.0768897059134,0.0769984961514,0.0770323093335,0.0769573322775,0.0770087871198,0.0768985267435,0.0768779448066,0.0769352802023,0.0768573628696,0.0769573322775,0.0770661225155,0.0770940551442,0.0771455099865,0.0772116662123,0.0770822940374,0.0771807933069,0.0772293078725,0.077461589732,0.0774292466883,0.0775101042976,0.0775262758195,0.0775821410769,0.0776821104847,0.077679170208,0.0777820798926,0.0779834888468,0.0779673173249,0.0778879298539,0.0778511763952,0.0778305944582,0.0777232743586,0.0778746986088,0.0778335347349,0.0780158318905,0.078005540922,0.0779085117909,0.0778879298539,0.0779261534511,0.0779981902303,0.0781378533737,0.0781319728203,0.0782892776239,0.0781613755873,0.0782407630583,0.0783642546798,0.0783304414977,0.0783436727429,0.0783142699758,0.0782642852719,0.0781995991844,0.0783436727429,0.0782113602912,0.0782025394611,0.0782936880389,0.0783686650948,0.0783583741264,0.0783466130196,0.078461283811,0.0784598136726,0.0784098289687,0.0784245303522,0.0783348519127,0.0783510234346,0.0784186497988,0.0784965671314,0.0785921261242,0.078520089345,0.0784480525658,0.0784936268547,0.0785759546024,0.0785774247407,0.0786862149787,0.078683274702,0.0787185580224,0.0786935656705,0.0785112685149,0.0785436115586,0.0784010081386,0.0785142087916,0.0784098289687,0.078356903988,0.0783510234346,0.0783745456482,0.0783921873084,0.0785274400368,0.0784980372697,0.0784892164396,0.078628879583,0.0786009469543,0.0784803956095,0.0784554032576,0.0784774553328,0.0785318504518,0.07838189634,0.0784509928425,0.0785083282382,0.07851567893,0.0786597524884,0.0787509010662,0.0788052961852,0.0789126162848,0.0788905642095,0.0789978843092,0.0789523100203,0.0790463988748,0.0790228766612,0.0791272564841,0.0791052044088,0.0791154953773,0.0790713912268,0.079093443302,0.0792139946468,0.0791390175909,0.0793183744698,0.0793051432246,0.0793036730863,0.0794536271981,0.0794109931859,0.079440395953,0.0794036424942,0.0794021723558,0.0795315445307,0.0795653577128,0.0794947910719,0.0795359549458,0.0795506563293,0.0795771188196,0.0795153730089,0.0795036119021,0.0796168125551,0.0795050820404,0.0795594771594,0.0796094618634,0.0795756486813,0.07946979872,0.0794815598268,0.0793977619408,0.0794609778899,0.0794683285816,0.079499201487,0.0794536271981,0.0793918813874,0.0793448369601,0.0793463070985,0.0793830605572,0.0795109625938,0.0796050514483,0.0796271035236,0.0796859090576,0.0796682673974,0.0797344236232,0.0798931985652,0.0798490944146,0.079959354791,0.0800078693566,0.080018160325,0.0799990485265,0.0799931679731,0.0799858172813,0.0801563533301,0.0801710547136,0.0802136887258,0.0803592324225,0.0804150976799,0.0805768128985,0.0805635816534,0.0805768128985,0.0806679614763,0.0807399982555,0.0807973336512,0.0810060932971,0.0810207946806,0.080992862052,0.0809781606685,0.0809502280398,0.0808914225057,0.0809075940276,0.0811428161638,0.0810560780011,0.0811413460254,0.0812163230814,0.0811413460254,0.0811001821516,0.0812369050183,0.081239845295,0.0814103813437,0.0814294931423,0.081403030652,0.081432433419,0.0813853889918,0.0813897994068,0.0814486049409,0.0815515146255,0.0815338729653,0.0815456340721,0.0814471348025,0.0815044701982,0.0816309020964,0.0814500750792,0.0815309326886,0.0814927090914,0.0815221118584,0.0815676861473,0.0815823875309,0.081536813242,0.0815500444871,0.0815294625502,0.0816088500212,0.0816514840334,0.0816735361086,0.0818234902205,0.0819925561309,0.0819734443323,0.0818587735409,0.0819822651624,0.0819411012886,0.0820278394513,0.082135159551,0.0821366296893,0.0820939956771,0.0822130768836,0.082026369313,0.082001376961,0.0820028470993,0.0820454811115,0.0821836741165,0.0822013157768,0.0822851136628,0.0821366296893,0.0820587123567,0.0820513616649,0.0820631227717,0.0820763540169,0.0819411012886,0.0820219588979,0.0820734137402,0.0819322804585,0.0818999374147,0.0818337811889,0.0817735055165,0.0818573034026,0.0795815292347,0.0772248974575,0.0748903177556,0.0726380658013,0.0703696423252,0.0680806369122,0.0657651690088,0.0635393795449,0.0612136206731,0.0589672492722,0.056694415381,0.054321612082,0.0519914427951,0.0497097880738,0.0474178423841,0.0451038446191,0.0428839357086,0.040634624031)
m <- c(0.0434578666653,0.0457216963878,0.0480076338225,0.0501830326965,0.0525220286402,0.0548094399223,0.0570202111357,0.0592412992814,0.0615876644626,0.0638500203376,0.0661462747046,0.0684543198514,0.0708257404396,0.0732266379773,0.0756157447353,0.0779532668316,0.0803084750976,0.0826577879737,0.0827712742293,0.0827359018899,0.0828272804334,0.0829053943496,0.0828567573829,0.0828552835354,0.0827992773313,0.0828405450606,0.0827049510929,0.082699055703,0.0826135725494,0.0825236678534,0.0825354586332,0.0826386279565,0.0825723048201,0.0823615446311,0.0823099599694,0.0823821784957,0.0821404675097,0.0820726705258,0.0820122427793,0.0820977259329,0.0820623535935,0.0819473934904,0.0820137166268,0.0820697228309,0.0819518150328,0.0820004519995,0.0820284551016,0.0819061257611,0.0817808487257,0.0815966177912,0.081431546874,0.0813873314497,0.0812738451941,0.0811131958192,0.0810424511404,0.0809599156818,0.0809864449363,0.0810601373101,0.0810100264959,0.0811102481243,0.0811441466162,0.0812296297698,0.0813519591103,0.0813578545002,0.0813401683305,0.0813283775507,0.0812664759567,0.0812001528203,0.0812163651425,0.0811574112435,0.0813003744486,0.0812296297698,0.0813195344658,0.0813843837547,0.0814566022811,0.0814418638063,0.081338694483,0.0813681714325,0.0813254298557,0.0813549068052,0.0813151129234,0.08121783899,0.0812119436001,0.081186888193,0.081220786685,0.0812075220577,0.0811809928031,0.081096983497,0.0811854143455,0.0813460637204,0.0813210083133,0.0813475375679,0.0812679498042,0.0810837188697,0.0810940358021,0.0810571896152,0.0811913097354,0.0810365557505,0.0810100264959,0.0809083310201,0.0809893926313,0.0809672849192,0.0810306603606,0.0809039094777,0.0808744325282,0.0809127525626,0.0808125309342,0.0807948447645,0.0807447339503,0.0806784108139,0.0805767153381,0.08046470293,0.0805015491169,0.0805796630331,0.0805693461007,0.080520709134,0.0805295522189,0.0804543859976,0.0802937366228,0.0804116444209,0.0803571120643,0.0804160659633,0.0804838629472,0.0804912321845,0.0803541643693,0.0801316134005,0.0801419303328,0.0801227703156,0.080043182552,0.0801728811298,0.0802333088763,0.0802554165884,0.0801551949601,0.0800549733318,0.08000928406,0.0799768594156,0.079919379364,0.0797911546336,0.0797351484296,0.0798324223629,0.0798869547195,0.0797896807862,0.0797041976326,0.0796437698861,0.079680616073,0.0797764161589,0.0797336745821,0.0797808377013,0.0797498869043,0.0797263053447,0.079646717581,0.0796879853103,0.079767573074,0.0798663208549,0.0798869547195,0.0798058931084,0.0798058931084,0.0797513607518,0.079708619175,0.0796673514457,0.0796201883265,0.0795980806143,0.0795641821224,0.0794742774264,0.0794241666122,0.0793386834586,0.0792148802707,0.0790527570484,0.0790055939291,0.0790100154716,0.0789495877251,0.07895253542,0.0789053723008,0.0789658000473,0.079045387811,0.0789466400301,0.0788405230119,0.0789009507584,0.0788832645887,0.0788582091816,0.0788788430462,0.0786769259421,0.0786769259421,0.0786179720431,0.078713772129,0.0786002858734,0.0785973381784,0.0785236458046,0.0785089073299,0.0784705872955,0.0785575442966,0.0784764826854,0.0784352149561,0.0784646919056,0.0784116333965,0.0784735349905,0.0785457535168,0.0786887167219,0.0786739782471,0.0788169414523,0.0789628523523,0.0789643261998,0.0790262277938,0.0790660216756,0.0790954986252,0.0790748647605,0.0791117109474,0.0791235017272,0.0791588740666,0.0791235017272,0.0790689693706,0.0791986679484,0.0791456094393,0.0791117109474,0.0791411878969,0.0792664649323,0.0791824556262,0.079197194101,0.0791868771686,0.0793033111192,0.0792782557121,0.0793106803566,0.0792753080172,0.0791515048292,0.0789938031493,0.079011489319,0.0789407446402,0.0790188585564,0.0790498093534,0.079011489319,0.0790262277938,0.0790468616585,0.0789466400301,0.0788508399442,0.0787476706209,0.0787211413664,0.0785428058218,0.0784794303804,0.0783777349045,0.0783217287005,0.078292251751,0.0783571010399,0.0783143594631,0.0782657224964,0.0782215070721,0.0783025686833,0.0781787654953,0.0780534884599,0.0780313807478,0.0780800177145,0.0779753745437,0.0777896697618,0.0777705097446,0.0777911436093,0.0777646143547,0.0776761835062,0.0775582757081,0.0776172296071,0.077595121895,0.0775612234031,0.0775435372334,0.0773828878585,0.0772988785524,0.077204552314,0.0771323337877,0.0769702105653,0.0769259951411,0.0767196564945,0.0768316689026,0.0768670412421,0.0768685150895,0.0768228258178,0.0769377859209,0.0768139827329,0.0768375642925,0.0766680718328,0.0765929056116,0.0765870102217,0.0765604809671,0.076538373255,0.0766135394763,0.0764573116438,0.0765295301701,0.0765619548146,0.0766061702389,0.0765221609328,0.0765604809671,0.076597327154,0.0764410993216,0.076479419356,0.0765162655429,0.0765177393903,0.0764528901014,0.076355616168,0.0763983577448,0.0764278346943,0.076420465457,0.0765236347802,0.0765324778651,0.0765825886793,0.0764926839833,0.0765870102217,0.0765472163399,0.0767727150036,0.0767299734268,0.0766268041035,0.0767358688167,0.0766636502904,0.0765840625267,0.0766415425783,0.0765413209499,0.0766990226298,0.076631225646,0.0765678502045,0.0765472163399,0.076566376357,0.0764749978135,0.0765177393903,0.0764130962196,0.0763703546428,0.0761684375386,0.0760637943679,0.0760446343507,0.0760195789436,0.0761374867416,0.0760136835537,0.076026948181,0.0759842066042,0.0759753635193,0.0759576773496,0.0759149357728,0.0758382957041,0.0758662988061,0.075785237195,0.0756673293969,0.0756349047525,0.0756761724818,0.0757587079404,0.0758427172465,0.0756805940242,0.0755847939383,0.075661434007,0.0755567908363,0.0755332092766,0.0755066800221,0.0754285661059,0.0754978369372,0.075422670716,0.07547867692,0.0753755075968,0.0752340182391,0.0752295966967,0.0752340182391,0.0752723382735,0.075298867528,0.075329818325,0.0754668861402,0.0755788985484,0.0756746986343,0.0757115448212,0.0757351263808,0.0758839849758,0.0758117664495,0.0757719725677,0.0757704987202,0.0757749202626,0.0758397695516,0.0758795634334,0.0758604034162,0.0759164096203,0.0759532558072,0.0759473604173,0.0759783112143,0.0758102926021,0.0756746986343,0.0756997540414,0.0758309264667,0.0757130186687,0.0756864894141,0.0756835417192,0.0757380740758,0.0758324003142,0.0757498648556,0.0758382957041,0.0757778679576,0.0758707203486,0.0759399911799,0.0759267265526,0.075906092688,0.0758618772637,0.0758839849758,0.0758265049243,0.0758500864839,0.0758839849758,0.0758147141445,0.0758648249587,0.0759075665354,0.0757587079404,0.0758559818738,0.0759753635193,0.0759576773496,0.0758795634334,0.0758427172465,0.0759532558072,0.0759915758416,0.0760107358587,0.0761536990639,0.0761817021659,0.0762568683872,0.07623770837,0.0762819237942,0.0762126529629,0.0760593728254,0.0761301175043,0.076116852877,0.076147803674,0.0761522252164,0.0761404344366,0.0762789760993,0.0762259175902,0.0763320346084,0.0764307823893,0.0765737455944,0.0766724933753,0.0767255518844,0.0768228258178,0.0769230474461,0.0770394813967,0.0770895922109,0.0771485461099,0.0772089738564,0.0771765492119,0.077232555416,0.0774388940626,0.0774595279272,0.0773681493838,0.0773961524858,0.0775494326233,0.0776378634718,0.0775317464535,0.0775125864364,0.0774963741141,0.0774418417575,0.0774683710121,0.0773932047908,0.0776393373193,0.0777366112527,0.0779503191366,0.0779797960861,0.0780697007821,0.0780962300367,0.0781212854438,0.0781109685115,0.0782568794115,0.0783394148702,0.0783806825995,0.0784455318884,0.0784116333965,0.078410159549,0.0784985903975,0.0785884950935,0.0786164981956,0.0786386059077,0.0787609352482,0.0787476706209,0.0786916644168,0.0787624090957,0.0788994769109,0.0789377969453,0.078803676825,0.0787845168078,0.0789068461483,0.0790129631665,0.0789982246918,0.0790335970312,0.0792001417959,0.0794654343415,0.079494911291,0.0795243882405,0.0795464959527,0.0796319791063,0.0796599822083,0.0796909330053,0.0796128190891,0.0798545300751,0.0799459086186,0.0800387610095,0.0800372871621,0.0802554165884,0.080281945843,0.0802672073682,0.0803291089622,0.0802893150804,0.0804175398108,0.0804425952178,0.0804720721674,0.0803910105562,0.0804823890997,0.0804602813875,0.0803910105562,0.0804661767775,0.080554607626,0.0805118660492,0.0804809152522,0.0804425952178,0.0806769369665,0.0806282999998,0.0807211523907,0.0808464294262,0.0809849710889,0.0811456204637,0.0811264604465,0.0809643372242,0.081004131106,0.081186888193,0.081248789787,0.0813180606183,0.0813490114153,0.0814256514841,0.0816201993508,0.0816511501478,0.0816098824185,0.0817764271833,0.0820122427793,0.0820092950844,0.0820711966784,0.0821493105946,0.0821714183067,0.082336489224,0.0824602924119,0.0825516709554,0.0825826217524,0.0828906558748,0.0830129852153,0.0831397360982,0.0832237454043,0.0832782777609,0.083393237864,0.0834448225256,0.0835538872388,0.0837351704783,0.0837499089531,0.0840933154149,0.084118370822,0.0840152014987,0.0841198446694,0.0841006846523,0.0843777679777,0.0845059927081,0.0846872759475,0.0847904452708,0.0849393038659,0.0850837409185,0.0852045964115,0.0853254519045,0.0854006181257,0.0854035658207,0.085655593739,0.0857587630623,0.0858412985209,0.0858265600462,0.0859621540139,0.0861434372534,0.0864470498334,0.0864382067486,0.0865104252749,0.0864956868001,0.0866740223446,0.0866681269547,0.0867093946841,0.0867624531932,0.087013007264,0.0872252413005,0.0873460967935,0.0875244323381,0.0876364447462,0.0875922293219,0.087741087917,0.0877779341039,0.0880373312596,0.0883645253992,0.0884853808922,0.0887433042004,0.0888228919641,0.0891382953238,0.0894050617169,0.0896084526686,0.0898590067394,0.090034394589,0.0902245209134,0.0904618103569,0.0905988781722,0.0908509060905,0.0908877522774,0.0910837739916,0.091273900316,0.0915185589969,0.0917101591687,0.0917971161698,0.0919533440022,0.0923674951429,0.0925576214672,0.0929526125907,0.0929806156927,0.0932164312888,0.0934831976819,0.0937882841093,0.0939489334842,0.0941022136216,0.0942805491662,0.0945576324916,0.0948258727322,0.0951206422273,0.0952665531274,0.095438993282,0.0955966949619,0.0958030336085,0.095953366051,0.0960241107298,0.0960727476965,0.0960698000016,0.0960801169339,0.0961656000875,0.0961891816471,0.0962614001734,0.0962289755289,0.0961552831551,0.0962702432582,0.0962923509704,0.0965001634644,0.0964264710906,0.0964412095654,0.0964810034472,0.09646773882,0.0965458527362,0.0965841727705,0.0965841727705,0.0965768035332,0.0966873420938,0.0968568345535,0.0968288314515,0.0968420960788,0.0968759945707,0.0968081975868,0.096796406807,0.0968936807404,0.0968907330455,0.0969673731142,0.0969717946566,0.0970558039627,0.0971324440315,0.0971471825062,0.0971943456254,0.0972695118467,0.0973063580336,0.0974611120185,0.0975392259347,0.0977499861237,0.0978118877177,0.0978443123622,0.0979047401087,0.0980801279583,0.09827762352,0.0982687804351,0.0982982573846,0.0983012050796,0.0985134391161,0.0986166084394,0.098819999391,0.0990042303255,0.0991339289033,0.0991265596659,0.0990351811224,0.0991457196831,0.0990558149871,0.0991530889205,0.0992238335993,0.0992886828882,0.0993461629398,0.0994493322631,0.0995009169247,0.0996026124005,0.0995539754339,0.0994567015005,0.0996055600955,0.0996188247228,0.0995908216207,0.0995112338571,0.0994743876702,0.0994670184328,0.0995937693157,0.0995672400611,0.0996556709097,0.0995259723318,0.0995539754339,0.0996954647915,0.0996704093844,0.0996674616895,0.0996836740117,0.0997691571653,0.0999460188624,0.100002025066,0.100018237389,0.099969600422,0.0998634834037,0.0998914865058,0.0998620095563,0.0998885388108,0.100021185084,0.100012341999,0.100077191288,0.100125828254,0.100220154493,0.100205416018,0.100196572933,0.100237840663,0.100388173105,0.100326271511,0.100492816276,0.100528188615,0.100410280817,0.100486920886,0.10052524092,0.100728631872,0.100716841092,0.10083474889,0.100887807399,0.100911388959,0.100954130536,0.10099834596,0.101039613689,0.101005715197,0.101182576894,0.101192893827,0.101104462978,0.101172259962,0.101220896929,0.101262164658,0.101316697015,0.101343226269,0.101399232473,0.101341752422,0.101408075558,0.10142428788,0.101416918643,0.101344700117,0.101324066252,0.101153099945,0.101044035232,0.10099834596,0.101014558282,0.100930548976,0.10085833045,0.100814115025,0.100769899601,0.100734527262,0.100775794991,0.10068883799,0.100758108821,0.100681468753,0.100699154922,0.100597459447,0.100498711666,0.10055471787,0.100504607056,0.100450074699,0.100401437732,0.100436810072,0.100267317612,0.100217206798,0.100295320714,0.100211311408,0.100096351305,0.100072769745,0.0999828650492,0.0998502187764,0.099969600422,0.0998634834037,0.0997971602673,0.0998634834037,0.0997691571653,0.0998340064542,0.0998502187764,0.0998266372168,0.0998222156744,0.0998944342007,0.0998826434209,0.0999106465229,0.100006446609,0.100084560525,0.0999828650492,0.0999504404048,0.0998914865058,0.0999253849977,0.0999637050321,0.099907698828,0.0999003295906,0.0998826434209,0.0997264155885,0.0996202985703,0.0995775569935,0.0994581753479,0.0993122644479,0.0991015042588,0.0989924395457,0.0988848486799,0.0988362117132,0.0988008393738,0.0986844054233,0.0984913314039,0.0983277343342,0.098308574317,0.0981420295522,0.0981449772472,0.0979990663471,0.0979224262784,0.0979799063299,0.0978281000399,0.0977396691914,0.0976276567833,0.0975760721216,0.097369733475,0.097161920981,0.0969216838424,0.0967433482979,0.0966637605342,0.0965620650584,0.0964544741927,0.0963660433441,0.0962761386481,0.0959754737631,0.0957941905236,0.0956762827256,0.0955053164184,0.0954891040962,0.0953756178405,0.0952164423132,0.0952267592455,0.0951619099566,0.0950779006505,0.0949983128868,0.0948818789362,0.0946313248654,0.0945089955249,0.0944500416259,0.0944883616602,0.0945296293896,0.0945134170673,0.0943277122854,0.0942112783348,0.094140533656,0.0939857796711,0.0938752411104,0.0938148133639,0.0937028009557,0.0937573333123,0.0935126746314,0.0934979361566,0.0934448776475,0.0935480469708,0.0934581422748,0.0932871759676,0.0932090620514,0.0931530558474,0.093232643611,0.0931560035423,0.0931943235767,0.0931604250847,0.0931235788978,0.0929968280149,0.0928671294371,0.0927536431815,0.0925974153491,0.092479507551,0.0924013936348,0.0922834858368,0.0923114889388,0.0922849596842,0.0924279228894,0.0923129627863,0.0921626303438,0.0920167194437,0.0918118546446,0.0917086853213,0.0917086853213,0.0916202544727,0.091484660505,0.0913343280625,0.0912385279766,0.0911235678735,0.0910100816178,0.0908420630056,0.0908921738198,0.0907329982924,0.0905738227651,0.0902245209134,0.0899975484021,0.0897558374161,0.0897558374161,0.0896158219059,0.0894345386664,0.0891633507309,0.0888700550833,0.08861507947,0.0883306269072,0.0882363006688,0.0879769035131,0.0878663649524,0.087769091019,0.0875553831351,0.0873652568107,0.0871810258763,0.0869687918398,0.0868833086862,0.0865516930042,0.0862525019666,0.0860815356595,0.0858899354876,0.0858206646563,0.0856953876209,0.0854625197197,0.0852856580226,0.0851500640549,0.0849938362225,0.084781602186,0.0847020144223,0.0845502081323,0.0843055494514,0.084298180214,0.0841566908563,0.0839444568199,0.0838781336834,0.0837911766824,0.0836924289015,0.0834079763387,0.0832591177437,0.0830940468264,0.0830100375203,0.082999720588,0.0830852037416,0.0830395144698,0.082940766689,0.0829245543667,0.0828906558748,0.082878865095,0.0829083420445,0.0829304497566,0.0829481359263,0.0829569790112,0.0827108464828,0.0826106248544,0.0826327325666,0.0826504187363,0.0824779785816,0.0824013385129,0.0821434152047,0.0820874090006,0.0819960304571,0.0818869657439,0.0818117995227,0.0817174732842,0.08152145157,0.0813254298557,0.0813843837547,0.0811692020233,0.0809834972414,0.0809333864272,0.0808434817312,0.0806666200341,0.0806194569149,0.080644512322,0.0805354476088,0.0804160659633,0.0802421519612,0.0800800287388,0.0798338962104,0.0798840070246,0.0798722162448,0.079798523871,0.0796673514457,0.0795759729022,0.0794374312395,0.0793033111192,0.0791883510161,0.0790719170655,0.0789967508443,0.0788788430462,0.0788243106896,0.078741775231,0.078893581521,0.0787977814351,0.0788596830291,0.0788272583846,0.0788405230119,0.0787388275361,0.0786960859593,0.0785855473986,0.0786282889754,0.0787226152138,0.0786710305522,0.0785634396865,0.0785708089238,0.0786415536027,0.0786813474845,0.0787904121977,0.0788714738089,0.0787329321462,0.0787550398583,0.0787240890613,0.0788817907412,0.0789097938432,0.0788788430462,0.0787638829431,0.0787064028916,0.0786621874673,0.0786474489926,0.0785752304663,0.0784809042278,0.0782966732934,0.0782215070721,0.0781655008681,0.0782244547671,0.0782951994459,0.0781522362408,0.0780903346468,0.0779385283568,0.0777542974224,0.0776422850142,0.077474266402,0.0774108909605,0.077415312503,0.0773637278413,0.0773430939767,0.0772841400776,0.077139703025,0.0770055829048,0.0769083089714,0.0769304166835,0.0768508289198,0.0769451551583,0.0768051396481,0.0767329211218,0.0767594503763,0.0767343949693,0.0767226041894,0.0765855363742,0.0764027792872,0.076386566965,0.0763187699811,0.0762863453367,0.0762391822175,0.0760873759275,0.0760107358587,0.0760431605032,0.0761979144881,0.0761271698093,0.0761065359446,0.0760520035881,0.0759547296547,0.076082954385,0.0759915758416,0.0760004189264,0.0761227482669,0.0761920190982,0.0762789760993,0.0761286436568,0.0761846498609,0.0762023360306,0.0761581206063,0.0760873759275,0.0760711636052,0.0761050620972,0.0762406560649,0.0761625421487,0.0761654898437,0.0761065359446,0.076234760675,0.0760166312486,0.0760077881638,0.0760446343507,0.0760416866557,0.0759311480951,0.0760151574012,0.0759768373668,0.0759046188405,0.0758220833819,0.0758530341788,0.0758117664495,0.0758147141445,0.0758058710596,0.0757012278889,0.0757277571434,0.0756673293969,0.0756761724818,0.0757159663636,0.0756864894141,0.0757307048384,0.0756658555494,0.0756894371091,0.075664381702,0.0755656339211,0.0755965847181,0.0755361569716,0.075422670716,0.075391719919,0.0754049845463,0.075419723021,0.0753371875624,0.0752074889845,0.0750733688643,0.0750483134572,0.0748419748106,0.0746680608085,0.0748080763187,0.0748095501661,0.0746135284519,0.0745162545185,0.0746297407741,0.0746990116055,0.0747196454701,0.0747992332338,0.0748228147934,0.0747476485722,0.0749141933369,0.0750158888127,0.0749908334056,0.0751279012209,0.0751146365936,0.0751264273734,0.075150008933,0.0752281228492,0.0752133843744,0.0752973936805,0.0753106583078,0.0753666645119,0.0754491999705,0.0754993107847,0.0756422739898,0.0757159663636,0.075937043485,0.0759974712315,0.0760623205204,0.0762023360306,0.076296662269,0.0763615115579,0.0765310040176,0.0765030009156,0.0765929056116,0.0767122872571,0.0768051396481,0.0768832535643,0.077083696821,0.0771794969069,0.0771824446018,0.0771632845846,0.0772811923827,0.0772590846706,0.0772237123311,0.0773445678241,0.0772472938908,0.0772281338736,0.0773091954847,0.077291509315,0.0773637278413,0.077350463214,0.0773755186211,0.0773268816544,0.0773209862645,0.0772030784665,0.0771220168553,0.0769554720906,0.0769259951411,0.0769407336158,0.0768346165976,0.0768375642925,0.0766739672228,0.0767565026814,0.0767343949693,0.0766533333581,0.0766444902732,0.0766120656288,0.0766400687308,0.0767653457662,0.0746680608085,0.0725162434941,0.0702863122635,0.0680755410501,0.0659016160236,0.0637586417941,0.0616525137515,0.059509539522,0.0573267714106,0.0551941141135,0.0531159891729,0.0509582764686,0.048880151528,0.0466914880268,0.0445205106952,0.0423126871768,0.040218349914,0.0381225388037)
s <- c(0.0448070954271,0.0447590910764,0.0447251569664,0.0447458484968,0.0447996464761,0.0447756443007,0.0448021294598,0.0447847485742,0.0447715059946,0.0447268122888,0.0447499868029,0.0447946805088,0.0448501338105,0.0448617210675,0.0448161997005,0.0448161997005,0.0447855762354,0.04476157406,0.0447383995459,0.0447119143869,0.0446994994686,0.0446804632605,0.0446299759261,0.0446018354447,0.044553831094,0.0444843075516,0.0443932648174,0.0443667796584,0.0443692626421,0.0443353285321,0.0443369838545,0.0443104986955,0.0443444328055,0.0443891265113,0.0443336732097,0.0442740816019,0.0443080157119,0.0442980837772,0.0442840135365,0.0442956007936,0.0441822112065,0.0441822112065,0.0441491047578,0.044202902737,0.0441391728231,0.0441375175007,0.0440961344397,0.0440878578275,0.0440663386358,0.0441151706478,0.0440696492807,0.0440464747666,0.044063027991,0.0440332321871,0.0440679939583,0.044108549358,0.0441888324963,0.0441805558841,0.0442608390224,0.0443427774831,0.0443436051443,0.0443783669155,0.0444007137684,0.0444172669928,0.0444056797357,0.0444263712662,0.044432992556,0.0444528564252,0.044432992556,0.0444023690909,0.0444752032781,0.0444454074743,0.0444263712662,0.0444429244906,0.0445132756942,0.0444660990047,0.0444743756169,0.0444685819884,0.0445339672247,0.044519896984,0.0445381055308,0.0445182416615,0.0444487181191,0.0443601583687,0.0443700903033,0.0443303625648,0.0443742286094,0.044391609495,0.0443700903033,0.0443783669155,0.0443899541726,0.0443336732097,0.0442798752304,0.0442219389451,0.0442070410431,0.0441068940356,0.0440713046031,0.044014195979,0.0439827448527,0.0439661916283,0.044002608722,0.0439786065466,0.0439512937264,0.0439264638898,0.0439719852568,0.0439024617144,0.0438321105108,0.0438196955925,0.0438470084127,0.0437882444662,0.0436839591525,0.0436731995567,0.0436847868138,0.0436698889118,0.0436202292387,0.0435540163411,0.0435871227899,0.0435747078716,0.0435556716635,0.0435457397289,0.043455524656,0.0434083479665,0.0433553776485,0.0433148222487,0.0432237795146,0.043198949678,0.0430830771074,0.04314597936,0.0431658432293,0.0431666708905,0.0431410133927,0.0432055709678,0.0431360474254,0.0431492900049,0.0430541089647,0.0430118982425,0.0430085875976,0.0429936896957,0.0429812747774,0.0430234854996,0.0429357534103,0.0658636245063,0.0670587673069,0.0682961208297,0.0694043592023,0.0706607489331,0.0718997577783,0.073038619616,0.0742205198371,0.0754173179602,0.0766232203566,0.0777587715495,0.0788976333872,0.0801382975548,0.0813574425308,0.0825807258129,0.0837915941766,0.0850314306831,0.0862331947735,0.0861851904227,0.0862538863039,0.0862663012222,0.086386312099,0.0863167885566,0.0861653265535,0.0862091925981,0.0862398160632,0.0861686371984,0.0861702925208,0.0861355307496,0.0861272541374,0.0860635242235,0.0860097262443,0.0860047602769,0.085989862375,0.0858930260123,0.0858574365799,0.0857953619885,0.0857432193317,0.0856505212751,0.085559478541,0.0855023699169,0.0854493995988,0.0855081635454,0.0854684358069,0.0854949209659,0.0854642975008,0.0854866443537,0.0854378123418,0.0853815313788,0.0853053865467,0.0852697971142,0.0851986182494,0.0851009542255,0.085102609548,0.0850827456787,0.0851233010784,0.0851249564009,0.0850297753607,0.0849370773041,0.0850107391526,0.0849817710099,0.0849710114141,0.084974322059,0.0849312836756,0.0849196964185,0.0849213517409,0.0849453539163,0.0848510005373,0.0847872706234,0.0847508535298,0.0847698897378,0.08474423224,0.0847450599012,0.0847814769949,0.0847847876398,0.0848427239251,0.0849511475448,0.0849751497202,0.0849147304512,0.0849734943978,0.0848998325492,0.0848410686027,0.0848029961866,0.0848269983619,0.0849130751287,0.0849072815002,0.0848824516636,0.0849370773041,0.0849379049653,0.0848923835983,0.0849056261778,0.0848278260232,0.0847169194198,0.0846656044242,0.0847872706234,0.0847607854644,0.084725196032,0.0847318173217,0.0847343003054,0.08477816635,0.0847649237705,0.0848220323946,0.0848294813456,0.0849536305285,0.0849569411734,0.0850289476994,0.085053777536,0.0849958412507,0.0849875646385,0.0849577688346,0.084966873108,0.0850554328585,0.0849163857736,0.0848667261005,0.0849354219817,0.0847922365907,0.0848170664273,0.0848476898924,0.08484603457,0.0847947195744,0.0846581554732,0.0847690620766,0.0848228600558,0.0848452069088,0.0848932112595,0.0849271453695,0.0849784603651,0.0848634154556,0.0849519752061,0.0848758303739,0.0847889259459,0.08481210046,0.0848129281212,0.0847905812683,0.0848228600558,0.0848228600558,0.0848923835983,0.084831136668,0.0849246623858,0.0849279730307,0.085042190279,0.0850852286624,0.0850471562463,0.0852308970369,0.0853575292035,0.0854427783091,0.0855147848351,0.0855710657981,0.0856960426422,0.08575563425,0.0858251577924,0.086023796485,0.0861363584108,0.0862762331569,0.0863035459771,0.0864450760456,0.0866147465955,0.0865510166817,0.0865278421675,0.0865609486163,0.0866130912731,0.0866710275585,0.0866875807828,0.0869400174547,0.0870351984949,0.0872636329914,0.0873770225785,0.0873844715295,0.0874109566885,0.0874407524924,0.0874200609619,0.087511103696,0.0876294592504,0.0877345722252,0.0877759552862,0.0878487894735,0.0878040957676,0.0878330639103,0.0879712833339,0.0879911472032,0.0880209430071,0.0881649560592,0.0881599900919,0.0881061921127,0.08814509219,0.0882237200058,0.0882444115363,0.0882526881485,0.0881947518631,0.0882038561365,0.0883677330579,0.0883462138662,0.088386769266,0.0885134014325,0.0887120401251,0.088730248672,0.0887211443986,0.0887948062471,0.0888088764878,0.08888502132,0.0888692957568,0.0887650104432,0.088904057528,0.089058830176,0.0891920836323,0.0892367773382,0.089349339264,0.0893749967618,0.0893989989371,0.0894461756266,0.0894403819981,0.0895463226342,0.0897292357636,0.0897557209226,0.0897565485839,0.0898202784977,0.0898600062363,0.0897714464858,0.0898773871219,0.0899990533211,0.0900437470269,0.0900900960552,0.0901025109735,0.0902903900703,0.0903516370005,0.0903640519188,0.0903566029678,0.0904443350571,0.0905337224687,0.0905842098031,0.0905900034316,0.0906769078597,0.0907911251079,0.0908531996994,0.0909674169476,0.0910030063801,0.0910998427427,0.0912951707905,0.0913175176434,0.0912827558722,0.0914358731977,0.0916560310821,0.0917040354328,0.0918265292932,0.091867084693,0.0918745336439,0.0919664040393,0.0920640680632,0.0921468341851,0.0922271173233,0.0923371962655,0.0924025815018,0.0925068668155,0.0926119797903,0.0926881246225,0.0927940652585,0.092814756789,0.092882625009,0.0930092571755,0.092950493229,0.0931267850687,0.0932691427984,0.0933527365815,0.0935215794703,0.0935662731761,0.0937649118687,0.093826158799,0.094041350716,0.0941969510252,0.0943211002081,0.0944849771295,0.0945842964758,0.0947705202501,0.0949335695103,0.0950221292608,0.0952472531124,0.0953217426222,0.0953846448748,0.0954748599477,0.0955667303431,0.0957719903254,0.0960757419929,0.0961734060168,0.0962288593185,0.0962710700406,0.0964663980884,0.0965359216308,0.0966791070217,0.0967966349149,0.0970035502197,0.097189773994,0.0972965422913,0.0974968363064,0.0976598855666,0.0977153388683,0.0979189435282,0.0980778544823,0.0982599399505,0.0984006423578,0.0985198255734,0.0987830218411,0.098892273122,0.0992175439812,0.0993888698536,0.0996156490277,0.0997836642552,0.0998945708586,0.10003775625,0.100213220428,0.100305090823,0.100532697659,0.100630361682,0.100772719412,0.100963081493,0.101166686153,0.101438986694,0.101561480554,0.101651695627,0.101974483503,0.102236024448,0.102534810148,0.102574537887,0.102873323587,0.103104241067,0.103340124514,0.103579318607,0.103734091255,0.103891346886,0.10406350042,0.104297728545,0.10455926949,0.104740527297,0.104907714864,0.105058349206,0.105257815559,0.105437418044,0.105518528843,0.105616192867,0.105607088594,0.105659231251,0.105724616487,0.105814003899,0.105907529616,0.10597788082,0.105951395661,0.106023402187,0.105934842437,0.106130998146,0.10622866217,0.106294047406,0.106433922152,0.106367709254,0.10641902425,0.106591177784,0.106655735359,0.106660701326,0.106777401558,0.107041425487,0.106956176381,0.107024872262,0.107093568144,0.107052185083,0.107046391454,0.107204474747,0.107327796269,0.107434564566,0.107475947627,0.107545471169,0.10770852043,0.107778871633,0.107918746379,0.107991580567,0.108037929595,0.108224153369,0.108324300377,0.108558528502,0.108693437281,0.108796894933,0.108933459034,0.109050159266,0.109286042714,0.109462334553,0.109703183968,0.109736290417,0.109868716212,0.109953137656,0.110123635867,0.110298272385,0.110452217371,0.110463804629,0.110394281086,0.110491117449,0.110449734388,0.110469598257,0.110680651868,0.110711275333,0.110742726459,0.110857771369,0.111067169657,0.111149935779,0.111128416588,0.111128416588,0.111268291334,0.111356023423,0.11130636375,0.111335331892,0.111389129872,0.111497553491,0.111651498478,0.111663913396,0.111750817824,0.111663913396,0.111729298633,0.111848481848,0.111949456517,0.112058707798,0.112070295055,0.112057052476,0.11214809521,0.112196927222,0.112259001813,0.11230452318,0.112299557213,0.11238563398,0.112445225587,0.112447708571,0.112599170574,0.112700145243,0.112733251692,0.11278622201,0.112839192328,0.112903749903,0.112931062723,0.112964996833,0.11298982667,0.113002241588,0.113095767306,0.113137150367,0.113120597142,0.113136322706,0.113221571811,0.113364757202,0.113373861475,0.113439246712,0.113430142438,0.113377999782,0.113422693487,0.113464076548,0.113524495817,0.113524495817,0.113549325654,0.113543532025,0.113544359687,0.113597330005,0.11363457476,0.11371651322,0.1137297558,0.113805900632,0.113768655877,0.11376368991,0.113760379265,0.113828247485,0.113851421999,0.113742170718,0.113737204751,0.113573327829,0.113517046866,0.113441729695,0.113456627597,0.113426004132,0.113416072198,0.113372206153,0.113350686961,0.113301027288,0.113247229309,0.11322074415,0.113205018587,0.113142116334,0.113089973677,0.112921130788,0.11292195845,0.113134667383,0.113111492869,0.11311232053,0.113034520376,0.113020450135,0.112930235062,0.112912026515,0.11293602869,0.112888852001,0.112820983781,0.112746494271,0.112720836773,0.112551166223,0.112568547109,0.112502334212,0.112496540583,0.112446053249,0.112413774461,0.112465917118,0.112491574616,0.112536268322,0.11255530453,0.11265710686,0.112698489921,0.112747321932,0.112799464589,0.112836709344,0.112751460239,0.112734079353,0.112739872981,0.112801947573,0.11283422636,0.112785394349,0.112740700643,0.112784566687,0.11260993017,0.112430327685,0.112402187204,0.112307006164,0.112206859156,0.112023946027,0.111898141521,0.111821996689,0.111749162502,0.111752473147,0.11167963896,0.111636600576,0.1114760343,0.11142885761,0.111390785194,0.11134029786,0.111192974163,0.111168971987,0.111127588926,0.111042339821,0.110988541842,0.11093970983,0.110841218144,0.110650856064,0.110530017526,0.110350415041,0.110163363606,0.110095495386,0.110082252806,0.109988727089,0.109919203546,0.109814090571,0.109585656075,0.109468955843,0.109484681406,0.109373774803,0.109434194072,0.109324942791,0.109210725543,0.109241349008,0.109146995629,0.109163548853,0.109149478612,0.109051814588,0.108902007908,0.108752201227,0.108628052044,0.108614809465,0.108663641477,0.108705024538,0.108589979628,0.108466658106,0.108404583515,0.108277123687,0.108125661684,0.10800730613,0.107907986783,0.107896399526,0.107724245993,0.107660516079,0.107543815847,0.107521468994,0.107500777464,0.107385732554,0.107268204661,0.107239236518,0.107191232168,0.10703645952,0.106935484851,0.106840303811,0.10671118866,0.106549794723,0.106384262479,0.106240249427,0.106078027828,0.105926565825,0.105830557123,0.105613709884,0.105523494811,0.105353824261,0.105351341277,0.10517008347,0.104988825663,0.104709076171,0.104507954495,0.104303522174,0.104132196301,0.103954249139,0.103695191177,0.103564420705,0.103473377971,0.10331032871,0.103142313483,0.10296353866,0.102904774713,0.102801317061,0.102619231592,0.102310513958,0.101997658017,0.101739427716,0.101663282884,0.101374429119,0.101166686153,0.100953977219,0.100800859894,0.100492142259,0.10018756293,0.100050998829,0.0997745599818,0.0996595150723,0.0994302529146,0.0991778162427,0.0989783498888,0.0988260602245,0.0986696322541,0.098556242667,0.0983253251869,0.0981639312491,0.0980596459355,0.0978932860304,0.0977616878965,0.0976342280688,0.0974513149393,0.0973023359198,0.0971922569777,0.0969588565139,0.0967378709683,0.0966691750871,0.096517713084,0.0962503785102,0.0961154697314,0.0959234523286,0.0956801199301,0.0955534877636,0.0954094747114,0.0952836702061,0.0949782632162,0.0948797715311,0.0947415521075,0.0945702262351,0.0944435940685,0.0944684239051,0.0944088322973,0.0941977786864,0.0941497743357,0.0940181762018,0.0939858974143,0.0939138908882,0.0938294694438,0.0938005013012,0.0937193905017,0.0935894476902,0.0933874983527,0.093327906745,0.093199619256,0.0930920232975,0.0930026358858,0.0927270246998,0.0926715713981,0.0925797010027,0.0924886582686,0.0923736133592,0.092270983368,0.0920698616917,0.0918712229991,0.0918794996113,0.091731348253,0.0915459521399,0.0915186393197,0.0914623583567,0.0913737986063,0.0912761345824,0.091286066517,0.0912554430519,0.0911453641098,0.0910236979105,0.090930999854,0.0906942887453,0.0906760801985,0.0907116696309,0.0906181439131,0.0904898564241,0.0904600606202,0.0903590859515,0.0903003220049,0.0901347897611,0.0899924320313,0.0898219338202,0.0897921380163,0.0896895080251,0.0896580568988,0.0896001206134,0.0894693501408,0.0895537715851,0.0894734884469,0.0894271394186,0.0893253370886,0.0893054732194,0.0892251900811,0.0892897476562,0.0893534775701,0.0893286477335,0.0892541582238,0.0892260177423,0.0892127751628,0.0891962219384,0.0892748497542,0.0892525029013,0.0891780133916,0.0890629684821,0.0890099981641,0.0890563471924,0.0889735810704,0.0889437852665,0.0888287403571,0.0887699764105,0.0886507931949,0.0886557591622,0.0885622334445,0.0884596034533,0.0883222116909,0.0883155904011,0.0882617924219,0.0883520074948,0.0883280053194,0.0881955795243,0.0881773709775,0.0881740603326,0.0880333579254,0.0878951385017,0.087801612784,0.0877767829474,0.0878057510901,0.0878074064125,0.0877627127067,0.0876501507808,0.0874614440228,0.0874266822516,0.0873919204804,0.087458133378,0.0873786779009,0.0874026800763,0.0872636329914,0.0873091543585,0.08726942662,0.08733729484,0.087348882097,0.0873306735502,0.0872330095263,0.0872263882366,0.0871990754163,0.0872114903346,0.0872123179958,0.0870351984949,0.0869631919689,0.0869292578589,0.0869814005157,0.086918498263,0.0868531130267,0.0868224895616,0.0867422064233,0.0868365598023,0.0866925467502,0.0866644062687,0.0867380681172,0.0868084193209,0.0868406981084,0.0867248255377,0.0866743382033,0.0865998486936,0.0865369464409,0.08646162927,0.0864831484617,0.0864392824171,0.0865228762002,0.086412797258,0.0864566633027,0.0864036929846,0.0864094866132,0.0862638182386,0.086219952194,0.0862009159859,0.0861984330023,0.0860684901908,0.0861719478432,0.0862133309042,0.0861289094598,0.0859302707672,0.0858839217389,0.0858681961758,0.0858731621431,0.0859269601223,0.0858433663392,0.0858599195636,0.085910406898,0.0858822664165,0.0858549535963,0.0858524706126,0.0859112345592,0.0858673685146,0.0858301237597,0.0858243301312,0.0857564619112,0.0857846023926,0.0857283214297,0.0857183894951,0.0857018362707,0.085733287397,0.0857349427195,0.0856935596585,0.0856083105529,0.0855379593493,0.0854957486271,0.0854146378276,0.0853980846032,0.0854220867786,0.0854436059703,0.0852937992896,0.085182065025,0.0852855226774,0.0853186291262,0.0852822120325,0.0853351823506,0.085412154844,0.0855040252393,0.0856430723241,0.0856778340953,0.0856794894178,0.0857730151356,0.0857490129602,0.0857266661073,0.0857399086868,0.0858301237597,0.0858201918251,0.0859493069753,0.0859691708445,0.0860602135786,0.086084215754,0.0860875263989,0.0861504286515,0.086231539451,0.0863606546012,0.0864641122536,0.0865030123309,0.0866420594158,0.0866834424767,0.0866677169136,0.0868100746433,0.0868142129494,0.086824144884,0.0868324214962,0.0869499493893,0.0869971260788,0.0871312071964,0.0872081796898,0.0871866604981,0.0870749262335,0.0871370008249,0.0872214222693,0.0872330095263,0.0871684519512,0.0871254135678,0.0871593476778,0.0871303795351,0.0871924541266,0.0872834968607,0.0872561840405,0.0872214222693,0.0872313542039,0.0871651413064,0.0870219559154,0.0869251195528,0.0868282831901,0.0868489747206,0.0868638726225,0.0868448364145,0.0868340768186,0.0866726828809,0.0867057893297,0.0866743382033,0.0866006763548,0.0865452230531,0.0865659145836,0.086469078221,0.0864823208005,0.0854071888766,0.0842583951043,0.0829523457003,0.0817191304836,0.080482604622,0.0792907724663,0.078040176364,0.0768971762202,0.0757003780972,0.0744406777215,0.0732885733042,0.0721985434785,0.070985192131,0.0697263194165,0.068561800081,0.0672060910039,0.0659935673177,0.0648257373373,0.0434497310275,0.0434257288521,0.0434563523172,0.0434571799785,0.0433851734524,0.0433893117585,0.04331564991,0.0433181328936,0.0432750945102,0.0432899924122,0.0433462733751,0.0432544029797,0.0431600496007,0.04317991347,0.0432179858861,0.0432088816127,0.0432767498327,0.0433553776485,0.0432808881388,0.0432626795919,0.0432088816127,0.0432229518534,0.0432775774939,0.0432875094285,0.0433487563587,0.0433677925668,0.0433255818446,0.0433545499873,0.0432924753958,0.0432808881388,0.0433131669263,0.0432693008817,0.0433255818446,0.0433868287748,0.043402554338,0.0434315224807,0.0434687672355,0.0433959330482,0.0434513863499,0.0434786991702,0.0436094696428,0.043591261096,0.043636782463,0.0436458867364,0.0436773378628,0.0437336188257,0.0437319635033,0.0437898997886,0.0439032893756,0.0438941851022,0.0438494913964,0.0438287998659,0.0438172126088,0.0437567933398,0.0438420424454,0.0438188679313,0.0439214979225,0.0439157042939,0.0438610786535,0.0438494913964,0.0438710105881,0.0439115659878,0.0439901938037,0.0439868831588,0.0440754429092,0.0440034363832,0.044048130089,0.0441176536314,0.0440986174234,0.0441060663744,0.04408951315,0.0440613726685,0.0440249555749,0.0441060663744,0.0440315768646,0.0440266108973,0.0440779258929,0.0441201366151,0.0441143429866,0.0441077216968,0.0441722792719,0.0441714516107,0.0441433111292,0.0441515877414,0.044101100407,0.0441102046805,0.0441482770965,0.0441921431412,0.0442459411204,0.0442053857207,0.0441648303209,0.0441904878187,0.044236836847,0.0442376645082,0.0442989114384,0.044297256116,0.0443171199853,0.0443030497445,0.0442004197534,0.0442186283002,0.0441383451619,0.0442020750758,0.0441433111292,0.0441135153253,0.0441102046805,0.04412344726,0.0441333791946,0.0442095240268,0.0441929708024,0.0441880048351,0.0442666326509,0.0442509070877,0.0441830388677,0.044168968627,0.0441813835453,0.0442120070104,0.0441275855661,0.0441664856434,0.0441987644309,0.044202902737,0.0442840135365,0.0443353285321,0.0443659519972,0.0444263712662,0.0444139563479,0.0444743756169,0.0444487181191,0.0445016884372,0.0444884458577,0.0445472098042,0.0445347948859,0.0445405885145,0.0445157586779,0.0445281735962,0.0445960418162,0.044553831094,0.0446548057627,0.0446473568118,0.0446465291505,0.0447309505949,0.0447069484195)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("12-organelles-nucleus-merged/APETALA3-GFP-AP1-GR-ap1-cal-ChIPseq-GSM940586.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=282"),bty="n")
dev.off()