# R script for Peak Model
#  -- generated by MACS
p <- c(0.0307167647553,0.0319240964596,0.0331033506824,0.0344791472757,0.0356864789799,0.0368657332027,0.0381572973515,0.0393084740928,0.0404596508341,0.0414985176494,0.0428181592796,0.0438570260949,0.0449801253547,0.0462155345405,0.0473947887633,0.0486301979491,0.0497813746903,0.0507921640242,0.0521398831359,0.0535999121736,0.0549195538039,0.0564357378046,0.0579238443238,0.0591311760281,0.0603665852139,0.0603385077324,0.0603385077324,0.0605350501029,0.0604788951399,0.0601419653619,0.0601981203249,0.0598331130655,0.0592996409171,0.0596084932135,0.059692725658,0.059692725658,0.0596646481765,0.060029655436,0.0602261978064,0.0601700428434,0.0605069726214,0.0608158249178,0.0608439023993,0.0609281348438,0.0612089096587,0.0611246772143,0.0613492970662,0.0614335295107,0.0616300718812,0.0618266142516,0.0619670016591,0.0621916215111,0.0626127837335,0.0624443188445,0.0625004738075,0.0629777909929,0.0628654810669,0.062640861215,0.062584706252,0.0628093261039,0.0625566287705,0.0628654810669,0.0629497135114,0.062472396326,0.0626127837335,0.0630058684744,0.0631743333634,0.0633147207709,0.0630620234374,0.0631743333634,0.0627250936595,0.0623881638815,0.0617985367701,0.0618266142516,0.0615739169182,0.0614616069922,0.0616019943997,0.0614896844737,0.0613492970662,0.0617143043256,0.0612650646217,0.0615177619552,0.0617143043256,0.0615739169182,0.0619389241776,0.0621635440296,0.0623600864,0.0619389241776,0.0613212195847,0.0613773745477,0.0613773745477,0.0611246772143,0.0614896844737,0.0618266142516,0.0614896844737,0.0616581493627,0.0617985367701,0.0614896844737,0.0614054520292,0.0616862268442,0.0617143043256,0.0612650646217,0.0610685222513,0.0610965997328,0.0608719798808,0.0605631275844,0.0606754375103,0.0611808321772,0.0615739169182,0.0616581493627,0.0621916215111,0.0623881638815,0.0627250936595,0.0630058684744,0.0632866432894,0.0635674181043,0.0635112631413,0.0636235730673,0.0640447352897,0.0639324253637,0.0644939749936,0.0645220524751,0.0652239895125,0.0655328418089,0.0659259265499,0.0662067013648,0.0660101589944,0.0660101589944,0.0661224689203,0.0660382364758,0.0668524834392,0.0666559410687,0.0665717086243,0.0663190112908,0.0663190112908,0.0658697715869,0.0658416941054,0.0655047643274,0.0659540040314,0.0661505464018,0.0657574616609,0.0660382364758,0.0658697715869,0.0655889967719,0.0658136166239,0.0659540040314,0.0660943914388,0.0662067013648,0.0664593986983,0.0660663139573,0.0665997861057,0.0673017231431,0.0671051807727,0.0671894132171,0.067694807884,0.067863272773,0.0677790403285,0.0674421105506,0.0672455681801,0.0671894132171,0.0669086384022,0.0665997861057,0.0662628563278,0.0668805609207,0.0668805609207,0.0662628563278,0.0664313212168,0.0665436311428,0.0663190112908,0.0659259265499,0.0658416941054,0.0660943914388,0.0657293841794,0.0655047643274,0.0656451517349,0.0658136166239,0.0657013066979,0.0660382364758,0.0666559410687,0.0664032437353,0.0658136166239,0.0664032437353,0.0668524834392,0.0673859555876,0.0673017231431,0.0674140330691,0.0675544204766,0.067863272773,0.0679475052175,0.068200202551,0.0687617521808,0.0687055972179,0.0687898296623,0.0690986819588,0.0690706044773,0.0691829144033,0.0696321541072,0.0701094712926,0.0697444640332,0.0697163865517,0.0694356117367,0.0690425269958,0.0692952243293,0.0694636892182,0.0692671468478,0.0691829144033,0.0695198441812,0.0694636892182,0.0696602315887,0.0697444640332,0.0699129289221,0.0700252388481,0.0708394858115,0.0706710209225,0.070923718256,0.0711483381079,0.0713168029969,0.0718783526268,0.0719906625528,0.0725241347012,0.0727487545531,0.0726083671456,0.0730856843311,0.073310304183,0.0732260717385,0.073478769072,0.0743210935168,0.0743491709983,0.0742368610723,0.0745737908503,0.0746018683318,0.0745737908503,0.0743772484798,0.0744053259613,0.0745457133688,0.0750791855172,0.0748264881837,0.0751072629987,0.0751072629987,0.0753038053691,0.0752476504062,0.0751634179617,0.0753599603321,0.0758092000361,0.0763988271474,0.0765392145549,0.0761742072955,0.0760057424065,0.0768480668514,0.0774657714442,0.0779430886297,0.0784484832966,0.0784204058151,0.0782519409261,0.0782238634446,0.0785046382596,0.0787854130745,0.0794873501119,0.0797962024083,0.0801892871492,0.0804139070012,0.0808631467051,0.0804419844827,0.0808350692236,0.0806946818162,0.0811719990016,0.0810316115941,0.0807508367791,0.0813404638905,0.0814527738165,0.0817335486315,0.0820424009279,0.0822389432984,0.0822950982614,0.0830531902617,0.0837551272991,0.0837832047806,0.08414821204,0.0842324444845,0.0849905364849,0.0854678536703,0.0852432338183,0.0856082410777,0.0859451708557,0.086759417819,0.086815572782,0.0874051998934,0.0880229044863,0.0885844541162,0.0886967640422,0.0889213838941,0.0894548560425,0.089707553376,0.0903533354504,0.0905498778208,0.0914764347102,0.0917291320436,0.0921222167845,0.0924591465625,0.0929645412294,0.0931610835999,0.0934980133778,0.0943122603411,0.0949018874525,0.0957442118974,0.0963057615273,0.0962215290828,0.0970076985647,0.0975692481945,0.0976254031575,0.0982431077504,0.0984958050839,0.0987204249358,0.0991696646398,0.0998154467141,0.100348918863,0.101472018122,0.101640483011,0.102005490271,0.102763582271,0.103044357086,0.103268976938,0.103381286864,0.103409364345,0.103072434568,0.102819737234,0.103212821975,0.103297054419,0.103353209382,0.103297054419,0.103746294123,0.104363998716,0.105009780791,0.105150168198,0.105318633087,0.105683640347,0.10613288005,0.106778662125,0.107284056792,0.107845606422,0.108266768644,0.108042148792,0.108407156052,0.108154458718,0.108098303755,0.10837907857,0.108856395755,0.109249480496,0.109417945385,0.109530255311,0.1096987202,0.110147959904,0.109951417534,0.110400657238,0.110204114867,0.110428734719,0.111018361831,0.110934129386,0.110653354571,0.111411446572,0.111467601534,0.112057228646,0.112478390868,0.112590700794,0.112197616053,0.11214146109,0.112366080942,0.113011863017,0.112843398128,0.112674933239,0.112787243165,0.113433025239,0.114078807314,0.115229984055,0.116212695907,0.116774245537,0.117728879908,0.117813112352,0.118318507019,0.119188908946,0.119216986427,0.119947000946,0.119975078427,0.120452395613,0.120677015465,0.120789325391,0.121042022724,0.121070100206,0.12115433265,0.121182410132,0.12115433265,0.122614361688,0.122642439169,0.122726671614,0.123512841096,0.123653228503,0.124130545689,0.124299010578,0.124102468207,0.124383243022,0.124551707911,0.124299010578,0.124832482726,0.125225567467,0.126180201838,0.126545209097,0.126854061394,0.127275223616,0.128201780505,0.128426400357,0.128707175172,0.129016027469,0.129156414876,0.12940911221,0.130363746581,0.130391824062,0.130560288951,0.130841063766,0.131093761099,0.131514923322,0.131599155766,0.131936085544,0.132188782878,0.132273015322,0.132160705396,0.13241340273,0.132160705396,0.132778409989,0.133508424508,0.133676889397,0.134519213842,0.134603446286,0.134884221101,0.134884221101,0.134912298583,0.13505268599,0.135838855472,0.13617578525,0.136484637546,0.137186574584,0.138393906288,0.137804279177,0.138506216214,0.138730836066,0.13861852614,0.138927378436,0.138899300955,0.13937661814,0.139994322733,0.139797780363,0.140359329993,0.14086472466,0.141229731919,0.140836647178,0.140387407474,0.1404997174,0.140527794882,0.140134710141,0.139882012807,0.140443562437,0.14106126703,0.141454351771,0.141791281549,0.142296676216,0.141763204067,0.142015901401,0.142015901401,0.141931668956,0.142268598734,0.142858225846,0.143110923179,0.142802070883,0.143363620513,0.143447852957,0.14386901518,0.144177867476,0.143897092661,0.144458642291,0.144458642291,0.143981325106,0.144093635031,0.144655184661,0.14462710718,0.144542874735,0.145132501847,0.145918671329,0.145834438884,0.14518865681,0.145104424365,0.144739417106,0.144149789994,0.144711339624,0.144599029698,0.145160579328,0.145413276662,0.144711339624,0.145357121699,0.144992114439,0.146143291181,0.146367911033,0.145441354143,0.145104424365,0.14518865681,0.145722128958,0.146030981255,0.146339833551,0.146760995773,0.147322545403,0.147238312959,0.146789073255,0.146536375922,0.146395988514,0.146059058736,0.145497509106,0.146424065996,0.146283678588,0.145778283921,0.146283678588,0.146452143477,0.146002903773,0.146030981255,0.145890593847,0.144964036958,0.144964036958,0.144879804513,0.144009402587,0.14386901518,0.142717838438,0.142465141105,0.142493218586,0.142212443771,0.141342041845,0.141735126586,0.142015901401,0.141454351771,0.141398196808,0.141370119326,0.142100133845,0.141875513993,0.142212443771,0.141931668956,0.142072056364,0.142072056364,0.141875513993,0.14162281666,0.141510506734,0.140668182289,0.140415484956,0.138674681103,0.138730836066,0.139853935326,0.139769702881,0.138843145992,0.138365828807,0.138225441399,0.13786043414,0.137411194436,0.137186574584,0.137130419621,0.136596947472,0.135951165398,0.135108840953,0.134996531027,0.134519213842,0.133789199323,0.133592656952,0.133283804656,0.13241340273,0.132020317989,0.131908008063,0.131430690877,0.131543000803,0.131374535914,0.130841063766,0.130335669099,0.130335669099,0.129746041988,0.129689887025,0.129324879765,0.129128337395,0.127977160653,0.127387533542,0.126236356801,0.125927504504,0.12528172243,0.123990158281,0.122754749095,0.121996657095,0.122024734577,0.120648937983,0.120340085687,0.119385451316,0.117981577241,0.116858477981,0.116325005833,0.11626885087,0.116156540944,0.115903843611,0.115314216499,0.114752666869,0.11362956761,0.112731088202,0.113039940498,0.113011863017,0.11250646835,0.11157991146,0.111102594275,0.109895262571,0.109305635459,0.108772163311,0.108322923607,0.108519465978,0.108407156052,0.108294846126,0.107957916348,0.107677141533,0.107227901829,0.106806739606,0.105964415162,0.10517824568,0.104841315902,0.104335921235,0.103886681531,0.103072434568,0.102202032641,0.101387785678,0.101443940641,0.10124739827,0.100601616196,0.100180453974,0.100320841381,0.100040066566,0.0994504394547,0.0986361924914,0.0988608123433,0.0992819745657,0.0995908268622,0.0990292772323,0.0982150302689,0.0982150302689,0.0977938680465,0.0974288607871,0.0980746428615,0.0977938680465,0.0975411707131,0.0971200084906,0.0966988462682,0.0965865363422,0.0966988462682,0.0971761634536,0.0967550012312,0.0971480859721,0.0964461489348,0.0959407542678,0.0955476695269,0.0953511271565,0.0946491901191,0.094986119897,0.0950141973785,0.09504227486,0.0947895775266,0.0940595630077,0.0937226332298,0.0932453160443,0.0931049286369,0.0927679988589,0.0924029915995,0.0922345267105,0.0921222167845,0.0918975969326,0.0922906816735,0.0920099068586,0.092150294266,0.092150294266,0.092318759155,0.092374914118,0.0920099068586,0.0921222167845,0.092150294266,0.092150294266,0.0918695194511,0.0916448995991,0.0920379843401,0.092150294266,0.0913922022657,0.0909429625618,0.0905498778208,0.0902971804874,0.0899602507094,0.0901006381169,0.0901287155984,0.089876018265,0.0894548560425,0.089482933524,0.0897356308575,0.0894548560425,0.0892302361906,0.0891179262646,0.0892021587091,0.0882194468568,0.0881913693753,0.0882475243383,0.0881352144123,0.0877702071529,0.0877140521899,0.0877982846343,0.0879948270048,0.0876578972269,0.0870682701155,0.0867874953005,0.086759417819,0.0868998052265,0.086703262856,0.0866471078931,0.0860574807817,0.0856643960407,0.0860013258187,0.0857486284852,0.0862821006336,0.0859451708557,0.0855520861148,0.0846816841884,0.084485141818,0.0841762895215,0.084035902114,0.0839235921881,0.08414821204,0.0836428173731,0.0831093452247,0.0824635631503,0.0826881830023,0.0827162604838,0.0820424009279,0.081649316187,0.0817897035945,0.0815650837425,0.0806946818162,0.0804419844827,0.0801892871492,0.0797681249268,0.0797119699638,0.0799646672973,0.0798804348528,0.0796558150008,0.0788977230005,0.0790942653709,0.078588870704,0.0779150111482,0.0771849966293,0.0769042218144,0.0767357569254,0.0765111370734,0.07625843974,0.0759495874435,0.0757249675916,0.0753318828506,0.0749949530727,0.0748264881837,0.0746299458133,0.0745176358873,0.0741245511464,0.0734506915905,0.0730014518866,0.0728610644791,0.0727487545531,0.0728891419606,0.0724399022567,0.0727768320346,0.0721872049232,0.0725522121827,0.0720468175157,0.0724118247752,0.0720468175157,0.0722433598862,0.0716256552933,0.0717660427008,0.0715695003303,0.0715133453673,0.0714571904044,0.0715975778118,0.0713729579599,0.0709798732189,0.07081140833,0.0707271758855,0.0702779361816,0.0698848514406,0.070418323589,0.0702779361816,0.0701937037371,0.0699971613666,0.0692390693663,0.0689302170698,0.0686213647734,0.0685371323289,0.068144047588,0.0677790403285,0.0674982655136,0.067863272773,0.067750962847,0.067975582699,0.0680598151435,0.0672736456616,0.0672174906986,0.0674982655136,0.0674140330691,0.0673017231431,0.0671894132171,0.0671894132171,0.0672174906986,0.0671332582541,0.0674982655136,0.0673578781061,0.0674982655136,0.0677790403285,0.0675824979581,0.0673859555876,0.0674982655136,0.0665436311428,0.0662628563278,0.0664593986983,0.0662909338093,0.0667120960317,0.0662347788463,0.0658697715869,0.0660663139573,0.0657574616609,0.0648870597346,0.0643816650677,0.0642974326232,0.0641851226972,0.0640728127712,0.0642412776602,0.0646062849196,0.0642693551417,0.0641570452157,0.0644097425491,0.0642412776602,0.0640447352897,0.0639324253637,0.0641008902527,0.0642412776602,0.0642132001787,0.0643535875862,0.0641570452157,0.0645220524751,0.0642974326232,0.0649151372161,0.0646905173641,0.065308221957,0.065195912031,0.0649151372161,0.0658978490684,0.0660101589944,0.0655609192904,0.0658136166239,0.065476686846,0.065476686846,0.065308221957,0.065027447142,0.0650555246235,0.0646343624011,0.0645782074381,0.0647747498086,0.0646624398826,0.0647747498086,0.0646624398826,0.0648870597346,0.0653924544015,0.0652801444755,0.0646062849196,0.0648028272901,0.0643255101047,0.0642693551417,0.0644658975121,0.0646624398826,0.0647747498086,0.0652801444755,0.0660101589944,0.0660101589944,0.0659259265499,0.0657574616609,0.0662347788463,0.0665997861057,0.0669647933652,0.0668244059577,0.0664874761798,0.0663751662538,0.0665436311428,0.0667682509947,0.0664032437353,0.0661786238833,0.0657574616609,0.065476686846,0.0655889967719,0.0658416941054,0.0657293841794,0.065252066994,0.06536437692,0.0650555246235,0.0644939749936,0.0645782074381,0.0640166578082,0.0642412776602,0.0643816650677,0.0638762704007,0.0639605028452,0.0638762704007,0.0638481929193,0.0640447352897,0.0637078055118,0.0634831856598,0.0637358829933,0.0632024108449,0.0628093261039,0.0628374035854,0.062753171141,0.062247776474,0.0621354665481,0.0619950791406,0.0618546917331,0.0616581493627,0.0615739169182,0.0617423818071,0.0618546917331,0.0617423818071,0.0614616069922,0.0617143043256,0.0614335295107,0.0615458394367,0.0614054520292,0.0614054520292,0.0608158249178,0.0603104302509,0.0598892680285,0.0604227401769,0.0605631275844,0.0608439023993,0.0606473600288,0.0602542752879,0.0603385077324,0.0605912050659,0.0605350501029,0.0600858103989,0.0605912050659,0.0605350501029,0.0609000573623,0.0611246772143,0.0609281348438,0.0607035149918,0.0609842898068,0.0609842898068,0.0609562123253,0.0607596699548,0.0607035149918,0.0604508176584,0.0607315924733,0.0608439023993,0.0609281348438,0.0612089096587,0.0612931421032,0.0616581493627,0.0616300718812,0.0617143043256,0.0613492970662,0.0614335295107,0.0615177619552,0.0615458394367,0.0614054520292,0.0616019943997,0.0616581493627,0.0615739169182,0.0617704592886,0.0617704592886,0.0616019943997,0.0616581493627,0.0617143043256,0.0616300718812,0.0614616069922,0.0615177619552,0.0614896844737,0.0613212195847,0.0612650646217,0.0612931421032,0.0612650646217,0.0614054520292,0.0610404447698,0.0607315924733,0.0609000573623,0.0611808321772,0.0612931421032,0.0614616069922,0.0616862268442,0.0621635440296,0.0615739169182,0.0616581493627,0.0612089096587,0.0610965997328,0.0611527546957,0.0609281348438,0.0607877474363,0.0605912050659,0.0605350501029,0.0602542752879,0.0606192825473,0.0609842898068,0.0606192825473,0.0603385077324,0.0601419653619,0.0599454229915,0.0601700428434,0.059748880621,0.0594400283246,0.0593277183986,0.059580415732,0.0594119508431,0.0593838733616,0.0594119508431,0.0597208031395,0.059692725658,0.0594961832876,0.060029655436,0.060029655436,0.0600015779545,0.0600858103989,0.0594961832876,0.0595523382505,0.0591592535096,0.0592996409171,0.0591030985466,0.0592715634356,0.0594961832876,0.0594400283246,0.0591311760281,0.0595523382505,0.0593838733616,0.0598892680285,0.0597208031395,0.0592154084726,0.0590188661021,0.0586538588427,0.0583450065463,0.0581765416573,0.0581203866943,0.0582888515833,0.0581203866943,0.0579519218053,0.0578676893609,0.0578957668423,0.0581203866943,0.0583450065463,0.0581484641758,0.0582326966203,0.0582326966203,0.0577553794349,0.0573342172125,0.0577553794349,0.0581484641758,0.0587100138057,0.0584292389907,0.0584573164722,0.0584011615093,0.0585415489167,0.0588223237317,0.0587942462502,0.0587942462502,0.0588784786947,0.0585977038797,0.0582607741018,0.0585415489167,0.0588504012132,0.0585415489167,0.0586538588427,0.0586538588427,0.0586257813612,0.0590188661021,0.0589907886206,0.0591311760281,0.0587942462502,0.0585696263982,0.0582046191388,0.0579519218053,0.0581484641758,0.0583169290648,0.0580361542498,0.0578396118794,0.0574465271384,0.0575869145459,0.0580080767683,0.0579799992868,0.0583730840278,0.0584011615093,0.0580642317313,0.0578676893609,0.0580642317313,0.0576711469904,0.0578676893609,0.0577553794349,0.0573342172125,0.057306139731,0.057306139731,0.0575869145459,0.057249984768,0.056969209953,0.057193829805,0.0576430695089,0.0576992244719,0.0574184496569,0.0566884351381,0.0567726675826,0.0564357378046,0.0563515053601,0.0565761252121,0.0565761252121,0.0568288225455,0.0567726675826,0.0563515053601,0.0566042026936,0.0559864981007,0.0559584206192,0.0556495683228,0.0555372583968,0.0551160961744,0.0551160961744,0.0549195538039,0.0547791663964,0.0548072438779,0.054414159137,0.0546107015075,0.0546387789889,0.0550318637299,0.0551160961744,0.0549757087669,0.0549195538039,0.0548072438779,0.0546668564704,0.0548353213594,0.0545545465445,0.0549476312854,0.0551722511373,0.0548072438779,0.0547230114334,0.0554811034338,0.0555934133598,0.0552564835818,0.0553126385448,0.0553126385448,0.0553968709893,0.0557338007672,0.0555091809153,0.0555091809153,0.0553126385448,0.0552564835818,0.0554530259523,0.0552845610633,0.0547791663964,0.054582624026,0.0548914763224,0.0552284061003,0.0551160961744,0.0552003286188,0.0555091809153,0.0550318637299,0.0548914763224,0.0545545465445,0.054414159137,0.0546668564704,0.0548353213594,0.0557899557302,0.0554811034338,0.0557338007672,0.0559303431377,0.0559864981007,0.0560145755822,0.0558461106932,0.0559584206192,0.0555653358783,0.0547510889149,0.0535999121736,0.0526172003213,0.0512414037281,0.0500340720238,0.0488828952825,0.0478159509857,0.0468332391334,0.0457382173551,0.0445870406138,0.043688561206,0.0420881447608,0.040852735575,0.0398700237227,0.0389434668333,0.0373992053511,0.0363041835728,0.0352091617945,0.0341422174977,0.0331314281639,0.0320364063856,0.0308009971998,0.0299305952735,0.0287513410507,0.0277686291984)
m <- c(0.0304489330291,0.0313995884221,0.032573927437,0.0339999105266,0.0353420122579,0.0366281930837,0.0379143739095,0.0393123965463,0.040402854203,0.0414933118597,0.0426676508746,0.0435623853621,0.044848566188,0.0459390238447,0.047281125576,0.0485113854964,0.0493222386257,0.0504126962824,0.051726837561,0.052565651143,0.0537399901579,0.0548584082673,0.0557251823022,0.0570672840335,0.0582136625956,0.0584093857648,0.0584093857648,0.0584093857648,0.0580458998792,0.0578501767101,0.0576544535409,0.05754261173,0.0576544535409,0.0573189281081,0.0573468885608,0.0569834026753,0.0565639958842,0.0567876795061,0.0563682727151,0.0563962331678,0.0568156399588,0.0568436004116,0.0569274817698,0.056899521317,0.0568156399588,0.0567317586006,0.056591956337,0.0566478772424,0.056591956337,0.0563962331678,0.0565360354315,0.0568436004116,0.0566758376952,0.0563123518096,0.0559209054713,0.0553896568693,0.055110052342,0.0549702500783,0.0548304478146,0.0544390014763,0.0542991992126,0.054159396949,0.0540755155907,0.0541314364962,0.0539916342325,0.054159396949,0.05457880374,0.0546347246455,0.05457880374,0.0549143291728,0.0551659732474,0.0550541314365,0.0556133404912,0.0553337359639,0.0550541314365,0.0549422896256,0.0545508432873,0.0543271596654,0.0546626850982,0.0549143291728,0.0552498546056,0.0553337359639,0.0552778150584,0.0556133404912,0.0556413009439,0.0557531427549,0.0558649845658,0.0555014986803,0.0554455777748,0.0556133404912,0.0553057755111,0.0556413009439,0.0554735382275,0.0552498546056,0.0552498546056,0.0558649845658,0.0559209054713,0.0560327472822,0.0562284704514,0.0561725495459,0.0562005099987,0.0557811032076,0.0558649845658,0.0561166286405,0.0562564309041,0.0567037981479,0.056899521317,0.0568156399588,0.056899521317,0.0572909676553,0.0571232049389,0.0576824139936,0.0575146512772,0.057430769919,0.0577383348991,0.0574866908245,0.0570952444862,0.0568436004116,0.0566478772424,0.0568156399588,0.0568715608643,0.0572630072026,0.0569554422225,0.0571232049389,0.0577662953519,0.0578222162573,0.0583534648593,0.0583534648593,0.0582416230484,0.0582975439538,0.0577662953519,0.0578781371628,0.0580458998792,0.0578222162573,0.0576824139936,0.0574866908245,0.05754261173,0.0578222162573,0.0582975439538,0.0582695835011,0.0583255044066,0.057962018521,0.0578501767101,0.0585771484812,0.0588287925558,0.0586330693867,0.0588008321031,0.0584093857648,0.0582975439538,0.0586330693867,0.0585491880285,0.0584093857648,0.0584653066702,0.0581018207847,0.0581018207847,0.0579899789737,0.057962018521,0.0581018207847,0.0580458998792,0.0581297812374,0.0581857021429,0.0579060976155,0.0578501767101,0.0581297812374,0.0577942558046,0.0579060976155,0.0582416230484,0.0585212275757,0.0586051089339,0.0586051089339,0.0582136625956,0.0578501767101,0.0578501767101,0.0576824139936,0.0572909676553,0.0572909676553,0.0570952444862,0.0574587303718,0.0575705721827,0.0573748490136,0.0580458998792,0.0580179394265,0.0581018207847,0.0580738603319,0.0582416230484,0.058381425312,0.0584373462175,0.0580738603319,0.0581577416902,0.0582136625956,0.0581857021429,0.058381425312,0.058381425312,0.057962018521,0.0577662953519,0.0574866908245,0.0570672840335,0.0573468885608,0.0575705721827,0.0575705721827,0.0575705721827,0.0582136625956,0.0581857021429,0.0585771484812,0.0586610298394,0.0590524761777,0.0592761597996,0.0591643179886,0.0592761597996,0.0594159620633,0.0595837247797,0.0594159620633,0.0596116852324,0.0594998434215,0.0595557643269,0.0594159620633,0.0592761597996,0.0590524761777,0.0593041202523,0.0592481993468,0.0593320807051,0.059443922516,0.0597235270433,0.0597794479488,0.0597514874961,0.0596955665906,0.0597794479488,0.0597235270433,0.0595278038742,0.0596116852324,0.0593041202523,0.0594718829687,0.0593880016105,0.0592202388941,0.0590524761777,0.0589685948195,0.0590524761777,0.0593320807051,0.0591363575359,0.0593600411578,0.0599192502125,0.0598912897598,0.0605064197199,0.0606741824364,0.0605903010782,0.0605623406254,0.0606741824364,0.0607021428891,0.0601708942871,0.0598353688543,0.0596676061379,0.0596955665906,0.0599472106652,0.0598353688543,0.0597514874961,0.0596955665906,0.0595557643269,0.0597235270433,0.0601708942871,0.0596955665906,0.059975171118,0.0604225383617,0.0605343801727,0.0608139847,0.0607860242473,0.0608419451528,0.0612893123965,0.0619883237149,0.0616527982821,0.0613172728493,0.0612054310383,0.0615968773766,0.0615409564712,0.0617646400931,0.0621281259786,0.0619883237149,0.0621001655259,0.0621001655259,0.0623238491478,0.0622120073368,0.0621560864314,0.0617366796403,0.0617926005458,0.0621281259786,0.0622679282423,0.0622679282423,0.0621560864314,0.062407730506,0.0624356909587,0.0620162841677,0.0615689169239,0.0617646400931,0.0614011542075,0.0615129960184,0.0616248378294,0.0616527982821,0.0621001655259,0.0622120073368,0.062407730506,0.0631347022771,0.0632185836353,0.0628550977497,0.0627991768443,0.0626034536751,0.0627432559388,0.0628550977497,0.062827137297,0.0624916118642,0.0622679282423,0.062407730506,0.062295888695,0.0622399677896,0.0621560864314,0.0619603632622,0.0618205609985,0.0616248378294,0.0613172728493,0.0610935892274,0.0613172728493,0.0617646400931,0.0620722050731,0.0619044423567,0.0616527982821,0.0614291146602,0.0611495101329,0.061345233302,0.0611215496801,0.0610935892274,0.0611215496801,0.0611495101329,0.0612893123965,0.0619603632622,0.0622120073368,0.0624356909587,0.0620722050731,0.0627152954861,0.0630228604662,0.0631626627298,0.063358385899,0.06377779269,0.0640573972174,0.0639735158592,0.0641133181228,0.0639455554064,0.0639175949537,0.0641412785756,0.0640573972174,0.0643370017447,0.0649241712522,0.0644768040084,0.0647004876303,0.0648962107994,0.064840289894,0.0649800921577,0.064728448083,0.0647004876303,0.0647004876303,0.0648123294412,0.0650919339686,0.0656231825706,0.0659027870979,0.0659307475507,0.0659027870979,0.0661823916253,0.0666017984163,0.0666577193218,0.0666856797745,0.0663781147944,0.0661264707198,0.0659027870979,0.0658189057397,0.0660705498143,0.0667136402273,0.0668814029437,0.0670212052074,0.0670491656601,0.0674685724511,0.0678879792422,0.0682794255805,0.0681955442223,0.0683633069387,0.0678600187894,0.0675524538093,0.0675524538093,0.0679439001476,0.0679998210531,0.0680277815058,0.068223504675,0.0685869905606,0.0684751487496,0.068223504675,0.0683633069387,0.0682514651277,0.068111662864,0.0685031092023,0.0685869905606,0.068642911466,0.0684751487496,0.0680277815058,0.068223504675,0.0681675837695,0.0683073860332,0.0685310696551,0.0688945555406,0.0695096855008,0.0694817250481,0.069593566859,0.0698172504809,0.0697892900282,0.0696215273118,0.0697613295754,0.0698172504809,0.0697613295754,0.0691182391625,0.068754753277,0.0690343578043,0.0693978436899,0.0699011318391,0.070124815461,0.0708238267794,0.071075470854,0.0707679058739,0.0702646177247,0.0708797476849,0.0709356685903,0.070656064063,0.070656064063,0.0704323804411,0.0707399454212,0.0711313917595,0.0713830358341,0.0716346799087,0.0716346799087,0.0716346799087,0.0719702053416,0.0716906008142,0.072026126247,0.0718583635306,0.0721938889635,0.0726971771127,0.0734241488838,0.0732563861674,0.0737037534112,0.0737317138639,0.0740672392967,0.074039278844,0.0740113183913,0.0743748042768,0.0748501319733,0.0750178946898,0.0752974992171,0.0752974992171,0.0755771037445,0.0754932223863,0.0756609851027,0.0756330246499,0.0758567082718,0.07594058963,0.076471838232,0.0771149286449,0.0768073636648,0.0776461772469,0.0780935444907,0.0784011094708,0.0789323580727,0.0790162394309,0.0789323580727,0.0794636066747,0.0799389343712,0.0796034089384,0.0798830134658,0.0805540643314,0.0810853129334,0.0807497875006,0.0811412338389,0.0815326801772,0.0815886010826,0.0815047197244,0.0813649174607,0.0819241265155,0.0818961660627,0.0820918892319,0.0823714937592,0.0823435333065,0.0827909005503,0.0831264259831,0.0830984655304,0.0831823468886,0.0831264259831,0.082818861003,0.0827909005503,0.083350109605,0.0830705050776,0.0837415559433,0.0835178723214,0.083881358207,0.0842448440925,0.0840770813761,0.0841330022816,0.0845803695253,0.0851116181273,0.0856428667293,0.085251420391,0.0856987876348,0.0860063526149,0.0859504317094,0.0865376012168,0.0870129289133,0.0867612848387,0.0866774034805,0.0869290475551,0.0866774034805,0.0873204938934,0.0877119402317,0.0876560193263,0.0881593074755,0.088746476983,0.0879356238536,0.0879076634009,0.0882431888337,0.0884389120029,0.0884668724556,0.0885227933611,0.0887185165302,0.088634635172,0.0894175278486,0.089697132376,0.0900326578088,0.0900046973561,0.0896412114705,0.0898928555451,0.0902563414307,0.091179036371,0.0920458104058,0.0920458104058,0.0923813358386,0.0926050194605,0.0926609403659,0.0926050194605,0.092968505346,0.0933599516843,0.0929405448933,0.0937513980226,0.093499753948,0.0934158725898,0.0933040307789,0.0936395562117,0.0940589630027,0.0936954771172,0.0934717934953,0.0934438330425,0.0935556748535,0.0942826466246,0.0950096183957,0.0951494206594,0.0960721155997,0.0960161946942,0.0958204715251,0.0959882342415,0.0960721155997,0.0967990873708,0.0970786918982,0.0972464546146,0.0977777032166,0.0987283586096,0.098476714535,0.0985885563459,0.0995951326444,0.0999865789827,0.0999306580772,0.0997628953608,0.100098420794,0.100461906679,0.100937234376,0.10118887845,0.101300720261,0.101859929316,0.102447098823,0.10261486154,0.1032299915,0.103621437838,0.103984923724,0.104068805082,0.104096765535,0.104572093231,0.105075381381,0.10557866953,0.106333601754,0.107004652619,0.107535901221,0.10742405941,0.108011228918,0.108318793898,0.109549053818,0.110583590569,0.112177336375,0.112792466336,0.113799042634,0.114749698027,0.115616472062,0.116203641569,0.116874692435,0.117601664206,0.117629624659,0.11774146647,0.118272715072,0.119642777256,0.120369749027,0.120509551291,0.120733234913,0.121068760345,0.1216279694,0.121655929853,0.122159218002,0.122410862077,0.123473359281,0.124228291504,0.124396054221,0.124759540106,0.125794076858,0.12694045542,0.127164139042,0.127807229455,0.128450319868,0.12909341028,0.129400975261,0.129652619335,0.12959669843,0.130295709748,0.130603274728,0.13113452333,0.131553930121,0.131861495101,0.132476625062,0.132700308683,0.132784190042,0.133203596833,0.133567082718,0.133706884982,0.134294054489,0.134741421733,0.135272670335,0.135692077126,0.135803918937,0.13644700935,0.13613944437,0.136530890708,0.136251286181,0.137341743838,0.137761150629,0.138208517872,0.138711806022,0.139326935982,0.13910325236,0.138991410549,0.138823647833,0.138516082852,0.139243054624,0.139942065942,0.140752919071,0.140976602693,0.140976602693,0.141228246768,0.141228246768,0.141675614012,0.141787455822,0.142346664877,0.14329732027,0.143632845703,0.143353241176,0.143101597101,0.143884489778,0.143800608419,0.144080212947,0.144275936116,0.144471659285,0.144331857021,0.144891066076,0.145170670603,0.145086789245,0.145506196036,0.146121325997,0.146484811882,0.147631190444,0.147910794972,0.148414083121,0.148581845837,0.14860980629,0.148861450365,0.148497964479,0.148805529459,0.149392698967,0.150007828927,0.149476580325,0.149308817608,0.149616382588,0.149644343041,0.149644343041,0.148973292176,0.148889410817,0.148470004026,0.148218359952,0.148470004026,0.148945331723,0.149672303494,0.149588422136,0.14953250123,0.148889410817,0.148749608554,0.148861450365,0.148833489912,0.149448619872,0.14922493625,0.149784145305,0.149336778061,0.149756184852,0.149057173534,0.148246320404,0.148637766743,0.149001252628,0.148805529459,0.148581845837,0.149057173534,0.148358162215,0.147910794972,0.147798953161,0.147826913613,0.147603229992,0.147631190444,0.147463427728,0.146820337315,0.14626112826,0.145701919205,0.143996331589,0.14391245023,0.143576924798,0.143269359817,0.14329732027,0.143017715743,0.143101597101,0.142849953026,0.142542388046,0.141675614012,0.141060484051,0.140277591375,0.139662461415,0.139578580056,0.1400259473,0.139970026395,0.139606540509,0.139634500962,0.139047331454,0.137928913345,0.137537467007,0.136642732519,0.136251286181,0.136111483917,0.136083523464,0.135915760748,0.135244709882,0.134545698564,0.133874647698,0.134154252226,0.133455240907,0.133035834116,0.132308862345,0.132700308683,0.132392743703,0.131665771932,0.131330246499,0.131609851027,0.130743076992,0.129624658882,0.129708540241,0.129792421599,0.129652619335,0.129373014808,0.129149331186,0.128869726659,0.128953608017,0.128841766206,0.128254596698,0.128394398962,0.128841766206,0.128310517604,0.128422359415,0.128254596698,0.12786315036,0.128254596698,0.127919071266,0.127471704022,0.12694045542,0.126465127723,0.127359862211,0.127723348096,0.127387822664,0.127220059947,0.126101641838,0.126157562743,0.126213483649,0.125905918669,0.126045720932,0.125933879121,0.125598353689,0.125849997763,0.125794076858,0.125318749161,0.125067105087,0.12489934237,0.124871381917,0.12489934237,0.124507896032,0.123529280186,0.123333557017,0.122970071131,0.122326980718,0.121516127589,0.12132040442,0.121096720798,0.120593432649,0.120229946763,0.1200901445,0.120313828122,0.119978302689,0.11958685635,0.119363172728,0.118887845032,0.118776003221,0.118524359146,0.118552319599,0.117993110544,0.117685545564,0.117210217868,0.116734890171,0.11681877153,0.115308907082,0.114889500291,0.114302330783,0.113407596296,0.113295754485,0.11335167539,0.113966805351,0.113715161276,0.113016149958,0.112401019997,0.112093455017,0.111058918266,0.111226680982,0.110499709211,0.110192144231,0.110248065137,0.110052341968,0.109521093366,0.109716816535,0.109437212007,0.109073726122,0.108486556614,0.108262872992,0.108570437973,0.108178991634,0.10773162439,0.107396098958,0.107815505749,0.107032613072,0.106920771261,0.107032613072,0.106445443565,0.106641166734,0.106333601754,0.106109918132,0.105382946361,0.105075381381,0.104572093231,0.104236567799,0.104348409609,0.104236567799,0.104516172326,0.103789200555,0.103313872858,0.102586901087,0.102642821993,0.102530980182,0.102055652485,0.101328680714,0.100825392565,0.101160917998,0.100685590301,0.100433946226,0.0999306580772,0.0997908558135,0.0997069744553,0.0981411891021,0.0980573077439,0.0976938218584,0.0968550082763,0.0966313246544,0.0964356014853,0.0958763924305,0.0952333020176,0.0949536974903,0.0939750816445,0.0934438330425,0.0929964657988,0.0924092962913,0.0920458104058,0.0919060081421,0.0917382454257,0.0912069968237,0.0901444996197,0.0898928555451,0.0897810137342,0.0890260815103,0.088634635172,0.0886066747193,0.0884948329083,0.08810338657,0.0877119402317,0.0868731266497,0.0867892452915,0.0865096407641,0.0863977989532,0.0861181944258,0.0856987876348,0.085251420391,0.0848040531472,0.0841050418288,0.083350109605,0.0836576745851,0.0832103073413,0.0829866237194,0.0826510982866,0.0821478101373,0.0819520869682,0.0822316914955,0.0814767592717,0.0814767592717,0.0809734711224,0.0810853129334,0.0811132733861,0.0805540643314,0.079435646222,0.079323804411,0.0791001207892,0.0788205162618,0.0790162394309,0.0789603185255,0.0791560416946,0.0790162394309,0.0790721603364,0.0785129512817,0.0786807139981,0.0788484767145,0.0785129512817,0.0783172281126,0.0781494653961,0.0781774258489,0.0778698608688,0.0780096631325,0.0779817026797,0.0778139399633,0.0780655840379,0.0780935444907,0.0781215049434,0.0781215049434,0.0776741376996,0.0780655840379,0.0779257817743,0.0779257817743,0.077534335436,0.0778698608688,0.0777300586051,0.0776182167942,0.0778139399633,0.0777580190578,0.0773106518141,0.0773386122668,0.0773106518141,0.0768073636648,0.0770869681922,0.0765557195902,0.0763320359683,0.0763879568738,0.0762761150629,0.076052431441,0.0762201941574,0.0755771037445,0.0761363127992,0.076052431441,0.0758567082718,0.0756330246499,0.0759685500828,0.0761363127992,0.0756330246499,0.0757169060081,0.0756889455554,0.0752136178589,0.0745425669932,0.074570527446,0.0747942110679,0.0747103297097,0.0743188833714,0.0737876347694,0.0742350020132,0.0739274370331,0.073619872053,0.0733961884311,0.0737317138639,0.0733961884311,0.07297678164,0.0728649398291,0.0721659285107,0.0721100076052,0.0716906008142,0.0713271149286,0.0712991544759,0.0706001431575,0.0708238267794,0.0705162617993,0.0703205386302,0.0696774482172,0.0693139623317,0.0689225159934,0.068754753277,0.0685869905606,0.0685869905606,0.0683073860332,0.0678879792422,0.0678879792422,0.0670771261128,0.0673567306402,0.0669932447546,0.0666297588691,0.0662383125308,0.0658748266452,0.0660985102671,0.0661823916253,0.0654274594014,0.0649800921577,0.0649521317049,0.0648123294412,0.0650919339686,0.0652876571377,0.065259696685,0.0656511430233,0.0654274594014,0.0657350243815,0.0658468661925,0.065371538496,0.064840289894,0.0649521317049,0.0645047644611,0.0645047644611,0.0642531203865,0.0644208831029,0.0645047644611,0.0641412785756,0.0637498322373,0.0639455554064,0.0638616740482,0.0634702277099,0.0639175949537,0.0640853576701,0.0641692390283,0.0644768040084,0.0643649621975,0.0644488435557,0.0641412785756,0.0643929226502,0.0646445667248,0.0648682503467,0.0651758153268,0.0651198944213,0.0649241712522,0.0645606853666,0.0645327249139,0.064309041292,0.0643649621975,0.0642251599338,0.0645606853666,0.0647564085358,0.0648682503467,0.0653435780432,0.0654833803069,0.0654274594014,0.0652876571377,0.065259696685,0.0651198944213,0.0654554198542,0.0650360130631,0.064728448083,0.0645606853666,0.0642251599338,0.0641692390283,0.0632745045408,0.0631626627298,0.0627432559388,0.0627152954861,0.0627712163915,0.0630787813716,0.0629389791079,0.0635541090681,0.063358385899,0.0634981881627,0.0631347022771,0.0630787813716,0.0630787813716,0.0629110186552,0.062827137297,0.0629110186552,0.0629110186552,0.0623518096005,0.0623238491478,0.0621560864314,0.0617926005458,0.0617926005458,0.0616248378294,0.0616248378294,0.061345233302,0.0609817474165,0.0610376683219,0.0607860242473,0.0610935892274,0.0610097078692,0.0612333914911,0.061345233302,0.0615409564712,0.0617926005458,0.0617646400931,0.0617087191876,0.0616807587348,0.061345233302,0.0614291146602,0.0615689169239,0.0614291146602,0.0612333914911,0.0608699056055,0.0614011542075,0.0612893123965,0.0612893123965,0.0616527982821,0.0615689169239,0.0613731937548,0.0614291146602,0.0620442446204,0.0623518096005,0.0623518096005,0.0622679282423,0.0625195723169,0.0623518096005,0.0619883237149,0.0619044423567,0.0619883237149,0.0617926005458,0.0622120073368,0.0620722050731,0.0621001655259,0.0619603632622,0.062295888695,0.0623518096005,0.0626873350333,0.0626593745806,0.0624356909587,0.0623518096005,0.0622679282423,0.0623238491478,0.0624356909587,0.0626593745806,0.0624916118642,0.0626034536751,0.0617646400931,0.0620442446204,0.0619044423567,0.0617926005458,0.0618485214513,0.0619324028095,0.0617926005458,0.0604504988145,0.0592761597996,0.0580179394265,0.0565639958842,0.0556972218494,0.054159396949,0.0527893347649,0.0517547980137,0.0504686171878,0.0495459222476,0.0481758600635,0.046749876974,0.0456873797701,0.0443732384915,0.0429752158547,0.0419127186507,0.0406544982776,0.0389489106608,0.0376068089295,0.0364604303673,0.0352860913524,0.0338880687156,0.032685769248,0.0316791929495,0.0303370912182)
s <- c(0.0290951753838,0.0290951753838,0.0294191095227,0.0294485580808,0.029507455197,0.0296105251502,0.0295810765922,0.0295958008712,0.0293749366856,0.0294191095227,0.0295516280341,0.0296252494293,0.0298608378939,0.0299639078472,0.0299197350101,0.0299639078472,0.0301700477538,0.0300817020795,0.0303761876603,0.0302878419861,0.030243669149,0.0304056362184,0.0302731177071,0.0300669778005,0.0299344592891,0.0298313893359,0.0299197350101,0.0299491835682,0.0301553234747,0.0299933564053,0.0300817020795,0.0304203604975,0.0304498090555,0.0307295703573,0.0307295703573,0.0306706732412,0.0307001217992,0.0304203604975,0.0304792576136,0.0305676032879,0.0304498090555,0.0303761876603,0.0302731177071,0.0303025662651,0.0304498090555,0.0307001217992,0.0306853975202,0.0307148460783,0.0305234304508,0.0304645333346,0.0308473645896,0.030979883101,0.0308768131477,0.030965158822,0.0307590189154,0.0307001217992,0.0308768131477,0.0308326403106,0.0307590189154,0.0307884674735,0.030597051846,0.030597051846,0.0305381547298,0.0305234304508,0.030597051846,0.0305676032879,0.030611776125,0.0306412246831,0.0304939818927,0.0304645333346,0.030611776125,0.0304350847765,0.0304939818927,0.0306706732412,0.0308179160316,0.0308620888687,0.0308620888687,0.0306559489621,0.0304645333346,0.0304645333346,0.0303761876603,0.0301700477538,0.0301700477538,0.0300669778005,0.030258393428,0.0303172905442,0.0302142205909,0.0305676032879,0.0305528790088,0.030597051846,0.0305823275669,0.0306706732412,0.0307442946364,0.0468821044646,0.0473238328358,0.0479864253927,0.0487373636237,0.0493557833434,0.0500772730164,0.0507545898523,0.0511374211073,0.0516380465947,0.0520356021288,0.0525067790581,0.053198820173,0.0539055855669,0.0545534538447,0.0551718735644,0.0561584002601,0.0567473714217,0.0574835853737,0.0582345236048,0.0592063260215,0.0600161613687,0.0607523753207,0.061591659226,0.0622984246199,0.063034638572,0.0629315686187,0.063034638572,0.0630788114091,0.0630788114091,0.0628284986654,0.0627843258283,0.0624751159684,0.062327873178,0.0624603916894,0.0625487373636,0.0626076344798,0.0627401529911,0.0629610171768,0.063049362851,0.0629904657348,0.0632113299204,0.0633438484318,0.0632555027576,0.0633438484318,0.0633291241528,0.0633732969899,0.0634469183851,0.063402745548,0.063417469827,0.0634763669432,0.0635941611755,0.0638591981982,0.0639769924305,0.0640064409886,0.0643303751275,0.0645659635922,0.0648310006149,0.0648015520568,0.0647279306616,0.0648310006149,0.0647573792197,0.0649340705682,0.0646984821035,0.0642714780114,0.0642567537323,0.0644776179179,0.0646984821035,0.0647132063826,0.0645365150341,0.0645659635922,0.0642567537323,0.0641684080581,0.0640947866629,0.0638591981982,0.0638739224773,0.0640506138257,0.0641831323371,0.0642714780114,0.0641831323371,0.0644039965227,0.0644039965227,0.0649046220101,0.0648310006149,0.0645806878712,0.0647132063826,0.0650371405215,0.0651107619167,0.0650076919634,0.064875173452,0.0648310006149,0.064889897731,0.0647573792197,0.0650665890795,0.0651843833119,0.0649782434053,0.0648457248939,0.0649487948472,0.0649635191262,0.0649929676843,0.0651402104747,0.0650960376376,0.0649929676843,0.0649046220101,0.0646984821035,0.0643450994066,0.0642862022904,0.064153683779,0.0644776179179,0.0647426549406,0.0648015520568,0.0653169018232,0.0654788688927,0.0657586301944,0.0662887042399,0.0664801198674,0.0664359470303,0.0663770499141,0.066332877077,0.0666273626578,0.0666273626578,0.0669071239596,0.0667451568901,0.0669954696338,0.0672310580985,0.0673783008889,0.0674960951212,0.0673488523308,0.0672457823775,0.0672310580985,0.0670838153081,0.0673488523308,0.0671279881452,0.0672016095404,0.0673046794937,0.0674666465631,0.0671427124242,0.0669954696338,0.066700984053,0.0667893297273,0.0669954696338,0.0666715354949,0.0668040540063,0.0667304326111,0.0665979140997,0.0667893297273,0.0672163338194,0.067422473726,0.0675991650745,0.0675402679583,0.0676727864697,0.0681145148409,0.0685562432121,0.0685562432121,0.0688212802348,0.069233560048,0.0692777328851,0.0693071814432,0.0690421444204,0.0689243501881,0.0690126958624,0.0688212802348,0.0688065559558,0.0689390744672,0.0690274201414,0.0691452143737,0.0689243501881,0.0689832473043,0.0691157658156,0.068865453072,0.0686445888863,0.0686004160492,0.0687918316768,0.0687476588396,0.0689096259091,0.0691304900947,0.069233560048,0.0691599386528,0.0694838727917,0.0700286711161,0.0699256011629,0.0696311155821,0.0697783583725,0.0698814283257,0.0700433953952,0.0699550497209,0.0701464653485,0.0705587451616,0.0708090579053,0.0709268521376,0.071074094928,0.0715894446944,0.071780860322,0.0720311730656,0.072148967298,0.0722225886932,0.0720164487866,0.0720900701818,0.0723403829255,0.0723551072045,0.0723698314836,0.0722373129722,0.0721342430189,0.0724581771578,0.0724876257159,0.0722520372512,0.0722814858093,0.0723992800417,0.0722962100884,0.0726054199482,0.0726937656225,0.0728115598548,0.0727821112967,0.0729735269242,0.0729882512033,0.0730913211566,0.0732827367841,0.0734888766906,0.073974777899,0.074357609154,0.0746226461768,0.0747993375252,0.0748435103624,0.075079098827,0.0751085473851,0.0751379959432,0.0752999630126,0.0757122428257,0.0753883086869,0.0751379959432,0.0754619300821,0.0756680699886,0.0759183827323,0.0759331070113,0.0763159382664,0.076522078173,0.0766398724053,0.0762423168712,0.0767134938005,0.0767429423586,0.0766987695214,0.0766693209634,0.0765073538939,0.0767723909167,0.0772141192879,0.0776558476591,0.0778619875656,0.0776705719381,0.0775822262639,0.0782006459836,0.0783773373321,0.0788043414242,0.0789810327727,0.0791429998422,0.0793196911906,0.0796877981667,0.0797466952828,0.0801295265379,0.0805123577929,0.0808510162108,0.0810424318384,0.0811455017917,0.0815725058838,0.0816019544419,0.0818964400227,0.0819700614179,0.0822203741616,0.0822939955568,0.0821025799293,0.0825001354634,0.0825443083005,0.0828093453232,0.0830154852298,0.0833983164848,0.0837664234608,0.0840020119255,0.0848118472727,0.0850621600164,0.0854155427134,0.0857394768523,0.0861812052235,0.08638734513,0.0865493121995,0.0869910405707,0.0869910405707,0.0875652874533,0.0879481187083,0.0885370898699,0.0886843326603,0.0891849581477,0.0894499951704,0.0895972379608,0.0898328264255,0.0898917235416,0.0905248675404,0.0906132132146,0.0912021843762,0.091481945678,0.0916733613055,0.0920856411187,0.0925273694899,0.0926157151641,0.0928365793497,0.0932341348838,0.0933813776742,0.0938083817664,0.094397352928,0.0942059373005,0.0949715998106,0.0951482911591,0.0953691553447,0.0958845051111,0.0959286779482,0.0960759207386,0.0965470976679,0.0971655173876,0.0977250399911,0.0981078712462,0.0984318053851,0.0987851880821,0.0991532950581,0.0996097477083,0.0999778546843,0.0999042332891,0.099874784731,0.0998306118939,0.0995655748712,0.100110373196,0.100360685939,0.100360685939,0.100596274404,0.101141072729,0.101038002775,0.101361936914,0.101612249658,0.101803665285,0.102009805192,0.102274842215,0.102716570586,0.102937434771,0.103644200165,0.104012307141,0.104071204258,0.104247895606,0.103923961467,0.10402703142,0.104365689838,0.10510190379,0.105764496347,0.105852842021,0.106088430486,0.106294570393,0.106559607415,0.106427088904,0.106854092996,0.106957162949,0.106854092996,0.107590306948,0.1074136156,0.107222199972,0.10756085839,0.107766998297,0.108297072342,0.1083265209,0.108267623784,0.108046759598,0.108076208157,0.108576833644,0.109298323317,0.109283599038,0.109681154572,0.10971060313,0.109946191595,0.110373195687,0.111021063965,0.111919244986,0.112360973357,0.112949944519,0.113273878658,0.114039541168,0.114363475307,0.114437096702,0.115350002003,0.115570866188,0.115791730374,0.115821178932,0.116056767396,0.116380701535,0.116645738558,0.116822429907,0.116896051302,0.117175812604,0.118250684973,0.118353754927,0.118721861903,0.119340281622,0.119605318645,0.119899804226,0.120002874179,0.12015011697,0.120562396783,0.12091577948,0.121180816503,0.121813960501,0.12229986171,0.122741590081,0.123242215568,0.123566149707,0.12443488217,0.125465581703,0.126422659841,0.12689383677,0.127585877885,0.128160124768,0.128749095929,0.129558931276,0.129927038252,0.130398215182,0.130560182251,0.130751597879,0.131252223366,0.132017885876,0.13257740848,0.132783548386,0.132945515456,0.133063309688,0.13349031378,0.133372519548,0.13396149071,0.134476840476,0.135124708754,0.135963992659,0.13609651117,0.136435169588,0.136979967913,0.137598387633,0.13778980326,0.138540741491,0.139056091258,0.139556716745,0.14008679079,0.1408524533,0.140513794883,0.141250008835,0.141529770136,0.141750634322,0.142133465577,0.142280708367,0.14285495525,0.143296683621,0.143237786505,0.143753136271,0.144209588922,0.144474625944,0.144577695898,0.144577695898,0.144916354316,0.14515194278,0.14500469999,0.145210839896,0.145343358408,0.145873432453,0.145932329569,0.1466832678,0.147169169009,0.147124996172,0.147522551706,0.147846485845,0.147684518775,0.147802313008,0.148023177193,0.147993728635,0.148214592821,0.148877185377,0.149348362307,0.149687020725,0.149848987794,0.149834263515,0.150128749096,0.150364337561,0.150172921933,0.15052630463,0.151321415698,0.151483382768,0.15129196714,0.151468658489,0.152293218115,0.152204872441,0.152013456813,0.152072353929,0.151984008255,0.151601177,0.152190148162,0.152278493836,0.15252880658,0.152882189276,0.152838016439,0.153368090485,0.153780370298,0.154531308529,0.154914139784,0.15451658425,0.154354617181,0.154531308529,0.154619654203,0.154943588342,0.155414765271,0.155959563596,0.155974287875,0.155841769364,0.155768147968,0.155650353736,0.155576732341,0.155046658295,0.154707999877,0.1549730369,0.154766896994,0.154634378482,0.155149728249,0.155620905178,0.155341143876,0.155326419597,0.154914139784,0.154354617181,0.154413514297,0.154354617181,0.154222098669,0.154030683042,0.153721473182,0.153353366206,0.15358895467,0.153073604904,0.152190148162,0.152602427975,0.152941086393,0.152543530859,0.152396288068,0.152631876533,0.152646600812,0.152293218115,0.152411012347,0.152278493836,0.152234320999,0.152249045278,0.15205762965,0.151586452721,0.151233070024,0.150496856072,0.149466156539,0.148509078401,0.148361835611,0.148788839703,0.148759391145,0.148126247146,0.14792010724,0.147713967333,0.147360584636,0.146668543521,0.14622681515,0.145785086779,0.145181391338,0.144798560083,0.144592420177,0.144504074502,0.144062346131,0.143694239155,0.143281959342,0.142531021111,0.141868428554,0.141191111718,0.140926074696,0.140602140557,0.140646313394,0.140469622045,0.139836478047,0.139203334048,0.138849951351,0.138687984282,0.138290428747,0.137878148934,0.137392247726,0.136994692192,0.136523515263,0.135536988567,0.135198330149,0.135006914521,0.133873145035,0.132636305596,0.132282922899,0.132341820015,0.131546708947,0.131237499087,0.130619079367,0.129735622625,0.1291908243,0.128852165883,0.128513507465,0.128528231744,0.128631301697,0.128042330535,0.127806742071,0.127129425235,0.126452108399,0.126820215375,0.126628799747,0.12612817426,0.12536251175,0.124861886263,0.124699919193,0.124582124961,0.124125672311,0.123801738172,0.123315836963,0.123286388405,0.123256939847,0.122918281429,0.122844660034,0.122550174453,0.122152618919,0.121843409059,0.121401680688,0.120974676596,0.120577121062,0.120253186923,0.119811458552,0.119369730181,0.118736586182,0.118250684973,0.118044545067,0.117514471021,0.116954948418,0.116601565721,0.116351252977,0.115924248885,0.11523220777,0.115158586375,0.115305829165,0.115585590467,0.115114413538,0.114481269539,0.114363475307,0.113892298378,0.113641985634,0.11384812554,0.113715607029,0.113288602937,0.112905771682,0.112434594753,0.112125384893,0.112228454846,0.111683656521,0.11124192815,0.111138858197,0.110299574292,0.109975640153,0.109798948804,0.11001981299,0.109519187503,0.109327771875,0.109018562015,0.108871319225,0.108194002389,0.107899516808,0.107339994205,0.106927714391,0.106883541554,0.106603780253,0.106132603323,0.106147327602,0.105941187696,0.105631977836,0.105528907883,0.10526387086,0.105499459324,0.105293319418,0.105146076628,0.104998833837,0.105028282395,0.104674899698,0.104630726861,0.104689623977,0.104233171327,0.104218447048,0.104262619885,0.104203722769,0.10342333598,0.103025780446,0.102554603516,0.102245393657,0.102127599424,0.102142323703,0.102304290773,0.101788941006,0.101317764077,0.100949657101,0.10111162417,0.100905484264,0.100537377288,0.100095648917,0.099874784731,0.0995361263131,0.0992710892904,0.0991680193371,0.0988440851982,0.0985790481755,0.0985054267803,0.0977250399911,0.0977839371073,0.0974158301313,0.0966648919002,0.0963998548775,0.0962820606452,0.0960611964596,0.0956194680884,0.0954427767399,0.0946182171136,0.0941323159053,0.0940734187891,0.0936316904179,0.0937200360922,0.0934697233485,0.0931752377677,0.0924390238156,0.0917764312588,0.091481945678,0.0913494271666,0.0908929745164,0.0908046288422,0.0905248675404,0.0901862091225,0.089641410798,0.0895530651237,0.0891260610315,0.0887285054975,0.0883751228005,0.0883898470795,0.0881248100568,0.0874474932209,0.0870793862449,0.0867112792689,0.0861223081073,0.0856953040151,0.0859897895959,0.0857100282942,0.0854744398295,0.084900192947,0.0847382258775,0.0843701189015,0.0841639789949,0.0833835922058,0.0832363494154,0.0828829667184,0.0828240696023,0.0827062753699,0.0822498227197,0.0815430573257,0.081278020303,0.0809835347222,0.0807479462576,0.0807479462576,0.0806596005833,0.08055653063,0.0801295265379,0.0799233866313,0.0795552796553,0.0795847282134,0.0797466952828,0.0793344154697,0.0794080368649,0.0790104813308,0.0792166212374,0.0787896171452,0.0790546541679,0.0788485142613,0.0788632385404,0.0786718229129,0.0787601685871,0.0786718229129,0.0786423743548,0.0783773373321,0.0786570986338,0.0784656830063,0.0782595430997,0.0779650575189,0.0780975760303,0.0777883661704,0.0775233291477,0.0779061604028,0.0778030904495,0.0775233291477,0.0774349834735,0.0770227036603,0.0765956995682,0.0765809752891,0.0762570411502,0.0759331070113,0.0757711399419,0.0755650000353,0.0756386214305,0.0756680699886,0.075447205803,0.0757858642209,0.0753294115707,0.0751968930593,0.0752263416174,0.0753588601288,0.0753883086869,0.075064374548,0.0751085473851,0.0751085473851,0.0748140618043,0.0746520947348,0.0745931976187,0.0747846132462,0.0748876831995,0.0745784733396,0.0741956420846,0.0744901276654,0.0738275351086,0.0735183252487,0.0735036009697,0.0735919466439,0.073636119481,0.0731649425518,0.0729146298081,0.0726495927853,0.0724581771578,0.071780860322,0.0713244076717,0.0712655105555,0.0708385064634,0.0708974035795,0.0708237821843,0.0709121278586,0.0703967780922,0.0701464653485,0.0700728439533,0.0698961526048,0.0697047369773,0.0696458398611,0.0695869427449,0.0694396999545,0.0694249756755,0.0690715929785,0.0691157658156,0.0691157658156,0.0688065559558,0.0689243501881,0.0686151403283,0.0690568686995,0.0690421444204,0.0684973460959,0.0687771073977,0.0688212802348,0.068512070375,0.0687918316768,0.0687182102816,0.0687034860025,0.0688212802348,0.0685562432121,0.0687329345606,0.0685709674911,0.0682912061894,0.0681145148409,0.0681145148409,0.0679378234924,0.0678789263762,0.0678642020972,0.0682175847942,0.0682028605151,0.0676580621906,0.0675549922374,0.067407749447,0.0673341280518,0.0672310580985,0.0675697165164,0.0677169593068,0.0680261691667,0.0685709674911,0.068512070375,0.068512070375,0.0682617576313,0.0686445888863,0.0689685230252,0.0692777328851,0.0693660785593,0.0691599386528,0.0689979715833,0.06889490163,0.0689979715833,0.0686887617235,0.0686004160492,0.0683059304684,0.0683353790265,0.0684973460959,0.0686887617235,0.068880177351,0.0687034860025,0.0687329345606,0.0684973460959,0.0681881362361,0.068158687678,0.0680408934457,0.0679378234924,0.0678494778182,0.0674960951212,0.0673635766098,0.0672899552146,0.0668040540063,0.0668482268434,0.0664506713093,0.066318152798,0.0664801198674,0.0663623256351,0.0660825643333,0.0664212227512,0.0662739799608,0.0660825643333,0.0658322515896,0.0657291816364,0.0656555602411,0.0654641446136,0.0653757989394,0.0655083174507,0.0655672145669,0.0652138318699,0.0650518648005,0.0650960376376,0.0647573792197,0.0648162763358,0.0646543092664,0.0646543092664,0.0641978566161,0.0637414039659,0.0635499883384,0.0636972311288,0.0639328195934,0.0640358895467,0.0640506138257,0.0639033710353,0.0640506138257,0.0643156508485,0.0642714780114,0.0640064409886,0.0642567537323,0.0640506138257,0.0642862022904,0.0644776179179,0.0643009265694,0.0640800623838,0.0640358895467,0.0643156508485,0.0642420294533,0.0641389595,0.0643009265694,0.0641242352209,0.0641684080581,0.0642567537323,0.0646248607083,0.0649340705682,0.0649782434053,0.0651254861957,0.065243280428,0.0651991075909,0.0648162763358,0.0648162763358,0.0649046220101,0.0648162763358,0.0649635191262,0.0649929676843,0.0650371405215,0.0649193462891,0.0651991075909,0.065228556149,0.0653169018232,0.0653316261023,0.065243280428,0.0651549347538,0.0650224162424,0.0650813133586,0.0651254861957,0.0651549347538,0.0650371405215,0.0651107619167,0.0646543092664,0.064875173452,0.0646101364293,0.0643892722437,0.064507066476,0.0646984821035,0.0646837578245,0.0640653381048,0.0635647126174,0.0631524328043,0.0620775604343,0.0616652806212,0.0606198568093,0.0598394700202,0.0593241202538,0.0585290091856,0.0579694865821,0.0571449269558,0.0563645401667,0.0556577747727,0.0551571492853,0.0546123509608,0.0538614127298,0.0530515773826,0.0520503264078,0.0512404910606,0.0507545898523,0.049915305947,0.0490171249255,0.0483250838106,0.0479275282765,0.0471324172083,0.0311418501704,0.0311565744495,0.0313185415189,0.0313038172399,0.0312007472866,0.0314805085884,0.0314805085884,0.0314657843093,0.0315099571465,0.0312007472866,0.0312301958447,0.0310240559381,0.0310976773333,0.03099460738,0.0310829530543,0.0312007472866,0.0311712987285,0.0310093316591,0.0312301958447,0.0311418501704,0.0314068871932,0.0313185415189,0.0310535044962,0.0309504345429,0.0307590189154,0.030597051846,0.0305087061717,0.0304792576136,0.0305676032879,0.0304792576136,0.0303909119394,0.0303467391023,0.0303614633813,0.0304792576136,0.030597051846,0.0304939818927,0.0305381547298,0.0305381547298,0.0302878419861,0.0300669778005,0.0302878419861,0.0304939818927,0.0307884674735,0.0306412246831,0.0306559489621,0.030626500404,0.0307001217992,0.0308473645896,0.0308326403106,0.0308326403106,0.0308768131477,0.0307295703573,0.0305528790088,0.0307001217992,0.0308620888687,0.0307001217992,0.0307590189154,0.0307590189154,0.0307442946364,0.0309504345429,0.0309357102639,0.0310093316591,0.0308326403106,0.0307148460783,0.0305234304508,0.0303909119394,0.0304939818927,0.0305823275669,0.0304350847765,0.0303320148232,0.0301258749167,0.0301994963119,0.0304203604975,0.0304056362184,0.030611776125,0.030626500404,0.0304498090555,0.0303467391023,0.0304498090555,0.030243669149,0.0303467391023,0.0302878419861,0.0300669778005,0.0300522535215,0.0300522535215,0.0301994963119,0.0300228049634,0.029875562173,0.0299933564053,0.0302289448699,0.030258393428,0.0301111506376,0.0297283193826)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("17647-21-FLP-CD25+-EVGFP-aH3K27Ac.50mers.unique.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=186"),bty="n")
dev.off()