# R script for Peak Model
#  -- generated by MACS
p <- c(0.041907369138,0.0440159826547,0.0464848617973,0.0488371844139,0.0509034137393,0.0529908351604,0.0553961380161,0.0576319041066,0.0597723057668,0.0621140323355,0.0644557589043,0.0667233131383,0.0685246412682,0.0707710034065,0.0728160406363,0.0747233292443,0.0766624059958,0.078739231369,0.0790253246603,0.0787922116082,0.0789299602299,0.0782836013127,0.0778809514954,0.0772769767695,0.0771074400044,0.0765140613263,0.07605843127,0.0752531316354,0.0747021371487,0.0744372359531,0.0744160438575,0.0740345861359,0.0736213402708,0.0736425323664,0.0735365718882,0.0732398825492,0.0729008090188,0.0724981592016,0.0717670319018,0.0714173623237,0.0710253085543,0.0711206729847,0.0706120626892,0.0701776247285,0.0702094128719,0.0700928563459,0.069605438146,0.0693299409027,0.0698173591025,0.06948888162,0.0692557685679,0.0693511329983,0.0695842460504,0.0695948420982,0.0697113986243,0.0699127235329,0.069965703772,0.0697537828156,0.069785570959,0.0701034523937,0.0699762998198,0.0699021274851,0.0705590824501,0.0705378903544,0.070919348076,0.0708451757413,0.0707815994543,0.0709511362195,0.0712160374151,0.071756435854,0.0715233228019,0.072053125193,0.0724239868668,0.0726359078233,0.0730279615927,0.0730809418318,0.0734412074578,0.0732186904535,0.0733776311709,0.0736001481751,0.073610744223,0.0732292865013,0.0738862414663,0.0735789560795,0.0733458430274,0.0735047837447,0.0739180296098,0.0739498177533,0.0741405466141,0.0741723347575,0.0739922019446,0.0736001481751,0.0733246509317,0.0736637244621,0.0736743205099,0.0736955126055,0.0733140548839,0.0740981624228,0.0738756454185,0.0744054478096,0.074267699188,0.0744584280488,0.0748504818182,0.0747021371487,0.0744690240966,0.0741511426619,0.0741087584706,0.0734941876969,0.0730809418318,0.0734412074578,0.0733988232665,0.0734518035056,0.0738968375142,0.0741087584706,0.0740557782315,0.0739604138011,0.074023990088,0.0743206794271,0.0741617387097,0.0743948517618,0.0740663742793,0.0738120691316,0.0738650493707,0.0735683600317,0.0730915378797,0.0729114050667,0.0731127299753,0.0733246509317,0.0735789560795,0.0735895521273,0.0734412074578,0.07343061141,0.0739286256576,0.0735365718882,0.0738650493707,0.0739710098489,0.0736637244621,0.0739180296098,0.073367035123,0.0732610746448,0.0738014730838,0.0736743205099,0.074087566375,0.0740133940402,0.0744054478096,0.0743736596662,0.0745749845748,0.0745114082879,0.0743630636184,0.0746915411009,0.0748822699617,0.0750200185833,0.0746279648139,0.0746279648139,0.0745220043357,0.0749564422964,0.075157767205,0.0754120723528,0.0757723379787,0.0761537957004,0.0765564455176,0.0767365783306,0.0767683664741,0.0770438637174,0.0771074400044,0.0768637309045,0.0768531348566,0.0768425388088,0.0765776376133,0.0765034652785,0.0760796233656,0.0756769735483,0.0761537957004,0.0761114115091,0.0762385640829,0.076291544322,0.0764186968959,0.0766094257567,0.0770014795262,0.077669030539,0.077605454252,0.0777643949694,0.0777326068259,0.0776796265868,0.0774677056303,0.0770544597653,0.0768849230001,0.0765246573741,0.0768107506654,0.0764292929437,0.0764504850394,0.0760266431265,0.0762067759395,0.0762597561786,0.0756028012136,0.0755922051658,0.0749246541529,0.074564388527,0.0744584280488,0.0742253149967,0.0747869055313,0.074680945053,0.0750200185833,0.0749140581051,0.0752425355876,0.0752319395398,0.0755604170223,0.0757299537875,0.0755816091179,0.0756557814527,0.0756769735483,0.0758359142657,0.0758465103135,0.07605843127,0.075337900018,0.074680945053,0.0744160438575,0.0744690240966,0.0740769703271,0.0738120691316,0.0736849165577,0.0738226651794,0.0738226651794,0.0743524675705,0.074087566375,0.0745220043357,0.0743312754749,0.0746067727183,0.0747127331965,0.0743630636184,0.0748928660095,0.0747975015791,0.0749670383442,0.0751789593007,0.0751895553485,0.0752319395398,0.0748186936747,0.0749246541529,0.0747233292443,0.0745855806226,0.0743100833792,0.0747975015791,0.0745431964313,0.0747127331965,0.0749352502008,0.0748292897225,0.0753696881615,0.0754120723528,0.0758571063613,0.0758677024091,0.0762279680351,0.0768849230001,0.0777008186824,0.0779445277824,0.0784319459822,0.0787922116082,0.0792584377124,0.0791630732819,0.0791948614254,0.078919364182,0.0791206890907,0.0790041325646,0.0793643981906,0.0796187033383,0.0796610875296,0.0801802938729,0.0797458559122,0.0799683729165,0.0802650622555,0.0807630765031,0.0808160567423,0.0815577800898,0.0816425484724,0.0823206955331,0.0827869216372,0.0832849358849,0.0831895714545,0.0827869216372,0.0830730149285,0.0834650686979,0.0838041422282,0.0842809643802,0.0843869248584,0.0848955351539,0.0848955351539,0.0847154023409,0.0849908995843,0.0851816284451,0.084831958867,0.0840584473759,0.083878314563,0.0840690434238,0.0836875857022,0.0836134133674,0.0835604331283,0.0838677185151,0.0837299698934,0.0842491762368,0.0846412300062,0.0849061312017,0.0851604363495,0.0853405691625,0.0855418940711,0.0860716964622,0.0867816316663,0.0864213660404,0.0869087842402,0.0861564648448,0.0865061344229,0.0870677249575,0.0870041486706,0.0874279905835,0.087936600879,0.0887419005135,0.0890915700916,0.0895260080524,0.0896743527219,0.089367067335,0.0897061408653,0.0897803132001,0.0896107764349,0.0895789882915,0.0895577961958,0.0893776633828,0.0895260080524,0.0901617709217,0.089843889487,0.0898121013436,0.0899498499653,0.0905114404999,0.091041242891,0.0913273361822,0.0918995227646,0.0919736950994,0.0916028334256,0.0914332966604,0.0915816413299,0.091518065043,0.0912955480387,0.0913909124691,0.0909352824128,0.0914438927082,0.0913167401344,0.091518065043,0.0911789915127,0.089907465774,0.0901299827782,0.0902253472086,0.0901299827782,0.0899816381087,0.0897485250566,0.0891763384742,0.0891657424264,0.0890597819482,0.0883710388397,0.0880213692616,0.088053157405,0.0883180586006,0.0882968665049,0.0881061376441,0.0882544823137,0.0882756744093,0.0888478609917,0.0891445503308,0.0889962056612,0.0884028269832,0.088053157405,0.0876505075878,0.0875445471096,0.0876187194443,0.0873750103444,0.0874809708226,0.0874703747748,0.0873750103444,0.0877352759704,0.0871524933401,0.0876187194443,0.0876293154921,0.0879577929746,0.0878518324964,0.0879683890225,0.0890279938047,0.0896425645784,0.0892399147612,0.0899286578696,0.0900346183478,0.0898756776305,0.0900240223,0.0893776633828,0.0898756776305,0.0900028302044,0.0900664064913,0.089907465774,0.0898650815827,0.090087598587,0.0905326325955,0.0907127654085,0.0912955480387,0.0915922373777,0.0916664097125,0.0924823053948,0.0932876050294,0.0938597916118,0.0943154216681,0.0945591307681,0.0942942295725,0.0945591307681,0.0944319781942,0.0945167465768,0.0949405884897,0.0955127750721,0.0961379418936,0.0959684051284,0.0960425774632,0.0961379418936,0.0967525126673,0.0972399308671,0.0971763545802,0.0964346312326,0.0967207245238,0.0961379418936,0.0959790011763,0.0966041679978,0.0967948968586,0.0973141032019,0.0976531767322,0.0982677475059,0.098564436845,0.0986280131319,0.0987869538492,0.0988823182796,0.0989670866622,0.0989882787579,0.0983313237929,0.0982571514581,0.0984690724146,0.0984584763667,0.0983631119363,0.098320727745,0.0984372842711,0.0989035103753,0.0991260273796,0.099157815523,0.0997088100098,0.0995604653403,0.0995922534837,0.0989882787579,0.0989458945666,0.0988929143275,0.0988505301362,0.0983737079842,0.0979922502625,0.0980664225973,0.0978862897843,0.0980982107408,0.0980982107408,0.09790748188,0.0978650976887,0.097430659728,0.0971445664367,0.0972823150584,0.0967948968586,0.0965405917109,0.0966253600934,0.0966041679978,0.0963604588979,0.0964664193761,0.0960107893197,0.0955127750721,0.0954915829764,0.0952690659722,0.0948240319636,0.0944213821464,0.0943578058594,0.0942730374768,0.0939233678987,0.0933617773641,0.093488929938,0.0939339639465,0.0937114469423,0.0937538311335,0.0936478706553,0.0939127718509,0.0933723734119,0.0935313141293,0.0935525062249,0.0935313141293,0.0941670769986,0.0941988651421,0.0943684019072,0.0944213821464,0.0942094611899,0.0947180714854,0.0944001900507,0.0945697268159,0.0948346280114,0.0944107860985,0.0946015149593,0.0949299924418,0.0950571450157,0.0954280066895,0.0961803260849,0.0958942327937,0.0963710549457,0.0967631087151,0.0971657585324,0.0975366202062,0.0978015214017,0.0977061569713,0.0979604621191,0.0977485411626,0.0982147672668,0.0984796684624,0.0985962249884,0.0981194028364,0.0981299988842,0.0984902645102,0.0987233775623,0.0987975498971,0.099454504862,0.0993909285751,0.0999419230619,0.10053530174,0.100461129405,0.100058479588,0.0996770218663,0.100111459827,0.100959143653,0.101351197422,0.102463782444,0.102781663878,0.103343254413,0.104371071052,0.104975045778,0.105049218112,0.105345907451,0.10530352326,0.105049218112,0.105483656073,0.105515444217,0.105822729603,0.106585645047,0.106691605525,0.106786969955,0.107210811868,0.107401540729,0.107899554977,0.108291608746,0.108567105989,0.10890617952,0.109849227776,0.110114128971,0.110177705258,0.110813468128,0.111035985132,0.111279694232,0.112243934584,0.112318106919,0.112688968592,0.113441287988,0.114204203431,0.114977714922,0.115401556835,0.115592285696,0.116312816948,0.116249240661,0.116535333952,0.116620102335,0.116312816948,0.116651890478,0.117086328439,0.117075732391,0.117573746639,0.117870435978,0.117934012265,0.118135337173,0.118855868425,0.118516794895,0.118898252616,0.119364478721,0.120137990212,0.119671764107,0.12009560602,0.119745936442,0.119555207581,0.119163153812,0.118283681843,0.117690303165,0.117266461252,0.116249240661,0.115888975035,0.114967118874,0.113716785231,0.11260420021,0.111650555906,0.110474394597,0.109891611967,0.10924525305,0.108630682276,0.107486309112,0.106437300377,0.10579094146,0.105494252121,0.104604184104,0.103639943752,0.102103516818,0.101372389518,0.100694242457,0.100122055875,0.0994121206708,0.0986492052275,0.0978756937365,0.0963816509935,0.0959048288415,0.0952054896852,0.0945803228637,0.0934783338902,0.0934783338902,0.0925776698252,0.0922068081515,0.0915816413299,0.091221375704,0.0908505140302,0.0907445535519,0.0907763416954,0.0908293219345,0.0908928982215,0.0914862768995,0.091634621569,0.0918359464777,0.0920796555776,0.0915922373777,0.0916876018082,0.0918677346211,0.0915710452821,0.0915922373777,0.0918253504298,0.0920054832428,0.0915286610908,0.0917935622864,0.0921538279123,0.0922174041993,0.0920054832428,0.0924081330601,0.0920160792906,0.0918571385733,0.0922809804862,0.0924505172514,0.0927154184469,0.0926942263513,0.0927472065904,0.0926624382078,0.0924399212035,0.0925034974905,0.0921220397689,0.0919736950994,0.0921538279123,0.0920160792906,0.0922491923427,0.0918889267168,0.0913803164213,0.0913273361822,0.0913273361822,0.0908187258867,0.0907339575041,0.0906385930737,0.0905538246911,0.0909352824128,0.0903948839738,0.0897909092479,0.089843889487,0.0897697171523,0.0891551463786,0.0886783242266,0.0886783242266,0.0884240190788,0.0884240190788,0.0888584570395,0.0889750135656,0.0888690530874,0.0886359400353,0.0885511716527,0.0881591178833,0.0878306404008,0.0878412364486,0.0872054735792,0.0868981881924,0.0868134198098,0.0868558040011,0.0864743462795,0.0868769960967,0.0867710356185,0.08608229251,0.0857961992188,0.0855524901189,0.0857538150275,0.0860611004144,0.0858809676014,0.0853193770668,0.0857432189797,0.0855630861667,0.0855948743102,0.085128648206,0.0850438798234,0.0845776537192,0.0848001707235,0.0841432157585,0.0839630829455,0.083878314563,0.0835074528892,0.0833061279805,0.0829882465459,0.0830306307372,0.0825432125373,0.0819286417636,0.081727316855,0.0818968536202,0.0822677152939,0.0823100994852,0.0825538085852,0.0825114243939,0.082500828346,0.0823736757722,0.0821193706244,0.0819816220027,0.082204139007,0.0819286417636,0.0816425484724,0.0820346022418,0.0820981785288,0.0820451982897,0.082204139007,0.0820557943375,0.0816001642811,0.0816637405681,0.0811657263204,0.0813352630856,0.081430627516,0.0816743366159,0.0819922180506,0.0825855967286,0.0824160599635,0.0827233453503,0.0827551334938,0.0828187097807,0.0834650686979,0.0831895714545,0.0829246702589,0.0825961927764,0.0822677152939,0.0822465231983,0.0820451982897,0.0818544694289,0.0814200314681,0.0810809579378,0.0810809579378,0.0812398986552,0.0813246670377,0.0812293026073,0.081250494703,0.0809114211727,0.0803816187815,0.0804028108772,0.0813034749421,0.0813564551812,0.0815895682333,0.0819498338593,0.0818332773332,0.0819922180506,0.0824160599635,0.0822889073896,0.0822465231983,0.0820451982897,0.0818968536202,0.0816213563768,0.0807948646466,0.0800319492034,0.0798094321991,0.0791418811863,0.078982940469,0.078506118317,0.0781034684997,0.0778809514954,0.0777008186824,0.0774041293434,0.0775842621564,0.0779445277824,0.0778173752085,0.0774994937738,0.0770862479087,0.0768425388088,0.0765140613263,0.0759842589352,0.0762279680351,0.0763657166568,0.0763657166568,0.0769696913827,0.076948499287,0.0768425388088,0.0758041261222,0.076174987796,0.0754862446875,0.0751047869659,0.0746703490052,0.0741935268532,0.0741723347575,0.0742571031401,0.0744054478096,0.0740769703271,0.0745431964313,0.0742782952358,0.07474452134,0.0751047869659,0.0753696881615,0.0757193577396,0.0759524707917,0.0758994905526,0.0759100866004,0.0757405498353,0.0760160470787,0.0761855838438,0.0764610810872,0.0763233324655,0.0767047901871,0.0772875728174,0.0775630700608,0.078145852691,0.0783789657431,0.078506118317,0.0779763159258,0.077488897726,0.0772769767695,0.0766941941393,0.0767047901871,0.076948499287,0.0770438637174,0.0766200218045,0.0769273071914,0.0766941941393,0.0770862479087,0.0773617451521,0.0773617451521,0.0771710162913,0.0768955190479,0.0767259822828,0.0764398889916,0.0768531348566,0.0764822731829,0.0766306178524,0.0764398889916,0.076651809948,0.0765670415654,0.0767683664741,0.0770544597653,0.0775630700608,0.0779445277824,0.0784743301735,0.0785379064604,0.0787286353212,0.0783047934083,0.078145852691,0.0784849262213,0.0782730052649,0.0781140645475,0.0779763159258,0.0777220107781,0.0778385673041,0.0779551238302,0.0783895617909,0.0781246605953,0.0778915475432,0.0779869119737,0.0777643949694,0.0778279712563,0.0780187001171,0.0778385673041,0.0775524740129,0.0771498241957,0.0774783016782,0.0773405530565,0.0778279712563,0.0772557846739,0.0765034652785,0.0769061150958,0.0766306178524,0.0762385640829,0.0758465103135,0.0757087616918,0.0754650525919,0.0750835948703,0.0751153830138,0.0744796201444,0.0745961766704,0.0742782952358,0.0744054478096,0.074087566375,0.0739286256576,0.0735047837447,0.0733776311709,0.0732398825492,0.0731339220709,0.0732610746448,0.0733776311709,0.0727524643493,0.0726994841102,0.072593523632,0.0724027947712,0.072233258006,0.0722014698626,0.0721061054322,0.0720955093843,0.0722544501017,0.0726888880624,0.0729643853058,0.0726994841102,0.0729008090188,0.0727524643493,0.0732080944057,0.0737061086534,0.0731657102144,0.0732716706926,0.0731974983579,0.0734412074578,0.0735047837447,0.074023990088,0.0740027979924,0.0740663742793,0.074564388527,0.0741723347575,0.0741935268532,0.0737802809881,0.0741299505663,0.0739816058967,0.0741617387097,0.0740557782315,0.0741087584706,0.0744796201444,0.0746067727183,0.0745220043357,0.0750306146312,0.0747551173878,0.0751789593007,0.0751259790616,0.0751365751094,0.0750200185833,0.0749034620573,0.0749034620573,0.0745855806226,0.0742888912836,0.0743206794271,0.0742465070923,0.074023990088,0.0739392217055,0.0735789560795,0.0734729956013,0.0733458430274,0.0731657102144,0.0739922019446,0.0743206794271,0.0743100833792,0.0738544533229,0.0740345861359,0.0736955126055,0.0736425323664,0.0735259758404,0.0737802809881,0.073727300749,0.0733458430274,0.0738438572751,0.0736637244621,0.0732716706926,0.0738332612272,0.0734623995534,0.0737484928446,0.0741193545184,0.074204122901,0.0746067727183,0.0749776343921,0.0754544565441,0.0760478352221,0.0766094257567,0.0770544597653,0.0770862479087,0.0770756518609,0.0767577704262,0.0768001546175,0.0769061150958,0.0768425388088,0.0768637309045,0.0766306178524,0.0771710162913,0.0778703554476,0.0779233356867,0.0778597593998,0.0775418779651,0.0772557846739,0.0773193609608,0.0774041293434,0.0778067791607,0.0779233356867,0.0777749910172,0.0776160502999,0.0774147253912,0.0773935332956,0.0769802874305,0.0774147253912,0.0779763159258,0.0776796265868,0.0781140645475,0.078262409217,0.078145852691,0.0781352566432,0.0782518131692,0.0779021435911,0.0779339317345,0.0778279712563,0.0781882368823,0.0779975080215,0.0778173752085,0.0781564487388,0.0783047934083,0.0781988329301,0.0784319459822,0.0787074432256,0.0788239997516,0.079396186334,0.0792266495689,0.079099496995,0.079459762621,0.0794703586688,0.0792372456167,0.0795127428601,0.0792902258558,0.0794491665732,0.0790677088515,0.0790571128037,0.0791100930428,0.0795127428601,0.0798518163904,0.0802438701598,0.0803816187815,0.0799789689643,0.0800001610599,0.0798836045339,0.0797988361513,0.0793855902862,0.079639895434,0.0799683729165,0.0795339349557,0.0799259887252,0.0799683729165,0.0800425452512,0.0794703586688,0.0793643981906,0.0799153926773,0.0798200282469,0.0802120820164,0.0805405594989,0.0804769832119,0.0808796330292,0.081186918416,0.080890229077,0.080413406925,0.0800849294425,0.0794703586688,0.0793114179515,0.0796292993861,0.0796716835774,0.0803180424946,0.0800213531556,0.0800319492034,0.0802014859686,0.0802650622555,0.0800743333947,0.0802226780642,0.0803286385424,0.0797140677687,0.0803816187815,0.0802120820164,0.0800637373469,0.0799153926773,0.079936584773,0.079396186334,0.0792160535211,0.0792690337602,0.0791524772341,0.0790147286124,0.0785167143648,0.0784001578387,0.0785696946039,0.0782941973605,0.0781776408345,0.077785587065,0.0774041293434,0.0770756518609,0.076471677135,0.0761855838438,0.0763657166568,0.0767895585697,0.0771392281479,0.0777749910172,0.0775312819173,0.0774359174869,0.0772028044348,0.0770014795262,0.0771074400044,0.0773405530565,0.0769379032392,0.0769273071914,0.077012075574,0.0772239965304,0.0772134004826,0.0781034684997,0.0778597593998,0.0783471775996,0.078802807656,0.0791418811863,0.0791100930428,0.0795869151948,0.0796187033383,0.0797988361513,0.0797882401035,0.0799471808208,0.0801273136338,0.0804875792598,0.0805405594989,0.0811763223682,0.082087582481,0.082500828346,0.0828928821155,0.0831789754067,0.0834120884588,0.0835816252239,0.0834650686979,0.0832743398371,0.0831048030719,0.0831365912154,0.0833273200762,0.0835816252239,0.083878314563,0.0840690434238,0.0843445406672,0.0846306339584,0.0846730181497,0.0847471904844,0.0845034813845,0.0842703683324,0.0838465264195,0.0839630829455,0.0835604331283,0.0833591082197,0.0833803003153,0.0832531477414,0.08369818175,0.0837829501326,0.084291560428,0.0846942102453,0.0844928853367,0.0843763288106,0.084535269528,0.0844187130019,0.0849803035365,0.0847895746757,0.083994871089,0.0838041422282,0.0837299698934,0.0839630829455,0.0839842750412,0.0836452015109,0.0835922212718,0.083814738276,0.0841961959976,0.0842067920455,0.0840160631847,0.0837723540847,0.0838571224673,0.0835604331283,0.0831789754067,0.0832955319327,0.0836028173196,0.0835922212718,0.0836769896543,0.0834544726501,0.0815259919464,0.0789723444211,0.0769379032392,0.0745855806226,0.0721272975278,0.069849147246,0.0674226522946,0.0649855612954,0.0622517809572,0.0595921729538,0.0574411752458,0.0551206407727,0.0528530865387,0.0505855323046,0.0477775796317,0.0451709518673,0.0429987620637,0.0408265722601)
m <- c(0.0413758089789,0.0431596129884,0.0459039268493,0.0479727172982,0.0501365032269,0.0525430553818,0.0550234929099,0.0574511551714,0.0597310466866,0.0618737225087,0.0645124858364,0.0666446066052,0.0687661723207,0.0708560728763,0.0725026611928,0.0753103053735,0.0776851923685,0.0796906524976,0.0797856479774,0.0797012075509,0.0798806434572,0.0800178591502,0.0807356027753,0.0805456118157,0.0805983870823,0.0802922905363,0.0805350567624,0.0809361487883,0.0810100341614,0.0809150386816,0.0804611713893,0.0808833735217,0.0808517083618,0.0807144926687,0.0808517083618,0.0804928365492,0.0800495243101,0.0802184051631,0.0797750929241,0.0797117626042,0.0797012075509,0.0793845559515,0.0792578953118,0.0790679043522,0.0790045740324,0.0792578953118,0.0788462482327,0.0792684503651,0.0796906524976,0.0796695423909,0.0804083961227,0.0800073040969,0.0798489782972,0.0799123086171,0.0798595333505,0.0803134006429,0.0804295062293,0.080587832029,0.0805772769757,0.0806617174022,0.0806511623489,0.0810522543747,0.0804928365492,0.0801761849499,0.0802289602164,0.079975638937,0.080281735483,0.0801761849499,0.0805350567624,0.0807883780419,0.0804083961227,0.0807144926687,0.0805139466558,0.0802606253764,0.0799650838836,0.0799017535638,0.0795745469111,0.0804400612826,0.0802289602164,0.0800495243101,0.0797012075509,0.0796800974443,0.079500661538,0.0792790054184,0.0789412437125,0.0788145830728,0.0786140370598,0.0783290506205,0.0782868304072,0.0785823718999,0.0786562572731,0.0781285046075,0.0773474306625,0.0770096689566,0.0767035724106,0.0765663567175,0.0764080309179,0.0761230444785,0.0761335995318,0.0759752737321,0.076175819745,0.0765769117708,0.0764924713443,0.0762180399583,0.0761019343718,0.0758169479324,0.0761547096384,0.0761335995318,0.0765558016642,0.0772524351827,0.0776113069953,0.0784029359936,0.0790784594055,0.0780546192344,0.0776429721552,0.0777063024751,0.0775901968887,0.0771996599162,0.0774002059291,0.0776957474218,0.0776429721552,0.077906848488,0.0778646282748,0.0778857383814,0.0779701788079,0.0778329631148,0.0777907429016,0.0780440641811,0.0784029359936,0.0788462482327,0.078856803286,0.0793634458449,0.0795956570178,0.0795639918578,0.0794478862714,0.0798489782972,0.0794901064847,0.0794056660582,0.0797645378707,0.0799017535638,0.0796273221777,0.0801234096833,0.0800600793634,0.0799334187237,0.0793951110049,0.0794267761648,0.079637877231,0.0791523447787,0.0784873764201,0.0783501607271,0.0789412437125,0.0788884684459,0.0790784594055,0.0791523447787,0.0788779133926,0.0783501607271,0.0784557112602,0.078719587593,0.0786562572731,0.0789095785526,0.0788462482327,0.0786351471665,0.0786351471665,0.078244610194,0.0778329631148,0.0773157655026,0.0770307790632,0.0764080309179,0.0767246825172,0.0769463386367,0.0771152194897,0.0766402420907,0.0768513431569,0.0771891048629,0.0764185859712,0.0762813702781,0.0766085769308,0.0764502511311,0.0764608061844,0.0765452466109,0.07698855885,0.0766613521973,0.0756269569729,0.0757747277192,0.076175819745,0.0763235904914,0.0758802782523,0.0756691771861,0.0754369660133,0.0752891952669,0.075563626653,0.0754158559066,0.075563626653,0.075257530107,0.0754053008533,0.0746875572282,0.0746875572282,0.0749936537742,0.074919768401,0.0748986582944,0.0749092133477,0.075088649254,0.0754475210666,0.0759330535189,0.0756058468662,0.0752786402136,0.0749936537742,0.0750992043073,0.0748775481878,0.0744236808954,0.0744553460553,0.0745714516418,0.0742336899358,0.0738114878034,0.0735159463107,0.0732098497646,0.0728298678455,0.0727665375256,0.0734842811507,0.0730093037517,0.072713762259,0.0726082117259,0.0725448814061,0.0728087577388,0.0729670835385,0.0731359643915,0.0730093037517,0.0729565284852,0.0724498859263,0.0718376928342,0.0715632614481,0.0721332343269,0.0720593489538,0.0719115782074,0.0715738165015,0.0715315962882,0.0721965646468,0.072101569167,0.071964353474,0.0718799130475,0.071932688314,0.0717426973544,0.0722810050733,0.0723232252865,0.0723443353932,0.0729459734319,0.0738431529633,0.0737798226434,0.0737903776968,0.0739275933898,0.0744025707888,0.0751519795739,0.0755108513864,0.075732507506,0.0756375120262,0.0758380580391,0.0759013883589,0.0762813702781,0.0767985678904,0.0763974758646,0.0763763657579,0.0767141274639,0.0768830083169,0.0773368756092,0.0774740913023,0.0779596237546,0.0781179495542,0.0782235000873,0.0780546192344,0.0781179495542,0.0787829179128,0.0786773673797,0.0782340551407,0.0784134910469,0.0783396056738,0.0783607157804,0.078075729341,0.0782868304072,0.0778118530082,0.077737967635,0.0776218620486,0.0773896508758,0.076513581451,0.0763869208112,0.0767774577837,0.0770941093831,0.0768407881036,0.0767669027304,0.0766719072506,0.0767352375705,0.0764924713443,0.0765452466109,0.0769357835834,0.0766402420907,0.0763974758646,0.076513581451,0.0767880128371,0.0764185859712,0.0764502511311,0.076175819745,0.0762813702781,0.0763130354381,0.0760808242652,0.076513581451,0.0769146734768,0.0769146734768,0.0763869208112,0.0759647186788,0.0764396960778,0.0765452466109,0.0765874668241,0.0764608061844,0.0766824623039,0.0770835543298,0.0772207700228,0.0776957474218,0.0784240461003,0.0784451562069,0.0792156750986,0.0797962030307,0.0795851019645,0.0794267761648,0.0792895604717,0.0786668123264,0.0787618078062,0.0784979314734,0.0789306886592,0.0790362391923,0.0785718168466,0.0788779133926,0.0785084865267,0.0785718168466,0.0780229540744,0.0780440641811,0.0778962934347,0.0778224080615,0.0781179495542,0.07851904158,0.0789729088724,0.078212945034,0.0780440641811,0.0777274125817,0.0775585317288,0.0784662663135,0.0781390596609,0.0778118530082,0.0780546192344,0.0779385136479,0.0780335091277,0.0781707248208,0.0783184955671,0.0781390596609,0.0780018439678,0.0780651742877,0.0774740913023,0.0769146734768,0.0770941093831,0.0772207700228,0.0771363295963,0.0770624442231,0.0765452466109,0.0765452466109,0.0764291410245,0.076344700598,0.0762497051182,0.0762285950116,0.0765980218775,0.0767246825172,0.0768091229437,0.076207484905,0.0759541636255,0.0761124894252,0.075869723199,0.0751836447338,0.0751519795739,0.0753736356934,0.0751308694672,0.0758169479324,0.0763658107046,0.0765452466109,0.0765874668241,0.0768724532635,0.0764396960778,0.0764924713443,0.0763235904914,0.0756480670795,0.0755002963331,0.0750358739874,0.0745820066951,0.0739275933898,0.0740225888696,0.0740120338163,0.07383259791,0.0738009327501,0.0740331439229,0.0743181303623,0.0750569840941,0.0748881032411,0.0748142178679,0.075225864947,0.0755319614931,0.0752891952669,0.0753525255868,0.0755741817063,0.0760808242652,0.0769357835834,0.077125774543,0.0771679947562,0.0771785498096,0.0775585317288,0.0774213160357,0.0770941093831,0.0777590777417,0.0776218620486,0.077737967635,0.0773896508758,0.0773474306625,0.0775163115155,0.0780229540744,0.0783501607271,0.0785823718999,0.0788990234992,0.079331780685,0.0797645378707,0.080587832029,0.0817383328399,0.0821816450789,0.0830049392372,0.0828360583842,0.0830471594504,0.0830049392372,0.0833743661031,0.0830049392372,0.0833321458898,0.0835326919027,0.0832054852501,0.0835326919027,0.0839760041418,0.0838704536087,0.0837754581289,0.0840076693017,0.0839443389819,0.0844404264875,0.0849365139931,0.0850631746328,0.084999844313,0.0855275969785,0.0861397900705,0.0859286890043,0.0859814642709,0.0859814642709,0.0863825562967,0.0863297810301,0.086561992203,0.0868786438023,0.0868575336957,0.0869947493887,0.087005304442,0.0868575336957,0.087174185295,0.0862875608169,0.0858864687911,0.085749253098,0.0856437025649,0.0856859227782,0.0858759137378,0.0864353315633,0.0864247765099,0.0868258685358,0.0871108549752,0.0875013919477,0.0876913829073,0.0875858323741,0.0877863783871,0.0881874704129,0.0886835579185,0.0887257781317,0.0889896544645,0.089074094891,0.0890952049976,0.0892640858506,0.0897073980896,0.0893063060638,0.0894013015436,0.0891057600509,0.0890529847844,0.0892746409039,0.0893168611171,0.0897073980896,0.089717953143,0.0896968430363,0.0897073980896,0.0895596273433,0.0896335127165,0.0899712744224,0.0894329667036,0.0895912925032,0.0892218656373,0.0891479802642,0.088905214038,0.0891796454241,0.0888418837181,0.0885463422254,0.0888841039314,0.0888207736115,0.0884407916923,0.0881663603062,0.088124140093,0.0881452501996,0.0881030299864,0.0884407916923,0.0882296906261,0.0883035759993,0.0886307826519,0.0885780073854,0.0882824658927,0.0885041220122,0.0884407916923,0.0892746409039,0.0895279621834,0.0899818294757,0.0901190451688,0.0904040316082,0.0905306922479,0.0910584449134,0.0906467978343,0.090636242781,0.0910162247002,0.0914278717793,0.0921033951912,0.0919134042316,0.0923039412041,0.0925467074303,0.0930639050425,0.0934227768551,0.0937077632945,0.0940349699471,0.0945521675594,0.0946154978792,0.0941510755335,0.0944255069196,0.0949215944252,0.0947949337855,0.095016589905,0.0953649066643,0.0947949337855,0.0942882912266,0.0940877452137,0.0937077632945,0.0931377904157,0.093011129776,0.0929161342962,0.0923356063641,0.0925255973237,0.0915967526323,0.0913539864061,0.0914489818859,0.0913645414595,0.0911956606065,0.0910373348068,0.0907945685807,0.0907629034207,0.0908367887939,0.090773458474,0.090805123634,0.0908367887939,0.09111122018,0.0912273257664,0.0917445233787,0.0919767345515,0.0922195007776,0.0920189547647,0.0922828310975,0.092198390671,0.0921245052978,0.0929161342962,0.0926628130167,0.0930955702025,0.093623322868,0.0943410664931,0.0947949337855,0.0955760077305,0.0958082189034,0.096916499501,0.0976131330195,0.0986053080308,0.0999141346413,0.1007374288,0.10226791153,0.102489567649,0.103713953833,0.104442252512,0.10501222539,0.10532887699,0.106289386841,0.107249896692,0.108030970637,0.109424237674,0.110036430767,0.110595848592,0.110754174392,0.111197486631,0.111894120149,0.112295212175,0.112590753668,0.1131712816,0.113699034265,0.11482842497,0.115007860876,0.115503948382,0.116654449192,0.116738889619,0.117657179257,0.117899945483,0.118301037509,0.117868280323,0.117942165696,0.118301037509,0.119145441774,0.118733794695,0.118702129535,0.118237707189,0.117118871538,0.117287752391,0.116464458233,0.116665004246,0.11645390318,0.116221692007,0.115989480834,0.116306132433,0.115767824714,0.115335067529,0.115313957422,0.115197851836,0.115229516995,0.115324512475,0.115472283222,0.115461728168,0.115060636143,0.11489175529,0.114522328424,0.114121236398,0.113572373626,0.112791299681,0.112611863774,0.112179106589,0.111503583177,0.110912500191,0.110585293539,0.110416412686,0.11011031614,0.110426967739,0.109867549914,0.109941435287,0.109519233154,0.109023145649,0.108928150169,0.108854264796,0.108938705222,0.10835817729,0.10848483793,0.10842150761,0.107862089784,0.107619323558,0.107703763985,0.107978195371,0.107988750424,0.107650988718,0.107292116906,0.106648258654,0.106036065562,0.105634973536,0.105476647736,0.10513888603,0.104853899591,0.104790569271,0.104790569271,0.104716683898,0.104885564751,0.104843344538,0.104516137885,0.104167821126,0.104473917672,0.104938340017,0.104853899591,0.104452807565,0.104252261552,0.104294481765,0.103977830166,0.103260086541,0.103291751701,0.103566183087,0.103355082021,0.103724508887,0.103724508887,0.103903944793,0.103925054899,0.10357673814,0.103260086541,0.103017320315,0.102574008076,0.102341796903,0.101792934131,0.10191959477,0.101497392638,0.101296846625,0.101233516305,0.101096300612,0.100779649013,0.100093570548,0.100104125601,0.0998085841082,0.0997135886284,0.0994497122956,0.0985947529774,0.0984047620179,0.0984997574977,0.0986369731907,0.0987530787771,0.0980458902053,0.0975498026997,0.0976236880728,0.0976659082861,0.0970431601407,0.0973492566868,0.0975709128063,0.0975709128063,0.0972648162603,0.0975814678596,0.0970748253007,0.0967265085414,0.0960509851295,0.0958082189034,0.0955865627838,0.0956182279438,0.0954493470908,0.0956076728905,0.0952910212911,0.0950377000117,0.0947527135723,0.0952593561312,0.0950904752782,0.0948688191587,0.0944677271329,0.0946682731458,0.0948371539988,0.0944888372395,0.0944360619729,0.0942249609067,0.0942144058534,0.0948160438921,0.0948160438921,0.0945838327193,0.0944571720796,0.0938660890941,0.0942249609067,0.0944782821862,0.094404396813,0.0942038508001,0.0940771901604,0.0941932957468,0.093792203721,0.0934438869617,0.0936972082412,0.093317226322,0.0933700015885,0.093486107175,0.0935705476014,0.0931905656822,0.0935494374948,0.0937077632945,0.0938449789875,0.0935916577081,0.0933805566418,0.0932750061087,0.0933488914819,0.0929372444028,0.0928844691362,0.0929583545094,0.092536152377,0.0925783725902,0.0927366983899,0.092504487217,0.0921772805644,0.092198390671,0.0921772805644,0.0918395188584,0.0914067616727,0.0913962066194,0.0913223212462,0.09111122018,0.0904040316082,0.0903723664482,0.0902457058085,0.0903829215015,0.0900662699022,0.0900451597956,0.0900873800088,0.0900662699022,0.0895701823966,0.0896440677698,0.0894540768102,0.0893063060638,0.0893590813304,0.0900557148489,0.0899818294757,0.089992384529,0.090161265382,0.0900346047423,0.0896651778764,0.0899290542092,0.0895912925032,0.0894435217569,0.0893485262771,0.0889685443579,0.0893379712238,0.0889579893046,0.0887996635049,0.0890529847844,0.0896124026098,0.0894540768102,0.0893696363837,0.0894013015436,0.0894962970234,0.0897707284095,0.0895385172367,0.0893485262771,0.0898657238893,0.0896335127165,0.0896757329297,0.0892640858506,0.089380191437,0.0891585353175,0.0893168611171,0.0891585353175,0.089242975744,0.0893168611171,0.0893168611171,0.0894751869168,0.0896651778764,0.0886730028652,0.0880819198798,0.0878391536536,0.0873536212013,0.0873747313079,0.0876386076407,0.0874591717344,0.0877969334404,0.0872691807748,0.0871847403483,0.0872902908814,0.0875436121609,0.0875013919477,0.0875013919477,0.0871847403483,0.0865408820964,0.0869630842288,0.0864458866166,0.0865197719897,0.0868997539089,0.0866253225228,0.086868088749,0.0868891988556,0.0865197719897,0.0862453406037,0.0857386980447,0.0858020283646,0.0859392440576,0.0853798262322,0.0850737296861,0.0850209544196,0.0851792802192,0.0848098533534,0.084524866914,0.0841448849948,0.0838071232888,0.0840815546749,0.0839021187686,0.0834271413696,0.083406031263,0.0827727280644,0.0822238652922,0.082012764226,0.0818122182131,0.082318860772,0.0823294158253,0.0824138562518,0.0817277777866,0.0815694519869,0.081231690281,0.0812105801743,0.0814955666137,0.0814111261872,0.0821605349723,0.0814005711339,0.0807672679353,0.0802078501098,0.0796589873376,0.0796906524976,0.0797645378707,0.0797645378707,0.0796484322843,0.0793845559515,0.0788145830728,0.0787406976996,0.0785084865267,0.0784134910469,0.0781812798741,0.0778012979549,0.0779385136479,0.0779279585946,0.0776429721552,0.0776535272086,0.0778435181681,0.0783184955671,0.0781812798741,0.0789517987658,0.0790573492989,0.079025684139,0.0786351471665,0.0777274125817,0.0776746373152,0.0779385136479,0.0779490687013,0.0780651742877,0.0779279585946,0.0783290506205,0.0781285046075,0.0776957474218,0.0768830083169,0.077125774543,0.0772102149695,0.0770413341165,0.0770624442231,0.0766613521973,0.0768302330503,0.076481916291,0.0765346915576,0.0760913793185,0.0760702692119,0.0764713612377,0.0765346915576,0.0759963838387,0.0759013883589,0.0760913793185,0.0757430625593,0.0756269569729,0.075563626653,0.0751308694672,0.0750147638808,0.0747931077613,0.074476456162,0.0738748181232,0.0737798226434,0.0735898316838,0.0737164923236,0.0740436989762,0.0736003867372,0.0729037532186,0.0728193127921,0.0727348723657,0.0727876476322,0.0723971106597,0.0720804590604,0.0718904681008,0.0716054816614,0.0712677199554,0.0712149446889,0.0712993851154,0.0713838255419,0.0714366008084,0.0711199492091,0.0712782750087,0.0708560728763,0.0712149446889,0.0715104861816,0.0711410593157,0.0709510683561,0.0718271377809,0.071932688314,0.0720487939004,0.0723760005531,0.0726082117259,0.0726926521524,0.0728615330054,0.0725659915127,0.0723654454998,0.0729037532186,0.0726398768859,0.0727982026855,0.0729459734319,0.0726609869925,0.073051523965,0.0731781846047,0.073051523965,0.0733681755643,0.0731042992315,0.0731570744981,0.0728931981653,0.0727243173123,0.0730198588051,0.0734315058842,0.073663717057,0.0733681755643,0.0735792766305,0.0734842811507,0.0734103957776,0.073220404818,0.0733365104044,0.0738959282299,0.073663717057,0.0739487034964,0.074444791002,0.0751414245205,0.0747931077613,0.0748564380812,0.0750569840941,0.0754475210666,0.0759330535189,0.0757958378258,0.0757219524527,0.0759963838387,0.0760702692119,0.0757747277192,0.076006938892,0.0758063928791,0.0760913793185,0.0763130354381,0.0760174939454,0.0759858287854,0.076038604052,0.0756480670795,0.0755530715997,0.0759224984656,0.076006938892,0.0762602601715,0.0760491591053,0.0761441545851,0.0765030263977,0.0767985678904,0.07698855885,0.0771468846496,0.0772313250761,0.0770835543298,0.0770307790632,0.0768830083169,0.0772207700228,0.0765874668241,0.0762391500649,0.076481916291,0.076038604052,0.0759330535189,0.0754264109599,0.0751097593606,0.0742020247759,0.0744870112153,0.0745186763752,0.0743497955222,0.0745292314285,0.0742970202557,0.074476456162,0.0745397864818,0.0742336899358,0.0740753641361,0.0737798226434,0.0742020247759,0.0745292314285,0.0750253189341,0.0753208604268,0.0750675391474,0.074951433561,0.0752680851603,0.0750992043073,0.0753419705335,0.0751097593606,0.0749725436676,0.0749303234543,0.0749408785076,0.0753314154801,0.0753208604268,0.0751836447338,0.0752997503202,0.075257530107,0.0755108513864,0.0755530715997,0.0750147638808,0.0749725436676,0.0749830987209,0.0753736356934,0.0750042088275,0.0748881032411,0.0744975662686,0.0748986582944,0.075257530107,0.0755319614931,0.0756691771861,0.0755214064397,0.0752997503202,0.0755530715997,0.0757430625593,0.0758380580391,0.0758908333056,0.0757641726659,0.075700842346,0.0754264109599,0.0751625346272,0.0757747277192,0.0759119434122,0.0758486130924,0.0755952918129,0.0754158559066,0.0756691771861,0.0755425165464,0.0758486130924,0.0756375120262,0.0760491591053,0.0761547096384,0.0761019343718,0.0761124894252,0.0758380580391,0.0753947458,0.0745292314285,0.0742653550957,0.0742336899358,0.0739381484431,0.074476456162,0.0749936537742,0.0754264109599,0.0750358739874,0.0752891952669,0.0751941997871,0.0756164019195,0.0759013883589,0.0758908333056,0.0756586221328,0.0757747277192,0.0760702692119,0.0763024803848,0.0760597141586,0.0759436085722,0.0762919253314,0.0763341455447,0.0758591681457,0.0758169479324,0.0757747277192,0.0754791862265,0.0758063928791,0.0757747277192,0.0757747277192,0.0751308694672,0.0753419705335,0.0750042088275,0.0751308694672,0.0751097593606,0.0749303234543,0.0752469750537,0.0757958378258,0.0765030263977,0.0770413341165,0.0766719072506,0.0768935633702,0.0762497051182,0.076344700598,0.0765558016642,0.0766824623039,0.076513581451,0.0767352375705,0.0766296870374,0.076207484905,0.0763974758646,0.0765663567175,0.0765874668241,0.0764185859712,0.0757430625593,0.0764291410245,0.0766402420907,0.0770729992765,0.0771996599162,0.077431871089,0.0773263205559,0.0775374216221,0.0782973854605,0.0782868304072,0.0761547096384,0.0740436989762,0.0722810050733,0.0699061180783,0.0680695388022,0.0659479730867,0.0638475174778,0.0618948326153,0.0597627118465,0.057503930438,0.0554140298824,0.0533452394335,0.0515931005839,0.0494504247617,0.0475610702191,0.0451967382774,0.0428218512825,0.0406264001938)
s <- c(0.0404036707144,0.0404946338189,0.04056419384,0.0409280462581,0.0408317323827,0.040858486237,0.0407033138822,0.0408263816118,0.0410297109043,0.0410671663002,0.0410190093626,0.0407889262159,0.04100295705,0.0409869047374,0.0409173447163,0.0409869047374,0.0408049785284,0.0405802461526,0.0406658584862,0.0616034248358,0.0626361236105,0.0638775024485,0.0649048504524,0.0658840415186,0.0668418295013,0.0680243498599,0.0692817810105,0.0701539566596,0.0715505078524,0.0729470590451,0.074081422466,0.0753656074709,0.0762966415994,0.0772490788113,0.07824432219,0.0791967594019,0.0804755936359,0.0806789229284,0.0806414675324,0.0807056767826,0.0804220859274,0.0802134058641,0.0801117412179,0.079742538029,0.0792823717356,0.0790790424432,0.0785439653578,0.0784208976282,0.0782336206483,0.0784048453156,0.0783406360654,0.0779393282514,0.0781052021478,0.0779500297931,0.0776717897087,0.0773507434575,0.07711530954,0.0765802324546,0.0768424202264,0.0765374262878,0.076494620121,0.0760612076818,0.0758311245351,0.0757562137432,0.0755849890759,0.0751676289493,0.0749642996569,0.0751087704699,0.0747984257604,0.0746593057182,0.0748572842398,0.0750124565945,0.0747502688227,0.074413170259,0.0743436102379,0.0742151917374,0.0740386162992,0.073974407049,0.0739904593615,0.0739316008821,0.0738138839234,0.0742472963625,0.0744399241132,0.0745897456971,0.074413170259,0.0743222071545,0.0742633486751,0.0745683426137,0.0748305303855,0.0749268442609,0.0755475336799,0.0759167368688,0.0764250600999,0.0769654879561,0.0764732170375,0.0764464631833,0.0763662016205,0.0763876047039,0.0763019923702,0.0764090077873,0.0763662016205,0.0766711955591,0.0766497924757,0.0765106724335,0.076601635538,0.0768531217681,0.0767996140596,0.0768745248515,0.0770189956646,0.0771099587691,0.0771367126234,0.077002943352,0.0774310050203,0.0775540727499,0.0775487219791,0.077297235749,0.0778965220846,0.0776022296876,0.0778269620635,0.0779393282514,0.0781052021478,0.0781640606272,0.0783406360654,0.0781908144815,0.0779660821057,0.0776717897087,0.0773774973118,0.0772758326656,0.0772116234153,0.0768531217681,0.0768103156013,0.0773346911449,0.0774149527077,0.0774845127288,0.0774738111871,0.0773667957701,0.0772490788113,0.077222324957,0.0774738111871,0.0772758326656,0.0772758326656,0.0772704818947,0.0770136448937,0.0767728602053,0.0764839185792,0.0763769031622,0.0762217308074,0.0762056784949,0.0758953337854,0.075980946119,0.0760879615361,0.0764250600999,0.0759862968899,0.0762591862034,0.0764839185792,0.0759381399522,0.0759969984316,0.0758846322437,0.0757508629723,0.0760291030567,0.0760076999733,0.0764411124124,0.07623778312,0.0759113860979,0.0759702445773,0.076275238516,0.0763180446828,0.076018401515,0.0760772599944,0.076055856911,0.0760505061401,0.0759916476607,0.0759167368688,0.0759381399522,0.0760023492024,0.0761789246406,0.075943490723,0.0761254169321,0.0764732170375,0.076639090934,0.0767193524968,0.0767407555802,0.0769708387269,0.077184869561,0.0773079372907,0.0771367126234,0.0769654879561,0.0766872478717,0.0767033001842,0.0763769031622,0.075943490723,0.076200327724,0.07623778312,0.0761307677029,0.075943490723,0.0758578783894,0.07579901991,0.0758043706809,0.0761093646195,0.0764411124124,0.0762805892868,0.0761147153904,0.0760344538276,0.0758953337854,0.0758204229934,0.0758150722226,0.0757187583472,0.07579901991,0.075579638305,0.0753335028458,0.0748091273021,0.0747609703644,0.0750766658448,0.0747074626559,0.0746272010931,0.074118877862,0.0739155485696,0.0741991394248,0.0740332655284,0.0742472963625,0.0741509824871,0.0743489610087,0.0741991394248,0.0746379026348,0.0746539549474,0.0748305303855,0.0752211366578,0.0756010413884,0.0756063921593,0.0756224444718,0.0757722660557,0.076018401515,0.0765053216627,0.0763233954536,0.0761040138487,0.0759220876396,0.0760505061401,0.0758846322437,0.075943490723,0.0761414692446,0.0760076999733,0.0759969984316,0.0764357616416,0.0763876047039,0.0768370694556,0.0768103156013,0.0771955711028,0.0773293403741,0.0772062726445,0.0773881988535,0.0773721465409,0.0777948574383,0.0778483651469,0.0776289835419,0.0777413497298,0.0774952142705,0.0775594235208,0.0773132880615,0.0773507434575,0.0769708387269,0.0771795187902,0.0769922418103,0.0769601371852,0.0766283893923,0.0765106724335,0.0769815402686,0.0771634664776,0.077259780353,0.0772276757279,0.0773614449992,0.0777252974172,0.0780142390433,0.0781640606272,0.0786081746081,0.0786402792332,0.0787526454211,0.0787633469628,0.0789185193176,0.0785921222955,0.0787098392543,0.0785118607327,0.0787472946503,0.0788917654633,0.0787954515879,0.0792770209647,0.0792609686522,0.0793733348401,0.0792556178813,0.0792930732773,0.07956061182,0.0799886734883,0.0800528827385,0.0803311228229,0.0806789229284,0.0811337384509,0.0811551415343,0.0811925969303,0.0817062709322,0.0819149509955,0.0824767819351,0.0830118590205,0.0829583513119,0.0831349267501,0.083065366729,0.0826587081441,0.082845985124,0.082808529728,0.0828513358949,0.0825142373311,0.082187840309,0.0824393265391,0.0820594218085,0.0820540710377,0.081749077099,0.0819149509955,0.0817704801825,0.0819952125583,0.0823430126638,0.0826801112275,0.0830386128747,0.0827443204778,0.0827603727903,0.0828673882074,0.0831402775209,0.0834185176053,0.0834987791681,0.0829530005411,0.0832526437089,0.0834773760847,0.0834934283973,0.0837770192525,0.0841087670454,0.0844244625258,0.0845314779428,0.084782964173,0.0845582317971,0.0841194685871,0.0843816563589,0.0844833210052,0.0843549025047,0.0843013947961,0.0840285054826,0.0839375423781,0.0839535946907,0.084231834775,0.0840231547118,0.0839964008575,0.0842532378585,0.0846010379639,0.0849113826734,0.0847508595478,0.0849113826734,0.0850290996322,0.0847187549227,0.0842853424836,0.084344200963,0.0844244625258,0.0841890286082,0.0845849856514,0.0846331425891,0.0849809426945,0.0849381365277,0.085184271987,0.0847936657147,0.0841783270665,0.0842050809208,0.0839107885238,0.0837877207942,0.0834773760847,0.0831295759792,0.0825088865602,0.0825516927271,0.0824928342477,0.0820540710377,0.081861443287,0.0819952125583,0.0822734526427,0.0826373050607,0.0824553788517,0.0824928342477,0.0827122158527,0.0831563298335,0.0831830836878,0.0831402775209,0.0829530005411,0.0830332621039,0.0832633452506,0.0833061514174,0.0833650098968,0.083247292938,0.0834934283973,0.0834185176053,0.0832044867712,0.083723511544,0.0833596591259,0.0836539515229,0.0834827268556,0.0836271976686,0.0836593022937,0.0839749977741,0.0846759487559,0.0851040104242,0.0850612042573,0.0856283859678,0.0859012752813,0.0862383738451,0.0868965186601,0.0867948540138,0.0874637003705,0.0874422972871,0.0875814173293,0.0874797526831,0.0876456265795,0.0875707157876,0.0879613220599,0.0881539498106,0.0882823683111,0.0885980637915,0.0888602515633,0.0892187532105,0.0895772548576,0.0899839134425,0.0901818919641,0.0905564459238,0.0906741628826,0.0908721414042,0.0907758275288,0.0910861722383,0.091610547782,0.091792473991,0.0921349233256,0.0920493109919,0.0922900956803,0.0923114987638,0.092739560432,0.0931462190169,0.0931034128501,0.0927984189114,0.0929482404953,0.0925790373064,0.0926592988692,0.0925255295979,0.0924185141808,0.0926111419316,0.0927288588903,0.0930606066832,0.0933067421425,0.0936224376229,0.0936973484148,0.0939488346449,0.0941361116248,0.0943447916881,0.0941093577705,0.094018394666,0.0942270747293,0.0944250532509,0.0946283825433,0.0946283825433,0.094821010294,0.0950992503784,0.095222318108,0.0953239827543,0.0958269552145,0.0955487151301,0.0956129243803,0.0951581088578,0.0951099519201,0.0951955642538,0.0951955642538,0.0951527580869,0.0949654811071,0.0949922349613,0.0949066226277,0.0949387272528,0.0949761826488,0.0950510934407,0.0947568010438,0.0946176810016,0.0942859332087,0.0943180378338,0.0939488346449,0.0939595361866,0.0938311176861,0.0936705945605,0.0937187514982,0.0937401545816,0.0933174436842,0.0929268374119,0.0928947327868,0.0927930681406,0.0925469326813,0.0925148280562,0.092375708014,0.0923703572431,0.0923596557014,0.0920493109919,0.0919636986583,0.0923007972221,0.092156326409,0.0926004403898,0.0926753511818,0.0930392035998,0.0928358743074,0.0930606066832,0.0931355174752,0.0933923544762,0.0935047206641,0.0935154222058,0.0937936622902,0.0940290962077,0.0942645301253,0.0944250532509,0.0944625086468,0.0946711887101,0.0950671457533,0.0950350411282,0.0952758258166,0.0956075736095,0.0959339706315,0.0961533522365,0.0962978230496,0.0962924722787,0.0967847431972,0.0969185124686,0.0972342079489,0.097598060367,0.0974428880122,0.0971378940736,0.0971646479278,0.09686500476,0.0968114970515,0.0968810570726,0.0968917586143,0.096356681529,0.0964583461752,0.0961694045491,0.0961640537782,0.0962496661119,0.096538607738,0.0964208907792,0.0966188693008,0.096795444739,0.0967419370304,0.096576063134,0.0963513307581,0.0965867646757,0.0970308786565,0.0973679772203,0.0979886666393,0.0984113775367,0.0988126853507,0.0994547778531,0.0996581071455,0.0998293318129,0.0999363472299,0.0998774887505,0.100150378064,0.100241341169,0.100476775086,0.100899485984,0.101648593903,0.101932184758,0.102376298739,0.102708046532,0.103366191347,0.103970828453,0.104671779435,0.105474395063,0.106062979857,0.107315060237,0.107561195696,0.10821398974,0.10890423918,0.109305546994,0.10958913785,0.110562978145,0.111087353689,0.111670587712,0.112756794195,0.113452394406,0.114126591533,0.11442088393,0.114741930181,0.115458933476,0.115630158143,0.11592445054,0.116261549104,0.116373915292,0.11711767244,0.11742801715,0.117674152609,0.118508872862,0.118701500613,0.119199122302,0.119423854678,0.119991036389,0.119600430116,0.119830513263,0.12024787339,0.12106654133,0.120622427349,0.120820405871,0.120408396515,0.119744900929,0.119632534741,0.118771060634,0.118573082113,0.118252035861,0.117620644901,0.117321001733,0.117016007794,0.11611172752,0.115330514975,0.114838244057,0.114185450013,0.113907209928,0.113628969844,0.113393535926,0.112810301903,0.112077246296,0.111665236941,0.111328138377,0.110675344333,0.109910184101,0.108738365284,0.10827819899,0.107716368051,0.10708497709,0.106426832275,0.105875702877,0.105399484271,0.104489853226,0.104409591663,0.103772849932,0.103494609847,0.102724098845,0.102472612614,0.101969640154,0.101744907778,0.101472018465,0.100995799859,0.100872732129,0.100787119796,0.100519581253,0.100423267378,0.10049817817,0.10093694138,0.101017202942,0.100947642921,0.100888784442,0.100316251961,0.100054064189,0.0999416980008,0.0997116148541,0.0995510917285,0.0995243378742,0.0995831963536,0.0993424116652,0.0994387255406,0.0997062640832,0.0997169656249,0.0994440763114,0.0994708301657,0.0994280239988,0.0995831963536,0.0997544210209,0.0996367040621,0.0996688086873,0.099679510229,0.0995457409576,0.0991390823728,0.0990427684974,0.0992139931647,0.0989143499969,0.0990267161848,0.0991176792893,0.0991390823728,0.0992675008732,0.0989089992261,0.0984916390995,0.0983418175156,0.0981170851398,0.09774253118,0.0974214849288,0.0974375372414,0.0971807002404,0.0972716633449,0.0969666694063,0.0965921154465,0.0964583461752,0.0960730906737,0.0957680967351,0.0953774904628,0.0953293335251,0.0950671457533,0.0946337333142,0.0947568010438,0.0948638164609,0.0948798687734,0.094821010294,0.09441970248,0.0939702377283,0.0938418192278,0.0938685730821,0.0932318313506,0.0932318313506,0.0933013913716,0.0933227944551,0.0929749943496,0.0933388467676,0.0930285020581,0.0925041265145,0.0920172063668,0.0917710709076,0.0917603693659,0.0919315940332,0.091755018595,0.0915516893026,0.0916051970111,0.0913858154061,0.0912573969056,0.091278799989,0.0911503814886,0.0908025813831,0.0907116182786,0.0904815351319,0.090476184361,0.090256802756,0.0900427719219,0.0898340918586,0.0896682179622,0.0899946149842,0.089748479525,0.0893204178567,0.0891545439602,0.0889405131261,0.089309716315,0.0894595378989,0.0895451502325,0.0894220825029,0.0893525224818,0.0893471717109,0.089015423918,0.0887692884588,0.0890100731472,0.0886783253543,0.0885606083955,0.0888174453965,0.0888923561884,0.0886729745834,0.0889351623552,0.0889405131261,0.0887799900005,0.0886836761251,0.0883251744779,0.0883572791031,0.0884428914367,0.0883572791031,0.0884910483744,0.0888281469382,0.0885285037704,0.0887050792085,0.0888013930839,0.0887157807502,0.0888763038758,0.0887478853754,0.0886034145623,0.0882663159985,0.0878810604971,0.0878650081845,0.0877258881423,0.0875225588499,0.0869446755977,0.0867573986179,0.0866931893676,0.0868430109515,0.0867252939928,0.0866664355134,0.0866985401385,0.0865166139295,0.0859975891567,0.0860457460944,0.0864042477415,0.0863560908039,0.0865005616169,0.0870356387023,0.0869393248269,0.0870249371605,0.0873245803283,0.0871961618279,0.0869874817646,0.0870195863897,0.0867734509304,0.0865594200963,0.086093903032,0.0855160197799,0.0855909305718,0.0850612042573,0.0849006811317,0.0847883149438,0.0848685765066,0.0846759487559,0.0845421794845,0.0844084102132,0.0845475302554,0.0848685765066,0.0846866502976,0.0844298132966,0.0844833210052,0.0842425363168,0.0840980655037,0.0836218468978,0.0838037731068,0.0837609669399,0.0838412285027,0.0840659608786,0.0840980655037,0.0840820131911,0.0835576376475,0.0838251761902,0.0835736899601,0.0828780897491,0.0823590649763,0.0819952125583,0.0817383755573,0.0817918832659,0.0820005633292,0.0817437263282,0.0821503849131,0.081749077099,0.0819417048498,0.0821771387673,0.0824393265391,0.0825944988939,0.0827122158527,0.0825249388728,0.0822038926216,0.0823323111221,0.0822092433924,0.0823323111221,0.082664058915,0.0824553788517,0.0827710743321,0.0830760682707,0.083027911333,0.0831830836878,0.0830439636456,0.0831402775209,0.0829422989994,0.0824125726849,0.0821503849131,0.0818293386618,0.0819149509955,0.0818507417453,0.0817544278699,0.081347769285,0.0813317169725,0.0813531200559,0.081460135473,0.0813584708267,0.081347769285,0.0809304091585,0.0805130490319,0.0803204212812,0.0800742858219,0.0805398028862,0.0803578766771,0.0804755936359,0.0800314796551,0.0800582335094,0.0798442026752,0.0799351657797,0.0802241074058,0.0804381382399,0.0810106707213,0.0808929537625,0.0806040121364,0.0804167351565,0.079924464238,0.0798602549878,0.0800689350511,0.079961919634,0.0798227995918,0.0796194702994,0.0792021101728,0.0792235132562,0.0791646547768,0.0793358794441,0.079084393214,0.0787740485045,0.0788917654633,0.0787740485045,0.0786616823166,0.0787633469628,0.0787686977337,0.078865011609,0.0785921222955,0.0791486024643,0.0791325501517,0.0793626332984,0.0788757131507,0.0780356421267,0.0782122175649,0.0782068667941,0.0780142390433,0.0778751190011,0.077735998959,0.0778162605218,0.0775219681248,0.0773186388324,0.0765855832255,0.0767675094345,0.0766497924757,0.0766283893923,0.0764785678084,0.0761949769532,0.0760665584527,0.0758257737643,0.0757829675974,0.0755047275131,0.0755582352216,0.0758204229934,0.0755368321382,0.0752371889704,0.0751355243242,0.0751355243242,0.0748733365524,0.0747984257604,0.0747181641976,0.0744934318218,0.0745148349052,0.0746218503222,0.0746004472388,0.0741616840288,0.0742151917374,0.0740439670701,0.074338259467,0.0747556195936,0.0742579979042,0.0739583547364,0.0738780931736,0.0739583547364,0.0740172132158,0.074081422466,0.0739101977987,0.0738459885485,0.0739530039656,0.0735838007767,0.0735677484641,0.0734018745677,0.0736212561726,0.073573099235,0.0735035392139,0.0735302930681,0.0733430160883,0.0737122192772,0.0739262501113,0.0736961669646,0.0738566900902,0.0741616840288,0.0744292225715,0.0744613271966,0.074632551864,0.0746914103433,0.0746753580308,0.0747609703644,0.0744506256549,0.0741991394248,0.0744880810509,0.0743168563836,0.0742847517585,0.0743168563836,0.0739904593615,0.0741349301746,0.0741349301746,0.0739797578198,0.074557641072,0.0745897456971,0.0746111487805,0.0742472963625,0.0742526471334,0.0742312440499,0.074413170259,0.0744720287383,0.0744506256549,0.0745308872177,0.0742901025293,0.0745041333635,0.0743168563836,0.0741777363414,0.0747449180519,0.0744399241132,0.0747288657393,0.0751676289493,0.0755635859925,0.0755903398467,0.0758097214517,0.0761521707863,0.0766497924757,0.0771795187902,0.0773346911449,0.0773132880615,0.0774470573329,0.0773239896032,0.0771955711028,0.0773667957701,0.0772330264987,0.0773881988535,0.0773828480826,0.0775059158123,0.077843014376,0.0778965220846,0.0776664389379,0.0774577588746,0.0775005650414,0.0775754758334,0.0777467005007,0.077843014376,0.0779500297931,0.0780570452102,0.0781266052313,0.0781212544604,0.0781908144815,0.078024940585,0.0781694113981,0.078426248399,0.0782015160232,0.0785921222955,0.0783459868362,0.0781105529187,0.0782282698775,0.078062395981,0.0778323128343,0.0775915281459,0.0773774973118,0.0770992572274,0.0771474141651,0.0770725033731,0.0771581157068,0.0773239896032,0.0771527649359,0.0773614449992,0.0775326696665,0.0774363557912,0.0776450358544,0.0774096019369,0.0775594235208,0.0779072236263,0.0781640606272,0.0781961652524,0.0782068667941,0.0780356421267,0.0782764268152,0.0779981867308,0.0781159036895,0.078024940585,0.0781587098564,0.0783085314403,0.0785118607327,0.0787793992754,0.0785707192121,0.0785118607327,0.0785118607327,0.0784476514825,0.0783673899197,0.0785172115036,0.0784101960865,0.0781694113981,0.0783727406905,0.0785921222955,0.0784423007116,0.0780945006061,0.077843014376,0.0783245837528,0.0784583530242,0.0787954515879,0.0790308855055,0.0789238700884,0.0790148331929,0.0792984240482,0.0792449163396,0.0790522885889,0.0789131685467,0.078538614587,0.078426248399,0.0784476514825,0.0783352852945,0.0789720270261,0.0788917654633,0.078865011609,0.0788222054422,0.0787633469628,0.0787954515879,0.0788061531296,0.0790148331929,0.0785974730664,0.0791432516934,0.0791111470683,0.0790094824221,0.078939922401,0.0788115039005,0.0783138822111,0.0777841558966,0.0776771404796,0.0776022296876,0.0773828480826,0.077404251166,0.0776075804585,0.0779125743971,0.0775754758334,0.0776450358544,0.0773989003952,0.0774203034786,0.0773989003952,0.0770885556857,0.0768263679139,0.0769761894978,0.0773400419158,0.0776343343127,0.0778323128343,0.0776503866253,0.0777788051258,0.0776824912504,0.0773400419158,0.0773721465409,0.0774684604163,0.07711530954,0.0772758326656,0.0773025865198,0.0774096019369,0.077077854144,0.0776343343127,0.0773400419158,0.0776503866253,0.0778697682303,0.0779500297931,0.0780945006061,0.0786135253789,0.0789880793387,0.0793519317567,0.079159304006,0.0793519317567,0.0791164978391,0.0793465809858,0.0794803502572,0.0798656057586,0.0802401597184,0.0805612059696,0.0807056767826,0.0806361167615,0.0808501475957,0.081021372263,0.0809732153253,0.0807912891163,0.080363227448,0.080727079866,0.0809304091585,0.0812782092639,0.0814922400981,0.0817062709322,0.0817918832659,0.082043369496,0.0824500280808,0.082482132706,0.0812782092639,0.0800903381345,0.0789827285678,0.0778376636052,0.0767033001842,0.0755261305965,0.0744720287383,0.0734179268802,0.0725618035437,0.0714595447479,0.0706569291198,0.069811507325,0.0688216147171,0.0676765497545,0.0667990233345,0.0655415921839,0.0646212595971,0.0634119853843,0.0424155605553,0.04231924668,0.042281791284,0.0423995082428,0.0424102097845,0.0422389851172,0.0422122312629,0.0423245974508,0.0425172252015,0.0425225759724,0.042426262097,0.0423031943674,0.0423460005342,0.0421961789503,0.0420035511996,0.042062409679,0.0422175820337,0.0422122312629,0.0422550374297)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("9-organelles-nucleus-merged/AGO4-ChIP-GSM867184.36mers.macs2.0.9_model.pdf",height=6,width=6)
plot(x,p,type="l",col=c("red"),main="Peak Model",xlab="Distance to the middle",ylab="Percentage")
lines(x,m,col=c("blue"))
lines(x,s,col=c("black"))
abline(v=median(x[p==max(p)]),lty=2,col=c("red"))
abline(v=median(x[m==max(m)]),lty=2,col=c("blue"))
abline(v=median(x[s==max(s)]),lty=2,col=c("black"))
legend("topleft",c("forward tags","reverse tags","shifted tags"),lty=c(1,1,1),col=c("red","blue","black"))
legend("right",c("d=39"),bty="n")
dev.off()