# R script for Peak Model
#  -- generated by MACS
p <- c(0.0390951775446,0.0407873042553,0.0435722628,0.0454759053495,0.0481551059747,0.049741474766,0.0512220856378,0.0527026965097,0.0546063390592,0.0559811920116,0.0577085713621,0.0592949401534,0.0615158564611,0.0638072780485,0.0654641521194,0.0679670895456,0.0699764900145,0.0719858904834,0.0723736695213,0.0720211431232,0.0714218482466,0.0710340692087,0.0694124477776,0.070258511133,0.070258511133,0.0709283112893,0.0709635639291,0.0719153852038,0.0707520480902,0.0711398271281,0.0705757848912,0.0703290164126,0.0703995216922,0.0706462901708,0.0710340692087,0.0710693218485,0.0709988165689,0.0720563957631,0.0713513429669,0.0712808376873,0.0709283112893,0.0710693218485,0.0717743746446,0.0725146800805,0.0725851853601,0.0730082170378,0.0741715541514,0.0741010488718,0.0731844802368,0.0725499327203,0.0736427645543,0.0730082170378,0.0733959960757,0.0738190277533,0.0744888279097,0.0741715541514,0.0742773120708,0.0750176175067,0.0752996386252,0.0743125647106,0.0735017539951,0.0725146800805,0.0721269010427,0.0713513429669,0.0718096272844,0.0715981114456,0.0718448799242,0.0725146800805,0.0732902381563,0.0732902381563,0.0726909432796,0.0731844802368,0.0738190277533,0.0731139749572,0.0724441748009,0.0721621536825,0.0713513429669,0.071703869365,0.0714218482466,0.0711750797679,0.0705405322514,0.070434774332,0.0701880058533,0.0699764900145,0.0707167954504,0.0721269010427,0.0710340692087,0.0715628588058,0.0716686167252,0.0717391220048,0.071880132564,0.072796701199,0.0724794274407,0.0732902381563,0.0727261959194,0.0731139749572,0.0730434696776,0.0733607434359,0.0743125647106,0.0748766069475,0.0753701439048,0.075334891265,0.075511154464,0.0748766069475,0.0747708490281,0.074065796232,0.0749118595873,0.074242059431,0.0739247856728,0.0735017539951,0.0749118595873,0.0754406491844,0.0756874176631,0.0754406491844,0.0752291333456,0.0751233754262,0.0763572178194,0.0765334810184,0.0760399440611,0.0760399440611,0.0756169123834,0.0739952909524,0.0739247856728,0.0736427645543,0.0730082170378,0.0724441748009,0.0719506378436,0.0716333640854,0.071703869365,0.0701527532135,0.070258511133,0.0704700269718,0.0707167954504,0.070258511133,0.0692009319388,0.068072847465,0.0676498157873,0.0674735525883,0.0674030473087,0.0676145631475,0.0665922365932,0.0671210261902,0.0670505209106,0.0674735525883,0.0674382999485,0.0669447629912,0.0662749628349,0.065534657399,0.0658166785174,0.0658166785174,0.0654288994796,0.0653583942,0.0644065729252,0.0645123308446,0.0640540465271,0.0644065729252,0.0660634469961,0.0663454681145,0.066803752432,0.0663454681145,0.0658519311572,0.0654994047592,0.0646885940436,0.0645475834844,0.0650058678019,0.0652878889203,0.0654994047592,0.0648648572427,0.0641950570864,0.0645123308446,0.0643008150058,0.0649706151621,0.0644770782048,0.0645475834844,0.0647238466834,0.0650058678019,0.0651821310009,0.0656404153184,0.065534657399,0.0659576890767,0.0665217313135,0.0677908263466,0.0673677946689,0.0687426476213,0.0690599213796,0.0687779002611,0.0694829530572,0.0699764900145,0.0708930586495,0.0708930586495,0.0711045744883,0.0712455850475,0.0695887109766,0.0696239636165,0.0701880058533,0.0708225533699,0.0717391220048,0.0723031642417,0.0722326589621,0.0722679116019,0.0713865956067,0.0713513429669,0.070434774332,0.0700117426543,0.0704700269718,0.0701880058533,0.0709988165689,0.0710693218485,0.0710693218485,0.0715628588058,0.0709283112893,0.071527606166,0.0719858904834,0.0709635639291,0.0707167954504,0.0705405322514,0.0701880058533,0.0690951740194,0.0690246687398,0.0688836581805,0.0679318369058,0.0681786053844,0.0679318369058,0.066980015631,0.0674030473087,0.0665922365932,0.0667684997922,0.0673677946689,0.0681786053844,0.0681433527446,0.0676850684271,0.0671210261902,0.0660634469961,0.0657461732378,0.0660634469961,0.0660986996359,0.066980015631,0.0670152682708,0.0681081001048,0.0689894161,0.0700469952941,0.0716686167252,0.0713160903271,0.0717743746446,0.0721269010427,0.0720211431232,0.071880132564,0.0715628588058,0.0706815428106,0.0711045744883,0.0711398271281,0.0700469952941,0.069165679299,0.0695534583368,0.0708225533699,0.07078730073,0.07078730073,0.070611037531,0.0715981114456,0.0738542803932,0.0735370066349,0.074065796232,0.0737837751135,0.07441832263,0.0743478173504,0.0758284282223,0.0754053965446,0.0759341861417,0.0765687336582,0.0768155021368,0.0779083339708,0.0781198498097,0.0784018709281,0.0786133867669,0.0782608603689,0.0787191446864,0.0776615654922,0.0771680285349,0.0771680285349,0.0769565126961,0.0766392389378,0.0763924704592,0.0761104493407,0.075334891265,0.076780249497,0.076427723099,0.0772385338145,0.0787543973262,0.0790011658048,0.0797767238805,0.0792126816436,0.0787543973262,0.080058744999,0.0807990504349,0.080235008198,0.078965913165,0.0786838920465,0.078789649966,0.0786486394067,0.0779435866106,0.07804934453,0.0773090390941,0.077696818132,0.0768507547766,0.0780140918902,0.0788601552456,0.0784723762077,0.0804817766766,0.0804465240368,0.0815393558708,0.0822444086669,0.0819623875485,0.0825264297854,0.08168036643,0.0818918822689,0.0818918822689,0.082420671866,0.0829847141029,0.0842890617757,0.0848531040126,0.0851703777708,0.0860869464058,0.0866509886427,0.0859811884863,0.0868625044815,0.0868625044815,0.0867919992019,0.0870035150407,0.0866509886427,0.0876028099174,0.0877438204766,0.0877085678368,0.0876028099174,0.0888366523106,0.0880963468747,0.0885546311922,0.0878848310359,0.0878143257562,0.0881315995145,0.0892596839883,0.0886956417514,0.0891891787087,0.0891891787087,0.0887308943912,0.0881668521543,0.0871797782397,0.0871797782397,0.0872855361592,0.0878495783961,0.0885193785524,0.08894241023,0.0896122103863,0.091304337097,0.0911985791776,0.0909870633388,0.09257343213,0.0919036319737,0.0921856530922,0.0916216108553,0.0907402948601,0.0905640316611,0.090951810699,0.0913748423766,0.0937367692436,0.093490000765,0.0928202006087,0.0941245482815,0.0942655588407,0.0941598009213,0.0932784849261,0.0946180852388,0.0940892956417,0.0958166749922,0.0961339487504,0.0965569804281,0.0978965807407,0.0981080965795,0.097121022665,0.0978965807407,0.0968390015465,0.097297285864,0.0990951704941,0.0996944653708,0.0995887074514,0.0990246652145,0.100011739129,0.100470023447,0.101210328882,0.100893055124,0.102091644878,0.102726192394,0.101210328882,0.102479423915,0.104030540067,0.105405393019,0.107485298768,0.107908330446,0.107908330446,0.109353688678,0.107555804047,0.108719141161,0.109741467715,0.109283183398,0.111222078587,0.111715615545,0.112138647222,0.112667436819,0.113548752814,0.113548752814,0.113654510734,0.114888353127,0.115029363686,0.114782595208,0.116404216639,0.117779069591,0.119259680463,0.121938881088,0.121903628448,0.122256154847,0.12341949196,0.12521737659,0.125746166187,0.12701526122,0.127544050817,0.126803745381,0.126662734822,0.127191524419,0.128249103614,0.127755566656,0.126627482182,0.125816671467,0.126415966344,0.128143345694,0.128601630012,0.127438292898,0.127931829855,0.128425366813,0.129095166969,0.129588703926,0.129870725045,0.131880125513,0.13427730502,0.134876599897,0.135193873655,0.135934179091,0.137203274124,0.137168021484,0.137273779404,0.138296105958,0.137309032044,0.136603979247,0.136251452849,0.135088115736,0.134453568219,0.135334884214,0.134735589338,0.134559326139,0.135405389494,0.135581652693,0.134453568219,0.136815495086,0.138719137636,0.139071664034,0.139071664034,0.140834296024,0.1416098541,0.143301980811,0.144077538886,0.142984707052,0.14347824401,0.143760265128,0.14531138128,0.146368960474,0.144747339043,0.144958854881,0.143760265128,0.142491170095,0.141398338261,0.141363085621,0.141715612019,0.141363085621,0.140799043384,0.140164495868,0.140622780185,0.141292580342,0.141891875218,0.141821369939,0.142244401616,0.141891875218,0.142032885778,0.141327832981,0.142596928014,0.142949454413,0.141116317143,0.140799043384,0.141821369939,0.140093990588,0.138225600679,0.138119842759,0.137696811081,0.136603979247,0.136251452849,0.136427716048,0.135898926451,0.13611044229,0.135370136854,0.135898926451,0.135017610456,0.133431241665,0.134594578779,0.134101041821,0.134206799741,0.1343478103,0.133219725826,0.13251467303,0.133889525982,0.133466494305,0.134030536542,0.135863673812,0.135264378935,0.134594578779,0.134453568219,0.1343478103,0.133819020703,0.13431255766,0.134453568219,0.135088115736,0.134735589338,0.133678010144,0.134136294461,0.133501746945,0.13258517831,0.132056388713,0.13251467303,0.132726188869,0.132338409831,0.13258517831,0.131950630793,0.131492346476,0.13061103048,0.130258504082,0.129764967125,0.129518198647,0.129095166969,0.128002335135,0.126909503301,0.126697987462,0.125851924107,0.125464145069,0.126133945225,0.126838998021,0.124441818514,0.124900102832,0.123701513079,0.121410091491,0.120775543975,0.120634533415,0.120458270216,0.120599280776,0.120246754378,0.11975321742,0.119647459501,0.118131595989,0.116827248316,0.117426543193,0.117179774714,0.117743816951,0.117356037914,0.117426543193,0.116368963999,0.115558153283,0.11626320608,0.115064616326,0.115099868966,0.113725016014,0.113689763374,0.113160973777,0.113760268653,0.113372489615,0.112138647222,0.113160973777,0.113795521293,0.113901279213,0.113266731696,0.112702689459,0.11249117362,0.112878952658,0.112420668341,0.110340762592,0.110023488834,0.110129246753,0.109424193957,0.108824899081,0.107978835725,0.107555804047,0.106991761811,0.105828424697,0.105652161498,0.105158624541,0.104806098143,0.104136297986,0.103008213513,0.100787297205,0.101316086802,0.101386592081,0.100470023447,0.100258507608,0.100011739129,0.0993419389727,0.0982843597786,0.0982491071388,0.0969800121058,0.0978965807407,0.0971915279446,0.0963102119494,0.0965569804281,0.0952878853951,0.094759095798,0.0945123273194,0.0941598009213,0.093666263964,0.0926791900494,0.091128073898,0.0905640316611,0.0901762526232,0.0899294841446,0.0890129155096,0.089858978865,0.090035242064,0.089682715666,0.0891186734291,0.08894241023,0.0882373574339,0.0868625044815,0.0870740203203,0.0866509886427,0.0862632096048,0.0868625044815,0.0865099780834,0.0856991673679,0.0846768408135,0.0848883566524,0.0845005776145,0.0839012827378,0.0839365353776,0.0843948196951,0.0830199667427,0.083866030098,0.0827379456242,0.0824559245058,0.0821386507475,0.0818918822689,0.0815746085106,0.081151576833,0.0801645029184,0.0816451137902,0.0816451137902,0.0809400609941,0.0812573347524,0.0818566296291,0.0818566296291,0.0817861243495,0.0826674403446,0.0816451137902,0.0810810715533,0.0809048083543,0.0803055134776,0.0797414712407,0.0801645029184,0.0803760187572,0.0792126816436,0.0797767238805,0.0786133867669,0.0768507547766,0.0770270179757,0.0760399440611,0.0764982283786,0.0760751967009,0.0755816597436,0.0750176175067,0.0749823648669,0.0745240805495,0.0752291333456,0.0747708490281,0.0742773120708,0.0736075119145,0.0739247856728,0.0731844802368,0.0741363015116,0.0736780171941,0.0735722592747,0.0720916484029,0.0719506378436,0.0729024591184,0.072972964398,0.0721621536825,0.0733959960757,0.0733254907961,0.0726909432796,0.0726204379999,0.0719153852038,0.0721621536825,0.0721974063223,0.0725851853601,0.072972964398,0.0727261959194,0.0728672064786,0.0723384168815,0.0730434696776,0.073889533033,0.0742773120708,0.0747003437485,0.0748061016679,0.0745593331893,0.0749118595873,0.0747003437485,0.0737132698339,0.074065796232,0.0746650911087,0.0752291333456,0.0757226703029,0.0767097442174,0.0756874176631,0.076427723099,0.0754406491844,0.075158628066,0.0750176175067,0.0751938807058,0.0745593331893,0.0742773120708,0.0726909432796,0.0729024591184,0.0726556906398,0.0717743746446,0.0718448799242,0.0711045744883,0.0714571008864,0.0711750797679,0.0707520480902,0.0699059847349,0.0694829530572,0.0693771951378,0.0696239636165,0.0686721423417,0.0676498157873,0.0673677946689,0.0664159733941,0.0658519311572,0.0652878889203,0.0656404153184,0.0658519311572,0.0659929417165,0.0668742577116,0.0662044575553,0.0652173836407,0.064265562366,0.063348993731,0.0627144462145,0.0628202041339,0.0622914145368,0.0623619198165,0.0628907094135,0.0632432358116,0.0632079831718,0.0640892991669,0.0635252569301,0.0639835412475,0.0641950570864,0.0637015201291,0.0643360676456,0.0633842463708,0.0635252569301,0.0640540465271,0.0643713202854,0.0653583942,0.0662044575553,0.0657814258776,0.0661339522757,0.065534657399,0.0677908263466,0.0676145631475,0.0677908263466,0.0681433527446,0.0691304266592,0.0689894161,0.0693066898582,0.0681433527446,0.0676850684271,0.0673325420291,0.0673325420291,0.0676145631475,0.066980015631,0.0672620367495,0.0676498157873,0.0678260789864,0.0674030473087,0.0670505209106,0.0666627418728,0.0663807207543,0.0667332471524,0.065887183797,0.0662749628349,0.0665922365932,0.0662397101951,0.0662044575553,0.0654288994796,0.0651821310009,0.0651116257213,0.0647238466834,0.0650058678019,0.0647590993233,0.0644065729252,0.0647943519631,0.0650411204417,0.0658519311572,0.0649001098825,0.0655699100388,0.0660634469961,0.0662397101951,0.0658166785174,0.0662044575553,0.0656756679582,0.065887183797,0.0664864786737,0.0665922365932,0.066803752432,0.0662749628349,0.0668390050718,0.0665922365932,0.0658166785174,0.0662044575553,0.0669447629912,0.0679670895456,0.0677555737067,0.0677555737067,0.0673325420291,0.0670857735504,0.066627489233,0.0670857735504,0.0668390050718,0.066627489233,0.0670857735504,0.0675440578679,0.0673325420291,0.0667684997922,0.0662749628349,0.0654641521194,0.0657461732378,0.0658519311572,0.0651468783611,0.0652173836407,0.0643713202854,0.0642303097262,0.0640187938873,0.0640892991669,0.0643360676456,0.0639482886077,0.0638072780485,0.0648648572427,0.0649706151621,0.0656051626786,0.0656756679582,0.0660986996359,0.0660634469961,0.0661339522757,0.0659576890767,0.0654994047592,0.0652878889203,0.0649353625223,0.0656404153184,0.0652526362805,0.0651821310009,0.0661692049155,0.06715627883,0.0667332471524,0.0669447629912,0.0664512260339,0.0660634469961,0.0660986996359,0.0665217313135,0.06715627883,0.0667684997922,0.0664159733941,0.0669447629912,0.0666627418728,0.0672972893893,0.0673325420291,0.0685311317825,0.068249110664,0.0677555737067,0.067896584266,0.0675088052281,0.0680375948252,0.0684958791427,0.0677203210669,0.0678613316262,0.0669095103514,0.0678260789864,0.0679670895456,0.0682843633038,0.0687779002611,0.0698354794553,0.0703642690524,0.0697297215359,0.0694124477776,0.0689894161,0.0696592162563,0.0705052796116,0.0702232584932,0.0693066898582,0.0699764900145,0.070611037531,0.0710340692087,0.071703869365,0.0715981114456,0.0721621536825,0.0717743746446,0.0723384168815,0.0725146800805,0.0717743746446,0.0714218482466,0.07078730073,0.0705052796116,0.069518205697,0.0699764900145,0.0696944688961,0.0690951740194,0.0684958791427,0.0677908263466,0.0684606265029,0.0676850684271,0.0676145631475,0.0676498157873,0.0676145631475,0.0670857735504,0.0670505209106,0.0667332471524,0.0662044575553,0.0663102154747,0.0673325420291,0.0676498157873,0.0673677946689,0.066803752432,0.0663102154747,0.06715627883,0.0675793105077,0.0672267841097,0.0673325420291,0.0684606265029,0.0685663844223,0.0683548685834,0.0686721423417,0.0701527532135,0.0699412373747,0.0710340692087,0.0715981114456,0.0720211431232,0.0728672064786,0.0735017539951,0.0736075119145,0.0738542803932,0.0741363015116,0.0751233754262,0.0765687336582,0.0763572178194,0.075511154464,0.0762162072601,0.075511154464,0.0757226703029,0.0745945858291,0.0745240805495,0.0748766069475,0.0756874176631,0.0755816597436,0.0755816597436,0.0757226703029,0.0762514598999,0.0764629757388,0.0765334810184,0.0768155021368,0.0762514598999,0.0756169123834,0.075158628066,0.074242059431,0.0731844802368,0.0731844802368,0.0733959960757,0.0726204379999,0.0713160903271,0.0711045744883,0.070434774332,0.0697297215359,0.0694829530572,0.0692714372184,0.0694124477776,0.069518205697,0.069518205697,0.0699412373747,0.0689894161,0.0677203210669,0.068072847465,0.0687073949815,0.069518205697,0.0700469952941,0.0703290164126,0.0706815428106,0.0711750797679,0.0713160903271,0.0706815428106,0.0705405322514,0.0701527532135,0.0703642690524,0.0698707320951,0.0705757848912,0.0700469952941,0.0692714372184,0.0700822479339,0.070258511133,0.070611037531,0.0710340692087,0.0713865956067,0.0714218482466,0.0724089221611,0.0725146800805,0.0731139749572,0.073149227597,0.0728672064786,0.0737485224737,0.07441832263,0.0748766069475,0.0748413543077,0.0750528701465,0.0743478173504,0.0744888279097,0.0759341861417,0.0761457019805,0.0768860074165,0.0763572178194,0.0754406491844,0.0760046914213,0.0772032811747,0.0774147970135,0.0778378286912,0.0774147970135,0.0775910602126,0.0784018709281,0.0777673234116,0.0763572178194,0.076780249497,0.076427723099,0.0778025760514,0.0778378286912,0.0762867125398,0.076780249497,0.0772032811747,0.077873081331,0.0778378286912,0.0779435866106,0.0778025760514,0.0784371235679,0.0773090390941,0.0776263128524,0.0786133867669,0.0778378286912,0.0781903550893,0.0777320707718,0.0773090390941,0.0775910602126,0.0784371235679,0.0780140918902,0.077873081331,0.0782256077291,0.0774147970135,0.0782256077291,0.0787543973262,0.0782961130087,0.0775558075728,0.0776615654922,0.0763924704592,0.0767449968572,0.0772385338145,0.0768860074165,0.0781903550893,0.0789306605252,0.0786486394067,0.0782256077291,0.077696818132,0.0780845971698,0.079142176364,0.0791774290038,0.0782961130087,0.0777320707718,0.0776615654922,0.0775558075728,0.077520554933,0.0769565126961,0.0779788392504,0.0779788392504,0.0779435866106,0.0781198498097,0.0777320707718,0.0774147970135,0.0769565126961,0.076427723099,0.0763924704592,0.0760399440611,0.0754759018242,0.0763219651796,0.0768155021368,0.0758636808621,0.0761104493407,0.0756874176631,0.075334891265,0.0744888279097,0.0751938807058,0.0751938807058,0.0749823648669,0.075334891265,0.0751938807058,0.0756874176631,0.0756169123834,0.0765334810184,0.076603986298,0.0777320707718,0.0779788392504,0.0783313656485,0.0790716710844,0.0790716710844,0.0789306605252,0.0787191446864,0.0786133867669,0.0787191446864,0.0788954078854,0.0790716710844,0.0786486394067,0.0785428814873,0.0782256077291,0.0777673234116,0.0784371235679,0.0788601552456,0.0782961130087,0.0784371235679,0.0783313656485,0.0779435866106,0.0784018709281,0.0787543973262,0.0781551024495,0.0783313656485,0.0785076288475,0.0790716710844,0.0792831869232,0.0788954078854,0.0793184395631,0.0792831869232,0.0796357133213,0.0793184395631,0.0794947027621,0.0794241974825,0.0793536922029,0.0782256077291,0.0777673234116,0.0779435866106,0.0774853022931,0.077696818132,0.0784018709281,0.0784018709281,0.0780140918902,0.0776263128524,0.077873081331,0.0778025760514,0.0774147970135,0.0777673234116,0.0786133867669,0.0798119765203,0.0796004606815,0.0793184395631,0.0795652080417,0.0797767238805,0.0798824817999,0.0796709659611,0.0794947027621,0.0795652080417,0.0790011658048,0.0772385338145,0.0749471122271,0.0729377117582,0.0707520480902,0.0686368897019,0.0658166785174,0.0634547516504,0.0608460563048,0.0586603926369,0.0564394763291,0.0537955283437,0.0518213805145,0.0498119800456,0.0476263163776,0.0449823683922,0.0431492311223,0.0409988200941,0.0384606300281)
m <- c(0.0428613059191,0.0451656772051,0.0471155298317,0.0493844492517,0.0517242724036,0.0544186142149,0.0564039187075,0.0583183194681,0.0604454314244,0.0625016396488,0.064699655337,0.0666495079636,0.069237494177,0.0711518949377,0.073810784883,0.0763278673646,0.0783840755891,0.080156668886,0.0785258830528,0.0790576610419,0.0784904311869,0.0787031423825,0.0781004606615,0.0765405785603,0.0769305490856,0.0774977789406,0.0766469341581,0.0759024449734,0.0759378968393,0.0756897337778,0.076150608035,0.0764696748284,0.0765760304262,0.0768241934878,0.0760088005712,0.0759024449734,0.0760088005712,0.0755833781799,0.0750161483249,0.0747679852634,0.0748034371293,0.073279006894,0.0739880442127,0.0735980736874,0.0737398811512,0.0736335255534,0.0739525923468,0.0739525923468,0.0731371994302,0.0729244882346,0.072676325173,0.0720736434521,0.0721799990499,0.0721799990499,0.0717191247927,0.0714709617311,0.0717191247927,0.0719672878543,0.0720027397202,0.0731371994302,0.0728181326368,0.0714709617311,0.0718609322564,0.0720027397202,0.0719672878543,0.0728890363687,0.0726054214411,0.072109095318,0.0728890363687,0.0727472289049,0.0728890363687,0.0728535845027,0.072711777039,0.0727826807708,0.0729953919665,0.0731371994302,0.0723572583796,0.0735980736874,0.0733853624918,0.0739171404809,0.0735271699555,0.073810784883,0.0739525923468,0.0737753330171,0.0737753330171,0.0739171404809,0.0736335255534,0.0733853624918,0.0734208143577,0.0737044292852,0.0751934076546,0.0754061188503,0.0751225039227,0.0745198222018,0.0743071110062,0.0734917180896,0.0730662956983,0.0736689774193,0.0734917180896,0.074378014738,0.0747679852634,0.074413466604,0.0746616296656,0.0759024449734,0.0750870520568,0.074413466604,0.0742007554084,0.0740234960787,0.0737753330171,0.0731726512962,0.0736689774193,0.0741298516765,0.0750161483249,0.0749452445931,0.0739880442127,0.0740234960787,0.0742362072743,0.0737044292852,0.0723572583796,0.0731726512962,0.0731371994302,0.0736335255534,0.0730308438324,0.0731017475643,0.0734917180896,0.0728181326368,0.0718963841224,0.0722863546477,0.0731371994302,0.0729953919665,0.0734208143577,0.0745907259337,0.0757960893756,0.0759378968393,0.0763633192306,0.0756188300459,0.0751934076546,0.074378014738,0.0746616296656,0.0733144587599,0.0735626218215,0.0742007554084,0.0745198222018,0.0757606375096,0.0751579557887,0.0763987710965,0.0759733487053,0.0749097927271,0.0746616296656,0.0746616296656,0.0753352151184,0.075547926314,0.0759733487053,0.0763278673646,0.0770723565493,0.0764342229625,0.0773559714768,0.0774268752087,0.0782068162594,0.0781004606615,0.0782068162594,0.0793412759694,0.0798730539584,0.0798021502266,0.0793412759694,0.0795894390309,0.0792703722375,0.0782777199912,0.0779232013319,0.0781713643934,0.0777459420022,0.0776750382703,0.0779941050637,0.0777813938681,0.077285067745,0.0783131718572,0.0784549793209,0.0778877494659,0.0777459420022,0.0760442524371,0.0755124744481,0.0740943998105,0.0748034371293,0.0751225039227,0.0751225039227,0.0750161483249,0.0739880442127,0.0736689774193,0.0729244882346,0.0724281621115,0.0716836729268,0.0720027397202,0.0714355098652,0.0708328281442,0.0706555688146,0.0708682800102,0.0714709617311,0.0705492132167,0.0697338203002,0.0700528870936,0.0698756277639,0.0702655982892,0.0711518949377,0.0715064135971,0.0704428576189,0.0702301464233,0.0704783094849,0.0705492132167,0.069804724032,0.0708328281442,0.0703365020211,0.0690602348473,0.0688475236517,0.0689538792495,0.0696274647023,0.0707973762783,0.0716482210608,0.0727826807708,0.073279006894,0.0731726512962,0.0733853624918,0.0731017475643,0.0744489184699,0.0750870520568,0.0750516001909,0.074980696459,0.0755124744481,0.0747679852634,0.0759024449734,0.0763987710965,0.076150608035,0.0760442524371,0.0751225039227,0.0758669931074,0.076150608035,0.0741653035424,0.0739880442127,0.0737044292852,0.073243555028,0.0737044292852,0.0745907259337,0.0744843703359,0.0740234960787,0.0739525923468,0.0740234960787,0.0733144587599,0.073243555028,0.0735626218215,0.0743071110062,0.0743071110062,0.0739525923468,0.0740234960787,0.0734562662237,0.0728890363687,0.0711873468036,0.0715773173289,0.0710809912058,0.0716836729268,0.0711164430717,0.0707264725464,0.0712582505355,0.0714000579993,0.0716482210608,0.0722509027818,0.0710455393399,0.0698756277639,0.0703010501552,0.0703365020211,0.069804724032,0.0692020423111,0.0693438497748,0.0704783094849,0.0702655982892,0.0696983684342,0.0704428576189,0.069804724032,0.0697692721661,0.0690956867133,0.069237494177,0.0697692721661,0.0700883389595,0.0702655982892,0.0700174352277,0.0702301464233,0.0700528870936,0.0703365020211,0.0705137613508,0.070407405753,0.0711164430717,0.0717191247927,0.0722509027818,0.072711777039,0.0730308438324,0.072711777039,0.0726408733071,0.0720381915861,0.0719318359883,0.072144547184,0.0718609322564,0.0709037318761,0.0701237908255,0.0703010501552,0.0699819833617,0.0698756277639,0.069237494177,0.0695565609705,0.0698756277639,0.0701592426914,0.0697692721661,0.0704428576189,0.069272946043,0.0701946945574,0.0703365020211,0.0712582505355,0.0712227986696,0.0712937024014,0.0715064135971,0.0713646061333,0.0715773173289,0.0712937024014,0.0713291542674,0.0708682800102,0.0706910206805,0.0701592426914,0.0705846650827,0.0695920128364,0.0699110796299,0.0688475236517,0.0683866493945,0.0680675826011,0.0685284568583,0.0697338203002,0.0688120717858,0.069237494177,0.068705716188,0.0700528870936,0.0715064135971,0.0713646061333,0.0715064135971,0.0717191247927,0.0721799990499,0.0722863546477,0.0723218065136,0.072676325173,0.0737398811512,0.0734917180896,0.0730662956983,0.0717545766586,0.0711164430717,0.0716836729268,0.0715773173289,0.0713646061333,0.0716836729268,0.0721799990499,0.0725699695752,0.0723572583796,0.0714000579993,0.0713646061333,0.0712582505355,0.0707973762783,0.0695211091045,0.0694856572386,0.0693438497748,0.0693793016408,0.0694147535067,0.0699819833617,0.0694856572386,0.0681739381989,0.0681739381989,0.0680675826011,0.068705716188,0.0689184273836,0.0681739381989,0.0685284568583,0.0680675826011,0.068103034467,0.068670264322,0.0680675826011,0.0676776120758,0.0668267672932,0.0663304411701,0.0658695669129,0.0667558635614,0.0665077004998,0.0669331228911,0.0653732407898,0.0650187221304,0.0654441445217,0.0656923075832,0.065231433326,0.0651605295942,0.065231433326,0.0659404706448,0.065266885192,0.0650896258623,0.0659404706448,0.0658695669129,0.0662240855723,0.0667558635614,0.0670394784889,0.066968574757,0.066968574757,0.0676776120758,0.0678194195395,0.0681739381989,0.0670394784889,0.0666140560976,0.0662240855723,0.0656923075832,0.0666849598295,0.0665077004998,0.0666495079636,0.0658695669129,0.0656568557173,0.0649832702645,0.065798663181,0.0662949893042,0.0660468262426,0.0661886337064,0.0666849598295,0.0666140560976,0.0674294490142,0.0675712564779,0.0664722486339,0.0655505001195,0.0657632113151,0.065834115047,0.0655859519854,0.0654441445217,0.0658695669129,0.0657632113151,0.0660822781085,0.065834115047,0.0656214038513,0.065231433326,0.0647705590688,0.0653732407898,0.0650896258623,0.0636360993588,0.0650187221304,0.0651250777282,0.0661886337064,0.0669331228911,0.0662240855723,0.0674294490142,0.0671458340867,0.0673230934164,0.0671103822207,0.0678548714054,0.0679966788692,0.0682093900648,0.0679257751373,0.0672876415504,0.0682448419308,0.0680321307351,0.067535804612,0.0670394784889,0.0670040266229,0.067535804612,0.0675712564779,0.067535804612,0.0687766199198,0.0695211091045,0.0701946945574,0.0696274647023,0.0694147535067,0.0705492132167,0.070371953887,0.0717900285246,0.0723218065136,0.0723927102455,0.073846236749,0.0733144587599,0.0736335255534,0.0749097927271,0.0736335255534,0.0745552740677,0.073810784883,0.0734562662237,0.0741653035424,0.0736689774193,0.0740943998105,0.0748388889952,0.0753706669843,0.0753352151184,0.0760797043031,0.0759024449734,0.074980696459,0.0750161483249,0.0749097927271,0.0749097927271,0.0755833781799,0.0754061188503,0.075547926314,0.0757960893756,0.0760442524371,0.0760088005712,0.0746970815315,0.0741298516765,0.0738816886149,0.0742007554084,0.0750516001909,0.0745907259337,0.074980696459,0.0747325333974,0.0753706669843,0.0760442524371,0.0753352151184,0.0760442524371,0.0751225039227,0.0743425628721,0.0744489184699,0.0731726512962,0.0737044292852,0.0741653035424,0.0742362072743,0.0745907259337,0.0745907259337,0.0740943998105,0.0742007554084,0.0739880442127,0.0735271699555,0.0750516001909,0.0758315412415,0.0759024449734,0.0761860599009,0.076682386024,0.0764696748284,0.0769305490856,0.0770014528175,0.0770723565493,0.0777104901362,0.0787385942484,0.0799085058244,0.0790931129078,0.0796957946288,0.0809366099366,0.08125567673,0.080723898741,0.0802275726178,0.0802275726178,0.0800503132881,0.080156668886,0.0800857651541,0.0791994685056,0.0805111875453,0.0810429655344,0.0816456472554,0.0835245961501,0.0834891442841,0.0833473368204,0.0836664036138,0.0835245961501,0.0834182405523,0.0834536924182,0.0838082110776,0.0846236039941,0.0854744487767,0.0845881521282,0.0844108927985,0.0855453525085,0.0868216196823,0.0865734566207,0.0867861678164,0.0878497237945,0.0879915312583,0.0886296648451,0.0885233092473,0.0885942129792,0.0876015607329,0.088700568577,0.088736020443,0.0891968947002,0.089870480153,0.0906149693377,0.0922103033049,0.092706629428,0.092706629428,0.0925293700983,0.0937347335402,0.0958263936306,0.0958618454965,0.096748142145,0.0971735645362,0.0978116981231,0.0988043503694,0.0994424839563,0.0997615507497,0.101463240315,0.10203047017,0.103483996673,0.10316492988,0.103235833612,0.104334841456,0.107100086999,0.108269998575,0.108695420966,0.108589065368,0.110184399335,0.110609821727,0.112382415024,0.1135523266,0.114296815784,0.116672090802,0.117203868791,0.117948357976,0.118480135965,0.119295528882,0.120855410983,0.120926314715,0.121422640838,0.120749055385,0.121635352033,0.123230686001,0.124010627051,0.12358520466,0.1248969237,0.124223338247,0.125145086761,0.125393249823,0.12471966437,0.125180538627,0.125464153555,0.125712316616,0.124648760638,0.124755116236,0.125251442359,0.126102287142,0.127201294986,0.127024035656,0.125570509153,0.125747768482,0.125322346091,0.125570509153,0.126102287142,0.128193947232,0.127449458047,0.128087591634,0.127094939388,0.126314998337,0.126456805801,0.126279546471,0.128087591634,0.12847756216,0.127555813645,0.129186599478,0.130533770384,0.130959192775,0.131313711435,0.131597326362,0.132093652485,0.132448171145,0.13170368196,0.132944497268,0.132625430474,0.133511727123,0.134468927503,0.134362571905,0.134327120039,0.13492980176,0.135390676017,0.135390676017,0.134965253626,0.135709742811,0.135248868554,0.134539831235,0.135638839079,0.135745194677,0.136666943191,0.137127817448,0.137340528644,0.135355224152,0.135355224152,0.135036157358,0.136206068934,0.135567935347,0.135922454007,0.137234173046,0.136454231996,0.135957905872,0.137446884242,0.137163269314,0.136950558119,0.137482336108,0.137446884242,0.136383328264,0.135709742811,0.135887002141,0.135177964822,0.13528432042,0.135957905872,0.136028809604,0.135390676017,0.136489683862,0.138368632756,0.13833318089,0.137588691706,0.138971314477,0.139290381271,0.138085017829,0.139042218209,0.13964489993,0.138652247684,0.138049565963,0.137943210365,0.136950558119,0.135461579749,0.137056913717,0.13755323984,0.137588691706,0.137943210365,0.138297729024,0.138616795818,0.138191373427,0.138439536488,0.138935862611,0.136844202521,0.136206068934,0.135816098409,0.13641878013,0.136135165202,0.137163269314,0.138616795818,0.139361285003,0.139680351796,0.140389389115,0.139857611126,0.139396736868,0.139538544332,0.13982215926,0.137588691706,0.136879654387,0.137234173046,0.136666943191,0.1362415208,0.136347876398,0.135426127883,0.135461579749,0.135319772286,0.135709742811,0.135213416688,0.135497031615,0.135851550275,0.135816098409,0.136206068934,0.13528432042,0.133866245782,0.133440823391,0.132519074876,0.133015401,0.13266088234,0.132200008083,0.132235459949,0.13188094129,0.130711029714,0.128902984551,0.129151147612,0.128761177087,0.128193947232,0.127839428573,0.128690273355,0.126350450203,0.125712316616,0.125783220348,0.125464153555,0.123337041599,0.123868819588,0.124046078917,0.123833367722,0.12340794533,0.124046078917,0.124861471834,0.123124330403,0.122734359878,0.122840715475,0.122025322559,0.122131678157,0.120997218447,0.119898210603,0.119330980748,0.11695570573,0.116388475875,0.117097513193,0.115927601617,0.11564398669,0.114155008321,0.112595126219,0.112701481817,0.111992444498,0.112027896364,0.111956992632,0.11224060756,0.112382415024,0.111389762777,0.109262650821,0.108766324698,0.107667316854,0.107986383647,0.108234546709,0.107064635133,0.105717464227,0.105575656764,0.106071982887,0.105823819825,0.104051226528,0.103767611601,0.102526796293,0.101108721655,0.102526796293,0.10203047017,0.100860558594,0.101285980985,0.100116069409,0.101108721655,0.101427788449,0.1005414918,0.100328780605,0.100435136203,0.0988752541012,0.0996551951519,0.100222425007,0.100789654862,0.101108721655,0.0996197432859,0.0986625429056,0.0983434761122,0.0990525134309,0.0984143798441,0.0971381126703,0.0976698906594,0.0993006764925,0.0993006764925,0.0979889574528,0.0982016686484,0.0972444682681,0.0973508238659,0.0975989869275,0.0977053425253,0.0958263936306,0.0957909417646,0.0974571794637,0.0955427787031,0.0945146745909,0.0942665115293,0.0935574742105,0.0926002738302,0.0924584663665,0.0922103033049,0.0930611480874,0.0921039477071,0.092174851439,0.091572169718,0.0919266883774,0.092139399573,0.0932384074171,0.0922457551708,0.0916430734499,0.0914658141202,0.0906504212036,0.0916430734499,0.0918557846455,0.0914303622543,0.0910403917289,0.0909694879971,0.0909694879971,0.0907213249355,0.0899413838849,0.088700568577,0.0891614428342,0.0891614428342,0.0884169536495,0.0876724644648,0.0883105980517,0.0893387021639,0.0903313544102,0.0887714723089,0.088133338722,0.088700568577,0.0885942129792,0.088700568577,0.088168790588,0.0882396943198,0.0883460499176,0.0877433681967,0.0863252935592,0.086431649157,0.0865380047548,0.0867861678164,0.0866089084867,0.0854744487767,0.0844817965304,0.085261737581,0.0842336334688,0.083560048016,0.0826737513676,0.0815392916575,0.0810075136685,0.0800857651541,0.0794830834331,0.0790222091759,0.0785967867847,0.0773914233428,0.0756897337778,0.0758669931074,0.0749452445931,0.0742716591402,0.0748743408612,0.0751579557887,0.0749452445931,0.0735980736874,0.0727472289049,0.0734562662237,0.073279006894,0.0732081031621,0.0742007554084,0.0734562662237,0.073846236749,0.0746616296656,0.0739525923468,0.0739525923468,0.0745198222018,0.073846236749,0.0724281621115,0.0722509027818,0.071541865463,0.0717900285246,0.0718963841224,0.072144547184,0.0724636139774,0.0720381915861,0.0729244882346,0.0735271699555,0.0734562662237,0.0733144587599,0.0723572583796,0.072676325173,0.0719672878543,0.0716482210608,0.0725699695752,0.0721799990499,0.0729244882346,0.0731726512962,0.0725699695752,0.0714355098652,0.0707264725464,0.0700174352277,0.0700174352277,0.0696629165683,0.0698756277639,0.0699465314958,0.0690247829814,0.0690956867133,0.067535804612,0.0673585452823,0.0678194195395,0.0672167378186,0.0663304411701,0.065834115047,0.0654441445217,0.0650541739963,0.0643805885435,0.0643096848116,0.0632106769676,0.06179260233,0.0607999500838,0.0607644982178,0.060693594486,0.0604454314244,0.061260824341,0.0618635060619,0.0630688695038,0.0620053135257,0.0627852545763,0.0627143508444,0.0622180247213,0.0623243803191,0.0613671799388,0.060693594486,0.0613317280728,0.0622180247213,0.062395284051,0.0622534765872,0.0623243803191,0.0623243803191,0.0626788989785,0.062962513906,0.0629979657719,0.0633170325654,0.064132425482,0.0636360993588,0.0633879362973,0.062962513906,0.0639197142863,0.0644514922754,0.0648414628007,0.0656923075832,0.0662240855723,0.065834115047,0.066401344902,0.0670040266229,0.0675712564779,0.0671103822207,0.0675712564779,0.0672167378186,0.0665077004998,0.0661177299745,0.0658695669129,0.0662595374382,0.0656568557173,0.0662240855723,0.0667913154273,0.0674294490142,0.0676776120758,0.0687766199198,0.068138486333,0.0683511975286,0.0673939971483,0.0676776120758,0.0672167378186,0.0668976710251,0.0668622191592,0.0661531818404,0.0666495079636,0.0661531818404,0.0656214038513,0.0659759225107,0.0660113743767,0.0662595374382,0.0657277594492,0.0654086926557,0.0653377889238,0.0649123665326,0.0651605295942,0.0662240855723,0.0665786042317,0.0660468262426,0.0659050187789,0.0660822781085,0.0657632113151,0.0656214038513,0.0658695669129,0.0653023370579,0.0649123665326,0.0648060109348,0.0645932997391,0.0647705590688,0.064096973616,0.0631752251016,0.0636006474929,0.0629979657719,0.062962513906,0.0632106769676,0.0636715512248,0.0635651956269,0.0636715512248,0.064699655337,0.0637424549566,0.0645223960073,0.0642387810798,0.065266885192,0.065834115047,0.0653377889238,0.0656568557173,0.065798663181,0.0656923075832,0.0666849598295,0.0674649008801,0.0664367967679,0.0657277594492,0.0654441445217,0.0654086926557,0.0657632113151,0.0656214038513,0.0661886337064,0.0666495079636,0.0679257751373,0.0682802937967,0.0693083979089,0.069804724032,0.0704428576189,0.070407405753,0.0707619244124,0.0705137613508,0.0701592426914,0.0694502053727,0.0690602348473,0.0690956867133,0.0690956867133,0.0691665904452,0.0704428576189,0.0704428576189,0.0695211091045,0.0704428576189,0.0694502053727,0.0714000579993,0.0709037318761,0.0714709617311,0.0714709617311,0.0716482210608,0.0716482210608,0.0727826807708,0.0728181326368,0.0726054214411,0.0741653035424,0.0752997632524,0.0747679852634,0.0751579557887,0.0752288595206,0.0757251856437,0.0758315412415,0.0748743408612,0.0744489184699,0.074413466604,0.0746970815315,0.0743425628721,0.0733499106258,0.0736335255534,0.0728181326368,0.0732081031621,0.0734917180896,0.0747325333974,0.074980696459,0.0765405785603,0.0749097927271,0.0751225039227,0.0738816886149,0.0739525923468,0.0744843703359,0.0736335255534,0.0740589479446,0.0726054214411,0.0726408733071,0.0722154509158,0.0737753330171,0.0731371994302,0.0730662956983,0.0718609322564,0.0713646061333,0.0711518949377,0.0708328281442,0.0702655982892,0.0706555688146,0.070371953887,0.0703365020211,0.0702301464233,0.0699465314958,0.0706201169486,0.0700883389595,0.0700528870936,0.0695211091045,0.070371953887,0.0707264725464,0.0710100874739,0.0708328281442,0.0706910206805,0.0711164430717,0.0704783094849,0.0707264725464,0.0693793016408,0.0707973762783,0.0709037318761,0.0706201169486,0.0709391837421,0.070371953887,0.0700174352277,0.0700174352277,0.0690956867133,0.069272946043,0.0694502053727,0.0678903232714,0.0682802937967,0.0684221012605,0.0701237908255,0.0702655982892,0.0706201169486,0.0705492132167,0.0713291542674,0.0714709617311,0.0712582505355,0.0722154509158,0.0722509027818,0.0723572583796,0.0725345177093,0.0707264725464,0.0685993605901,0.066401344902,0.0635651956269,0.0618989579279,0.0598427497034,0.0581410601384,0.0566166299031,0.0545958735446,0.0523269541246,0.0503061977661,0.0484272488714,0.0462292331832,0.0442084768248,0.0430385652488,0.0409114532925,0.0393161193253,0.0381107558834)
s <- c(0.0397625634782,0.0402305877664,0.0401525837183,0.0403865958624,0.0410301292586,0.0416931636667,0.0417711677147,0.0420051798588,0.0415956586067,0.0413616464626,0.0409131231865,0.0410691312826,0.0403280928264,0.0404645999104,0.0408156181265,0.0409911272345,0.0416736626547,0.0413421454506,0.0420246808708,0.0417906687268,0.0412056383666,0.0410691312826,0.0410691312826,0.0414396505107,0.0415566565827,0.0417906687268,0.0419856788468,0.0423952000989,0.0420441818828,0.0425512081949,0.042590210219,0.0430192324831,0.0429607294471,0.0430192324831,0.0436432648672,0.0439357800473,0.0438967780233,0.0436432648672,0.0437797719513,0.0436042628432,0.0430582345071,0.042863224387,0.0429997314711,0.042765719327,0.042726717303,0.042902226411,0.042785220339,0.0425122061709,0.0430777355191,0.0431557395671,0.042843723375,0.042765719327,0.0418296707508,0.0415371555707,0.0407571150905,0.0411471353306,0.0413226444386,0.0413226444386,0.0412641414026,0.0406986120545,0.0405231029464,0.0401135816943,0.0398405675263,0.0394310462741,0.0396065553822,0.0392945391901,0.038963021986,0.038865516926,0.038982522998,0.0393140402021,0.03880701389,0.0383584906139,0.0385339997219,0.0384364946619,0.0386510057939,0.0391385310941,0.0393335412141,0.038748510854,0.0386315047819,0.038768011866,0.03880701389,0.0383974926379,0.038963021986,0.038690007818,0.0379879713858,0.0378709653137,0.0379294683498,0.0382999875779,0.038943520974,0.0394115452621,0.0400355776463,0.0403085918144,0.0402500887784,0.0403670948504,0.0402110867543,0.0409521252105,0.0413031434266,0.0412836424146,0.0412446403906,0.0415371555707,0.0411276343186,0.0417516667027,0.0420246808708,0.0418881737868,0.0418296707508,0.0413226444386,0.0417321656907,0.0418881737868,0.0407961171145,0.0406986120545,0.0405426039584,0.0402890908024,0.0405426039584,0.0410301292586,0.0409716262225,0.0407181130665,0.0406791110425,0.0407181130665,0.0403280928264,0.0402890908024,0.0404645999104,0.0408741211625,0.0408741211625,0.0406791110425,0.0407181130665,0.0404060968744,0.0400940806823,0.0607846544196,0.0619352141279,0.0632027799083,0.0645873517606,0.0657574124809,0.0664204468891,0.0675320045734,0.0684290511256,0.0696186128579,0.0707106695302,0.0710031847103,0.0712371968543,0.0726997727547,0.073986839547,0.0746108719312,0.0756639265795,0.0768534883118,0.0785890783802,0.0786865834402,0.0781795571281,0.0782575611761,0.077692031828,0.0767754842638,0.0768729893238,0.0769509933718,0.07761402778,0.0778090379,0.0784330702842,0.077653029804,0.0779845470081,0.077575025756,0.077594526768,0.077731033852,0.0778090379,0.0784135692722,0.0787645874883,0.0790181006443,0.0798566441605,0.0796421330285,0.0794276218964,0.0791936097524,0.0789400965963,0.0792716138004,0.0797981411245,0.0796811350525,0.0793886198724,0.0796031310045,0.0796616340405,0.0789790986203,0.0785695773682,0.0788230905243,0.0786475814162,0.0790376016563,0.0794276218964,0.0795836299925,0.0797786401125,0.0791936097524,0.0801101573166,0.0803441694607,0.0803051674367,0.0798371431485,0.0793301168364,0.0792326117764,0.0787255854643,0.0790961046924,0.0788230905243,0.0789790986203,0.0790961046924,0.0794276218964,0.0791351067164,0.0790376016563,0.0787645874883,0.0792911148124,0.0783160642122,0.077692031828,0.0773605146239,0.0771655045039,0.0780235490321,0.0773605146239,0.0774580196839,0.0768144862878,0.0774970217079,0.0781600561161,0.0779650459961,0.0784525712962,0.0793496178484,0.0789985996323,0.0793496178484,0.0794276218964,0.0796616340405,0.0803246684487,0.0806951876768,0.0802856664247,0.0800126522566,0.0793496178484,0.0798761451726,0.0797786401125,0.0798371431485,0.0805391795807,0.0811242099409,0.081611735241,0.081475228157,0.0810462058929,0.0806756866648,0.0805586805927,0.0799151471966,0.0796811350525,0.0792911148124,0.0790376016563,0.0788230905243,0.0796226320165,0.0802271633886,0.0800906563046,0.0792326117764,0.0791156057044,0.0789985996323,0.0800321532686,0.0802466644006,0.0795641289805,0.0797591391005,0.0792716138004,0.0783940682602,0.0786670824282,0.0781795571281,0.07761402778,0.0768339872998,0.0762879589636,0.0758589366995,0.0763854640237,0.0753909124114,0.0756834275915,0.0749423891353,0.0748838860993,0.0748643850873,0.0744158618111,0.0735383162709,0.0732653021029,0.0732067990668,0.0735578172829,0.0733043041269,0.0726412697187,0.0734018091869,0.0733238051389,0.073752827403,0.074025841571,0.073908835499,0.0734993142469,0.0730897929948,0.0736358213309,0.073713825379,0.073694324367,0.0730312899588,0.0722707504906,0.0721147423946,0.0715687140584,0.0723097525146,0.0731287950188,0.0733628071629,0.0731872980548,0.0728167788267,0.0721732454306,0.0724267585866,0.0722512494786,0.0720367383465,0.0723682555506,0.0727972778147,0.0728752818628,0.0729727869228,0.0726802717427,0.0722512494786,0.0716272170944,0.0721147423946,0.0718807302505,0.0717832251905,0.0718027262025,0.0721927464426,0.0722317484666,0.0726607707307,0.0724657606106,0.0725827666827,0.0726802717427,0.0731287950188,0.0732263000788,0.073830831451,0.0732067990668,0.073811330439,0.0742598537151,0.0751178982433,0.0760344458076,0.0756444255675,0.0764244660477,0.0763464619996,0.0755274194954,0.0754299144354,0.0761514518796,0.0765804741437,0.0772045065279,0.0773605146239,0.0769704943838,0.0775165227199,0.0769119913478,0.0766194761677,0.0758394356875,0.0755859225314,0.0761319508676,0.0759954437836,0.0764244660477,0.0771460034919,0.077555524744,0.0781990581401,0.077536023732,0.077750534864,0.0786280804042,0.0779650459961,0.0786085793922,0.0788035895123,0.0786475814162,0.0788425915363,0.0785110743322,0.0786085793922,0.0787840885003,0.0782185591521,0.0785890783802,0.077653029804,0.077692031828,0.077633528792,0.0774580196839,0.0780235490321,0.0788815935603,0.0791546077284,0.0788815935603,0.0789790986203,0.0782965632001,0.07761402778,0.0778090379,0.077770035876,0.0782575611761,0.0786475814162,0.0791546077284,0.0797201370765,0.0804416745207,0.081475228157,0.0812607170249,0.0807926927368,0.0806756866648,0.0804806765447,0.0805781816047,0.0808706967848,0.0801296583286,0.0805781816047,0.0804611755327,0.0802076623766,0.0800906563046,0.0799151471966,0.0810072038688,0.0804806765447,0.0800516542806,0.0800126522566,0.0798566441605,0.0813972241089,0.081475228157,0.0818067453611,0.0818457473851,0.0821967656012,0.0818847494091,0.0827622949493,0.0824112767332,0.0824502787572,0.0836398404895,0.0842053698377,0.0848489032338,0.0851219174019,0.085550939666,0.085550939666,0.085609442702,0.0859019578821,0.085355929546,0.085433933594,0.0859994629421,0.0865259902663,0.0859019578821,0.0860969680022,0.0866234953263,0.0863699821702,0.0868770084824,0.0864089841942,0.0868575074704,0.0875985459265,0.0877935560466,0.0881835762867,0.0873840347945,0.0878520590826,0.0888661117069,0.0896071501631,0.0903286876072,0.0896071501631,0.089373138019,0.0896071501631,0.089451142067,0.0890026187909,0.0890806228389,0.0888661117069,0.089529146115,0.089529146115,0.0896851542111,0.0900556734392,0.0904651946913,0.0922787888077,0.0921227807117,0.0928443181559,0.0938193687561,0.0937413647081,0.0944043991163,0.0938778717922,0.0940338798882,0.0934878515521,0.0943848981043,0.0947164153084,0.0956914659086,0.0963740013288,0.0969590316889,0.0983436035413,0.0989286339015,0.0985581146734,0.0989481349135,0.0996111693216,0.100722727006,0.10085923409,0.10115174927,0.101912288738,0.102341311002,0.102867838326,0.103160353507,0.104018398035,0.104544925359,0.105110454707,0.105539476971,0.105324965839,0.105539476971,0.106768040727,0.107977103472,0.108893651036,0.10912766318,0.108815646988,0.109381176336,0.109069160144,0.110044210744,0.110746247176,0.111467784621,0.113144871653,0.113671398977,0.114451439457,0.115680003214,0.116070023454,0.11681106191,0.117727609474,0.117630104414,0.117415593282,0.11759110239,0.11798112263,0.118312639834,0.118293138822,0.119248688411,0.120184736987,0.120555256215,0.120321244071,0.120672262287,0.121003779491,0.121101284551,0.120750266335,0.120906274431,0.120672262287,0.121900826043,0.12254435944,0.123382902956,0.124026436352,0.123343900932,0.122895377656,0.123090387776,0.1226418645,0.123187892836,0.125333004156,0.125255000108,0.125547515288,0.12468947076,0.124806476832,0.125137994036,0.125450010228,0.126269052732,0.127146598273,0.126990590177,0.127049093213,0.128492168101,0.129584224773,0.130539774362,0.131846342166,0.132353368478,0.132548378598,0.132938398838,0.132626382646,0.133094406934,0.134147461583,0.134420475751,0.135434528375,0.135688041531,0.136253570879,0.136799599215,0.137287124515,0.137053112371,0.137521136659,0.137950158923,0.137638142731,0.13810616702,0.139061716608,0.140329282388,0.141401838048,0.143000921033,0.141889363349,0.142084373469,0.142552397757,0.144190482765,0.144131979729,0.145029026281,0.146043078906,0.145204535389,0.144853517173,0.145965074858,0.146394097122,0.146004076882,0.145672559677,0.145204535389,0.144951022233,0.145536052593,0.14588707081,0.144853517173,0.145185034377,0.145828567774,0.146238089026,0.146160084978,0.146920624446,0.149065735766,0.150372303571,0.150294299523,0.151230348099,0.151815378459,0.151854380483,0.152361406795,0.152751427035,0.152770928047,0.151893382507,0.151444859231,0.150703820775,0.149241244874,0.149767772199,0.150528311667,0.150216295475,0.150313800535,0.150976834943,0.151249849111,0.150391804583,0.151834879471,0.153160948287,0.152205398699,0.151854380483,0.152614919951,0.153375459419,0.1541554999,0.155150051512,0.155345061632,0.156027597052,0.156359114256,0.157607179025,0.157899694205,0.156749134496,0.156944144616,0.156437118304,0.154506518116,0.153511966504,0.153687475612,0.15357046954,0.153141447275,0.152887934119,0.152029889591,0.152302903759,0.152595418939,0.153141447275,0.152829431083,0.153219451323,0.153219451323,0.153277954359,0.153102445251,0.153297455371,0.152712425011,0.151464360243,0.150781824823,0.151620368339,0.150469808631,0.149182741838,0.149143739814,0.14871471755,0.147466652782,0.14627709105,0.146511103194,0.146004076882,0.145809066762,0.145204535389,0.145965074858,0.144190482765,0.142961919009,0.143644454429,0.143195931153,0.142084373469,0.142454892697,0.141928365373,0.14142133906,0.141947866385,0.142064872457,0.142825411925,0.142883914961,0.142337886625,0.142025870433,0.141499343108,0.141499343108,0.140582795544,0.14025127834,0.140017266196,0.139061716608,0.138554690296,0.138359680176,0.137969659936,0.137462633623,0.136136564807,0.134986005099,0.135298021291,0.135025007123,0.134829997003,0.134927502063,0.134732491943,0.134556982835,0.133523429198,0.132158358358,0.131612330022,0.130871291566,0.13081278853,0.130344764242,0.129096699473,0.128238654945,0.127692626609,0.127751129645,0.127985141789,0.127400111429,0.125918034516,0.125489012252,0.124045937364,0.123558412064,0.12293437968,0.122212842235,0.122349349319,0.121783819971,0.122134838187,0.122037333127,0.121491304791,0.120535755203,0.119872720795,0.119346193471,0.119638708651,0.120262741035,0.120360246095,0.120574757227,0.119170684363,0.118195633762,0.118410144894,0.118137130726,0.117805613522,0.116343037622,0.11661605179,0.117220583162,0.117552100366,0.11661605179,0.116050522442,0.116089524466,0.116499045718,0.116694055838,0.116401540658,0.11505597083,0.114919463746,0.116050522442,0.114743954638,0.113027865581,0.112715849389,0.112384332185,0.111467784621,0.111058263369,0.110453731996,0.11068774414,0.109849200624,0.109244669252,0.108815646988,0.10873764294,0.108659638892,0.108893651036,0.107723590316,0.106163509355,0.106358519475,0.105948998223,0.105988000247,0.105988000247,0.105617481019,0.105032450659,0.104408418275,0.104388917263,0.103550373747,0.103628377795,0.102555822134,0.10232180999,0.102458317074,0.10134675939,0.100644722958,0.10085923409,0.101229753318,0.101502767486,0.100098694622,0.0988896318774,0.0988896318774,0.0986166177094,0.0985386136614,0.0977390721692,0.0982460984813,0.0984021065773,0.0978755792532,0.0967835225809,0.0967445205569,0.0964130033528,0.0957889709686,0.0958084719807,0.0949504274524,0.0941898879842,0.0949504274524,0.0941898879842,0.09337084548,0.0923177908318,0.0918107645196,0.0913037382075,0.0904651946913,0.0901531784992,0.0901531784992,0.0891586268869,0.0889636167669,0.0874035358065,0.0873450327705,0.0866624973503,0.0861554710382,0.0863114791342,0.0862334750862,0.085570440678,0.085648444726,0.0851804204379,0.0851804204379,0.0852584244859,0.085550939666,0.0860969680022,0.085648444726,0.0863504811582,0.0862334750862,0.085531438654,0.085433933594,0.085414432582,0.0847318971618,0.0841858688257,0.0842053698377,0.0831718162014,0.0836203394775,0.0830353091174,0.0821967656012,0.0824697797692,0.081689739289,0.0824307777452,0.0825282828052,0.0822162666132,0.0818262463731,0.0812802180369,0.0812022139889,0.0812022139889,0.0807731917248,0.0810072038688,0.0804221735087,0.0810072038688,0.0807341897008,0.0809291998208,0.0800516542806,0.0796031310045,0.0783940682602,0.0783160642122,0.0786475814162,0.0788035895123,0.0783940682602,0.0785695773682,0.0785695773682,0.0773605146239,0.0772240075399,0.0770875004558,0.0768924903358,0.0764244660477,0.0763659630117,0.0763659630117,0.0760149447956,0.0757224296155,0.0753909124114,0.0751764012793,0.0748643850873,0.0745328678832,0.0747473790152,0.0747668800272,0.0744938658592,0.0751373992553,0.0753519103874,0.0754689164594,0.0750788962193,0.0758394356875,0.0761124498556,0.0761124498556,0.0767169812277,0.0756249245555,0.0756639265795,0.0754689164594,0.0758004336635,0.0758199346755,0.0758394356875,0.0755274194954,0.0753714113994,0.0746888759792,0.0749618901473,0.0748448840753,0.0745328678832,0.0750203931833,0.0743378577631,0.0743963607991,0.074006340559,0.0742988557391,0.0741233466311,0.0741038456191,0.0745133668712,0.0749423891353,0.0742013506791,0.073947837523,0.0741233466311,0.073908835499,0.0733433061509,0.0732848031149,0.0732848031149,0.0730117889468,0.0728752818628,0.0732263000788,0.0730702919828,0.0721927464426,0.0719782353105,0.0717832251905,0.0717832251905,0.0719782353105,0.0722902515026,0.0719782353105,0.0723877565626,0.0720562393585,0.0721927464426,0.0724267585866,0.0719392332865,0.0721732454306,0.0719002312625,0.0719002312625,0.0719782353105,0.0711591928063,0.0714322069744,0.0717442231665,0.0720562393585,0.0723097525146,0.0726022676947,0.0723292535266,0.0722902515026,0.0720952413826,0.073928336511,0.074025841571,0.073830831451,0.073947837523,0.0745913709192,0.0743378577631,0.0744353628232,0.073928336511,0.0733628071629,0.0729532859108,0.0728947828748,0.0729337848988,0.0726802717427,0.0724657606106,0.0721732454306,0.0725047626347,0.0719392332865,0.0717247221545,0.0716467181064,0.0717442231665,0.0718807302505,0.0714712089984,0.0722512494786,0.0719002312625,0.0721342434066,0.0719587342985,0.0720952413826,0.0722707504906,0.0719587342985,0.0719197322745,0.0721537444186,0.0719587342985,0.0723097525146,0.0729532859108,0.0725242636467,0.0725827666827,0.0719002312625,0.0722512494786,0.0727192737667,0.0727387747787,0.0728167788267,0.0732848031149,0.073694324367,0.074006340559,0.0749033871113,0.0752349043154,0.0757029286035,0.0753909124114,0.0758979387235,0.0756249245555,0.0750008921713,0.0748253830633,0.0750203931833,0.0756054235435,0.0754884174714,0.0755274194954,0.0759954437836,0.0758589366995,0.0750983972313,0.0758589366995,0.0751764012793,0.0761319508676,0.0761124498556,0.0766779792037,0.0765609731317,0.0763464619996,0.0760734478316,0.0762489569396,0.0764244660477,0.0763659630117,0.0768339872998,0.0774970217079,0.0767364822397,0.0768729893238,0.0767949852758,0.0771070014678,0.0773020115879,0.0765609731317,0.0762489569396,0.0768144862878,0.0770289974198,0.0771850055159,0.0766779792037,0.0770679994438,0.0765999751557,0.0768534883118,0.0769119913478,0.0773410136119,0.0773605146239,0.0780235490321,0.0775165227199,0.0774190176599,0.0766974802157,0.0772825105759,0.0781210540921,0.0774190176599,0.077770035876,0.0766974802157,0.0765024700957,0.0762879589636,0.0773800156359,0.0773800156359,0.0771265024798,0.0762684579516,0.0762879589636,0.0760149447956,0.0761904539036,0.0758979387235,0.0767754842638,0.0764634680717,0.0761709528916,0.0761904539036,0.0758199346755,0.0764829690837,0.0764439670597,0.0759954437836,0.0757809326515,0.0757224296155,0.0764244660477,0.0766584781917,0.0767364822397,0.0769314923598,0.077750534864,0.077692031828,0.0774775206959,0.0765609731317,0.0771070014678,0.077536023732,0.077848039924,0.077867540936,0.0770484984318,0.0772240075399,0.077575025756,0.0773020115879,0.077770035876,0.0778090379,0.0772630095639,0.0772630095639,0.077653029804,0.0786865834402,0.0783550662362,0.0783550662362,0.0779650459961,0.0782380601641,0.077770035876,0.07790654296,0.0782770621881,0.0779650459961,0.077692031828,0.0773995166479,0.0767754842638,0.0751764012793,0.073928336511,0.0723877565626,0.0714517079864,0.07002813411,0.0690725845218,0.0680585318975,0.0666544590332,0.0654648973008,0.0649188689647,0.0640608244365,0.0626957535961,0.0612721797198,0.0603556321555,0.0596535957234,0.0590100623272,0.058152017799,0.0372469329296,0.0378709653137,0.0379294683498,0.0378124622777,0.0379879713858,0.03880701389,0.038690007818,0.0392945391901,0.0396065553822,0.0398405675263,0.0403085918144,0.0406596100305,0.0407181130665,0.0408546201505,0.0410106282466,0.0415566565827,0.0423561980749,0.0422391920029,0.0417711677147,0.0421611879548,0.0417711677147,0.0418881737868,0.0412641414026,0.0412251393786,0.0414201494987,0.0418686727748,0.0418101697388,0.0418101697388,0.0418881737868,0.0421806889669,0.0422976950389,0.0423366970629,0.0424927051589,0.0421806889669,0.0418296707508,0.0415761575947,0.0410691312826,0.0404841009224,0.0404841009224,0.0406011069944,0.0401720847303,0.0394505472862,0.0393335412141,0.038963021986,0.0385730017459,0.0384364946619,0.0383194885899,0.0383974926379,0.0384559956739,0.0384559956739,0.038690007818,0.0381634804938,0.0374614440616,0.0376564541817,0.0380074723978,0.0384559956739,0.038748510854,0.03890451895,0.0390995290701,0.0393725432381,0.0394505472862,0.0390995290701,0.039021525022,0.03880701389,0.038924019962,0.0386510057939,0.039041026034,0.038748510854,0.0383194885899,0.038768011866,0.038865516926,0.0390605270461,0.0392945391901,0.0394895493102,0.0395090503222,0.0400550786583,0.0401135816943,0.0404450988984,0.0404645999104,0.0403085918144,0.0407961171145,0.0411666363426,0.0414201494987,0.0414006484867,0.0415176545587,0.0411276343186,0.0412056383666,0.0420051798588,0.0421221859308,0.0425317071829,0.0422391920029,0.0417321656907,0.0420441818828,0.042707216291,0.042824222363,0.0430582345071,0.042824222363,0.042921727423,0.0433702506992,0.0430192324831,0.0422391920029,0.0424732041469,0.0422781940269,0.0430387334951,0.0430582345071,0.0422001899789,0.0424732041469,0.042707216291,0.0430777355191,0.0430582345071,0.0431167375431,0.0430387334951,0.0433897517112,0.042765719327,0.042941228435,0.0434872567712,0.0430582345071,0.0432532446271,0.0429997314711,0.042765719327,0.042921727423,0.0433897517112,0.0431557395671,0.0430777355191,0.0432727456391,0.042824222363,0.0432727456391)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("18-organelles-nucleus-merged/FHY3-Far-Red-GSM761690.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=254"),bty="n")
dev.off()