# R script for Peak Model
#  -- generated by MACS
p <- c(0.0361171926256,0.0379974311713,0.0399494057257,0.0417541326831,0.0437174339758,0.0457033887449,0.0476176075052,0.049471416995,0.0513138997465,0.0532281185068,0.0551574395848,0.0569017572717,0.0587253621262,0.0606999901571,0.0626821693467,0.0645322032571,0.0664124418027,0.0682473733955,0.0682662512925,0.0682020664426,0.0682171687602,0.0682700268719,0.0681794129661,0.0681945152838,0.0680661455839,0.0679642049398,0.067892468931,0.0678433863987,0.067854713137,0.0679037956693,0.0678320596605,0.0677565480723,0.0678245085017,0.0680359409486,0.0684361523659,0.0685531953276,0.0686815650275,0.0686626871305,0.0687533010363,0.068704218504,0.0687306475598,0.0687004429245,0.0687306475598,0.0687155452422,0.0687306475598,0.0687570766157,0.0687835056715,0.0689383044273,0.0689760602214,0.0689156509509,0.0687948324098,0.0690138160155,0.0691233078183,0.0691723903507,0.0692025949859,0.0691912682477,0.0691346345566,0.0689269776891,0.0689005486332,0.0688665684185,0.0689005486332,0.0689647334832,0.0689269776891,0.0690251427537,0.0689609579038,0.0689496311655,0.0690855520243,0.0692743309947,0.0691610636124,0.0690402450713,0.0688212614656,0.0687721789333,0.06853809301,0.0685116639541,0.0683191094042,0.0685947267011,0.0684437035247,0.0683606407777,0.0682775780307,0.0683832942542,0.0685003372159,0.0685456441688,0.0684701325806,0.0685418685894,0.0685494197482,0.0687570766157,0.0687608521951,0.0687495254569,0.068658911551,0.0687646277745,0.0688778951568,0.0689496311655,0.0691421857154,0.0692781065741,0.0692365752006,0.0694140274328,0.0695688261886,0.0696443377768,0.0696216843003,0.0695801529268,0.0697009714679,0.0698633213825,0.0697462784208,0.0697085226267,0.0697122982061,0.0697727074767,0.0699010771766,0.0700860805676,0.0701087340441,0.0702748595381,0.0704070048174,0.0703881269203,0.0703654734439,0.070505169882,0.070505169882,0.0704636385085,0.0703088397527,0.0701276119411,0.0700483247735,0.0699312818119,0.0699954666618,0.0697613807385,0.0698595458031,0.0698029121119,0.0699161794942,0.0698444434854,0.0698482190649,0.0696896447297,0.0695574994504,0.0695990308239,0.0696254598797,0.0693536181623,0.0692139217242,0.0692592286771,0.0694027006946,0.0692592286771,0.0691912682477,0.0690440206508,0.0690817764448,0.0692743309947,0.0690931031831,0.0690666741272,0.0690704497066,0.0688929974744,0.0689345288479,0.0687155452422,0.0687986079892,0.0687533010363,0.068787281251,0.0688363637833,0.068889221895,0.0688967730538,0.0689269776891,0.069055347389,0.0692479019388,0.0694555588063,0.0693611693211,0.0695197436563,0.0695763773474,0.0694593343857,0.0693762716387,0.0694253541711,0.0693913739564,0.0695650506092,0.0695952552445,0.0695650506092,0.0696481133562,0.0697915853737,0.0698935260178,0.0698104632708,0.0697349516826,0.0697802586355,0.0698104632708,0.0698708725413,0.0698633213825,0.0697311761032,0.0698859748589,0.0698708725413,0.0697236249444,0.0698519946443,0.0697274005238,0.0698708725413,0.0697236249444,0.0695952552445,0.069840667906,0.069738727262,0.0697274005238,0.0698670969619,0.0700067934,0.0699086283354,0.0699614864471,0.0698142388502,0.0700823049882,0.0700143445588,0.0700067934,0.0700974073058,0.0702899618557,0.0703730246027,0.0702975130145,0.0702522060616,0.0703805757615,0.0704598629291,0.0705806814702,0.0706750709554,0.0706826221142,0.0707921139171,0.0708865034023,0.0710186486816,0.0711621206992,0.071252734605,0.0713093682961,0.0714792693695,0.0715510053783,0.0717360087693,0.071954992375,0.0720946888132,0.0725288804452,0.0726308210892,0.0727931710038,0.0730574615624,0.0729366430213,0.0730876661977,0.0731933824212,0.0732877719064,0.0733481811769,0.0736426763708,0.0736275740532,0.0738125774442,0.0738767622942,0.0740277854705,0.0741032970587,0.0740655412646,0.073986254097,0.0739938052558,0.074235442338,0.0744582015231,0.0745827956436,0.0746771851289,0.0747640234553,0.0748697396787,0.0749679047433,0.0750056605374,0.0752472976196,0.0752472976196,0.0753077068901,0.0752699510961,0.0752472976196,0.0752284197226,0.0754209742724,0.0753416871048,0.0753379115254,0.0753832184783,0.0751566837138,0.075168010452,0.0750736209668,0.0749377001081,0.0750962744432,0.0750471919109,0.0751906639285,0.0751831127696,0.0752963801519,0.075315258049,0.0754549544871,0.0753907696371,0.0755455683929,0.0756814892516,0.0758249612692,0.0760137402396,0.076100578566,0.076285581957,0.0763950737599,0.076285581957,0.07626670406,0.0763573179658,0.0764366051334,0.0764215028158,0.0765045655628,0.0766027306274,0.0765045655628,0.0767273247479,0.0768934502419,0.0770709024741,0.077263457024,0.0773918267239,0.0773691732474,0.0776674440207,0.0777354044501,0.0777316288707,0.0778939787852,0.0781884739791,0.0783923552672,0.0785962365553,0.0788076690022,0.0791927781019,0.0792569629519,0.0794910488752,0.0796005406781,0.0796760522663,0.0796911545839,0.079996976516,0.079913913769,0.079996976516,0.0801555508512,0.0803858611951,0.0805557622685,0.0807181121831,0.0807860726125,0.081178732871,0.0813901653179,0.0816808849324,0.0818054790529,0.0819867068645,0.0822698753202,0.08252661472,0.0829154993991,0.0830476446784,0.0831911166959,0.0834327537781,0.0835384700016,0.0836970443367,0.08405949996,0.0841387871276,0.0842822591451,0.0844144044244,0.0846673682448,0.0846862461419,0.0849203320652,0.0851506424092,0.0851959493621,0.0851506424092,0.0853620748561,0.0853205434826,0.0854375864443,0.0856527944706,0.0859208606086,0.0859737187203,0.0861436197937,0.0861851511672,0.0861549465319,0.0862833162318,0.0866344451169,0.0865778114257,0.0869893495813,0.087208333187,0.0872309866635,0.087291395934,0.0874273167927,0.0875481353338,0.087438643531,0.0874310923722,0.0874763993251,0.0876576271367,0.0875594620721,0.0877520166219,0.087872835163,0.0882201884686,0.0880918187687,0.0882843733186,0.0885411127184,0.0887525451653,0.0889337729769,0.0890659182562,0.0891905123767,0.0892811262825,0.0894736808324,0.089571845897,0.0897983806615,0.0902099188171,0.0904402291611,0.0906554371874,0.0908253382608,0.0910367707077,0.091270856631,0.0915653518249,0.0918409691218,0.0920637283069,0.0921052596804,0.0926074117418,0.0925696559477,0.09268292333,0.0930378277944,0.0932341579237,0.0936834518733,0.0939099866378,0.0942648911023,0.0946009176697,0.0948727593871,0.0950955185722,0.0957335914924,0.0959563506775,0.0962017633391,0.096182885442,0.0966284038123,0.0968964699503,0.0972513744147,0.0975118893939,0.0976515858321,0.0979762856612,0.0982443517993,0.0985010911991,0.0985426225726,0.0987767084959,0.0989088537752,0.099127837381,0.0994110058366,0.0995091709013,0.0996375406012,0.0996941742923,0.0999320357951,0.0999848939068,0.100234082148,0.100192550774,0.100184999615,0.100271837942,0.1006644982,0.100819296956,0.101000524768,0.101227059532,0.101215732794,0.101457369876,0.101555534941,0.101695231379,0.101842478976,0.101921766144,0.101891561508,0.101955746358,0.102401264728,0.10251830769,0.102733515716,0.103016684172,0.103235667778,0.103473529281,0.103654757092,0.103843536063,0.104187113789,0.104643958897,0.10507437495,0.105300909715,0.10558785375,0.105723774608,0.10590500242,0.106078679073,0.106433583537,0.106705425255,0.106879101907,0.107033900663,0.107445438819,0.107909835086,0.108498825474,0.108838627621,0.108940568265,0.10922373672,0.109431393588,0.109635274876,0.109914667752,0.110103446723,0.110405493075,0.110809480072,0.110918971875,0.111345612348,0.111383368142,0.11171939471,0.112006338745,0.112542471021,0.112829415056,0.112893599906,0.113018194026,0.113256055529,0.113305138061,0.113675144843,0.113784636646,0.113980966776,0.114165970167,0.114452914202,0.114532201369,0.114792716349,0.11497394416,0.11542323811,0.115721508883,0.116393562018,0.116786222276,0.117269496441,0.11727327202,0.117412968458,0.117552664896,0.117801853137,0.117956651893,0.118258698246,0.118564520178,0.118953404857,0.119111979192,0.119470659236,0.119651887048,0.119821788121,0.120206897221,0.120263530912,0.120988442159,0.121343346623,0.121377326838,0.121611412761,0.122019175337,0.12238540654,0.122536429716,0.122917763237,0.123635123324,0.123899413883,0.124310952038,0.124696061138,0.125394543329,0.125983533717,0.12653854389,0.126987837839,0.127395600415,0.127833567627,0.128305515053,0.128430109174,0.128800115956,0.129189000635,0.129611865529,0.129962994414,0.130280143084,0.130314123299,0.130476473213,0.130665252184,0.130812499781,0.13119760888,0.131594044718,0.132024460771,0.132587022103,0.133017438155,0.133327035667,0.133780105196,0.133678164552,0.133844290046,0.134063273652,0.134221847987,0.134168989875,0.134312461893,0.134859920907,0.135067577774,0.135063802195,0.135022270821,0.135037373139,0.134939208074,0.13477308258,0.134663590778,0.134720224469,0.134561650134,0.134565425713,0.134372871163,0.13426715494,0.134478587387,0.134342666528,0.134376646743,0.134425729275,0.134486138545,0.134644712881,0.134844818589,0.134920330177,0.134920330177,0.135018495242,0.134640937301,0.134724000048,0.134361544425,0.13413500966,0.133610204123,0.133357240302,0.133142032276,0.132949477726,0.13247375472,0.132217015321,0.131986704977,0.131847008539,0.131503430812,0.130948420639,0.130412288363,0.130166875702,0.130012076946,0.129498598146,0.129238083167,0.128732155526,0.128180920933,0.127471112004,0.127059573848,0.126489461357,0.126009962772,0.125239744573,0.12436381015,0.123650225642,0.123061235254,0.122559083193,0.122019175337,0.121022422373,0.120373022715,0.119757603271,0.11880615726,0.118247371508,0.117563991635,0.1167635688,0.11631805043,0.115702630986,0.115204254504,0.114577508322,0.11382239244,0.113324015958,0.113127685829,0.112723698832,0.11216491308,0.11152684016,0.111043565995,0.110473453505,0.109831605005,0.109121796076,0.108347802298,0.108000448992,0.107471867875,0.107124514569,0.106539299761,0.106369398687,0.105871022205,0.105448157311,0.105059272632,0.104647734477,0.104266400956,0.103809555848,0.103262096834,0.102654228549,0.10239371357,0.102076564899,0.101668802323,0.101329000176,0.101393185026,0.100875930647,0.100653171462,0.100173672877,0.0995280487983,0.0991920222309,0.0990183455781,0.0986785434313,0.0985803783667,0.0983085366492,0.0978705694378,0.0973684173764,0.0969455524826,0.0965642189623,0.0963188063007,0.0958997169863,0.0956920601189,0.0954881788308,0.0952805219633,0.0949784756106,0.0946348978844,0.0942422376258,0.0941893795141,0.0939250889555,0.0938646796849,0.0937967192556,0.0935362042764,0.0934946729029,0.0934116101559,0.0933738543618,0.0931322172796,0.092803741871,0.0923204677067,0.0924903687801,0.0924941443595,0.0922713851744,0.0919995434569,0.0917201505807,0.091667292469,0.0916823947866,0.0916748436278,0.0913576949574,0.0910896288194,0.0909763614371,0.0906856418226,0.0905081895904,0.0902892059847,0.0901608362848,0.0900475689025,0.090006037529,0.089839912035,0.0898927701468,0.0897757271851,0.0898587899321,0.0899154236232,0.0900022619496,0.0899380770997,0.089821034138,0.0897341958116,0.0894623540941,0.0892093902738,0.089054591518,0.0888582613887,0.0886015219889,0.0882164128892,0.0880842676099,0.0880314094982,0.0878237526307,0.087808650313,0.0873367028869,0.0869969007401,0.0868496531432,0.0864192370906,0.0863475010818,0.0859774942997,0.0856527944706,0.0855697317236,0.0855055468736,0.0853809527531,0.0853771771737,0.0852450318944,0.0850713552416,0.0849996192328,0.0849429855417,0.0849014541682,0.084807064683,0.0846673682448,0.084474813695,0.0845163450685,0.0841501138658,0.0840028662689,0.0836932687573,0.0834969386281,0.0833987735634,0.0830589714166,0.0828815191844,0.0826700867375,0.0825115124023,0.0825568193553,0.0824171229171,0.0824473275524,0.0823227334319,0.0820659940321,0.0822887532172,0.0821679346761,0.0823000799554,0.0821981393114,0.0823151822731,0.0826474332611,0.0827002913728,0.0828815191844,0.0829532551932,0.0827909052786,0.0827833541198,0.0826625355787,0.0823038555349,0.0822358951055,0.082092423088,0.0819074196969,0.0817828255764,0.0817337430441,0.0813939408973,0.0813033269915,0.0812466933004,0.0809899539006,0.0809748515829,0.0808238284066,0.0807520923978,0.0806916831272,0.0804878018392,0.0804802506803,0.0804236169892,0.0805557622685,0.0804349437274,0.0800271811513,0.0799856497778,0.0798648312367,0.0799629963013,0.0800234055719,0.079645847631,0.0795288046693,0.0791587978872,0.0789964479726,0.0787699132081,0.0785886853965,0.0783772529496,0.0780034705881,0.0780714310175,0.0780072461675,0.0779053055235,0.077780711403,0.077697648656,0.0775655033767,0.0775352987414,0.0775541766384,0.0773389686121,0.0770671268947,0.0770633513153,0.0769765129889,0.0769878397271,0.0768141630743,0.0767197735891,0.0767764072802,0.076765080542,0.0766631398979,0.076682017795,0.076617832945,0.0766404864215,0.0763912981805,0.0762629284806,0.0764366051334,0.0764592586099,0.0763610935452,0.0761723145748,0.0761194564631,0.0762025192101,0.0760741495102,0.0760250669778,0.0759797600249,0.0757947566339,0.0753907696371,0.075251073199,0.0752737266755,0.074918822211,0.0747413699788,0.0745525910084,0.0745525910084,0.0747791257729,0.0748659640993,0.0748470862023,0.0746734095494,0.0747866769317,0.0747413699788,0.0747262676612,0.0746922874465,0.0745714689054,0.0746960630259,0.074586571223,0.0743298318232,0.0741939109645,0.0741070726381,0.0739673762,0.0739636006206,0.0738616599765,0.0736955344825,0.0736804321649,0.0736879833237,0.0735747159415,0.0735407357268,0.0734199171857,0.0732462405329,0.0732613428505,0.0733934881298,0.073385936971,0.0731971580006,0.0732651184299,0.0734085904475,0.0733481811769,0.0732915474858,0.0733368544387,0.0735369601474,0.0735558380444,0.0736011449973,0.073367059074,0.0731027685153,0.0730234813478,0.0730423592448,0.0727818442656,0.0727893954244,0.0728233756391,0.0727327617333,0.0726610257245,0.0725402071834,0.0723401014747,0.0722004050366,0.0722004050366,0.0722155073542,0.0722155073542,0.072121117869,0.0719889725897,0.0720795864955,0.0719776458515,0.0718568273104,0.071769988984,0.0717284576105,0.0716302925459,0.0716793750782,0.071520800743,0.0713697775666,0.0714717182107,0.0715056984254,0.0714943716871,0.07160386349,0.071622741387,0.071705804134,0.0715472297989,0.071437737996,0.0714075333607,0.0712074276521,0.0712678369226,0.0713886554637,0.0713697775666,0.0712112032315,0.0713131438755,0.0712338567079,0.0712187543903,0.0711998764932,0.0710979358492,0.0712414078667,0.071501922846,0.071520800743,0.0713773287255,0.0713848798843,0.0713660019872,0.071354675249,0.0712300811285,0.0713169194549,0.0713131438755,0.0713433485108,0.0714452891548,0.0714754937901,0.0714641670519,0.0715321274812,0.0716642727605,0.0716944773958,0.0715812100135,0.07166804834,0.0716491704429,0.0714905961077,0.0714415135754,0.0712678369226,0.0712263055491,0.0710526288963,0.0710941602698,0.0712565101844,0.0710979358492,0.0711583451197,0.0710601800551,0.0712112032315,0.0712678369226,0.071188549755,0.0710903846904,0.0710601800551,0.0710715067933,0.0709431370934,0.0709355859346,0.0710375265787,0.0710941602698,0.0709808928875,0.071105487008,0.0711281404845,0.0712338567079,0.0711621206992,0.0711998764932,0.0712036520727,0.0711356916433,0.0710110975228,0.0711130381668,0.0710186486816,0.0708676255053,0.0709242591964,0.0710299754198,0.0710450777375,0.0712753880814,0.071354675249,0.0713131438755,0.0714452891548,0.0717284576105,0.0719776458515,0.0718945831045,0.0717473355075,0.0719323388986,0.0718606028898,0.0718568273104,0.0717511110869,0.0716567216017,0.0717209064517,0.0718152959369,0.0719059098427,0.0719474412162,0.0717926424604,0.0717246820311,0.0717548866664,0.0717095797134,0.0718870319457,0.0716567216017,0.0717322331899,0.0718039691987,0.0717775401428,0.0717813157222,0.0717171308723,0.0718303982545,0.0719210121603,0.0719436656368,0.0720833620749,0.0721513225043,0.0719398900574,0.0719059098427,0.0719210121603,0.0716831506576,0.0717360087693,0.0718303982545,0.0716453948635,0.0712338567079,0.0710677312139,0.0710375265787,0.0711658962786,0.0710564044757,0.071252734605,0.0712867148197,0.0713055927167,0.0714452891548,0.0716604971811,0.0718266226751,0.0718455005722,0.072038055122,0.0723476526336,0.0723401014747,0.0724571444364,0.0727063326774,0.072472246754,0.0727289861539,0.0726043920334,0.0726496989863,0.0726648013039,0.072600616454,0.0725251048658,0.0724835734923,0.0724193886423,0.0724231642217,0.0722457119895,0.0723401014747,0.0724080619041,0.0723061212601,0.0722834677836,0.0722532631483,0.0721928538778,0.0721173422896,0.0723967351659,0.0726761280421,0.0726799036215,0.0727969465832,0.0727440884715,0.0725288804452,0.072268365466,0.0722796922042,0.0721928538778,0.0720946888132,0.0718832563663,0.0717435599281,0.0715283519018,0.0713433485108,0.0711243649051,0.0710375265787,0.0707241534877,0.0704598629291,0.0706297640025,0.0705467012555,0.0706259884231,0.0706373151613,0.070569354732,0.070754358123,0.0709582394111,0.0709091568788,0.0709355859346,0.0706750709554,0.0708109918141,0.0706297640025,0.070652417479,0.0707505825436,0.0706863976936,0.0706561930584,0.0706599686378,0.070652417479,0.0704938431438,0.0704900675644,0.0704372094526,0.0703768001821,0.0702257770057,0.0703843513409,0.0703843513409,0.0704070048174,0.0704938431438,0.0704711896673,0.070486291985,0.0704334338732,0.0705391500967,0.0704938431438,0.0705429256761,0.070486291985,0.0705618035731,0.0704145559762,0.0702673083792,0.0702710839587,0.0701313875205,0.0699841399236,0.0700445491941,0.0701125096235,0.0699841399236,0.0699728131854,0.0700030178206,0.0701502654176,0.0702182258469,0.0704334338732,0.0704107803968,0.0702748595381,0.0702635327998,0.070339044388,0.0703465955468,0.0703579222851,0.0702824106969,0.0701993479499,0.0702710839587,0.0702748595381,0.0704372094526,0.0705391500967,0.0704938431438,0.0704107803968,0.0703579222851,0.0703919024997,0.0703428199674,0.0700860805676,0.0701238363617,0.0701200607823,0.0699690376059,0.0701162852029,0.0701125096235,0.0703126153322,0.0702522060616,0.0701389386793,0.0702710839587,0.0703956780791,0.0704372094526,0.0703012885939,0.0702748595381,0.0702257770057,0.0702673083792,0.0704560873497,0.0701653677352,0.0701917967911,0.0702522060616,0.0703805757615,0.0704711896673,0.0704070048174,0.0701955723705,0.070320166491,0.0702597572204,0.070320166491,0.0702673083792,0.0702408793234,0.0701087340441,0.0701917967911,0.0702106746881,0.0702182258469,0.0703088397527,0.0701804700528,0.0702748595381,0.0704900675644,0.0704636385085,0.0704372094526,0.0704258827144,0.0702899618557,0.0703768001821,0.0704296582938,0.070505169882,0.070505169882,0.0704258827144,0.070422107135,0.0703314932292,0.0703050641733,0.0704787408261,0.070422107135,0.0704447606115,0.0703277176498,0.0704372094526,0.070237103744,0.070255981641,0.0702068991087,0.0703352688086,0.0701351630999,0.0701804700528,0.0700332224559,0.0699426085501,0.0698859748589,0.0698708725413,0.0697613807385,0.0698519946443,0.0697462784208,0.0699765887648,0.0702144502675,0.0701125096235,0.070320166491,0.0683266605631,0.066359583691,0.064392506819,0.0625047171145,0.0606848878394,0.058815976032,0.0568300212629,0.0547798816439,0.0528430094071,0.0509174639086,0.0490221230453,0.0470361682762,0.0450690914042,0.0430680343174,0.0409574854279,0.039084798041,0.0370799653749,0.0350940106058)
m <- c(0.0338255388746,0.0357216233386,0.0373859219262,0.039141414957,0.0410450989579,0.0428917864319,0.0446320803888,0.0464749680943,0.0483178557998,0.0500543499882,0.0519618337576,0.05376292401,0.0555868128731,0.0574676982633,0.0592725882841,0.0611382746004,0.0628937676312,0.0647252560312,0.0646834585781,0.0647214562628,0.0648430488537,0.064919044223,0.0649304435284,0.0648392490852,0.0649304435284,0.0649760407499,0.0650140384346,0.0649532421391,0.0650900338039,0.0652040268578,0.0651052328777,0.0651470303309,0.0652192259317,0.0652572236163,0.0652534238479,0.0653978150495,0.0654738104188,0.0653826159757,0.0654928092612,0.0656903972213,0.0657017965267,0.0656410002313,0.0657435939798,0.0657929909699,0.0658727861077,0.0659487814769,0.0658385881915,0.0659791796247,0.0660399759201,0.0659715800877,0.0660437756886,0.0660627745309,0.0660703740678,0.0661729678164,0.0663705557766,0.0664655499882,0.0665035476728,0.0666479388745,0.0667543323915,0.0669975175733,0.0671191101641,0.0670887120164,0.0669861182679,0.0670203161841,0.067027915721,0.066913922667,0.0671647073857,0.0672141043758,0.0673014990505,0.0672749006712,0.0673774944198,0.0674192918729,0.0673736946513,0.0674192918729,0.0674458902521,0.0674382907152,0.0675902814538,0.0677042745077,0.0675940812223,0.0674876877052,0.0674268914098,0.0675294851584,0.0676054805276,0.0675978809907,0.0676928752023,0.0678524654779,0.0678980626994,0.0679208613102,0.0681336483443,0.0680386541326,0.067894262931,0.0679588589949,0.0679246610787,0.0678866633941,0.0680234550588,0.0679284608472,0.0679626587634,0.0680386541326,0.0683388358414,0.0685174249592,0.0684414295899,0.0686162189393,0.0684528288953,0.0685174249592,0.0685060256538,0.0687226124563,0.0686998138455,0.0686086194024,0.0686846147717,0.0686960140771,0.0688898022688,0.0689315997219,0.0687150129194,0.0687758092148,0.0688898022688,0.0690265939335,0.0692165823568,0.0691823844406,0.069250780273,0.0691253879136,0.0689126008796,0.068810007131,0.0688138068995,0.0687416112987,0.0686960140771,0.068867003658,0.0688138068995,0.0688898022688,0.068973397175,0.0688936020373,0.0688632038895,0.0688936020373,0.0688860025003,0.0689619978696,0.0689961957858,0.0689809967119,0.0690911899974,0.0690949897659,0.0690987895344,0.0689999955543,0.0689581981012,0.0689467987958,0.0688404052787,0.0688898022688,0.0688556043526,0.0689429990273,0.0688860025003,0.0689315997219,0.0689353994904,0.0689315997219,0.068973397175,0.0689050013426,0.0688746031949,0.0689695974066,0.0689429990273,0.0689202004165,0.0691405869875,0.0690683913866,0.0691139886082,0.0692773786522,0.0692317814306,0.0691975835144,0.0692773786522,0.0692013832829,0.0691785846721,0.0693457744846,0.0693685730954,0.069349574253,0.0692773786522,0.0692887779576,0.0691443867559,0.0692165823568,0.0691519862929,0.0692621795783,0.0693305754107,0.0693799724008,0.069512964297,0.0693913717062,0.0695813601294,0.0695851598979,0.0696953531833,0.0696611552672,0.0697181517941,0.0695471622132,0.0696649550356,0.0694787663808,0.069512964297,0.0695775603609,0.0695471622132,0.0693837721692,0.0693951714746,0.0695433624448,0.0694179700854,0.0694977652232,0.0694027710116,0.0693989712431,0.0693989712431,0.0692697791153,0.0694179700854,0.0693913717062,0.0693153763369,0.0692735788837,0.069243180736,0.0692469805045,0.0693419747161,0.0691975835144,0.0690113948597,0.0688822027319,0.0689619978696,0.0687302119933,0.0686238184762,0.0685592224123,0.0684680279692,0.06849082658,0.0684224307476,0.0684376298215,0.0682362420928,0.0681450476497,0.0681032501966,0.0680880511227,0.0680234550588,0.0681336483443,0.0681792455659,0.0681298485758,0.0681336483443,0.0682628404721,0.0682514411667,0.068213443482,0.0682856390829,0.0682932386198,0.0683388358414,0.0684186309791,0.0685250244962,0.0686922143086,0.0685554226439,0.0685516228754,0.0686846147717,0.0687074133825,0.0687492108356,0.0688062073626,0.0686390175501,0.0686808150032,0.0689126008796,0.0689088011111,0.0688442050472,0.0689012015742,0.0689657976381,0.0690189943966,0.0691101888398,0.0691709851352,0.0692317814306,0.0692051830514,0.0694027710116,0.0696383566564,0.0695471622132,0.0696383566564,0.0696041587402,0.0698625429958,0.0698701425327,0.0699879353551,0.0699157397543,0.0700905291037,0.0702349203054,0.0702995163693,0.0703451135908,0.0704667061817,0.0703945105809,0.0703565128962,0.0702805175269,0.0702881170639,0.0703907108124,0.0704667061817,0.0704743057187,0.0704097096548,0.0702919168323,0.0703717119701,0.0705161031718,0.0704135094232,0.0703831112755,0.0703907108124,0.070550301088,0.0705009040979,0.0705655001618,0.0705882987726,0.0705047038664,0.0706832929842,0.0705655001618,0.0704857050241,0.0704173091917,0.0703945105809,0.070493304561,0.0705768994672,0.0706224966888,0.0704667061817,0.0705882987726,0.0705085036348,0.0706870927527,0.0704743057187,0.0703603126647,0.0702805175269,0.0702957166008,0.0702121216946,0.0702881170639,0.0702197212315,0.0703109156747,0.0703603126647,0.0704097096548,0.0705161031718,0.0704173091917,0.0704439075709,0.0705313022456,0.070493304561,0.070493304561,0.0707212906689,0.0707022918265,0.0707478890481,0.0705768994672,0.0706718936788,0.0707402895112,0.0706414955311,0.0706072976149,0.0704591066448,0.0706110973834,0.0707516888166,0.0707098913635,0.0706452952996,0.0707136911319,0.0705237027087,0.0706984920581,0.0705920985411,0.0705389017826,0.0706528948365,0.070599698078,0.0707516888166,0.0706604943734,0.0707440892797,0.070820084649,0.0709302779344,0.0710746691361,0.0710632698307,0.0710404712199,0.070926478166,0.0708732814075,0.0708732814075,0.0709872744614,0.0711658635793,0.0714394469087,0.0714356471403,0.0716104364897,0.0716598334797,0.0718384225976,0.0721044063901,0.0722335985179,0.0724235869412,0.0725641783744,0.0728301621669,0.0729973519794,0.0732405371611,0.0731569422549,0.0732101390134,0.0734343253528,0.0734533241951,0.0735597177122,0.0738750984947,0.0737649052093,0.0739890915487,0.0740954850657,0.0742132778881,0.0741296829819,0.0740232894649,0.0742512755728,0.0741752802035,0.0741600811296,0.0743538693213,0.0744716621437,0.0745970545031,0.0747604445471,0.0750416274135,0.0751328218566,0.0751176227828,0.0755127987031,0.0754862003239,0.0754102049546,0.0756533901363,0.0756799885156,0.0757369850426,0.0759079746235,0.0757635834218,0.0759649711504,0.0761321609629,0.0761815579529,0.0762651528592,0.0763829456816,0.0763639468393,0.0766451297057,0.0766907269272,0.0768617165082,0.0770631042368,0.0770479051629,0.0770517049314,0.0772682917339,0.0773632859455,0.0773062894186,0.0773214884924,0.0777394630236,0.07807004288,0.0781498380178,0.0785222153273,0.0785564132435,0.0784728183373,0.0786210093074,0.0786932049083,0.0787008044452,0.0785298148643,0.0785716123174,0.0788641944892,0.0786248090759,0.0785982106966,0.0785944109282,0.0786856053713,0.078666606529,0.0787881991199,0.0789819873116,0.0790693819863,0.0791871748087,0.0791605764294,0.0792327720303,0.0793315660104,0.0793011678626,0.0794721574436,0.0795785509606,0.0796431470245,0.0797381412361,0.07985213429,0.0799205301224,0.0800345231764,0.0800573217872,0.0802473102104,0.080342304422,0.0805132940029,0.0805132940029,0.08061968752,0.0808134757117,0.0807374803424,0.0809160694602,0.0810338622826,0.0810604606619,0.0813530428337,0.0813112453806,0.0815544305623,0.0816684236163,0.0817596180594,0.0821091967582,0.0825499699001,0.082622165501,0.0825765682794,0.0828881492935,0.0829451458205,0.0829717441997,0.0832795254454,0.0834011180363,0.0835189108587,0.0835835069226,0.083750696735,0.0840432789068,0.0839292858529,0.0841002754338,0.0843130624679,0.0844460543641,0.0846018448712,0.0848716284322,0.0850996145401,0.0852250068994,0.0851338124563,0.0854225948596,0.0857189767999,0.0857645740214,0.0858443691592,0.0861027534148,0.0863421388281,0.0865815242414,0.0870108980779,0.0873072800182,0.0875314663576,0.0879114432041,0.088245822829,0.0884054131046,0.0884358112523,0.0885536040747,0.0885916017593,0.0888651850888,0.089062773049,0.0891843656399,0.0894275508216,0.0896213390133,0.089815127205,0.0899975160914,0.0902255021992,0.0903508945586,0.0905218841395,0.0906016792773,0.0909702568184,0.0911108482516,0.0913882313495,0.0913540334333,0.0915364223196,0.0916428158367,0.0916162174574,0.0918480033338,0.0921975820325,0.0921177868948,0.0922811769388,0.0926611537853,0.0927865461446,0.0928853401247,0.0929575357255,0.0931323250749,0.0930563297056,0.0930943273903,0.0930943273903,0.093124725538,0.0930525299371,0.0934591051629,0.0933755102567,0.0935275009953,0.0936224952069,0.0936946908077,0.0938542810832,0.0939226769156,0.0941202648758,0.094040469738,0.0942912544567,0.0945648377862,0.094637033387,0.0949410148642,0.0951044049082,0.0952981930999,0.0954159859223,0.0955869755032,0.0957769639265,0.0959745518867,0.0961037440145,0.0962747335954,0.0965369176195,0.0967307058112,0.0968826965498,0.0973728666817,0.0975286571888,0.0975856537158,0.0977338446859,0.0978744361191,0.0982924106502,0.0985469951374,0.0989155726785,0.0991093608702,0.0994247416528,0.0999149117848,0.100161896735,0.100363284464,0.100952248576,0.101127037925,0.101507014772,0.101879392081,0.102259368928,0.102532952257,0.102779937207,0.103216910581,0.10349049391,0.103672882797,0.104075658254,0.104387239268,0.104687420977,0.105128194119,0.105454974207,0.105701959157,0.106123733456,0.106686099189,0.107142071405,0.107567645473,0.10799701931,0.10849098921,0.108946961426,0.109410533179,0.109718314424,0.110219883862,0.110824047048,0.111143227599,0.11161059912,0.112180564389,0.112651735679,0.113377491456,0.113913258809,0.114346432414,0.115159582866,0.115714349062,0.116276714795,0.117112663857,0.117671229821,0.118263993702,0.118871956656,0.119343127946,0.119890294605,0.120532455475,0.121018825839,0.121581191572,0.122113159157,0.122766719333,0.123530472794,0.124092838527,0.124841392915,0.125475954248,0.126007921833,0.126232108173,0.126866669506,0.127588625515,0.128371377818,0.128952742394,0.129613902106,0.130047075711,0.130529646307,0.130924822227,0.131225003936,0.13183296689,0.132220543273,0.13235353517,0.132543523593,0.132763910164,0.133037493493,0.13336807335,0.133527663625,0.133846844176,0.133915240009,0.133789847649,0.133919039777,0.134302816392,0.134682793239,0.135043771243,0.135165363834,0.135321154341,0.135556739986,0.135351552489,0.1354465467,0.135416148552,0.135210961055,0.135309755035,0.135324954109,0.135359152025,0.135313554804,0.135450346469,0.135138765454,0.134986774716,0.134735989997,0.134546001574,0.134302816392,0.134166024727,0.134196422875,0.134055831442,0.134230620791,0.134287617318,0.134211621949,0.134249619634,0.134405410141,0.134196422875,0.13401023422,0.133744250428,0.133653055985,0.133231281685,0.133330075665,0.13324268099,0.133208483074,0.132779109238,0.132258540958,0.131962159018,0.131825367353,0.131259201852,0.130750032877,0.130807029404,0.130533446075,0.130176267839,0.129948281731,0.129689897476,0.129245324565,0.128914744709,0.128606963463,0.128314381291,0.128272583838,0.127862208844,0.127322641722,0.127117454225,0.126642483167,0.126433495901,0.125905328085,0.125491153322,0.124905988978,0.124153634822,0.123796456587,0.123405080435,0.122869313081,0.12225375059,0.12190797166,0.121588791109,0.120931431164,0.120657847835,0.120091682333,0.119871295762,0.119168338596,0.118928953183,0.118670568928,0.118305791155,0.117701627969,0.117739625654,0.117336850196,0.117029068951,0.11663389303,0.116421105996,0.116067727529,0.1157941442,0.115345771521,0.11522417893,0.11490119861,0.114821403473,0.114293235656,0.114236239129,0.114278036582,0.114053850243,0.113746068997,0.113309095624,0.112993714841,0.112815125723,0.112435148877,0.112226161611,0.111743591016,0.111481406992,0.111158426672,0.110953239175,0.110869644269,0.110622659319,0.110409872285,0.110143888492,0.109972898911,0.1094561304,0.109285140819,0.108905163973,0.108692376939,0.108418793609,0.108509988052,0.107913424403,0.107715836443,0.107423254271,0.107085074878,0.1067088978,0.106446713776,0.105774154758,0.105736157073,0.105428375827,0.105192790183,0.104596226534,0.10435684112,0.104132654781,0.103752677934,0.103254908265,0.10334230294,0.103000323778,0.102760938365,0.102403760129,0.102255569159,0.102069380504,0.101921189534,0.101567811067,0.101092840009,0.100948448807,0.100484877055,0.100370884001,0.100291088863,0.100104900208,0.099835116647,0.0997819198885,0.0997629210462,0.099785719657,0.0993829441997,0.0994057428105,0.0989611699001,0.0989839685109,0.0990333655009,0.0988281780038,0.0987141849499,0.0984823990735,0.0983380078718,0.098372205788,0.0981100217639,0.097726245149,0.0975020588095,0.0974374627456,0.0973082706178,0.0966699095157,0.0963887266493,0.0962671340585,0.0959099558228,0.0959061560543,0.0957389662418,0.0955109801339,0.0954083863854,0.0953475900899,0.0951234037505,0.0950740067605,0.0951424025928,0.0950550079181,0.0948878181057,0.0946142347762,0.094473643343,0.0944546445007,0.0941088655704,0.0940100715903,0.0937250889554,0.0934401063206,0.093443906089,0.0932995148874,0.0931855218334,0.0930525299371,0.0928625415139,0.092683952396,0.0924559662882,0.0923989697612,0.0920683899047,0.0920075936093,0.0918632024076,0.0918594026392,0.0916922128267,0.0916352162997,0.0914604269503,0.0913540334333,0.0912438401478,0.0910424524192,0.0908106665428,0.090632077425,0.0903850924748,0.0903508945586,0.0901723054407,0.0900393135445,0.089978517249,0.0897581306781,0.0896403378557,0.0894503494324,0.0894427498955,0.0891653667975,0.0889411804581,0.0884776087054,0.0884434107892,0.0881698274597,0.0879076434357,0.0876378598746,0.0873414779344,0.0868855057186,0.0868057105808,0.0865739247045,0.0865397267883,0.0863611376704,0.0862851423011,0.0862813425327,0.0862395450796,0.0860685554986,0.0857341758737,0.0855745855982,0.0851794096779,0.0848754282007,0.0844080566795,0.084518249965,0.0844384548272,0.0843890578371,0.0842712650147,0.084028079833,0.0840546782122,0.0839406851583,0.0835569085433,0.0834429154894,0.08326812614,0.0831693321599,0.0829641446628,0.0828463518404,0.0825499699001,0.0824131782354,0.0824245775408,0.0822839861076,0.0821281956005,0.0820104027781,0.0817862164387,0.0816684236163,0.08148603473,0.0814024398237,0.0811744537158,0.0810718599673,0.0807336805739,0.080448697939,0.0803157060428,0.0800117245656,0.0797989375315,0.0794683576751,0.0795405532759,0.0792479711041,0.0791985741141,0.0790389838386,0.0791339780502,0.0789515891639,0.0785336146327,0.0783740243572,0.0783664248203,0.0782524317663,0.0781118403331,0.0781612373232,0.0782600313033,0.0780548438061,0.0779104526045,0.0777356632551,0.0776824664966,0.077579872748,0.0774088831671,0.0772492928916,0.0768541169712,0.0767363241488,0.0766565290111,0.0763525475339,0.0764741401247,0.0763905452185,0.0762613530907,0.0761929572583,0.0760561655936,0.0757825822641,0.0755735949986,0.0756153924517,0.0757445845795,0.0755507963878,0.0754558021762,0.0753000116691,0.0751480209305,0.0751556204674,0.0750758253297,0.0749694318126,0.0751024237089,0.0749238345911,0.0752544144475,0.075144221162,0.0749732315811,0.0748478392218,0.0748364399164,0.0745590568184,0.0744450637645,0.0741524815927,0.0741942790458,0.0740194896964,0.0739320950217,0.0739092964109,0.0738333010416,0.0738940973371,0.074008090391,0.074065086918,0.0739852917802,0.0740612871495,0.0739244954848,0.0739358947902,0.0739320950217,0.0740384885387,0.0739472940956,0.0739396945587,0.0740270892333,0.0740156899279,0.0737307072931,0.0739472940956,0.0741068843711,0.0742208774251,0.0742740741836,0.0742436760358,0.0744944607545,0.0746008542715,0.0744830614491,0.0744754619122,0.074277873952,0.0743120718682,0.0743196714051,0.0744374642276,0.0743500695529,0.0744222651537,0.0744260649222,0.0746350521877,0.0746920487147,0.0746692501039,0.0748364399164,0.0746236528823,0.0746806494093,0.0748212408425,0.0746958484832,0.0749428334334,0.0750682257927,0.0750834248666,0.0753228102799,0.0752392153737,0.075364607733,0.0751860186151,0.0752430151421,0.0751936181521,0.0751062234774,0.0750416274135,0.0749504329703,0.074661650567,0.0744754619122,0.0744830614491,0.0743006725628,0.0741980788143,0.0739852917802,0.0739396945587,0.0738978971055,0.073844700347,0.0737687049777,0.0736129144707,0.0735939156283,0.0735217200275,0.0735521181752,0.0733659295205,0.0732519364665,0.073141743181,0.0728909584623,0.0728073635561,0.0725983762905,0.0726211749013,0.0724767836997,0.0723437918034,0.0724463855519,0.0722297987494,0.0721158056955,0.0720550094001,0.071785225839,0.0717130302382,0.0716940313959,0.0716522339428,0.0714812443619,0.0715116425096,0.0714014492241,0.0712076610324,0.0712418589486,0.0713900499187,0.0713330533917,0.0713368531602,0.0714014492241,0.0713292536233,0.0712988554755,0.0713634515394,0.0712836564017,0.071409048761,0.0713330533917,0.071352052234,0.0712722570963,0.0711620638108,0.0710860684415,0.0711202663577,0.0710974677469,0.0711886621901,0.0710214723776,0.0712038612639,0.0711012675154,0.0711316656631,0.0710784689046,0.07108986821,0.0710024735353,0.0708808809444,0.0707022918265,0.070599698078,0.0706300962257,0.0707592883535,0.0705882987726,0.0706300962257,0.0707440892797,0.0708162848805,0.0708884804813,0.0711240661262,0.0710860684415,0.0710442709884,0.0710404712199,0.0710708693676,0.0712038612639,0.0713368531602,0.0714432466772,0.071409048761,0.0714470464457,0.0713824503818,0.0715838381104,0.0716484341743,0.0716522339428,0.0718194237552,0.0719182177353,0.0719030186615,0.0719638149569,0.0719030186615,0.0720474098631,0.0721044063901,0.0722449978233,0.0721880012963,0.0723361922665,0.0722487975918,0.0722639966656,0.0722563971287,0.0724463855519,0.0725337802266,0.072602176059,0.0725337802266,0.0725945765221,0.0725945765221,0.0726971702706,0.0727427674922,0.0726819711968,0.0726059758275,0.0727997640192,0.0727769654084,0.0729631540632,0.0727769654084,0.0726629723544,0.0725109816158,0.0724349862465,0.0723779897196,0.072275395971,0.0722032003702,0.0719904133362,0.0718042246814,0.0718916193561,0.0717586274598,0.0716978311644,0.0716636332482,0.0717320290805,0.0717168300067,0.071899218893,0.0719144179669,0.0718916193561,0.0718764202822,0.0719296170407,0.0720360105577,0.0720170117154,0.072112005927,0.0721386043063,0.0721652026855,0.0721348045378,0.0719638149569,0.0719296170407,0.0718574214399,0.071948615883,0.071842222366,0.0719258172723,0.0719828137992,0.0718346228291,0.0719258172723,0.0718194237552,0.0720512096316,0.0721500036117,0.072381789488,0.0723969885619,0.0724425857835,0.0725337802266,0.0726819711968,0.072708569576,0.0727313681868,0.0725907767536,0.0727541667976,0.0727807651769,0.0728453612408,0.0728035637876,0.0728871586939,0.0729365556839,0.0728453612408,0.0726743716598,0.0727579665661,0.0726667721229,0.0725793774482,0.0726135753644,0.0725261806897,0.0724805834681,0.0724425857835,0.0724425857835,0.0725793774482,0.072602176059,0.0725717779113,0.0724045880988,0.0723095938872,0.0722677964341,0.072225998981,0.0723399920349,0.0723627906457,0.0703679122016,0.0682400418613,0.0661197710579,0.0639995002545,0.0620046218104,0.0599679459132,0.057980667006,0.0558603962026,0.0539415131278,0.0520530282008,0.0501037469783,0.0479758766379,0.0459050028246,0.0439025248436,0.0419228454733,0.0398405723546,0.0376823038665,0.0356722263486)
s <- c(0.0339621499352,0.033971919842,0.0339758278047,0.0340285853013,0.0341301923318,0.0341790418656,0.0341985816792,0.0342728329707,0.0343275444486,0.0344525992554,0.0345151266587,0.0344994948079,0.0344467373113,0.0344643231435,0.0344682311062,0.0344096116656,0.034538574435,0.0345639761926,0.0346089177638,0.0345952398943,0.0346479973909,0.0346694911858,0.0346460434095,0.0346694911858,0.0346831690553,0.0346792610926,0.0347574203468,0.0348160397874,0.0347593743281,0.0347046628502,0.0346733991485,0.0347261566451,0.0347652362722,0.0347613283095,0.0348101778434,0.0348922450603,0.0349156928366,0.0349274167247,0.0350368396806,0.0349879901467,0.0349137388552,0.0349469565382,0.034929370706,0.0349098308925,0.0349801742213,0.0349313246874,0.0349489105196,0.0349879901467,0.0351423546738,0.0352341917975,0.0538868978145,0.0549498636717,0.0558760508341,0.0568432716049,0.0578534799656,0.0589926510957,0.0599715957546,0.0608841050475,0.061876727576,0.0628732580671,0.0639713955888,0.0648956287698,0.0657280248271,0.0667812207776,0.0678656804297,0.0688934746226,0.0699642564053,0.0708963055117,0.0709412470829,0.0708435480151,0.0707419409846,0.070716539227,0.0706715976559,0.0706422879355,0.0705524047932,0.0705875764576,0.0705230950729,0.0705367729423,0.0705856224762,0.0705699906254,0.0705172331288,0.0704937853525,0.0705250490542,0.0706735516372,0.0708982594931,0.0709510169897,0.071074117815,0.0710663018896,0.0711151514235,0.0710389461506,0.0710311302252,0.0710096364303,0.0709705568032,0.0709881426354,0.0709783727286,0.0710369921693,0.0710213603184,0.0711249213303,0.0711464151252,0.0711131974421,0.0710721638337,0.0711503230879,0.0711913566963,0.0712656079878,0.0712675619692,0.071249976137,0.0713339973353,0.071189402715,0.0711991726218,0.0712656079878,0.0712597460438,0.0712753778946,0.0712968716895,0.0713085955777,0.0712636540065,0.0713437672421,0.071425834459,0.07151376362,0.0714180185336,0.0713613530743,0.0711737708641,0.0711854947523,0.0710311302252,0.071074117815,0.0710096364303,0.0711776788269,0.0711679089201,0.0710623939269,0.0711171054048,0.0711737708641,0.0712910097455,0.0712968716895,0.0712871017828,0.0712362982675,0.0713007796522,0.0713125035404,0.0713320433539,0.0713593990929,0.0712968716895,0.0712675619692,0.0713320433539,0.0714453742725,0.0714805459369,0.0715919228742,0.0715215795454,0.0716114626877,0.0716915759233,0.0716642201843,0.071728701569,0.0716935299046,0.0717169776809,0.0717795050843,0.0717032998114,0.0716857139792,0.0717365174945,0.0716935299046,0.0716642201843,0.0716935299046,0.0717462874012,0.0717130697182,0.0717267475877,0.0716837599979,0.0716251405572,0.0717091617555,0.0716739900911,0.0716603122216,0.0714766379742,0.0713359513166,0.0712734239133,0.0712050345658,0.0712050345658,0.0711405531811,0.0712148044726,0.0711600929947,0.0712206664167,0.071249976137,0.0712460681743,0.0711444611438,0.0711131974421,0.0711385991998,0.0711757248455,0.0710760717964,0.0710584859642,0.0711679089201,0.0711718168828,0.0710956116099,0.071128829293,0.0710643479083,0.0711053815167,0.0712343442862,0.0710545780015,0.0710623939269,0.0711835407709,0.0710897496659,0.0710780257777,0.0709940045795,0.0710702098523,0.071074117815,0.0711385991998,0.0711952646591,0.0712538840997,0.0712441141929,0.0713613530743,0.0715489352844,0.0716016927809,0.071756057308,0.0716896219419,0.071904559891,0.071937777574,0.071937777574,0.0718576643385,0.0719729492384,0.0720296146977,0.0721527155231,0.0721917951502,0.0722386907027,0.0722445526468,0.0722992641248,0.0723129419942,0.0722738623671,0.0722875402366,0.07235006764,0.0723696074535,0.0723676534722,0.0723031720875,0.0722758163485,0.0724301808756,0.0723696074535,0.0722777703299,0.0723481136586,0.0723656994908,0.0724145490247,0.0723715614349,0.072316849957,0.0724008711552,0.0724399507823,0.0723735154163,0.0724047791179,0.0724419047637,0.0723793773603,0.0724575366145,0.0724243189315,0.072586499384,0.072471214484,0.0725298339247,0.0725356958687,0.0727271860416,0.0726607506755,0.0725630516077,0.072498570223,0.0725728215145,0.0725708675331,0.0726724745636,0.0726861524331,0.0727369559483,0.0728190231653,0.0728932744567,0.0730163752821,0.0730398230584,0.0731003964804,0.0731746477719,0.0732430371193,0.0732801627651,0.0734931467328,0.0735967077446,0.073692452831,0.0738292315259,0.0739308385564,0.074050031419,0.0741360065987,0.0740558933631,0.0740578473445,0.0741907180766,0.0743118649206,0.0743216348274,0.0744408276901,0.0744681834291,0.0744662294477,0.0745893302731,0.0746127780493,0.0746245019375,0.0746635815646,0.0745951922172,0.0746772594341,0.0747554186883,0.0749136911781,0.0750172521899,0.0751227671831,0.0752419600457,0.0752908095796,0.0753298892067,0.0752908095796,0.0753885086474,0.0753885086474,0.0754783917897,0.0755506890999,0.0756796518693,0.0756679279812,0.0758574641726,0.0758418323218,0.0759317154641,0.0760919419353,0.07604113842,0.0761446994318,0.0761681472081,0.0762345825742,0.0764026249707,0.0765022780199,0.0765335417215,0.0765569894978,0.0767308938384,0.076750433652,0.0768774424401,0.0770064052095,0.0770298529858,0.0772154812145,0.077344443984,0.0775027164737,0.0775046704551,0.0775457040635,0.0777196084042,0.0776238633178,0.0776062774856,0.0777528260872,0.0778544331177,0.077911098577,0.0780381073651,0.0782335055006,0.0782295975379,0.0783370665124,0.078626255753,0.0787044150072,0.0787649884292,0.078956478602,0.0789584325834,0.0791421068308,0.0792652076561,0.0791890023833,0.0793765845934,0.0796149703187,0.0797458870695,0.0798943896525,0.0800643860304,0.0802539222219,0.0804317345252,0.0805763291455,0.0807209237658,0.0808635644047,0.0808635644047,0.0810237908758,0.0810921802233,0.081184017347,0.0812367748436,0.0813637836317,0.0816666507417,0.0819206683179,0.0819968735908,0.0823915778245,0.0825185866126,0.0826260555871,0.0827667422447,0.0828976589955,0.0830481155599,0.083093057131,0.0833158110055,0.0835346569173,0.0834858073834,0.0835971843207,0.0836499418173,0.0837789045867,0.08395671689,0.0840602779019,0.0842341822425,0.0843475131611,0.0845390033339,0.0845350953712,0.084693367861,0.0848633642389,0.0848711801643,0.084935661549,0.0850997959829,0.085111519871,0.0852209428269,0.0853909392048,0.0855648435454,0.085650818725,0.0857504717741,0.0858696646368,0.0859028823199,0.0860572468469,0.086238967113,0.0862643688706,0.0865770058874,0.0866512571789,0.0867548181907,0.0868466553144,0.0869306765127,0.0871436604804,0.0870655012262,0.0871866480702,0.0872687152872,0.0874094019447,0.0875383647142,0.0878646796005,0.0879643326496,0.088120651158,0.0882144422631,0.0883434050325,0.0884899536342,0.0887576490798,0.0889139675883,0.0890429303577,0.0891406294255,0.0892735001576,0.0895236097711,0.0895157938457,0.089720961888,0.0900433688116,0.0902309510217,0.0904224411945,0.0906491030317,0.0908757648689,0.0910613930977,0.0911669080908,0.0914580513128,0.0917257467584,0.0917706883296,0.0920716014583,0.0921849323769,0.0923666526429,0.0926734277157,0.0929958346393,0.0933807689663,0.0936132927476,0.0939923651305,0.0943382198304,0.0945609737049,0.0946918904557,0.0950826867267,0.0952175114402,0.0954852068859,0.0955770440096,0.0958701412129,0.0961339286958,0.0964172559923,0.096651733755,0.0968178221701,0.097103103448,0.097306317509,0.0975271174021,0.0975896448055,0.0979003278409,0.0980410144985,0.0982969860561,0.0984259488255,0.0985705434458,0.0986916902898,0.0987073221407,0.0989496158287,0.0991567378524,0.0992446670133,0.0993071944167,0.0994986845895,0.0996081075454,0.0998621251216,0.0999793640029,0.10016303825,0.100241197505,0.100254875374,0.100379930181,0.100446365547,0.100481537211,0.100766818489,0.100764864508,0.100827391911,0.100909459128,0.101177154574,0.101319795213,0.101466343814,0.101714499446,0.101786796756,0.102038860351,0.102273338114,0.102408162827,0.102742293639,0.103062746581,0.103385153505,0.103562965808,0.103799397552,0.103967439949,0.104162838084,0.104319156593,0.104590760001,0.104866271372,0.105055807564,0.105214080054,0.105679127616,0.105999580558,0.10633371137,0.106585774965,0.106710829772,0.107072316322,0.107310702048,0.107605753232,0.107850000902,0.108109880422,0.108518262525,0.108854347318,0.109014573789,0.109538240793,0.109647663749,0.110016966225,0.110356958981,0.110829822468,0.111119011709,0.11127923818,0.111568427421,0.111832214904,0.111951407766,0.112350019963,0.112566911893,0.112822883451,0.113145290374,0.113461835354,0.113629877751,0.113981594394,0.11436457474,0.114831576284,0.115204786723,0.115773395297,0.116230626934,0.11671521431,0.116955554017,0.117186123817,0.117516346666,0.117955992471,0.11820024014,0.118596898356,0.119048268049,0.119491821816,0.119947099472,0.120408239072,0.120724784051,0.121230865222,0.121715452598,0.122033951559,0.122838991878,0.123309901384,0.123632308308,0.124066092169,0.124519415843,0.12499032535,0.125398707453,0.125846169183,0.126506614881,0.126916950966,0.127466019727,0.128058076078,0.128708751869,0.129398507287,0.130012057433,0.130518138604,0.13084445349,0.131397430214,0.132012934341,0.132479935884,0.132970385205,0.13351163804,0.133953237826,0.134383113724,0.134750462219,0.134922412578,0.135319070794,0.13561607596,0.13576067058,0.136057675746,0.136376174707,0.136739615239,0.137200754839,0.13750557593,0.137829936835,0.138099586262,0.137982347381,0.138134757926,0.138445440962,0.138722906314,0.138881178804,0.139017957499,0.139381398031,0.13961001385,0.139502544875,0.139529900614,0.139522084689,0.13936576618,0.139330594516,0.139281744982,0.139328640534,0.139223125541,0.139295422851,0.139035543331,0.138902672599,0.138883132785,0.138715090389,0.138607621414,0.138562679843,0.138609575396,0.138619345303,0.138812789457,0.138881178804,0.138842099177,0.138912442506,0.138797157606,0.138732676221,0.138449348925,0.138195331348,0.137876832388,0.137529023706,0.137468450284,0.137323855664,0.137060068181,0.136706397556,0.136319509247,0.136094801392,0.135846645759,0.135268267278,0.134728968424,0.134631269357,0.134410469463,0.133961053752,0.133708990157,0.133314285923,0.132800388827,0.132263043954,0.131891787496,0.131446279747,0.13117663032,0.130566988138,0.129836199111,0.129361381641,0.128812312881,0.128444964386,0.127893941644,0.127165106598,0.126528108676,0.125822721407,0.125146643858,0.124656194538,0.124027012542,0.123296223515,0.122887841412,0.122405208017,0.121809243704,0.121344196141,0.120662256648,0.12029100019,0.119827906609,0.119495729779,0.119073669806,0.118555864747,0.117995072098,0.117719560727,0.117180261873,0.116654640888,0.11605086065,0.115761671409,0.115306393753,0.114985940811,0.114452503901,0.114302047337,0.113878033383,0.113618153862,0.113145290374,0.112902996686,0.112727138364,0.11237542172,0.111933821934,0.11139452308,0.111097517914,0.110841546357,0.110435118235,0.110151790938,0.109936852989,0.10953433283,0.109252959515,0.10889928889,0.108522170488,0.108221257359,0.108021951261,0.107709314244,0.107570581568,0.107164153446,0.106849562448,0.106394284792,0.106066015924,0.10572797715,0.105647863914,0.105124196911,0.104915120906,0.104659149349,0.104377776034,0.104028013371,0.103715376354,0.103166307593,0.103119412041,0.102824360856,0.10267195031,0.102330003573,0.102072078034,0.101935299339,0.101696913614,0.101421402243,0.101341289008,0.100995434308,0.100622223869,0.100526478782,0.100452227491,0.100241197505,0.100024305574,0.0996979906878,0.0994263872794,0.0993599519133,0.0991176582253,0.0988949043508,0.0987151380661,0.098560773539,0.0982715842984,0.0981523914358,0.0980292906104,0.0979745791324,0.0977088376681,0.0976990677614,0.0973844767632,0.0974235563903,0.0973883847259,0.0973258573225,0.0972965476022,0.0972222963107,0.0971148273361,0.0970718397463,0.0968920734616,0.0965540346872,0.0963078330364,0.0961945021178,0.0960264597213,0.0955653201214,0.0952214194029,0.0950905026521,0.0948794726658,0.0947700497099,0.0946762586048,0.0943147720541,0.0940861562355,0.093978687261,0.0936406484866,0.0935781210832,0.0934218025748,0.093208818607,0.0930798558376,0.092905951497,0.0927691728021,0.092757448914,0.0925112472632,0.0923705606057,0.0921868863583,0.0920110280363,0.0919914882227,0.0918683873974,0.0917374706466,0.09156942825,0.0914932229772,0.091211849662,0.0910184055078,0.0908288693164,0.090557265908,0.0904751986911,0.0902250890776,0.0901312979726,0.089935899837,0.0898245228998,0.0897580875337,0.0896310787456,0.0895900451372,0.0894220027406,0.0891699391458,0.0891933869221,0.0890038507306,0.0890546542458,0.0889100596255,0.0889022437001,0.0890429303577,0.0889569551781,0.0889901728611,0.0889295994391,0.0888416702781,0.0886951216765,0.0885173093731,0.0880932954191,0.0880405379225,0.0878255999734,0.0875950301735,0.0873918161125,0.0872140038092,0.0868036677246,0.0867157385636,0.0865672359806,0.0864167794163,0.0863171263672,0.0861998874858,0.0861608078587,0.0861080503621,0.085914606208,0.085738747886,0.0856273709488,0.0854925462353,0.0852737003235,0.0848223306304,0.0848575022948,0.084753941283,0.0847793430406,0.0847500333203,0.084429580378,0.0843826848255,0.084132575212,0.0838512018969,0.0836753435749,0.0834916693275,0.0833314428564,0.083032483709,0.0830070819514,0.0828214537227,0.0826983528973,0.0826397334566,0.0825244485567,0.0823759459737,0.0822997407008,0.0821942257076,0.0820222753484,0.0817877975857,0.0817428560146,0.0815806755621,0.0815337800096,0.0812699925266,0.0810745943911,0.081035514764,0.0808733343115,0.080711153859,0.0805509273879,0.0805548353506,0.0804161026744,0.0802617381473,0.0801132355643,0.0802519682405,0.0801699010236,0.0799041595593,0.0797243932746,0.0796931295729,0.0796774977221,0.0795387650459,0.0795387650459,0.0795661207848,0.0793648607053,0.0790815334088,0.0789193529563,0.0789037211054,0.0786672893614,0.0784875230768,0.0783077567921,0.0781045427311,0.0781612081904,0.0781651161532,0.077999027738,0.077971671999,0.0779873038498,0.0778974207075,0.0778544331177,0.0777665039567,0.0775632898957,0.0775203023059,0.0774851306415,0.0774186952755,0.0772486988976,0.0771549077925,0.0770024972468,0.0769223840112,0.0768735344773,0.0767465256893,0.0766839982859,0.076756295596,0.0766058390317,0.0767582495774,0.0766390567147,0.0764612444114,0.0764045789521,0.0764671063555,0.0763205577538,0.0761642392454,0.0760489543454,0.0761446994318,0.0760235525878,0.0759493012963,0.0759610251845,0.0760255065692,0.0760665401776,0.0761486073946,0.0760567702709,0.0758789579675,0.0758770039862,0.0758164305642,0.0756874677947,0.0756894217761,0.0757617190862,0.0756679279812,0.0756268943727,0.0756093085405,0.0754998855846,0.0752810396728,0.0753924166101,0.0754822997524,0.0755409191931,0.0755194253982,0.0754354041999,0.0756112625219,0.0756132165032,0.0754901156778,0.075441266144,0.0753181653186,0.0752849476355,0.0753142573559,0.075292763561,0.0751696627356,0.0752595458779,0.0752790856915,0.075380692722,0.0754666679016,0.0754647139202,0.0755936766897,0.0754021865169,0.0753748307779,0.0754314962372,0.0752634538406,0.0754217263304,0.0755487351185,0.0755467811371,0.0755878147456,0.0755975846524,0.0756210324286,0.0755213793795,0.0755409191931,0.0754627599389,0.0754920696592,0.0755936766897,0.0755565510439,0.0753337971694,0.0752419600457,0.0752360981017,0.0751364450525,0.0750192061712,0.0749547247865,0.0749293230289,0.0749234610848,0.0749488628424,0.0749254150662,0.0748394398866,0.0748648416442,0.0748961053459,0.0749273690475,0.0747730045205,0.074759326651,0.0746928912849,0.0744818612985,0.0744134719511,0.0742161198342,0.0742063499275,0.0740422154936,0.0739953199411,0.074132098636,0.0739386544818,0.0739112987428,0.0738292315259,0.0737686581039,0.0737608421785,0.0737100386632,0.0736377413531,0.0735341803413,0.0735556741362,0.0734325733108,0.073329012299,0.0733993556278,0.0735048706209,0.0734169414599,0.073483376826,0.0735283183972,0.0735459042294,0.0734931467328,0.0735459042294,0.0735068246023,0.0735361343226,0.0734325733108,0.0734951007142,0.0734052175718,0.0732703928583,0.0732606229515,0.0733329202617,0.073329012299,0.0734951007142,0.073450159143,0.0735224564531,0.073538088304,0.0737002687565,0.0738018757869,0.0737647501412,0.0736436032972,0.0736768209802,0.0735478582107,0.0734931467328,0.0734540671057,0.0734716529379,0.0734169414599,0.0734872847887,0.0735927997819,0.0736514192226,0.0736084316328,0.0736944068124,0.0736904988497,0.0736455572785,0.0737354404209,0.073631879409,0.0737393483836,0.0738448633767,0.0738858969852,0.0738702651344,0.0738565872649,0.0738819890225,0.0740324455868,0.074077387158,0.0741516384495,0.0742727852935,0.0742141658529,0.0741887640953,0.0742278437224,0.0740734791953,0.0741750862258,0.07425324548,0.0742297977037,0.0739875040157,0.0739777341089,0.0739171606869,0.0739914119784,0.0739308385564,0.0741301446546,0.074192672058,0.0742376136291,0.0742747392749,0.0744173799138,0.0745033550935,0.0745658824968,0.0746889833222,0.0748179460916,0.0747749585018,0.074935184973,0.0750524238543,0.0750270220967,0.0750641477424,0.074941046917,0.0748863354391,0.0748550717374,0.074792544334,0.0747007072103,0.0746420877697,0.0744994471307,0.0744056560257,0.0743587604732,0.0743392206596,0.0743431286223,0.0742727852935,0.0742962330698,0.0742727852935,0.0743353126969,0.0743040489952,0.0744369197274,0.0745736984222,0.0746030081426,0.0747182930425,0.0746811673968,0.0746186399934,0.0744974931494,0.0745170329629,0.0744564595409,0.0743177268647,0.0741907180766,0.0740812951207,0.074016813736,0.0738663571717,0.0737960138429,0.073780381992,0.0735419962667,0.0734521131243,0.0734853308074,0.0735615360802,0.0736533732039,0.0737784280107,0.0737510722717,0.0738702651344,0.0740226756801,0.0740734791953,0.0741008349343,0.0739777341089,0.0739757801275,0.0739660102208,0.0739914119784,0.0740754331767,0.0740207216987,0.0740480774377,0.0740754331767,0.0740246296614,0.0738546332835,0.073895666892,0.0738214156005,0.0737452103276,0.0736846369056,0.0737217625514,0.0736983147751,0.0736904988497,0.0737354404209,0.0737940598615,0.0738135996751,0.0737706120852,0.0737393483836,0.0736670510734,0.0736709590361,0.0736201555209,0.0737178545887,0.0736533732039,0.0725513277196,0.071459052142,0.0702964332357,0.0691299063666,0.0681353298568,0.0671231675148,0.0660347998999,0.0649386163596,0.0639674876261,0.0630725641654,0.0621053433945,0.0611224907729,0.0600458470461,0.0589457555431,0.057921869313,0.0568901671574,0.0557842137104,0.0547564195175,0.0363733629276,0.0363303753377,0.0363675009835,0.0363694549648,0.0364534761631,0.0365062336597,0.0364827858834,0.0364397982936,0.0364124425547,0.0364300283869,0.0364046266292,0.0362717558971,0.0362912957106,0.0362893417293,0.0362111824751,0.0362873877479,0.0362854337666,0.0363889947784,0.0363577310767,0.0362991116361,0.0363675009835,0.0364319823682,0.0364534761631,0.0363831328343,0.0363694549648,0.0363440532072,0.0363655470021,0.0364632460699,0.0363127895055,0.036326467375,0.0363577310767,0.0364241664428,0.0364710619953,0.0364378443123,0.0363284213564,0.0363929027411,0.0363616390394,0.0363929027411,0.0363655470021,0.0363518691326,0.0362834797852,0.036326467375,0.0363362372818,0.0363401452445,0.036387040797,0.036320605431,0.0363694549648,0.0364808319021,0.0364671540326,0.0364534761631)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("ChIPseq_H3K4me3_iSLK-GSM1359502.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=101"),bty="n")
dev.off()