# R script for Peak Model
#  -- generated by MACS
p <- c(0.0430964798237,0.0457984534803,0.0477799008286,0.0502116771196,0.0520129928907,0.0547149665473,0.0572368086269,0.0600738809664,0.0618751967375,0.0636765125086,0.0661082887996,0.0685850979848,0.0705215124388,0.0724579268927,0.0747546045009,0.0768711505319,0.0792128610343,0.0806989465455,0.0803386833913,0.0800684860256,0.0807439794398,0.0810141768054,0.0813744399597,0.0819598675853,0.0813294070654,0.0807439794398,0.0809691439112,0.081104242594,0.0801585518142,0.0792128610343,0.0794830584,0.0791227952458,0.0794380255057,0.0790327294572,0.0792128610343,0.0797532557657,0.0808340452283,0.0798433215542,0.0800234531313,0.0797532557657,0.0802035847085,0.07979828866,0.0795731241886,0.0791227952458,0.0791227952458,0.0787174991973,0.0780870386774,0.0778168413117,0.0775916768403,0.0777267755232,0.0772314136861,0.0770062492147,0.0761055913292,0.077051282109,0.0770062492147,0.0767810847434,0.0761506242235,0.0751148676551,0.0739890452981,0.0737188479325,0.0734036176725,0.074124143981,0.0743943413466,0.0747996373951,0.0751148676551,0.0750248018665,0.0738539466153,0.0742592426638,0.0739440124039,0.0740791110867,0.0736738150382,0.0735387163554,0.0722327624213,0.0723228282099,0.0719175321614,0.07137713743,0.0712420387472,0.0722777953156,0.0724128939984,0.0719625650556,0.0716023019014,0.0720526308442,0.0724128939984,0.0723678611041,0.0722777953156,0.0729532887298,0.0733585847783,0.0743943413466,0.0756552623864,0.0752949992322,0.0759254597521,0.0759254597521,0.0756102294921,0.0760605584349,0.0763307558006,0.0758804268578,0.0760155255406,0.0752049334436,0.074934736078,0.0739890452981,0.0741691768752,0.0738989795096,0.0737638808267,0.0738989795096,0.0742142097695,0.0740340781924,0.074124143981,0.0747095716066,0.0750248018665,0.0750248018665,0.0748897031837,0.0751599005494,0.0755651965979,0.0749797689722,0.0743042755581,0.0739440124039,0.0742592426638,0.0744393742409,0.0742592426638,0.0748897031837,0.0751148676551,0.0736287821439,0.0738539466153,0.0727281242584,0.0723678611041,0.0730433545183,0.0731784532011,0.0734486505668,0.0736738150382,0.0734936834611,0.073313551884,0.073313551884,0.0737638808267,0.0738539466153,0.0734036176725,0.0742142097695,0.0744844071352,0.0751148676551,0.0753850650207,0.074934736078,0.0742592426638,0.0746645387123,0.0744844071352,0.0735387163554,0.0734486505668,0.073808913721,0.0743042755581,0.0743493084524,0.0736738150382,0.0729532887298,0.0731334203069,0.0729082558355,0.073313551884,0.0732234860954,0.0728632229412,0.0714221703243,0.0712420387472,0.0717374005843,0.0712870716415,0.0710168742758,0.0714221703243,0.0712420387472,0.0714672032186,0.0720976637385,0.0728632229412,0.0730433545183,0.0734036176725,0.0739890452981,0.0738539466153,0.0737638808267,0.0742142097695,0.0736738150382,0.0732685189897,0.0733585847783,0.0735387163554,0.0741691768752,0.0739440124039,0.073313551884,0.0734486505668,0.0745744729237,0.0740791110867,0.073313551884,0.073313551884,0.0734036176725,0.0734936834611,0.0743042755581,0.0752049334436,0.0761055913292,0.0758353939635,0.0759704926464,0.0760605584349,0.0770963150033,0.077861874206,0.0783572360431,0.0783572360431,0.0797082228714,0.0794380255057,0.0784923347259,0.0775466439461,0.076555920272,0.0762857229063,0.0763307558006,0.0759254597521,0.0759704926464,0.0761055913292,0.0760155255406,0.0760605584349,0.0761506242235,0.0762857229063,0.0757903610692,0.0757903610692,0.0752949992322,0.0754751308093,0.0759704926464,0.0761506242235,0.0756102294921,0.0755201637036,0.0757903610692,0.0761956571177,0.0770062492147,0.077366512369,0.0767360518491,0.0757903610692,0.0760155255406,0.0757903610692,0.0760605584349,0.0766910189548,0.0765108873777,0.076240690012,0.0761956571177,0.0766459860605,0.0752949992322,0.0747996373951,0.074934736078,0.0752499663379,0.0757002952807,0.0756552623864,0.0763757886949,0.0767360518491,0.0763757886949,0.0764208215891,0.0767810847434,0.076555920272,0.0772314136861,0.0774565781575,0.0773214794747,0.0770963150033,0.0773214794747,0.0772764465804,0.0768711505319,0.0772314136861,0.0769612163205,0.0771863807918,0.0770963150033,0.0768261176376,0.0761055913292,0.0755651965979,0.0753850650207,0.0754751308093,0.0745294400295,0.0744393742409,0.0741691768752,0.0745744729237,0.0748446702894,0.0742142097695,0.0738989795096,0.0729082558355,0.0740791110867,0.0742592426638,0.074934736078,0.0752049334436,0.0750698347608,0.0748446702894,0.0736738150382,0.0745294400295,0.0744393742409,0.0742592426638,0.074934736078,0.0744393742409,0.0737188479325,0.0732685189897,0.0734036176725,0.0740340781924,0.0742142097695,0.0747546045009,0.0749797689722,0.0750698347608,0.0757903610692,0.0774115452632,0.0782671702545,0.0782221373602,0.078177104466,0.0794380255057,0.0794830584,0.0807890123341,0.0815996044311,0.0831307228365,0.0836711175678,0.0845267425591,0.0846618412419,0.0858326964932,0.0862379925417,0.0872287162158,0.0874538806871,0.0869585188501,0.0865982556959,0.0868234201673,0.0873187820043,0.0878591767356,0.0893452622468,0.0889399661983,0.0893902951411,0.0906061832866,0.0906962490751,0.0915518740664,0.0920022030092,0.0919571701149,0.0922724003749,0.0928127951062,0.093263124049,0.0931730582604,0.0933982227318,0.093758485886,0.0942988806173,0.0936233872032,0.0935783543089,0.093758485886,0.0939386174631,0.0939386174631,0.0949293411372,0.0943889464059,0.0947041766658,0.0944790121945,0.0943889464059,0.0933982227318,0.0931730582604,0.0926776964234,0.092947893789,0.0938035187803,0.0935783543089,0.0946141108773,0.0953346371857,0.09537967008,0.0958299990228,0.0958299990228,0.0956048345514,0.0958750319171,0.0965955582255,0.096190262177,0.0968657555912,0.0963253608598,0.0972710516397,0.0970458871683,0.0970458871683,0.0961452292827,0.0964154266484,0.0962803279656,0.096190262177,0.0957399332342,0.0943889464059,0.0934432556261,0.093263124049,0.0933081569432,0.0931730582604,0.0920472359035,0.0911015451236,0.0910114793351,0.0905611503923,0.0904260517095,0.0898406240839,0.0902459201324,0.0907412819694,0.092137301692,0.0925425977405,0.092452531952,0.0924074990577,0.0925876306348,0.092947893789,0.0930379595776,0.0921823345863,0.0917320056435,0.0907412819694,0.090831347758,0.0907863148637,0.0901108214495,0.0896604925068,0.0903810188152,0.0899306898724,0.0909214135465,0.0905611503923,0.0905611503923,0.0902909530266,0.0910114793351,0.0915969069607,0.0919121372206,0.0936684200975,0.0946591437716,0.0956498674457,0.0960101305999,0.0969107884854,0.097811446371,0.0985319726794,0.0983968739966,0.0988922358337,0.0991174003051,0.100063091085,0.100063091085,0.0999279924021,0.099432630565,0.0994776634593,0.098622038468,0.0992975318822,0.0983968739966,0.0985770055737,0.0988021700451,0.0999730252963,0.100243222662,0.10064851871,0.100693551605,0.100423354239,0.100558452922,0.100198189768,0.100108123979,0.100108123979,0.0992975318822,0.100738584499,0.100738584499,0.100738584499,0.100513420028,0.100513420028,0.100693551605,0.100288255556,0.10127897923,0.101233946336,0.101324012125,0.100783617393,0.100873683182,0.0999730252963,0.100063091085,0.100198189768,0.100153156873,0.100333288451,0.100693551605,0.101324012125,0.101143880548,0.10096374897,0.100783617393,0.0998379266135,0.100333288451,0.0990273345165,0.0990723674108,0.098622038468,0.099432630565,0.100378321345,0.100063091085,0.100423354239,0.100918716076,0.101459110807,0.101459110807,0.10159420949,0.102584933164,0.101098847653,0.101369045019,0.100918716076,0.101098847653,0.100468387133,0.100108123979,0.0997928937192,0.0996127621421,0.0997028279307,0.0998379266135,0.100018058191,0.100063091085,0.100423354239,0.100378321345,0.100918716076,0.100828650288,0.100468387133,0.0997028279307,0.0989823016222,0.0985319726794,0.0991174003051,0.100288255556,0.100108123979,0.100738584499,0.100783617393,0.100153156873,0.100198189768,0.0988021700451,0.0979465450538,0.0980816437367,0.0973611174282,0.0974962161111,0.0971359529568,0.0971809858511,0.0968207226969,0.0963703937541,0.0975412490053,0.0978564792653,0.0983518411023,0.0985770055737,0.0996577950364,0.0998829595078,0.0994776634593,0.0983068082081,0.0979465450538,0.0975412490053,0.097811446371,0.0974962161111,0.0980366108424,0.0986670713623,0.0985319726794,0.0982617753138,0.0989372687279,0.0985770055737,0.0987571371508,0.0992524989879,0.0998379266135,0.0997478608249,0.100873683182,0.100423354239,0.101639242385,0.102044538433,0.101459110807,0.102720031847,0.102720031847,0.102765064742,0.103845854204,0.104476314724,0.104206117358,0.103980952887,0.104296183147,0.104071018676,0.103215393684,0.10317036079,0.104071018676,0.103980952887,0.10317036079,0.103080295001,0.103350492367,0.104701479195,0.104566380513,0.105151808138,0.104971676561,0.105827301552,0.10600743313,0.106232597601,0.105512071292,0.106142531812,0.106322663389,0.106412729178,0.106457762072,0.106142531812,0.105602137081,0.105467038398,0.10537697261,0.106277630495,0.106412729178,0.106908091015,0.107853781795,0.107763716006,0.107538551535,0.108033913372,0.107673650218,0.106863058121,0.106998156804,0.107763716006,0.108619340998,0.109294834412,0.109790196249,0.110195492297,0.110105426509,0.109970327826,0.109610064672,0.109745163355,0.109925294932,0.108844505469,0.108529275209,0.107583584429,0.107583584429,0.106637893649,0.105557104187,0.104161084464,0.10348559105,0.10222467001,0.101053814759,0.100828650288,0.100468387133,0.0997928937192,0.0984419068909,0.0975862818996,0.0972260187454,0.0955147687628,0.0939836503574,0.0923174332691,0.0904710846037,0.0892551964583,0.089705525401,0.0893002293525,0.0881293741013,0.0874088477929,0.0867333543787,0.0851121701847,0.0839413149335,0.0834459530964,0.0828605254708,0.081914834691,0.080293650497,0.0801135189199,0.0808790781226,0.0798883544485,0.0788075649858,0.0779519399946,0.0774565781575,0.0779069071003,0.0776367097346,0.0775916768403,0.0785824005145,0.0784923347259,0.0787625320916,0.078987696563,0.0788525978801,0.078672466303,0.0782221373602,0.0780870386774,0.0780870386774,0.0775916768403,0.0766910189548,0.0767810847434,0.0775016110518,0.0782671702545,0.0791227952458,0.0794380255057,0.0789426636687,0.0779969728888,0.0780870386774,0.0792578939286,0.0795731241886,0.0807890123341,0.0801135189199,0.0796181570828,0.0796181570828,0.0797532557657,0.0803386833913,0.0796631899771,0.078672466303,0.0787625320916,0.0798883544485,0.0808340452283,0.0811492754883,0.0801135189199,0.0800234531313,0.0792128610343,0.0784923347259,0.0779519399946,0.0777718084175,0.0774115452632,0.0775016110518,0.077366512369,0.0774565781575,0.0779969728888,0.0778168413117,0.0784473018316,0.0790777623515,0.0794380255057,0.078672466303,0.077861874206,0.0787174991973,0.0784923347259,0.0783572360431,0.0787174991973,0.0778168413117,0.0766910189548,0.0761506242235,0.0759254597521,0.076555920272,0.0773214794747,0.0770963150033,0.0764208215891,0.0766459860605,0.0763307558006,0.0768261176376,0.0778168413117,0.0763307558006,0.0755201637036,0.0753850650207,0.0759704926464,0.0758353939635,0.076240690012,0.0763757886949,0.0770062492147,0.0774115452632,0.0779969728888,0.0781320715717,0.0780870386774,0.0776367097346,0.0775016110518,0.077861874206,0.0779969728888,0.0771413478976,0.0769161834262,0.0771863807918,0.077861874206,0.0779969728888,0.0783572360431,0.0785824005145,0.0784473018316,0.07979828866,0.0803386833913,0.080293650497,0.0804737820741,0.0799784202371,0.0789426636687,0.0785824005145,0.0791227952458,0.077861874206,0.0783122031488,0.0780420057831,0.0769612163205,0.0779519399946,0.0783122031488,0.0783122031488,0.0783572360431,0.0785824005145,0.078672466303,0.0784022689373,0.0782221373602,0.0782221373602,0.0784923347259,0.0770963150033,0.0775016110518,0.078177104466,0.078987696563,0.0793029268229,0.0780870386774,0.0785824005145,0.0784473018316,0.0783122031488,0.0780420057831,0.0770062492147,0.076240690012,0.0757903610692,0.075745328175,0.0751599005494,0.0748446702894,0.0755651965979,0.0749797689722,0.075430097915,0.0757002952807,0.0762857229063,0.0767360518491,0.0769612163205,0.0767360518491,0.0764208215891,0.0763757886949,0.0765108873777,0.0773214794747,0.0774115452632,0.077366512369,0.0767360518491,0.0771863807918,0.0773214794747,0.0772764465804,0.077366512369,0.077051282109,0.0785373676202,0.0783122031488,0.0788525978801,0.0779519399946,0.0778168413117,0.0779519399946,0.0783122031488,0.0788525978801,0.0788525978801,0.0787625320916,0.0784022689373,0.0787625320916,0.0788075649858,0.0792578939286,0.0795280912943,0.0802035847085,0.0801135189199,0.0804287491798,0.0802035847085,0.0806539136512,0.0805188149684,0.0802035847085,0.0807439794398,0.0808340452283,0.0816446373253,0.0822300649509,0.0816446373253,0.0813294070654,0.0808340452283,0.0799784202371,0.0804287491798,0.0801585518142,0.0798433215542,0.0809241110169,0.0811492754883,0.0813294070654,0.0814645057482,0.0813744399597,0.0805188149684,0.0801135189199,0.0802486176027,0.0813744399597,0.0806989465455,0.0809691439112,0.0801585518142,0.0798883544485,0.0796181570828,0.0797082228714,0.0806088807569,0.0796631899771,0.0802035847085,0.0796631899771,0.0791678281401,0.0787625320916,0.0779519399946,0.0775466439461,0.077366512369,0.0770963150033,0.0773214794747,0.0774565781575,0.0767810847434,0.0771863807918,0.0778168413117,0.0776817426289,0.0780870386774,0.0788976307744,0.0786274334087,0.0779069071003,0.0782221373602,0.0782221373602,0.078177104466,0.0774565781575,0.0767810847434,0.0777718084175,0.0782671702545,0.0786274334087,0.0778168413117,0.0770062492147,0.0772764465804,0.0766910189548,0.0776367097346,0.0784022689373,0.0786274334087,0.0793479597172,0.0785373676202,0.0794830584,0.0797082228714,0.0801585518142,0.0801135189199,0.0805638478627,0.081104242594,0.0806088807569,0.0809691439112,0.0811943083826,0.0806088807569,0.0802035847085,0.0800234531313,0.0788525978801,0.078672466303,0.0780870386774,0.0784923347259,0.078177104466,0.0788525978801,0.0794380255057,0.0788525978801,0.0787174991973,0.0789426636687,0.0798883544485,0.0798433215542,0.078987696563,0.0784923347259,0.0787625320916,0.0788976307744,0.0789426636687,0.0785373676202,0.0783572360431,0.077861874206,0.0776367097346,0.077861874206,0.077366512369,0.0777267755232,0.0779069071003,0.0769612163205,0.0763307558006,0.077366512369,0.0771863807918,0.0771413478976,0.0768711505319,0.0772314136861,0.0769612163205,0.0776367097346,0.0783572360431,0.0786274334087,0.0797082228714,0.0794380255057,0.0809691439112,0.0810592096997,0.0815545715368,0.0810592096997,0.0810141768054,0.0816896702196,0.0810592096997,0.0807890123341,0.0805638478627,0.0802035847085,0.0811943083826,0.0823201307395,0.082725426788,0.0828605254708,0.0838062162507,0.084031380722,0.084346610982,0.0854724333389,0.0858777293874,0.086463157013,0.086463157013,0.086778387273,0.0862379925417,0.0870936175329,0.0881293741013,0.088399571467,0.0881744069956,0.0882644727841,0.0888499004098,0.088399571467,0.0892551964583,0.0896154596125,0.0896154596125,0.089705525401,0.0890300319869,0.0891651306697,0.0878141438414,0.08727374911,0.086778387273,0.0867333543787,0.0865532228016,0.086778387273,0.0860128280703,0.0852022359733,0.0852923017618,0.0861028938588,0.0856075320218,0.0846168083477,0.0845717754534,0.0847969399248,0.084346610982,0.0845717754534,0.0845267425591,0.0841214465106,0.0834009202022,0.0830406570479,0.0834009202022,0.0834909859907,0.0837161504621,0.082725426788,0.0813744399597,0.0804287491798,0.0816446373253,0.0820499333738,0.0822300649509,0.0822750978452,0.0820949662681,0.0806989465455,0.0809241110169,0.0813294070654,0.0818698017967,0.0815545715368,0.0812843741711,0.0817797360082,0.0822300649509,0.0826353609994,0.0827704596823,0.0833558873079,0.0842115122992,0.085157203079,0.0850221043962,0.0845717754534,0.0844366767705,0.0841664794049,0.0837611833564,0.0838962820392,0.0837611833564,0.0830856899422,0.0830856899422,0.0822750978452,0.0824101965281,0.0826353609994,0.0821850320567,0.0817347031139,0.0822750978452,0.0829055583651,0.0839863478278,0.0830856899422,0.0810592096997,0.0800684860256,0.0804737820741,0.0804287491798,0.080293650497,0.0808340452283,0.0799784202371,0.0797082228714,0.0795731241886,0.0797082228714,0.07979828866,0.0801135189199,0.0802486176027,0.0804287491798,0.0810141768054,0.0803837162856,0.0807890123341,0.0807439794398,0.0803837162856,0.0810141768054,0.0802035847085,0.0806989465455,0.080293650497,0.0801585518142,0.0804737820741,0.0807890123341,0.0804737820741,0.0809691439112,0.0818698017967,0.0816896702196,0.0826353609994,0.0832207886251,0.0825452952109,0.0828605254708,0.0816896702196,0.0827704596823,0.0836260846735,0.0842565451934,0.0836711175678,0.0836711175678,0.0837161504621,0.0832658215193,0.0836711175678,0.0837161504621,0.0836711175678,0.0844366767705,0.0845717754534,0.083536018885,0.0832658215193,0.0833108544136,0.0832207886251,0.0830856899422,0.082725426788,0.0824101965281,0.0824101965281,0.0821399991624,0.0830406570479,0.0822750978452,0.0823651636338,0.0817347031139,0.0811943083826,0.0816446373253,0.0817797360082,0.0816446373253,0.0815095386425,0.0814645057482,0.0801585518142,0.0799784202371,0.0802486176027,0.0793479597172,0.0805188149684,0.0808340452283,0.0809241110169,0.0806088807569,0.0806539136512,0.0806989465455,0.0805188149684,0.0811943083826,0.0817797360082,0.0820049004796,0.0818247689024,0.0805638478627,0.0806539136512,0.0810592096997,0.0805188149684,0.0799784202371,0.0793929926115,0.0791678281401,0.0784473018316,0.0785373676202,0.0787625320916,0.0782221373602,0.0779069071003,0.0777267755232,0.0777267755232,0.0785373676202,0.0784473018316,0.0777718084175,0.0783122031488,0.0785824005145,0.0777267755232,0.0769612163205,0.0771413478976,0.0765108873777,0.0759704926464,0.0760605584349,0.0748897031837,0.0742142097695,0.0743943413466,0.074934736078,0.0760155255406,0.0759254597521,0.0758353939635,0.0758804268578,0.074934736078,0.0759704926464,0.0758804268578,0.0766910189548,0.0771413478976,0.0771413478976,0.0770963150033,0.0774565781575,0.0785824005145,0.0793929926115,0.0811492754883,0.0809691439112,0.0809241110169,0.0812843741711,0.0812843741711,0.0825452952109,0.0828154925766,0.0830856899422,0.0834459530964,0.0838962820392,0.083536018885,0.0837161504621,0.0841214465106,0.085157203079,0.0852472688675,0.0853823675504,0.0857426307046,0.0858326964932,0.0864181241188,0.0866883214844,0.0865982556959,0.0868234201673,0.0862379925417,0.0861929596474,0.0859227622817,0.0865081899073,0.0870485846386,0.0857876635989,0.0862830254359,0.0858326964932,0.0861479267531,0.0860128280703,0.0876790451585,0.088399571467,0.0877691109471,0.0871836833215,0.0858326964932,0.0861479267531,0.0863280583302,0.086778387273,0.0866432885902,0.0852472688675,0.0850671372904,0.0841214465106,0.0846618412419,0.0845717754534,0.0847519070305,0.0849770715019,0.0853373346561,0.0851121701847,0.0847969399248,0.0847068741362,0.0841214465106,0.0838062162507,0.0837611833564,0.0845267425591,0.084841972819,0.0849320386076,0.0844817096648,0.0844366767705,0.0846618412419,0.0817797360082,0.0793479597172,0.0770963150033,0.074619505818,0.0726380584698,0.069755953236,0.067639407205,0.0643520059227,0.0610195717462,0.0584977296666,0.0561560191642,0.0542196047103,0.0516527297364,0.0491759205512,0.0465640126831,0.0445825653348,0.0432315785065,0.0411150324755)
m <- c(0.0409777700192,0.0441016358951,0.0468579881385,0.0485577386886,0.0507168812793,0.0532435375025,0.0554026800932,0.0574699442757,0.0605938101516,0.0623394999058,0.0653255481696,0.0676225083724,0.0702869822077,0.0724001855944,0.0748809026135,0.0774075588366,0.0796585798354,0.0821852360586,0.0814961479977,0.0814502087937,0.0824149320789,0.0824149320789,0.0827824457113,0.0832418377519,0.0834255945681,0.0837012297925,0.0847578314858,0.0846200138736,0.0842525002412,0.084895649098,0.0845740746696,0.0848037706899,0.0849875275061,0.0843903178534,0.0844821962615,0.0837012297925,0.0834255945681,0.0828743241195,0.0826446280992,0.0825527496911,0.0823689928748,0.081679904814,0.0821392968545,0.0815420872018,0.0799342150598,0.0807151815288,0.0804395463044,0.0815420872018,0.0815420872018,0.0822311752627,0.0818177224261,0.0814502087937,0.0812664519775,0.0809908167531,0.0814042695896,0.0810367559572,0.0810367559572,0.0804395463044,0.0808529991409,0.0808070599369,0.0819555400383,0.0817717832221,0.0817717832221,0.0824608712829,0.0830121417316,0.0825986888951,0.0821852360586,0.081725844018,0.080898938345,0.0813123911815,0.0820933576505,0.0828283849154,0.083287776956,0.0831958985479,0.0830580809357,0.0838849866087,0.0844362570574,0.0843443786493,0.0843443786493,0.0850794059142,0.0861819468116,0.0855387979548,0.0854469195467,0.0840228042209,0.0837931082006,0.0830121417316,0.083287776956,0.0825527496911,0.0830121417316,0.0835174729763,0.0827824457113,0.0829662025276,0.0826446280992,0.0837471689965,0.0838849866087,0.083287776956,0.0818636616302,0.0812664519775,0.080117971876,0.0797504582436,0.0794288838152,0.0798423366517,0.0804854855085,0.0812664519775,0.0822311752627,0.0818177224261,0.0820014792424,0.0816339656099,0.0810367559572,0.0818636616302,0.0818636616302,0.0820014792424,0.0815880264059,0.082506810487,0.0824608712829,0.0825527496911,0.0822311752627,0.0828283849154,0.0821852360586,0.0826446280992,0.0822771144667,0.0819555400383,0.0816339656099,0.0823689928748,0.0816339656099,0.0808529991409,0.0814502087937,0.0827824457113,0.0826446280992,0.0818636616302,0.0820014792424,0.0820474184464,0.0826905673032,0.0832418377519,0.0829662025276,0.08333371616,0.0839768650168,0.0839768650168,0.0838390474047,0.0835634121803,0.0828283849154,0.0830580809357,0.0827365065073,0.0831040201397,0.0831499593438,0.0821392968545,0.0819096008343,0.081725844018,0.081679904814,0.0820474184464,0.0815880264059,0.0816339656099,0.081679904814,0.0814961479977,0.0819555400383,0.0825527496911,0.0822311752627,0.0830121417316,0.0829662025276,0.0834715337722,0.0842525002412,0.0848037706899,0.084895649098,0.0840228042209,0.0846200138736,0.0847118922818,0.0839768650168,0.0841606218331,0.0839309258128,0.0846200138736,0.0852172235264,0.0854009803426,0.0851712843223,0.0837471689965,0.0829202633235,0.0834255945681,0.0835174729763,0.0834715337722,0.0836093513844,0.0837471689965,0.0842065610371,0.0848497098939,0.084941588302,0.0847118922818,0.0848497098939,0.0846200138736,0.0845281354655,0.0847118922818,0.0848497098939,0.0845740746696,0.0841606218331,0.0846200138736,0.0853091019345,0.0848497098939,0.0845281354655,0.0838390474047,0.083287776956,0.0826446280992,0.0821392968545,0.0815880264059,0.0806233031207,0.080117971876,0.080117971876,0.0799342150598,0.0794748230192,0.0790613701827,0.0796126406314,0.0797045190395,0.0789694917746,0.0797045190395,0.0802557894882,0.0796585798354,0.0803476678963,0.0811286343653,0.0806233031207,0.0803476678963,0.0805314247125,0.0803476678963,0.0803017286922,0.0802557894882,0.0802098502841,0.0798423366517,0.080117971876,0.0804854855085,0.0809448775491,0.0807151815288,0.0804854855085,0.0787397957543,0.0786479173462,0.0786019781421,0.0789235525705,0.0791991877949,0.0797963974476,0.0805773639166,0.0808070599369,0.0810367559572,0.0826446280992,0.0835174729763,0.0835634121803,0.0845740746696,0.0848037706899,0.0842525002412,0.0839768650168,0.0831499593438,0.08333371616,0.0825986888951,0.0829202633235,0.0819096008343,0.0814042695896,0.0815420872018,0.0819555400383,0.0821392968545,0.0818177224261,0.0815880264059,0.0813123911815,0.0812664519775,0.0812664519775,0.0811745735693,0.0805773639166,0.0798882758557,0.0795207622233,0.0797045190395,0.0798882758557,0.0798882758557,0.0799342150598,0.0799342150598,0.0799801542638,0.0794748230192,0.0794288838152,0.0784182213259,0.0786938565502,0.0787397957543,0.0773616196326,0.0773156804285,0.0775913156529,0.0763968963474,0.0770400452042,0.0771319236123,0.0766265923677,0.0769481667961,0.0780507076934,0.079337005407,0.0785560389381,0.079291066203,0.0787857349584,0.0779128900813,0.0777750724691,0.0774994372448,0.0789235525705,0.0791073093868,0.0791532485908,0.0798882758557,0.0804395463044,0.0806692423247,0.0814961479977,0.0814502087937,0.0812205127734,0.0817717832221,0.0815420872018,0.0816339656099,0.0806233031207,0.0809908167531,0.0809448775491,0.0803936071004,0.0797504582436,0.080117971876,0.0795207622233,0.0797963974476,0.0799342150598,0.0797963974476,0.0802557894882,0.0810367559572,0.0808529991409,0.0804395463044,0.0802098502841,0.0798882758557,0.0795207622233,0.0786938565502,0.0787397957543,0.0786938565502,0.0792451269989,0.0788776133665,0.078510099734,0.0789235525705,0.0774994372448,0.0777750724691,0.0779128900813,0.0772238020204,0.0767184707758,0.0760293827149,0.0758456258987,0.0755240514703,0.0748809026135,0.0747890242054,0.0754781122662,0.0758456258987,0.0770400452042,0.0766725315717,0.0771319236123,0.0783263429178,0.0789694917746,0.0797963974476,0.080117971876,0.0796126406314,0.0796126406314,0.0787857349584,0.0780047684894,0.0774075588366,0.0764428355514,0.0774075588366,0.0778669508772,0.0786479173462,0.0783263429178,0.0784182213259,0.079291066203,0.0797963974476,0.0789235525705,0.0785560389381,0.0786479173462,0.077729133265,0.0779588292853,0.0770400452042,0.0774075588366,0.0780047684894,0.0779128900813,0.0782804037137,0.0780047684894,0.0780966468975,0.0782804037137,0.0782804037137,0.07846416053,0.0787397957543,0.0779128900813,0.0778669508772,0.077729133265,0.0772238020204,0.0761672003271,0.0750646594297,0.0751565378378,0.0753862338581,0.0752024770419,0.0756159298784,0.0758915651027,0.0761672003271,0.0771319236123,0.0763050179393,0.0762131395311,0.076121261123,0.0766265923677,0.0763509571433,0.0750646594297,0.0746971457973,0.0751565378378,0.0760293827149,0.0756618690825,0.0766265923677,0.076121261123,0.076075321919,0.0757078082865,0.0743755713689,0.0740999361445,0.0738243009202,0.0743755713689,0.0749268418175,0.0756618690825,0.07529435545,0.0748809026135,0.0739161793283,0.0741458753486,0.0746052673891,0.0746971457973,0.0752484162459,0.0762131395311,0.0761672003271,0.0758915651027,0.0756159298784,0.0756159298784,0.0758915651027,0.0761672003271,0.0752484162459,0.0745593281851,0.0742377537567,0.0739621185323,0.0734108480836,0.072905516839,0.073732422512,0.0739161793283,0.0743755713689,0.0742377537567,0.0744215105729,0.074467449777,0.0738243009202,0.0742836929607,0.074513388981,0.0741918145526,0.0741458753486,0.0743755713689,0.0739621185323,0.0732730304715,0.0735486656958,0.0731811520634,0.0729973952471,0.0729973952471,0.0736405441039,0.0746052673891,0.0739161793283,0.0731811520634,0.0731811520634,0.0723542463903,0.0727676992268,0.0733649088796,0.072859577635,0.0731811520634,0.0733649088796,0.0732270912674,0.0740080577364,0.0746052673891,0.074467449777,0.0746512065932,0.0741458753486,0.0738243009202,0.0741918145526,0.0749727810216,0.0746512065932,0.0748809026135,0.0751565378378,0.0754781122662,0.0762590787352,0.0758456258987,0.0758456258987,0.0763968963474,0.0771319236123,0.0771778628163,0.0773616196326,0.077729133265,0.0767184707758,0.0768103491839,0.0766725315717,0.076902227592,0.0772697412245,0.0771319236123,0.0786479173462,0.0790613701827,0.0795667014273,0.0803476678963,0.0791532485908,0.0783722821218,0.0796126406314,0.0803017286922,0.0802557894882,0.0799801542638,0.080072032672,0.0808529991409,0.0819555400383,0.0820474184464,0.0831958985479,0.084068743425,0.0830121417316,0.0827365065073,0.0828283849154,0.0831499593438,0.0820933576505,0.0822311752627,0.0811745735693,0.0811745735693,0.0805773639166,0.0807151815288,0.0809448775491,0.0804854855085,0.0813583303856,0.0806692423247,0.0815880264059,0.0815880264059,0.0821392968545,0.082506810487,0.0819096008343,0.0812205127734,0.0801639110801,0.0808070599369,0.0803017286922,0.080117971876,0.0809908167531,0.0822311752627,0.0814502087937,0.0803017286922,0.0802557894882,0.0802098502841,0.080117971876,0.0795207622233,0.0796126406314,0.0800260934679,0.0795207622233,0.0784182213259,0.0792451269989,0.0795667014273,0.0796585798354,0.0790613701827,0.0798423366517,0.0801639110801,0.0806692423247,0.0806233031207,0.0811745735693,0.0804854855085,0.0802557894882,0.0803936071004,0.0796126406314,0.0799342150598,0.0797045190395,0.0796585798354,0.0798423366517,0.0796585798354,0.0793829446111,0.0795207622233,0.0794748230192,0.0788776133665,0.0787857349584,0.07846416053,0.0789694917746,0.0779588292853,0.0781885253056,0.0786479173462,0.078510099734,0.078510099734,0.07846416053,0.0773156804285,0.0763509571433,0.0759375043068,0.0760293827149,0.0766725315717,0.0763050179393,0.0763050179393,0.076121261123,0.0763050179393,0.0754781122662,0.0751565378378,0.0745593281851,0.0745593281851,0.0746052673891,0.0756159298784,0.0757078082865,0.0759834435109,0.076121261123,0.0764887747555,0.0758915651027,0.0763968963474,0.0763050179393,0.0762590787352,0.076902227592,0.0773616196326,0.0788776133665,0.079291066203,0.0797504582436,0.0800260934679,0.0808529991409,0.0812664519775,0.0819555400383,0.0818636616302,0.0829202633235,0.0831958985479,0.0837931082006,0.0861360076075,0.0876060621374,0.0886167246266,0.0888004814429,0.088938299055,0.0895814479118,0.0900867791565,0.0911433808498,0.0919243473188,0.0930268882161,0.0948644563784,0.096150754092,0.0966101461326,0.0974370518056,0.0973911126016,0.0978964438462,0.0983558358868,0.0991368023558,0.099320559172,0.100744674498,0.101295944946,0.101250005742,0.101801276191,0.101985033007,0.102398485844,0.102168789824,0.102536303456,0.10281193868,0.10405229719,0.103041634701,0.103501026741,0.102765999476,0.104190114802,0.104006357986,0.10382260117,0.10405229719,0.103455087537,0.103501026741,0.103087573905,0.103730722761,0.105338594904,0.106027682964,0.10575204774,0.105108898883,0.105017020475,0.104557628435,0.102995695497,0.102765999476,0.103271330721,0.102628181864,0.102444425048,0.10281193868,0.102444425048,0.102536303456,0.103776661966,0.104190114802,0.103914479578,0.104557628435,0.10451168923,0.104925142067,0.10405229719,0.102674121068,0.103317269925,0.103271330721,0.102765999476,0.103087573905,0.102857877884,0.103271330721,0.103271330721,0.103730722761,0.105017020475,0.104787324455,0.10428199321,0.103914479578,0.10405229719,0.104373871618,0.10258224266,0.101709397783,0.102030972211,0.102444425048,0.101755336987,0.101387823355,0.101571580171,0.101250005742,0.101295944946,0.101479701763,0.100836552906,0.100698735294,0.102030972211,0.102260668232,0.100836552906,0.0999177688247,0.0994124375801,0.0987233495192,0.0978964438462,0.0975748694178,0.0976208086219,0.0975289302138,0.0969776597651,0.096885781357,0.0975748694178,0.0974829910097,0.0976667478259,0.0976208086219,0.0965642069286,0.095323848419,0.0942213075216,0.0934403410527,0.094496942746,0.0947266387663,0.0942672467257,0.0934862802567,0.0936240978689,0.0933944018486,0.0934862802567,0.0931187666242,0.0933944018486,0.0939456722973,0.0947725779703,0.0947725779703,0.0938537938892,0.0938997330932,0.0948644563784,0.0942213075216,0.0933025234405,0.0926134353796,0.0924296785634,0.0920162257269,0.0924296785634,0.0933025234405,0.0933484626445,0.0931647058283,0.093715976277,0.0955076052352,0.0952319700109,0.0948185171744,0.0938537938892,0.0943591251338,0.094496942746,0.0951400916028,0.0966101461326,0.0971614165813,0.09771268703,0.0981720790706,0.0976208086219,0.0983098966827,0.0983098966827,0.0979883222543,0.0978505046422,0.0976208086219,0.0978505046422,0.0981720790706,0.0992746199679,0.0994583767842,0.0983098966827,0.0984017750908,0.0998718296207,0.0997799512126,0.0992746199679,0.0998718296207,0.0999637080288,0.100147464845,0.101020309722,0.101847215395,0.101801276191,0.101663458579,0.101755336987,0.101893154599,0.102536303456,0.101341884151,0.101617519375,0.100606856886,0.100698735294,0.100514978477,0.100055586437,0.0997340120085,0.099366498376,0.0990449239476,0.0990449239476,0.0989071063355,0.0978964438462,0.0964263893164,0.0967479637448,0.0962885717042,0.0968398421529,0.0967939029488,0.0965182677245,0.0959210580717,0.0954157268271,0.0950482131947,0.0953697876231,0.0967479637448,0.0956454228474,0.0960588756839,0.096104814888,0.0967939029488,0.0963804501123,0.0960129364799,0.0963345109083,0.0956913620515,0.0955076052352,0.095323848419,0.0948185171744,0.0947266387663,0.0944050643379,0.0951860308068,0.0945888211541,0.0959669972758,0.0954616660312,0.0957373012555,0.0961966932961,0.0971154773772,0.0958751188677,0.0950941523987,0.09454288195,0.0950022739906,0.0956454228474,0.0961966932961,0.0957832404596,0.0960588756839,0.0959669972758,0.0967479637448,0.0974829910097,0.0974829910097,0.0973911126016,0.097758626234,0.0975748694178,0.0965642069286,0.0966560853367,0.0960129364799,0.0967479637448,0.0956454228474,0.096150754092,0.0970695381732,0.0969776597651,0.0975748694178,0.0979423830503,0.0973451733975,0.0979883222543,0.0987692887233,0.0978045654381,0.096931720561,0.0967939029488,0.0967020245407,0.0966560853367,0.0972992341935,0.096885781357,0.0960588756839,0.0972532949894,0.0982180182746,0.0986314711111,0.098493653499,0.0982180182746,0.0979883222543,0.0981261398665,0.0984477142949,0.0984477142949,0.0985855319071,0.0979883222543,0.0986314711111,0.0984477142949,0.0980802006624,0.097758626234,0.0975289302138,0.0966101461326,0.0975289302138,0.0964723285204,0.096931720561,0.0974370518056,0.0971154773772,0.0956454228474,0.0954616660312,0.0940834899095,0.0943131859297,0.09454288195,0.0939916115013,0.0944510035419,0.0941294291135,0.0934862802567,0.0930268882161,0.0929809490121,0.0915568336863,0.0915108944822,0.0903164751768,0.0891220558713,0.0888464206469,0.0882951501982,0.0879735757698,0.0883870286063,0.0876979405455,0.0876060621374,0.087330426913,0.08650352124,0.0858144331791,0.0854009803426,0.0852631627304,0.084895649098,0.0852172235264,0.0848497098939,0.0846659530777,0.0851712843223,0.0838849866087,0.0844362570574,0.0837012297925,0.0826905673032,0.0818177224261,0.0816339656099,0.0808529991409,0.0814961479977,0.0812664519775,0.0808070599369,0.0807611207328,0.080072032672,0.080072032672,0.080072032672,0.0790613701827,0.07846416053,0.0792451269989,0.0787397957543,0.0786479173462,0.0789694917746,0.0790613701827,0.079337005407,0.0788316741624,0.0787397957543,0.0791073093868,0.0790613701827,0.0786479173462,0.0783722821218,0.077729133265,0.0772697412245,0.0764887747555,0.0763968963474,0.0755240514703,0.0758456258987,0.0757078082865,0.0754781122662,0.0758915651027,0.076075321919,0.0764428355514,0.0759375043068,0.0764887747555,0.0771319236123,0.0774534980407,0.0769481667961,0.0769941060001,0.076902227592,0.0757996866946,0.07529435545,0.0751105986338,0.0757078082865,0.0762590787352,0.0763968963474,0.0759375043068,0.0767644099798,0.0770859844082,0.0765347139595,0.0761672003271,0.0757996866946,0.0759834435109,0.0755240514703,0.0751565378378,0.0753402946541,0.0758456258987,0.0765806531636,0.0766265923677,0.0762131395311,0.0758915651027,0.0756618690825,0.0762590787352,0.0766725315717,0.0768562883879,0.0780047684894,0.0774075588366,0.0764887747555,0.0762131395311,0.0765347139595,0.0761672003271,0.0763968963474,0.0772238020204,0.0778210116732,0.0775913156529,0.077683194061,0.0780507076934,0.0791991877949,0.0799801542638,0.0796126406314,0.0799342150598,0.0807151815288,0.0805773639166,0.0796585798354,0.0797963974476,0.0803476678963,0.0799801542638,0.0801639110801,0.080072032672,0.0794748230192,0.0796126406314,0.0791532485908,0.0783263429178,0.077729133265,0.0780507076934,0.0780966468975,0.0786938565502,0.0787857349584,0.0783722821218,0.0780966468975,0.077729133265,0.0766725315717,0.0768562883879,0.0767184707758,0.0762131395311,0.0764887747555,0.0758915651027,0.0753862338581,0.0743296321648,0.0741918145526,0.0743755713689,0.074467449777,0.0746512065932,0.0739161793283,0.0736405441039,0.0741918145526,0.0740539969404,0.073732422512,0.0731811520634,0.0735027264918,0.0731352128593,0.0729514560431,0.0735486656958,0.0732270912674,0.0738243009202,0.073732422512,0.0738243009202,0.0737783617161,0.0746052673891,0.0749268418175,0.0752484162459,0.0758915651027,0.0759375043068,0.0762131395311,0.0767644099798,0.076121261123,0.0757996866946,0.0755240514703,0.0757537474906,0.0762590787352,0.0767644099798,0.0766725315717,0.0768103491839,0.0769481667961,0.0762131395311,0.0759834435109,0.0758915651027,0.0756618690825,0.0763509571433,0.0771778628163,0.0774534980407,0.0768562883879,0.0774534980407,0.0783263429178,0.0786938565502,0.0787857349584,0.0801639110801,0.0799342150598,0.0801639110801,0.0807151815288,0.0803476678963,0.0812205127734,0.0805773639166,0.0813123911815,0.0808070599369,0.0814961479977,0.080898938345,0.0806233031207,0.0800260934679,0.0803017286922,0.0803476678963,0.0809908167531,0.0820474184464,0.0830580809357,0.0829202633235,0.0823689928748,0.0817717832221,0.0818636616302,0.0828743241195,0.0826905673032,0.0834715337722,0.0838390474047,0.0837012297925,0.084114682629,0.0843443786493,0.0839309258128,0.0837931082006,0.084114682629,0.0838849866087,0.0830580809357,0.0825527496911,0.0829202633235,0.0817717832221,0.0821392968545,0.0819096008343,0.0825986888951,0.0826905673032,0.0820474184464,0.0837012297925,0.0830580809357,0.0827365065073,0.0818636616302,0.0820014792424,0.0819096008343,0.0820933576505,0.0815420872018,0.0814042695896,0.0813583303856,0.0800260934679,0.0797045190395,0.0791073093868,0.0791073093868,0.0795207622233,0.0783722821218,0.0778669508772,0.0780966468975,0.079291066203,0.0798882758557,0.0794288838152,0.079291066203,0.0780966468975,0.0779128900813,0.0775453764488,0.0774534980407,0.0774075588366,0.0774534980407,0.0774534980407,0.0767644099798,0.0770400452042,0.076902227592,0.0765806531636,0.0753402946541,0.0746971457973,0.07529435545,0.0741458753486,0.0736405441039,0.0743755713689,0.0753862338581,0.0758456258987,0.0755240514703,0.0754321730622,0.0757996866946,0.0757078082865,0.0754321730622,0.0754321730622,0.0753862338581,0.0754781122662,0.07529435545,0.0752484162459,0.0767644099798,0.0769481667961,0.0773156804285,0.0771319236123,0.0766265923677,0.0769941060001,0.0773616196326,0.0771778628163,0.0781885253056,0.0780047684894,0.0782344645097,0.0782804037137,0.0783722821218,0.0789694917746,0.0796126406314,0.0799342150598,0.079337005407,0.0798882758557,0.0806692423247,0.0812205127734,0.0804854855085,0.0802098502841,0.0810826951612,0.0813123911815,0.0811745735693,0.0816339656099,0.0820014792424,0.0799801542638,0.0775913156529,0.0751565378378,0.0732270912674,0.0717110975335,0.0694600765347,0.0678981435968,0.0663362106588,0.0643148856803,0.0616044726409,0.059261573234,0.0567808562149,0.0534732335228,0.0509006380955,0.0489711915251,0.0461689000776,0.0445610279356,0.0414371620597)
s <- c(0.0424066918507,0.04212647142,0.0420097129072,0.041963009502,0.0418696026918,0.0415193271534,0.041752844179,0.0414492720457,0.0406319624561,0.0410289413996,0.0408888311842,0.0414492720457,0.0414492720457,0.0417995475841,0.0415893822611,0.0414025686406,0.0413091618303,0.041169051615,0.041379216938,0.0411924033175,0.0411924033175,0.0408888311842,0.0410989965073,0.0410756448047,0.0416594373687,0.0415660305585,0.0415660305585,0.0419163060969,0.0421965265277,0.0419863612046,0.0417761958816,0.0415426788559,0.0411223482098,0.0413325135329,0.0417294924764,0.0421031197174,0.0646842160939,0.0660386148424,0.0669960346474,0.0686773572318,0.0698916457649,0.0712460445135,0.0725537398569,0.0743985243592,0.0758930333231,0.0765001775897,0.0777144661229,0.0782749069843,0.0791622716816,0.0797694159482,0.0811004629942,0.0818243657736,0.0832721713324,0.0842996462451,0.0837392053836,0.0836925019785,0.083879315599,0.0845798666758,0.084836735404,0.084836735404,0.0837859087887,0.0831787645221,0.0827117304709,0.0825949719581,0.0819411242864,0.0816609038557,0.0821279379069,0.0823381032299,0.0829919509016,0.0825716202555,0.082758433876,0.0828518406863,0.0831087094144,0.0830153026042,0.0831087094144,0.0830386543068,0.0830620060093,0.0833188747375,0.0831787645221,0.0829919509016,0.0828284889837,0.082921895794,0.0822680481223,0.0823614549325,0.0820578827992,0.081964475989,0.0815441453429,0.081801014071,0.0809603527788,0.0810537595891,0.0813339800198,0.0818944208813,0.0814974419377,0.0805633738353,0.080049636379,0.0799328778662,0.0800963397841,0.0807501874558,0.0807501874558,0.0811471663993,0.0816375521531,0.081590848748,0.0809136493737,0.0809837044814,0.0804466153225,0.080633428943,0.080259801702,0.0803765602148,0.0797227125431,0.0792556784919,0.078928754656,0.0785551274151,0.0784617206048,0.0791856233842,0.0790221614663,0.0788119961432,0.0786485342253,0.0787886444407,0.0792089750868,0.0794891955175,0.0792790301945,0.0800262846764,0.0802130982969,0.081007056184,0.0820578827992,0.0821512896094,0.0825249168504,0.0820812345018,0.0822213447171,0.0825015651479,0.0822680481223,0.0821279379069,0.0820812345018,0.0820111793941,0.082174641312,0.0817776623685,0.0817543106659,0.0808902976712,0.0803999119174,0.0807268357532,0.0809370010763,0.0808202425635,0.0809370010763,0.0813106283173,0.0817076072608,0.0820345310966,0.0820111793941,0.0820345310966,0.0823147515274,0.0818944208813,0.0814974419377,0.0814040351275,0.0816375521531,0.081590848748,0.0812872766147,0.0818477174762,0.0823147515274,0.0813106283173,0.0812639249121,0.0803298568097,0.0798628227585,0.079886174461,0.0796993608405,0.0795592506252,0.0791856233842,0.0788353478458,0.0787419410355,0.0786485342253,0.0786485342253,0.0784850723074,0.0785317757125,0.0789988097637,0.0787652927381,0.0794658438149,0.079886174461,0.0793490853021,0.0793490853021,0.0799562295687,0.0796059540303,0.0789754580612,0.0790221614663,0.0791155682765,0.0793490853021,0.0793490853021,0.0789754580612,0.0784150171997,0.0786485342253,0.078718589333,0.0791622716816,0.0789988097637,0.0786952376304,0.0770606184512,0.0769205082358,0.0771540252614,0.0770839701537,0.0770839701537,0.0775977076101,0.0779012797434,0.078134796769,0.0785784791176,0.0797927676508,0.0803298568097,0.0805400221327,0.0813573317224,0.0814040351275,0.0810771112916,0.0811705181019,0.0804699670251,0.0803532085123,0.0800262846764,0.0802831534046,0.0800963397841,0.0797227125431,0.0794658438149,0.0797460642457,0.0804232636199,0.0800029329738,0.0794891955175,0.0793490853021,0.0793724370047,0.0794191404098,0.0797927676508,0.0799562295687,0.0800729880815,0.0797460642457,0.0799095261636,0.080049636379,0.0805867255379,0.081007056184,0.0812639249121,0.0812872766147,0.0817309589634,0.0815674970454,0.0805633738353,0.0802130982969,0.0797227125431,0.0788820512509,0.0788820512509,0.0788119961432,0.0782282035792,0.0786251825227,0.0786251825227,0.0783916654971,0.0786018308202,0.0792323267893,0.0796293057329,0.0792323267893,0.0793490853021,0.0791856233842,0.0789988097637,0.0790221614663,0.0786018308202,0.0792790301945,0.0795125472201,0.0797460642457,0.0805400221327,0.081007056184,0.0807968908609,0.0807268357532,0.0808202425635,0.0805867255379,0.081007056184,0.081217221507,0.0811705181019,0.0805166704302,0.0806801323481,0.0808902976712,0.0799095261636,0.0793257335996,0.0795826023277,0.0794424921124,0.0798161193534,0.0798628227585,0.0801663948918,0.0805867255379,0.0807968908609,0.0807268357532,0.0807034840507,0.0804699670251,0.0806567806455,0.0805867255379,0.0800963397841,0.0800029329738,0.0800963397841,0.0803532085123,0.0799562295687,0.0799562295687,0.0800262846764,0.0794191404098,0.0795125472201,0.0794424921124,0.078718589333,0.0781815001741,0.0777378178254,0.0776911144203,0.0770372667486,0.0766636395076,0.0764768258871,0.0770372667486,0.0773641905845,0.0776444110152,0.0772941354768,0.077013915046,0.0782282035792,0.0786485342253,0.0794191404098,0.0797227125431,0.0793957887073,0.0792790301945,0.0782515552818,0.0782982586869,0.0779479831485,0.0773641905845,0.0782048518766,0.0781815001741,0.0782048518766,0.0778078729331,0.0779246314459,0.0786952376304,0.0790455131688,0.0788820512509,0.0788119961432,0.0789054029535,0.0788119961432,0.0797694159482,0.0797460642457,0.0799095261636,0.0801897465943,0.0807968908609,0.081007056184,0.0815441453429,0.0820111793941,0.0828985440914,0.0831787645221,0.083715853681,0.0839260190041,0.0841128326246,0.0842996462451,0.0847433285937,0.0846032183784,0.0838092604913,0.0830620060093,0.0832254679273,0.0835990951682,0.0837859087887,0.0847666802963,0.0846966251886,0.0850702524296,0.0861911341525,0.0858175069115,0.0862144858551,0.0864012994755,0.0866348165012,0.0866581682037,0.0862845409627,0.0863312443679,0.0865180579883,0.0870784988498,0.0870784988498,0.0878491050343,0.0872419607677,0.0871952573626,0.0871018505524,0.0865180579883,0.086377947773,0.086751575014,0.086751575014,0.0871952573626,0.0874521260908,0.0872186090652,0.0864947062858,0.0858875620192,0.0857474518038,0.0861210790448,0.0866114647986,0.0867749267165,0.0878024016292,0.0881526771676,0.0880359186548,0.0881293254651,0.0881293254651,0.0881526771676,0.0884328975983,0.0883394907881,0.0877790499266,0.0879658635471,0.087545532901,0.0877556982241,0.0873820709831,0.0878024016292,0.0874287743882,0.0878024016292,0.0876622914138,0.087708994819,0.0874988294959,0.0864713545832,0.0862144858551,0.0862378375576,0.0860977273423,0.086004320532,0.0855372864808,0.084836735404,0.0844397564604,0.0843463496502,0.084089480922,0.0836925019785,0.0839026673015,0.0844864598655,0.0857007483987,0.0855606381833,0.0851403075373,0.0851169558347,0.0847900319988,0.0851870109424,0.0855372864808,0.084836735404,0.0847666802963,0.0843463496502,0.0843229979476,0.0846966251886,0.0846499217835,0.0843463496502,0.0848133837014,0.0843229979476,0.084673273486,0.084673273486,0.0850702524296,0.0847666802963,0.0852570660501,0.0857007483987,0.0860276722346,0.087335367578,0.0876389397113,0.0881526771676,0.0886197112188,0.089460372511,0.0899507582648,0.090417792316,0.0905345508288,0.0902776821007,0.0904411440186,0.0908614746647,0.0909782331775,0.0910949916903,0.0907680678544,0.0915620257415,0.0913285087159,0.0919356529825,0.0918655978748,0.0913518604185,0.0910716399877,0.0923092802235,0.0927996659772,0.0929864795977,0.0928697210849,0.0927763142747,0.0932433483259,0.0936169755669,0.0936169755669,0.0942007681309,0.0942241198335,0.0944342851565,0.0942941749411,0.0943408783463,0.0943875817514,0.0938504925925,0.0940139545104,0.0932667000285,0.0937804374848,0.093453513649,0.0935702721618,0.0934068102438,0.0932199966233,0.0931966449208,0.0928930727875,0.0934301619464,0.0934068102438,0.0937804374848,0.0941540647258,0.0941774164283,0.0937337340797,0.0931032381105,0.0933367551361,0.0925895006542,0.0927529625721,0.0925194455465,0.0931732932182,0.0925427972491,0.0923793353311,0.0928463693824,0.0926595557619,0.0927996659772,0.0927529625721,0.093079886408,0.093290051731,0.0931032381105,0.0930565347054,0.092706259167,0.0930098313003,0.0928230176798,0.0926128523568,0.0926829074644,0.0926595557619,0.0927529625721,0.0926362040593,0.0929631278952,0.0926829074644,0.0926595557619,0.0927529625721,0.0925427972491,0.0926829074644,0.0928463693824,0.0927763142747,0.0926829074644,0.0921925217107,0.0916787842543,0.0915153223364,0.0917955427671,0.0920991149004,0.0919590046851,0.092122466603,0.0924026870337,0.0915620257415,0.0917021359569,0.0912117502031,0.0906980127468,0.0907680678544,0.0903710889109,0.0898573514546,0.0891801520803,0.0889933384598,0.0888532282444,0.0889466350547,0.0893669657008,0.0895304276187,0.0896938895366,0.0899040548597,0.0900441650751,0.0899974616699,0.0894837242136,0.088876579947,0.0887131180291,0.0890166901624,0.0892035037829,0.0891801520803,0.0895304276187,0.0900441650751,0.0896705378341,0.0897872963469,0.0900908684802,0.0898807031571,0.0903010338032,0.090791419557,0.0918655978748,0.0920290597927,0.0928463693824,0.0927529625721,0.0938037891874,0.0942241198335,0.0942708232386,0.0948779675052,0.0954150566641,0.095578518582,0.0964425315768,0.0979603922432,0.0985675365098,0.0989645154533,0.0992213841815,0.0991746807764,0.0990579222636,0.0992914392892,0.100295562499,0.100645838038,0.100785948253,0.10167331295,0.102467270837,0.10340133894,0.103751614478,0.104031834909,0.104195296827,0.104872496201,0.105362881955,0.105573047278,0.105923322817,0.106530467083,0.106600522191,0.106927446027,0.107044204539,0.107090907945,0.106693929001,0.106810687514,0.106904094324,0.108001624344,0.107557941996,0.10804832775,0.108165086262,0.108842285637,0.108632120314,0.108795582232,0.108725527124,0.108001624344,0.108095031155,0.108281844775,0.10905245096,0.110220036088,0.110827180354,0.110897235462,0.110523608221,0.110406849708,0.109986519062,0.109262616283,0.10923926458,0.108935692447,0.108445306693,0.107861514129,0.10804832775,0.107371128375,0.106857390919,0.106763984109,0.106623873893,0.105829916006,0.105549695576,0.10540958536,0.105432937063,0.104638979176,0.103237877022,0.103121118509,0.102910953186,0.101766719761,0.101136223792,0.100155452284,0.099408197802,0.0987777018329,0.0992447358841,0.0996884182327,0.0989645154533,0.0983340194842,0.0977969303253,0.0970263241408,0.0965826417921,0.0954150566641,0.0946678021821,0.0943408783463,0.0937103823771,0.0932667000285,0.0934768653515,0.0930565347054,0.092332631926,0.0919123012799,0.091748839362,0.0916554325518,0.0914452672287,0.0920991149004,0.0927296108696,0.0919590046851,0.0916320808492,0.0914919706338,0.0910716399877,0.0905579025314,0.0901609235879,0.0901142201827,0.0900675167776,0.0895304276187,0.0890166901624,0.0894136691059,0.0897405929418,0.0902309786955,0.0906513093416,0.0902776821007,0.0893903174033,0.0883394907881,0.0879892152497,0.0891334486752,0.0894136691059,0.0898106480494,0.0890633935675,0.088876579947,0.0887598214342,0.088876579947,0.0889933384598,0.0887831731368,0.0885496561112,0.0890166901624,0.0896004827264,0.089623834429,0.0898106480494,0.0897639446443,0.0893903174033,0.088502952706,0.0877790499266,0.0874054226857,0.0871018505524,0.0871252022549,0.0876155880087,0.0875688846036,0.0875221811985,0.0880826220599,0.0888999316496,0.0890867452701,0.0892035037829,0.0888999316496,0.0887598214342,0.0884095458958,0.0891801520803,0.0898106480494,0.0900208133725,0.0904878474237,0.0902543303981,0.0893903174033,0.089460372511,0.0893436139982,0.0895070759162,0.089833999752,0.0896004827264,0.0893669657008,0.0896471861315,0.0900441650751,0.0903944406135,0.0903243855058,0.0896004827264,0.0899274065622,0.0898106480494,0.0898573514546,0.0900908684802,0.0903477372083,0.0905111991263,0.0912818053108,0.0919123012799,0.0921925217107,0.0921925217107,0.0922158734132,0.0920524114953,0.0923092802235,0.0918889495774,0.0920991149004,0.0911416950954,0.0910716399877,0.0911183433929,0.0912351019057,0.0911416950954,0.0911416950954,0.0910949916903,0.0910249365826,0.0916554325518,0.0914219155262,0.0906513093416,0.0909081780698,0.090417792316,0.0901609235879,0.0899507582648,0.0900908684802,0.0891334486752,0.0891100969726,0.0887831731368,0.0883861941932,0.0896004827264,0.0892268554854,0.0894370208085,0.0894837242136,0.0899507582648,0.0897872963469,0.089460372511,0.0895304276187,0.0892035037829,0.089250207188,0.0884328975983,0.0883861941932,0.0886897663265,0.0889466350547,0.0895070759162,0.0885730078137,0.0895304276187,0.0892035037829,0.0892735588905,0.0893669657008,0.0892969105931,0.0882694356804,0.0876389397113,0.087335367578,0.0872653124703,0.0874287743882,0.0880826220599,0.0875688846036,0.0879425118446,0.0880359186548,0.0887364697316,0.0893436139982,0.089460372511,0.0892969105931,0.0893202622957,0.0892035037829,0.0887598214342,0.0892268554854,0.0889466350547,0.0892969105931,0.0884095458958,0.0888999316496,0.0894370208085,0.0893669657008,0.0897172412392,0.0897405929418,0.090207626993,0.090417792316,0.0910949916903,0.0901375718853,0.089623834429,0.089623834429,0.0897639446443,0.0900208133725,0.0903477372083,0.0900908684802,0.0894837242136,0.0902776821007,0.090791419557,0.0912351019057,0.0913051570133,0.0915153223364,0.0913518604185,0.0915853774441,0.0916320808492,0.0918655978748,0.0918655978748,0.0913985638236,0.0920057080902,0.0919590046851,0.0921925217107,0.092332631926,0.0919123012799,0.0912818053108,0.0914919706338,0.0905111991263,0.0909782331775,0.0910949916903,0.0907680678544,0.090581254234,0.0906046059365,0.0899974616699,0.0901842752904,0.0902543303981,0.0895304276187,0.0895537793213,0.089460372511,0.0897172412392,0.0891334486752,0.089250207188,0.0881059737625,0.0879425118446,0.0871952573626,0.0866348165012,0.086961740337,0.0861911341525,0.0863078926653,0.0862378375576,0.085630693291,0.0853738245629,0.0848133837014,0.0841828877323,0.0837392053836,0.0833889298452,0.0834356332503,0.0833188747375,0.083132061117,0.0831554128196,0.0833889298452,0.0835757434657,0.083132061117,0.0838326121938,0.0833188747375,0.0824315100402,0.0821512896094,0.0820578827992,0.0816375521531,0.081590848748,0.0811238146968,0.0814040351275,0.0816375521531,0.0814740902352,0.0810537595891,0.080633428943,0.080259801702,0.0796526574354,0.0805400221327,0.0806801323481,0.0807501874558,0.0812872766147,0.0809136493737,0.0815441453429,0.0814040351275,0.081590848748,0.0817543106659,0.081964475989,0.0820345310966,0.0816375521531,0.0814974419377,0.0813806834249,0.0806801323481,0.0804232636199,0.079886174461,0.0794424921124,0.0792790301945,0.0788586995484,0.0792790301945,0.0792089750868,0.0797460642457,0.0797927676508,0.0797694159482,0.0800262846764,0.0803065051071,0.0805400221327,0.0805400221327,0.080049636379,0.0792323267893,0.0791155682765,0.079092216574,0.0794191404098,0.0794891955175,0.0794658438149,0.0789754580612,0.0792790301945,0.0795592506252,0.0790221614663,0.0790221614663,0.078928754656,0.0785317757125,0.077971334851,0.0783216103895,0.0783216103895,0.0785551274151,0.0787886444407,0.0789988097637,0.0786485342253,0.0788353478458,0.079092216574,0.0795358989226,0.0803065051071,0.080259801702,0.0816375521531,0.0813806834249,0.0811705181019,0.0807735391584,0.0809136493737,0.0810771112916,0.0808669459686,0.0811471663993,0.0813339800198,0.0810304078865,0.081590848748,0.0823614549325,0.0831554128196,0.0836224468708,0.0839260190041,0.0842062394348,0.0847666802963,0.0852804177526,0.0850235490244,0.0853971762654,0.0856773966962,0.0856540449936,0.0854672313731,0.0858642103166,0.0860977273423,0.0863078926653,0.0859576171269,0.0855839898859,0.0855839898859,0.0855139347782,0.0859809688294,0.0864713545832,0.0865180579883,0.0863545960704,0.0858642103166,0.0857474518038,0.0845098115681,0.0843229979476,0.0839960741118,0.083715853681,0.0837625570862,0.0835757434657,0.082921895794,0.081964475989,0.0819411242864,0.0824548617427,0.0822446964197,0.0818243657736,0.0814273868301,0.0814040351275,0.0814507385326,0.0814974419377,0.0813106283173,0.0808202425635,0.0806100772404,0.0802364499995,0.0803298568097,0.0806801323481,0.080633428943,0.0804232636199,0.079676009138,0.0792323267893,0.0798394710559,0.0804699670251,0.0807268357532,0.0809136493737,0.0811471663993,0.0804466153225,0.0807034840507,0.0811938698045,0.0811471663993,0.0808202425635,0.0805400221327,0.0809136493737,0.0814040351275,0.0818710691787,0.0818944208813,0.0822680481223,0.0827817855786,0.0828985440914,0.0827117304709,0.0824315100402,0.0822446964197,0.0824548617427,0.0826650270658,0.0828751923888,0.0825015651479,0.0824548617427,0.0828985440914,0.0826650270658,0.0827817855786,0.0835990951682,0.0832488196298,0.083132061117,0.0836925019785,0.0838326121938,0.084836735404,0.0840427775169,0.0833655781426,0.0825949719581,0.0831554128196,0.0828284889837,0.0826183236607,0.0825949719581,0.0822913998248,0.082174641312,0.0824315100402,0.0830386543068,0.0835990951682,0.0836925019785,0.0834823366554,0.0832721713324,0.0836224468708,0.0838092604913,0.0839260190041,0.0842996462451,0.0842996462451,0.0845565149732,0.0843463496502,0.0847199768912,0.0842996462451,0.0841595360297,0.0844864598655,0.0845331632707,0.0839493707066,0.0839493707066,0.0846032183784,0.0839260190041,0.0846032183784,0.0847900319988,0.0847900319988,0.0850001973219,0.0840661292194,0.0854672313731,0.0855839898859,0.0857474518038,0.0850001973219,0.0850702524296,0.085046900727,0.0849067905116,0.084836735404,0.0847900319988,0.0847433285937,0.084463108163,0.0843697013527,0.0835290400605,0.0833889298452,0.0836224468708,0.0829919509016,0.0826650270658,0.0825949719581,0.0830386543068,0.0833422264401,0.0829685991991,0.0833655781426,0.0823614549325,0.0823147515274,0.081801014071,0.0814740902352,0.0816842555582,0.0817776623685,0.0817076072608,0.0812872766147,0.0814040351275,0.0806567806455,0.0803999119174,0.0799095261636,0.0791155682765,0.0800262846764,0.0796059540303,0.0793957887073,0.0796059540303,0.0801430431892,0.0803999119174,0.0801430431892,0.0804466153225,0.0809370010763,0.081007056184,0.0807735391584,0.0801196914866,0.0801430431892,0.0803999119174,0.0800262846764,0.0797227125431,0.0801897465943,0.0801663948918,0.0799795812713,0.0799328778662,0.0797927676508,0.0796993608405,0.0797227125431,0.0795358989226,0.080049636379,0.0803765602148,0.0804466153225,0.0801196914866,0.0804466153225,0.0808902976712,0.0807735391584,0.0805400221327,0.0803298568097,0.0802831534046,0.0803999119174,0.0807268357532,0.0797460642457,0.0792556784919,0.0797927676508,0.0801897465943,0.0806801323481,0.0808669459686,0.081007056184,0.0800029329738,0.0782982586869,0.0775977076101,0.0765702326974,0.076219957159,0.0753092407591,0.074515282872,0.0736979732824,0.0728573119902,0.0720633541031,0.0712927479186,0.0709424723802,0.0691677429856,0.0678366959396,0.0670427380525,0.0656182841963,0.0654548222784,0.0640070167196,0.043083891225,0.0432707048455,0.0435042218711,0.0433174082506,0.0434108150608,0.0436209803839,0.0441580695428,0.0442047729479,0.0442748280556,0.0444616416761,0.0445083450812,0.0448119172145,0.0449520274298,0.0449053240247,0.0450220825375,0.0447185104042,0.0446951587017,0.0445550484863,0.0448586206196,0.0451388410503,0.0444849933786,0.0447418621068,0.0445083450812,0.0446718069991,0.0446017518914,0.0454657648862,0.0458393921272,0.0455124682913,0.045208896158,0.0445083450812,0.0446718069991,0.0447652138094,0.044998730835,0.0449286757273,0.0442047729479,0.0441113661376)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("3-organelles-nucleus-merged/NRPD1-Columbia-ChIP-GSM1103230.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=72"),bty="n")
dev.off()