# R script for Peak Model
#  -- generated by MACS
p <- c(0.0401992505975,0.0424120533826,0.0446248561678,0.0469605924411,0.0491733952262,0.0508944640592,0.0534760673085,0.0558118035818,0.058024606367,0.0607291431044,0.0629419458896,0.0652776821628,0.0677363519242,0.0689656868048,0.0700720881974,0.0721619574945,0.0744976937678,0.0770792970171,0.0770792970171,0.0769563635291,0.0772022305052,0.0776939644575,0.0776939644575,0.0792920998023,0.0800297007307,0.0800297007307,0.0811361021233,0.0818737030517,0.0810131686352,0.0789232993381,0.0770792970171,0.0760958291126,0.0759728956246,0.07498942772,0.07498942772,0.0752352946962,0.0752352946962,0.0753582281842,0.0741288933036,0.073145425399,0.0720390240065,0.0713014230781,0.0703179551735,0.0694574207571,0.0689656868048,0.06736755146,0.0666299505316,0.0658923496032,0.0649088816986,0.0646630147225,0.0646630147225,0.0640483472822,0.0644171477464,0.0634336798419,0.0640483472822,0.0630648793777,0.0631878128657,0.0639254137941,0.0626960789135,0.0612208770567,0.0586392738073,0.0575328724147,0.0558118035818,0.0565494045102,0.0565494045102,0.0564264710221,0.0567952714863,0.0572870054386,0.0579016728789,0.0597456751999,0.0608520765925,0.0623272784493,0.0629419458896,0.0629419458896,0.0634336798419,0.0646630147225,0.0662611500674,0.0672446179719,0.0668758175077,0.06736755146,0.0679822189003,0.069334487269,0.0703179551735,0.0704408886616,0.0710555561019,0.0726536914468,0.0735142258632,0.07498942772,0.0746206272558,0.0747435607439,0.0733912923752,0.0741288933036,0.07498942772,0.0744976937678,0.0751123612081,0.0757270286484,0.0779398314336,0.0802755677068,0.080521434683,0.0795379667785,0.0795379667785,0.080521434683,0.0803985011949,0.0808902351472,0.0799067672427,0.0783086318978,0.0773251639933,0.0762187626007,0.0764646295768,0.0758499621365,0.0765875630649,0.0754811616723,0.0742518267916,0.0742518267916,0.0736371593513,0.0732683588871,0.0726536914468,0.0722848909826,0.07117848959,0.0708096891258,0.0703179551735,0.0699491547093,0.0689656868048,0.0672446179719,0.0663840835554,0.0654006156509,0.0660152830912,0.0652776821628,0.0646630147225,0.0641712807703,0.0644171477464,0.0644171477464,0.0638024803061,0.0613438105447,0.0620814114731,0.0624502119373,0.0625731454254,0.061835544497,0.0624502119373,0.0614667440328,0.0613438105447,0.0615896775209,0.061835544497,0.0622043449612,0.0612208770567,0.0623272784493,0.0626960789135,0.0633107463538,0.0629419458896,0.0625731454254,0.0633107463538,0.0635566133299,0.0645400812344,0.0639254137941,0.0646630147225,0.0654006156509,0.0662611500674,0.0652776821628,0.0654006156509,0.0661382165793,0.0661382165793,0.06736755146,0.0665070170435,0.0677363519242,0.0678592854122,0.0672446179719,0.0668758175077,0.0661382165793,0.0661382165793,0.0668758175077,0.0660152830912,0.0658923496032,0.0669987509958,0.0683510193645,0.0679822189003,0.0669987509958,0.0668758175077,0.065646482627,0.0647859482106,0.0634336798419,0.0629419458896,0.0615896775209,0.059991542176,0.0602374091522,0.0602374091522,0.0601144756641,0.0610979435686,0.0608520765925,0.0603603426402,0.0607291431044,0.0607291431044,0.0594998082238,0.0586392738073,0.058147539855,0.0588851407834,0.0583934068312,0.058147539855,0.0575328724147,0.0574099389266,0.056180604046,0.0548283356773,0.0549512691653,0.0542136682369,0.0540907347489,0.0527384663801,0.052492599404,0.0515091314995,0.0501568631308,0.0483128608098,0.0469605924411,0.0469605924411,0.0480669938337,0.048804594762,0.0499109961546,0.0502797966188,0.0517549984756,0.0522467324279,0.0518779319637,0.0528613998682,0.0518779319637,0.0527384663801,0.0529843333563,0.0521237989398,0.0527384663801,0.0532302003324,0.0537219342847,0.0532302003324,0.0533531338205,0.0534760673085,0.0537219342847,0.0527384663801,0.052492599404,0.052369665916,0.0517549984756,0.0520008654518,0.0527384663801,0.0526155328921,0.0531072668443,0.0533531338205,0.0533531338205,0.054336601725,0.0535990007966,0.0538448677727,0.0539678012608,0.0545824687011,0.0555659366057,0.0564264710221,0.0566723379982,0.056180604046,0.0559347370699,0.0570411384624,0.0569182049744,0.0582704733431,0.0593768747357,0.0588851407834,0.0592539412476,0.0591310077596,0.0592539412476,0.0593768747357,0.0593768747357,0.0582704733431,0.0579016728789,0.0590080742715,0.0591310077596,0.0590080742715,0.0592539412476,0.059991542176,0.0602374091522,0.0608520765925,0.0615896775209,0.0613438105447,0.0607291431044,0.0619584779851,0.0610979435686,0.0606062096163,0.0614667440328,0.0614667440328,0.0620814114731,0.0633107463538,0.0630648793777,0.0640483472822,0.0638024803061,0.0646630147225,0.0662611500674,0.0668758175077,0.0679822189003,0.0678592854122,0.0678592854122,0.0671216844838,0.0661382165793,0.0668758175077,0.0679822189003,0.0677363519242,0.0681051523884,0.0683510193645,0.0683510193645,0.0687198198287,0.0679822189003,0.0684739528525,0.0694574207571,0.0708096891258,0.0721619574945,0.073022491911,0.0743747602797,0.0762187626007,0.0781856984097,0.0797838337546,0.0818737030517,0.0831030379324,0.0845782397891,0.0862993086221,0.0860534416459,0.0865451755982,0.0871598430385,0.0869139760624,0.0878974439669,0.0870369095505,0.0872827765266,0.086176375134,0.086176375134,0.0854387742056,0.0860534416459,0.0855617076937,0.0860534416459,0.086176375134,0.0871598430385,0.0867910425743,0.0856846411817,0.0869139760624,0.0874057100147,0.088143310943,0.0896185127998,0.0907249141924,0.0929377169776,0.0937982513941,0.0937982513941,0.0931835839537,0.0944129188344,0.0942899853463,0.0940441183702,0.0928147834895,0.0920771825611,0.0922001160492,0.0915854486089,0.091831315585,0.0922001160492,0.0922001160492,0.0924459830253,0.0924459830253,0.0919542490731,0.091831315585,0.0913395816328,0.0914625151208,0.0912166481447,0.089864379776,0.0890038453595,0.0904790472163,0.0893726458237,0.0913395816328,0.0914625151208,0.0925689165134,0.0928147834895,0.0944129188344,0.095519320227,0.0960110541792,0.0956422537151,0.0950275862747,0.093675317906,0.0934294509299,0.0924459830253,0.0902331802402,0.0910937146566,0.0903561137282,0.0904790472163,0.0897414462879,0.0893726458237,0.0914625151208,0.0912166481447,0.0903561137282,0.089864379776,0.0892497123356,0.0885121114072,0.0878974439669,0.0867910425743,0.0860534416459,0.0867910425743,0.0866681090863,0.0874057100147,0.0871598430385,0.0874057100147,0.0896185127998,0.0896185127998,0.0886350448953,0.088020377455,0.0869139760624,0.0869139760624,0.0867910425743,0.0866681090863,0.0860534416459,0.0855617076937,0.0844553063011,0.0837177053727,0.0850699737414,0.0854387742056,0.0838406388608,0.0842094393249,0.0837177053727,0.0821195700278,0.0831030379324,0.0799067672427,0.0807673016591,0.0808902351472,0.0789232993381,0.0780627649217,0.0773251639933,0.0769563635291,0.0760958291126,0.0763416960887,0.0765875630649,0.0764646295768,0.0765875630649,0.0759728956246,0.0765875630649,0.0751123612081,0.0756040951604,0.0764646295768,0.0762187626007,0.0762187626007,0.0772022305052,0.0776939644575,0.0774480974813,0.0773251639933,0.0762187626007,0.0756040951604,0.0741288933036,0.0728995584229,0.0735142258632,0.0737600928394,0.0717931570303,0.0705638221497,0.0698262212213,0.0679822189003,0.067490484948,0.0681051523884,0.0669987509958,0.067490484948,0.0665070170435,0.0654006156509,0.0644171477464,0.0646630147225,0.0649088816986,0.0652776821628,0.0651547486748,0.063679546818,0.0631878128657,0.0634336798419,0.0639254137941,0.0644171477464,0.0638024803061,0.0649088816986,0.0654006156509,0.0642942142583,0.0635566133299,0.0630648793777,0.0620814114731,0.0629419458896,0.0617126110089,0.0607291431044,0.0608520765925,0.0608520765925,0.0614667440328,0.0629419458896,0.0622043449612,0.0620814114731,0.0625731454254,0.0628190124015,0.0639254137941,0.0654006156509,0.067490484948,0.0671216844838,0.0678592854122,0.0685968863406,0.0687198198287,0.0697032877332,0.0698262212213,0.0700720881974,0.0698262212213,0.069334487269,0.0690886202929,0.0694574207571,0.0690886202929,0.0694574207571,0.0690886202929,0.0697032877332,0.0706867556377,0.0709326226139,0.0701950216855,0.0699491547093,0.069334487269,0.0695803542451,0.0695803542451,0.0694574207571,0.07117848959,0.0727766249348,0.073145425399,0.0746206272558,0.0754811616723,0.0757270286484,0.0760958291126,0.0770792970171,0.0774480974813,0.0780627649217,0.0792920998023,0.0797838337546,0.0784315653859,0.0790462328262,0.0788003658501,0.0795379667785,0.0797838337546,0.0799067672427,0.0801526342188,0.0807673016591,0.0819966365398,0.0831030379324,0.0828571709562,0.0839635723488,0.0838406388608,0.0835947718846,0.0837177053727,0.0827342374682,0.0819966365398,0.0817507695636,0.0819966365398,0.0821195700278,0.0812590356114,0.0803985011949,0.0802755677068,0.0788003658501,0.0775710309694,0.0764646295768,0.0760958291126,0.0740059598155,0.0727766249348,0.073022491911,0.073145425399,0.0724078244706,0.073022491911,0.0758499621365,0.0803985011949,0.0835947718846,0.0903561137282,0.0966257216196,0.103755863927,0.11309880902,0.124039889458,0.136824972217,0.15059352288,0.167558344233,0.18685890186,0.207142927391,0.234557095229,0.261602462604,0.290491832299,0.318766534554,0.346303635881,0.37113620047,0.397321033428,0.425472802195,0.450920034225,0.474646197421,0.497143025737,0.515214248483,0.531195601932,0.544349485155,0.55738043489,0.568075648351,0.576066325075,0.584179935288,0.589957809227,0.592662345964,0.598071419439,0.60311169245,0.605078628259,0.603234625938,0.598931953856,0.595243949214,0.589466075275,0.583565267847,0.576312192052,0.566354579518,0.555536432569,0.542013748881,0.528245198218,0.509928108496,0.490504617382,0.468868323482,0.442437623548,0.414408788269,0.38515061811,0.357121782831,0.330076415456,0.305120917379,0.278075550004,0.250292581702,0.224230682232,0.200012785083,0.178745291647,0.160919935878,0.145430316382,0.132522300135,0.119983084352,0.109902538331,0.101788928118,0.0941670518583,0.0901102467521,0.0869139760624,0.080644368171,0.0770792970171,0.0741288933036,0.0735142258632,0.0727766249348,0.0720390240065,0.0706867556377,0.0703179551735,0.0705638221497,0.0699491547093,0.0699491547093,0.0701950216855,0.0697032877332,0.0701950216855,0.0699491547093,0.0698262212213,0.0685968863406,0.0683510193645,0.0681051523884,0.06736755146,0.065646482627,0.0651547486748,0.0666299505316,0.06736755146,0.0672446179719,0.06736755146,0.0666299505316,0.0658923496032,0.0645400812344,0.0635566133299,0.0630648793777,0.0625731454254,0.0631878128657,0.0642942142583,0.0630648793777,0.0628190124015,0.0623272784493,0.059868608688,0.0593768747357,0.0582704733431,0.0572870054386,0.0569182049744,0.0574099389266,0.0572870054386,0.0577787393908,0.058147539855,0.058147539855,0.0576558059028,0.0577787393908,0.0583934068312,0.0586392738073,0.0593768747357,0.059991542176,0.0606062096163,0.0629419458896,0.0633107463538,0.0638024803061,0.0641712807703,0.0626960789135,0.0625731454254,0.0625731454254,0.0630648793777,0.0646630147225,0.0651547486748,0.065646482627,0.0671216844838,0.0672446179719,0.06736755146,0.0660152830912,0.0665070170435,0.0665070170435,0.065523549139,0.065646482627,0.0662611500674,0.065523549139,0.0650318151867,0.0646630147225,0.0642942142583,0.0640483472822,0.0631878128657,0.0634336798419,0.0644171477464,0.0644171477464,0.0654006156509,0.0661382165793,0.0663840835554,0.0665070170435,0.0665070170435,0.0667528840196,0.0667528840196,0.0647859482106,0.0645400812344,0.065646482627,0.0663840835554,0.0687198198287,0.0676134184361,0.0684739528525,0.0689656868048,0.0695803542451,0.0709326226139,0.0717931570303,0.0728995584229,0.0736371593513,0.0733912923752,0.0747435607439,0.0733912923752,0.0735142258632,0.0740059598155,0.0753582281842,0.0757270286484,0.0759728956246,0.0764646295768,0.0778168979455,0.0801526342188,0.0811361021233,0.0826113039801,0.0813819690994,0.0815049025875,0.0810131686352,0.0813819690994,0.0816278360756,0.080521434683,0.0801526342188,0.0794150332904,0.0790462328262,0.0797838337546,0.0803985011949,0.0803985011949,0.0807673016591,0.0802755677068,0.0791691663143,0.0791691663143,0.0790462328262,0.0795379667785,0.0776939644575,0.0774480974813,0.0764646295768,0.0752352946962,0.0741288933036,0.0743747602797,0.074866494232,0.0762187626007,0.0772022305052,0.0776939644575,0.0769563635291,0.0764646295768,0.0774480974813,0.0780627649217,0.0779398314336,0.0760958291126,0.07498942772,0.0735142258632,0.0743747602797,0.0728995584229,0.0727766249348,0.0708096891258,0.0697032877332,0.0694574207571,0.0688427533167,0.0704408886616,0.0706867556377,0.0704408886616,0.0710555561019,0.07117848959,0.0709326226139,0.0714243565661,0.07117848959,0.0714243565661,0.0706867556377,0.0697032877332,0.0709326226139,0.0705638221497,0.0720390240065,0.0737600928394,0.0756040951604,0.0756040951604,0.074866494232,0.0743747602797,0.073145425399,0.0735142258632,0.0741288933036,0.074866494232,0.0757270286484,0.0764646295768,0.0762187626007,0.0765875630649,0.0778168979455,0.0781856984097,0.0789232993381,0.0799067672427,0.0797838337546,0.0801526342188,0.0801526342188,0.0815049025875,0.082488370492,0.0808902351472,0.0808902351472,0.0808902351472,0.0808902351472,0.0822425035159,0.0831030379324,0.0821195700278,0.0827342374682,0.0827342374682,0.0847011732772,0.0853158407175,0.0838406388608,0.0833489049085,0.0821195700278,0.080521434683,0.0792920998023,0.0789232993381,0.0775710309694,0.076833430041,0.0773251639933,0.0779398314336,0.0773251639933,0.0767104965529,0.0762187626007,0.0752352946962,0.0757270286484,0.0757270286484,0.074866494232,0.0753582281842,0.0740059598155,0.073145425399,0.0733912923752,0.0742518267916,0.0735142258632,0.0732683588871,0.0721619574945,0.0714243565661,0.0708096891258,0.0697032877332,0.0679822189003,0.0668758175077,0.0650318151867,0.0657694161151,0.065523549139,0.0660152830912,0.0639254137941,0.0633107463538,0.0646630147225,0.0641712807703,0.0644171477464,0.0634336798419,0.0630648793777,0.0615896775209,0.061835544497,0.0607291431044,0.0592539412476,0.0590080742715,0.0587622072954,0.0593768747357,0.0585163403192,0.0586392738073,0.0601144756641,0.0594998082238,0.059991542176,0.0592539412476,0.058147539855,0.0582704733431,0.0583934068312,0.058024606367,0.058147539855,0.058024606367,0.0587622072954,0.0592539412476,0.0603603426402,0.0614667440328,0.061835544497,0.0607291431044,0.0609750100805,0.0607291431044,0.0596227417118,0.0593768747357,0.0594998082238,0.0588851407834,0.0576558059028,0.0577787393908,0.0579016728789,0.058024606367,0.0577787393908,0.0583934068312,0.0591310077596,0.059991542176,0.0607291431044,0.0591310077596,0.0596227417118,0.0592539412476,0.059868608688,0.0592539412476,0.0566723379982,0.0564264710221,0.0560576705579,0.0565494045102,0.0577787393908,0.0577787393908,0.0579016728789,0.0577787393908,0.0579016728789,0.0570411384624,0.0575328724147,0.0570411384624,0.056180604046,0.0564264710221,0.0570411384624,0.0588851407834,0.0602374091522,0.0610979435686,0.0617126110089,0.0606062096163,0.0612208770567,0.0610979435686,0.0617126110089,0.0620814114731,0.0613438105447,0.0614667440328,0.0610979435686,0.0619584779851,0.0615896775209,0.0613438105447,0.0620814114731,0.0623272784493,0.0615896775209,0.0622043449612,0.0623272784493,0.0617126110089,0.0620814114731,0.0626960789135,0.0625731454254,0.0623272784493,0.0615896775209,0.0619584779851,0.0624502119373,0.0624502119373,0.063679546818,0.0633107463538,0.0625731454254,0.0628190124015,0.0626960789135,0.061835544497,0.0617126110089,0.0604832761283,0.0593768747357,0.0579016728789,0.0593768747357,0.0603603426402,0.0609750100805,0.0610979435686,0.0610979435686,0.0608520765925,0.0614667440328,0.0622043449612,0.0629419458896,0.0622043449612,0.0617126110089,0.0610979435686,0.0607291431044,0.061835544497,0.061835544497,0.0602374091522,0.0596227417118,0.0597456751999,0.0594998082238,0.0586392738073,0.0582704733431,0.0579016728789,0.0588851407834,0.0587622072954,0.0585163403192,0.0579016728789,0.0571640719505,0.0579016728789,0.0570411384624,0.0571640719505,0.0571640719505,0.0579016728789,0.0582704733431,0.0586392738073,0.0577787393908,0.0579016728789,0.056180604046,0.0556888700937,0.054336601725,0.0538448677727,0.0539678012608,0.054336601725,0.0531072668443,0.052369665916,0.0515091314995,0.0527384663801,0.0540907347489,0.0540907347489,0.0544595352131,0.0528613998682,0.0527384663801,0.0527384663801,0.0528613998682,0.0539678012608,0.0538448677727,0.0544595352131,0.0548283356773,0.0550742026534,0.054336601725,0.0545824687011,0.0547054021892,0.0560576705579,0.0558118035818,0.0554430031176,0.0556888700937,0.0564264710221,0.056180604046,0.0548283356773,0.0548283356773,0.0545824687011,0.0558118035818,0.0558118035818,0.0558118035818,0.0551971361415,0.0556888700937,0.0563035375341,0.0556888700937,0.0553200696295,0.0564264710221,0.0564264710221,0.0572870054386,0.0567952714863,0.0559347370699,0.0567952714863,0.0553200696295,0.0555659366057,0.0564264710221,0.0567952714863,0.0566723379982,0.0560576705579,0.0555659366057,0.0555659366057,0.0556888700937,0.0567952714863,0.0566723379982,0.0559347370699,0.0544595352131,0.0544595352131,0.0551971361415,0.0556888700937,0.0563035375341,0.0560576705579,0.0551971361415,0.0564264710221,0.0559347370699,0.056180604046,0.0556888700937,0.056180604046,0.0556888700937,0.0563035375341,0.0564264710221,0.0583934068312,0.0583934068312,0.0591310077596,0.058147539855,0.0594998082238,0.0602374091522,0.0603603426402,0.0597456751999,0.059991542176,0.0602374091522,0.059991542176,0.0585163403192,0.0591310077596,0.0591310077596,0.0582704733431,0.0596227417118,0.059991542176,0.059868608688,0.0586392738073,0.0590080742715,0.0588851407834,0.0597456751999,0.0593768747357,0.0594998082238,0.0592539412476,0.0596227417118,0.0608520765925,0.0622043449612,0.0613438105447,0.0612208770567,0.059991542176,0.0597456751999,0.0585163403192,0.0588851407834,0.0588851407834,0.0586392738073,0.0558118035818,0.0554430031176,0.0550742026534,0.0549512691653,0.054336601725,0.0538448677727,0.0533531338205,0.054336601725,0.0537219342847,0.0533531338205,0.0535990007966,0.0540907347489,0.0533531338205,0.052369665916,0.052492599404,0.052492599404,0.0528613998682,0.052369665916,0.0526155328921,0.054336601725,0.0548283356773,0.0545824687011,0.0548283356773,0.0551971361415,0.054336601725,0.0538448677727,0.0531072668443,0.0522467324279,0.0529843333563,0.0527384663801,0.0545824687011,0.0545824687011,0.0554430031176,0.0558118035818,0.0550742026534,0.0555659366057,0.0572870054386,0.0575328724147,0.0566723379982,0.0572870054386,0.0569182049744,0.0560576705579,0.0553200696295,0.0551971361415,0.056180604046,0.0577787393908,0.0586392738073,0.0592539412476,0.0597456751999,0.0603603426402,0.0615896775209,0.0610979435686,0.0604832761283,0.0619584779851,0.0623272784493,0.0604832761283,0.0607291431044,0.0619584779851,0.0623272784493,0.0624502119373,0.0624502119373,0.063679546818,0.0628190124015,0.0640483472822,0.0629419458896,0.0628190124015,0.0617126110089,0.0619584779851,0.0609750100805,0.0602374091522,0.0609750100805,0.0610979435686,0.0604832761283,0.0610979435686,0.0602374091522,0.0590080742715,0.0574099389266,0.0563035375341,0.0555659366057,0.0535990007966,0.0512632645234,0.048804594762,0.0464688584888,0.0446248561678,0.043026720823,0.0419203194304,0.0399533836213,0.0382323147884,0.0367571129316,0.0340525761942,0.0320856403851,0.0304875050403)
m <- c(0.0468157944787,0.048522620319,0.0509609429481,0.0530335171829,0.055471839812,0.0579101624411,0.0604704012016,0.0625429754363,0.0647374658025,0.06620045938,0.0681511174833,0.0699798594551,0.0714428530325,0.0731496788729,0.0747345885818,0.0759537498964,0.0783920725255,0.0808303951546,0.0794893177086,0.0800988983658,0.0803427306287,0.0802208144973,0.0787578209198,0.0787578209198,0.0786359047884,0.0791235693142,0.0783920725255,0.0775386596053,0.0780263241311,0.0788797370513,0.0799769822344,0.0802208144973,0.0810742274175,0.0810742274175,0.0779044079996,0.0791235693142,0.0794893177086,0.0791235693142,0.0787578209198,0.0797331499715,0.0791235693142,0.0790016531827,0.0791235693142,0.0791235693142,0.0793674015771,0.0794893177086,0.0800988983658,0.0807084790231,0.0805865628917,0.0811961435489,0.0821714726006,0.0830248855208,0.082293388732,0.082293388732,0.0838782984409,0.0833906339151,0.0831468016522,0.0829029693893,0.0832687177837,0.0829029693893,0.0830248855208,0.0832687177837,0.0840002145724,0.0853412920184,0.0837563823095,0.0819276403377,0.0805865628917,0.0814399758118,0.07961123384,0.0780263241311,0.0783920725255,0.076929078948,0.0763194982907,0.0774167434738,0.0764414144222,0.0740030917931,0.0732715950044,0.0720524336898,0.0713209369011,0.0709551885067,0.0697360271922,0.0696141110607,0.0683949497462,0.067541536826,0.0685168658776,0.0690045304034,0.067541536826,0.0679072852204,0.0680292013518,0.0669319561687,0.0654689625913,0.0637621367509,0.0626648915678,0.0619333947791,0.060836149596,0.0590074076241,0.0579101624411,0.0558375882063,0.0553499236805,0.0540088462345,0.0540088462345,0.053886930103,0.0529116010514,0.0507171106852,0.0516924397369,0.0526677687885,0.0532773494458,0.0537650139716,0.0546184268918,0.0546184268918,0.0560814204692,0.0577882463096,0.0582759108354,0.0586416592298,0.0582759108354,0.0588854914927,0.0591293237556,0.0597389044129,0.0601046528072,0.0607142334645,0.0613238141218,0.0609580657274,0.0614457302532,0.0603484850702,0.0604704012016,0.0610799818589,0.0612018979903,0.0633963883565,0.0643717174082,0.0659566271171,0.0670538723002,0.0687606981405,0.0694921949293,0.070223691718,0.0704675239809,0.0704675239809,0.0709551885067,0.0726620143471,0.0737592595302,0.0744907563189,0.0741250079245,0.0736373433987,0.0735154272673,0.0741250079245,0.0737592595302,0.0738811756616,0.0731496788729,0.0727839304785,0.07290584661,0.07290584661,0.0722962659527,0.0711990207696,0.0707113562438,0.0699798594551,0.0696141110607,0.0686387820091,0.0668100400373,0.0657127948542,0.064859381934,0.0654689625913,0.0646155496711,0.0647374658025,0.0643717174082,0.0630306399622,0.0629087238307,0.0615676463847,0.0603484850702,0.0607142334645,0.0609580657274,0.0612018979903,0.0607142334645,0.0603484850702,0.0612018979903,0.0601046528072,0.0590074076241,0.0587635753612,0.0590074076241,0.0592512398871,0.0596169882814,0.0587635753612,0.0586416592298,0.058153994704,0.0588854914927,0.058153994704,0.0587635753612,0.0585197430983,0.0598608205443,0.0603484850702,0.0620553109105,0.0633963883565,0.0641278851453,0.0647374658025,0.0664442916429,0.0664442916429,0.0669319561687,0.0669319561687,0.067541536826,0.0672977045631,0.0682730336147,0.0683949497462,0.0680292013518,0.0687606981405,0.068882614272,0.0669319561687,0.0652251303283,0.0657127948542,0.0657127948542,0.0658347109856,0.0653470464598,0.0655908787227,0.0663223755114,0.0666881239058,0.067541536826,0.0660785432485,0.0654689625913,0.0647374658025,0.0643717174082,0.0638840528823,0.062177227042,0.0630306399622,0.0618114786476,0.0613238141218,0.0614457302532,0.0613238141218,0.0591293237556,0.0570567495209,0.056812917258,0.0559595043378,0.0542526784974,0.0544965107603,0.0542526784974,0.053886930103,0.0536430978401,0.0535211817087,0.0529116010514,0.0516924397369,0.0515705236054,0.0507171106852,0.0508390268167,0.0513266913425,0.0521801042627,0.049863697765,0.0494979493707,0.0496198655021,0.0487664525819,0.0482787880561,0.0481568719247,0.0476692073988,0.0465719622158,0.0470596267416,0.0473034590045,0.0477911235303,0.0481568719247,0.0484007041876,0.0490102848448,0.0482787880561,0.0486445364505,0.048522620319,0.047181542873,0.0473034590045,0.0490102848448,0.0505951945538,0.0504732784223,0.0503513622909,0.0503513622909,0.049863697765,0.0509609429481,0.0514486074739,0.0514486074739,0.0504732784223,0.0501075300279,0.0505951945538,0.0504732784223,0.0509609429481,0.0505951945538,0.0501075300279,0.0501075300279,0.0515705236054,0.0521801042627,0.0533992655772,0.0536430978401,0.054130762366,0.0540088462345,0.0548622591547,0.0555937559434,0.0575444140467,0.0577882463096,0.0587635753612,0.0586416592298,0.0588854914927,0.0586416592298,0.0598608205443,0.060836149596,0.0633963883565,0.0642498012767,0.0646155496711,0.0637621367509,0.0631525560936,0.0642498012767,0.0651032141969,0.0655908787227,0.0663223755114,0.0658347109856,0.0646155496711,0.064859381934,0.0670538723002,0.0668100400373,0.0671757884316,0.0691264465349,0.0685168658776,0.0691264465349,0.0704675239809,0.070223691718,0.0690045304034,0.0698579433236,0.0690045304034,0.0691264465349,0.0692483626664,0.0701017755865,0.0701017755865,0.0704675239809,0.070223691718,0.0701017755865,0.068882614272,0.0690045304034,0.0690045304034,0.0703456078494,0.0690045304034,0.0681511174833,0.0670538723002,0.0670538723002,0.0666881239058,0.0664442916429,0.0666881239058,0.0658347109856,0.0669319561687,0.0669319561687,0.0677853690889,0.0699798594551,0.0719305175584,0.0726620143471,0.0722962659527,0.0737592595302,0.0748565047133,0.0747345885818,0.0759537498964,0.0766852466851,0.0776605757367,0.078270156394,0.0798550661029,0.0792454854457,0.07961123384,0.0793674015771,0.0798550661029,0.0794893177086,0.0800988983658,0.0794893177086,0.0786359047884,0.0791235693142,0.078270156394,0.0786359047884,0.0786359047884,0.0777824918682,0.0783920725255,0.07961123384,0.0793674015771,0.0804646467602,0.0804646467602,0.0825372209949,0.0840002145724,0.0853412920184,0.0844878790982,0.0857070404128,0.0855851242813,0.0838782984409,0.0837563823095,0.083634466178,0.0833906339151,0.0831468016522,0.0821714726006,0.0810742274175,0.0813180596804,0.0803427306287,0.0786359047884,0.0780263241311,0.0777824918682,0.076929078948,0.0775386596053,0.0777824918682,0.0771729112109,0.0776605757367,0.0770509950795,0.0779044079996,0.0781482402626,0.0797331499715,0.080952311286,0.0821714726006,0.0831468016522,0.0840002145724,0.0847317113611,0.0837563823095,0.0848536274926,0.0838782984409,0.0853412920184,0.0842440468353,0.0824153048635,0.0821714726006,0.0819276403377,0.0810742274175,0.080952311286,0.0802208144973,0.0799769822344,0.0808303951546,0.0810742274175,0.0824153048635,0.0826591371264,0.0819276403377,0.082293388732,0.0820495564691,0.0829029693893,0.0830248855208,0.0833906339151,0.0840002145724,0.0826591371264,0.082293388732,0.0815618919433,0.0811961435489,0.0811961435489,0.0799769822344,0.0799769822344,0.0771729112109,0.0770509950795,0.0774167434738,0.0760756660278,0.0749784208447,0.0743688401875,0.0738811756616,0.0727839304785,0.0740030917931,0.0735154272673,0.0727839304785,0.0736373433987,0.0726620143471,0.0726620143471,0.07290584661,0.0721743498213,0.0720524336898,0.0714428530325,0.0696141110607,0.0693702787978,0.0674196206945,0.0674196206945,0.0674196206945,0.0655908787227,0.0652251303283,0.0643717174082,0.0640059690138,0.063518304488,0.0636402206194,0.0641278851453,0.0658347109856,0.0663223755114,0.0671757884316,0.0681511174833,0.0699798594551,0.0699798594551,0.0709551885067,0.0711990207696,0.0681511174833,0.0672977045631,0.0674196206945,0.0669319561687,0.0677853690889,0.0668100400373,0.0654689625913,0.0633963883565,0.0630306399622,0.0619333947791,0.060836149596,0.0602265689387,0.0599827366758,0.05949507215,0.0602265689387,0.0607142334645,0.0601046528072,0.0583978269669,0.0586416592298,0.0586416592298,0.0580320785725,0.0577882463096,0.0580320785725,0.0580320785725,0.058153994704,0.0590074076241,0.0586416592298,0.0583978269669,0.058153994704,0.0579101624411,0.0576663301781,0.0569348333894,0.0548622591547,0.054130762366,0.0531554333143,0.0531554333143,0.0547403430232,0.0559595043378,0.0566910011265,0.0574224979152,0.0566910011265,0.0574224979152,0.0563252527321,0.0577882463096,0.0587635753612,0.0596169882814,0.0605923173331,0.0604704012016,0.05949507215,0.05949507215,0.0588854914927,0.0593731560185,0.0599827366758,0.0610799818589,0.0615676463847,0.0619333947791,0.0633963883565,0.0646155496711,0.0641278851453,0.0647374658025,0.0654689625913,0.0647374658025,0.0646155496711,0.0651032141969,0.0646155496711,0.0643717174082,0.0633963883565,0.0626648915678,0.0624210593049,0.0642498012767,0.0647374658025,0.0653470464598,0.0658347109856,0.0668100400373,0.0666881239058,0.0666881239058,0.0668100400373,0.0677853690889,0.0687606981405,0.0686387820091,0.0680292013518,0.0672977045631,0.0668100400373,0.0679072852204,0.0686387820091,0.0697360271922,0.0709551885067,0.0701017755865,0.0709551885067,0.0721743498213,0.0713209369011,0.0716866852955,0.0711990207696,0.0705894401124,0.0720524336898,0.0716866852955,0.0710771046382,0.0719305175584,0.0721743498213,0.0718086014269,0.0724181820842,0.0732715950044,0.0735154272673,0.0732715950044,0.0741250079245,0.0727839304785,0.0737592595302,0.0730277627415,0.0720524336898,0.0705894401124,0.0701017755865,0.0718086014269,0.0724181820842,0.0716866852955,0.0730277627415,0.0759537498964,0.0807084790231,0.0864385372015,0.0920466792484,0.0987520664784,0.10643278276,0.117649066854,0.126792776713,0.140203551173,0.155077319211,0.170560667905,0.193115152224,0.21286556552,0.238346036994,0.263582676205,0.288941231548,0.31759152244,0.344047322966,0.367820968599,0.394032936862,0.419879156731,0.444871963679,0.46840177705,0.48607961611,0.505464281012,0.52289828781,0.538991217162,0.552158159359,0.563008695058,0.571177075866,0.579833121199,0.587270005218,0.590683656899,0.594341140842,0.598120540917,0.599705450626,0.598242457049,0.5949507215,0.591049405293,0.587270005218,0.580564617988,0.573615398495,0.561789533744,0.552401991622,0.538625468768,0.522776371678,0.506073861669,0.483763209613,0.463647047923,0.438410408712,0.412808021106,0.387571381895,0.358921091003,0.332952955003,0.308082064186,0.281016683003,0.255658127661,0.229202327135,0.20530676537,0.187141261783,0.167756596882,0.149956841689,0.134473492995,0.119965473352,0.110456015098,0.102409550422,0.0943630857461,0.0872919501217,0.0819276403377,0.078270156394,0.0761975821593,0.07290584661,0.0713209369011,0.071564769164,0.0704675239809,0.0697360271922,0.0704675239809,0.0696141110607,0.0709551885067,0.0707113562438,0.0714428530325,0.0725400982156,0.0726620143471,0.0721743498213,0.0720524336898,0.0727839304785,0.0737592595302,0.0736373433987,0.0738811756616,0.0738811756616,0.074246924056,0.0761975821593,0.0765633305536,0.0774167434738,0.0770509950795,0.0772948273424,0.0772948273424,0.0775386596053,0.0772948273424,0.0776605757367,0.0763194982907,0.0772948273424,0.0777824918682,0.0774167434738,0.0771729112109,0.0774167434738,0.0765633305536,0.0764414144222,0.0760756660278,0.0747345885818,0.0748565047133,0.0740030917931,0.0736373433987,0.0731496788729,0.0720524336898,0.0722962659527,0.0724181820842,0.0733935111358,0.0741250079245,0.075588001502,0.0751003369762,0.0733935111358,0.0741250079245,0.0738811756616,0.0731496788729,0.07290584661,0.0722962659527,0.0722962659527,0.071564769164,0.0719305175584,0.071564769164,0.0721743498213,0.0737592595302,0.0737592595302,0.0741250079245,0.0759537498964,0.0757099176335,0.0754660853706,0.075588001502,0.0752222531076,0.0752222531076,0.0751003369762,0.0743688401875,0.0748565047133,0.0746126724504,0.0748565047133,0.0733935111358,0.0732715950044,0.0732715950044,0.0743688401875,0.0743688401875,0.0735154272673,0.0733935111358,0.0725400982156,0.0718086014269,0.070223691718,0.0705894401124,0.0709551885067,0.0698579433236,0.0696141110607,0.0703456078494,0.0711990207696,0.071564769164,0.0721743498213,0.0719305175584,0.0731496788729,0.0737592595302,0.0735154272673,0.0741250079245,0.075588001502,0.0760756660278,0.0743688401875,0.0741250079245,0.0749784208447,0.0747345885818,0.0747345885818,0.0747345885818,0.0746126724504,0.0744907563189,0.0747345885818,0.0764414144222,0.0763194982907,0.0770509950795,0.0777824918682,0.0779044079996,0.0783920725255,0.0788797370513,0.07961123384,0.0791235693142,0.078270156394,0.0781482402626,0.0792454854457,0.07961123384,0.0803427306287,0.0804646467602,0.0805865628917,0.080952311286,0.0808303951546,0.0807084790231,0.0792454854457,0.0800988983658,0.0792454854457,0.0805865628917,0.0802208144973,0.0793674015771,0.0783920725255,0.0777824918682,0.0776605757367,0.0788797370513,0.0781482402626,0.0783920725255,0.0794893177086,0.0810742274175,0.0819276403377,0.0833906339151,0.0852193758869,0.0840002145724,0.0838782984409,0.0846097952297,0.0848536274926,0.0843659629668,0.0838782984409,0.0842440468353,0.0833906339151,0.0842440468353,0.0841221307038,0.0846097952297,0.0838782984409,0.0837563823095,0.083634466178,0.0850974597555,0.0864385372015,0.0874138662531,0.0868042855959,0.0881453630419,0.0882672791733,0.0875357823846,0.0868042855959,0.0858289565442,0.0857070404128,0.0865604533329,0.0866823694644,0.0880234469104,0.0886330275677,0.0871700339902,0.0874138662531,0.0855851242813,0.0850974597555,0.0837563823095,0.0848536274926,0.0842440468353,0.0819276403377,0.082293388732,0.0826591371264,0.0820495564691,0.0816838080747,0.0819276403377,0.0827810532578,0.0824153048635,0.0837563823095,0.0830248855208,0.0838782984409,0.0843659629668,0.0852193758869,0.0838782984409,0.0852193758869,0.0837563823095,0.0838782984409,0.0829029693893,0.084975543624,0.0831468016522,0.083634466178,0.0837563823095,0.0833906339151,0.0840002145724,0.0855851242813,0.0848536274926,0.084975543624,0.0835125500466,0.083634466178,0.0840002145724,0.0831468016522,0.0853412920184,0.0865604533329,0.0870481178588,0.0860727888071,0.0846097952297,0.08631662107,0.0871700339902,0.0882672791733,0.0880234469104,0.0883891953048,0.0874138662531,0.0869262017273,0.0858289565442,0.0842440468353,0.0837563823095,0.0827810532578,0.082293388732,0.0811961435489,0.0824153048635,0.0805865628917,0.0805865628917,0.0794893177086,0.0787578209198,0.0768071628166,0.0766852466851,0.0763194982907,0.0761975821593,0.0764414144222,0.0749784208447,0.0736373433987,0.0727839304785,0.0719305175584,0.0709551885067,0.0704675239809,0.0699798594551,0.0694921949293,0.0674196206945,0.0653470464598,0.0642498012767,0.0624210593049,0.0633963883565,0.0630306399622,0.0612018979903,0.0588854914927,0.058153994704,0.0573005817838,0.0580320785725,0.0563252527321,0.0562033366007,0.0562033366007,0.0562033366007,0.0566910011265,0.0558375882063,0.0564471688636,0.055471839812,0.0546184268918,0.0543745946289,0.0532773494458,0.0531554333143,0.0533992655772,0.0544965107603,0.0540088462345,0.0547403430232,0.0536430978401,0.054130762366,0.0551060914176,0.0548622591547,0.0560814204692,0.0558375882063,0.0557156720749,0.0558375882063,0.055471839812,0.0551060914176,0.0548622591547,0.0542526784974,0.054130762366,0.0546184268918,0.0523020203941,0.0542526784974,0.0553499236805,0.056812917258,0.0565690849951,0.055471839812,0.0558375882063,0.0564471688636,0.056812917258,0.0574224979152,0.0576663301781,0.0574224979152,0.0571786656523,0.0579101624411,0.0576663301781,0.0582759108354,0.05949507215,0.0596169882814,0.0597389044129,0.05949507215,0.0601046528072,0.0586416592298,0.0590074076241,0.0591293237556,0.0587635753612,0.0593731560185,0.0577882463096,0.0580320785725,0.0580320785725,0.0590074076241,0.0607142334645,0.060836149596,0.0619333947791,0.0618114786476,0.0626648915678,0.0620553109105,0.0629087238307,0.0610799818589,0.0605923173331,0.0607142334645,0.060836149596,0.0612018979903,0.0609580657274,0.0605923173331,0.060836149596,0.0598608205443,0.05949507215,0.0601046528072,0.0602265689387,0.0605923173331,0.0614457302532,0.0610799818589,0.060836149596,0.0605923173331,0.0604704012016,0.0604704012016,0.0596169882814,0.0605923173331,0.0607142334645,0.0605923173331,0.0601046528072,0.0588854914927,0.0592512398871,0.0596169882814,0.0597389044129,0.0605923173331,0.0592512398871,0.05949507215,0.0601046528072,0.0629087238307,0.0626648915678,0.0622991431734,0.062177227042,0.0616895625162,0.0613238141218,0.0610799818589,0.0610799818589,0.0615676463847,0.0626648915678,0.0626648915678,0.0625429754363,0.0620553109105,0.0616895625162,0.0620553109105,0.0622991431734,0.0612018979903,0.0610799818589,0.0622991431734,0.0620553109105,0.062177227042,0.0609580657274,0.0610799818589,0.0612018979903,0.0601046528072,0.0602265689387,0.0603484850702,0.0597389044129,0.0602265689387,0.0591293237556,0.0583978269669,0.0569348333894,0.0548622591547,0.0557156720749,0.055228007549,0.055228007549,0.0540088462345,0.054130762366,0.053886930103,0.053886930103,0.0546184268918,0.0564471688636,0.0551060914176,0.0544965107603,0.0542526784974,0.0535211817087,0.0543745946289,0.055228007549,0.0565690849951,0.0562033366007,0.0555937559434,0.0548622591547,0.0549841752861,0.0560814204692,0.055471839812,0.0548622591547,0.0548622591547,0.0558375882063,0.0548622591547,0.0543745946289,0.0548622591547,0.0553499236805,0.0555937559434,0.0560814204692,0.0569348333894,0.0579101624411,0.0590074076241,0.0596169882814,0.0597389044129,0.0587635753612,0.0593731560185,0.0580320785725,0.0570567495209,0.0565690849951,0.0576663301781,0.0575444140467,0.0566910011265,0.055228007549,0.0558375882063,0.0560814204692,0.056812917258,0.0575444140467,0.0562033366007,0.0553499236805,0.0551060914176,0.055228007549,0.055228007549,0.0549841752861,0.0548622591547,0.0542526784974,0.0537650139716,0.0542526784974,0.054130762366,0.0536430978401,0.0535211817087,0.0540088462345,0.0542526784974,0.0531554333143,0.0530335171829,0.054130762366,0.0536430978401,0.0532773494458,0.0529116010514,0.0535211817087,0.0542526784974,0.0546184268918,0.055471839812,0.055471839812,0.055228007549,0.0540088462345,0.052545852657,0.0532773494458,0.0533992655772,0.0540088462345,0.0542526784974,0.0537650139716,0.0523020203941,0.0519362719998,0.0529116010514,0.0521801042627,0.0516924397369,0.0520581881312,0.0527896849199,0.0535211817087,0.0548622591547,0.0551060914176,0.0549841752861,0.0547403430232,0.0548622591547,0.0549841752861,0.0553499236805,0.0549841752861,0.0548622591547,0.0551060914176,0.0553499236805,0.053886930103,0.0537650139716,0.0542526784974,0.0542526784974,0.0543745946289,0.0540088462345,0.0543745946289,0.0536430978401,0.0540088462345,0.0544965107603,0.0563252527321,0.0566910011265,0.056812917258,0.0575444140467,0.0573005817838,0.0577882463096,0.0592512398871,0.0599827366758,0.0598608205443,0.05949507215,0.0614457302532,0.0624210593049,0.0631525560936,0.0614457302532,0.060836149596,0.0590074076241,0.0591293237556,0.0587635753612,0.0585197430983,0.0592512398871,0.0592512398871,0.0588854914927,0.0587635753612,0.0587635753612,0.0596169882814,0.0591293237556,0.05949507215,0.0580320785725,0.0562033366007,0.0546184268918,0.0527896849199,0.051204775211,0.0491322009763,0.0477911235303,0.0462062138214,0.0447432202439,0.0426706460092,0.0412076524317,0.039135078197,0.0376720846195,0.0358433426477,0.0338926845444,0.0316981941783,0.0301132844693,0.0285283747604)
s <- c(0.0403109881447,0.0406201214894,0.0407437748273,0.0406819481583,0.0399400281311,0.0399400281311,0.0398782014622,0.0401255081379,0.0397545481243,0.0393217614418,0.0395690681175,0.0400018548001,0.0405582948205,0.0406819481583,0.0411147348409,0.0411147348409,0.0395072414486,0.0401255081379,0.060528308886,0.06145570892,0.062383108954,0.0640524290153,0.0648561757114,0.0656599224075,0.0670201091241,0.0681948158338,0.0694313492125,0.070853362598,0.0722753759834,0.0737592160378,0.0749339227476,0.0758613227816,0.0769123761535,0.0783962162079,0.079199962904,0.0804983229516,0.0813020696477,0.0809929363031,0.0809929363031,0.0811165896409,0.0813020696477,0.0819203363371,0.0823531230196,0.0824767763575,0.0834041763915,0.0844552297634,0.0832186963847,0.0812402429788,0.0796327495865,0.0795709229176,0.0785816962147,0.0772833361671,0.0774688161739,0.0768505494845,0.0765414161399,0.0771596828292,0.0760468027884,0.0743156560582,0.0733882560242,0.0723990293213,0.0715334559562,0.0709151892669,0.0700496159018,0.0691840425367,0.0681948158338,0.0673910691377,0.0673910691377,0.0675147224755,0.0667728024483,0.0666491491105,0.0668964557862,0.0658454024143,0.0654126157318,0.0640524290153,0.0635578156638,0.0635578156638,0.062383108954,0.0607137888928,0.0588589888248,0.0572514954326,0.0561386153917,0.0558294820471,0.0558294820471,0.0557058287092,0.0553966953645,0.0545311219995,0.0553348686956,0.0567568820811,0.0576224554462,0.0586116821491,0.0593536021763,0.0593536021763,0.0603428288792,0.0618266689336,0.0628777223055,0.0635578156638,0.0631868556502,0.0637432956706,0.0641760823531,0.0651653090561,0.0658454024143,0.0662163624279,0.0668346291173,0.0674528958066,0.0681329891649,0.0683184691717,0.0681948158338,0.0685657758474,0.0679475091581,0.0694313492125,0.0703587492465,0.0709151892669,0.071780762632,0.0729554693417,0.0744393093961,0.0759849761194,0.0762322827952,0.0757376694437,0.0759849761194,0.077345162836,0.0778397761875,0.0784580428768,0.0777779495185,0.0767268961467,0.0761704561263,0.0759231494505,0.0758613227816,0.0756140161058,0.0756140161058,0.0748720960786,0.0743156560582,0.0743156560582,0.0736973893689,0.0729554693417,0.0723990293213,0.0718425893009,0.0711006692737,0.0704205759154,0.0692458692057,0.0685039491785,0.0675765491445,0.0670201091241,0.066154535759,0.0657217490765,0.0658454024143,0.0647943490425,0.0644233890289,0.0634959889949,0.0630013756434,0.0631868556502,0.0630013756434,0.0618884956026,0.0620121489404,0.0620121489404,0.0625067622919,0.0615793622579,0.0613320555822,0.0607137888928,0.0607756155618,0.0610229222375,0.0613320555822,0.0610847489064,0.060528308886,0.0608374422307,0.0613938822511,0.0613320555822,0.06145570892,0.0611465755754,0.0621976289472,0.0625685889608,0.0639287756774,0.064299735691,0.0650416557182,0.0657217490765,0.0670201091241,0.0665254957726,0.0668346291173,0.0672055891309,0.0675147224755,0.068009335827,0.0680711624959,0.0687512558542,0.0686276025163,0.0686894291853,0.0685657758474,0.0672055891309,0.0663400157658,0.0669582824551,0.0665254957726,0.0665254957726,0.0668346291173,0.0676383758134,0.0678238558202,0.0675147224755,0.0678856824891,0.0665254957726,0.0657835757454,0.0647325223735,0.064299735691,0.063372335657,0.0617030155958,0.0622594556162,0.0616411889268,0.0613320555822,0.0618884956026,0.0617030155958,0.0603428288792,0.0594772555142,0.0593536021763,0.0583025488044,0.0570041887568,0.056880535419,0.0571278420947,0.0566950554122,0.0564477487364,0.0560767887228,0.0557058287092,0.0544692953305,0.0537273753033,0.0533564152897,0.0530472819451,0.0532327619519,0.0529854552761,0.0516870952285,0.0510070018703,0.0503887351809,0.0490285484644,0.0481011484304,0.0480393217614,0.0483484551061,0.0481629750993,0.0489667217954,0.0492758551401,0.0502650818431,0.0506978685256,0.0506360418567,0.0514397885528,0.0505742151877,0.0511924818771,0.051254308546,0.0501414285052,0.0505123885188,0.0516252685596,0.0526763219315,0.0523671885868,0.0523671885868,0.0524290152557,0.0523053619179,0.0523671885868,0.0524908419247,0.0524290152557,0.0516252685596,0.0515634418907,0.05218170858,0.0520580552421,0.0525526685936,0.0524908419247,0.0522435352489,0.0527381486004,0.053109108614,0.0535418952965,0.0542219886548,0.0546547753373,0.0553966953645,0.0557676553781,0.0563240953986,0.0564477487364,0.0573133221015,0.0579934154598,0.0584262021423,0.0590444688316,0.0597245621899,0.0593536021763,0.0601573488724,0.060590135555,0.0619503222715,0.062444935623,0.0626304156298,0.0616411889268,0.0611465755754,0.0622594556162,0.0627540689676,0.0629395489745,0.0634341623259,0.0635578156638,0.0630632023123,0.0634959889949,0.0649798290493,0.0647325223735,0.0646088690357,0.0662163624279,0.0654744424007,0.0655362690697,0.0666491491105,0.0665254957726,0.0662163624279,0.0672674157998,0.0667109757794,0.0672674157998,0.0672055891309,0.0680711624959,0.0688749091921,0.0693695225435,0.0698023092261,0.0696786558882,0.0690603891989,0.0687512558542,0.0682566425027,0.0693076958746,0.0691840425367,0.0686276025163,0.0682566425027,0.0683802958406,0.0681948158338,0.0682566425027,0.068009335827,0.0678238558202,0.0688749091921,0.0695550025504,0.0706678825912,0.0722135493145,0.0738828693757,0.0751812294233,0.0759849761194,0.0775306428428,0.0791381362351,0.0796945762555,0.081054762972,0.0822912963507,0.0826622563643,0.0832186963847,0.0843315764255,0.083898789743,0.0845788831012,0.0840224430808,0.0843934030944,0.0836514830672,0.0839606164119,0.0832805230536,0.0831568697158,0.0831568697158,0.082971389709,0.0832186963847,0.0837133097362,0.0830950430468,0.0828477363711,0.0840842697498,0.0842079230876,0.0851353231216,0.0858772431488,0.0874847365411,0.0893395366091,0.0904524166499,0.0900196299674,0.0903287633121,0.0908852033325,0.0899578032985,0.0897723232917,0.0890922299334,0.0885976165819,0.088535789913,0.0877320432168,0.0872992565343,0.087608389879,0.0871137765275,0.0863718565003,0.0860627231556,0.085691763142,0.0851971497906,0.0852589764595,0.0854444564663,0.0850116697838,0.0845788831012,0.083836963074,0.0850116697838,0.0845788831012,0.0863718565003,0.0870519498586,0.0882266565683,0.0888449232576,0.0900814566363,0.0910088566703,0.0907615499946,0.0911325100082,0.0903287633121,0.090390589981,0.0897104966227,0.0882884832372,0.0870519498586,0.0873610832032,0.0865573365071,0.0865573365071,0.0858154164799,0.0855062831352,0.0869901231896,0.0869901231896,0.0872374298654,0.0871137765275,0.0864336831692,0.0862482031624,0.0858154164799,0.085691763142,0.0853826297974,0.0859390698178,0.0861863764935,0.0858772431488,0.0855681098042,0.0853208031284,0.0862482031624,0.0862482031624,0.0851353231216,0.084826189777,0.0828477363711,0.0827859097022,0.08290956304,0.0821676430128,0.0813020696477,0.0807456296273,0.0799418829312,0.0790144828972,0.0803128429448,0.0802510162759,0.0790763095661,0.0796945762555,0.0789526562283,0.0781489095321,0.0787671762215,0.0767887228156,0.0771596828292,0.0769123761535,0.0749957494165,0.0744393093961,0.0730791226796,0.0728936426728,0.0724608559902,0.0716571092941,0.0715952826252,0.0711006692737,0.0709770159358,0.0704205759154,0.070791535929,0.0702969225776,0.0714098026184,0.0720898959766,0.0723990293213,0.0728936426728,0.0743156560582,0.074562962734,0.0749339227476,0.0749957494165,0.0728936426728,0.0721517226456,0.0714716292873,0.0706060559222,0.0713479759494,0.0709770159358,0.0693076958746,0.0676383758134,0.067081935793,0.0655980957386,0.0647943490425,0.0647943490425,0.0641142556842,0.0641142556842,0.0639906023463,0.0636814690017,0.0628777223055,0.0621358022783,0.062383108954,0.0625685889608,0.0621976289472,0.0613320555822,0.0612084022443,0.0613320555822,0.0616411889268,0.0623212822851,0.0618266689336,0.0622594556162,0.062383108954,0.0617030155958,0.0612084022443,0.060590135555,0.0590444688316,0.0591062955006,0.0579934154598,0.0574988021083,0.0583643754734,0.0589826421627,0.059662735521,0.0607756155618,0.0600336955346,0.0603428288792,0.0600336955346,0.0608992688996,0.0619503222715,0.0631250289813,0.0646706957046,0.0644233890289,0.064299735691,0.0646706957046,0.0644233890289,0.0651653090561,0.0655362690697,0.0662163624279,0.0663400157658,0.0662781890969,0.0668964557862,0.0677002024823,0.0672674157998,0.0677620291513,0.0679475091581,0.0678856824891,0.0683184691717,0.0686894291853,0.0680711624959,0.0678238558202,0.0670201091241,0.0667728024483,0.0666491491105,0.0675147224755,0.0686276025163,0.0697404825572,0.0701732692397,0.0714098026184,0.071780762632,0.0719044159698,0.0721517226456,0.0731409493485,0.0738210427068,0.0740683493825,0.0743774827272,0.0742538293893,0.0733264293553,0.0741920027204,0.0744393093961,0.0753667094301,0.0761086294573,0.0757376694437,0.0762941094641,0.0772215094981,0.0774069895049,0.0781489095321,0.0777779495185,0.0780252561943,0.0787053495525,0.0783962162079,0.0781489095321,0.0780870828632,0.0778397761875,0.0775306428428,0.0779634295253,0.0784580428768,0.0781489095321,0.0775924695117,0.0779634295253,0.0765414161399,0.076417762802,0.075490362768,0.0748102694097,0.0730172960106,0.0721517226456,0.0731409493485,0.0735119093621,0.0727699893349,0.0737592160378,0.0766650694777,0.0813638963167,0.0858772431488,0.0921217367111,0.0986753636181,0.106156390559,0.11654327094,0.126682844645,0.139913751797,0.154381192327,0.170765259595,0.19190998037,0.212127301111,0.238836422091,0.265236409725,0.292625624063,0.321375025117,0.348640586117,0.373185773683,0.399647587987,0.426913148987,0.452385736587,0.476250830796,0.496529978206,0.5154489389,0.532327619519,0.547104193394,0.560335100546,0.571216594278,0.579377714577,0.587847968221,0.594525248466,0.597616581913,0.602191755414,0.606643275577,0.608436248976,0.606766928915,0.602933675441,0.599100421967,0.59427794179,0.58790979489,0.580737901294,0.569732754224,0.559531353849,0.545744006677,0.530781952795,0.51309952548,0.492016631374,0.470933737268,0.444842882978,0.417762801985,0.390249934309,0.361624186593,0.334853238945,0.309689784689,0.28236239702,0.255529622703,0.22900598173,0.204708100839,0.184799913443,0.166004606087,0.149187752137,0.134843964944,0.12118027111,0.111288004081,0.103126883781,0.0952130701578,0.0895868432849,0.0852589764595,0.0802510162759,0.0774069895049,0.0742538293893,0.0731409493485,0.0728936426728,0.0719662426388,0.0709151892669,0.0711006692737,0.070791535929,0.0711624959426,0.0710388426048,0.0715334559562,0.0718425893009,0.0721517226456,0.071780762632,0.0716571092941,0.0714098026184,0.071780762632,0.0715952826252,0.0713479759494,0.0704824025844,0.0704205759154,0.0721517226456,0.072708162666,0.0730791226796,0.0729554693417,0.072708162666,0.0723372026524,0.071780762632,0.0711624959426,0.0711006692737,0.0701732692397,0.0709770159358,0.071780762632,0.0709770159358,0.0707297092601,0.0706060559222,0.068936735861,0.0686276025163,0.0678856824891,0.0667109757794,0.0665873224415,0.0664018424347,0.066154535759,0.066154535759,0.0657835757454,0.0659072290833,0.0657217490765,0.0662781890969,0.0669582824551,0.0678238558202,0.0679475091581,0.0673910691377,0.0680711624959,0.0691222158678,0.068936735861,0.0690603891989,0.068936735861,0.0681948158338,0.0677620291513,0.0679475091581,0.068009335827,0.0691222158678,0.0701732692397,0.0704205759154,0.0713479759494,0.0723372026524,0.0722753759834,0.0714716292873,0.071780762632,0.0715952826252,0.0711006692737,0.0711006692737,0.0710388426048,0.0709151892669,0.0705442292533,0.0704824025844,0.0695550025504,0.0693695225435,0.068936735861,0.0696168292193,0.0701114425708,0.0696786558882,0.0701114425708,0.0700496159018,0.0698023092261,0.0690603891989,0.0692458692057,0.0695550025504,0.0689985625299,0.0678856824891,0.0681329891649,0.0691222158678,0.0696786558882,0.0711624959426,0.0704824025844,0.0715334559562,0.0720898959766,0.0722753759834,0.0732646026864,0.0744393093961,0.0752430560922,0.0747484427408,0.074501136065,0.0756140161058,0.0748102694097,0.0748720960786,0.0751194027544,0.0757376694437,0.0758613227816,0.0761086294573,0.0772215094981,0.0778397761875,0.0793854429108,0.0802510162759,0.081054762972,0.0806838029584,0.0809929363031,0.0811165896409,0.081054762972,0.0807456296273,0.080127362938,0.0804983229516,0.0803128429448,0.0804983229516,0.0809311096341,0.0813020696477,0.0814875496545,0.0816112029924,0.0813020696477,0.0800037096001,0.0804364962827,0.0799418829312,0.0808692829652,0.0797564029244,0.079199962904,0.0782107362011,0.0772833361671,0.0766650694777,0.0774069895049,0.0772833361671,0.0780870828632,0.0791381362351,0.0801891896069,0.0802510162759,0.0807456296273,0.0821676430128,0.0818585096681,0.0817348563303,0.0811784163099,0.0807456296273,0.0797564029244,0.0799418829312,0.0793854429108,0.0788908295593,0.0783343895389,0.0777161228496,0.0778397761875,0.0771596828292,0.0779016028564,0.0779634295253,0.0785816962147,0.0795709229176,0.080127362938,0.0796945762555,0.0806219762895,0.0805601496205,0.0803128429448,0.0795709229176,0.0785816962147,0.0791381362351,0.0793854429108,0.0801891896069,0.0817348563303,0.082971389709,0.0822294696817,0.081982163006,0.0808074562963,0.0799418829312,0.0794472695797,0.0803128429448,0.0803746696137,0.0796327495865,0.0801891896069,0.0802510162759,0.080127362938,0.0805601496205,0.0808692829652,0.0816730296613,0.081982163006,0.0826004296953,0.0824149496885,0.0828477363711,0.0837751364051,0.0847025364391,0.0832186963847,0.083898789743,0.0831568697158,0.0832186963847,0.0834041763915,0.0848880164459,0.0834660030604,0.0840224430808,0.0840842697498,0.0848880164459,0.0855062831352,0.0855681098042,0.0849498431148,0.0843934030944,0.0828477363711,0.0822912963507,0.0822912963507,0.0811784163099,0.0819203363371,0.0827859097022,0.0833423497226,0.0825386030264,0.0814875496545,0.0821058163439,0.0820439896749,0.0828477363711,0.0827240830332,0.0824767763575,0.0822294696817,0.0813020696477,0.0803128429448,0.0796327495865,0.0798182295933,0.0789526562283,0.0785816962147,0.0774688161739,0.0777161228496,0.0764795894709,0.0759231494505,0.074501136065,0.073573736031,0.0716571092941,0.0719662426388,0.0716571092941,0.0718425893009,0.0709151892669,0.069864135895,0.069864135895,0.0691840425367,0.0688749091921,0.0678856824891,0.0674528958066,0.0664636691037,0.0663400157658,0.0647325223735,0.0629395489745,0.0622594556162,0.0612084022443,0.0620121489404,0.0613938822511,0.060528308886,0.0600955222035,0.0594154288452,0.0592299488384,0.0592299488384,0.057807935453,0.057807935453,0.0578697621219,0.0576842821151,0.0579934154598,0.0574988021083,0.0581788954666,0.0579315887908,0.0580552421287,0.0584880288112,0.0581170687976,0.0574988021083,0.057746108784,0.0581788954666,0.0573751487704,0.0576224554462,0.0571278420947,0.0570660154258,0.0569423620879,0.056880535419,0.0575606287772,0.0574988021083,0.0573133221015,0.0576842821151,0.0578697621219,0.0581170687976,0.0583643754734,0.0572514954326,0.0574369754394,0.0574988021083,0.0566332287432,0.0573133221015,0.0565714020743,0.0571896687636,0.056880535419,0.0565714020743,0.0573751487704,0.0576842821151,0.0579315887908,0.0581788954666,0.0583643754734,0.057807935453,0.0579315887908,0.0580552421287,0.0574988021083,0.0579315887908,0.0588589888248,0.0598482155278,0.060590135555,0.0608992688996,0.061517535589,0.0602191755414,0.0607137888928,0.0607137888928,0.0608374422307,0.0613320555822,0.0601573488724,0.0603428288792,0.0601573488724,0.0610847489064,0.0617648422647,0.0617030155958,0.0626304156298,0.0626922422987,0.0627540689676,0.0627540689676,0.0632486823191,0.0620121489404,0.0619503222715,0.0623212822851,0.0623212822851,0.062383108954,0.0618884956026,0.0618884956026,0.0622594556162,0.0617648422647,0.0621976289472,0.0623212822851,0.0620121489404,0.0623212822851,0.0626922422987,0.0620739756094,0.0618884956026,0.0611465755754,0.060528308886,0.0597863888588,0.0600955222035,0.0610847489064,0.06145570892,0.06145570892,0.0612084022443,0.0604664822171,0.0609610955686,0.061517535589,0.0619503222715,0.0620121489404,0.0610847489064,0.0608992688996,0.0610229222375,0.0630013756434,0.0628777223055,0.0618884956026,0.061517535589,0.0613320555822,0.0610229222375,0.0604664822171,0.0602810022103,0.0603428288792,0.0613938822511,0.0613320555822,0.0611465755754,0.060590135555,0.0600336955346,0.060590135555,0.0602810022103,0.0597863888588,0.0597245621899,0.0607137888928,0.0607756155618,0.0610229222375,0.0599718688656,0.0600955222035,0.0592917755074,0.0584880288112,0.0578697621219,0.0576842821151,0.0574369754394,0.0578697621219,0.0566950554122,0.0559531353849,0.0547784286752,0.0543456419927,0.0554585220335,0.0552112153577,0.0553966953645,0.0539746819791,0.0539746819791,0.0538510286412,0.0539128553101,0.0548402553441,0.0557058287092,0.0553348686956,0.0552112153577,0.0552112153577,0.0544692953305,0.0550257353509,0.0555203487024,0.056880535419,0.0565714020743,0.0560767887228,0.0558294820471,0.0562622687296,0.0566950554122,0.0557058287092,0.0553966953645,0.0552730420267,0.0563859220675,0.055891308716,0.0556440020403,0.0555821753713,0.0560767887228,0.0565095754054,0.0564477487364,0.0566950554122,0.057746108784,0.0583025488044,0.0590444688316,0.0588589888248,0.0579315887908,0.058673508818,0.0572514954326,0.056880535419,0.0570660154258,0.057807935453,0.0576842821151,0.0569423620879,0.0559531353849,0.0562622687296,0.0564477487364,0.0573751487704,0.0576842821151,0.0566332287432,0.0554585220335,0.0553348686956,0.0557676553781,0.0560149620539,0.0562004420607,0.0560149620539,0.0552730420267,0.0556440020403,0.0556440020403,0.0557058287092,0.0552112153577,0.0553966953645,0.0553966953645,0.0558294820471,0.0553348686956,0.0562622687296,0.05681870875,0.0569423620879,0.0562622687296,0.0567568820811,0.0574369754394,0.0578697621219,0.057746108784,0.0583025488044,0.0584262021423,0.0581788954666,0.05681870875,0.0563859220675,0.0567568820811,0.0563859220675,0.0573751487704,0.0576842821151,0.0573751487704,0.0560149620539,0.0560149620539,0.0564477487364,0.0565095754054,0.0560767887228,0.0563240953986,0.0565714020743,0.0571278420947,0.0584262021423,0.0592299488384,0.058735335487,0.0585498554802,0.0579934154598,0.0579315887908,0.0574988021083,0.0574988021083,0.0574369754394,0.0574369754394,0.0561386153917,0.0552112153577,0.054963908682,0.0551493886888,0.0548402553441,0.0546547753373,0.0542219886548,0.0549020820131,0.0542219886548,0.0542219886548,0.0545929486684,0.0557676553781,0.0555821753713,0.0551493886888,0.0555821753713,0.0554585220335,0.055891308716,0.0563859220675,0.056880535419,0.0576842821151,0.057746108784,0.0586116821491,0.0592299488384,0.0597863888588,0.0584880288112,0.0579315887908,0.0566332287432,0.0562622687296,0.0564477487364,0.0562004420607,0.0574988021083,0.0574988021083,0.057746108784,0.0578697621219,0.0574988021083,0.0581788954666,0.0587971621559,0.0591062955006,0.0579315887908,0.0573133221015,0.0563240953986,0.054963908682,0.0537892019723,0.0526763219315,0.0524908419247,0.0524908419247,0.05218170858,0.0514397885528,0.0509451752013,0.0502032551741,0.0500796018363,0.0489048951265,0.0476065350789,0.0472355750653,0.046617308376,0.0448861616458,0.0305423744532,0.0311606411426,0.0313461211494,0.0314079478183,0.0314079478183,0.0320262145076,0.0315934278251,0.0322116945144,0.031655254494,0.0315934278251,0.0310369878047,0.0311606411426,0.0306660277911,0.0302950677775,0.0306660277911,0.03072785446,0.0304187211154,0.03072785446)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("ChIPseq_LANA_LEC_rep2-GSM1359493.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()