# R script for Peak Model
#  -- generated by MACS
p <- c(0.0399690979023,0.0417233354178,0.0436839538175,0.0455413817751,0.0475707938028,0.0500817612269,0.052489538209,0.0543125693526,0.0560668068681,0.0581994093379,0.0600568372955,0.0622582333934,0.0642188517931,0.0665578351471,0.0682776758486,0.0695503579676,0.0713733891112,0.0732308170688,0.0732996106969,0.0725428807882,0.0724396903461,0.0723708967181,0.0725428807882,0.0721989126479,0.0722333094619,0.0727492616724,0.0724396903461,0.0726116744163,0.0728180553004,0.0724052935321,0.0730244361846,0.07230210309,0.0719581349497,0.0715453731814,0.0716829604375,0.0719581349497,0.0708574369008,0.071132611413,0.0712014050411,0.0715797699954,0.0710638177849,0.0704790719464,0.0696191515957,0.0696879452238,0.069963119736,0.0698599292939,0.0696191515957,0.0695159611536,0.0692407866414,0.068793628059,0.0698599292939,0.0700319133641,0.0698943261079,0.0707886432727,0.0710638177849,0.0718549445076,0.0714077859252,0.0715797699954,0.0712358018551,0.0710638177849,0.0704790719464,0.0702038974342,0.06999751655,0.0696191515957,0.0700663101781,0.0696535484097,0.0694127707115,0.0706510560166,0.0706510560166,0.0712358018551,0.0707542464587,0.0705478655745,0.0707542464587,0.0710638177849,0.0715109763673,0.0718205476936,0.072336499904,0.072336499904,0.0729212457425,0.0736779756512,0.0729212457425,0.0729556425566,0.0732652138828,0.0732308170688,0.0731964202548,0.0736091820231,0.0724740871602,0.0728868489285,0.073505991581,0.0730932298127,0.0727148648584,0.0721645158339,0.0729900393706,0.0730932298127,0.0728180553004,0.0733684043249,0.0735747852091,0.0736435788372,0.0735403883951,0.0738843565354,0.0731964202548,0.0728524521145,0.0729556425566,0.0728180553004,0.0732652138828,0.0740907374195,0.0737123724652,0.0738843565354,0.0739531501634,0.0730588329987,0.0731620234407,0.0724052935321,0.0721301190199,0.072336499904,0.0722333094619,0.0714077859252,0.0718549445076,0.0722333094619,0.0719581349497,0.0718549445076,0.0718893413216,0.0706854528306,0.0707198496446,0.0707886432727,0.0706166592026,0.0705134687605,0.0708918337148,0.0706510560166,0.0701351038061,0.0698943261079,0.0705822623885,0.0703070878763,0.0698255324799,0.06999751655,0.0701007069921,0.0696535484097,0.0698255324799,0.0698943261079,0.0702038974342,0.0698943261079,0.0694471675256,0.0683808662906,0.0684840567327,0.0685528503608,0.0689656121291,0.0693439770835,0.0685872471748,0.0688968185011,0.0696535484097,0.0693439770835,0.0690344057572,0.0696535484097,0.0701695006202,0.0705822623885,0.0705822623885,0.0705478655745,0.0715453731814,0.0728180553004,0.0727148648584,0.0725772776022,0.0724396903461,0.0726116744163,0.0719581349497,0.0728180553004,0.0729212457425,0.073471594767,0.0730588329987,0.0731620234407,0.0740563406055,0.0741939278616,0.0741251342336,0.0747786737001,0.0750538482124,0.0756041972368,0.0750538482124,0.0752946259106,0.0753290227246,0.0758793717491,0.0763265303315,0.0763609271455,0.0756385940509,0.0757073876789,0.0764297207735,0.0763953239595,0.0755698004228,0.0759825621912,0.0767048952858,0.0760857526332,0.0763265303315,0.0756041972368,0.0763265303315,0.0759137685631,0.0755354036088,0.0753978163527,0.0760857526332,0.0763609271455,0.0766361016577,0.0761545462613,0.0768768793559,0.076945672984,0.0767736889138,0.0767048952858,0.0770488634261,0.0767392920998,0.0772896411243,0.0773928315664,0.0772896411243,0.0764641175876,0.0762233398894,0.0763265303315,0.0767048952858,0.0761889430753,0.0763609271455,0.0753978163527,0.075741784493,0.0762921335174,0.0772208474962,0.0771520538682,0.0766361016577,0.0761889430753,0.0772552443103,0.0773240379383,0.0770832602401,0.0768768793559,0.0762577367034,0.0762577367034,0.0763265303315,0.0765673080297,0.0767736889138,0.0764297207735,0.0761201494473,0.0764641175876,0.0760513558192,0.0759137685631,0.0760857526332,0.0751914354685,0.0752602290965,0.0751570386545,0.0749850545843,0.0754666099807,0.0748818641422,0.0751570386545,0.0761889430753,0.0761201494473,0.0759481653771,0.0753290227246,0.0750538482124,0.0759481653771,0.0766017048437,0.0773928315664,0.0771864506822,0.0771176570541,0.0773928315664,0.0775648156365,0.0775992124505,0.0782527519171,0.0778055933347,0.0775992124505,0.0773584347523,0.0771520538682,0.0774272283804,0.0768768793559,0.0760513558192,0.0763953239595,0.0747098800721,0.074641086444,0.0747098800721,0.0740563406055,0.0740219437915,0.0738843565354,0.0735403883951,0.0741251342336,0.0742627214897,0.0744691023739,0.0742971183037,0.0742627214897,0.0738843565354,0.0732308170688,0.0724052935321,0.0735747852091,0.0737467692792,0.0742627214897,0.0749850545843,0.0741939278616,0.0741251342336,0.0738499597213,0.0741251342336,0.0743659119318,0.0747442768861,0.0749162609562,0.0758793717491,0.0764297207735,0.0766704984717,0.0764641175876,0.0770832602401,0.0779431805908,0.0779431805908,0.0779775774049,0.0791470690819,0.0800413862466,0.0813140683657,0.0817956237621,0.0830339090672,0.0837562421618,0.0849601306529,0.0860264318878,0.0872303203788,0.0881590343576,0.0888813674522,0.0891909387785,0.0905668113397,0.0903260336415,0.0905668113397,0.0903948272695,0.0908419858519,0.0901540495713,0.089741287803,0.0899132718731,0.0903948272695,0.0906700017818,0.0906700017818,0.0910483667361,0.0915987157606,0.0913235412483,0.0903260336415,0.09091077948,0.089844478245,0.089741287803,0.0906012081537,0.0916675093886,0.0919082870868,0.0925962233674,0.093318556462,0.0942472704408,0.0940752863707,0.0933529532761,0.0934905405322,0.0938689054865,0.0934905405322,0.0936969214164,0.0930089851358,0.0931121755778,0.0932153660199,0.0922522552271,0.0925274297393,0.0926306201814,0.0921834615991,0.093249762834,0.0941096831847,0.0951071907916,0.095588746188,0.0962422856545,0.096792634679,0.0965862537948,0.0960703015844,0.0958983175142,0.0959671111423,0.0962766824686,0.095657539816,0.0960359047704,0.096827031493,0.0964830633527,0.0978245390999,0.097927729542,0.0971709996333,0.096827031493,0.0965862537948,0.0960015079563,0.0955543493739,0.0957607302581,0.095588746188,0.0960015079563,0.0962078888405,0.0966206506089,0.096758237865,0.0966550474229,0.0974117773315,0.0974117773315,0.0967238410509,0.0971709996333,0.0972397932614,0.096827031493,0.0966894442369,0.0970678091912,0.0969990155632,0.0969302219351,0.0970678091912,0.0966894442369,0.0971022060053,0.0974805709596,0.0972397932614,0.0977901422859,0.0982029040542,0.0976525550297,0.0971366028193,0.0964830633527,0.0963454760966,0.096827031493,0.0963798729107,0.0953823653038,0.0956919366301,0.0953479684898,0.0956919366301,0.0965518569808,0.096792634679,0.0965174601668,0.0964830633527,0.0965862537948,0.0960015079563,0.0953135716757,0.0954167621178,0.0955543493739,0.0951759844196,0.0951415876056,0.0957951270722,0.0963798729107,0.0963454760966,0.0972053964474,0.0975837614017,0.0967238410509,0.0976869518438,0.0971022060053,0.0965518569808,0.0962766824686,0.0968614283071,0.0967238410509,0.0975149677736,0.0975837614017,0.0972741900754,0.0976181582157,0.0984092849384,0.0993723957312,0.0998195543136,0.100060332012,0.100679474664,0.102330521738,0.102468108994,0.102708886692,0.10294966439,0.102846473948,0.102915267576,0.103396822973,0.103740791113,0.103981568811,0.105151060488,0.105804599955,0.105357441372,0.104944679604,0.105151060488,0.105667012699,0.105219854116,0.104875885976,0.104807092348,0.104669505092,0.104875885976,0.106217361723,0.10439433058,0.104187949695,0.104291140137,0.10508226686,0.105185457302,0.105391838186,0.104979076418,0.105460631814,0.105529425442,0.106148568095,0.107146075702,0.107146075702,0.107421250214,0.107937202425,0.108143583309,0.108590741891,0.108521948263,0.109072297288,0.108934710031,0.109760233568,0.110792137989,0.111067312501,0.112236804178,0.112855946831,0.112752756389,0.114197422578,0.114403803462,0.116467612304,0.116811580444,0.11626123142,0.117224342213,0.117809088051,0.118634611588,0.119012976542,0.118359437076,0.117946675307,0.118703405216,0.119872896893,0.120492039545,0.120354452289,0.121592737594,0.122934213341,0.124069308204,0.124172498646,0.124791641299,0.125204403067,0.125857942534,0.126270704302,0.126442688372,0.126477085186,0.126889846955,0.12616751386,0.126477085186,0.127096227839,0.127715370492,0.126821053327,0.126889846955,0.127165021467,0.126580275629,0.126408291558,0.126993037397,0.126305101116,0.127577783235,0.12616751386,0.126580275629,0.127749767306,0.126580275629,0.127061831025,0.126649069257,0.125926736162,0.126786656513,0.126614672443,0.127990545004,0.127268211909,0.127715370492,0.128334513144,0.127165021467,0.126649069257,0.126270704302,0.126717862885,0.125857942534,0.124894831741,0.123450165552,0.122899816527,0.122383864317,0.122143086619,0.121627134408,0.121902308921,0.121902308921,0.120664023615,0.120767214058,0.121248769454,0.120973594942,0.120904801314,0.121867912107,0.12155834078,0.121661531222,0.122865419713,0.122590245201,0.123828530506,0.123828530506,0.123828530506,0.12582354572,0.125410783952,0.126270704302,0.12778416412,0.128747274912,0.129572798449,0.129985560217,0.132255749943,0.133046876666,0.133975590645,0.134973098252,0.136176986743,0.13751846249,0.138068811514,0.139960636286,0.141130127963,0.141990048314,0.143125143177,0.143916269899,0.144535412552,0.144707396622,0.14512015839,0.145085761576,0.145945681927,0.145257745647,0.144329031668,0.143331524061,0.142437206896,0.140889350265,0.14033900124,0.139307096819,0.137036907094,0.135489050462,0.133528432063,0.132118162687,0.130054353846,0.127474592793,0.126717862885,0.125101212625,0.123415768738,0.121455150338,0.119907293707,0.117293135841,0.114369406648,0.112305597806,0.110964122059,0.108693932333,0.105873393583,0.104222346509,0.10208974404,0.0999227447557,0.0986844594506,0.0972053964474,0.095623143002,0.0943848576969,0.0926994138095,0.0907731922238,0.088640589754,0.0878150662173,0.0870239394946,0.0861296223299,0.0858888446317,0.0858888446317,0.0860608287018,0.0850633210949,0.0844441784424,0.0840314166741,0.0833434803935,0.0831027026953,0.0832058931374,0.0830683058812,0.0833434803935,0.0842377975582,0.0838938294179,0.0830683058812,0.0824835600427,0.082758734555,0.0818988142042,0.0824835600427,0.0835842580917,0.082793131369,0.0820707982744,0.0820707982744,0.0822427823445,0.0813828619938,0.0814516556218,0.0812108779236,0.0817612269481,0.0822083855305,0.0822083855305,0.0816924333201,0.081589242878,0.0821395919024,0.0830683058812,0.0830683058812,0.0830683058812,0.0834122740215,0.0832746867654,0.0831370995093,0.0829651154391,0.0835842580917,0.0848225433967,0.0845817656985,0.0850633210949,0.0856480669334,0.0857512573755,0.0858888446317,0.0865423840982,0.0864391936561,0.0869895426806,0.0871271299367,0.0871615267507,0.0867143681684,0.0875398917051,0.0870239394946,0.0868519554245,0.0885030024979,0.0888125738242,0.0890189547083,0.0900164623152,0.089810081431,0.0897068909889,0.089741287803,0.0887781770101,0.0883310184277,0.0879870502875,0.0880214471015,0.0877462725892,0.0870583363087,0.0866111777263,0.0865079872842,0.0864735904702,0.0865079872842,0.0871271299367,0.0881590343576,0.0884342088698,0.088571796126,0.0877462725892,0.0877806694033,0.0870583363087,0.0861984159579,0.0859920350737,0.0856480669334,0.0847881465827,0.0838594326039,0.0828963218111,0.0834122740215,0.0840658134881,0.0840314166741,0.0832402899514,0.0832058931374,0.0825523536708,0.0816924333201,0.0818644173902,0.0818644173902,0.0808669097833,0.0812108779236,0.0815204492499,0.0822427823445,0.0822771791586,0.0828963218111,0.0826555441129,0.0827243377409,0.0834466708356,0.0840314166741,0.0838594326039,0.0837562421618,0.08399701986,0.0835842580917,0.082793131369,0.0822083855305,0.0817612269481,0.0810732906675,0.0810732906675,0.0819676078323,0.0823115759726,0.0824835600427,0.0819332110183,0.0822771791586,0.0824491632287,0.0826899409269,0.0828963218111,0.0825523536708,0.0819332110183,0.0820707982744,0.0824835600427,0.0824835600427,0.0829651154391,0.0823459727866,0.0820707982744,0.081658036506,0.0810732906675,0.0805917352711,0.0798350053625,0.0789406881977,0.0784935296153,0.0775648156365,0.0772896411243,0.0772208474962,0.0765673080297,0.0763609271455,0.0767048952858,0.077014466612,0.0762233398894,0.0762921335174,0.0763953239595,0.0751570386545,0.0751226418404,0.0752602290965,0.0749506577703,0.073505991581,0.0737467692792,0.0738155629073,0.0738843565354,0.0736435788372,0.0742971183037,0.0744347055598,0.0745378960019,0.0742971183037,0.0741251342336,0.0741939278616,0.0740907374195,0.0739875469774,0.0736779756512,0.0736435788372,0.073505991581,0.0740219437915,0.0750882450264,0.0750538482124,0.0756729908649,0.0760169590052,0.075776181307,0.0765329112156,0.0773240379383,0.0779087837768,0.0783215455452,0.0779775774049,0.0780119742189,0.0777024028926,0.0776336092646,0.0772552443103,0.0771520538682,0.0780119742189,0.0780463710329,0.0782527519171,0.0785623232434,0.0791126722678,0.0789062913837,0.0785279264293,0.0797662117344,0.0796974181063,0.0793534499661,0.0793534499661,0.0791470690819,0.0800069894326,0.0806605288992,0.0802477671308,0.0798694021765,0.0795598308502,0.0790438786398,0.0798350053625,0.0795942276643,0.0793534499661,0.0794910372222,0.0800413862466,0.0799037989905,0.0798350053625,0.0803853543869,0.0797318149204,0.0793534499661,0.0793878467801,0.0785279264293,0.0786655136855,0.0783215455452,0.078149561475,0.0785279264293,0.0789406881977,0.0788031009416,0.0779431805908,0.0777024028926,0.078149561475,0.0784247359873,0.0787343073135,0.079319053152,0.0800413862466,0.0786655136855,0.0785967200574,0.0779431805908,0.0780119742189,0.078115164661,0.078183958289,0.0783559423592,0.0784247359873,0.0793878467801,0.0797662117344,0.0803509575729,0.080454148015,0.0805229416431,0.080488544829,0.0800757830607,0.0798350053625,0.0792158627099,0.0791470690819,0.0794566404081,0.0794566404081,0.0801101798747,0.0795942276643,0.0805917352711,0.0812108779236,0.0814860524359,0.0814860524359,0.0812796715517,0.0812796715517,0.0811076874816,0.0822083855305,0.0818988142042,0.0812796715517,0.0810044970395,0.0815204492499,0.0801445766887,0.0805573384571,0.0811076874816,0.0811420842956,0.0815548460639,0.0808669097833,0.0809013065974,0.0802477671308,0.0798694021765,0.0794910372222,0.0786655136855,0.0784247359873,0.0779775774049,0.0778399901488,0.0768768793559,0.0771520538682,0.0771864506822,0.0765329112156,0.0762233398894,0.0763953239595,0.075810578121,0.0756729908649,0.0747786737001,0.074675483258,0.0740563406055,0.0732652138828,0.0732652138828,0.0734028011389,0.0729900393706,0.0729212457425,0.0727836584864,0.0722333094619,0.0725428807882,0.0727492616724,0.0718893413216,0.0713389922972,0.0721301190199,0.0717517540655,0.0708230400867,0.0710638177849,0.071132611413,0.07230210309,0.0721645158339,0.0718205476936,0.0712014050411,0.0719237381357,0.0722333094619,0.0730588329987,0.0730932298127,0.0729900393706,0.0737811660933,0.0729212457425,0.0729900393706,0.0732652138828,0.0744003087458,0.07460668963,0.0745034991879,0.0744691023739,0.0743315151177,0.0740219437915,0.073437197953,0.0737467692792,0.0732652138828,0.0730588329987,0.0730588329987,0.0727148648584,0.0730244361846,0.0726804680443,0.0726460712303,0.0718893413216,0.0721645158339,0.0721989126479,0.0718893413216,0.0709950241569,0.0715797699954,0.0708574369008,0.071098214599,0.0702038974342,0.06999751655,0.0701007069921,0.0698255324799,0.0692063898273,0.0694127707115,0.0683120726626,0.0680025013363,0.0677961204521,0.067624136382,0.0683808662906,0.0680368981503,0.0682776758486,0.0679681045223,0.0678305172662,0.0682776758486,0.068759231245,0.0691375961993,0.0700319133641,0.071132611413,0.0710294209709,0.0713045954831,0.0713733891112,0.0718549445076,0.0722333094619,0.0721989126479,0.0722333094619,0.0719581349497,0.0721989126479,0.0727492616724,0.072267706276,0.072267706276,0.0727836584864,0.0729212457425,0.0728524521145,0.07230210309,0.0726116744163,0.0725772776022,0.0725428807882,0.0732996106969,0.0731620234407,0.0728180553004,0.0736091820231,0.07460668963,0.0741595310476,0.0738499597213,0.0728868489285,0.072336499904,0.0721301190199,0.0724052935321,0.072336499904,0.0721645158339,0.0714421827393,0.0719581349497,0.0708574369008,0.0703414846903,0.06999751655,0.0696879452238,0.0690344057572,0.0685872471748,0.0684840567327,0.068828024873,0.0686216439888,0.068759231245,0.0694815643396,0.0689312153151,0.068828024873,0.0693439770835,0.0694815643396,0.0693439770835,0.0700319133641,0.0696535484097,0.0692407866414,0.0696879452238,0.0702382942482,0.0702038974342,0.0702382942482,0.0696191515957,0.0695159611536,0.0689656121291,0.0693095802694,0.0702038974342,0.0713045954831,0.0717517540655,0.0721645158339,0.0714765795533,0.0712701986691,0.0707886432727,0.0713045954831,0.0710294209709,0.0714421827393,0.0724740871602,0.072267706276,0.0725428807882,0.0723708967181,0.0725772776022,0.07230210309,0.0718205476936,0.0720269285778,0.0715453731814,0.0707886432727,0.0712358018551,0.0713733891112,0.071167008227,0.0712701986691,0.0707542464587,0.0705478655745,0.0707198496446,0.0709950241569,0.0706854528306,0.0700663101781,0.0695503579676,0.0698255324799,0.0705134687605,0.069963119736,0.0697567388518,0.069928722922,0.0691375961993,0.0683808662906,0.0682088822205,0.0678993108942,0.0682432790345,0.067624136382,0.0680712949644,0.0677273268241,0.0673145650557,0.0672457714277,0.0659730893086,0.0669018032874,0.0670049937295,0.0673489618698,0.0671081841715,0.0669018032874,0.0669705969154,0.0665922319611,0.0670737873575,0.0680368981503,0.0673833586838,0.0668330096593,0.0666954224032,0.0669705969154,0.0682776758486,0.0681056917784,0.0678993108942,0.0676929300101,0.067589739568,0.0671769777996,0.067624136382,0.0678993108942,0.0677961204521,0.0676929300101,0.0680025013363,0.0679337077083,0.0683464694766,0.0680712949644,0.068759231245,0.0682088822205,0.0678993108942,0.0678305172662,0.0683808662906,0.0684840567327,0.0684496599187,0.0686560408029,0.0680025013363,0.0674521523118,0.0667986128453,0.0672801682417,0.0675553427539,0.0675553427539,0.0667986128453,0.0668330096593,0.0666954224032,0.0659386924945,0.0659386924945,0.0665922319611,0.066523438333,0.0660074861226,0.0658698988665,0.0658698988665,0.0665578351471,0.0665578351471,0.066420247891,0.0669705969154,0.066420247891,0.0655603275402,0.0649411848877,0.0658698988665,0.0656291211683,0.0650787721438,0.0648379944456,0.0650787721438,0.0649411848877,0.0659386924945,0.0658698988665,0.066454644705,0.0656291211683,0.0654571370981,0.0657323116104,0.0658698988665,0.0665578351471,0.0666610255892,0.0677273268241,0.0674521523118,0.0678649140802,0.0686560408029,0.0696535484097,0.0700663101781,0.0698943261079,0.0697567388518,0.0703758815044,0.0704102783184,0.0702038974342,0.0702382942482,0.0691375961993,0.0689312153151,0.0685872471748,0.068759231245,0.0689656121291,0.0689656121291,0.0696191515957,0.0706854528306,0.0717861508796,0.0712358018551,0.0710638177849,0.0715453731814,0.0717517540655,0.0719581349497,0.0715797699954,0.0709262305288,0.0692407866414,0.0672113746136,0.0654571370981,0.0637372963967,0.0616390907409,0.0593689010149,0.0575802666854,0.0557572355418,0.0531086808615,0.051285649718,0.048981063178,0.0465732861959,0.0445094773542,0.0425832557685,0.0409322086951,0.0392123679936,0.0369765750817,0.035015956682)
m <- c(0.0378911179728,0.0398763797998,0.0413139831917,0.0430254158011,0.0454556501065,0.0476120551944,0.0493919451082,0.0514798928917,0.0530201822402,0.0544920142843,0.0561349895894,0.0575725929813,0.0601739705476,0.0618169458527,0.063699521723,0.0661639846806,0.0681834751598,0.0703741088998,0.0702371942911,0.0697237645082,0.0702371942911,0.0699633650736,0.0708875386827,0.0712298252045,0.0700318223779,0.0696210785517,0.0696210785517,0.0691076487688,0.0691076487688,0.0690391914645,0.0693814779864,0.0695868498995,0.0692103347254,0.0691076487688,0.0696553072039,0.069860679117,0.0706821667695,0.0699975937258,0.070955995987,0.0705110235086,0.0699633650736,0.0697922218126,0.0699633650736,0.069860679117,0.0700318223779,0.0706137094651,0.0707506240739,0.0716405690308,0.0715036544221,0.071127139248,0.0713667398133,0.0710929105958,0.0708190813783,0.0702714229433,0.0699633650736,0.0705110235086,0.0697579931604,0.0699975937258,0.0693814779864,0.0689365055079,0.0693472493342,0.0694841639429,0.0696210785517,0.0700660510301,0.070408337552,0.0702029656389,0.0701002796823,0.0703398802476,0.0697237645082,0.0696895358561,0.0693814779864,0.0693472493342,0.0690734201167,0.0694841639429,0.0691761060732,0.0697579931604,0.0697237645082,0.0693472493342,0.0697922218126,0.0695183925951,0.0695526212473,0.0693472493342,0.0698264504648,0.0694157066385,0.069313020682,0.0700318223779,0.0695868498995,0.0696553072039,0.0693472493342,0.0694157066385,0.069141877421,0.0679438745944,0.068765362247,0.0685257616816,0.0684230757251,0.0689365055079,0.0686626762904,0.0679781032466,0.0676700453769,0.0681150178554,0.0682861611163,0.0684230757251,0.0681492465076,0.0684230757251,0.0689365055079,0.069313020682,0.0691761060732,0.0694499352907,0.0693472493342,0.0692103347254,0.0694157066385,0.0695526212473,0.0698264504648,0.0705110235086,0.0701345083345,0.0699975937258,0.0700318223779,0.0699975937258,0.0696553072039,0.0693814779864,0.0690391914645,0.0689022768557,0.0695526212473,0.0689365055079,0.0693814779864,0.0699633650736,0.0701002796823,0.0709902246392,0.0709902246392,0.071127139248,0.0709902246392,0.0707163954217,0.0711613679002,0.0721539988136,0.072222456118,0.0723593707268,0.0725989712921,0.0721539988136,0.072770114553,0.0720855415093,0.0719143982483,0.0716063403786,0.0716405690308,0.0719828555527,0.0711613679002,0.071674797683,0.0714694257699,0.0711613679002,0.0706137094651,0.0698949077692,0.0699975937258,0.0699975937258,0.0699291364214,0.0695868498995,0.0697922218126,0.0704425662042,0.0707848527261,0.0714694257699,0.070579480813,0.0711955965524,0.0713325111611,0.0710586819436,0.0710586819436,0.0709217673348,0.070408337552,0.0706479381173,0.070579480813,0.0704767948564,0.0701345083345,0.0693472493342,0.0694157066385,0.0691761060732,0.0691076487688,0.0690049628123,0.0688680482035,0.0695183925951,0.0688338195513,0.069313020682,0.0694499352907,0.068765362247,0.0697922218126,0.0699975937258,0.0701002796823,0.0700660510301,0.0697237645082,0.0702029656389,0.0699975937258,0.0703741088998,0.0710586819436,0.0713667398133,0.0710586819436,0.0710586819436,0.0702371942911,0.0698264504648,0.0705452521608,0.0702029656389,0.0705110235086,0.0704767948564,0.0708190813783,0.070955995987,0.0713325111611,0.0714351971177,0.0716405690308,0.0715036544221,0.0720855415093,0.0728043432052,0.0731466297271,0.0735231449012,0.0735573735534,0.0743446325537,0.0738312027709,0.0736600595099,0.0739681173796,0.0731808583793,0.0738312027709,0.0739338887274,0.0730097151184,0.0723251420746,0.0719828555527,0.0719143982483,0.0720513128571,0.0722909134224,0.0724620566833,0.0720855415093,0.0721197701614,0.0724962853355,0.0724620566833,0.0729070291618,0.0729754864662,0.0724278280311,0.0720855415093,0.0717774836396,0.0712298252045,0.0710244532914,0.070408337552,0.0704425662042,0.0704425662042,0.070579480813,0.070408337552,0.0710586819436,0.0706479381173,0.0698949077692,0.0703741088998,0.0697579931604,0.0695868498995,0.0692787920298,0.0697922218126,0.069860679117,0.0700660510301,0.0706137094651,0.0700318223779,0.0706479381173,0.0713325111611,0.0710244532914,0.0704425662042,0.0713667398133,0.0719486269005,0.0713325111611,0.0715378830742,0.0716405690308,0.071127139248,0.0709217673348,0.0712298252045,0.0708875386827,0.0711955965524,0.0714694257699,0.0715036544221,0.0714694257699,0.0716063403786,0.0718117122917,0.0721882274658,0.0722909134224,0.0719828555527,0.0719828555527,0.0723251420746,0.0720855415093,0.071674797683,0.0721539988136,0.0709902246392,0.0704425662042,0.0699291364214,0.0699975937258,0.0702714229433,0.0700318223779,0.0701687369867,0.0700318223779,0.0697237645082,0.0699291364214,0.0698264504648,0.0713325111611,0.0722566847702,0.0723251420746,0.0720513128571,0.0721197701614,0.0719143982483,0.0722566847702,0.0721539988136,0.0721539988136,0.0721539988136,0.0720513128571,0.0723251420746,0.0729070291618,0.0728728005096,0.0732493156837,0.0736942881621,0.0733520016402,0.0729754864662,0.0724620566833,0.0730781724227,0.0732493156837,0.0732835443359,0.0730097151184,0.0739338887274,0.0736258308577,0.0733862302924,0.0740023460318,0.0744815471625,0.0742419465971,0.0735916022056,0.0735916022056,0.0737285168143,0.0737969741187,0.0736600595099,0.0731124010749,0.0727358859008,0.0717774836396,0.0719486269005,0.0715036544221,0.0716063403786,0.072222456118,0.0718459409439,0.0713667398133,0.0715036544221,0.0718801695961,0.0722566847702,0.0717090263352,0.0712298252045,0.0705110235086,0.0712640538567,0.0714009684655,0.0713325111611,0.0721197701614,0.0724962853355,0.0729754864662,0.0720513128571,0.0720170842049,0.0714351971177,0.0718459409439,0.0718459409439,0.0725305139877,0.0730439437705,0.0732150870315,0.0734204589446,0.073488916249,0.0738312027709,0.0739681173796,0.0740708033362,0.0750292055975,0.0754057207716,0.0751661202062,0.0756795499891,0.0756453213369,0.0755768640325,0.0762272084241,0.0769802387722,0.0768775528157,0.077664811816,0.0778359550769,0.0772540679897,0.0767748668591,0.0765010376416,0.0769802387722,0.0773909825985,0.0780755556423,0.0782466989032,0.0787943573382,0.0781782415988,0.0774252112507,0.0784178421642,0.0784862994685,0.0793420157732,0.0792735584689,0.080197732078,0.0804373326433,0.0800608174692,0.0796158449908,0.0803004180345,0.0807111618608,0.0802319607302,0.0802319607302,0.0795131590342,0.0792051011645,0.078931271947,0.0785205281207,0.0790339579035,0.080026588817,0.0803346466867,0.0803688753389,0.080026588817,0.079478930382,0.0788628146426,0.0784862994685,0.0783493848598,0.0790681865557,0.0795131590342,0.0798554455561,0.0795816163386,0.0798896742083,0.0801292747736,0.0794447017298,0.0796158449908,0.0786916713817,0.0795131590342,0.0799581315126,0.0786916713817,0.0785205281207,0.0782466989032,0.0777674977726,0.0776990404682,0.0773909825985,0.0779386410335,0.077664811816,0.0772540679897,0.0772882966419,0.0777332691204,0.0774594399029,0.0784178421642,0.078931271947,0.0789997292514,0.0788970432948,0.0787943573382,0.0780413269901,0.077664811816,0.0778701837291,0.0782466989032,0.0785889854251,0.0794447017298,0.0794447017298,0.079478930382,0.0796158449908,0.0797185309473,0.0799923601648,0.0797185309473,0.0790681865557,0.0783151562076,0.079478930382,0.0788285859904,0.0790681865557,0.0785889854251,0.0787943573382,0.0793762444254,0.0793077871211,0.0788285859904,0.0796843022951,0.0793762444254,0.0796843022951,0.0792393298167,0.079478930382,0.0792393298167,0.078931271947,0.0786916713817,0.0792051011645,0.0793077871211,0.0788285859904,0.0789655005992,0.0788970432948,0.0782809275554,0.0789997292514,0.0795816163386,0.0797869882517,0.0796500736429,0.0785547567729,0.0776990404682,0.0780070983379,0.0778359550769,0.0779728696857,0.0782809275554,0.078383613512,0.0787259000339,0.0795816163386,0.080026588817,0.0793420157732,0.0791708725123,0.0796500736429,0.0797527595995,0.0797185309473,0.0796158449908,0.0803688753389,0.080745390513,0.0803346466867,0.0810876770349,0.0806084759042,0.0806084759042,0.0808480764695,0.0815668781655,0.081293048948,0.0816011068177,0.0811903629914,0.0808480764695,0.0808480764695,0.0808480764695,0.0810192197305,0.0822172225571,0.0814984208611,0.0821487652527,0.0822856798615,0.0825252804268,0.0834152253837,0.0846132282103,0.0846474568625,0.0852978012541,0.0846474568625,0.0850582006887,0.0846816855147,0.0850582006887,0.0850239720366,0.0852978012541,0.0853320299063,0.0864273467763,0.0874884349941,0.0878991788204,0.0883441512989,0.0882414653423,0.0882756939945,0.088549523212,0.0889602670383,0.0882072366901,0.0882756939945,0.0882072366901,0.0877280355595,0.0873515203854,0.0884468372554,0.0885837518642,0.0890287243426,0.0891314102992,0.0896106114298,0.0905690136911,0.0911851294305,0.090363641778,0.0908428429086,0.0905005563867,0.0905690136911,0.0908428429086,0.0904663277346,0.0899871266039,0.0897475260386,0.0891998676036,0.0898844406473,0.0898844406473,0.0898844406473,0.0905005563867,0.0904320990824,0.0907059282999,0.0910482148218,0.0901240412127,0.0887891237773,0.0880360934292,0.087454206342,0.0878991788204,0.0871803771244,0.0870776911679,0.0871803771244,0.0872146057766,0.0878649501682,0.0886522091686,0.0893367822123,0.0900213552561,0.0891656389514,0.0891314102992,0.0896106114298,0.0901582698649,0.0905347850389,0.0901582698649,0.0901240412127,0.0906032423433,0.0902951844736,0.0902951844736,0.0906716996477,0.0903294131258,0.0910139861696,0.0905347850389,0.0903978704302,0.0908428429086,0.0913562726915,0.0923489036049,0.0938549643012,0.0943683940841,0.0952925676931,0.0964563418676,0.0975516587376,0.0994000059558,0.101385267783,0.104089331306,0.106143050437,0.106827623481,0.108573284742,0.110318946004,0.111414262874,0.113467982005,0.115932444963,0.117335819703,0.119218395573,0.120792913574,0.123223147879,0.125482238924,0.12746750075,0.128528588968,0.130411164839,0.132567569927,0.134039401971,0.135545462667,0.13746226719,0.139687129582,0.1407482178,0.142699250974,0.143383824018,0.145061027975,0.14670400328,0.147080518455,0.147114747107,0.146395945411,0.146053658889,0.146156344845,0.145882515628,0.145711372367,0.145163713932,0.144650284149,0.144547598193,0.142904622888,0.142151592539,0.142425421757,0.141706620061,0.140782446452,0.140269016669,0.139892501495,0.138694498668,0.137325352581,0.135853520537,0.134997804232,0.133491743536,0.1321568261,0.130890365969,0.130376936186,0.128665503577,0.12746750075,0.127090985576,0.126714470402,0.126509098489,0.124694979923,0.123839263618,0.123360062488,0.123736577662,0.123223147879,0.123223147879,0.123599663053,0.124215778793,0.125687610837,0.126269497924,0.125448010271,0.125482238924,0.124694979923,0.125139952402,0.125619153532,0.125550696228,0.126440641185,0.126337955228,0.126474869837,0.126337955228,0.125858754098,0.126337955228,0.125927211402,0.125961440054,0.126406412533,0.126337955228,0.126817156359,0.127433272098,0.127535958055,0.127262128837,0.127570186707,0.127878244577,0.12746750075,0.126646013098,0.126611784446,0.126029897359,0.125858754098,0.125448010271,0.124147321488,0.123736577662,0.123839263618,0.123223147879,0.122915090009,0.122264745618,0.121237886052,0.120484855704,0.121614401226,0.121443257965,0.121648629878,0.1212036574,0.120005654573,0.118910337703,0.11760964892,0.116685475311,0.116856618572,0.116993533181,0.117541191616,0.116582789354,0.115247871919,0.113570667962,0.112886094918,0.112578037048,0.111277348265,0.110969290396,0.110318946004,0.110318946004,0.109360543743,0.109565915656,0.109086714525,0.108881342612,0.108162540916,0.107477967872,0.106998766742,0.107512196524,0.107272595959,0.107067224046,0.10665648022,0.106451108307,0.105937678524,0.105663849306,0.105150419523,0.104705447045,0.103610130175,0.103473215566,0.103644358827,0.103438986914,0.10337052961,0.103781273436,0.103575901523,0.103952416697,0.102343670044,0.102412127348,0.101727554305,0.101590639696,0.101932926218,0.102377898696,0.10227521274,0.102651727914,0.102788642522,0.101830240261,0.102001383522,0.101864468913,0.101898697566,0.101419496435,0.101351039131,0.101042981261,0.100700694739,0.100803380696,0.100940295304,0.100461094174,0.100940295304,0.100906066652,0.100255722261,0.10056378013,0.100495322826,0.100495322826,0.100632237435,0.100221493608,0.0995711492167,0.0990919480861,0.0984416036945,0.0983389177379,0.0978939452595,0.097072457607,0.0972093722157,0.0967301710851,0.0972436008679,0.0967643997373,0.0977570306507,0.0970382289548,0.098167774477,0.0978597166073,0.0979624025639,0.0969697716504,0.096901314346,0.0971066862591,0.0972778295201,0.0972436008679,0.0976543446942,0.0976885733464,0.0973120581723,0.0967643997373,0.0967643997373,0.0963194272588,0.0961482839979,0.0956690828672,0.0954637109541,0.0948133665625,0.0949160525191,0.0944710800406,0.0944710800406,0.0931703912575,0.0935126777793,0.09508719578,0.0953610249975,0.0953267963453,0.0956006255628,0.0952241103888,0.0953952536497,0.0955321682585,0.0960798266935,0.0965247991719,0.0972778295201,0.0973462868245,0.0958402261282,0.096353655911,0.0948818238669,0.0953610249975,0.0954294823019,0.0960113693891,0.0957033115194,0.0953952536497,0.095258339041,0.0959429120847,0.0957033115194,0.0952925676931,0.0959086834325,0.0964563418676,0.0961482839979,0.096901314346,0.097072457607,0.0975858873898,0.0975174300854,0.0982362317814,0.0980650885204,0.0983046890857,0.0986812042598,0.0999476643908,0.0992288626948,0.0979281739117,0.0977228019985,0.0973805154767,0.0965247991719,0.0967301710851,0.0966959424329,0.0966274851285,0.096353655911,0.0964221132154,0.0955663969107,0.0952241103888,0.0958744547804,0.0952241103888,0.0958744547804,0.0949845098235,0.0956690828672,0.095805997476,0.0961140553457,0.0966617137807,0.0965590278241,0.095258339041,0.0943683940841,0.0942314794753,0.094539537345,0.0941630221709,0.0947449092581,0.09399187891,0.093444220475,0.0936495923881,0.09399187891,0.0935811350837,0.0937865069968,0.0937522783447,0.093820735649,0.0935811350837,0.0936153637359,0.0939234216056,0.0940945648665,0.0940603362144,0.0945053086928,0.0943683940841,0.0940945648665,0.0940261075622,0.0936495923881,0.0937180496925,0.0931703912575,0.0934784491272,0.0930677053009,0.0935811350837,0.0938549643012,0.0948818238669,0.0939234216056,0.093273077214,0.0923489036049,0.0918012451699,0.0906374709955,0.0902609558214,0.0900213552561,0.0891656389514,0.0882414653423,0.0876938069073,0.0865300327329,0.08601660295,0.0862562035154,0.0858454596891,0.0851951152975,0.0842709416884,0.0835521399924,0.0825937377312,0.081293048948,0.0814299635568,0.0808480764695,0.0798896742083,0.0792393298167,0.0792051011645,0.0789997292514,0.0785889854251,0.0781782415988,0.0775963545116,0.0774594399029,0.0766037235982,0.0764668089894,0.0757480072934,0.0754741780759,0.0753372634672,0.074584233119,0.0739681173796,0.0730439437705,0.0732150870315,0.0741734892928,0.0734546875968,0.0736258308577,0.0740708033362,0.0743104039015,0.0744130898581,0.0742419465971,0.0746526904234,0.0743788612059,0.0745500044668,0.074207717945,0.0738654314231,0.074036574684,0.0749265196409,0.0749607482931,0.0752345775106,0.0753714921194,0.07475537638,0.0750292055975,0.0753372634672,0.0759876078588,0.0755768640325,0.0754399494237,0.0761245224675,0.0770829247288,0.0766721809025,0.077117153381,0.0770144674244,0.0771513820332,0.0773567539463,0.0774594399029,0.0774936685551,0.0763641230328,0.0763641230328,0.0760902938153,0.0763298943806,0.0761245224675,0.0763298943806,0.0764325803372,0.0757822359456,0.0761587511197,0.0767064095547,0.0767406382069,0.0763298943806,0.076398351685,0.0761245224675,0.0759876078588,0.0759876078588,0.0754741780759,0.075131891554,0.0750976629019,0.0757822359456,0.0759191505544,0.0752688061628,0.0749265196409,0.0743104039015,0.074584233119,0.0750976629019,0.0752003488584,0.0739681173796,0.0731124010749,0.074207717945,0.0736942881621,0.0732835443359,0.073317772988,0.073317772988,0.072941257814,0.0720170842049,0.073317772988,0.0729070291618,0.0732493156837,0.0728728005096,0.0722566847702,0.0723251420746,0.0722566847702,0.0726674285965,0.072770114553,0.0729754864662,0.0728728005096,0.073317772988,0.0737627454665,0.0740023460318,0.0736600595099,0.074036574684,0.0743104039015,0.0737969741187,0.0737969741187,0.0734204589446,0.0735916022056,0.0737285168143,0.0738654314231,0.0738654314231,0.0737285168143,0.0738312027709,0.0741050319884,0.0743788612059,0.0746526904234,0.0741734892928,0.0740708033362,0.0744130898581,0.0746184617712,0.0741734892928,0.0741050319884,0.0747211477278,0.0748238336843,0.0747896050322,0.0747211477278,0.0749949769453,0.0749607482931,0.0756795499891,0.0762614370763,0.0765352662938,0.0760560651631,0.0749607482931,0.0750634342497,0.0743104039015,0.0743446325537,0.0746184617712,0.0754057207716,0.0752003488584,0.07585069325,0.0766037235982,0.0765352662938,0.0763641230328,0.0759191505544,0.0762614370763,0.07585069325,0.0760902938153,0.0755084067281,0.0753714921194,0.0746869190756,0.0749265196409,0.0750976629019,0.075303034815,0.0752345775106,0.0755084067281,0.0746184617712,0.074584233119,0.0745500044668,0.0742761752493,0.073488916249,0.0734204589446,0.0737969741187,0.0735916022056,0.0736600595099,0.0732835443359,0.072941257814,0.0728728005096,0.0731124010749,0.0738654314231,0.0738654314231,0.0750292055975,0.0754057207716,0.0756110926847,0.0752345775106,0.0755768640325,0.0748922909887,0.0745500044668,0.0746184617712,0.0744815471625,0.0742761752493,0.0740023460318,0.0740708033362,0.0737969741187,0.0737969741187,0.074036574684,0.0746184617712,0.0743788612059,0.0740708033362,0.0740023460318,0.0743446325537,0.0738996600753,0.0748580623365,0.0748922909887,0.0756795499891,0.0759533792066,0.0763641230328,0.076398351685,0.0768090955113,0.0765010376416,0.0767748668591,0.0763641230328,0.0758164645978,0.0750976629019,0.0750976629019,0.0746526904234,0.0743788612059,0.0737627454665,0.0730439437705,0.0728043432052,0.0727358859008,0.0720170842049,0.0719143982483,0.0716063403786,0.0721539988136,0.0721539988136,0.0721197701614,0.0725305139877,0.072941257814,0.0732835443359,0.0730781724227,0.0720855415093,0.0717090263352,0.0718459409439,0.0717774836396,0.0711613679002,0.0707506240739,0.070955995987,0.0707848527261,0.0710929105958,0.0706479381173,0.0697922218126,0.0691076487688,0.068594218986,0.0679781032466,0.0679438745944,0.0678754172901,0.0678069599857,0.0685257616816,0.0688680482035,0.068765362247,0.0688338195513,0.0687311335948,0.0682519324641,0.0683546184207,0.0678754172901,0.067327758855,0.0676358167247,0.0681834751598,0.0678411886379,0.0678069599857,0.0678754172901,0.0684573043773,0.0678411886379,0.0680807892032,0.0681150178554,0.0680123318988,0.0686969049426,0.0694499352907,0.0690391914645,0.0689365055079,0.0686284476382,0.0686284476382,0.0685599903338,0.0678754172901,0.0678411886379,0.068046560551,0.0688680482035,0.0693472493342,0.0699975937258,0.0701002796823,0.0704425662042,0.0702029656389,0.0701687369867,0.0695868498995,0.0693472493342,0.069313020682,0.0675331307682,0.0658216981587,0.0642129515059,0.0624330615921,0.0606874003304,0.0593182542429,0.0570591631984,0.0545262429365,0.0529174962836,0.050624176587,0.0485020001513,0.0463798237156,0.0448053057149,0.0423750714095,0.0403898095826,0.0387468342775,0.036658886494,0.0339548229711)
s <- c(0.0353088860176,0.0355688925421,0.0354302223957,0.0358982341397,0.0360715718226,0.0354648899323,0.0352568847128,0.0352568847128,0.0349968781883,0.0349968781883,0.0349622106517,0.0351355483347,0.0352395509445,0.0350488794932,0.0349968781883,0.0352742184811,0.0353782210908,0.0357942315299,0.035447556164,0.0560747404355,0.0567334236307,0.0574441081308,0.0582934627773,0.0594028239482,0.0606161877289,0.061916220351,0.0631295841317,0.0640829413879,0.0656083129979,0.0664750014127,0.0673936911324,0.0685030523033,0.069543078401,0.0702710966694,0.0706351058036,0.0713977916086,0.0726111553893,0.0722644800234,0.0720044734989,0.0716404643647,0.0713804578403,0.0716751319013,0.0715711292915,0.071657798133,0.0721431436453,0.0721604774136,0.0721431436453,0.0721951449502,0.0721084761087,0.0721084761087,0.0717271332062,0.0713977916086,0.0711724526207,0.0711031175476,0.0714497929135,0.0707391084134,0.0711724526207,0.071189786389,0.071189786389,0.0711551188524,0.0707217746451,0.070305764206,0.0702364291328,0.0706177720353,0.0703577655109,0.0701844278279,0.0704964356572,0.070132426523,0.0699417550718,0.0703230979743,0.0704444343523,0.0702364291328,0.0700804252181,0.0706351058036,0.0709124460963,0.0706351058036,0.0709817811695,0.0706697733402,0.0702364291328,0.0697857511571,0.0698724199986,0.0698550862303,0.0697337498522,0.0698204186937,0.0697510836205,0.0698897537669,0.0707044408768,0.0706351058036,0.071068450011,0.07077377595,0.070600438267,0.0708084434865,0.0710337824744,0.0713977916086,0.0719004708891,0.0719698059623,0.0719004708891,0.0722124787185,0.0725764878527,0.0720218072672,0.0719004708891,0.0718831371209,0.0717964682794,0.0721084761087,0.0720044734989,0.071657798133,0.0721604774136,0.0725418203161,0.0727844930722,0.072593821621,0.0723858164014,0.0727324917673,0.0726458229258,0.0727324917673,0.0735125113406,0.073651181487,0.0737551840968,0.0738245191699,0.073772517865,0.0737378503285,0.0732178372796,0.073183169743,0.0729578307552,0.0732005035113,0.0737898516333,0.073183169743,0.0735298451089,0.0734605100357,0.0728538281454,0.0726284891576,0.0718831371209,0.0717964682794,0.0719004708891,0.0718138020477,0.0712244539256,0.0715537955232,0.0720738085721,0.0721084761087,0.0724031501697,0.0719698059623,0.0716751319013,0.0717618007428,0.071657798133,0.0715711292915,0.0714497929135,0.0713804578403,0.0713804578403,0.0710857837793,0.0709124460963,0.0710857837793,0.0705484369621,0.0703404317426,0.070305764206,0.0703230979743,0.0700457576815,0.0700630914498,0.070427100584,0.0702364291328,0.0703230979743,0.0701670940596,0.0692830718766,0.0698550862303,0.0699937563767,0.0702537629011,0.070427100584,0.0698724199986,0.0702710966694,0.0705484369621,0.0705831044987,0.07077377595,0.0712417876939,0.0713457903037,0.0715537955232,0.0711377850842,0.0709124460963,0.0717791345111,0.0722471462551,0.0723511488648,0.0722644800234,0.0723684826331,0.0725244865478,0.0723858164014,0.0728711619137,0.0730271658283,0.0732351710479,0.0733218398894,0.0737378503285,0.0743618659871,0.0746218725115,0.0746045387432,0.0753325570116,0.0752112206336,0.0754018920848,0.0752805557067,0.075003215414,0.0753498907799,0.0756792323775,0.0754365596214,0.0751072180238,0.0745698712066,0.0745698712066,0.075003215414,0.0751072180238,0.0747778764262,0.0747952101945,0.075176553097,0.0750552167189,0.0751592193287,0.0750205491823,0.0754192258531,0.0749338803408,0.0745698712066,0.0743445322188,0.074413867292,0.0744485348286,0.0742751971456,0.0740498581578,0.074413867292,0.0745178699017,0.0743445322188,0.0746392062798,0.0746045387432,0.0740671919261,0.0745872049749,0.0743271984505,0.0741885283041,0.0736165139504,0.0737551840968,0.0738418529382,0.0741365269993,0.0741538607675,0.073945855548,0.073772517865,0.0742925309139,0.074413867292,0.0745872049749,0.0750205491823,0.0750552167189,0.0745178699017,0.0751592193287,0.0752458881702,0.0748645452677,0.0746565400481,0.0745005361335,0.0743271984505,0.0745178699017,0.0747778764262,0.0748992128042,0.074708541353,0.0746218725115,0.0748992128042,0.074881879036,0.0748645452677,0.0747952101945,0.0743445322188,0.0745525374383,0.0743791997554,0.0740845256944,0.0745698712066,0.0736858490236,0.0735471788772,0.0738071854016,0.0738071854016,0.0738591867065,0.0734258424991,0.073356507426,0.0737378503285,0.0739111880114,0.074413867292,0.0742578633773,0.0749858816457,0.0755925635361,0.0757138999141,0.0755925635361,0.0759565726703,0.0756272310727,0.0756965661458,0.0755232284629,0.0754192258531,0.0755578959995,0.0752285544019,0.0749512141091,0.0754192258531,0.0745525374383,0.074708541353,0.0749685478774,0.0744658685969,0.0742578633773,0.0739285217797,0.0740671919261,0.0744485348286,0.07453520367,0.0745005361335,0.074881879036,0.074708541353,0.0743965335237,0.0743791997554,0.0742058620724,0.0746738738164,0.0744312010603,0.0746912075847,0.0751245517921,0.0747605426579,0.0746565400481,0.074240529609,0.0741885283041,0.0738245191699,0.0741018594627,0.0739631893163,0.0745005361335,0.0750898842555,0.0750205491823,0.0746738738164,0.0750552167189,0.0756792323775,0.0758699038288,0.0756098973044,0.0759565726703,0.0760432415117,0.0770659338412,0.0773779416705,0.0779672897925,0.0787299755975,0.0795273289391,0.0803073485124,0.0804460186588,0.0808966966344,0.0809660317076,0.0813300408418,0.0820233915736,0.0822487305615,0.082630073464,0.082630073464,0.0829594150616,0.0826474072323,0.0826127396957,0.0827687436103,0.0830634176714,0.08368743333,0.0838781047812,0.0839474398544,0.0844847866716,0.0843287827569,0.0837914359398,0.0844154515984,0.0842594476837,0.084155445074,0.0849874659521,0.0856114816108,0.0854381439278,0.0855421465376,0.0857674855254,0.0864781700255,0.0865995064036,0.0865821726353,0.08673817655,0.087206188294,0.0867035090134,0.0864261687207,0.0865821726353,0.0866688414768,0.0871541869891,0.0866341739402,0.0872408558305,0.0874141935135,0.0869981830744,0.0873101909037,0.088090210477,0.0888008949771,0.0888008949771,0.0891302365747,0.0890435677333,0.0887835612088,0.088384884538,0.088090210477,0.088384884538,0.0890435677333,0.0888875638186,0.0890955690381,0.089320908026,0.0888702300503,0.0892342391845,0.0890955690381,0.0886448910625,0.0888355625137,0.0889395651235,0.0888182287454,0.0884542196112,0.0887142261356,0.0887488936722,0.0886102235259,0.0888008949771,0.0885408884527,0.089026233965,0.0891995716479,0.0889395651235,0.088852896282,0.0883675507697,0.0883502170014,0.0883502170014,0.0879862078672,0.0881942130868,0.0882462143917,0.0880035416355,0.0879862078672,0.0882808819283,0.0879515403307,0.0886448910625,0.0890955690381,0.0890089001967,0.0892342391845,0.0893902430992,0.0887315599039,0.0882808819283,0.0880555429404,0.0881768793185,0.0885928897576,0.0888008949771,0.0882982156966,0.0884715533795,0.0883675507697,0.0885928897576,0.0891649041113,0.089147570343,0.0886795585991,0.0882808819283,0.0889222313552,0.0882982156966,0.0880728767087,0.0878822052575,0.0880555429404,0.0881595455502,0.0881075442453,0.0881942130868,0.0889222313552,0.0887488936722,0.0893382417943,0.0893035742577,0.0889915664284,0.0893555755626,0.0889048975869,0.0885062209161,0.0886275572942,0.0889742326601,0.0886622248308,0.0891302365747,0.0891302365747,0.0886622248308,0.0891995716479,0.0898929223797,0.0904822705018,0.0906382744164,0.090204930209,0.090083593831,0.0910716186238,0.0910542848555,0.0912449563068,0.0915222965995,0.0915222965995,0.091730301819,0.0924063187826,0.0928049954534,0.0925796564655,0.0930823357461,0.0936543500998,0.0934810124169,0.093255673429,0.0933076747339,0.0939490241608,0.0939143566243,0.0935330137218,0.0938796890877,0.0935676812583,0.0936716838681,0.0944690372097,0.0939143566243,0.0936716838681,0.0938796890877,0.0940703605389,0.0939490241608,0.0940530267706,0.0938450215511,0.0941743631487,0.0948157125756,0.0947637112707,0.0955957321489,0.0956650672221,0.0959250737465,0.0966357582466,0.0973464427467,0.0975891155029,0.0978837895639,0.097831788259,0.0979704584054,0.0981957973932,0.0989064818933,0.0990278182714,0.0997558365398,0.100085178137,0.100587857418,0.101853222504,0.102165230333,0.103430595418,0.103551931796,0.103291925272,0.103915940931,0.104418620211,0.104453287748,0.104678626736,0.104314617601,0.103863939626,0.104054611077,0.105198639785,0.105579982687,0.105735986602,0.106412003565,0.107330693285,0.108388053151,0.108752062285,0.108648059675,0.109098737651,0.109254741566,0.109497414322,0.10972275331,0.109549415627,0.10951474809,0.109029402578,0.1089080662,0.109566749395,0.109878757224,0.109428079249,0.109774754615,0.109878757224,0.10972275331,0.109809422151,0.109636084468,0.108613392139,0.108873398663,0.107868040102,0.108301384309,0.108526723297,0.10788537387,0.108180047931,0.10798937648,0.107954708943,0.108786729822,0.109046736346,0.110086762444,0.109289409102,0.109497414322,0.110052094907,0.109740087078,0.109670752005,0.109289409102,0.109497414322,0.109306742871,0.108665393444,0.107937375175,0.107850706334,0.107417362126,0.107642701114,0.107140021834,0.107209356907,0.107434695895,0.10707068676,0.107625367346,0.108630725907,0.108752062285,0.109185406492,0.110260100127,0.110658776798,0.11164680159,0.113258842042,0.114489539591,0.116153581347,0.116500256713,0.117384278896,0.11927365964,0.119620335006,0.121093705311,0.123104422434,0.124300452446,0.125669820141,0.126675178702,0.129049904959,0.130592610337,0.132065980642,0.13310600674,0.134666045887,0.136434090253,0.137456782582,0.139172825643,0.14073286479,0.142292903937,0.143402265108,0.144788966571,0.145447649766,0.146383673254,0.147423699352,0.147597037035,0.148047715011,0.147337030511,0.146695681084,0.146245003108,0.145655654986,0.144788966571,0.144234285986,0.143454266412,0.1422582364,0.140646195949,0.139276828253,0.138704813899,0.137300778668,0.135532734301,0.134891384874,0.133886026313,0.132429989777,0.130748614252,0.129223242642,0.127472532044,0.125236475934,0.123520432873,0.122203066482,0.12079903125,0.118510973835,0.117072271067,0.115806905981,0.114524207127,0.113796188859,0.112132147103,0.110901449554,0.110034761139,0.109376077944,0.108145380395,0.10707068676,0.106845347773,0.106758678931,0.107053352992,0.107226690675,0.106810680236,0.106914682846,0.106013326894,0.105926658053,0.10596132559,0.105579982687,0.105909324285,0.105909324285,0.105909324285,0.105978659358,0.106186664577,0.106255999651,0.105631983992,0.105354643699,0.105718652833,0.105250641089,0.105787987907,0.106654676321,0.106308000955,0.105805321675,0.10596132559,0.106203998346,0.105562648919,0.105181306016,0.10504263587,0.105025302102,0.105163972248,0.104955967028,0.104037277309,0.103777270784,0.104106612382,0.104262616297,0.104106612382,0.103777270784,0.103430595418,0.102979917443,0.103482596723,0.10330925904,0.103725269479,0.10412394615,0.103395927882,0.103083920053,0.102719910918,0.102303900479,0.102459904394,0.102858581065,0.103083920053,0.102875914833,0.102269232943,0.101437212064,0.100865197711,0.101125204235,0.100206514515,0.0999638417593,0.10046652104,0.100622524955,0.100241182052,0.100847863942,0.100501188576,0.100345184662,0.0999985092959,0.0991664884177,0.0986984766738,0.0987851455153,0.0986811429055,0.0984384701493,0.0978837895639,0.0975544479663,0.097242440137,0.0970864362223,0.0968437634662,0.0969304323076,0.0968957647711,0.0969650998442,0.0971211037589,0.09660109071,0.0965837569417,0.0964277530271,0.0958904062099,0.0959770750514,0.0949890502586,0.0945903735878,0.0937756864779,0.0932210058924,0.0936543500998,0.0942090306853,0.0941396956121,0.0939316903926,0.0939836916974,0.0931690045876,0.0928223292216,0.0928396629899,0.0928569967582,0.0921116447215,0.0922503148679,0.0922503148679,0.0924409863192,0.0925103213923,0.0928916642948,0.0925276551606,0.0928049954534,0.0931516708193,0.0931170032827,0.0931863383559,0.0930996695144,0.0932210058924,0.0930823357461,0.0924756538557,0.0918516381971,0.0913836264531,0.0907076094896,0.0906556081847,0.0908809471726,0.0906382744164,0.0907942783311,0.0902742652822,0.0907076094896,0.090551605575,0.0911756212336,0.0909156147092,0.09131429138,0.090846279636,0.090967616014,0.090672941953,0.0906382744164,0.0909849497823,0.0907596107945,0.0906036068798,0.0906036068798,0.0903262665871,0.0898929223797,0.0892342391845,0.0887835612088,0.0883328832331,0.0877782026477,0.0873968597452,0.0872581895988,0.0865995064036,0.0865475050987,0.0864955037938,0.0866515077085,0.0855941478425,0.085802153062,0.0866515077085,0.0861661621962,0.0861314946596,0.0863394998792,0.0859928245133,0.0853514750863,0.0855421465376,0.0858541543669,0.0861141608913,0.0863741674158,0.08673817655,0.0860448258182,0.0863568336475,0.0854901452327,0.0856461491474,0.0857154842206,0.0859581569767,0.0857501517571,0.0854381439278,0.0853514750863,0.0856288153791,0.0857674855254,0.086096827123,0.0863915011841,0.0869808493061,0.0869981830744,0.0872581895988,0.0877262013428,0.088384884538,0.0886448910625,0.0892169054162,0.0889568988918,0.0890955690381,0.0891302365747,0.0897369184651,0.0891822378796,0.0884715533795,0.0888008949771,0.0886448910625,0.0883155494649,0.0885755559893,0.0888355625137,0.0886968923674,0.0883675507697,0.089026233965,0.088558222221,0.0882115468551,0.0885408884527,0.0881075442453,0.0888702300503,0.0887488936722,0.0888875638186,0.0887662274405,0.0887662274405,0.0887835612088,0.0891302365747,0.0883502170014,0.0877782026477,0.0877782026477,0.0882115468551,0.0879515403307,0.0882115468551,0.0881075442453,0.087500862355,0.0874141935135,0.0876048649647,0.0869635155378,0.0871368532208,0.0869461817695,0.0868941804646,0.0869635155378,0.0871888545257,0.0872755233671,0.0869288480012,0.0867901778549,0.0872408558305,0.0873101909037,0.087327524672,0.0875875311964,0.0877608688794,0.0871021856842,0.0867901778549,0.0866168401719,0.086443502489,0.0867555103183,0.0869288480012,0.0875355298916,0.0870848519159,0.0872408558305,0.0869635155378,0.0869808493061,0.086443502489,0.0862874985743,0.0861488284279,0.085507479001,0.084918130879,0.0843287827569,0.0837047670983,0.0836007644885,0.0837221008666,0.0838434372447,0.0832540891226,0.0832887566592,0.0832367553543,0.0828900799884,0.0822313967932,0.0821967292566,0.0819020551956,0.0813300408418,0.0815553798297,0.0813820421467,0.0809660317076,0.0806193563417,0.0806713576466,0.0796833328538,0.0798220030001,0.0796659990855,0.0796139977806,0.0794579938659,0.0789726483537,0.0789206470488,0.0782099625487,0.0777072832681,0.0770486000729,0.0767192584753,0.0770832676095,0.0764939194874,0.0765112532557,0.0762512467313,0.0765112532557,0.0765805883289,0.0761645778898,0.0762165791947,0.0761645778898,0.0759565726703,0.0757138999141,0.0750898842555,0.0751245517921,0.0752632219384,0.074881879036,0.0750205491823,0.0751592193287,0.0746392062798,0.0747432088896,0.0748298777311,0.074881879036,0.0748298777311,0.0748645452677,0.0747778764262,0.0749858816457,0.075176553097,0.0752112206336,0.0746912075847,0.074881879036,0.0750205491823,0.0756618986092,0.0756098973044,0.0748645452677,0.0745525374383,0.0747778764262,0.0750552167189,0.0753672245482,0.0754885609263,0.0754885609263,0.0755578959995,0.0753152232433,0.0756272310727,0.0757832349873,0.0761472441215,0.0762859142679,0.0760952428166,0.0760085739751,0.075939238902,0.0755232284629,0.0750552167189,0.0751938868653,0.075297889475,0.0752632219384,0.0749338803408,0.0745872049749,0.0744312010603,0.0743965335237,0.0746392062798,0.0743098646822,0.0738245191699,0.0734085087308,0.0738071854016,0.0730965009015,0.073183169743,0.0728364943771,0.0729578307552,0.0723164813282,0.0717444669745,0.0724551514746,0.0721084761087,0.0719698059623,0.0718831371209,0.0710164487061,0.070895112328,0.0707564421817,0.0708777785597,0.0713111227671,0.0712417876939,0.0713111227671,0.0713804578403,0.0715364617549,0.0718831371209,0.071952472194,0.0723338150965,0.0729231632186,0.0732178372796,0.0731658359747,0.0731138346698,0.0732351710479,0.0735471788772,0.0738071854016,0.0737898516333,0.0737378503285,0.073651181487,0.0739111880114,0.0743271984505,0.0742231958407,0.0739805230846,0.0741885283041,0.0744312010603,0.0745005361335,0.0739978568529,0.074119193231,0.074413867292,0.0744485348286,0.0748125439628,0.074708541353,0.0746738738164,0.0750552167189,0.0759219051337,0.0759912402069,0.0759739064386,0.0752458881702,0.074413867292,0.0743618659871,0.074119193231,0.0741018594627,0.0741538607675,0.0741885283041,0.0743445322188,0.074119193231,0.074240529609,0.0740325243895,0.0737898516333,0.0732351710479,0.073183169743,0.0729231632186,0.0732178372796,0.0728191606088,0.0728191606088,0.0728364943771,0.0726804904624,0.072715157999,0.0730791671332,0.0731138346698,0.073183169743,0.0730791671332,0.0728711619137,0.0726458229258,0.0727324917673,0.0726111553893,0.0725591540844,0.0727671593039,0.0723511488648,0.0723338150965,0.0718658033526,0.0718658033526,0.0722818137916,0.0729578307552,0.0735645126455,0.073772517865,0.0740151906212,0.0741018594627,0.0739631893163,0.0740325243895,0.0740671919261,0.0739285217797,0.0742751971456,0.0742058620724,0.0742751971456,0.0740845256944,0.0740498581578,0.073945855548,0.0735645126455,0.0736685152553,0.0735471788772,0.0734605100357,0.0735645126455,0.073477843804,0.0733391736577,0.0735645126455,0.0730791671332,0.0734605100357,0.0735645126455,0.0741018594627,0.0740845256944,0.0739805230846,0.0737378503285,0.0740845256944,0.0742751971456,0.0741365269993,0.0738245191699,0.0736338477187,0.0728711619137,0.0724898190112,0.0721778111819,0.0718831371209,0.0717444669745,0.071068450011,0.0711724526207,0.0709644474012,0.0703924330475,0.070305764206,0.0695084108644,0.0702537629011,0.070305764206,0.0704617681206,0.0705484369621,0.0706524395719,0.0708604447914,0.0705657707304,0.070305764206,0.070600438267,0.0703404317426,0.0700284239133,0.0696470810108,0.0695777459376,0.0703404317426,0.0701670940596,0.0702190953645,0.0698897537669,0.0694044082546,0.0688497276692,0.0688150601326,0.0686417224496,0.0685723873764,0.068485718535,0.068607054913,0.0689363965106,0.0693177394131,0.0691270679619,0.0695084108644,0.0691790692668,0.068780392596,0.0687977263643,0.0688323939009,0.068607054913,0.0687457250594,0.0691270679619,0.0686243886813,0.0683297146203,0.0680350405593,0.0685723873764,0.0683990496935,0.0685203860716,0.0681563769374,0.0681217094008,0.0683990496935,0.0683990496935,0.0681910444739,0.0684683847667,0.0682777133154,0.068017706791,0.0679137041812,0.0675670288153,0.0678963704129,0.0680003730227,0.0683470483886,0.0688670614375,0.0689190627423,0.0685377198398,0.0683990496935,0.0687457250594,0.068607054913,0.0680350405593,0.0677923678031,0.0678963704129,0.0669256793884,0.0665616702542,0.0657123156077,0.0651056337174,0.0638056010952,0.0630255815219,0.0620202229608,0.0608068591801,0.0603388474361,0.0592294862652,0.0586921394481,0.0574787756674,0.0568894275454,0.0560574066672,0.0555547273866,0.054930711728,0.0537866830205,0.052347980252,0.0354648899323,0.0354822237006,0.0353782210908,0.0353955548591,0.0348408742737,0.0347368716639,0.0345635339809,0.0346502028224,0.0347542054322,0.0347542054322,0.0350835470298,0.035620893847,0.0361755744324,0.0358982341397,0.0358115652982,0.0360542380543,0.0361582406641,0.0362622432739,0.0360715718226)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("ChIPseq_H3K27me3_iSLK219-GSM1359508.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=39"),bty="n")
dev.off()