# R script for Peak Model
#  -- generated by MACS
p <- c(0.0397631413769,0.0412990567091,0.0432445494631,0.0453606994763,0.0480570841705,0.0499001825691,0.0521187269378,0.05403008824,0.0556683979277,0.0582623882664,0.0605491955387,0.0625970826483,0.064815627017,0.0664880681564,0.0694575044652,0.0720173633522,0.0746796165946,0.0774101327406,0.0778197101625,0.0780244988735,0.0780927617771,0.0783658133917,0.0785364706509,0.0785364706509,0.078126893229,0.0783658133917,0.0784682077472,0.0783658133917,0.0789801795246,0.0786729964582,0.0785706021027,0.0791508367837,0.0797993343684,0.0797993343684,0.0797310714648,0.0795262827538,0.0788095222655,0.0793556254947,0.0804478319531,0.0804819634049,0.0801065174349,0.0804478319531,0.0802089117903,0.0805502263086,0.0814035126042,0.0809598037305,0.0805160948568,0.0805843577604,0.0803454375976,0.0806184892122,0.0793556254947,0.0796628085611,0.0790484424283,0.078126893229,0.0775466585479,0.0767275037041,0.0762837948304,0.0763861891859,0.076556846445,0.076556846445,0.0767616351559,0.0773760012888,0.0776490529034,0.0779562359698,0.077137081126,0.0778538416144,0.0779562359698,0.0775807899998,0.0775807899998,0.0772394754815,0.0775125270961,0.0778879730662,0.0785706021027,0.0787412593618,0.0777173158071,0.0773760012888,0.077137081126,0.0769664238669,0.0764544520895,0.075976611764,0.0751574569201,0.0748844053055,0.0752257198238,0.0747820109501,0.0754646399866,0.0753622456311,0.0753963770829,0.0746454851427,0.0747478794982,0.0745772222391,0.0752598512756,0.0760107432158,0.0760790061194,0.0756352972457,0.0757376916012,0.075771823053,0.0753622456311,0.0752257198238,0.0746113536909,0.0743383020763,0.0749526682092,0.0747820109501,0.0745772222391,0.0739969875581,0.0737580673953,0.073621541588,0.0729047810996,0.0722221520631,0.0717443117376,0.0714371286711,0.0716419173821,0.0723245464186,0.072051494804,0.0722904149668,0.0725634665814,0.0727682552923,0.0730754383588,0.0729047810996,0.0730754383588,0.0731778327142,0.0725975980332,0.072836518196,0.073416752877,0.0738945932026,0.0738604617508,0.07440656498,0.073416752877,0.0733826214252,0.0734850157807,0.0734850157807,0.0731437012624,0.072836518196,0.0730071754551,0.0728706496478,0.0729389125515,0.0732460956179,0.0729389125515,0.0731778327142,0.073621541588,0.0740311190099,0.0741335133654,0.0745430907873,0.0749526682092,0.0752939827274,0.075567034342,0.0754987714384,0.0758059545048,0.075191588372,0.0750550625647,0.0748161424019,0.0751233254683,0.0754987714384,0.075771823053,0.0761472690231,0.0764203206377,0.0766933722523,0.0769664238669,0.0771029496742,0.0766933722523,0.0766933722523,0.0768640295114,0.0767616351559,0.0773077383852,0.0774442641925,0.0772736069333,0.0776490529034,0.0779903674217,0.0779903674217,0.0779562359698,0.0775125270961,0.0779562359698,0.0774783956443,0.0772053440297,0.0762496633786,0.0766933722523,0.0773077383852,0.077137081126,0.0769664238669,0.0766251093486,0.0766933722523,0.0764203206377,0.0763179262822,0.0757376916012,0.0760790061194,0.0760448746676,0.0761131375713,0.0760107432158,0.0756694286975,0.0756011657939,0.0755329028902,0.0743724335281,0.0746113536909,0.0742700391727,0.0740311190099,0.074201776269,0.0735874101362,0.0733484899734,0.0730071754551,0.0728706496478,0.0724269407741,0.0724269407741,0.0720173633522,0.0716760488339,0.0718125746412,0.0714371286711,0.0714029972193,0.0713347343157,0.0715053915748,0.0718808375449,0.0722904149668,0.0718125746412,0.0710958141529,0.0707544996346,0.0711299456047,0.071471260123,0.0712323399602,0.0709592883456,0.0713347343157,0.0716760488339,0.0718808375449,0.0722904149668,0.0723928093223,0.0727682552923,0.0726658609369,0.0719832319003,0.0722904149668,0.072631729485,0.0724269407741,0.0730413069069,0.0735532786843,0.0741335133654,0.0737239359435,0.0742359077208,0.0743724335281,0.07440656498,0.07440656498,0.0747478794982,0.075191588372,0.0753622456311,0.0751574569201,0.0758400859566,0.0759083488603,0.0765227149932,0.076352057734,0.0761814004749,0.0763179262822,0.0760790061194,0.0764885835413,0.0771029496742,0.0764544520895,0.0768981609632,0.0774783956443,0.0775807899998,0.0777855787107,0.0777855787107,0.0773077383852,0.0772394754815,0.0772394754815,0.0767275037041,0.0770005553187,0.0776149214516,0.0781610246808,0.0784682077472,0.0783316819399,0.0777855787107,0.077341869837,0.0769322924151,0.0773077383852,0.077137081126,0.0776831843552,0.0774783956443,0.077922104518,0.0777173158071,0.0780244988735,0.0777173158071,0.0778879730662,0.0772736069333,0.0775466585479,0.0765909778968,0.0767957666078,0.0774101327406,0.0777855787107,0.0785706021027,0.0793214940429,0.0790825738801,0.0794238883983,0.0796286771093,0.0791849682356,0.0788436537173,0.0792190996874,0.0795604142056,0.0804478319531,0.0811304609896,0.0814035126042,0.0819154843816,0.0819496158334,0.0823933247072,0.0815741698634,0.081642432767,0.0819496158334,0.0821544045444,0.0823591932554,0.0828370335809,0.0828711650327,0.0833831368101,0.0835537940693,0.0844753432685,0.084577737624,0.0846801319795,0.0846118690758,0.0853286295642,0.0859088642452,0.0860453900525,0.0858064698897,0.0866938876372,0.0866256247336,0.086352573119,0.0864208360226,0.086147784408,0.0854992868233,0.0857382069861,0.0862843102153,0.085942995697,0.0862501787635,0.0866597561854,0.0864890989263,0.0865232303781,0.0864549674744,0.0861819158598,0.0859088642452,0.0861819158598,0.086147784408,0.0862501787635,0.0866256247336,0.0871034650591,0.0871717279628,0.0872741223182,0.0873423852219,0.0875813053847,0.0878543569993,0.0872741223182,0.0874106481256,0.0868304134445,0.0865914932817,0.0872058594146,0.0874447795774,0.0874106481256,0.087513042481,0.0876495682883,0.087717831192,0.0875813053847,0.0883321973248,0.0885369860358,0.0887417747468,0.0887759061986,0.0886393803913,0.089083089265,0.0889124320059,0.0888441691022,0.0889124320059,0.0894585352351,0.089663323946,0.0895950610424,0.0893561408796,0.0897315868497,0.0899705070125,0.0897998497533,0.0903459529826,0.0905507416935,0.0903118215307,0.0895609295906,0.0894585352351,0.0891854836205,0.089083089265,0.0882298029694,0.0883321973248,0.0879567513548,0.0880932771621,0.0885711174876,0.0887076432949,0.0884004602285,0.0877519626438,0.0881615400657,0.0880250142584,0.0888783005541,0.089663323946,0.0899022441088,0.0891854836205,0.0887076432949,0.0884345916803,0.088298065873,0.0881615400657,0.0879226199029,0.0881956715175,0.088298065873,0.0887417747468,0.0885369860358,0.0881274086139,0.0878543569993,0.0879567513548,0.0884004602285,0.0886393803913,0.0885369860358,0.0879567513548,0.0874447795774,0.0871375965109,0.0881274086139,0.0887076432949,0.0887759061986,0.0889124320059,0.0893902723314,0.0902094271753,0.0913698965373,0.0908920562118,0.0908579247599,0.0908920562118,0.0902776900789,0.0903459529826,0.0903800844344,0.089663323946,0.0888441691022,0.0890489578132,0.0880932771621,0.0886052489395,0.0890148263614,0.0890148263614,0.0889124320059,0.089287877976,0.0890489578132,0.0887076432949,0.0883321973248,0.0878202255475,0.0877860940956,0.0873082537701,0.0877860940956,0.0873082537701,0.0867621505409,0.086728019089,0.0869669392518,0.0876836997402,0.0878202255475,0.0884345916803,0.0881274086139,0.0875471739329,0.0875471739329,0.0875471739329,0.087717831192,0.0868986763482,0.0864208360226,0.0863867045708,0.0863184416671,0.0864549674744,0.0872399908664,0.0879908828066,0.0879908828066,0.0887759061986,0.0895609295906,0.0894244037833,0.0894585352351,0.0891513521687,0.089287877976,0.0895950610424,0.0897315868497,0.0896291924942,0.0897998497533,0.0901070328198,0.0910968449227,0.0915405537965,0.0915746852483,0.0923597086403,0.0923255771884,0.0927692860622,0.0925644973512,0.0923938400921,0.0919159997665,0.0920525255738,0.0921207884775,0.0922573142848,0.0926327602549,0.0927010231585,0.0932129949359,0.0933153892914,0.0927351546104,0.0927010231585,0.0923597086403,0.093383652195,0.0931447320323,0.0936908352615,0.093793229617,0.0933495207432,0.093588440906,0.093588440906,0.0929058118695,0.0926668917067,0.0932812578396,0.093383652195,0.0933495207432,0.0930764691286,0.0928375489658,0.0930764691286,0.0934519150987,0.093588440906,0.093383652195,0.0930423376768,0.0930423376768,0.0936225723578,0.0934519150987,0.0930423376768,0.0935543094542,0.0940321497797,0.0949195675272,0.0943052013943,0.0942369384907,0.0936908352615,0.0938614925206,0.0944758586535,0.0940662812316,0.094168675587,0.0948513046235,0.0959093796301,0.0964213514075,0.0953291449491,0.0956363280155,0.094953698979,0.0945441215571,0.0948171731717,0.094373464298,0.0939638868761,0.0946123844608,0.0945782530089,0.0952608820455,0.0953291449491,0.0962506941484,0.0964554828594,0.0970015860886,0.0968309288294,0.0969674546367,0.0975818207696,0.0978207409324,0.0981620554506,0.0987764215835,0.0981961869025,0.0985716328725,0.0994249191682,0.0995955764273,0.100175811108,0.101131491759,0.102701538543,0.104373979683,0.106387735341,0.107002101473,0.108230833739,0.111166138596,0.112940974091,0.114852335393,0.116456513629,0.118606795094,0.121064259626,0.124204353194,0.126866606436,0.129392333871,0.131474352432,0.133692896801,0.135945572622,0.138061722635,0.139768295226,0.141440736366,0.143352097668,0.145058670259,0.147345477531,0.149427496093,0.152123880787,0.154001110637,0.155707683229,0.156765758235,0.159052565508,0.159735194544,0.160178903418,0.161032189714,0.161475898587,0.161919607461,0.161919607461,0.161510030039,0.160759138099,0.159120828411,0.157516650175,0.155810077584,0.154274162252,0.151304725943,0.149768810611,0.14806223802,0.14563890494,0.14376167509,0.141440736366,0.137925196828,0.134819234711,0.132430033084,0.130040831456,0.127037263695,0.124648062067,0.121883414469,0.119425949938,0.116797828147,0.114374495068,0.111405058759,0.108981725679,0.106490129696,0.103588956291,0.101609332085,0.0988446844872,0.0980596610952,0.0956363280155,0.0938956239724,0.0933495207432,0.0922914457366,0.0913357650855,0.0903459529826,0.0895267981387,0.0882639344212,0.0871717279628,0.0871034650591,0.0869328078,0.0872399908664,0.0872741223182,0.0876154368365,0.0872058594146,0.0860112586007,0.0859088642452,0.0849873150459,0.0846460005277,0.0842022916539,0.0838951085875,0.0838609771357,0.083792714232,0.0837244513284,0.0836903198766,0.0835537940693,0.0841340287503,0.0840657658466,0.0843046860094,0.0842022916539,0.0837585827802,0.0838609771357,0.0842364231058,0.0838951085875,0.0837585827802,0.0827346392254,0.0819496158334,0.0827687706773,0.0828370335809,0.0829052964846,0.0827005077736,0.08263224487,0.0822567988999,0.0821202730926,0.0821202730926,0.0817448271225,0.0819496158334,0.0823591932554,0.0822567988999,0.0821202730926,0.082427456159,0.0824615876108,0.0823591932554,0.0817789585743,0.081642432767,0.0820520101889,0.0827346392254,0.0829052964846,0.0823933247072,0.0826663763218,0.0823250618035,0.0822567988999,0.0825639819663,0.0831783480992,0.0828370335809,0.0819154843816,0.0822909303517,0.0821202730926,0.0816765642188,0.0809256722787,0.0814376440561,0.0814717755079,0.0819154843816,0.0813352497006,0.080857409375,0.0798675972721,0.0805502263086,0.0802430432422,0.0802430432422,0.0802430432422,0.0804137005013,0.0802089117903,0.0797310714648,0.0790825738801,0.0787753908137,0.0782292875844,0.0774101327406,0.077922104518,0.0783316819399,0.0784682077472,0.0790825738801,0.0797652029166,0.0792532311392,0.0788095222655,0.0804137005013,0.0809256722787,0.0817789585743,0.0820178787371,0.0813693811524,0.0806184892122,0.0806184892122,0.0807891464714,0.0803454375976,0.0801065174349,0.080072385983,0.0810963295378,0.0803454375976,0.0801406488867,0.0799358601757,0.0800382545312,0.0796969400129,0.0808915408268,0.0796286771093,0.0792532311392,0.0797993343684,0.0803795690495,0.0802430432422,0.0806184892122,0.0810963295378,0.080857409375,0.0818130900261,0.0819837472853,0.0824615876108,0.0822567988999,0.0821202730926,0.0825981134181,0.0829394279364,0.0825639819663,0.0827346392254,0.0825639819663,0.0813011182488,0.080857409375,0.0808232779232,0.0812669867969,0.0814717755079,0.0815059069597,0.0817789585743,0.0828370335809,0.0831783480992,0.0834172682619,0.0839633714912,0.0835537940693,0.0841340287503,0.0842364231058,0.0844753432685,0.0840316343948,0.0852944981124,0.0843388174612,0.0850897094014,0.0854651553715,0.0848507892386,0.0841340287503,0.0837585827802,0.0836903198766,0.0831442166473,0.0838951085875,0.0824957190627,0.0826663763218,0.0823591932554,0.0817789585743,0.081642432767,0.0814717755079,0.0807208835677,0.0807891464714,0.0809256722787,0.0808232779232,0.0809598037305,0.0806867521159,0.0806184892122,0.0796286771093,0.0800382545312,0.0798675972721,0.0794580198502,0.0783316819399,0.0776490529034,0.0768298980596,0.0763861891859,0.0763179262822,0.0756694286975,0.0758400859566,0.0763179262822,0.0764885835413,0.0752598512756,0.0756352972457,0.0749185367574,0.0746113536909,0.0743724335281,0.0745772222391,0.0752257198238,0.0752257198238,0.0752598512756,0.0751233254683,0.0760790061194,0.0756352972457,0.0763179262822,0.0771029496742,0.0769322924151,0.0766933722523,0.077137081126,0.0763861891859,0.0760448746676,0.0762155319267,0.0763179262822,0.0765909778968,0.0766592408005,0.0768298980596,0.0768298980596,0.076556846445,0.076556846445,0.0772736069333,0.0778538416144,0.0784340762954,0.078126893229,0.0776490529034,0.0777173158071,0.0773077383852,0.0764885835413,0.076556846445,0.0775807899998,0.0768981609632,0.0772053440297,0.0774783956443,0.0773760012888,0.0777855787107,0.0773077383852,0.0769664238669,0.0769322924151,0.0772053440297,0.0769664238669,0.0774101327406,0.0770346867705,0.0771029496742,0.0774101327406,0.0773077383852,0.0767275037041,0.0774101327406,0.0780586303253,0.0780586303253,0.0772394754815,0.0772394754815,0.0767275037041,0.0773077383852,0.0762496633786,0.0766933722523,0.076352057734,0.0764544520895,0.075976611764,0.0760107432158,0.0759083488603,0.0769664238669,0.0770688182224,0.0775807899998,0.0776490529034,0.0772053440297,0.0767957666078,0.0768981609632,0.0771029496742,0.0772736069333,0.0774101327406,0.0764885835413,0.0763861891859,0.0762155319267,0.0770346867705,0.0768981609632,0.0765227149932,0.0765909778968,0.075976611764,0.0759424803121,0.0755329028902,0.0763179262822,0.0764544520895,0.0766592408005,0.0760790061194,0.0758400859566,0.0762837948304,0.0761472690231,0.0760448746676,0.0756011657939,0.0763179262822,0.0762155319267,0.0763861891859,0.0765227149932,0.0770005553187,0.0768298980596,0.0775466585479,0.0772394754815,0.0777514472589,0.0777173158071,0.0776490529034,0.0777173158071,0.0772394754815,0.0773760012888,0.0770346867705,0.0762155319267,0.0760448746676,0.0766251093486,0.0771712125778,0.0774442641925,0.0764203206377,0.075771823053,0.0758059545048,0.0756011657939,0.0762155319267,0.0764885835413,0.0764203206377,0.0761814004749,0.0767616351559,0.0759424803121,0.0759424803121,0.0764885835413,0.0764203206377,0.0762837948304,0.0771029496742,0.0771712125778,0.0765909778968,0.0770346867705,0.077341869837,0.0770346867705,0.0767957666078,0.077341869837,0.0772053440297,0.0766592408005,0.0764203206377,0.0758059545048,0.0761472690231,0.0761472690231,0.0761814004749,0.0763179262822,0.0761472690231,0.0767616351559,0.0769664238669,0.076556846445,0.0761472690231,0.0767616351559,0.0772053440297,0.0775125270961,0.0771712125778,0.0767957666078,0.0768981609632,0.0763861891859,0.0759424803121,0.0756011657939,0.074986799661,0.0753281141793,0.0753963770829,0.0751233254683,0.0761472690231,0.0766251093486,0.0766933722523,0.0762837948304,0.0764203206377,0.0762837948304,0.0765227149932,0.0770688182224,0.0772736069333,0.0770346867705,0.0766251093486,0.0767275037041,0.0767957666078,0.0777514472589,0.0774783956443,0.078126893229,0.0783316819399,0.0782634190363,0.0785364706509,0.0787412593618,0.0789460480728,0.0792190996874,0.0791508367837,0.0789460480728,0.079287362591,0.0790484424283,0.0790484424283,0.0796969400129,0.0790143109764,0.078911916621,0.0796286771093,0.0801406488867,0.080072385983,0.0799017287239,0.0801065174349,0.0796969400129,0.0789460480728,0.0788436537173,0.0785023391991,0.0791508367837,0.0795262827538,0.0796628085611,0.0793897569465,0.079492151302,0.079287362591,0.0790143109764,0.0788436537173,0.078911916621,0.0786729964582,0.0785706021027,0.0784340762954,0.0779562359698,0.0783999448436,0.0783999448436,0.0789460480728,0.0791508367837,0.0789460480728,0.0801747803385,0.0801406488867,0.0802430432422,0.0801406488867,0.0804478319531,0.0809939351823,0.0808232779232,0.0812328553451,0.0815059069597,0.0814717755079,0.0815400384115,0.0815059069597,0.0818130900261,0.0815400384115,0.0820861416407,0.0815741698634,0.0815400384115,0.081062198086,0.0813693811524,0.0809256722787,0.0806526206641,0.0812328553451,0.0811987238933,0.0816765642188,0.0818130900261,0.0821885359962,0.082427456159,0.0825981134181,0.08263224487,0.0834513997138,0.0834513997138,0.0827687706773,0.0828370335809,0.0830418222919,0.0825298505145,0.0827005077736,0.0816765642188,0.0818813529298,0.0810963295378,0.0806184892122,0.0805843577604,0.0802089117903,0.0805160948568,0.0804478319531,0.0809939351823,0.0812669867969,0.0809598037305,0.0809939351823,0.0807891464714,0.0808915408268,0.0807891464714,0.0814376440561,0.0814035126042,0.0815059069597,0.0807550150195,0.080857409375,0.0812669867969,0.0807550150195,0.0799699916276,0.0795604142056,0.0801406488867,0.0803795690495,0.0804137005013,0.0803454375976,0.0804137005013,0.0805843577604,0.0809598037305,0.0810280666342,0.0810963295378,0.0801747803385,0.0806526206641,0.0798675972721,0.0795604142056,0.0796286771093,0.080277174694,0.0803113061458,0.0806526206641,0.0809256722787,0.0809256722787,0.0808232779232,0.079492151302,0.0784682077472,0.0789460480728,0.0796286771093,0.079492151302,0.0799358601757,0.0803454375976,0.0805502263086,0.0809598037305,0.0816083013152,0.0819154843816,0.0821544045444,0.0823250618035,0.0829052964846,0.0828711650327,0.0834513997138,0.0824615876108,0.0822567988999,0.0820178787371,0.0821544045444,0.0815059069597,0.0806184892122,0.080072385983,0.080277174694,0.0811304609896,0.0816083013152,0.0813693811524,0.0824615876108,0.0827346392254,0.0828711650327,0.0828711650327,0.08300769084,0.082427456159,0.0820861416407,0.0820178787371,0.0824957190627,0.0831442166473,0.0837244513284,0.0830759537437,0.0823933247072,0.0825639819663,0.0821202730926,0.0814717755079,0.0811304609896,0.0811645924415,0.0806184892122,0.0808915408268,0.0811645924415,0.0807550150195,0.0802089117903,0.0809256722787,0.081062198086,0.0817448271225,0.0811987238933,0.0813011182488,0.0809256722787,0.0804819634049,0.0806184892122,0.0810963295378,0.0809939351823,0.0806184892122,0.080072385983,0.0797993343684,0.0793214940429,0.078911916621,0.0789460480728,0.0788436537173,0.0787753908137,0.0783316819399,0.0785023391991,0.0776831843552,0.077341869837,0.0774101327406,0.0773077383852,0.0781610246808,0.0786388650064,0.0781951561326,0.077922104518,0.0780927617771,0.0785364706509,0.0782975504881,0.079287362591,0.0792190996874,0.0789460480728,0.0783999448436,0.0782634190363,0.078126893229,0.0774101327406,0.0776149214516,0.0759083488603,0.0736898044916,0.0716760488339,0.0700718705981,0.0678874576813,0.0656006504089,0.0634503689439,0.0607539842497,0.0589450173029,0.0569312616452,0.0548492430839,0.0529720132334,0.0506510745093,0.0484325301406,0.0463505115793,0.0447122018916,0.0426301833303,0.0409918736426)
m <- c(0.0403303396601,0.0432013129918,0.0453545429906,0.047747020767,0.0495926464803,0.0514724504475,0.0535915021924,0.0560523364767,0.0584106359992,0.0603246182204,0.0624436699652,0.0645627217101,0.066613416947,0.0692451425011,0.0719452245631,0.0752605151962,0.0773112104331,0.0795669751938,0.0790543013845,0.0798745794793,0.0804556097964,0.0799771142412,0.079396083924,0.079430262178,0.0785416275753,0.0784049145595,0.0789175883687,0.0783023797976,0.0786099840832,0.0786099840832,0.0786099840832,0.0783707363055,0.078712518845,0.0788834101148,0.0789175883687,0.0794986186859,0.0803872532885,0.0797036882096,0.0797378664635,0.0801821837649,0.0802505402727,0.0803530750346,0.0805581445583,0.0805239663043,0.0801821837649,0.0801821837649,0.0802163620188,0.0797720447175,0.0800112924951,0.0794986186859,0.0795327969398,0.0788492318608,0.0790201231306,0.078712518845,0.078712518845,0.0789517666227,0.0790543013845,0.079430262178,0.0788834101148,0.0781998450358,0.0791226578924,0.0790884796385,0.0788150536069,0.0789175883687,0.0786783405911,0.0788492318608,0.0789175883687,0.0789859448766,0.0790884796385,0.0789517666227,0.0788150536069,0.0785758058292,0.0776529929726,0.0777213494805,0.0777897059884,0.0776188147187,0.0775162799568,0.0785758058292,0.07806313202,0.0778922407503,0.0786441623371,0.0789175883687,0.0785074493213,0.0787808753529,0.0787808753529,0.078712518845,0.0779605972582,0.0775846364647,0.0775504582108,0.0774479234489,0.0779947755121,0.0778238842424,0.0770036061476,0.0772086756713,0.0776188147187,0.0780973102739,0.0777897059884,0.0777213494805,0.0778238842424,0.0786783405911,0.0786783405911,0.0786441623371,0.0780973102739,0.0781998450358,0.0781656667818,0.078712518845,0.0787808753529,0.0785758058292,0.0790201231306,0.0791226578924,0.0791226578924,0.0783707363055,0.0788150536069,0.0784390928134,0.0795669751938,0.079396083924,0.0786783405911,0.0786441623371,0.0792935491622,0.0796011534477,0.0796011534477,0.0796695099556,0.0795327969398,0.079430262178,0.0798404012254,0.0805239663043,0.080079649003,0.0798062229714,0.0794986186859,0.0795669751938,0.079396083924,0.0790543013845,0.0793277274161,0.079430262178,0.078746697099,0.07806313202,0.0781656667818,0.0782682015437,0.0790884796385,0.078746697099,0.0785074493213,0.0785416275753,0.078746697099,0.0790201231306,0.0790884796385,0.0787808753529,0.0779264190042,0.07806313202,0.0772086756713,0.0762175063067,0.0751921586883,0.0748845544027,0.074679484879,0.074030098054,0.0737566720224,0.0738933850382,0.0731756417053,0.073346532975,0.0741668110698,0.074030098054,0.0738592067842,0.0734832459908,0.0742009893237,0.0740642763079,0.0749870891646,0.0754314064659,0.0759782585291,0.0763883975765,0.0765251105923,0.0765251105923,0.0775162799568,0.077379566941,0.0778922407503,0.0775162799568,0.0777897059884,0.0778238842424,0.0779605972582,0.0780973102739,0.0783365580516,0.0784390928134,0.0783023797976,0.0785758058292,0.0798404012254,0.0799771142412,0.0805923228122,0.0812417096373,0.0813100661452,0.0819252747163,0.0821987007479,0.0826430180492,0.0828822658268,0.0829506223347,0.0839417916993,0.0834974743979,0.0832582266203,0.0836341874137,0.083463296144,0.0831556918584,0.0822670572558,0.0820278094781,0.0816860269386,0.0812075313833,0.0801821837649,0.0802847185267,0.0796695099556,0.0793619056701,0.0785758058292,0.0781998450358,0.0779605972582,0.0786783405911,0.0777897059884,0.0779947755121,0.0777213494805,0.076696001862,0.076046615037,0.075363049958,0.0749529109106,0.0751238021804,0.0744744153553,0.0742009893237,0.0745769501172,0.0744744153553,0.0747478413869,0.0745769501172,0.0746111283711,0.0748161978948,0.0743377023395,0.0738592067842,0.0732781764671,0.0729705721816,0.0727313244039,0.0723553636105,0.0722186505947,0.0725604331342,0.0728338591658,0.0731072851974,0.0724237201184,0.0723895418644,0.0729705721816,0.0724237201184,0.0723211853565,0.0722870071026,0.0723211853565,0.0729705721816,0.0721844723407,0.0718768680552,0.0719452245631,0.0721161158328,0.0730047504355,0.0732781764671,0.0738933850382,0.0744744153553,0.0741326328158,0.0735857807527,0.0737566720224,0.0738592067842,0.0731414634513,0.0728338591658,0.0730047504355,0.0723211853565,0.0723211853565,0.0721502940868,0.0722528288486,0.0727313244039,0.0727996809118,0.0738933850382,0.0745769501172,0.0751579804343,0.0752946934501,0.0753288717041,0.0754655847199,0.0754997629738,0.076046615037,0.0763542193225,0.0763200410686,0.0762516845607,0.0766276453541,0.0770719626555,0.0770377844015,0.076730180116,0.0765934671002,0.0762858628146,0.0763542193225,0.0758415455133,0.0750212674185,0.0755339412278,0.0745427718632,0.0743377023395,0.0750212674185,0.0748845544027,0.0748845544027,0.0745427718632,0.0750212674185,0.075397228212,0.0754997629738,0.0766618236081,0.0762175063067,0.0763542193225,0.0760807932909,0.0759782585291,0.0763542193225,0.0759099020212,0.0747478413869,0.074030098054,0.0738592067842,0.0739275632921,0.0732439982132,0.0725262548802,0.0723211853565,0.0710907682144,0.0707489856749,0.0711591247223,0.0711933029762,0.0705780944051,0.0706122726591,0.0711249464683,0.0720819375789,0.0718768680552,0.0719110463091,0.0721502940868,0.0723895418644,0.0717059767854,0.0722528288486,0.0722528288486,0.0724237201184,0.0724920766263,0.0724920766263,0.0727655026579,0.0724578983723,0.0725262548802,0.0716034420236,0.0710565899604,0.0710565899604,0.0716034420236,0.072013581071,0.0712274812302,0.0712616594841,0.0714667290078,0.0718085115473,0.0723895418644,0.0721844723407,0.072013581071,0.0727655026579,0.0736199590066,0.0740984545619,0.074713663133,0.0751921586883,0.074679484879,0.0749529109106,0.0757390107515,0.0757048324975,0.076012436783,0.0754314064659,0.0754314064659,0.0758415455133,0.0757048324975,0.0759099020212,0.076730180116,0.0767985366239,0.0765934671002,0.0764567540844,0.0775504582108,0.0776871712266,0.0773112104331,0.0777897059884,0.0770036061476,0.0776871712266,0.0778580624963,0.0786441623371,0.0777555277345,0.0774821017029,0.0781314885279,0.0776871712266,0.0774479234489,0.077413745195,0.077413745195,0.0783365580516,0.0785416275753,0.078746697099,0.0786783405911,0.0785074493213,0.0792593709082,0.0793619056701,0.0794644404319,0.0793619056701,0.0791910144003,0.0792593709082,0.0789859448766,0.0792251926543,0.0795327969398,0.0792251926543,0.0785758058292,0.0790201231306,0.0790884796385,0.0793277274161,0.0798062229714,0.0797378664635,0.0783365580516,0.0786783405911,0.0797378664635,0.0794644404319,0.0793619056701,0.0793619056701,0.0790543013845,0.078712518845,0.0791910144003,0.0798062229714,0.0799429359872,0.0803188967806,0.0803872532885,0.0809341053517,0.0811733531294,0.080729035828,0.0806265010662,0.0803530750346,0.080729035828,0.080079649003,0.0800112924951,0.0800112924951,0.080729035828,0.0811733531294,0.0802505402727,0.0803872532885,0.0805923228122,0.0810708183675,0.0815151356689,0.0816518486847,0.0828139093189,0.0824037702715,0.0820278094781,0.0817885617005,0.0818227399544,0.0822670572558,0.0825404832873,0.0824037702715,0.0816518486847,0.0819252747163,0.0825746615413,0.0823354137637,0.0823354137637,0.0830873353505,0.0829164440808,0.082745552811,0.0826771963031,0.0821987007479,0.0826430180492,0.0825746615413,0.0816860269386,0.0821645224939,0.0817543834465,0.0823695920176,0.0815834921768,0.0817885617005,0.0815151356689,0.0814809574149,0.0810024618596,0.0804556097964,0.0812075313833,0.0813100661452,0.0815493139228,0.0810024618596,0.0805581445583,0.0810708183675,0.0806265010662,0.0806606793201,0.0806606793201,0.080763214082,0.0799771142412,0.0798062229714,0.0800112924951,0.0796695099556,0.0804214315425,0.0799429359872,0.0799429359872,0.0804556097964,0.0805239663043,0.0800454707491,0.0804897880504,0.080079649003,0.0797720447175,0.0803530750346,0.0798404012254,0.0800112924951,0.0805923228122,0.0795669751938,0.080079649003,0.0789517666227,0.079396083924,0.0792935491622,0.0796353317017,0.0799771142412,0.0796695099556,0.0794644404319,0.0795669751938,0.0802163620188,0.0794986186859,0.079430262178,0.079396083924,0.0789175883687,0.0795327969398,0.0793277274161,0.0789175883687,0.0789175883687,0.079396083924,0.0798745794793,0.0803530750346,0.0804556097964,0.0795669751938,0.0802163620188,0.0810024618596,0.0803530750346,0.0808657488438,0.0811391748754,0.0804214315425,0.0810708183675,0.0811049966215,0.0812758878912,0.0812417096373,0.0812075313833,0.0818569182084,0.0819252747163,0.0819594529702,0.0832924048742,0.082779731065,0.0830873353505,0.08213034424,0.0820619877321,0.0826088397952,0.0828822658268,0.0824379485255,0.0821987007479,0.0823695920176,0.08342911789,0.0840101482072,0.0842835742388,0.0847278915401,0.0852405653493,0.086129199952,0.086812765031,0.0872570823323,0.0869836563007,0.0866418737613,0.086812765031,0.0874279736021,0.0875988648718,0.0873596170942,0.0874279736021,0.0869836563007,0.0861975564599,0.0858557739204,0.0854114566191,0.0856507043967,0.0853431001112,0.0849329610638,0.0850696740796,0.0842493959848,0.0846595350322,0.0848304263019,0.0838734351914,0.0838392569374,0.0839076134453,0.0848646045559,0.084796248048,0.084762069794,0.0846253567782,0.0851038523335,0.0847278915401,0.0851038523335,0.0845911785243,0.0850354958256,0.0850354958256,0.0846253567782,0.0842493959848,0.0843177524927,0.0841810394769,0.0838734351914,0.0844202872546,0.0848646045559,0.0848304263019,0.0851038523335,0.0851722088414,0.0853772783651,0.0865051607455,0.0878722909034,0.0896495601088,0.0912217597904,0.0927939594721,0.0946395851854,0.0958700023275,0.0986042626435,0.100791670896,0.10393607026,0.106431082798,0.108481778035,0.111455286128,0.114462972476,0.116342776443,0.119077036759,0.122016366599,0.124613913899,0.128031739294,0.130287504054,0.132201486276,0.134423072782,0.136576302781,0.137943432939,0.140780228017,0.143514488333,0.145428470554,0.147786770076,0.149871643567,0.15222994309,0.153904677533,0.156160442294,0.158757989594,0.161082110863,0.162654310544,0.164021440702,0.164807540543,0.164705005781,0.164294866734,0.164226510226,0.163611301655,0.162244171497,0.161868210703,0.160706150069,0.158757989594,0.156878185627,0.15499838166,0.153152755946,0.15076027817,0.148812117695,0.147479165791,0.144984153253,0.142249892937,0.139720702144,0.136542124527,0.135072459607,0.132953407862,0.130082434531,0.128681126119,0.127382352469,0.1250582312,0.122494862154,0.121366979774,0.119111215013,0.116992163268,0.114873111523,0.113574337873,0.111181860097,0.108721025812,0.106431082798,0.10523484391,0.103833535498,0.102500583594,0.101201809944,0.100176462325,0.0999713928014,0.099629610262,0.0993220059764,0.0985017278816,0.0975447367711,0.0968269934381,0.0956307545499,0.0952547937565,0.0952206155025,0.095528219788,0.0956307545499,0.0963484978828,0.0957332893117,0.0959725370894,0.0961092501052,0.0967928151842,0.0961776066131,0.0967586369302,0.0972713107395,0.0970320629618,0.0966561021684,0.0966561021684,0.0969637064539,0.0968269934381,0.0967928151842,0.0971004194697,0.0975105585171,0.0964852108986,0.0962801413749,0.0961776066131,0.0972713107395,0.0961776066131,0.0965535674065,0.0972029542316,0.09822830185,0.09822830185,0.0983308366119,0.0980915888342,0.0977498062947,0.0981599453421,0.0980915888342,0.0981941235961,0.0986384408974,0.0987751539132,0.0987067974053,0.0983991931198,0.0975105585171,0.0966219239144,0.0966561021684,0.0960408935973,0.0966561021684,0.0963484978828,0.0963826761368,0.096245963121,0.0963143196289,0.095562398042,0.0952547937565,0.0943661591538,0.093545881059,0.0931015637577,0.0931699202656,0.0929306724879,0.0923838204247,0.0923154639168,0.0930332072498,0.0931699202656,0.0919395031234,0.0919053248694,0.0913242945523,0.0899571643943,0.0886242124903,0.0888976385219,0.088179895189,0.0887951037601,0.0891710645535,0.0882824299508,0.0887267472522,0.0882140734429,0.0879748256653,0.0884191429666,0.0880431821732,0.0878381126495,0.0886242124903,0.0881115386811,0.0879748256653,0.0882140734429,0.0877355778876,0.0876330431258,0.0879064691574,0.0880773604271,0.0879064691574,0.0882140734429,0.0878039343955,0.0889318167758,0.0893761340772,0.088829282014,0.0885216777285,0.0885558559824,0.0888976385219,0.0892394210614,0.0887609255061,0.0889318167758,0.0882824299508,0.0888976385219,0.0887609255061,0.0895470253469,0.090196412172,0.0899571643943,0.0898546296325,0.0890001732837,0.0893761340772,0.0899229861404,0.0895812036009,0.0900938774101,0.0906407294733,0.0896495601088,0.0900596991562,0.0898888078864,0.089512847093,0.0905381947115,0.0904014816957,0.0904014816957,0.0903673034417,0.0902305904259,0.0894444905851,0.0890001732837,0.0892052428074,0.0889318167758,0.0889659950298,0.0882482516969,0.0883507864587,0.0887609255061,0.0890685297916,0.0887951037601,0.088829282014,0.0889318167758,0.088829282014,0.0882482516969,0.0886242124903,0.0884874994745,0.0886925689982,0.0882140734429,0.0876672213797,0.0867444085231,0.0869836563007,0.0866760520152,0.0859924869362,0.0864368042376,0.0866076955073,0.0868811215389,0.0855823478888,0.0857190609046,0.0858215956665,0.0862659129678,0.0858215956665,0.0853772783651,0.0858557739204,0.085479813127,0.0856507043967,0.0856848826507,0.0861975564599,0.086129199952,0.086129199952,0.0858899521744,0.0868811215389,0.0869836563007,0.0864709824915,0.0870178345547,0.0863684477297,0.0865735172534,0.0867444085231,0.0863342694757,0.0866076955073,0.0875646866179,0.0876330431258,0.0877355778876,0.0871545475705,0.0874279736021,0.0873596170942,0.0878722909034,0.0880431821732,0.0885900342364,0.0883849647127,0.0877697561416,0.0872570823323,0.0866760520152,0.0871203693165,0.0869494780468,0.0864026259836,0.0863684477297,0.0863684477297,0.0860950216981,0.0858557739204,0.0868811215389,0.0864026259836,0.0866076955073,0.086812765031,0.086812765031,0.086812765031,0.0869836563007,0.086163378206,0.0863000912218,0.0866076955073,0.0862317347139,0.0858557739204,0.0857190609046,0.0849329610638,0.0854114566191,0.0846937132861,0.083463296144,0.0838392569374,0.0833265831282,0.0844544655085,0.0847278915401,0.0853089218572,0.0860608434441,0.0856165261428,0.0850696740796,0.0856507043967,0.0855481696349,0.086129199952,0.0862659129678,0.0866418737613,0.0872912605863,0.0869836563007,0.0864709824915,0.0864026259836,0.0870178345547,0.086778586777,0.0860266651902,0.0863342694757,0.085479813127,0.0849329610638,0.0842835742388,0.0840785047151,0.0836000091598,0.0839076134453,0.0833949396361,0.083463296144,0.08342911789,0.0836000091598,0.0832924048742,0.08342911789,0.0823695920176,0.0824379485255,0.0829848005887,0.0822328790018,0.0822328790018,0.0812417096373,0.0806606793201,0.0804556097964,0.0799429359872,0.0798745794793,0.0795327969398,0.0792935491622,0.0789175883687,0.0784390928134,0.078712518845,0.0781998450358,0.0771403191634,0.0769010713857,0.076730180116,0.0767985366239,0.0758073672594,0.0759099020212,0.0753288717041,0.0744744153553,0.0744060588474,0.0747820196409,0.0751921586883,0.0747478413869,0.0756364759896,0.0757048324975,0.0758757237673,0.0757048324975,0.0754655847199,0.0755339412278,0.0755681194817,0.0757048324975,0.0761833280528,0.0762858628146,0.0762175063067,0.0761149715449,0.0761149715449,0.0754314064659,0.0752605151962,0.0751921586883,0.0749187326567,0.0755339412278,0.0760807932909,0.075397228212,0.0759099020212,0.0758757237673,0.0757048324975,0.0758073672594,0.0764909323383,0.0771744974173,0.0771744974173,0.0775504582108,0.0779264190042,0.0781998450358,0.0786783405911,0.0791910144003,0.0803188967806,0.0802847185267,0.0806948575741,0.0805923228122,0.0806265010662,0.0801480055109,0.0798404012254,0.0796353317017,0.0790543013845,0.0790884796385,0.0790201231306,0.0787808753529,0.0783023797976,0.0779947755121,0.0773453886871,0.0778238842424,0.0779605972582,0.0784390928134,0.0780289537661,0.0780289537661,0.0786099840832,0.0780973102739,0.0780289537661,0.0782682015437,0.0783365580516,0.0786441623371,0.0784049145595,0.0786099840832,0.0781314885279,0.0779947755121,0.0783365580516,0.0778580624963,0.0774821017029,0.0772428539252,0.0770036061476,0.0766276453541,0.075397228212,0.0750212674185,0.0748161978948,0.0747820196409,0.0743035240856,0.0743035240856,0.074679484879,0.0746453066251,0.075363049958,0.075363049958,0.0752263369422,0.0752605151962,0.0754997629738,0.076012436783,0.0760807932909,0.0764567540844,0.0763200410686,0.0760807932909,0.0765934671002,0.0767985366239,0.0767643583699,0.0767643583699,0.0770036061476,0.0779264190042,0.0777213494805,0.0774479234489,0.077413745195,0.0769010713857,0.077379566941,0.0775162799568,0.0775846364647,0.0777213494805,0.0774479234489,0.0775846364647,0.0773453886871,0.0777213494805,0.0784390928134,0.0782340232897,0.0781314885279,0.0780289537661,0.0772770321792,0.0772086756713,0.0763883975765,0.0759099020212,0.0754655847199,0.0755681194817,0.0754314064659,0.0751921586883,0.0750896239264,0.0757390107515,0.0759782585291,0.0754314064659,0.076046615037,0.0766276453541,0.0771744974173,0.0768327148778,0.076696001862,0.0765251105923,0.0760807932909,0.0755681194817,0.076046615037,0.0762858628146,0.0763542193225,0.0771061409094,0.0769010713857,0.0770036061476,0.0766276453541,0.0771061409094,0.0778238842424,0.0774479234489,0.0776871712266,0.0774821017029,0.0771061409094,0.0772770321792,0.0771061409094,0.0779605972582,0.0787808753529,0.0788150536069,0.0793619056701,0.0792935491622,0.079430262178,0.0792593709082,0.0800454707491,0.0806948575741,0.0808999270978,0.0799771142412,0.0798062229714,0.0796353317017,0.0791568361464,0.0784390928134,0.0778922407503,0.0781314885279,0.0782340232897,0.0786783405911,0.0793619056701,0.0795327969398,0.078712518845,0.0781656667818,0.0778238842424,0.0782340232897,0.0782682015437,0.0778238842424,0.0779605972582,0.0770719626555,0.0770377844015,0.0773112104331,0.0776529929726,0.0780973102739,0.0785074493213,0.07806313202,0.0782682015437,0.0774479234489,0.0775162799568,0.0780973102739,0.0786441623371,0.0790543013845,0.079396083924,0.0797036882096,0.0792251926543,0.0786099840832,0.0785758058292,0.0784732710674,0.078746697099,0.0787808753529,0.0784049145595,0.0786441623371,0.078746697099,0.0786099840832,0.0782682015437,0.0776871712266,0.077413745195,0.0771744974173,0.0771403191634,0.0773112104331,0.0772770321792,0.0767985366239,0.0764909323383,0.0772086756713,0.0770377844015,0.0774821017029,0.0772770321792,0.0770719626555,0.0765251105923,0.0764909323383,0.0757048324975,0.0757048324975,0.0754997629738,0.0757390107515,0.0759782585291,0.0758757237673,0.0749187326567,0.0749187326567,0.0744060588474,0.0743035240856,0.0742693458316,0.0743718805935,0.074713663133,0.0752605151962,0.0754655847199,0.0758073672594,0.0764567540844,0.0767985366239,0.0772428539252,0.0777555277345,0.0780289537661,0.0786099840832,0.0788150536069,0.0787808753529,0.079430262178,0.0792251926543,0.0797036882096,0.0794644404319,0.0792935491622,0.0785758058292,0.0788834101148,0.0793619056701,0.0798404012254,0.0805923228122,0.0810708183675,0.080729035828,0.081412600907,0.0821645224939,0.0820619877321,0.0825746615413,0.0823354137637,0.0816860269386,0.0822328790018,0.080113827257,0.0781314885279,0.0758073672594,0.0736883155145,0.0716717985315,0.0692451425011,0.0667159517089,0.0643576521864,0.0619993526639,0.0595385183795,0.0572827536189,0.0546852063187,0.0520534807646,0.0497635377501,0.0474394164815,0.0449785821972,0.0428253521984,0.040364517914)
s <- c(0.0403693667503,0.0406630249594,0.0404211887872,0.040127530578,0.0401448045903,0.0396956802705,0.0396265842213,0.0398856944058,0.0395747621844,0.0397302282951,0.0397302282951,0.0397302282951,0.039609310209,0.039782050332,0.0398684203935,0.0398856944058,0.0401793526149,0.0406284769348,0.0402829966887,0.0604244950331,0.0614263877466,0.0624455544725,0.0635683652721,0.0650366563178,0.0659521789698,0.0669022496464,0.0678695943354,0.0687160209382,0.0698042837132,0.0710825606236,0.0718598911772,0.0729999759891,0.0735009223459,0.0750901314777,0.0762302162896,0.0775775892492,0.0790804283195,0.079339538504,0.0796331967132,0.0793913605409,0.0791840723933,0.079736840787,0.0797195667747,0.0793740865286,0.0795468266517,0.0794777306025,0.0795122786271,0.0798577588731,0.079736840787,0.079736840787,0.0799614029469,0.0802205131314,0.0800995950453,0.0795986486886,0.0795295526394,0.0792013464056,0.0793913605409,0.0798923068977,0.0804450752914,0.0799959509715,0.080082321033,0.0803414312176,0.080652363439,0.0808769255989,0.0807905555374,0.0805659933775,0.0805659933775,0.0800650470207,0.0800132249838,0.0793568125163,0.0794604565901,0.0794259085655,0.0788731401719,0.0781649056675,0.077853973446,0.0778366994337,0.0781303576429,0.0780612615937,0.0780267135691,0.0781821796798,0.0789249622088,0.0790631543072,0.0792013464056,0.0785103859135,0.0789249622088,0.0789595102334,0.0790458802949,0.0790804283195,0.0788040441227,0.079166798381,0.0794086345532,0.0797541147993,0.0794604565901,0.079166798381,0.0788040441227,0.0792531684425,0.0790804283195,0.0784585638766,0.0781994536921,0.0781130836306,0.0781303576429,0.0783030977659,0.0781130836306,0.0783894678274,0.0782858237536,0.0785103859135,0.0784758378889,0.0783030977659,0.078078535606,0.0782685497413,0.0786831260365,0.0786313039996,0.0782340017167,0.078424015852,0.0784931119012,0.0779403435076,0.0775257672123,0.0772666570278,0.0771802869663,0.0779057954829,0.0776466852984,0.0774221231385,0.0771457389417,0.0771284649294,0.0771975609786,0.0768693547448,0.0763684083881,0.0756947219083,0.0756083518468,0.075280145613,0.0751246795023,0.0744682670348,0.0744337190102,0.0744682670348,0.0742437048749,0.0742609788872,0.0742437048749,0.073967320678,0.0741055127765,0.0742264308626,0.0742782528995,0.0744855410471,0.074537363084,0.0748828433301,0.0750901314777,0.0750555834531,0.0752628716007,0.0755910778345,0.0757983659821,0.0756947219083,0.0755392557975,0.0761265722158,0.0759883801174,0.0762820383265,0.0762474903019,0.0762302162896,0.0763684083881,0.0766620665972,0.076938450794,0.077111190917,0.0773703011016,0.0775084932,0.0778194254214,0.078596755975,0.0786313039996,0.0790977023318,0.0791149763441,0.0790804283195,0.0792704424548,0.079564100664,0.0799786769592,0.0802377871437,0.0804623493037,0.0811014877589,0.0810151176973,0.0810323917096,0.0812915018942,0.080997843685,0.0808423775743,0.080479623316,0.080306883193,0.0804105272668,0.0802377871437,0.0796331967132,0.0798750328854,0.079736840787,0.0795813746763,0.079166798381,0.0787522220858,0.0788558661596,0.0789767842457,0.0783894678274,0.0780094395568,0.0780958096183,0.0778885214706,0.0774739451754,0.0770420948678,0.0766620665972,0.0767829846833,0.0763165863511,0.0761265722158,0.076022928142,0.0761438462281,0.0762647643142,0.0762129422773,0.0761783942527,0.0761092982035,0.0758329140067,0.0755565298098,0.0746755551824,0.0746410071578,0.0743473489487,0.0740364167273,0.0740536907396,0.0739154986411,0.0739327726534,0.0738982246288,0.0734836483336,0.0732418121614,0.0735354703705,0.073051798026,0.0728272358661,0.072879057903,0.07270631778,0.0730172500014,0.0725853996939,0.0725163036447,0.0727408658046,0.0730345240137,0.0732418121614,0.0730172500014,0.0731554420998,0.0736391144443,0.0736391144443,0.0732418121614,0.0731899901244,0.0734318262967,0.0732418121614,0.0731899901244,0.0734836483336,0.0731899901244,0.0733800042598,0.0732418121614,0.0729481539522,0.0733454562352,0.0735527443828,0.0740018687027,0.0746582811701,0.0752110495638,0.0755738038222,0.0753837896868,0.0757119959206,0.0757983659821,0.0760920241912,0.0762474903019,0.0764029564127,0.076592970548,0.0768693547448,0.0769902728309,0.0773184790647,0.0771975609786,0.0774393971508,0.0771975609786,0.0771457389417,0.0769557248063,0.076420230425,0.0768866287571,0.0766966146218,0.0762647643142,0.0768348067202,0.0770593688801,0.077111190917,0.0770420948678,0.0772839310401,0.0772321090032,0.0772493830155,0.0778366994337,0.0773530270893,0.0775603152369,0.0777330553599,0.0779576175199,0.0783030977659,0.0780094395568,0.0771457389417,0.0765584225234,0.0762647643142,0.0764893264742,0.0760574761666,0.0759711061051,0.0757638179575,0.0753665156745,0.0750901314777,0.075452885736,0.0753146936376,0.0750901314777,0.0747964732686,0.0751937755515,0.0751937755515,0.0751937755515,0.0755219817852,0.0758329140067,0.0763511343758,0.0763856824004,0.0765411485111,0.0767138886341,0.0769039027694,0.0767138886341,0.0765411485111,0.0768693547448,0.0768866287571,0.0773703011016,0.0772493830155,0.077111190917,0.0773703011016,0.0776639593107,0.0780958096183,0.0772839310401,0.077335753077,0.0775948632615,0.0778712474583,0.0782685497413,0.0784067418397,0.0783376457905,0.0789767842457,0.0794950046148,0.0802032391191,0.0805659933775,0.0808596515866,0.0805659933775,0.0810669397343,0.0817579002263,0.0818097222632,0.0818442702879,0.0819997363986,0.081965188374,0.0820342844232,0.0819997363986,0.081965188374,0.0820515584355,0.0822070245462,0.0823797646692,0.082137928497,0.0828461630014,0.0831225471982,0.0828461630014,0.0831052731859,0.0826734228784,0.082880711026,0.0828288889891,0.0833643833704,0.0828979850383,0.0828116149768,0.0833298353458,0.0833471093581,0.0832607392966,0.0832952873212,0.0833298353458,0.0839171517641,0.0841589879363,0.083968973801,0.0840035218256,0.083623493555,0.0838826037395,0.0842453579979,0.0844180981209,0.0843490020717,0.0843144540471,0.0844180981209,0.0843144540471,0.084366276084,0.0849017704653,0.0848499484284,0.0846253862685,0.0848672224407,0.0848326744161,0.0851781546622,0.0853336207729,0.0852645247237,0.0845908382439,0.0850399625638,0.0856791010189,0.0855063608959,0.0853336207729,0.0855236349082,0.0854890868836,0.0852299766991,0.0857481970682,0.0861627733634,0.0861109513265,0.0859209371912,0.0859036631789,0.0860418552773,0.0861109513265,0.085454538859,0.085454538859,0.0851263326253,0.0853854428098,0.0852990727483,0.0853336207729,0.0851781546622,0.0852127026868,0.0856445529943,0.085109058613,0.0856100049697,0.0861109513265,0.0864737055848,0.0863355134864,0.0861627733634,0.0866118976833,0.0863355134864,0.0860764033019,0.0858345671297,0.0859900332404,0.0862664174372,0.0866291716956,0.0864564315725,0.0858691151543,0.0858691151543,0.0862491434249,0.0863527874987,0.0864737055848,0.0868019118186,0.0864218835479,0.0860764033019,0.0858863891666,0.0861454993511,0.0866637197202,0.0866637197202,0.0862836914495,0.086767363794,0.0869746519416,0.0878729005813,0.0872337621261,0.0873201321877,0.0871992141015,0.0868710078678,0.0866637197202,0.0864046095356,0.0864218835479,0.0860591292896,0.0862836914495,0.0855236349082,0.0855581829328,0.086024581265,0.0858000191051,0.0857654710805,0.0859554852158,0.0858863891666,0.0853163467606,0.0850399625638,0.084884496453,0.0846944823177,0.0848326744161,0.0848326744161,0.0845908382439,0.0845735642316,0.0845908382439,0.0844699201578,0.0850572365761,0.0849190444776,0.0850745105884,0.0852127026868,0.0846599342931,0.0847463043546,0.0850399625638,0.0846081122562,0.0844526461455,0.0836407675673,0.0838480557149,0.0837616856534,0.0840035218256,0.0845735642316,0.0847981263915,0.0846944823177,0.0851436066376,0.0858691151543,0.0854372648467,0.0854199908344,0.0852472507114,0.0850745105884,0.0855409089205,0.0855063608959,0.0852472507114,0.0853336207729,0.0857309230558,0.0864737055848,0.086940103917,0.0870091999662,0.0869573779293,0.0872683101507,0.0878901745936,0.0874583242861,0.0876310644091,0.0875274203353,0.0872337621261,0.0875965163845,0.087682886446,0.0879592706428,0.0879765446551,0.0882183808274,0.088598409098,0.0883392989135,0.0883392989135,0.0888402452702,0.0890993554548,0.0891339034794,0.0889266153318,0.0889438893441,0.088995711381,0.0892548215655,0.0890302594056,0.0885638610734,0.0885293130488,0.0893757396516,0.0897212198977,0.0898421379838,0.0899285080453,0.0900667001437,0.0906367425497,0.091172236931,0.0914658951402,0.091224058968,0.0908785787219,0.0909649487834,0.091569539214,0.091569539214,0.0912413329803,0.0915349911894,0.0915522652017,0.0916040872386,0.0911204148941,0.0908613047096,0.0907058385989,0.0906367425497,0.0907403866235,0.0906021945251,0.0902394402667,0.0907922086604,0.0914140731033,0.0911895109433,0.0906194685374,0.0908094826727,0.0909476747711,0.0907058385989,0.090826756685,0.0905330984759,0.0905676465005,0.0907058385989,0.0908785787219,0.0909649487834,0.091224058968,0.0916904573001,0.0915868132263,0.0916731832878,0.0916213612509,0.0916213612509,0.0917768273616,0.0921741296446,0.0925714319275,0.0928650901367,0.0927096240259,0.0929341861859,0.0934696805672,0.0941260930347,0.0951107117359,0.0964926327201,0.0980818418519,0.0997228730206,0.101674836411,0.102607633075,0.104611418502,0.107202520347,0.109689978119,0.111918325706,0.113766645022,0.116357746868,0.119121588836,0.121660868644,0.124390162588,0.127154004557,0.129520544242,0.132370756272,0.134650925896,0.136689259347,0.138675770762,0.14061046014,0.142268765321,0.144566208957,0.147105488766,0.149126548205,0.151683102026,0.153686887453,0.155742494917,0.157124415901,0.159421859537,0.161080164718,0.162479359715,0.163705814588,0.16462133724,0.165243201683,0.165191379646,0.164776803351,0.164362227055,0.163222142244,0.161719303173,0.160665588423,0.159300941451,0.156813483679,0.155086082449,0.153272311157,0.15111305962,0.148953808082,0.146794556544,0.144341646797,0.14150870878,0.138917606934,0.136430149163,0.133303552936,0.131351589546,0.128881405787,0.126186659868,0.124148326416,0.122265459075,0.119587987168,0.117065981372,0.115234936068,0.11262656021,0.110553678734,0.108083494975,0.107029780224,0.10459414449,0.102469440977,0.101035697956,0.0998956131437,0.0987037062948,0.0975290734583,0.0964580846955,0.0953007258713,0.0946443134038,0.0944370252562,0.0941951890839,0.0939360788994,0.0934696805672,0.0932796664319,0.0924677878537,0.0916731832878,0.0916040872386,0.0912931550172,0.091172236931,0.0913104290295,0.0908440306973,0.0909476747711,0.0909822227957,0.0912931550172,0.0909649487834,0.0911895109433,0.091742279337,0.0915868132263,0.0915177171771,0.0914658951402,0.091396799091,0.0913795250787,0.0915522652017,0.0915349911894,0.0916731832878,0.0906367425497,0.0901357961929,0.0904985504513,0.0910858668695,0.0905676465005,0.090654016562,0.0909476747711,0.0912758810049,0.0912067849556,0.0912586069926,0.0909476747711,0.0908785787219,0.0912931550172,0.0912067849556,0.0911895109433,0.091569539214,0.0916559092755,0.091569539214,0.0911204148941,0.0906021945251,0.0903603583528,0.0907231126112,0.0904985504513,0.0905503724882,0.0905330984759,0.0903776323651,0.0902739882913,0.0904640024267,0.0903949063774,0.0900667001437,0.0891511774917,0.0889266153318,0.0886156831103,0.088425668975,0.0879247226182,0.0879074486059,0.0878901745936,0.0884774910119,0.088252928852,0.0873892282369,0.0868710078678,0.0869228299047,0.0860764033019,0.0854027168221,0.0855409089205,0.0852645247237,0.0854718128713,0.0854199908344,0.0846426602808,0.08471175633,0.0841762619487,0.0836407675673,0.0841244399117,0.084141713924,0.0841071658994,0.0848154004038,0.0849017704653,0.0845735642316,0.0844699201578,0.0850399625638,0.0852472507114,0.0858172931174,0.086024581265,0.0856100049697,0.0853854428098,0.0851781546622,0.0858345671297,0.0858345671297,0.0854372648467,0.0852645247237,0.0858000191051,0.0855927309574,0.0856618270066,0.0853163467606,0.085454538859,0.0849535925022,0.0858691151543,0.0851608806499,0.0853681687975,0.0859727592281,0.0861454993511,0.086024581265,0.0857827450928,0.0862145954003,0.086370061511,0.0866809937325,0.0870264739785,0.0875446943476,0.086940103917,0.0870782960154,0.0872337621261,0.0872164881138,0.0875446943476,0.0875619683599,0.0874755982984,0.0868191858309,0.0865255276218,0.0861109513265,0.0861109513265,0.0863182394741,0.086197321388,0.0863527874987,0.0865255276218,0.0867500897817,0.0870782960154,0.087510146323,0.0871646660769,0.0874755982984,0.0875792423722,0.0876483384214,0.0871301180523,0.0879592706428,0.0874065022492,0.0878901745936,0.0878383525567,0.0872510361384,0.0864218835479,0.0863527874987,0.0861627733634,0.0855409089205,0.0861454993511,0.0855236349082,0.0857481970682,0.0849363184899,0.08471175633,0.0846944823177,0.0848326744161,0.0842280839856,0.0840380698502,0.0843490020717,0.0841071658994,0.0842626320102,0.084141713924,0.084366276084,0.0838307817026,0.0840380698502,0.0838307817026,0.0841244399117,0.0836062195427,0.0830016291121,0.0828634370137,0.08231066862,0.0823797646692,0.082137928497,0.0820170104109,0.0823970386815,0.0829670810875,0.0823797646692,0.0826216008415,0.081965188374,0.0819479143617,0.0817924482509,0.0821552025093,0.0825697788045,0.0828461630014,0.0827597929399,0.0823797646692,0.0826043268291,0.0820861064601,0.0826561488661,0.0829670810875,0.0826043268291,0.0824661347307,0.0826906968907,0.0821724765216,0.0818788183125,0.082483408743,0.0822933946077,0.0825352307799,0.0826734228784,0.0827597929399,0.0827597929399,0.082707970903,0.0822933946077,0.0827252449153,0.0831743692351,0.0832780133089,0.0829325330629,0.0826216008415,0.0822588465831,0.0822933946077,0.0815160640541,0.0809287476358,0.0816369821402,0.0810323917096,0.0817579002263,0.0820342844232,0.0822761205954,0.0828634370137,0.0823970386815,0.0819479143617,0.0822242985585,0.08231066862,0.082483408743,0.0827770669522,0.0827770669522,0.0831398212105,0.0831398212105,0.0828288889891,0.0825006827553,0.0831570952228,0.0833643833704,0.0829843550998,0.0827252449153,0.0822933946077,0.0817579002263,0.0817233522017,0.0810842137466,0.0810669397343,0.081049665722,0.0808423775743,0.0806350894267,0.0806350894267,0.0806696374513,0.081049665722,0.0811705838081,0.0808941996112,0.0809632956604,0.0810151176973,0.0804278012791,0.080479623316,0.080082321033,0.0798750328854,0.0798404848608,0.0791149763441,0.0790286062826,0.0787694960981,0.0790631543072,0.0788040441227,0.0783721938151,0.0785449339381,0.0779748915322,0.0774221231385,0.0770939169047,0.0774048491262,0.0775084932,0.077111190917,0.0768693547448,0.0764547784496,0.0762474903019,0.0761438462281,0.0762820383265,0.0762647643142,0.0764029564127,0.0768002586956,0.0769211767817,0.0770766428924,0.0772321090032,0.0770248208555,0.0774221231385,0.0772839310401,0.0776121372738,0.0778366994337,0.077853973446,0.077853973446,0.0775603152369,0.0776294112861,0.077111190917,0.0766102445603,0.0764893264742,0.0766447925849,0.0772321090032,0.0776466852984,0.0767829846833,0.0767138886341,0.0767138886341,0.0765238744988,0.0768866287571,0.0773703011016,0.077681233323,0.0775603152369,0.0780439875814,0.0778194254214,0.0779576175199,0.0784758378889,0.0787004000489,0.0792013464056,0.0795986486886,0.0798404848608,0.0794950046148,0.079736840787,0.0796504707255,0.079339538504,0.0791149763441,0.0790977023318,0.0790458802949,0.0787349480735,0.0784931119012,0.0779403435076,0.0779576175199,0.0776294112861,0.0778885214706,0.0780267135691,0.0781821796798,0.0782858237536,0.0783894678274,0.0784758378889,0.0780094395568,0.0782858237536,0.0786313039996,0.078821318135,0.0788040441227,0.0784931119012,0.0786485780119,0.0781476316552,0.077853973446,0.077853973446,0.0773012050524,0.0772839310401,0.0771975609786,0.076938450794,0.0772666570278,0.0768866287571,0.0767311626464,0.076420230425,0.0764720524619,0.0761611202404,0.0762820383265,0.0767484366587,0.0768348067202,0.0770766428924,0.0768693547448,0.0768520807325,0.0769039027694,0.0775084932,0.0776294112861,0.0779921655445,0.0782858237536,0.0781821796798,0.0781994536921,0.0785622079504,0.0787694960981,0.0788904141842,0.0788558661596,0.0788731401719,0.0795122786271,0.0792877164671,0.0791495243687,0.0794604565901,0.0788558661596,0.0790458802949,0.0794777306025,0.0797713888116,0.0798059368362,0.0795813746763,0.0797541147993,0.0794259085655,0.0792358944302,0.0795468266517,0.0792704424548,0.0795468266517,0.0796850187501,0.0793740865286,0.0792013464056,0.0788385921473,0.0784931119012,0.0781303576429,0.0780958096183,0.0780612615937,0.0778194254214,0.0777157813476,0.0779748915322,0.077853973446,0.0778021514091,0.0781130836306,0.0786831260365,0.0790631543072,0.0787867701104,0.079339538504,0.0792358944302,0.0790631543072,0.0787522220858,0.0791495243687,0.0795468266517,0.0794950046148,0.080082321033,0.0801168690576,0.0801514170822,0.0799959509715,0.0802205131314,0.0807387335005,0.0804105272668,0.0808078295497,0.0804450752914,0.0802377871437,0.080082321033,0.0801514170822,0.0803587052299,0.0806350894267,0.0809460216481,0.0812051318327,0.0814124199803,0.0815506120787,0.0816542561525,0.0821724765216,0.0825870528168,0.082707970903,0.0826561488661,0.0825697788045,0.082137928497,0.0819306403494,0.0816715301648,0.0811360357835,0.0813433239311,0.0808769255989,0.0812051318327,0.0811533097958,0.080997843685,0.0805659933775,0.0800995950453,0.080082321033,0.080255061156,0.0805487193652,0.0804623493037,0.0803759792422,0.0799441289346,0.0798232108485,0.0800132249838,0.0801341430699,0.0806869114636,0.0808769255989,0.0807041854759,0.0804278012791,0.0800650470207,0.080306883193,0.0803414312176,0.0802205131314,0.0802205131314,0.0806869114636,0.0809632956604,0.0807387335005,0.0803932532545,0.0804105272668,0.0804450752914,0.0807732815251,0.080825103562,0.0806696374513,0.0803241572053,0.0806178154144,0.0801514170822,0.0798232108485,0.079564100664,0.0797541147993,0.0796504707255,0.0798059368362,0.0800304989961,0.0800132249838,0.0797195667747,0.0788904141842,0.0787349480735,0.0788904141842,0.0794604565901,0.0792877164671,0.0794086345532,0.079339538504,0.0794259085655,0.0792358944302,0.079564100664,0.0796159227009,0.0798577588731,0.0800650470207,0.080306883193,0.0798059368362,0.0800995950453,0.079339538504,0.0791840723933,0.0790458802949,0.079166798381,0.0790113322703,0.0788385921473,0.0786658520242,0.0789422362211,0.0797022927624,0.0801168690576,0.0802205131314,0.0810323917096,0.0813087759065,0.0816715301648,0.0817751742386,0.0818269962756,0.0818615443002,0.0815851601033,0.0817924482509,0.0819133663371,0.0821552025093,0.0820861064601,0.0819133663371,0.0818097222632,0.082137928497,0.0822933946077,0.0822070245462,0.0818615443002,0.0822242985585,0.0823279426323,0.0824143126938,0.0828116149768,0.082483408743,0.0818788183125,0.0825179567676,0.0815160640541,0.0808596515866,0.0794086345532,0.0783894678274,0.0771802869663,0.0757292699329,0.0745200890717,0.0735700183951,0.0723262895093,0.0708925464883,0.0694760774795,0.0680250604461,0.0664531253266,0.0650884783547,0.0639311195305,0.0626355686078,0.0615127578082,0.0600444667625,0.0397302282951,0.0393156519998,0.0391429118768,0.0391774599014,0.0391256378645,0.0395574881721,0.0397993243443,0.0395747621844,0.0394365700859,0.0395229401474,0.0397475023074,0.0396265842213,0.040127530578,0.0400929825534,0.039954790455,0.0396784062582,0.039609310209,0.0395402141597,0.0391774599014)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("13-organelles-nucleus-merged/REVOLUTA-GSM657970.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=38"),bty="n")
dev.off()