# R script for Peak Model
#  -- generated by MACS
p <- c(0.0391477828804,0.0411340042704,0.0432643868903,0.0451224649648,0.0473809909002,0.0491269435737,0.0507767887605,0.052410616033,0.0546371061395,0.0570878470481,0.058737692235,0.0610602898281,0.0633027978491,0.0649366251215,0.066682577795,0.0687328708428,0.070655020575,0.0726092061361,0.0722568120186,0.0716641491844,0.0719845074732,0.0713758267246,0.0711195400936,0.0706390026606,0.0706069668317,0.0705909489173,0.0701905010564,0.0701905010564,0.0706229847461,0.0702545727141,0.0705909489173,0.0709433430349,0.0702705906286,0.0698861606821,0.0697099636233,0.0696939457089,0.0691493366181,0.0693575695057,0.0689731395593,0.0687488887572,0.068556673784,0.0688610141582,0.0687008350139,0.069037211217,0.0684926021262,0.0679800288643,0.0684285304685,0.0680280826076,0.0677557780622,0.0683644588107,0.0687809245861,0.0685887096128,0.0684285304685,0.0685887096128,0.0686367633561,0.0689731395593,0.0689411037304,0.0691493366181,0.0691333187036,0.0691173007892,0.0687488887572,0.0682523334097,0.0687969425005,0.068925085816,0.0689411037304,0.0691973903614,0.0692454441047,0.0689891574737,0.0690852649603,0.0691173007892,0.069037211217,0.0691493366181,0.0694216411635,0.0688449962438,0.0692134082758,0.0693095157624,0.0693255336769,0.0693255336769,0.0696458919656,0.0693415515913,0.0697419994522,0.06966190988,0.0697740352811,0.0694857128212,0.0697580173666,0.0695978382223,0.0691012828748,0.0687168529283,0.0686367633561,0.0682042796664,0.0683964946396,0.0682202975808,0.0685726916984,0.0688129604149,0.0683964946396,0.0683804767252,0.0693735874202,0.0701584652275,0.070030321912,0.0703506802007,0.0704147518585,0.070398733944,0.0697580173666,0.0698220890244,0.0701905010564,0.0700783756553,0.0696779277944,0.0696458919656,0.0697259815378,0.0701104114842,0.0695978382223,0.0699342144254,0.0698220890244,0.0696939457089,0.0698701427677,0.0700623577409,0.070030321912,0.0695978382223,0.0696779277944,0.0701264293986,0.0701424473131,0.0696779277944,0.0696939457089,0.0698060711099,0.0702225368853,0.0707030743183,0.0709593609493,0.0711836117514,0.0704948414307,0.0702385547997,0.0708472355482,0.0709273251204,0.0704467876873,0.0703186443719,0.0701424473131,0.0698220890244,0.0696939457089,0.0695818203078,0.0700143039976,0.0698060711099,0.069549784479,0.0696298740511,0.0703827160296,0.0701424473131,0.0703026264574,0.0699982860832,0.0700623577409,0.0698861606821,0.0698220890244,0.0700623577409,0.0697580173666,0.0696138561367,0.069405623249,0.0700943935698,0.0698220890244,0.0699021785965,0.0695337665645,0.0697099636233,0.0702545727141,0.0708632534627,0.0704628056018,0.0704788235162,0.0701104114842,0.0701744831419,0.0701584652275,0.0705108593451,0.0704467876873,0.0702065189708,0.0701424473131,0.0697580173666,0.0695017307357,0.069549784479,0.0692454441047,0.0694857128212,0.069549784479,0.0699342144254,0.0701424473131,0.0702385547997,0.070030321912,0.0704147518585,0.0701104114842,0.0700463398265,0.0708151997194,0.0709273251204,0.0710394505215,0.0710394505215,0.0715680416978,0.0719684895587,0.0724970807351,0.0726572598794,0.0727854031949,0.0726892957083,0.0728494748527,0.0731858510558,0.0727693852805,0.0728654927671,0.0735702810023,0.0732178868847,0.0734901914301,0.0731377973125,0.0733940839435,0.0732178868847,0.0733139943713,0.0738586034621,0.0738586034621,0.0738746213765,0.074002764692,0.0743391408952,0.0747876424994,0.0744192304674,0.0746915350128,0.0745313558684,0.0741789617508,0.0744352483818,0.0746114454406,0.0744512662962,0.0748997679004,0.0757166815366,0.0752201261891,0.0753162336757,0.075508448649,0.0754764128201,0.0753482695046,0.0756526098789,0.0753963232479,0.0751720724458,0.0750759649592,0.0755404844778,0.0756365919645,0.0757166815366,0.0760050039965,0.0755725203067,0.0753963232479,0.0758928785954,0.0759249144243,0.076613684745,0.0765816489161,0.0768058997182,0.0766937743172,0.0770141326059,0.0771102400925,0.0773505088091,0.0772704192369,0.0773344908946,0.0767738638894,0.0770621863492,0.0764535056007,0.0764535056007,0.0769340430337,0.0769340430337,0.0772544013224,0.0773985625524,0.0775587416967,0.0772063475791,0.0777509566699,0.0776868850122,0.0777029029266,0.0774626342101,0.0774466162957,0.077126258007,0.077126258007,0.07760679544,0.0778150283277,0.0775267058678,0.0775747596111,0.0772063475791,0.0769500609482,0.0771422759214,0.0766617384883,0.0766617384883,0.0769660788626,0.0766297026595,0.0771743117503,0.0771582938358,0.0780552970442,0.077975207472,0.0781834403597,0.0781353866164,0.0790003539959,0.0790964614825,0.0794648735145,0.0797211601455,0.080217715493,0.0804579842095,0.0809865753859,0.081210826188,0.0812748978458,0.0819156144232,0.0820437577387,0.0822359727119,0.082460223514,0.083084922177,0.0836615670966,0.0846066240483,0.0846386598772,0.0852473406258,0.0852793764546,0.0850230898237,0.0855997347433,0.0857438959733,0.0861283259197,0.086913203727,0.0877140994488,0.0884028697696,0.0889154430315,0.0890756221758,0.0890756221758,0.0892518192346,0.0892998729779,0.0898765178976,0.0900687328708,0.0900847507853,0.0900046612131,0.0905012165606,0.0905973240472,0.0902128941008,0.0907575031916,0.0911098973092,0.0912540585391,0.0914943272556,0.0908375927637,0.0909977719081,0.0909817539937,0.0905012165606,0.0911259152236,0.091141933138,0.0913822018546,0.0910618435658,0.0907575031916,0.090148822443,0.0904371449029,0.090661395705,0.0915583989133,0.092022918432,0.0918307034587,0.0920869900897,0.092135043833,0.0918307034587,0.0921670796619,0.0925515096083,0.0929039037259,0.0929519574692,0.0933363874157,0.0933363874157,0.0938649785921,0.0938809965065,0.0936887815333,0.0937208173621,0.0939290502498,0.0940251577364,0.0940251577364,0.0944416235117,0.0946018026561,0.0950823400892,0.0957230566666,0.0956910208377,0.0959473074687,0.0962836836718,0.0961395224419,0.0966040419605,0.0962676657574,0.0970685614792,0.0967962569338,0.0972447585379,0.09746900934,0.0978854751154,0.0981417617463,0.0975971526555,0.0973889197679,0.0973729018534,0.0975971526555,0.0980296363453,0.0983980483773,0.0993110695001,0.0989586753825,0.0987023887516,0.0991188545269,0.0994392128156,0.0994712486445,0.10032019811,0.10032019811,0.100015857735,0.100272144366,0.100784717628,0.101024986345,0.101761810409,0.102178276184,0.102562706131,0.102979171906,0.10313935105,0.10342767351,0.103956264686,0.104452820034,0.104725124579,0.105766289018,0.105782306932,0.105958503991,0.105926468162,0.106262844365,0.106775417627,0.107336044632,0.107496223777,0.108072868696,0.108569424044,0.108633495702,0.109290230193,0.110059090086,0.109850857199,0.11010714383,0.110059090086,0.111308487412,0.111260433669,0.111436630728,0.111612827787,0.11209336522,0.112173454792,0.112157436877,0.112894260941,0.112653992225,0.112702045968,0.112974350514,0.112605938482,0.112461777252,0.112509830995,0.112686028054,0.112718063883,0.112461777252,0.112974350514,0.112878243027,0.112734081797,0.112125401049,0.112077347305,0.112157436877,0.112173454792,0.112589920567,0.112493813081,0.11223752645,0.112686028054,0.11263797431,0.113118511744,0.113534977519,0.113038422171,0.112509830995,0.113054440086,0.113006386342,0.113230637145,0.112285580193,0.112990368428,0.11292629677,0.112397705594,0.112301598107,0.112653992225,0.11278213554,0.112557884738,0.113198601316,0.113326744631,0.113438870032,0.113871353722,0.114335873241,0.114111622439,0.113583031262,0.113615067091,0.113775246235,0.113182583401,0.11335878046,0.113711174578,0.114111622439,0.114175694096,0.114496052385,0.114528088214,0.11422374784,0.11407958661,0.113871353722,0.114047550781,0.114191712011,0.113807282064,0.113743210407,0.113983479123,0.113967461209,0.113999497037,0.114480034471,0.114496052385,0.115072697305,0.114960571904,0.115296948107,0.116306076716,0.116450237946,0.116177933401,0.116850685807,0.117507420299,0.117251133668,0.117155026181,0.117074936609,0.117122990352,0.116930775379,0.117891850245,0.118420441422,0.11859663848,0.11902912217,0.119477623774,0.119573731261,0.119541695432,0.119669838748,0.12018241201,0.119830017892,0.120134358266,0.120502770298,0.12058285987,0.120630913614,0.120454716555,0.12018241201,0.120775074844,0.12115950479,0.121672078052,0.121768185539,0.122104561742,0.121944382597,0.12188031094,0.121848275111,0.121912346769,0.121768185539,0.121223576448,0.120711003186,0.120967289817,0.120358609068,0.119862053721,0.119717892491,0.119557713347,0.119509659603,0.119397534202,0.119237355058,0.118532566823,0.117987957732,0.11733122324,0.116994847037,0.116498291689,0.116225987144,0.115809521369,0.115296948107,0.114592159872,0.114351891155,0.114319855326,0.113839317893,0.113518959604,0.11422374784,0.113919407465,0.113951443294,0.113663120834,0.113663120834,0.11379126415,0.114496052385,0.114688267358,0.114255783668,0.114592159872,0.114960571904,0.114832428588,0.1146241957,0.115232876449,0.115985718427,0.11620996923,0.116578381262,0.117171044096,0.11834035185,0.118965050512,0.120006214951,0.12032657324,0.120759056929,0.121688095967,0.12231279463,0.122809349977,0.122729260405,0.123402012811,0.12415485479,0.124763535538,0.125580449174,0.126028950779,0.126845864415,0.127006043559,0.127134186875,0.127822957195,0.127534634735,0.127742867623,0.128207387142,0.127662778051,0.126717721099,0.125900807463,0.124715481795,0.123834496501,0.123321923239,0.122296776715,0.12101534356,0.120438698641,0.119846035806,0.118997086341,0.118164154791,0.117171044096,0.115857575112,0.114287819497,0.112221508535,0.110635735006,0.108537388215,0.107191883402,0.106294880194,0.104677070836,0.103828121371,0.103171386879,0.1023064195,0.101313308805,0.100512413083,0.0993591232434,0.0987984962382,0.0981577796608,0.0972447585379,0.0964278449017,0.096363773244,0.0951624296613,0.0944416235117,0.0938970144209,0.0928718678971,0.0926796529238,0.0922631871485,0.0924554021217,0.0921670796619,0.0919428288598,0.0917986676299,0.0915904347422,0.0917986676299,0.0915263630845,0.0915583989133,0.0915263630845,0.0908856465071,0.0905492703039,0.0909657360792,0.0915263630845,0.0921190259186,0.0922631871485,0.0927277066671,0.092759742496,0.0926796529238,0.0929679753837,0.0929839932981,0.0925835454372,0.092647617095,0.0928558499826,0.0923112408918,0.0923432767207,0.0921030080042,0.0921030080042,0.0923112408918,0.0924073483784,0.0914943272556,0.0914622914267,0.0915744168278,0.0913341481112,0.0916064526567,0.090773521106,0.0909977719081,0.0898925358121,0.0901328045286,0.08966828501,0.089411998379,0.0893319088068,0.0887712818016,0.0887232280583,0.0888193355449,0.0883387981118,0.0886271205716,0.088675174315,0.0884349055984,0.0880024219087,0.0874738307323,0.0876980815344,0.0881946368819,0.0880664935664,0.0882106547963,0.0882106547963,0.088162601053,0.0877461352777,0.0872015261869,0.0870093112137,0.0875218844756,0.0868971858126,0.0866569170961,0.0863525767218,0.0854235376845,0.0847988390216,0.0852633585402,0.0853274301979,0.0850551256525,0.0846546777916,0.0839178537276,0.0846867136205,0.0847988390216,0.0851352152247,0.0845265344762,0.0846066240483,0.0843663553318,0.0843183015885,0.084078032872,0.0835494416956,0.0835174058667,0.0835334237812,0.0834853700379,0.0831810296636,0.0826844743161,0.0827965997171,0.0827485459738,0.0829567788615,0.0826204026583,0.0824281876851,0.0818034890221,0.0811307366158,0.0803618767229,0.0809225037282,0.0810826828725,0.0805060379528,0.0801216080064,0.0804579842095,0.0801376259208,0.080474002124,0.0806982529261,0.0808263962416,0.0806501991828,0.0805540916962,0.0802016975786,0.0804419662951,0.0808103783271,0.0802978050652,0.0799774467765,0.0799774467765,0.0802337334074,0.0799293930332,0.0798973572043,0.0795449630867,0.0796410705733,0.0800255005198,0.0791925689691,0.0787600852794,0.0786799957072,0.0783115836752,0.0784557449051,0.077975207472,0.0780713149586,0.0774466162957,0.077126258007,0.0771422759214,0.0774466162957,0.0776548491833,0.0777669745844,0.077238383408,0.0773665267235,0.0774466162957,0.0771903296647,0.0773344908946,0.0771582938358,0.0766617384883,0.0764374876862,0.0763413801996,0.0757647352799,0.0756846457078,0.0754123411624,0.0750759649592,0.0750118933015,0.075364287419,0.0752361441036,0.0748356962427,0.0745954275261,0.0746434812695,0.0752361441036,0.0751720724458,0.0752041082747,0.0748997679004,0.0751880903603,0.075508448649,0.0753002157613,0.0756686277933,0.0754764128201,0.0753963232479,0.0751240187025,0.0747395887561,0.0743391408952,0.0742430334086,0.0740828542642,0.0738586034621,0.0745633916973,0.0746915350128,0.0743551588096,0.0746594991839,0.0747556066705,0.0741629438364,0.0741949796653,0.0741148900931,0.074515337954,0.0744512662962,0.0748517141571,0.0749157858149,0.0753002157613,0.075364287419,0.0753963232479,0.0749157858149,0.0750919828736,0.0750118933015,0.0750599470448,0.0750439291303,0.0746434812695,0.0746114454406,0.0742910871519,0.0745313558684,0.0742109975797,0.0739707288632,0.0737785138899,0.0738425855477,0.0736503705745,0.0739867467776,0.0739707288632,0.0739386930343,0.0744512662962,0.0745954275261,0.0744672842107,0.0740828542642,0.0732339047991,0.0732339047991,0.0732979764569,0.0724810628207,0.0721446866175,0.0724330090774,0.0723048657619,0.0721286687031,0.071536005869,0.071279719238,0.0708632534627,0.0708151997194,0.070911307206,0.070911307206,0.0709593609493,0.0712637013236,0.071279719238,0.0717602566711,0.0718083104144,0.0717762745855,0.0714559162968,0.0713277729813,0.0717442387566,0.0720485791309,0.0727854031949,0.0728174390238,0.0729455823393,0.0724169911629,0.0728334569382,0.072529116564,0.0723529195052,0.0725611523928,0.0723208836763,0.0716961850133,0.0719364537299,0.0726572598794,0.0728014211094,0.0731377973125,0.073265940628,0.0737785138899,0.0737144422322,0.0737624959755,0.0738265676332,0.0742750692374,0.074515337954,0.0746114454406,0.0752361441036,0.0750919828736,0.0746915350128,0.0745313558684,0.0744192304674,0.0741789617508,0.0736023168311,0.0734741735157,0.0732819585424,0.0729135465104,0.0729135465104,0.0732819585424,0.0732979764569,0.0729936360826,0.0726092061361,0.0727373494516,0.0728334569382,0.0735702810023,0.0737945318044,0.0741148900931,0.0746434812695,0.0746755170983,0.0745473737828,0.0746755170983,0.0741789617508,0.074146925922,0.0742270154941,0.0735702810023,0.0734581556012,0.0733940839435,0.0736663884889,0.0735862989167,0.0736824064033,0.0735382451734,0.0731538152269,0.0732178868847,0.0729936360826,0.0725611523928,0.0729936360826,0.0733940839435,0.0734581556012,0.073522227259,0.0735542630878,0.0733139943713,0.0734741735157,0.073522227259,0.0737785138899,0.0733139943713,0.0732339047991,0.0731057614836,0.0729776181682,0.0731698331414,0.0730737256548,0.0723689374196,0.0719684895587,0.0716000775267,0.0711195400936,0.071391844639,0.0712476834091,0.0715680416978,0.0718243283288,0.0716801670989,0.07164813127,0.0722247761897,0.0722087582753,0.0720806149598,0.0720325612165,0.0723048657619,0.0719684895587,0.0718723820721,0.0719684895587,0.0721286687031,0.0716641491844,0.0721126507886,0.0720645970453,0.0721126507886,0.0718243283288,0.071536005869,0.0720645970453,0.0721767224464,0.0719524716443,0.0721607045319,0.0718883999865,0.0721446866175,0.072016543302,0.0723208836763,0.0726892957083,0.0723208836763,0.0720005253876,0.0726092061361,0.0727053136228,0.0726732777939,0.0732499227136,0.0736183347456,0.0734901914301,0.0738746213765,0.0741309080075,0.0738105497188,0.0737785138899,0.073522227259,0.07363435266,0.0731217793981,0.0729616002537,0.0724009732485,0.0722888478474,0.0720645970453,0.0721767224464,0.0719364537299,0.0716801670989,0.0718403462432,0.0717122029278,0.071536005869,0.0714879521257,0.0716160954411,0.0712957371524,0.071023432607,0.0710394505215,0.070911307206,0.0712156475803,0.0708472355482,0.0710554684359,0.070542895174,0.070542895174,0.0706710384894,0.0707190922328,0.0706870564039,0.0703346622863,0.070542895174,0.0700783756553,0.0693896053346,0.0699021785965,0.0693735874202,0.0687008350139,0.0687969425005,0.0687168529283,0.0689891574737,0.0687809245861,0.0689411037304,0.0690211933026,0.0694376590779,0.0694857128212,0.0697099636233,0.0699822681687,0.0699502323398,0.0702065189708,0.0698060711099,0.0695978382223,0.0693095157624,0.0693896053346,0.0691653545325,0.0689731395593,0.069293497848,0.0695337665645,0.0696458919656,0.0691493366181,0.0698381069388,0.0699982860832,0.0697099636233,0.0692294261903,0.0699662502543,0.0697259815378,0.0695978382223,0.0697419994522,0.070398733944,0.0706390026606,0.0707991818049,0.0708472355482,0.0710714863503,0.07164813127,0.0719204358154,0.0721286687031,0.0716961850133,0.0716000775267,0.0721126507886,0.0724330090774,0.0726892957083,0.0730737256548,0.072897528596,0.0727693852805,0.0731538152269,0.0735702810023,0.0737304601466,0.0743551588096,0.0743391408952,0.0741148900931,0.0744032125529,0.0746114454406,0.074371176724,0.0740988721786,0.0741789617508,0.0745633916973,0.0740348005209,0.07363435266,0.0737624959755,0.074002764692,0.0732979764569,0.0741309080075,0.0736663884889,0.0740187826065,0.0733620481146,0.0734421376868,0.0734421376868,0.0727854031949,0.0724330090774,0.0723369015907,0.0719364537299,0.072272829933,0.0723048657619,0.072641241965,0.0724330090774,0.0721286687031,0.0714559162968,0.0710394505215,0.0709913967782,0.0708792713771,0.0704628056018,0.0705108593451,0.0709913967782,0.0703506802007,0.0707190922328,0.0706390026606,0.0711355580081,0.0712476834091,0.0716160954411,0.0717922924999,0.0718243283288,0.072016543302,0.0721927403608,0.0724810628207,0.0726572598794,0.0725611523928,0.072641241965,0.0722087582753,0.0723689374196,0.0719684895587,0.0719845074732,0.0717762745855,0.071904417901,0.0724169911629,0.0728815106815,0.0727693852805,0.0734101018579,0.0728334569382,0.0729455823393,0.072641241965,0.0729616002537,0.0731858510558,0.0735862989167,0.0739066572054,0.0738586034621,0.0740828542642,0.0741148900931,0.0741949796653,0.0737144422322,0.0738265676332,0.0735542630878,0.0734901914301,0.0727693852805,0.072897528596,0.0724810628207,0.0723048657619,0.0718403462432,0.0716000775267,0.0718723820721,0.0717442387566,0.0716160954411,0.0714719342112,0.0711515759225,0.0712957371524,0.0716961850133,0.0721927403608,0.0720645970453,0.0720806149598,0.071904417901,0.0724970807351,0.072529116564,0.0726252240506,0.0726572598794,0.0730577077403,0.073265940628,0.0735862989167,0.0733940839435,0.0736023168311,0.0737785138899,0.07363435266,0.0740508184353,0.0737624959755,0.0737304601466,0.073265940628,0.0731698331414,0.0733460302002,0.0736183347456,0.0737464780611,0.0743391408952,0.0740187826065,0.0741949796653,0.0744352483818,0.0748036604138,0.075364287419,0.0750118933015,0.0746915350128,0.0753002157613,0.0755725203067,0.0757487173655,0.0756365919645,0.0755885382211,0.07562057405,0.075988986082,0.0755565023923,0.0754603949057,0.0748356962427,0.0748036604138,0.0746915350128,0.0743871946385,0.0740668363498,0.0738425855477,0.0738265676332,0.0718083104144,0.069405623249,0.0671951510569,0.0652730013247,0.0631105828759,0.0612685227158,0.0593303550691,0.0574562590802,0.0555821630912,0.053403726728,0.0512893620225,0.0493992481191,0.0471567400981,0.045202554537,0.0431522614892,0.0410218788693,0.0389555679071,0.0364888090841)
m <- c(0.038878073438,0.0407644273301,0.0430024743208,0.0449367863627,0.0467112379054,0.0485816057476,0.0507077503887,0.0526740345305,0.054704262872,0.0566865330638,0.0587327474553,0.0612905154446,0.0633846879859,0.0656547070764,0.0673971865192,0.0694913590604,0.071745392101,0.0740313972415,0.0742871740404,0.0740633693414,0.0735358296936,0.0731681505451,0.0733759691942,0.0729123737462,0.0724008201483,0.0724168061982,0.0719691968001,0.0717933502508,0.0722089875491,0.0725766666976,0.072480750398,0.0729763179459,0.0727684992968,0.0735518157435,0.0736477320431,0.073423927344,0.0736477320431,0.0737436483427,0.0733759691942,0.0737276622928,0.0743351321902,0.0742552019406,0.0742072437908,0.0740154111916,0.0740953414412,0.0740473832914,0.073903508842,0.0732320947448,0.0730082900458,0.0730562481956,0.073423927344,0.0738875227921,0.0738235785924,0.0735678017934,0.0731681505451,0.0731361784452,0.0731521644952,0.0738075925424,0.0732960389446,0.0735837878434,0.0737436483427,0.0739834390917,0.0740313972415,0.0741273135411,0.0738235785924,0.0734558994439,0.0732640668447,0.0731521644952,0.072960331896,0.0717134200012,0.0714576432022,0.0718093363008,0.0717933502508,0.0720331409998,0.0721610293993,0.0719212386503,0.0715855316017,0.0716654618514,0.0716494758014,0.0715855316017,0.0718093363008,0.0718413084006,0.072224973599,0.0722889177988,0.0727844853467,0.0724487782981,0.0725926527475,0.0718413084006,0.0716654618514,0.0714416571523,0.0720491270498,0.0723368759486,0.0722089875491,0.0719691968001,0.0722089875491,0.0722569456989,0.0725926527475,0.0720011689,0.0720491270498,0.0725766666976,0.0727365271969,0.0732480807948,0.0736477320431,0.0739354809419,0.073919494892,0.0747507694885,0.0749585881376,0.0747987276383,0.074862671838,0.0742232298407,0.0742552019406,0.0742392158906,0.074159285641,0.0740313972415,0.0738875227921,0.0741912577408,0.0743191461403,0.0744949926896,0.07439907639,0.0743191461403,0.0742711879905,0.0744310484898,0.0738555506922,0.0743031600904,0.0740953414412,0.0743031600904,0.0739834390917,0.0738395646423,0.0737756204426,0.0737916064925,0.0738555506922,0.0738715367422,0.0733280110444,0.073679704143,0.0738715367422,0.0736956901929,0.073679704143,0.0735198436436,0.0731042063454,0.0723848340984,0.0723688480484,0.0727525132468,0.0729283597961,0.0730402621456,0.0731042063454,0.0731361784452,0.0735038575937,0.073423927344,0.0735518157435,0.0741752716909,0.0741912577408,0.0743351321902,0.0737756204426,0.0737756204426,0.0737756204426,0.0739834390917,0.0737276622928,0.0735837878434,0.074159285641,0.0740793553913,0.074159285641,0.0740154111916,0.0739994251416,0.0743191461403,0.0744949926896,0.0741113274912,0.0738715367422,0.0735997738933,0.0736477320431,0.0735518157435,0.0733439970944,0.0735358296936,0.0734558994439,0.0735198436436,0.0739514669918,0.0745909089892,0.0744949926896,0.0736157599432,0.072944345846,0.0728804016463,0.0727365271969,0.0735198436436,0.0732480807948,0.0732161086949,0.0730882202954,0.0727525132468,0.072960331896,0.0724168061982,0.0725446945977,0.0722569456989,0.0720011689,0.0712977827029,0.071265810603,0.0711219361536,0.0707382709552,0.0704025639066,0.0707062988554,0.0708661593547,0.0709620756543,0.0703865778567,0.0702746755072,0.0704824941563,0.070546438356,0.0705943965058,0.0704345360065,0.0703546057568,0.070306647607,0.0696991777096,0.0698910103088,0.0694753730105,0.0692995264612,0.0689478333627,0.0692355822615,0.0691556520118,0.0693155125112,0.0689478333627,0.0686121263141,0.0682764192655,0.0682124750658,0.0687719868134,0.0687240286636,0.0685801542142,0.0682124750658,0.0682764192655,0.0678128238174,0.0676369772682,0.0677968377675,0.0687240286636,0.0685162100145,0.0687560007635,0.0689318473128,0.0695233311603,0.0693954427608,0.0692195962116,0.0691556520118,0.0692995264612,0.0696831916596,0.0694274148607,0.0692835404113,0.0692036101616,0.0691716380618,0.0692995264612,0.0694753730105,0.0702267173574,0.0700988289579,0.0700988289579,0.070066856858,0.0698590382089,0.0691876241117,0.0694434009106,0.0695073451104,0.069827066109,0.070306647607,0.0707382709552,0.0708821454046,0.0702427034073,0.0701787592076,0.0702906615571,0.0708821454046,0.0713457408527,0.0716974339512,0.071521587402,0.071042005904,0.0712338385032,0.071281796653,0.0708821454046,0.0711539082535,0.0707222849053,0.0703865778567,0.070802215155,0.0709940477542,0.0709141175045,0.070802215155,0.070786229105,0.0713137687528,0.0713297548028,0.0713777129526,0.071026019854,0.0708981314546,0.0706743267555,0.0706583407056,0.0711539082535,0.071042005904,0.0715695455518,0.071761378151,0.0720810991496,0.072224973599,0.0723528619985,0.0719372247002,0.0713457408527,0.0708661593547,0.0710739780038,0.0710100338041,0.0713137687528,0.0705144662562,0.0706263686057,0.0708182012049,0.0712498245531,0.0719532107502,0.071521587402,0.0717933502508,0.0717933502508,0.0712977827029,0.0711858803534,0.0711858803534,0.0710579919539,0.0709620756543,0.0711059501037,0.0711858803534,0.0713457408527,0.0706263686057,0.070802215155,0.0710739780038,0.0707702430551,0.0704984802062,0.0703865778567,0.0705784104559,0.0702427034073,0.0699389684586,0.06960326141,0.0700988289579,0.0696352335098,0.0696672056097,0.0698110800591,0.069843052159,0.0700508708081,0.070306647607,0.0704025639066,0.0704345360065,0.0706103825558,0.0709620756543,0.070546438356,0.0704984802062,0.0707382709552,0.0704345360065,0.0702586894572,0.070322633657,0.0705144662562,0.0707542570052,0.0709620756543,0.0714096850524,0.0711059501037,0.0710100338041,0.0708981314546,0.071042005904,0.0711379222036,0.071281796653,0.0708182012049,0.0706743267555,0.0709780617042,0.0715375734519,0.0708981314546,0.071026019854,0.0713936990025,0.0716814479013,0.0715695455518,0.0715695455518,0.0718572944506,0.0716654618514,0.0710100338041,0.070786229105,0.0704185499566,0.0705144662562,0.070322633657,0.0704984802062,0.0704025639066,0.0707382709552,0.0706263686057,0.070306647607,0.0703865778567,0.0709141175045,0.0709940477542,0.0708821454046,0.0708341872548,0.0712498245531,0.0711059501037,0.0711379222036,0.0709940477542,0.0708341872548,0.0711379222036,0.0709780617042,0.0706103825558,0.0707382709552,0.0712178524532,0.0711858803534,0.0714736292522,0.0712498245531,0.0719372247002,0.0719691968001,0.071745392101,0.0720491270498,0.0726086387974,0.0724487782981,0.0720331409998,0.0721290572994,0.0729123737462,0.0733120249945,0.0735678017934,0.0737276622928,0.0736477320431,0.0734079412941,0.0729763179459,0.0726885690471,0.0730402621456,0.0734718854938,0.0734558994439,0.0728484295464,0.0729763179459,0.0727684992968,0.0728644155964,0.072720541147,0.0730402621456,0.0728164574466,0.0728004713966,0.0729763179459,0.0726086387974,0.0725287085478,0.0730722342455,0.0732640668447,0.0733919552442,0.0739834390917,0.0743031600904,0.07438309034,0.0749106299878,0.07438309034,0.0743671042901,0.0738075925424,0.0740154111916,0.0741912577408,0.0745589368893,0.0752942951862,0.0751344346869,0.0752623230864,0.0752623230864,0.0747987276383,0.0752783091363,0.0754061975358,0.0755660580351,0.075598030135,0.0754861277854,0.0759816953334,0.0759816953334,0.0762055000325,0.0762214860824,0.0768609280797,0.077276565378,0.0771806490784,0.0771486769785,0.0775803003267,0.0778360771257,0.0779639655251,0.0782677004739,0.0783316446736,0.0781557981243,0.0781557981243,0.0777721329259,0.0775323421769,0.0768449420298,0.0765731791809,0.0764452907815,0.0768449420298,0.0772445932781,0.0775643142768,0.0775323421769,0.0778200910757,0.0780758678747,0.0777401608261,0.0776602305764,0.0775962863767,0.0781398120744,0.0787312959219,0.0784595330731,0.0784595330731,0.0784435470231,0.0787312959219,0.0795146123687,0.0792908076696,0.079434682119,0.0793707379193,0.0798023612675,0.0788751703713,0.0788431982715,0.0787952401217,0.0786034075225,0.0786673517222,0.0790510169206,0.0790829890205,0.0793387658194,0.0794986263187,0.0802179985657,0.0805696916643,0.0811931476117,0.0814329383607,0.0820404082581,0.0822801990071,0.0818965338087,0.0816567430597,0.0811611755118,0.0816087849099,0.0814009662608,0.0811771615617,0.0810492731623,0.0812570918114,0.0818166035591,0.0817686454093,0.0812091336616,0.0810972313121,0.0817366733094,0.0821363245577,0.0819764640584,0.0816407570098,0.0816887151596,0.0814649104605,0.0814649104605,0.0812730778613,0.081113217362,0.0822162548074,0.082072380358,0.0822162548074,0.0826958363054,0.0823921013567,0.0821043524579,0.0829675991543,0.0830475294039,0.0829516131043,0.0828237247049,0.0828237247049,0.0825359758061,0.0821842827075,0.0828077386549,0.0835750690517,0.0843583854985,0.0848379669965,0.0854774089938,0.0858930462921,0.0859889625917,0.086164809141,0.086148823091,0.0859729765418,0.0853655066443,0.0853974787441,0.0860209346916,0.0861008649412,0.0857811439425,0.0860848788913,0.0869161534878,0.0878913025338,0.0870920000371,0.0874117210358,0.0874596791856,0.0881151072328,0.0882749677322,0.0880511630331,0.088083135133,0.0881950374825,0.0880191909332,0.0880511630331,0.088546730581,0.0884028561316,0.0885147584812,0.0887385631802,0.0882429956323,0.0882589816822,0.08880250738,0.0892980749279,0.088562716631,0.0887225771303,0.0887065910804,0.089026312079,0.0891542004785,0.0888824376296,0.0892501167781,0.089282088878,0.0898416006256,0.0898096285258,0.0900334332248,0.0910245683207,0.0909925962208,0.0912803451196,0.0919517592168,0.0923194383653,0.0921276057661,0.0919997173666,0.0936143084099,0.094557485356,0.0952448855031,0.0960441879998,0.0968115183966,0.0977227232428,0.0988417467381,0.0999287981336,0.101207682128,0.102518538223,0.103685519868,0.104261017666,0.104980389913,0.105459971411,0.106722869355,0.1080177394,0.108577251148,0.109360567594,0.110863256288,0.111166991237,0.112349958932,0.11284552648,0.114060466275,0.114779838522,0.115994778317,0.116762108713,0.117785215909,0.119016141754,0.1199912908,0.11987938845,0.120838551446,0.121509965544,0.121477993444,0.121957574942,0.12245314249,0.123572165985,0.122644975089,0.122101449391,0.12245314249,0.121973560992,0.121509965544,0.120950453796,0.121110314295,0.120838551446,0.1198953745,0.119671569801,0.118856281255,0.118952197554,0.118712406805,0.119303890653,0.119239946453,0.118392685807,0.118328741607,0.117913104309,0.117209718112,0.116682178464,0.116458373765,0.116458373765,0.115882875967,0.115850903867,0.115595127068,0.115818931767,0.11511554557,0.114971671121,0.114827796672,0.114875754821,0.114172368624,0.114508075673,0.11508357347,0.114987657171,0.115707029418,0.114971671121,0.115323364219,0.115659071268,0.115563154968,0.115850903867,0.116698164514,0.116730136614,0.116378443515,0.116666192414,0.11768929961,0.11760936936,0.11765732751,0.11765732751,0.117961062458,0.118280783457,0.117961062458,0.118408671857,0.118536560256,0.119064099904,0.119751500051,0.120454886248,0.120374955998,0.120918481696,0.120982425896,0.120982425896,0.120199109449,0.120263053649,0.120694676997,0.120854537496,0.121925602842,0.121845672592,0.122533072739,0.122117435441,0.122197365691,0.122261309891,0.122261309891,0.122900751888,0.123156528687,0.123188500787,0.123044626337,0.122980682138,0.122533072739,0.122581030889,0.12250110064,0.122788849538,0.122197365691,0.12234124014,0.122565044839,0.122229337791,0.122085463341,0.121158272445,0.121254188745,0.121557923693,0.12227729594,0.122005533092,0.121861658642,0.122069477291,0.121893630742,0.121094328245,0.121110314295,0.121382077144,0.121829686542,0.121557923693,0.121014397996,0.120199109449,0.119016141754,0.119255932503,0.119000155704,0.119223960403,0.118680434705,0.118504588156,0.118184867158,0.117737257759,0.117465494911,0.117273662311,0.116826052913,0.116714150564,0.116762108713,0.117113801812,0.117097815762,0.116698164514,0.116810066863,0.116522317964,0.116058722516,0.115850903867,0.115914848067,0.116378443515,0.116794080813,0.116026750417,0.114779838522,0.114492089623,0.114076452325,0.113564898727,0.112925456729,0.112509819431,0.112254042632,0.111470726186,0.110847270238,0.110527549239,0.110543535289,0.110575507389,0.110511563189,0.11035170269,0.109776204893,0.109424511794,0.109744232793,0.109520428094,0.109008874496,0.109344581544,0.109520428094,0.109312609444,0.109488455994,0.109360567594,0.109424511794,0.108817041897,0.108737111647,0.108177599899,0.108289502249,0.108321474349,0.108737111647,0.108673167447,0.108593237197,0.108321474349,0.107682032351,0.107570130002,0.107777948651,0.107857878901,0.107362311353,0.107122520604,0.107698018401,0.108145627799,0.107698018401,0.107889851,0.107554143952,0.108385418548,0.108497320898,0.108577251148,0.108513306948,0.108465348798,0.108593237197,0.10790583705,0.107154492703,0.106882729855,0.106722869355,0.106403148357,0.106275259957,0.105987511058,0.105843636609,0.105811664509,0.105124264362,0.104964403863,0.105124264362,0.105092292262,0.104436864215,0.104452850265,0.104245031616,0.104085171116,0.103621575668,0.103461715169,0.10326988257,0.10311002207,0.10315798022,0.102710370822,0.103413757019,0.103861366417,0.103413757019,0.103509673319,0.103685519868,0.10326988257,0.103685519868,0.102966147621,0.102422621923,0.102326705624,0.101975012525,0.101799165976,0.101943040425,0.102246775374,0.102294733524,0.102278747474,0.102374663773,0.101943040425,0.101495431027,0.101943040425,0.102262761424,0.102230789324,0.101943040425,0.101990998575,0.101383528678,0.100951905329,0.100552254081,0.100232533082,0.100184574933,0.100056686533,0.100008728383,0.0997049934345,0.0995611189851,0.099593091085,0.0995131608353,0.099593091085,0.0992094258866,0.0983461791902,0.0975308906436,0.0971632114951,0.0971791975451,0.0971312393953,0.0964118671483,0.0964917973979,0.0964598252981,0.096475811348,0.0966196857974,0.0961720763993,0.0958523554006,0.0955965786016,0.0950850250038,0.0950850250038,0.094541499306,0.0942537504072,0.0940139596582,0.0937581828593,0.0936782526096,0.0938540991589,0.0939180433586,0.0940938899079,0.0942057922574,0.094077903858,0.0939819875584,0.0935663502601,0.0933745176609,0.0931666990118,0.0928949361629,0.0927670477634,0.0922395081156,0.091903801067,0.0912963311696,0.0908167496716,0.0904170984232,0.0900174471749,0.0902092797741,0.0898096285258,0.0893939912275,0.0895378656769,0.0894259633274,0.0896977261762,0.0894099772774,0.0888984236796,0.0889144097295,0.0885946887308,0.087827358334,0.0876994699346,0.0876355257348,0.0875715815351,0.0871879163367,0.0867243208886,0.0865964324892,0.0861168509912,0.0852216321949,0.0845662041476,0.0845022599479,0.0838628179505,0.0836869714013,0.0837189435011,0.0837189435011,0.0833033062029,0.083031543354,0.0824560455564,0.0822801990071,0.0818805477588,0.0817686454093,0.0813210360111,0.0808574405631,0.0808094824133,0.0803139148653,0.0803618730151,0.0802659567155,0.0799782078167,0.0797544031177,0.0793227797695,0.0794027100191,0.0786193935724,0.0785234772728,0.0784435470231,0.0779160073753,0.0781557981243,0.0786353796223,0.0784435470231,0.0787952401217,0.0787472819719,0.0786193935724,0.0786993238221,0.0782037562741,0.0777241747761,0.0777721329259,0.0775483282269,0.0770847327788,0.0769728304293,0.0763973326317,0.0763493744819,0.0762214860824,0.0763813465817,0.0762854302821,0.0766211373307,0.0769888164792,0.077276565378,0.0774044537775,0.0773564956277,0.0776442445265,0.077516356127,0.0773724816776,0.0775323421769,0.0768929001796,0.0776122724266,0.0772286072282,0.0773245235278,0.0772605793281,0.0769248722795,0.0766690954805,0.0767650117801,0.0766211373307,0.0763653605318,0.0762055000325,0.0761255697828,0.0754061975358,0.0747028113387,0.0746068950391,0.0746708392388,0.0752942951862,0.0754221835857,0.0753742254359,0.075118448637,0.0752303509865,0.0754221835857,0.0756300022348,0.0754061975358,0.0751823928367,0.0749745741876,0.0745909089892,0.0746548531889,0.0743191461403,0.0737916064925,0.0738555506922,0.0739514669918,0.0738395646423,0.0738395646423,0.0738395646423,0.0735837878434,0.0739354809419,0.0732480807948,0.0732161086949,0.0729283597961,0.0731361784452,0.0736157599432,0.0735678017934,0.0732960389446,0.0730402621456,0.073200122645,0.0729123737462,0.0727365271969,0.072960331896,0.0734878715438,0.0735837878434,0.0733280110444,0.0730882202954,0.0734079412941,0.0732320947448,0.0735198436436,0.0735997738933,0.0735358296936,0.073200122645,0.0731521644952,0.0732320947448,0.0732800528946,0.0735358296936,0.0733599831443,0.072960331896,0.0733599831443,0.0733120249945,0.0733120249945,0.0735038575937,0.0738715367422,0.0740793553913,0.0741113274912,0.0740793553913,0.0738875227921,0.0738875227921,0.0740473832914,0.0736157599432,0.0728004713966,0.073184136595,0.0730562481956,0.0732960389446,0.072944345846,0.0725287085478,0.0725926527475,0.0725127224978,0.0722889177988,0.0726565969472,0.0725127224978,0.0724327922482,0.0720810991496,0.0718572944506,0.0716494758014,0.071265810603,0.0713137687528,0.0715695455518,0.0718253223507,0.0718572944506,0.0720331409998,0.0720651130997,0.071761378151,0.0719052526004,0.0718892665504,0.071761378151,0.071521587402,0.0714736292522,0.0709940477542,0.0711059501037,0.0713297548028,0.0713137687528,0.0717294060511,0.0720011689,0.0715535595018,0.071505601352,0.0715695455518,0.0711539082535,0.071265810603,0.0711698943034,0.0712338385032,0.0714256711024,0.0709460896044,0.0709301035544,0.0708501733048,0.0705784104559,0.0705784104559,0.070562424406,0.0703386197069,0.0707382709552,0.0709141175045,0.0712018664033,0.0711698943034,0.0714096850524,0.0714256711024,0.071505601352,0.0714256711024,0.0710899640538,0.0713777129526,0.0715375734519,0.0715375734519,0.0716175037016,0.0718732805005,0.0718892665504,0.0722089875491,0.0718093363008,0.0717933502508,0.0716814479013,0.0712338385032,0.0711059501037,0.0712977827029,0.0710739780038,0.0716175037016,0.0720970851996,0.0724168061982,0.0727844853467,0.0725127224978,0.0726406108973,0.0730402621456,0.0728963876962,0.0728164574466,0.0726725829972,0.0730242760957,0.0728484295464,0.072960331896,0.072704555097,0.0724487782981,0.0724487782981,0.072240959649,0.0720810991496,0.0716974339512,0.0715535595018,0.0712178524532,0.0713777129526,0.0713137687528,0.0712977827029,0.0703705918068,0.0706583407056,0.0708661593547,0.0710739780038,0.0708341872548,0.0711858803534,0.0707702430551,0.0708661593547,0.0708182012049,0.0711219361536,0.0709940477542,0.0716175037016,0.0708661593547,0.0706903128054,0.0700029126583,0.0695233311603,0.0701148150078,0.0698910103088,0.0700029126583,0.0700029126583,0.0702267173574,0.0706743267555,0.0707382709552,0.070802215155,0.0706743267555,0.0709141175045,0.0708821454046,0.071026019854,0.0710899640538,0.0708821454046,0.0709460896044,0.0710579919539,0.0715855316017,0.0713777129526,0.0713936990025,0.0714256711024,0.0718892665504,0.0712338385032,0.0708821454046,0.0704824941563,0.070546438356,0.0705304523061,0.0709940477542,0.0710579919539,0.071042005904,0.0706263686057,0.0711858803534,0.0690277636124,0.0673971865192,0.0653030139779,0.0636404647848,0.0617860829925,0.0595480360019,0.0579654170585,0.0559991329167,0.0541927092742,0.0519226901836,0.049684643193,0.0473187078028,0.0453843957609,0.043673888418,0.0415317577269,0.0397253340845,0.0375672173435,0.0356009332017)
s <- c(0.0375534573101,0.0374403201458,0.0371736396872,0.0369877714888,0.037092827427,0.0368584718725,0.0365998726399,0.0366079538659,0.0363816795374,0.0362927860512,0.0365028979277,0.0366887661261,0.03664027877,0.0368907967766,0.0367857408383,0.0371817209132,0.0372302082694,0.0371170711051,0.0569807246597,0.0580312840422,0.0589202189043,0.0600354280949,0.0614819675523,0.0623224150582,0.0631305376601,0.0638578480018,0.0650215445486,0.0662337284514,0.0669933636972,0.0678257299771,0.0688439644555,0.0696924931875,0.070759215022,0.072027967507,0.0729653897252,0.0738219996832,0.0734421820603,0.0731270142456,0.073296719992,0.07332096367,0.0729330648211,0.0728360901089,0.0729007399171,0.0730138770813,0.0728360901089,0.072884577465,0.0729492272732,0.0725774908763,0.0726502219105,0.0727714403008,0.0723350540957,0.0715107690418,0.0712925759393,0.0714622816857,0.071179438775,0.0714057131035,0.0712764134872,0.0710420579327,0.0707753774741,0.0709693268985,0.0708804334123,0.0710178142546,0.0708561897343,0.0706137529537,0.0710339767067,0.0708642709603,0.0709774081245,0.0711147889669,0.0713976318775,0.0709208395424,0.070751133796,0.0707188088919,0.0710501391587,0.0713653069735,0.0712844947133,0.0712683322612,0.0713814694255,0.0713976318775,0.0713814694255,0.0708319460562,0.0711309514189,0.0714622816857,0.0715511751719,0.0719390740208,0.0721653483493,0.0721815108014,0.0722219169315,0.0726583031365,0.0727229529446,0.0726987092666,0.072868415013,0.0722542418355,0.072456272486,0.0724966786161,0.072464353712,0.0723997039039,0.0724885973901,0.0724885973901,0.0727552778487,0.0728037652048,0.0728118464308,0.0726259782324,0.0727391153967,0.0727391153967,0.0721976732534,0.0722299981575,0.0720845360891,0.0719713989249,0.0719067491167,0.0717451245963,0.0718905866647,0.072019886281,0.0718420993086,0.0718420993086,0.0720683736371,0.0726421406844,0.0726744655885,0.0727471966227,0.0727714403008,0.0726825468145,0.0721491858973,0.0718178556305,0.0719956426029,0.0721330234453,0.072019886281,0.0720602924111,0.0721330234453,0.0723431353217,0.0722704042876,0.0723997039039,0.0724077851299,0.0726583031365,0.0727552778487,0.0729249835951,0.0726259782324,0.0724077851299,0.07244819126,0.0727795215268,0.0726583031365,0.0723512165478,0.0726502219105,0.0726663843625,0.0729169023691,0.0730866081155,0.0732078265058,0.0734825881904,0.0732239889578,0.0729007399171,0.0730866081155,0.0729896334033,0.0727714403008,0.0726583031365,0.072464353712,0.0723997039039,0.0722946479656,0.0722704042876,0.0727067904926,0.0729249835951,0.0727471966227,0.0723431353217,0.0723835414518,0.0722299981575,0.0722380793835,0.0724805161641,0.0723754602258,0.0722704042876,0.0721734295753,0.0721249422192,0.0720764548631,0.0717289621443,0.0716885560142,0.0718905866647,0.0716239062061,0.0713087383913,0.0711067077408,0.0711228701929,0.0712036824531,0.0713410632954,0.0712925759393,0.0713814694255,0.0712440885832,0.0709854893506,0.0709208395424,0.0712036824531,0.0712036824531,0.0711067077408,0.0709935705766,0.070759215022,0.0706056717277,0.070322828817,0.0702662602349,0.0701773667487,0.0701207981665,0.0701369606186,0.0703874786252,0.0703955598512,0.0703713161731,0.0703793973991,0.0700561483584,0.0698541177079,0.0702096916527,0.0705491031455,0.0705814280496,0.0705086970154,0.0705895092756,0.0708238648302,0.0708561897343,0.0708481085082,0.0709935705766,0.0714137943296,0.0713895506515,0.0716804747882,0.0715592563979,0.0719067491167,0.0721976732534,0.0719309927948,0.072036048733,0.0719309927948,0.0722542418355,0.072036048733,0.072011805055,0.0722461606095,0.0722299981575,0.0723027291917,0.072456272486,0.0730057958553,0.0731674203757,0.0729815521772,0.0731027705675,0.0729169023691,0.0723997039039,0.0726583031365,0.0727795215268,0.072860333787,0.0733290448961,0.0739593805255,0.0737815935531,0.0735068318685,0.0735714816766,0.0736118878067,0.0738462433613,0.0742341422102,0.0742826295663,0.0740805989158,0.0737896747791,0.0741210050459,0.0741937360801,0.0740321115597,0.0743149544704,0.0738785682653,0.0736199690327,0.0740805989158,0.0741937360801,0.0745008226688,0.0744280916346,0.0745331475729,0.0747432594494,0.0749129651958,0.0749856962299,0.0749291276478,0.0748240717096,0.0747432594494,0.0744523353127,0.0748483153876,0.0744846602168,0.0747513406754,0.0750907521682,0.0752523766886,0.0754867322431,0.0756241130854,0.0754948134691,0.075018021134,0.0750503460381,0.0751230770723,0.0750988333942,0.0751311582983,0.0747190157713,0.0746139598331,0.0747109345453,0.0751715644284,0.0756321943115,0.0752685391406,0.075430163661,0.0752442954626,0.0748644778397,0.0749048839698,0.0746624471892,0.074597797381,0.0747028533193,0.0746058786071,0.0749210464218,0.074993777456,0.0750826709422,0.0751311582983,0.0753735950789,0.0751958081064,0.0754948134691,0.0754867322431,0.0757695751538,0.0757291690237,0.0758261437359,0.0757776563798,0.076294854845,0.0761736364547,0.0762221238108,0.0766181038858,0.076698916146,0.0769009467964,0.077143383577,0.0775070387479,0.0778141253366,0.0783798111579,0.0785737605824,0.0786707352946,0.0786626540686,0.0786545728426,0.0787919536849,0.0787757912328,0.0790020655614,0.0794950203485,0.0800203000398,0.0804728486968,0.080957722258,0.0808849912238,0.0808365038677,0.0808688287718,0.080965803484,0.0813052149768,0.0814749207232,0.0812486463946,0.0811355092304,0.0815395705313,0.0818709007981,0.0813537023329,0.0816931138257,0.0820567689965,0.082274962099,0.0823396119072,0.0820082816404,0.082234555969,0.0821295000307,0.0815557329834,0.0817577636338,0.0815799766614,0.0817496824078,0.0814910831752,0.0814264333671,0.0810708594222,0.081386027237,0.0814425958191,0.0817335199558,0.0820082816404,0.0821779873868,0.0823476931332,0.0823153682291,0.0821375812567,0.0825173988796,0.0826386172699,0.0828325666944,0.0827840793382,0.0828972165025,0.0830507597969,0.0832366279953,0.0830588410229,0.0830265161188,0.0832851153514,0.0833740088376,0.0835679582621,0.0834548210978,0.0840124256931,0.0841094004054,0.0842387000217,0.0847154923568,0.0849821728154,0.0850306601715,0.0849902540414,0.0849660103634,0.0855963459928,0.0856286708969,0.0861620318142,0.086105463232,0.0862913314305,0.0862832502045,0.0862751689784,0.0862590065264,0.0861620318142,0.0862751689784,0.0862590065264,0.0860650571019,0.0863479000126,0.0864287122728,0.086937829512,0.0866873115054,0.0867196364095,0.0868166111217,0.0869701544161,0.0870752103543,0.0873176471349,0.0872772410048,0.0873984593951,0.0876247337236,0.0879479827644,0.0883682065173,0.0889015674346,0.0891520854412,0.0896127153243,0.0895561467421,0.0896288777763,0.089491496934,0.0898632333309,0.0902026448237,0.0905258938644,0.0914229099525,0.0913501789183,0.0915037222127,0.0914875597607,0.0914229099525,0.0919239459657,0.0922714386845,0.0924330632049,0.0927401497936,0.0929340992181,0.0932169421287,0.0935482723955,0.0940493084087,0.0939523336964,0.0944048823535,0.0945907505519,0.0951725988253,0.0951321926952,0.0954392792839,0.0956574723865,0.0959645589752,0.0961585083996,0.0961827520777,0.0964655949883,0.0963443765981,0.0961746708517,0.0961908333037,0.0956574723865,0.09544736051,0.0954069543799,0.0956978785165,0.0959160716191,0.0959483965231,0.0961908333037,0.0962878080159,0.0963443765981,0.0958675842629,0.0958029344548,0.0958110156808,0.0960938585915,0.0966029758307,0.0964171076322,0.0962878080159,0.0965060011184,0.0966272195087,0.0972656363642,0.0973626110765,0.097184824104,0.0968858187413,0.0973787735285,0.0968858187413,0.0969827934536,0.0964817574404,0.096740356673,0.096740356673,0.0966676256388,0.0966353007347,0.0969423873235,0.0970878493918,0.0973383673984,0.0978394034116,0.0982192210345,0.0983970080069,0.0989222876981,0.0992778616429,0.0989707750542,0.0985828762053,0.0983485206508,0.0986556072395,0.0982515459385,0.0982273022605,0.0983404394247,0.0986475260135,0.0989626938282,0.0991000746705,0.0988333942119,0.0986232823354,0.098873800342,0.0989707750542,0.0989788562802,0.098881881568,0.0987121758216,0.0985667137533,0.0986879321436,0.0985828762053,0.0985182263972,0.099318267773,0.0992536179649,0.0996172731357,0.0998031413342,0.0998193037862,0.100182958957,0.100692076196,0.100595101484,0.100886025621,0.101152706079,0.101023406463,0.100829457039,0.100611263936,0.100950675429,0.101241599566,0.102122453202,0.102631570441,0.103043712968,0.103472017947,0.103746779631,0.103884160474,0.103859916796,0.103835673118,0.103787185762,0.103625561241,0.10409427235,0.104320546679,0.104199328288,0.104377115261,0.104708445528,0.105064019473,0.104958963534,0.105314537479,0.10559738039,0.105977198013,0.106227716019,0.106033766595,0.106017604143,0.106058010273,0.106001441691,0.105944873109,0.105920629431,0.105589299164,0.105775167362,0.105581217938,0.105080181925,0.105015532116,0.105209481541,0.105435755869,0.10500745089,0.10500745089,0.10464379572,0.104530658555,0.104263978097,0.103956891508,0.1038922417,0.103771023309,0.103843754344,0.103568992659,0.103326555878,0.103706373501,0.103674048597,0.103577073885,0.103754860857,0.104296303001,0.104045784994,0.103997297638,0.104668039398,0.105144831733,0.10555697426,0.106316609505,0.106801483067,0.107043919847,0.107779311415,0.108514702983,0.109096551256,0.109654155851,0.110551171939,0.111221913699,0.111698706034,0.112127011013,0.113064433231,0.114308942038,0.114906952764,0.11582821253,0.116749472296,0.117121208693,0.118187930527,0.118753616349,0.119618307533,0.119941556573,0.120895141244,0.121662857715,0.122487142769,0.1235215397,0.124240768816,0.12459634276,0.125162028582,0.125566089883,0.125897420149,0.125994394862,0.126349968806,0.127150010182,0.126406537389,0.125654983369,0.125420627814,0.124580180308,0.123901357323,0.123359915179,0.122923528974,0.122139650051,0.121371933579,0.120959791052,0.120119343546,0.119747607149,0.119125352746,0.118761697575,0.117937412521,0.116466629385,0.115634263105,0.11436551062,0.11333111369,0.112611884574,0.111682543582,0.111254238603,0.1106319842,0.110179435543,0.109549099913,0.109258175776,0.108320753558,0.107965179613,0.107569199538,0.107132813333,0.106365096862,0.106502477704,0.106187309889,0.105775167362,0.105864060848,0.104975125986,0.105055938247,0.105015532116,0.105064019473,0.105064019473,0.105379187287,0.105322618705,0.105039775794,0.105290293801,0.105670111424,0.105645867746,0.105653948972,0.105330699931,0.105314537479,0.105686273876,0.105807492266,0.106332771957,0.1064701528,0.106971188813,0.107334843984,0.107650011799,0.107755067737,0.108037910648,0.107868204901,0.107900529805,0.107609605668,0.107367168888,0.107601524442,0.107561118312,0.108102560456,0.108167210264,0.108563190339,0.107892448579,0.107916692257,0.108005585743,0.107884367353,0.108344997236,0.1080540731,0.108183372716,0.107553037086,0.107641930573,0.107181300689,0.107076244751,0.106995432491,0.106858051649,0.106534802608,0.106656020998,0.106526721382,0.106502477704,0.106453990348,0.105864060848,0.105694355102,0.105581217938,0.106058010273,0.106171147437,0.106033766595,0.106211553567,0.106122660081,0.105694355102,0.105492324452,0.105354943609,0.105484243226,0.105605461616,0.105015532116,0.104482171199,0.103730617179,0.103383124461,0.10293865703,0.103286149748,0.103043712968,0.102817438639,0.102453783468,0.101855772743,0.10210629075,0.102065884619,0.102009316037,0.101645660867,0.101710310675,0.101766879257,0.101734554353,0.101411305312,0.101201193435,0.101039568915,0.100813294587,0.10068399497,0.10056277658,0.100546614128,0.100813294587,0.10040115206,0.0998758723683,0.0995607045536,0.0992536179649,0.0986798509175,0.098017190384,0.0974191796586,0.0975727229529,0.0972575551382,0.0966514631868,0.0962958892419,0.0964736762144,0.096328214146,0.0964655949883,0.0964979198924,0.0962716455639,0.0960049651053,0.0961181022695,0.0958271781328,0.0956897972905,0.0960453712354,0.095875665489,0.0956089850303,0.0956978785165,0.0957625283247,0.0956413099344,0.0953180608937,0.0950998677911,0.0948655122366,0.0951160302432,0.0947119689422,0.0947038877162,0.094631156682,0.0944048823535,0.0943402325454,0.093774546724,0.093766465498,0.0935563536215,0.0934351352312,0.0931926984507,0.0932250233547,0.0936210034297,0.0939038463403,0.0934108915532,0.0935725160736,0.0934432164573,0.0937341405939,0.0938634402102,0.0938149528541,0.0935321099435,0.0933947291011,0.0934108915532,0.0927724746977,0.0923522509447,0.0920774892601,0.0918269712535,0.091633021829,0.0917461589933,0.0915360471168,0.0912612854321,0.0911239045898,0.0908006555491,0.0910188486516,0.0910673360077,0.0910673360077,0.0905824624465,0.0907360057409,0.090792574323,0.0906067061246,0.0905582187685,0.0903804317961,0.0902430509537,0.0900248578512,0.0898551521048,0.0894268471258,0.0897339337146,0.0898793957829,0.0895399842901,0.089944045591,0.0900975888854,0.0897177712625,0.0900814264334,0.0897662586186,0.0891924915713,0.0891601666672,0.0889419735647,0.089055110729,0.0890955168591,0.0894510908039,0.089507659386,0.0896935275845,0.0897743398446,0.0895723091942,0.0891035980851,0.0894187658998,0.0895399842901,0.0895480655161,0.0893945222218,0.0892167352493,0.0888934862086,0.0885136685857,0.0884328563255,0.0881096072847,0.0879641452164,0.087802520696,0.087810601922,0.0875600839155,0.0876570586277,0.0876651398537,0.0876085712716,0.0879075766343,0.087786358244,0.0872853222308,0.0866792302794,0.0860650571019,0.086073138328,0.086081219554,0.0853054218562,0.0851761222399,0.0853054218562,0.085248853274,0.085232690822,0.0847074111308,0.0844164869941,0.0840770755013,0.0837942325906,0.0838427199467,0.0835679582621,0.0834467398718,0.0834790647759,0.0833578463856,0.0835598770361,0.0836730142003,0.0836891766524,0.0836164456182,0.0836083643922,0.0837538264605,0.0838588823988,0.0840205069191,0.083939694659,0.0838992885289,0.0834952272279,0.0836406892963,0.0832204655433,0.0829618663107,0.0827598356602,0.0823961804893,0.0818789820241,0.0817981697639,0.082258799647,0.0821295000307,0.0820890939006,0.0822264747429,0.0824285053934,0.0825335613317,0.0824123429414,0.0821860686128,0.0824204241674,0.0823800180373,0.0820406065445,0.0822911245511,0.0821860686128,0.0819517130583,0.0816769513736,0.081386027237,0.0812001590385,0.0806667981213,0.0801495996561,0.0797212946771,0.0795031015745,0.0791798525338,0.079276827246,0.0793010709241,0.0791475276297,0.0787434663288,0.0786707352946,0.078428298514,0.0787111414247,0.0786222479385,0.0787273038767,0.0787677100068,0.0785495169043,0.0784606234181,0.0782747552197,0.0780484808911,0.077983831083,0.0778787751447,0.0774343077137,0.077159546029,0.0771676272551,0.0769090280225,0.0768201345363,0.0768282157623,0.0764888042695,0.0764160732353,0.0766908349199,0.0764807230435,0.0764403169134,0.0766342663378,0.0767716471801,0.0768443782143,0.0766261851118,0.0763999107833,0.076302936071,0.076270611167,0.0760604992905,0.0761332303246,0.0756079506334,0.0755433008253,0.075414001209,0.075430163661,0.0754786510171,0.0755998694074,0.075430163661,0.0753735950789,0.0752523766886,0.0749856962299,0.0752685391406,0.0751311582983,0.0752200517845,0.075430163661,0.0750341835861,0.0753816763049,0.0754786510171,0.0755190571472,0.075422082435,0.0752281330105,0.0752362142365,0.0751149958462,0.074993777456,0.0749129651958,0.0749129651958,0.0746382035111,0.0745008226688,0.0741210050459,0.0740967613679,0.0739836242036,0.07415332995,0.0744846602168,0.0745169851208,0.0742745483403,0.0744361728607,0.0743957667306,0.0746301222851,0.0744523353127,0.0744927414428,0.074573553703,0.0741937360801,0.0740644364638,0.0742018173061,0.0739836242036,0.0739997866556,0.0743391981484,0.0744684977647,0.0744038479566,0.074597797381,0.074597797381,0.0746139598331,0.0742503046622,0.0741048425939,0.0740159491077,0.0738624058133,0.0740240303337,0.073716943745,0.0735229943205,0.0732805575399,0.0734179383823,0.0731512579236,0.0729330648211,0.0731270142456,0.0733290448961,0.073288638766,0.0731350954716,0.0730785268895,0.0730785268895,0.0728522525609,0.0730057958553,0.0729815521772,0.0731027705675,0.0727471966227,0.0728280088829,0.0726098157804,0.0726340594584,0.0728280088829,0.0727633590747,0.0725451659722,0.0725694096503,0.0726502219105,0.0724158663559,0.0721653483493,0.0726098157804,0.07244819126,0.0721249422192,0.0721572671233,0.072019886281,0.0721572671233,0.0721330234453,0.0719956426029,0.0716239062061,0.072027967507,0.0719875613769,0.0722219169315,0.0721815108014,0.0719552364728,0.0721168609932,0.0718744242126,0.0716562311101,0.0716966372402,0.0716643123362,0.0715107690418,0.0712360073571,0.0712844947133,0.0713006571653,0.071163276323,0.0709370019944,0.0714137943296,0.0716239062061,0.0714946065898,0.0713410632954,0.0717289621443,0.0714542004597,0.0714622816857,0.0715269314938,0.0717936119525,0.0717936119525,0.0718501805346,0.0716319874321,0.0718016931785,0.0722057544794,0.0723350540957,0.0726502219105,0.0725694096503,0.0722946479656,0.0725290035202,0.0727229529446,0.0726421406844,0.072892658691,0.0727552778487,0.0727229529446,0.0730138770813,0.0729815521772,0.0730542832114,0.0733290448961,0.0731835828277,0.0730704456635,0.0732078265058,0.0731997452798,0.0732805575399,0.0732320701838,0.0734179383823,0.0735957253547,0.0734502632863,0.0732563138619,0.0733613698001,0.0734421820603,0.0729169023691,0.0734825881904,0.0733290448961,0.0735068318685,0.0732159077318,0.0733856134782,0.0733936947042,0.0732239889578,0.0728441713349,0.0727876027528,0.0725290035202,0.072472434938,0.0724239475819,0.0726906280406,0.072472434938,0.0725936533283,0.0724966786161,0.07244819126,0.0726098157804,0.0724158663559,0.0722704042876,0.0724966786161,0.0726663843625,0.0723027291917,0.0724158663559,0.0725532471982,0.0727148717186,0.0728280088829,0.072884577465,0.0728441713349,0.072860333787,0.0728522525609,0.072860333787,0.0728118464308,0.0728280088829,0.0726098157804,0.0727310341707,0.0724805161641,0.0725532471982,0.0718825054387,0.072036048733,0.072036048733,0.0722057544794,0.0723431353217,0.0727552778487,0.0724885973901,0.072860333787,0.0725451659722,0.0727552778487,0.0725370847462,0.0730138770813,0.0727471966227,0.072860333787,0.0726744655885,0.0724077851299,0.0728199276569,0.0727229529446,0.0728199276569,0.0725774908763,0.0727471966227,0.0728360901089,0.0728360901089,0.0725047598421,0.0725047598421,0.0724158663559,0.0723108104177,0.0721491858973,0.0720602924111,0.0720926173152,0.0720602924111,0.0720522111851,0.0722461606095,0.0719794801509,0.0720602924111,0.0722784855136,0.0727633590747,0.0723673789998,0.0721976732534,0.0719067491167,0.0722380793835,0.0722461606095,0.0725290035202,0.0725774908763,0.0727714403008,0.0726663843625,0.0731108517935,0.0719229115688,0.0712036824531,0.0702339353308,0.0693207567907,0.0685934464489,0.067316612738,0.06650040891,0.0652720625552,0.0643103966589,0.0632517560504,0.0622577652501,0.0611263936074,0.0604475706218,0.0594212549174,0.0584272641171,0.0576353039672,0.0567302066531,0.0560190587634,0.0378443814468,0.0376827569264,0.0379898435151,0.0381272243575,0.0382161178437,0.0381595492615,0.0381353055835,0.0381514680355,0.038337336234,0.0381191431314,0.0380706557753,0.0377554879606,0.0377393255086,0.0376827569264,0.0375292136321,0.0373675891117,0.0372544519474,0.0372463707214)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("23-organelles-nucleus-merged/APETALA1-GR_2h_induced_sample_1-GSM506208.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()