# R script for Peak Model
#  -- generated by MACS
p <- c(0.031311280938,0.0334094595576,0.0353462398218,0.0375251176191,0.0393811987056,0.0417214748582,0.0434161575894,0.0453529378536,0.0479353115392,0.049468595915,0.0515667745346,0.0527772621997,0.0541491482202,0.0555210342407,0.0572157169718,0.0587490013477,0.0606857816119,0.0632681552975,0.0629453585868,0.0628646594091,0.0630260577645,0.0633488544752,0.0632681552975,0.0627839602314,0.0626225618761,0.0627032610538,0.0627032610538,0.06213836681,0.0620576676324,0.0612506758556,0.0612506758556,0.0610085783226,0.0608471799672,0.0610892775003,0.0610892775003,0.0607664807896,0.0602015865458,0.0595559931244,0.0582648062816,0.0570543186165,0.0564087251951,0.055440335063,0.0552789367076,0.0553596358853,0.0543912457532,0.0543912457532,0.0539877498648,0.0539877498648,0.0535842539765,0.0543105465755,0.0536649531541,0.0541491482202,0.0539070506872,0.052212367956,0.0515667745346,0.0508404819355,0.0502755876918,0.0502755876918,0.0506790835801,0.0508404819355,0.0510825794685,0.0512439778239,0.0508404819355,0.0505983844025,0.0506790835801,0.0503562868694,0.0503562868694,0.0505983844025,0.0493071975597,0.0491457992043,0.0488230024936,0.0495492950927,0.049226498382,0.0496299942704,0.0498720918034,0.0503562868694,0.0505983844025,0.0505983844025,0.0504369860471,0.0500334901587,0.0500334901587,0.0499527909811,0.0501948885141,0.0500334901587,0.0507597827578,0.0510825794685,0.0520509696006,0.0514860753569,0.052212367956,0.0536649531541,0.0541491482202,0.0556017334183,0.0565701235504,0.0562473268397,0.0558438309514,0.0561666276621,0.0557631317737,0.0558438309514,0.0561666276621,0.0577806112156,0.0583455054593,0.0588297005254,0.0599594890128,0.0607664807896,0.0622190659877,0.0629453585868,0.0639137487189,0.0640751470743,0.0640751470743,0.0642365454296,0.0652049355617,0.0653663339171,0.0656891306278,0.0659312281608,0.0665768215822,0.0669803174706,0.0670610166482,0.0673838133589,0.0674645125366,0.067625910892,0.0675452117143,0.0670610166482,0.0671417158259,0.0677066100696,0.0671417158259,0.0665768215822,0.0666575207599,0.0667382199375,0.0662540248715,0.0665768215822,0.0664154232268,0.0664961224045,0.0664154232268,0.0664154232268,0.0662540248715,0.0649628380287,0.0642365454296,0.0642365454296,0.0633488544752,0.0623804643431,0.0617348709217,0.061654171744,0.0609278791449,0.0600401881905,0.0606050824342,0.0598787898351,0.0596366923021,0.0592331964137,0.0591524972361,0.0588297005254,0.0579420095709,0.0563280260174,0.0560859284844,0.0557631317737,0.0545526441086,0.0547947416416,0.0547140424639,0.0546333432862,0.0536649531541,0.052696563022,0.0520509696006,0.0516474737122,0.0515667745346,0.049710693448,0.0489037016713,0.0486616041383,0.0480967098945,0.0470476205847,0.046724823874,0.0455950353866,0.0457564337419,0.046240628808,0.0461599296303,0.0456757345643,0.0460792304526,0.046482726341,0.0464020271633,0.0450301411429,0.0455950353866,0.0454336370312,0.0439810518331,0.0448687427875,0.0448687427875,0.0456757345643,0.0456757345643,0.045998531275,0.0461599296303,0.0470476205847,0.046482726341,0.0465634255187,0.0472897181178,0.0470476205847,0.0469669214071,0.046724823874,0.046482726341,0.0466441246964,0.0465634255187,0.046240628808,0.0458371329196,0.0465634255187,0.0468055230517,0.0464020271633,0.0471283197624,0.0475318156508,0.0481774090722,0.049468595915,0.0495492950927,0.0498720918034,0.049710693448,0.0508404819355,0.0511632786462,0.0514053761792,0.0518895712453,0.0531000589104,0.0535035547988,0.0543105465755,0.0560859284844,0.0558438309514,0.0564087251951,0.0562473268397,0.0557631317737,0.0556017334183,0.0564087251951,0.0564087251951,0.0568929202611,0.0560052293067,0.0560859284844,0.0564087251951,0.0562473268397,0.0561666276621,0.0572964161495,0.0568929202611,0.0570543186165,0.0571350177942,0.0577806112156,0.0574578145049,0.0577806112156,0.0585069038147,0.0590717980584,0.0595559931244,0.0592331964137,0.0595559931244,0.0593138955914,0.0591524972361,0.0588297005254,0.0583455054593,0.0578613103932,0.0576999120379,0.0578613103932,0.0571350177942,0.0562473268397,0.0551175383523,0.0548754408193,0.0540684490425,0.0532614572658,0.0531807580881,0.0539070506872,0.0545526441086,0.0547947416416,0.0550368391746,0.0551175383523,0.0565701235504,0.0557631317737,0.0557631317737,0.0560859284844,0.0566508227281,0.0560052293067,0.0564894243728,0.0565701235504,0.0569736194388,0.0575385136825,0.0580227087486,0.0580227087486,0.0579420095709,0.0569736194388,0.0570543186165,0.0581841071039,0.0578613103932,0.0580227087486,0.0572157169718,0.0577806112156,0.0581841071039,0.0587490013477,0.0596366923021,0.0600401881905,0.0610892775003,0.0627032610538,0.0648014396733,0.0656891306278,0.0669803174706,0.0684329026687,0.0692398944455,0.0697240895115,0.0691591952678,0.0690784960901,0.0694819919785,0.070853877999,0.071338073065,0.0729520566185,0.0728713574409,0.0733555525069,0.0734362516846,0.0745660401721,0.0762607229032,0.0773905113907,0.0774712105684,0.0776326089237,0.0773905113907,0.0777133081014,0.0778747064567,0.0787623974112,0.0792465924772,0.0792465924772,0.0801342834317,0.0809412752084,0.0819096653405,0.0827973562949,0.0822324620512,0.0817482669852,0.0828780554726,0.0823938604066,0.0819096653405,0.0808605760307,0.0811833727414,0.0803763809647,0.0807798768531,0.0811833727414,0.0821517628735,0.0819096653405,0.0829587546503,0.083281551361,0.0845727382038,0.0849762340922,0.086025323402,0.086509518468,0.0879621036662,0.0882042011992,0.089253290509,0.089737485575,0.0885269979099,0.0882042011992,0.089253290509,0.0890111929759,0.0908672740625,0.0914321683062,0.0917549650169,0.0928040543267,0.0934496477481,0.0942566395248,0.0947408345909,0.0947408345909,0.0967583140328,0.0969197123881,0.0983722975863,0.0990178910077,0.0978881025202,0.0981302000533,0.0986143951193,0.0985336959416,0.0972425090988,0.0974039074542,0.0982108992309,0.0974846066319,0.0964355173221,0.0963548181444,0.0961934197891,0.0961934197891,0.0965162164998,0.0960320214337,0.0943373387025,0.0940952411695,0.0937724444588,0.0936917452811,0.092965452682,0.0928040543267,0.0928847535044,0.0935303469258,0.092965452682,0.0933689485704,0.092239160083,0.0913514691285,0.0912707699509,0.0908672740625,0.0909479732402,0.0908672740625,0.089737485575,0.0893339896866,0.0895760872197,0.0890918921536,0.0894146888643,0.0900602822857,0.0904637781741,0.0911093715955,0.0920777617276,0.0923198592606,0.0925619567937,0.0931268510374,0.0924005584383,0.0928847535044,0.0930461518597,0.0934496477481,0.0932075502151,0.0925619567937,0.0915935666616,0.0912707699509,0.0908672740625,0.0896567863973,0.0891725913313,0.0881235020215,0.0883655995545,0.0885269979099,0.0891725913313,0.0881235020215,0.0889304937983,0.0882042011992,0.0887690954429,0.089979583108,0.0909479732402,0.0907058757071,0.0916742658392,0.0912707699509,0.0916742658392,0.092481257616,0.0911093715955,0.0908672740625,0.0903023798187,0.0893339896866,0.0895760872197,0.089495388042,0.0882849003769,0.0890918921536,0.0895760872197,0.089495388042,0.0888497946206,0.0873165102448,0.0873165102448,0.0883655995545,0.0886883962652,0.0889304937983,0.0889304937983,0.0888497946206,0.0893339896866,0.0905444773518,0.0911900707732,0.0926426559713,0.0932075502151,0.0943373387025,0.0951443304793,0.0965162164998,0.0977267041649,0.0988564926523,0.099179289363,0.0983722975863,0.0977267041649,0.0983722975863,0.0974846066319,0.0974039074542,0.0982915984086,0.0987757934747,0.0995827852514,0.100389777028,0.101842362226,0.10345634578,0.103859841668,0.103617744135,0.104344036734,0.104021240024,0.1048282318,0.104263337557,0.104908930978,0.10587732111,0.107410605486,0.107894800552,0.109670182461,0.109670182461,0.110880670126,0.112091157791,0.113705141345,0.114834929832,0.117578701873,0.119111986249,0.11943478296,0.120241774736,0.120725969802,0.120887368158,0.119354083782,0.119273384604,0.119031287071,0.119676880493,0.119918978026,0.119676880493,0.120161075559,0.121129465691,0.121371563224,0.12185575829,0.122178555001,0.122824148422,0.123146945133,0.12322764431,0.123308343488,0.12427673362,0.127020505661,0.129280082636,0.129199383458,0.131539659611,0.132104553855,0.133557139053,0.132508049743,0.132104553855,0.131378261256,0.132911545631,0.132588748921,0.13226595221,0.132669448098,0.133153643164,0.131378261256,0.131055464545,0.131378261256,0.129441480991,0.128634489215,0.128634489215,0.129522180169,0.12879588757,0.129522180169,0.129683578524,0.129683578524,0.12984497688,0.129360781814,0.129199383458,0.129199383458,0.127908196615,0.126536310595,0.125890717174,0.124760928686,0.124115335265,0.123146945133,0.1229048476,0.121048766513,0.118869888716,0.119273384604,0.117578701873,0.117417303518,0.116448913386,0.115884019142,0.115399824076,0.11523842572,0.114996328187,0.119838278848,0.124760928686,0.130409871123,0.136543008627,0.143241040374,0.150746063898,0.158735282487,0.169629671474,0.181088954704,0.195372709152,0.208930171002,0.222649031206,0.236690688122,0.253395417901,0.271633432055,0.28745047088,0.302057022039,0.31730916662,0.331754319423,0.346925764826,0.361693714341,0.376703761389,0.39090681666,0.404706376042,0.417134049404,0.429319625233,0.440294713397,0.450301411429,0.458774825085,0.468055230517,0.476770741706,0.483388074276,0.490893097799,0.496945536125,0.502352381029,0.505580348136,0.501222592542,0.495412251749,0.488956317535,0.481209196478,0.47386557131,0.464746564233,0.455546857978,0.444975265702,0.432628291518,0.417376146937,0.403818685088,0.391310312548,0.375896769612,0.358707844767,0.339824237191,0.32320020659,0.308432257075,0.29196962483,0.27631398436,0.261465335668,0.246051792732,0.230799648152,0.214498414261,0.199246269681,0.185446710298,0.171647150916,0.159380875909,0.148082991034,0.13815699218,0.127504700727,0.118062896939,0.111122767659,0.103698443313,0.0963548181444,0.0909479732402,0.0864288192903,0.0850569332698,0.0850569332698,0.0842499414931,0.0843306406708,0.0839271447824,0.0841692423154,0.0839271447824,0.0822324620512,0.0828780554726,0.0825552587619,0.0810219743861,0.0796500883656,0.0794886900102,0.0796500883656,0.0787623974112,0.0782782023451,0.0778747064567,0.0777133081014,0.0774712105684,0.0776326089237,0.0777133081014,0.0769063163246,0.0767449179693,0.076825617147,0.0771484138577,0.0773905113907,0.0767449179693,0.077551909746,0.07706771468,0.0773905113907,0.0765835196139,0.0760993245479,0.0746467393497,0.0749695360604,0.0735169508623,0.0733555525069,0.0727906582632,0.0723871623748,0.0716608697757,0.071338073065,0.070611780466,0.0700468862222,0.0696433903339,0.0701275853999,0.0692398944455,0.0692398944455,0.0685136018464,0.0685943010241,0.0685943010241,0.0680294067803,0.0681908051357,0.0691591952678,0.0684329026687,0.0674645125366,0.0667382199375,0.065124236384,0.0654470330947,0.0656084314501,0.0663347240492,0.0672224150036,0.0667382199375,0.0665768215822,0.0665768215822,0.0663347240492,0.0660119273385,0.0662540248715,0.0662540248715,0.0662540248715,0.0667382199375,0.0656891306278,0.0656084314501,0.0652856347394,0.0658505289831,0.0649628380287,0.0644786429626,0.0631874561198,0.0630260577645,0.0631067569421,0.0636716511859,0.0638330495412,0.0636716511859,0.0633488544752,0.0640751470743,0.0634295536528,0.0632681552975,0.0630260577645,0.0637523503635,0.0633488544752,0.0630260577645,0.0634295536528,0.0633488544752,0.0640751470743,0.0641558462519,0.0645593421403,0.0648014396733,0.0639944478966,0.065124236384,0.0653663339171,0.0656084314501,0.0654470330947,0.0658505289831,0.0667382199375,0.0668189191152,0.0666575207599,0.0664154232268,0.0670610166482,0.0664961224045,0.0664961224045,0.0655277322724,0.0667382199375,0.067625910892,0.0689170977348,0.0698854878669,0.0698854878669,0.0694012928008,0.0697240895115,0.0696433903339,0.0697240895115,0.0696433903339,0.0704503821106,0.070853877999,0.0704503821106,0.0701275853999,0.0700468862222,0.0711766747097,0.0721450648418,0.0727099590855,0.0728713574409,0.0719029673088,0.0719836664864,0.0721450648418,0.0724678615525,0.0725485607302,0.0734362516846,0.0737590483953,0.0736783492176,0.0733555525069,0.0727906582632,0.0729520566185,0.0732748533292,0.0739204467506,0.0735976500399,0.0746467393497,0.074323942639,0.0752923327711,0.0764221212586,0.0764221212586,0.0756151294818,0.0752923327711,0.0751309344158,0.0760186253702,0.0765028204363,0.07706771468,0.0774712105684,0.0777940072791,0.0777133081014,0.077551909746,0.0780361048121,0.0784396007005,0.0798921858986,0.0792465924772,0.0785202998781,0.0785202998781,0.0778747064567,0.0787623974112,0.0790044949442,0.0787623974112,0.0781975031674,0.0777940072791,0.0769063163246,0.0763414220809,0.076825617147,0.07706771468,0.0760993245479,0.0769063163246,0.0776326089237,0.0777940072791,0.0786009990558,0.0779554056344,0.0786009990558,0.0782782023451,0.07706771468,0.07706771468,0.077551909746,0.077551909746,0.0772291130353,0.0766642187916,0.0756958286595,0.0748081377051,0.0745660401721,0.0744853409944,0.0741625442837,0.0748888368828,0.0755344303042,0.0762607229032,0.0755344303042,0.0764221212586,0.07706771468,0.0767449179693,0.0776326089237,0.077309812213,0.0769063163246,0.0772291130353,0.0781168039898,0.0773905113907,0.0772291130353,0.0772291130353,0.0774712105684,0.07706771468,0.0777940072791,0.076825617147,0.0765028204363,0.0769063163246,0.0769063163246,0.0769870155023,0.0772291130353,0.0771484138577,0.0777133081014,0.0782782023451,0.0777133081014,0.0769063163246,0.07706771468,0.076825617147,0.0763414220809,0.0782782023451,0.0781975031674,0.0779554056344,0.0779554056344,0.0781168039898,0.0777940072791,0.0772291130353,0.0772291130353,0.0760186253702,0.0756958286595,0.0753730319488,0.0745660401721,0.0748081377051,0.0747274385274,0.0741625442837,0.0733555525069,0.0731941541516,0.0731134549739,0.0727906582632,0.0721450648418,0.0722257640195,0.071095975532,0.0706924796436,0.0701275853999,0.0691591952678,0.0684329026687,0.0677873092473,0.0663347240492,0.0659312281608,0.0642365454296,0.0634295536528,0.0635102528305,0.0643172446073,0.0642365454296,0.0635102528305,0.0628646594091,0.0617348709217,0.061412074211,0.0612506758556,0.0613313750333,0.0598787898351,0.0597173914798,0.058910399703,0.0582648062816,0.058426204637,0.0585876029923,0.0590717980584,0.0602015865458,0.0593945947691,0.0589910988807,0.0598787898351,0.0597980906575,0.0601208873682,0.0604436840789,0.0610892775003,0.0603629849012,0.0600401881905,0.0601208873682,0.0601208873682,0.0595559931244,0.0605243832565,0.0607664807896,0.0612506758556,0.0615734725663,0.0613313750333,0.0625418626984,0.0617348709217,0.0611699766779,0.0601208873682,0.0597173914798,0.0597173914798,0.0606050824342,0.0599594890128,0.0597980906575,0.05866830217,0.0577806112156,0.0581034079263,0.0581841071039,0.0581034079263,0.0581034079263,0.0576999120379,0.0581034079263,0.0581841071039,0.0566508227281,0.0564894243728,0.0556017334183,0.0547140424639,0.0558438309514,0.0558438309514,0.0548754408193,0.0539070506872,0.0546333432862,0.0548754408193,0.0555210342407,0.055682432596,0.055440335063,0.0540684490425,0.0538263515095,0.0532614572658,0.0533421564434,0.0535842539765,0.052696563022,0.052454465489,0.052454465489,0.0530193597327,0.0545526441086,0.0547947416416,0.0544719449309,0.0546333432862,0.0551175383523,0.0557631317737,0.055682432596,0.055682432596,0.0543912457532,0.0547140424639,0.0544719449309,0.0543105465755,0.0531000589104,0.0530193597327,0.0534228556211,0.0533421564434,0.0539070506872,0.0534228556211,0.0519702704229,0.0530193597327,0.0543912457532,0.0553596358853,0.0560052293067,0.0560052293067,0.0560052293067,0.055924530129,0.0555210342407,0.055924530129,0.0564087251951,0.0570543186165,0.0572157169718,0.0565701235504,0.0561666276621,0.0568929202611,0.0572157169718,0.0567315219058,0.0568122210835,0.0564894243728,0.0565701235504,0.0567315219058,0.0560052293067,0.0572157169718,0.0583455054593,0.0581841071039,0.0591524972361,0.0591524972361,0.0593138955914,0.0593138955914,0.0587490013477,0.0592331964137,0.058910399703,0.0591524972361,0.05866830217,0.0587490013477,0.0590717980584,0.0582648062816,0.0566508227281,0.0565701235504,0.0555210342407,0.0551175383523,0.0544719449309,0.0547140424639,0.0548754408193,0.0542298473979,0.0535842539765,0.0532614572658,0.0533421564434,0.0538263515095,0.0537456523318,0.0542298473979,0.0543912457532,0.0546333432862,0.0531000589104,0.052938660555,0.052696563022,0.0522930671336,0.0525351646667,0.0516474737122,0.0508404819355,0.0507597827578,0.0504369860471,0.0505176852248,0.049468595915,0.0496299942704,0.0504369860471,0.049226498382,0.0490651000266,0.0485809049606,0.0489037016713,0.0489037016713,0.0485002057829,0.0485002057829,0.0490651000266,0.049468595915,0.0493071975597,0.049468595915,0.049710693448,0.0488230024936,0.0486616041383,0.049468595915,0.0496299942704,0.0495492950927,0.0496299942704,0.0499527909811,0.0506790835801,0.0498720918034,0.0505983844025,0.0510018802908,0.0514860753569,0.0517281728899,0.0520509696006,0.0520509696006,0.0522930671336,0.052454465489,0.0535035547988,0.0540684490425,0.05519823753,0.0555210342407,0.0558438309514,0.0564087251951,0.0566508227281,0.0575385136825,0.0573771153272,0.0574578145049,0.0575385136825,0.0577806112156,0.0581034079263,0.0577806112156,0.0585069038147,0.0576192128602,0.0580227087486,0.0578613103932,0.0581841071039,0.05866830217,0.05866830217,0.0580227087486,0.0577806112156,0.0576999120379,0.0577806112156,0.0566508227281,0.0564087251951,0.0562473268397,0.0548754408193,0.0539877498648,0.0537456523318,0.0533421564434,0.052938660555,0.0530193597327,0.0527772621997,0.0523737663113,0.0515667745346,0.0508404819355,0.0500334901587,0.0488230024936,0.0493878967373,0.0491457992043,0.049226498382,0.0484195066052,0.0496299942704,0.0499527909811,0.0493071975597,0.0493071975597,0.0503562868694,0.0510825794685,0.0505983844025,0.0508404819355,0.0505983844025,0.0519702704229,0.0526158638443,0.0532614572658,0.0539877498648,0.0547140424639,0.0551175383523,0.0556017334183,0.0562473268397,0.0567315219058,0.0565701235504,0.0568122210835,0.0576999120379,0.0585876029923,0.0585876029923,0.0588297005254,0.058910399703,0.058426204637,0.0587490013477,0.0593138955914,0.0593945947691,0.0593138955914,0.0593138955914,0.0602015865458,0.0597173914798,0.0597980906575,0.0595559931244,0.0606050824342,0.0604436840789,0.0606857816119,0.0610085783226,0.0606050824342,0.0596366923021,0.0592331964137,0.0582648062816,0.0581034079263,0.0579420095709,0.0572157169718,0.0565701235504,0.0562473268397,0.0570543186165,0.0567315219058,0.0566508227281,0.0562473268397,0.0558438309514,0.0560052293067,0.0571350177942,0.0574578145049,0.0569736194388,0.0558438309514,0.0561666276621,0.0560859284844,0.0558438309514,0.0565701235504,0.055924530129,0.0552789367076,0.05519823753,0.0547140424639,0.0548754408193,0.0543912457532,0.0540684490425,0.0539070506872,0.0533421564434,0.052454465489,0.0518895712453,0.0523737663113,0.0531807580881,0.0533421564434,0.0534228556211,0.0517281728899,0.0510825794685,0.0496299942704,0.0483388074276,0.0466441246964,0.0450301411429,0.0433354584117,0.0409144830814,0.0393004995279,0.0376865159744,0.0363953291316,0.0345392480451,0.0330866628469,0.0307463866943,0.0291324031408,0.027841216298,0.0268728261659,0.0250167450794)
m <- c(0.0309250927345,0.0324754271987,0.0347601306198,0.036636851287,0.0380239926498,0.0394927305633,0.0406350822738,0.0414510477813,0.0432461718978,0.0440621374053,0.0446333132606,0.0460204546233,0.0467548235801,0.0474075959861,0.0488763338996,0.0495291063056,0.0509978442191,0.0522217924804,0.0524665821326,0.0518138097266,0.0513242304221,0.0515690200744,0.0509162476684,0.0505898614654,0.0505082649146,0.0495291063056,0.0493659132041,0.0501818787116,0.0502634752624,0.0496922994071,0.0496107028564,0.0494475097549,0.0501818787116,0.0497738959579,0.0502634752624,0.0515690200744,0.0529561614371,0.0533641441909,0.0530377579879,0.0532009510894,0.0535273372924,0.0538537234954,0.0545880924522,0.0554040579597,0.0553224614089,0.0563832165687,0.0576887613807,0.0577703579314,0.0587495165404,0.0598918682509,0.0594838854972,0.0602182544539,0.0607078337585,0.0611158165122,0.0611158165122,0.0611158165122,0.0612790096137,0.0602998510047,0.0606262372077,0.0603814475554,0.0600550613524,0.0600550613524,0.0599734648017,0.0593206923957,0.0600550613524,0.0600550613524,0.0598102717002,0.0595654820479,0.0597286751494,0.0601366579032,0.0597286751494,0.0587495165404,0.0583415337867,0.0580967441344,0.0568727958732,0.0554856545104,0.0548328821044,0.0539353200462,0.0529561614371,0.0526297752341,0.0525481786834,0.0523849855819,0.0516506166251,0.0518954062774,0.0519770028281,0.0518954062774,0.0526297752341,0.0528745648864,0.0518954062774,0.0514874235236,0.0505898614654,0.0500186856101,0.0496922994071,0.0491211235519,0.0485499476966,0.0479787718414,0.0478971752906,0.0476523856384,0.0472444028846,0.0465916304786,0.0461020511741,0.0464284373771,0.0465100339278,0.0456940684203,0.0452044891158,0.0453676822173,0.0457756649711,0.0458572615218,0.0452044891158,0.0447965063621,0.0465100339278,0.0476523856384,0.0486315442474,0.0499370890594,0.0505898614654,0.0508346511176,0.0511610373206,0.0509978442191,0.0523849855819,0.0518138097266,0.0514058269729,0.0511610373206,0.0506714580161,0.0505082649146,0.0509978442191,0.0521401959296,0.0528745648864,0.0540169165969,0.0549960752059,0.0559752338149,0.0561384269164,0.0572807786269,0.0573623751777,0.0571991820762,0.0578519544822,0.0589943061927,0.0602182544539,0.0607078337585,0.0614422027152,0.0629109406287,0.0635637130347,0.0639716957885,0.064461275093,0.0652772406005,0.0656036268035,0.066419592311,0.0669091716155,0.066419592311,0.067072364717,0.067072364717,0.0678067336738,0.068377909529,0.0679699267753,0.0685411026305,0.0673171543693,0.068377909529,0.0682963129783,0.0685411026305,0.0689490853843,0.0691122784858,0.070009840544,0.0688674888335,0.0691122784858,0.0685411026305,0.068051523326,0.0684595060798,0.0691122784858,0.0696018577903,0.0699282439933,0.070009840544,0.069357068138,0.0685411026305,0.0678883302245,0.0678067336738,0.0672355578185,0.0666643819632,0.0659300130065,0.0656852233542,0.0645428716437,0.0629925371795,0.062829344078,0.0623397647735,0.0599734648017,0.0589943061927,0.0572807786269,0.0565464096702,0.0558120407134,0.0551592683074,0.0548328821044,0.0540169165969,0.0543433027999,0.0537721269446,0.0540169165969,0.0534457407416,0.0532009510894,0.0532825476401,0.0522217924804,0.0527113717849,0.0522217924804,0.0519770028281,0.0514874235236,0.0501818787116,0.0496107028564,0.0490395270011,0.0487131407981,0.0483051580444,0.0480603683921,0.0478971752906,0.0471628063339,0.0466732270293,0.0467548235801,0.0465100339278,0.0455308753188,0.0454492787681,0.0453676822173,0.0460204546233,0.0456124718696,0.0448781029128,0.0457756649711,0.0464284373771,0.0465916304786,0.0464284373771,0.0457756649711,0.0453676822173,0.0460204546233,0.0456940684203,0.0454492787681,0.0447965063621,0.0440621374053,0.0443069270576,0.0438989443038,0.0431645753471,0.0423486098396,0.0420222236366,0.0420222236366,0.0421854167381,0.0426749960426,0.0432461718978,0.0434093649993,0.0435725581008,0.0440621374053,0.0447965063621,0.0456124718696,0.0461836477248,0.0470812097831,0.0483867545951,0.0489579304504,0.0497738959579,0.0509978442191,0.0516506166251,0.0521401959296,0.0520585993789,0.0532825476401,0.0543433027999,0.0549960752059,0.0555672510612,0.0561384269164,0.0560568303657,0.0572807786269,0.0574439717284,0.0566280062209,0.0569543924239,0.0573623751777,0.0576887613807,0.0579335510329,0.0584231303374,0.0591574992942,0.0597286751494,0.060544640657,0.0602182544539,0.0600550613524,0.0606262372077,0.0607078337585,0.0610342199615,0.0606262372077,0.0597286751494,0.0597286751494,0.0590759027434,0.0591574992942,0.0592390958449,0.0580967441344,0.0570359889747,0.0571175855254,0.0575255682792,0.0567096027717,0.0554040579597,0.0554856545104,0.0559752338149,0.0554856545104,0.0547512855537,0.0541801096984,0.0534457407416,0.0529561614371,0.0538537234954,0.0533641441909,0.0540169165969,0.0543433027999,0.0546696890029,0.0548328821044,0.0547512855537,0.0550776717567,0.0549960752059,0.0542617062492,0.0537721269446,0.0543433027999,0.0547512855537,0.0544248993507,0.0536089338431,0.0531193545386,0.0528745648864,0.0530377579879,0.0543433027999,0.0537721269446,0.0548328821044,0.0542617062492,0.0542617062492,0.0540985131477,0.0543433027999,0.0536905303939,0.0526297752341,0.0548328821044,0.0560568303657,0.0567096027717,0.0571991820762,0.0571175855254,0.0577703579314,0.0581783406852,0.0595654820479,0.0604630441062,0.0599734648017,0.0607078337585,0.0602182544539,0.0607078337585,0.0613606061645,0.0606262372077,0.0613606061645,0.0613606061645,0.0616053958167,0.0629109406287,0.0643796785422,0.0643796785422,0.065440433702,0.0666643819632,0.06739875092,0.06739875092,0.0679699267753,0.0686226991813,0.0686226991813,0.069357068138,0.0696018577903,0.0695202612395,0.0692754715873,0.0698466474425,0.0704178232978,0.0701730336455,0.070988999153,0.0701730336455,0.0691122784858,0.0679699267753,0.0678067336738,0.0689490853843,0.0691938750365,0.0696018577903,0.0704994198485,0.0711521922545,0.0727025267188,0.0730289129218,0.0746608439368,0.0757215990966,0.0753952128936,0.0762927749518,0.0758847921981,0.0770271439086,0.0769455473578,0.0775983197638,0.0761295818503,0.0766191611548,0.0758847921981,0.0756400025458,0.0762927749518,0.0773535301116,0.0779247059668,0.0784958818221,0.0795566369818,0.0795566369818,0.0795566369818,0.0793118473296,0.0798830231848,0.0798014266341,0.0807805852431,0.0815149541999,0.0812701645476,0.0809437783446,0.0814333576491,0.0817597438521,0.0806173921416,0.0798014266341,0.0806173921416,0.0802910059386,0.0787406714743,0.0784958818221,0.0778431094161,0.0775167232131,0.0770271439086,0.0766191611548,0.0763743715026,0.0767823542563,0.0768639508071,0.0762927749518,0.0760479852996,0.0756400025458,0.0766191611548,0.0761295818503,0.0759663887488,0.0756400025458,0.0745792473861,0.0749872301398,0.0749056335891,0.0744160542846,0.0738448784293,0.0738448784293,0.0740080715308,0.0749056335891,0.0746608439368,0.0751504232413,0.0744976508353,0.0745792473861,0.0751504232413,0.0758847921981,0.0760479852996,0.0763743715026,0.0770271439086,0.0776799163146,0.0771087404593,0.0772719335608,0.0775983197638,0.0769455473578,0.0758031956473,0.0753136163428,0.0745792473861,0.0731105094725,0.072947316371,0.0720497543128,0.0725393336173,0.0718049646605,0.071968157762,0.0707442095008,0.0705810163993,0.0710705957038,0.0714785784575,0.0708258060515,0.070336226747,0.0695202612395,0.0688674888335,0.0682963129783,0.0676435405723,0.0674803474708,0.0666643819632,0.0668275750647,0.066745978514,0.0668275750647,0.065766819905,0.0656036268035,0.0652772406005,0.0638900992377,0.0633189233825,0.0624213613242,0.062176571672,0.061197413063,0.0607078337585,0.0594022889464,0.0585863234389,0.0587495165404,0.0587495165404,0.0578519544822,0.0576887613807,0.0579335510329,0.0581783406852,0.0582599372359,0.0576887613807,0.0583415337867,0.0582599372359,0.0587495165404,0.0585863234389,0.0576887613807,0.0570359889747,0.0570359889747,0.0572807786269,0.0563832165687,0.0566280062209,0.0556488476119,0.0548328821044,0.0547512855537,0.0538537234954,0.0522217924804,0.0525481786834,0.0531193545386,0.0534457407416,0.0536089338431,0.0536905303939,0.0546696890029,0.0550776717567,0.0551592683074,0.0558936372642,0.0564648131194,0.0568727958732,0.0576887613807,0.0585047268882,0.0585863234389,0.0587495165404,0.0594838854972,0.0600550613524,0.0612790096137,0.0616053958167,0.062176571672,0.0642980819915,0.0647060647452,0.0650324509482,0.065440433702,0.0649508543975,0.0648692578467,0.0650324509482,0.066419592311,0.0668275750647,0.067072364717,0.0672355578185,0.0691122784858,0.069357068138,0.0701730336455,0.0714785784575,0.0727025267188,0.0727025267188,0.0731105094725,0.0735184922263,0.0741712646323,0.0743344577338,0.0752320197921,0.0757215990966,0.0770271439086,0.0770271439086,0.0767007577056,0.0762927749518,0.0764559680533,0.0768639508071,0.0767007577056,0.0771087404593,0.0771087404593,0.0763743715026,0.0765375646041,0.0763743715026,0.0760479852996,0.0743344577338,0.0734368956755,0.072947316371,0.0725393336173,0.0740896680816,0.0755584059951,0.0758031956473,0.0752320197921,0.0761295818503,0.0771903370101,0.0763743715026,0.0762927749518,0.0767823542563,0.0759663887488,0.0750688266906,0.0751504232413,0.0753136163428,0.0749056335891,0.0747424404876,0.0747424404876,0.0746608439368,0.073600088777,0.073273702574,0.072947316371,0.0738448784293,0.0736816853278,0.0742528611831,0.0762111784011,0.0771087404593,0.0780063025176,0.0793934438803,0.0803726024893,0.0861659575926,0.0930200678557,0.0998741781187,0.108523412498,0.117580629632,0.126474653663,0.136429432855,0.148668915468,0.160255625674,0.172250318635,0.185550556407,0.201380287252,0.215578087083,0.232305379987,0.2500118315,0.267065510607,0.283466417308,0.300438499864,0.31634982726,0.332342751207,0.349886009619,0.365389354261,0.380974295455,0.396722429749,0.410022667522,0.423159712193,0.435317598254,0.448128256722,0.459143791074,0.469424956468,0.480277297718,0.487131407981,0.495372659607,0.50328752503,0.51087600425,0.515363814541,0.511691969757,0.505245842248,0.499942066449,0.492516780331,0.485336283865,0.478482173602,0.46966974612,0.459225387624,0.447638677418,0.435725581008,0.424302063903,0.410022667522,0.39574327114,0.379750347193,0.364328599101,0.34898844756,0.334709051179,0.321653603059,0.308026979084,0.293094810296,0.277509869103,0.263393665823,0.250664603906,0.235161259263,0.222105811143,0.21084548714,0.200727514846,0.189711980495,0.178696446144,0.169965615214,0.160092432573,0.153564708513,0.14564984309,0.138550943175,0.131452043259,0.126964232968,0.126474653663,0.126882636417,0.127780198475,0.127780198475,0.127861795026,0.128188181229,0.128922550186,0.128596163983,0.129493726041,0.130554481201,0.13047288465,0.130962463955,0.132104815665,0.13259439497,0.131860026013,0.130228094998,0.129248936389,0.128351374331,0.127535408823,0.128759357084,0.128024988128,0.127127426069,0.124271546793,0.124353143344,0.124761126098,0.124271546793,0.122558019227,0.12280280888,0.123129195083,0.123537177836,0.123700370938,0.121986843372,0.122476422677,0.122068439923,0.122394826126,0.12288440543,0.123292388184,0.123129195083,0.122558019227,0.123047598532,0.123129195083,0.12280280888,0.122231633024,0.122313229575,0.121089281314,0.120436508908,0.120110122705,0.119375753748,0.119375753748,0.11847819169,0.118886174444,0.1196205434,0.11953894685,0.118396595139,0.11953894685,0.118804577893,0.117988612385,0.11847819169,0.119294157197,0.118886174444,0.118967770994,0.118233402038,0.119212560647,0.118967770994,0.11847819169,0.118396595139,0.118886174444,0.119702139951,0.1196205434,0.119865333053,0.117907015835,0.117907015835,0.117662226182,0.116601471023,0.115132733109,0.114643153805,0.112603240036,0.112766433137,0.11309281934,0.11301122279,0.113337608993,0.112195257282,0.112276853833,0.112521643485,0.111379291775,0.110155343513,0.109584167658,0.108278622846,0.106646691831,0.106320305628,0.10436198841,0.104525181512,0.10436198841,0.10330123325,0.103056443598,0.10330123325,0.102322074641,0.102322074641,0.101995688438,0.100853336728,0.100853336728,0.0993030022635,0.0972630884947,0.095875947132,0.0941624195662,0.0932648575079,0.0937544368124,0.0926120851019,0.0916329264929,0.0915513299422,0.0922041023482,0.0913065402899,0.0918777161452,0.0896746092749,0.0890218368689,0.0886954506659,0.0885322575644,0.0887770472167,0.0885322575644,0.0871451162016,0.0868187299986,0.0877978886077,0.0870635196509,0.0882058713614,0.0891850299704,0.0891034334197,0.0895114161734,0.0877162920569,0.0875530989554,0.0882874679122,0.0882874679122,0.0884506610137,0.0900825920287,0.0899193989272,0.0900009954779,0.0905721713332,0.0905721713332,0.0914697333914,0.0925304885512,0.0933464540587,0.0939992264647,0.0939176299139,0.0933464540587,0.0931016644064,0.0923672954497,0.0934280506094,0.0935912437109,0.0939176299139,0.0939992264647,0.0956311574797,0.0959575436827,0.0956311574797,0.0960391402335,0.0959575436827,0.0953863678275,0.0959575436827,0.0973446850455,0.0966919126395,0.097507878147,0.0975894746977,0.0980790540022,0.09783426435,0.098160650553,0.0993845988142,0.0993030022635,0.0982422471037,0.0979158609007,0.0972630884947,0.0961207367842,0.0963655264365,0.0962839298857,0.095549560929,0.0949783850737,0.0944888057692,0.0944888057692,0.0949783850737,0.0940808230154,0.0933464540587,0.0936728402617,0.0940808230154,0.095223174726,0.0936728402617,0.0918777161452,0.0918777161452,0.0909801540869,0.0898378023764,0.0897562058257,0.0895114161734,0.0894298196227,0.0894298196227,0.0892666265212,0.0892666265212,0.0885322575644,0.0895930127242,0.0900009954779,0.0895930127242,0.0898378023764,0.0901641885794,0.0902457851302,0.0893482230719,0.0895930127242,0.0900009954779,0.0904905747824,0.0904089782317,0.0904089782317,0.0900825920287,0.0884506610137,0.0873083093031,0.0869003265494,0.0864107472449,0.0858395713896,0.0851052024329,0.0851867989836,0.0849420093314,0.0842076403746,0.0840444472731,0.0841260438239,0.0846972196791,0.0855947817374,0.0847788162299,0.0860027644911,0.0868187299986,0.0866555368971,0.0866555368971,0.0854315886359,0.0844524300269,0.0846156231284,0.0842076403746,0.0835548679686,0.0824125162581,0.0811885679969,0.0806989886923,0.0799646197356,0.0789038645758,0.0781694956191,0.0779247059668,0.0782510921698,0.0773535301116,0.0757215990966,0.0745792473861,0.0737632818785,0.0734368956755,0.07392647498,0.0740896680816,0.07392647498,0.07392647498,0.0734368956755,0.072294543965,0.071968157762,0.0724577370665,0.071641771559,0.0704994198485,0.0686226991813,0.0681331198768,0.0669907681662,0.0668275750647,0.065766819905,0.0653588371512,0.0642164854407,0.0626661509765,0.0625845544257,0.0629925371795,0.0617685889182,0.06087102686,0.0598102717002,0.0590759027434,0.0585863234389,0.0588311130912,0.0581783406852,0.0582599372359,0.0579335510329,0.0584231303374,0.0575255682792,0.0574439717284,0.0586679199897,0.0594022889464,0.0595654820479,0.0585863234389,0.0582599372359,0.0584231303374,0.0576071648299,0.0569543924239,0.0567911993224,0.0574439717284,0.0571175855254,0.0570359889747,0.0577703579314,0.0584231303374,0.0599734648017,0.0598102717002,0.0602182544539,0.0604630441062,0.0602182544539,0.0598918682509,0.0595654820479,0.0600550613524,0.0596470785987,0.0589127096419,0.0589127096419,0.0587495165404,0.0592390958449,0.0594838854972,0.0595654820479,0.0585047268882,0.0583415337867,0.0579335510329,0.0577703579314,0.0568727958732,0.0563016200179,0.0553224614089,0.0543433027999,0.0539353200462,0.0537721269446,0.0545064959014,0.0543433027999,0.0540985131477,0.0548328821044,0.0546696890029,0.0549144786552,0.0542617062492,0.0553224614089,0.0545880924522,0.0547512855537,0.0544248993507,0.0533641441909,0.0533641441909,0.0532009510894,0.0523849855819,0.0522217924804,0.0518138097266,0.0518954062774,0.0518954062774,0.0522217924804,0.0521401959296,0.0519770028281,0.0519770028281,0.0516506166251,0.0511610373206,0.0518138097266,0.0518138097266,0.0515690200744,0.0511610373206,0.0510794407699,0.0510794407699,0.0514874235236,0.0523033890311,0.0529561614371,0.0528745648864,0.0528745648864,0.0527113717849,0.0527113717849,0.0532825476401,0.0533641441909,0.0542617062492,0.0537721269446,0.0541801096984,0.0535273372924,0.0536905303939,0.0532825476401,0.0540985131477,0.0546696890029,0.0546696890029,0.0549144786552,0.0558120407134,0.0561384269164,0.0565464096702,0.0573623751777,0.0576887613807,0.0581783406852,0.0585863234389,0.0591574992942,0.0598102717002,0.06087102686,0.061850185469,0.0614422027152,0.0617685889182,0.0617685889182,0.0616869923675,0.061197413063,0.0614422027152,0.0622581682227,0.0625845544257,0.061523799266,0.0609526234107,0.0602998510047,0.0607894303092,0.0614422027152,0.0609526234107,0.0602182544539,0.0603814475554,0.0599734648017,0.0598918682509,0.0593206923957,0.0601366579032,0.061197413063,0.061197413063,0.0603814475554,0.0603814475554,0.0603814475554,0.0601366579032,0.0594838854972,0.0588311130912,0.0580151475837,0.0575255682792,0.0570359889747,0.0572807786269,0.0577703579314,0.0573623751777,0.0568727958732,0.0565464096702,0.0562200234672,0.0552408648582,0.0549960752059,0.0553224614089,0.0563832165687,0.0563016200179,0.0550776717567,0.0547512855537,0.0555672510612,0.0560568303657,0.0560568303657,0.0553224614089,0.0548328821044,0.0540985131477,0.0544248993507,0.0542617062492,0.0536089338431,0.0532009510894,0.0536905303939,0.0531193545386,0.0523849855819,0.0515690200744,0.0518138097266,0.0518138097266,0.0522217924804,0.0519770028281,0.0540169165969,0.0543433027999,0.0545064959014,0.0551592683074,0.0558120407134,0.0552408648582,0.0544248993507,0.0550776717567,0.0548328821044,0.0551592683074,0.0553224614089,0.0569543924239,0.0577703579314,0.0579335510329,0.0569543924239,0.0568727958732,0.0567096027717,0.0559752338149,0.0550776717567,0.0554856545104,0.0560568303657,0.0566280062209,0.0568727958732,0.0585047268882,0.0586679199897,0.0583415337867,0.0597286751494,0.0594838854972,0.0589943061927,0.0585047268882,0.0584231303374,0.0588311130912,0.0586679199897,0.0589127096419,0.0576887613807,0.0575255682792,0.0558936372642,0.0558120407134,0.0558936372642,0.0556488476119,0.0542617062492,0.0553224614089,0.0554856545104,0.0551592683074,0.0551592683074,0.0555672510612,0.0568727958732,0.0567911993224,0.0565464096702,0.0561384269164,0.0563832165687,0.0563016200179,0.0567096027717,0.0577703579314,0.0583415337867,0.0580967441344,0.0579335510329,0.0571991820762,0.0573623751777,0.0563832165687,0.0567911993224,0.0571175855254,0.0570359889747,0.0578519544822,0.0577703579314,0.0586679199897,0.0592390958449,0.0591574992942,0.0598102717002,0.0590759027434,0.0598102717002,0.0596470785987,0.0599734648017,0.0602182544539,0.0598102717002,0.0597286751494,0.0601366579032,0.0594838854972,0.0594022889464,0.0588311130912,0.0585863234389,0.0588311130912,0.0578519544822,0.0569543924239,0.0569543924239,0.0576071648299,0.0580967441344,0.0588311130912,0.0589943061927,0.0589127096419,0.0585047268882,0.0586679199897,0.0571175855254,0.0557304441627,0.0539353200462,0.0525481786834,0.0507530545669,0.0487131407981,0.0468364201308,0.0450412960143,0.0438989443038,0.0418590305351,0.0396559236648,0.0381055892005,0.0362288685333,0.0350865168228,0.0335361823585,0.032393830648,0.0305171099807,0.0287219858642)
s <- c(0.026280757785,0.0259537810163,0.0257085484398,0.025831164728,0.0255041879593,0.025340699575,0.0252998274789,0.0248093623258,0.0247276181336,0.0251363390945,0.0251772111906,0.024891106518,0.0248502344219,0.0247684902297,0.0251363390945,0.0249319786141,0.0251772111906,0.025831164728,0.0423843636439,0.0436513986227,0.0444688405445,0.045654131331,0.0467576779254,0.0481064570964,0.049332619979,0.050722271246,0.0519893062248,0.0532972132996,0.0550138413353,0.0556677948728,0.0568530856593,0.0581201206381,0.0587740741755,0.059918492866,0.0611446557486,0.0626569233039,0.0624934349196,0.0624525628235,0.0626160512078,0.0622890744391,0.0624116907274,0.0620438418626,0.0617986092861,0.0618394813821,0.0617986092861,0.0611855278447,0.0615125046134,0.0611037836526,0.0609811673643,0.0607359347878,0.0607359347878,0.0610629115565,0.060858551076,0.0602045975386,0.0597141323855,0.0592645393286,0.0579975043498,0.056689597275,0.0560356437376,0.0550955855275,0.0545233761823,0.054400759894,0.0538694226449,0.0537876784527,0.0532154691074,0.0533380853957,0.0531745970114,0.0535015737801,0.0535424458761,0.0539102947409,0.0532972132996,0.0522345388013,0.0514579689756,0.0508040154382,0.0503544223812,0.0500683177086,0.0499865735164,0.049782213036,0.0498639572282,0.0498230851321,0.0494143641712,0.0489647711142,0.0487604106338,0.0487604106338,0.0488012827299,0.0485151780572,0.0476159919433,0.0476159919433,0.0476568640394,0.0480655850003,0.0475751198472,0.0475751198472,0.0485560501533,0.0493734920751,0.0499865735164,0.0506405270539,0.0508857596304,0.0508040154382,0.0509675038226,0.0508448875343,0.0516623294561,0.0512944805913,0.0514579689756,0.0514988410717,0.0517440736482,0.0513762247834,0.0519893062248,0.0532972132996,0.0539102947409,0.0552182018158,0.0561991321219,0.0565261088906,0.0564034926024,0.057139190332,0.0569757019476,0.0569348298515,0.0574252950046,0.0588149462716,0.0597141323855,0.0602045975386,0.0611446557486,0.0622890744391,0.0633517489374,0.0639239582827,0.0646596560123,0.0651501211653,0.0653136095497,0.0658040747027,0.0665397724323,0.066376284048,0.0668667492011,0.0669893654893,0.0676841911228,0.0681746562759,0.0680111678915,0.0684607609485,0.0678885516033,0.0685016330446,0.0684198888524,0.0682972725642,0.0685425051407,0.0689103540055,0.0690738423898,0.068215528372,0.0683790167563,0.0681337841798,0.0676433190267,0.0680111678915,0.0682564004681,0.0685425051407,0.068665121429,0.068705993525,0.0682972725642,0.0672345980659,0.0665397724323,0.0664989003363,0.0657632026067,0.064986632781,0.0642918071475,0.0641283187631,0.0631882605531,0.0619620976704,0.0621664581509,0.0615533767095,0.0602454696347,0.0595506440012,0.0586514578872,0.0581201206381,0.0573026787163,0.0561582600258,0.0558721553532,0.055299946008,0.054850352951,0.0546868645666,0.0547686087588,0.0544416319901,0.0538285505488,0.0533789574918,0.0525206434739,0.05256151557,0.0522754108974,0.0512127363991,0.0505587828617,0.049782213036,0.0492100036908,0.048392561769,0.0480655850003,0.0472890151746,0.0472481430785,0.0474116314628,0.047002910502,0.0465124453489,0.0467576779254,0.0468394221176,0.0463080848685,0.0455723871389,0.0458176197154,0.0460628522919,0.0451227940819,0.0452045382741,0.045654131331,0.0463898290606,0.0464715732528,0.046553317445,0.0463080848685,0.046553317445,0.0465941895411,0.0464715732528,0.0467168058293,0.0462672127724,0.0458584918115,0.0458584918115,0.0455315150428,0.0452454103701,0.0447958173132,0.0444688405445,0.044264480064,0.044714073121,0.0450819219858,0.045163666178,0.0456132592349,0.0458993639076,0.0464715732528,0.047493375655,0.047942968712,0.048392561769,0.0487604106338,0.0499865735164,0.0504361665734,0.0509675038226,0.0518258178404,0.0527658760505,0.0532154691074,0.0535833179722,0.0550955855275,0.0555043064884,0.0561173879297,0.0563217484102,0.0563626205063,0.056240004218,0.0572618066202,0.0573435508124,0.057180062428,0.0568939577554,0.057139190332,0.0574661671007,0.0575070391967,0.0577113996772,0.0586514578872,0.0587332020794,0.0592236672325,0.0591010509442,0.0593462835207,0.059468899809,0.0596732602894,0.0602045975386,0.0602863417308,0.0600819812503,0.059918492866,0.0597550044816,0.0596732602894,0.0596323881934,0.0588966904638,0.0581201206381,0.0579157601576,0.0580383764459,0.0577113996772,0.056689597275,0.0562808763141,0.0559538995454,0.0555860506806,0.0548094808549,0.0541146552214,0.0537059342605,0.0538285505488,0.0546051203745,0.0544825040862,0.0549320971432,0.0551364576236,0.0560356437376,0.0557086669688,0.0556677948728,0.0559947716415,0.056240004218,0.0555451785845,0.0555451785845,0.0558721553532,0.0562808763141,0.0564034926024,0.056240004218,0.0559947716415,0.0558312832571,0.0554225622962,0.0561173879297,0.0564034926024,0.0567713414672,0.0565669809867,0.0561582600258,0.0563626205063,0.056689597275,0.0566487251789,0.0565669809867,0.0578748880615,0.059019306752,0.0601637254425,0.0614716325173,0.0618803534782,0.0628612837844,0.0638013419944,0.0649048885888,0.0655997142223,0.0650683769732,0.0653953537419,0.0653544816458,0.0662945398558,0.0668667492011,0.067316342258,0.0676433190267,0.0678885516033,0.0680520399876,0.0692782028703,0.0708722146177,0.071444423963,0.0720166333082,0.0727114589417,0.0729566915183,0.0731201799026,0.0734880287674,0.0742645985931,0.0745098311696,0.0748776800344,0.0754498893797,0.0758177382445,0.0761855871093,0.0769212848389,0.0769212848389,0.0765534359741,0.0775343662802,0.0768804127428,0.0761038429171,0.0750002963227,0.0750820405149,0.0752455288992,0.0755725056679,0.0759812266288,0.0769212848389,0.0771256453193,0.0784335523941,0.0787605291629,0.080231924622,0.0809676223516,0.0813354712164,0.0820302968499,0.0825616340991,0.0832564597326,0.0837469248857,0.0843191342309,0.08297035506,0.0830520992522,0.0832155876365,0.08297035506,0.0842373900387,0.0850548319605,0.0855044250175,0.0863218669393,0.0871801809571,0.087588901918,0.0878341344945,0.0877115182063,0.0890194252811,0.0890602973772,0.0902864602599,0.0909812858934,0.0902864602599,0.0902455881638,0.0907360533168,0.0908586696051,0.0896325067224,0.0893055299537,0.0901229718755,0.0895916346263,0.0882837275515,0.0881202391672,0.0877115182063,0.0875480298219,0.0874662856297,0.0870166925728,0.0860357622666,0.0861175064588,0.0859948901705,0.0856679134018,0.0851774482488,0.0848913435762,0.0854226808253,0.0855044250175,0.0851365761527,0.0851774482488,0.0840739016544,0.0838286690778,0.0837469248857,0.0832973318287,0.0830520992522,0.0830112271561,0.082520762003,0.0827659945795,0.0827659945795,0.0827659945795,0.0826025061952,0.08297035506,0.083460820213,0.0841556458466,0.0847278551918,0.0850139598644,0.0854635529214,0.0860766343627,0.0854226808253,0.085749657594,0.0859948901705,0.0858722738823,0.0851774482488,0.0846052389035,0.0837469248857,0.0828477387717,0.0825616340991,0.0814989596008,0.0814989596008,0.0805997734868,0.0808041339673,0.0802727967181,0.0805180292947,0.080231924622,0.0808450060634,0.0801501804299,0.080191052526,0.0803954130064,0.0805589013908,0.0801501804299,0.0803136688142,0.0800275641416,0.0798232036612,0.0803136688142,0.0795779710846,0.0794962268924,0.0786787849707,0.0781065756254,0.0780657035293,0.0773300057998,0.0764308196858,0.0763899475897,0.076512563878,0.0759812266288,0.0754090172836,0.0739784939205,0.0735697729596,0.0741828544009,0.0743463427853,0.0740193660166,0.0739376218244,0.0740193660166,0.0743872148814,0.0750411684188,0.0750820405149,0.0761447150132,0.0763899475897,0.0772073895115,0.0775343662802,0.0777795988567,0.0780657035293,0.0786379128746,0.0789240175472,0.0780657035293,0.0778613430489,0.0776978546645,0.0768395406467,0.0767577964545,0.0767577964545,0.0761855871093,0.0767577964545,0.077452622088,0.078351808202,0.0792509943159,0.0794962268924,0.0798640757572,0.0804362851025,0.0803136688142,0.0810902386399,0.0810902386399,0.0816215758891,0.082520762003,0.0837060527896,0.0839921574622,0.0849730877683,0.0853409366331,0.0862401227471,0.0874662856297,0.0884472159359,0.0893055299537,0.091757855719,0.0927387860252,0.0930657627939,0.0936788442352,0.0936788442352,0.0937197163313,0.0930248906978,0.0936788442352,0.0937605884274,0.0942101814844,0.0944145419648,0.0952319838866,0.0955998327514,0.0964990188653,0.097275588691,0.0981339027089,0.0982973910932,0.0988287283424,0.0991965772072,0.099564426072,0.0996870423602,0.10062710057,0.102261984414,0.104060356642,0.104019484546,0.105041286948,0.10512303114,0.105940473062,0.105613496293,0.10532739162,0.105163903236,0.105940473062,0.105409135813,0.10532739162,0.105450007909,0.105531752101,0.103774251969,0.103161170528,0.103079426336,0.101894135549,0.102261984414,0.102997682143,0.103569891489,0.102915937951,0.103733379873,0.104346461314,0.103937740353,0.10397861245,0.10397861245,0.103488147296,0.10303855424,0.102425472798,0.101812391357,0.101281054108,0.10062710057,0.100300123802,0.0997687865524,0.099114833015,0.0980112864206,0.0967442514419,0.0973982049793,0.0964581467692,0.0966625072497,0.0971529724028,0.0973164607871,0.0975208212675,0.0981339027089,0.0985017515737,0.103855996161,0.109782450094,0.116076752892,0.12351547438,0.131444661021,0.139700824431,0.148733557667,0.160382105052,0.171989780341,0.185232339474,0.198761003279,0.213638446255,0.227861935694,0.244701239283,0.26280757785,0.279360776766,0.294973917472,0.311200139619,0.326486303556,0.342181188454,0.358448282698,0.373816190827,0.388816250091,0.403693693068,0.416650147528,0.429402241507,0.441050788893,0.452535847894,0.462345150955,0.472195326112,0.48204550127,0.48883026922,0.496759455862,0.503789456389,0.510328991763,0.514211840891,0.510165503379,0.503993816869,0.498067362936,0.490424280968,0.483108175768,0.475056372839,0.465982767507,0.45539689462,0.443339626274,0.429647474084,0.417058868489,0.403571076779,0.388611889611,0.371895202311,0.354606305665,0.338502699806,0.323870489407,0.30899304643,0.294238219742,0.279238160478,0.263625019772,0.248829320988,0.234197110588,0.21870658617,0.205177922365,0.192548444674,0.181267746153,0.170027919729,0.159482918938,0.149714487973,0.139986929104,0.133202161153,0.125477334992,0.118202101888,0.111907799091,0.107370996425,0.106430938215,0.106635298695,0.106676170791,0.106717042887,0.106553554503,0.106839659176,0.107084891752,0.10606308935,0.106839659176,0.107207508041,0.106390066119,0.105940473062,0.106430938215,0.106757914984,0.105940473062,0.104877798564,0.10418297293,0.103651635681,0.103120298432,0.103815124065,0.103488147296,0.102629833279,0.101117565723,0.101199309916,0.10156715878,0.101444542492,0.100259251705,0.100790588955,0.100708844762,0.101076693627,0.100749716859,0.0996461702642,0.0991557051111,0.099114833015,0.0985426236698,0.0987061120541,0.0986243678619,0.0983382631893,0.0976843096519,0.0977660538441,0.0974390770754,0.0969894840184,0.0964990188653,0.096785123538,0.0957224490396,0.0953954722709,0.0948641350218,0.0945371582531,0.0945371582531,0.0938014605235,0.0940875651961,0.094945879214,0.0945371582531,0.0934744837548,0.0936788442352,0.0924935534486,0.0922483208721,0.0925752976408,0.0933518674665,0.093597100043,0.0933927395626,0.0929431465056,0.0934336116587,0.0931883790822,0.0927796581213,0.0928614023134,0.09310663489,0.0935153558509,0.0937197163313,0.0933109953704,0.0922891929682,0.0921257045838,0.0922891929682,0.0913082626621,0.0903273323559,0.089428146242,0.0883245996476,0.0884472159359,0.0888968089928,0.0889376810889,0.0890194252811,0.0882837275515,0.0886924485124,0.088488088032,0.0878341344945,0.0870984367649,0.0871801809571,0.0863218669393,0.0853409366331,0.0853818087292,0.084360006327,0.084809599384,0.0847687272879,0.0844417505192,0.0844417505192,0.0841556458466,0.0842373900387,0.084360006327,0.0843191342309,0.0836651806935,0.0838695411739,0.0835425644052,0.0825616340991,0.0817850642734,0.0808041339673,0.080681517679,0.0806406455829,0.0800684362377,0.0790875059316,0.0796597152768,0.0804362851025,0.0806406455829,0.0814172154086,0.0803136688142,0.079741459469,0.079741459469,0.0796188431807,0.0797823315651,0.0796188431807,0.0793327385081,0.0793736106042,0.0796597152768,0.0791283780277,0.0796597152768,0.0807223897751,0.0811719828321,0.0816624479851,0.0808450060634,0.0802727967181,0.080681517679,0.0807632618712,0.0810084944477,0.0818668084656,0.0822346573304,0.0824390178108,0.0826842503874,0.082520762003,0.0826842503874,0.0832973318287,0.0838695411739,0.0845234947114,0.0843191342309,0.0845643668074,0.0842782621348,0.0844008784231,0.0855044250175,0.0855861692097,0.0853409366331,0.0852183203449,0.0859540180745,0.0865670995158,0.086648843708,0.087139308861,0.0873027972454,0.0871801809571,0.0874254135337,0.088038494975,0.0879567507828,0.0885698322241,0.0893464020498,0.0892646578576,0.0887741927046,0.0889376810889,0.0892237857616,0.0896325067224,0.0892237857616,0.0889376810889,0.0883245996476,0.0875480298219,0.0872210530532,0.0868940762845,0.0867714599962,0.0866079716119,0.0858722738823,0.0862809948432,0.0868940762845,0.0865262274197,0.0865670995158,0.0864036111314,0.0869349483806,0.0873436693415,0.0859540180745,0.0850548319605,0.085300064537,0.0848504714801,0.0841147737505,0.0837877969818,0.0831747155404,0.0826842503874,0.0825616340991,0.0824390178108,0.0822755294265,0.0822755294265,0.0831338434443,0.0837060527896,0.0831338434443,0.0837060527896,0.0841965179426,0.0840739016544,0.0840739016544,0.0840330295583,0.0840330295583,0.0844417505192,0.0848504714801,0.0844826226153,0.0842373900387,0.083419948117,0.08297035506,0.0825616340991,0.0826842503874,0.0819076805617,0.0813763433125,0.0816215758891,0.0814989596008,0.0811719828321,0.0812128549282,0.0812128549282,0.0817850642734,0.082520762003,0.0818259363695,0.0820302968499,0.082520762003,0.0823164015226,0.082071168946,0.0824390178108,0.0819076805617,0.0818668084656,0.0816624479851,0.0814172154086,0.080681517679,0.0797823315651,0.0795370989885,0.0785561686824,0.0778613430489,0.0773300057998,0.0767986685506,0.0770847732232,0.0765943080702,0.0754907614758,0.0745098311696,0.0740193660166,0.0738150055361,0.0738967497283,0.0736515171518,0.0736106450557,0.0730384357104,0.0725888426535,0.0717305286356,0.0710765750982,0.0709539588099,0.0702182610803,0.0689103540055,0.067765935315,0.0666623887206,0.0656814584145,0.0656405863184,0.0655179700301,0.0652727374536,0.0643326792436,0.0632291326492,0.0626160512078,0.0626569233039,0.0619620976704,0.0615533767095,0.0602863417308,0.0598367486738,0.0591827951364,0.0589784346559,0.0587332020794,0.0588558183677,0.0589375625599,0.0597550044816,0.0588966904638,0.0586514578872,0.0597141323855,0.0600411091542,0.0602863417308,0.0599593649621,0.0601228533464,0.0598367486738,0.0592645393286,0.0589784346559,0.0588966904638,0.0589375625599,0.0592645393286,0.0593462835207,0.0599593649621,0.0604498301151,0.0611037836526,0.0616351209017,0.0614307604213,0.0612672720369,0.0606133184995,0.0602454696347,0.0600819812503,0.0607768068838,0.0602454696347,0.0597958765777,0.0592236672325,0.0586923299833,0.0591010509442,0.0592645393286,0.0592645393286,0.0587332020794,0.0584470974068,0.0584470974068,0.0584062253107,0.057180062428,0.0568122135632,0.0558721553532,0.0549320971432,0.055299946008,0.0552182018158,0.0550955855275,0.0545233761823,0.0547686087588,0.0552590739119,0.0555043064884,0.0557086669688,0.0552590739119,0.0550955855275,0.0546051203745,0.054400759894,0.0542781436057,0.0538694226449,0.0534198295879,0.0532154691074,0.0528067481466,0.053011108627,0.0535833179722,0.0537468063566,0.0535833179722,0.0538285505488,0.0540329110292,0.0542781436057,0.0542372715097,0.0540737831253,0.0531745970114,0.0536650621644,0.0535424458761,0.0533380853957,0.0525206434739,0.0524388992818,0.0526432597622,0.0528067481466,0.0535015737801,0.0535833179722,0.0528067481466,0.0533380853957,0.053951166837,0.0544416319901,0.0550547134314,0.0550955855275,0.0555451785845,0.0552590739119,0.0552590739119,0.0551364576236,0.0554634343923,0.0555860506806,0.0560765158336,0.0560356437376,0.0558312832571,0.0563217484102,0.0569348298515,0.0568530856593,0.0570983182359,0.0573435508124,0.0575479112928,0.0578748880615,0.0577113996772,0.0586105857911,0.0595097719051,0.0599593649621,0.0609402952682,0.0607359347878,0.0609811673643,0.0609811673643,0.0606541905956,0.0606541905956,0.0606133184995,0.0611446557486,0.0610629115565,0.0605724464034,0.0604498301151,0.0597141323855,0.0591419230403,0.0594280277129,0.0586514578872,0.058079248542,0.0578340159655,0.0577522717733,0.0577931438694,0.057180062428,0.0572618066202,0.057629655485,0.0576705275811,0.0575070391967,0.0574661671007,0.0577113996772,0.0576705275811,0.0574661671007,0.0563626205063,0.0558721553532,0.0555043064884,0.0550547134314,0.055299946008,0.0550955855275,0.0544825040862,0.0541963994136,0.0538694226449,0.0537468063566,0.0527250039544,0.0526841318583,0.0532563412035,0.0531745970114,0.0530519807231,0.0521936667052,0.0521936667052,0.0526023876661,0.0526432597622,0.0526432597622,0.05256151557,0.0525206434739,0.052071050417,0.0523162829935,0.0523571550896,0.0515805852639,0.0512944805913,0.0519484341287,0.0517440736482,0.0513353526874,0.0509675038226,0.0512536084952,0.05162145736,0.0514170968795,0.0516623294561,0.0528884923387,0.0532972132996,0.0535015737801,0.0539920389331,0.0543190157018,0.0541555273175,0.0538285505488,0.0546868645666,0.054850352951,0.0555860506806,0.0558312832571,0.0568122135632,0.0575070391967,0.0577113996772,0.0576705275811,0.0575479112928,0.0575070391967,0.057180062428,0.0568530856593,0.0572209345241,0.0573435508124,0.0579975043498,0.0576705275811,0.0586923299833,0.0586923299833,0.0586923299833,0.0596323881934,0.0595097719051,0.0589375625599,0.0585697136951,0.0584879695029,0.0587332020794,0.058079248542,0.058079248542,0.0573844229085,0.0566078530828,0.055340818104,0.0551773297197,0.0550138413353,0.0546868645666,0.0540329110292,0.0544416319901,0.0543190157018,0.0537468063566,0.0533789574918,0.0531745970114,0.0532154691074,0.053460701684,0.0532154691074,0.0530519807231,0.0527658760505,0.0533380853957,0.0537059342605,0.0539102947409,0.0541963994136,0.0546051203745,0.0548912250471,0.0542781436057,0.0544825040862,0.0538694226449,0.0547686087588,0.0552590739119,0.0555451785845,0.0563217484102,0.0566487251789,0.0573026787163,0.0578340159655,0.0581201206381,0.0586923299833,0.0582427369263,0.0587332020794,0.0591010509442,0.0597141323855,0.0598367486738,0.0597550044816,0.0597550044816,0.0597141323855,0.0595506440012,0.0597958765777,0.0595506440012,0.0593871556168,0.0595097719051,0.059468899809,0.0587740741755,0.0588149462716,0.059019306752,0.0597958765777,0.0600819812503,0.0602863417308,0.060408958019,0.0600002370582,0.0595915160973,0.0586105857911,0.0574252950046,0.0564443646984,0.0556677948728,0.054400759894,0.0530519807231,0.0519484341287,0.0514579689756,0.050722271246,0.0496595967477,0.0483516896729,0.0473707593668,0.0465124453489,0.0465124453489,0.0458993639076,0.0450819219858,0.0435696544305,0.0428339567009,0.0284061067816,0.0282834904934,0.0286513393582,0.0283243625894,0.0279973858207,0.0279565137246,0.0277112811481,0.0277930253403,0.0275477927638,0.0273843043794,0.0273025601872,0.0270164555146,0.0265668624576,0.026280757785,0.0265259903615,0.0269347113224,0.0270164555146,0.0270573276107)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("ChIPseq_LANA_iSLK219_dox_PFA_rep2-GSM1359490.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=37"),bty="n")
dev.off()