# R script for Peak Model
#  -- generated by MACS
p <- c(0.0285235319138,0.0300247704356,0.0317762153777,0.0337778667401,0.0367803437836,0.0385317887257,0.0395326144069,0.0405334400881,0.0417844721896,0.0425350914504,0.0432857107113,0.0440363299722,0.0457877749143,0.0467886005955,0.0492906647985,0.0502914904796,0.0517927290014,0.0512923161608,0.052293141842,0.0507919033202,0.0507919033202,0.0517927290014,0.0517927290014,0.0512923161608,0.0517927290014,0.0525433482623,0.052293141842,0.0515425225811,0.0502914904796,0.0495408712188,0.0495408712188,0.0495408712188,0.0510421097405,0.0520429354217,0.0527935546826,0.0530437611029,0.0537943803638,0.0525433482623,0.0515425225811,0.0505416968999,0.0505416968999,0.0500412840593,0.0510421097405,0.0515425225811,0.0520429354217,0.0525433482623,0.0550454124653,0.0560462381465,0.054795206045,0.0545449996247,0.0532939675232,0.0525433482623,0.0507919033202,0.0510421097405,0.0510421097405,0.0495408712188,0.0490404583782,0.0482898391173,0.0467886005955,0.0470388070158,0.0462881877549,0.0475392198564,0.0472890134361,0.048039632697,0.0487902519579,0.0485400455376,0.0465383941752,0.0475392198564,0.0465383941752,0.0457877749143,0.0440363299722,0.0450371556534,0.0440363299722,0.0445367428128,0.0465383941752,0.0482898391173,0.0472890134361,0.0475392198564,0.0475392198564,0.0475392198564,0.0442865363925,0.0447869492331,0.0440363299722,0.0445367428128,0.0450371556534,0.045537568494,0.0452873620737,0.0470388070158,0.0472890134361,0.0477894262767,0.0487902519579,0.0490404583782,0.0500412840593,0.0482898391173,0.0490404583782,0.0482898391173,0.0485400455376,0.0490404583782,0.0487902519579,0.0495408712188,0.0512923161608,0.0517927290014,0.0515425225811,0.0520429354217,0.0527935546826,0.0517927290014,0.0517927290014,0.0520429354217,0.0510421097405,0.0492906647985,0.0487902519579,0.0490404583782,0.0485400455376,0.0487902519579,0.0497910776391,0.0482898391173,0.0492906647985,0.0492906647985,0.0500412840593,0.0495408712188,0.0505416968999,0.0507919033202,0.0495408712188,0.0502914904796,0.0492906647985,0.0502914904796,0.0507919033202,0.0517927290014,0.0520429354217,0.0525433482623,0.0542947932044,0.0540445867841,0.0530437611029,0.0535441739435,0.0525433482623,0.0507919033202,0.0510421097405,0.0515425225811,0.0517927290014,0.0525433482623,0.0520429354217,0.0517927290014,0.0515425225811,0.0517927290014,0.0535441739435,0.0540445867841,0.054795206045,0.0555458253059,0.0567968574074,0.0577976830885,0.0577976830885,0.0577976830885,0.0575474766683,0.0580478895088,0.0582980959291,0.057297270248,0.0585483023494,0.0577976830885,0.0587985087697,0.0575474766683,0.057297270248,0.0577976830885,0.0570470638277,0.0562964445668,0.0552956188856,0.0537943803638,0.0545449996247,0.054795206045,0.0537943803638,0.054795206045,0.054795206045,0.0550454124653,0.0552956188856,0.0552956188856,0.0565466509871,0.0570470638277,0.057297270248,0.0585483023494,0.0565466509871,0.0560462381465,0.0560462381465,0.0555458253059,0.0535441739435,0.0535441739435,0.0540445867841,0.0542947932044,0.0550454124653,0.0552956188856,0.0552956188856,0.0552956188856,0.0540445867841,0.0542947932044,0.0552956188856,0.0560462381465,0.0562964445668,0.0552956188856,0.0560462381465,0.0560462381465,0.0555458253059,0.0552956188856,0.0555458253059,0.0537943803638,0.0565466509871,0.0567968574074,0.0565466509871,0.0557960317262,0.0560462381465,0.0567968574074,0.0567968574074,0.0565466509871,0.0555458253059,0.0540445867841,0.0550454124653,0.0555458253059,0.0550454124653,0.0542947932044,0.0552956188856,0.0552956188856,0.0540445867841,0.0535441739435,0.0525433482623,0.0530437611029,0.0532939675232,0.0535441739435,0.054795206045,0.0545449996247,0.0542947932044,0.0555458253059,0.0540445867841,0.0557960317262,0.0557960317262,0.0570470638277,0.0562964445668,0.0565466509871,0.0562964445668,0.0577976830885,0.0557960317262,0.0560462381465,0.0570470638277,0.0580478895088,0.057297270248,0.0580478895088,0.0577976830885,0.0585483023494,0.0587985087697,0.0605499537118,0.0608001601321,0.0610503665524,0.0625516050742,0.0650536692772,0.0638026371757,0.064052843596,0.0645532564366,0.0653038756975,0.0663047013786,0.0670553206395,0.0668051142192,0.0663047013786,0.0645532564366,0.0648034628569,0.064052843596,0.0628018114945,0.0650536692772,0.0643030500163,0.0645532564366,0.065804288538,0.0660544949583,0.0678059399004,0.0690569720019,0.0678059399004,0.0678059399004,0.0673055270598,0.0673055270598,0.0670553206395,0.0690569720019,0.0685565591613,0.0685565591613,0.0680561463207,0.0693071784222,0.0690569720019,0.0698075912628,0.0685565591613,0.0688067655816,0.068306352741,0.0693071784222,0.0690569720019,0.0715590362049,0.0725598618861,0.0720594490455,0.0725598618861,0.0728100683064,0.0728100683064,0.0753121325093,0.0743113068281,0.0760627517702,0.0773137838717,0.0785648159732,0.0788150223935,0.0793154352341,0.0813170865964,0.0833187379588,0.0833187379588,0.0825681186979,0.086821627843,0.0880726599445,0.0900743113068,0.0903245177271,0.0920759626692,0.0920759626692,0.0923261690895,0.0945780268722,0.0968298846548,0.0968298846548,0.0970800910751,0.0965796782345,0.0980809167563,0.0970800910751,0.0963294718142,0.0970800910751,0.0983311231766,0.0955788525534,0.0968298846548,0.0975805039157,0.0970800910751,0.0970800910751,0.100332774539,0.100582980959,0.102834838742,0.102084219481,0.102584632322,0.100582980959,0.102084219481,0.103085045162,0.10133360022,0.10133360022,0.102834838742,0.104085870843,0.103835664423,0.105837315786,0.105336902945,0.105336902945,0.104336077264,0.104085870843,0.103335251583,0.102834838742,0.100082568119,0.10133360022,0.102084219481,0.103585458003,0.102834838742,0.106337728626,0.106587935046,0.107588760728,0.10959041209,0.114844746916,0.115345159757,0.117346811119,0.11809743038,0.121600320264,0.118597843221,0.119098256061,0.119098256061,0.120599494583,0.121099907424,0.122350939525,0.121600320264,0.120099081742,0.120099081742,0.119098256061,0.116846398279,0.116596191858,0.115595366177,0.115595366177,0.113843921235,0.115345159757,0.115595366177,0.117346811119,0.121350113844,0.121350113844,0.123351765206,0.122100733105,0.124102384467,0.127355067931,0.131608577076,0.130607751395,0.131858783496,0.131108164235,0.131108164235,0.129857132134,0.127605274351,0.127855480772,0.127605274351,0.128105687192,0.129106512873,0.129106512873,0.128606100033,0.129356719293,0.127355067931,0.127855480772,0.127855480772,0.128606100033,0.128856306453,0.130357544975,0.133360022018,0.135361673381,0.13511146696,0.134360847699,0.136862911902,0.138614356844,0.138864563265,0.138864563265,0.135611879801,0.138364150424,0.140365801786,0.142367453149,0.141867040308,0.140616008207,0.139114769685,0.138614356844,0.140115595366,0.141616833888,0.142117246729,0.140866214627,0.146871168714,0.147871994395,0.150624265019,0.147871994395,0.149873645758,0.150624265019,0.153876948482,0.154127154903,0.155378187004,0.156629219106,0.158630870468,0.160632521831,0.162634173193,0.164385618135,0.163384792454,0.161883553932,0.162884379613,0.164635824555,0.166887682338,0.166387269497,0.167137888758,0.167388095179,0.169139540121,0.16863912728,0.169890159381,0.170890985063,0.170140365802,0.169639952961,0.169639952961,0.171391397903,0.173643255686,0.175895113469,0.175144494208,0.177896764831,0.176145319889,0.175644907048,0.176145319889,0.177896764831,0.180649035454,0.181399654715,0.178146971251,0.178647384092,0.180649035454,0.180398829034,0.178647384092,0.180398829034,0.179147796932,0.183651512498,0.18590337028,0.18540295744,0.18540295744,0.186653989541,0.184902544599,0.186403783121,0.187154402382,0.186653989541,0.187404608802,0.190907498686,0.189156053744,0.189156053744,0.188905847324,0.189156053744,0.189156053744,0.187154402382,0.186153576701,0.186904195962,0.187905021643,0.190156879426,0.188655640904,0.189406260165,0.190657292266,0.191658117947,0.190907498686,0.19390997573,0.194910801411,0.197913278455,0.198663897716,0.196161833513,0.198914104136,0.196161833513,0.198914104136,0.19390997573,0.192658943628,0.197913278455,0.197913278455,0.197663072034,0.197412865614,0.195911627092,0.194910801411,0.199414516977,0.199664723397,0.197913278455,0.198163484875,0.198163484875,0.197412865614,0.198663897716,0.200415342658,0.20241699402,0.203417819701,0.200165136237,0.200165136237,0.196161833513,0.197663072034,0.198914104136,0.195411214252,0.195911627092,0.195411214252,0.19365976931,0.197663072034,0.195661420672,0.195411214252,0.198413691295,0.198663897716,0.200415342658,0.197663072034,0.197913278455,0.198163484875,0.194660594991,0.195161007831,0.193159356469,0.19365976931,0.193159356469,0.195161007831,0.190156879426,0.192408737208,0.189656466585,0.190907498686,0.191908324368,0.194910801411,0.194910801411,0.196662246353,0.199414516977,0.197913278455,0.203167613281,0.206670503165,0.209923186629,0.209672980209,0.21092401231,0.215177521455,0.218680411339,0.219681237021,0.223184126905,0.225435984687,0.22768784247,0.230440113093,0.233692796557,0.23594465434,0.240198163485,0.245202291891,0.248955388195,0.2527084845,0.254960342282,0.257712612906,0.260214677109,0.26096529637,0.262716741312,0.262216328471,0.265218805515,0.262216328471,0.262966947732,0.26171591563,0.258963645007,0.257212200065,0.2527084845,0.245952911152,0.240948782746,0.238196512123,0.231440938774,0.223934746166,0.220932269122,0.217429379238,0.212175044412,0.206920709585,0.201416168339,0.197412865614,0.191407911527,0.183651512498,0.178146971251,0.173893462106,0.167888508019,0.162133760352,0.155378187004,0.149123026497,0.142117246729,0.135862086221,0.133610228438,0.129356719293,0.12685465509,0.123601971627,0.119098256061,0.116596191858,0.113093301974,0.110841444191,0.108339379988,0.106337728626,0.106587935046,0.104836490104,0.105086696525,0.105837315786,0.103835664423,0.103835664423,0.104085870843,0.103335251583,0.100332774539,0.10133360022,0.0988315360172,0.0985813295969,0.0975805039157,0.0963294718142,0.0958290589737,0.0963294718142,0.0965796782345,0.0955788525534,0.0948282332925,0.0933269947707,0.0930767883504,0.0930767883504,0.0940776140316,0.0953286461331,0.093577201191,0.0940776140316,0.0913253434083,0.0913253434083,0.0918257562489,0.0905747241474,0.0905747241474,0.0908249305677,0.0920759626692,0.091075136988,0.088573072785,0.0888232792053,0.0883228663648,0.088573072785,0.0898241048865,0.0880726599445,0.0860710085821,0.0883228663648,0.0895738984662,0.0873220406836,0.0888232792053,0.088573072785,0.0878224535242,0.0883228663648,0.0880726599445,0.0873220406836,0.0865714214227,0.0850701829009,0.0845697700603,0.0855705957415,0.0838191507994,0.0833187379588,0.0815672930167,0.0810668801761,0.0803162609153,0.0783146095529,0.0803162609153,0.0788150223935,0.077563990292,0.077563990292,0.0743113068281,0.0720594490455,0.0713088297846,0.0718092426252,0.0730602747266,0.0730602747266,0.0733104811469,0.0740611004078,0.0743113068281,0.0743113068281,0.0758125453499,0.0743113068281,0.0728100683064,0.0735606875672,0.0723096554658,0.0720594490455,0.070808416944,0.0698075912628,0.0690569720019,0.0688067655816,0.0678059399004,0.0668051142192,0.0680561463207,0.0685565591613,0.0693071784222,0.0688067655816,0.0695573848425,0.0680561463207,0.0668051142192,0.0660544949583,0.0655540821177,0.0668051142192,0.0670553206395,0.0678059399004,0.0685565591613,0.070808416944,0.0693071784222,0.068306352741,0.0668051142192,0.0668051142192,0.0673055270598,0.0665549077989,0.0655540821177,0.0655540821177,0.0650536692772,0.0648034628569,0.0648034628569,0.0638026371757,0.0635524307554,0.0633022243351,0.0653038756975,0.0663047013786,0.0663047013786,0.0673055270598,0.0668051142192,0.0673055270598,0.0668051142192,0.065804288538,0.0650536692772,0.0643030500163,0.0635524307554,0.0643030500163,0.0635524307554,0.0633022243351,0.0613005729727,0.0618009858133,0.0613005729727,0.0597993344509,0.0605499537118,0.0597993344509,0.0587985087697,0.0580478895088,0.0575474766683,0.0565466509871,0.0557960317262,0.0550454124653,0.054795206045,0.054795206045,0.0535441739435,0.0552956188856,0.0557960317262,0.0575474766683,0.0582980959291,0.0582980959291,0.0580478895088,0.0597993344509,0.0595491280306,0.0585483023494,0.0595491280306,0.0597993344509,0.0595491280306,0.0592989216103,0.0592989216103,0.0595491280306,0.0605499537118,0.0592989216103,0.0597993344509,0.0602997472915,0.0608001601321,0.0592989216103,0.0597993344509,0.0613005729727,0.0613005729727,0.0600495408712,0.0613005729727,0.0623013986539,0.0628018114945,0.0625516050742,0.0630520179148,0.0620511922336,0.0625516050742,0.0635524307554,0.0645532564366,0.0645532564366,0.0630520179148,0.0625516050742,0.0638026371757,0.0618009858133,0.0595491280306,0.0575474766683,0.0565466509871,0.0570470638277,0.0567968574074,0.0575474766683,0.0570470638277,0.0575474766683,0.057297270248,0.0567968574074,0.0557960317262,0.0557960317262,0.0570470638277,0.0577976830885,0.0580478895088,0.05904871519,0.0585483023494,0.0570470638277,0.0557960317262,0.0557960317262,0.0557960317262,0.0552956188856,0.0560462381465,0.0565466509871,0.0555458253059,0.0562964445668,0.0550454124653,0.054795206045,0.0562964445668,0.0542947932044,0.0550454124653,0.0530437611029,0.0512923161608,0.052293141842,0.0532939675232,0.0520429354217,0.0517927290014,0.0502914904796,0.0485400455376,0.048039632697,0.0482898391173,0.0470388070158,0.0470388070158,0.0475392198564,0.0477894262767,0.048039632697,0.0470388070158,0.0462881877549,0.0457877749143,0.0437861235519,0.0440363299722,0.0447869492331,0.0452873620737,0.0470388070158,0.0462881877549,0.0465383941752,0.045537568494,0.0447869492331,0.0440363299722,0.0447869492331,0.0450371556534,0.0437861235519,0.0425350914504,0.0445367428128,0.0445367428128,0.0452873620737,0.0457877749143,0.0447869492331,0.0450371556534,0.045537568494,0.0460379813346,0.0470388070158,0.0495408712188,0.0485400455376,0.0490404583782,0.0502914904796,0.0512923161608,0.0520429354217,0.0517927290014,0.0510421097405,0.0515425225811,0.0512923161608,0.0515425225811,0.0527935546826,0.0517927290014,0.0512923161608,0.0515425225811,0.0497910776391,0.0517927290014,0.0507919033202,0.0505416968999,0.0515425225811,0.0527935546826,0.052293141842,0.0537943803638,0.0540445867841,0.0527935546826,0.0497910776391,0.0490404583782,0.0492906647985,0.0492906647985,0.0495408712188,0.0482898391173,0.048039632697,0.0472890134361,0.0475392198564,0.0475392198564,0.048039632697,0.0475392198564,0.0470388070158,0.0472890134361,0.0460379813346,0.0465383941752,0.0470388070158,0.0460379813346,0.0465383941752,0.0465383941752,0.0450371556534,0.0460379813346,0.0457877749143,0.0447869492331,0.0457877749143,0.0435359171316,0.0440363299722,0.0447869492331,0.0437861235519,0.0425350914504,0.0417844721896,0.0402832336678,0.0400330272475,0.0395326144069,0.0405334400881,0.0400330272475,0.0397828208272,0.0392824079866,0.0400330272475,0.0400330272475,0.0400330272475,0.0410338529287,0.0395326144069,0.0380313758851,0.0382815823054,0.0380313758851,0.0382815823054,0.0385317887257,0.0395326144069,0.0382815823054,0.0390322015663,0.038781995146,0.0375309630445,0.0382815823054,0.0392824079866,0.0392824079866,0.0397828208272,0.0395326144069,0.0405334400881,0.0405334400881,0.0397828208272,0.0392824079866,0.0405334400881,0.0407836465084,0.041284059349,0.0420346786099,0.043035504291,0.0440363299722,0.0427852978707,0.0437861235519,0.0440363299722,0.0450371556534,0.045537568494,0.0457877749143,0.0477894262767,0.0467886005955,0.0477894262767,0.0492906647985,0.0497910776391,0.0500412840593,0.0487902519579,0.0485400455376,0.0495408712188,0.0502914904796,0.0495408712188,0.0510421097405,0.052293141842,0.0507919033202,0.0512923161608,0.0507919033202,0.0502914904796,0.0512923161608,0.0492906647985,0.0495408712188,0.0500412840593,0.0517927290014,0.0515425225811,0.0525433482623,0.0517927290014,0.0505416968999,0.0500412840593,0.0502914904796,0.0520429354217,0.0532939675232,0.0535441739435,0.0535441739435,0.0525433482623,0.0525433482623,0.0507919033202,0.0530437611029,0.0525433482623,0.0500412840593,0.0482898391173,0.048039632697,0.0490404583782,0.0475392198564,0.0457877749143,0.045537568494,0.0447869492331,0.0435359171316,0.0425350914504,0.0435359171316,0.0422848850301,0.0425350914504,0.0427852978707,0.0420346786099,0.0427852978707,0.0425350914504,0.043035504291,0.0415342657693,0.0405334400881,0.0400330272475,0.0415342657693,0.0425350914504,0.0427852978707,0.0425350914504,0.041284059349,0.0392824079866,0.0395326144069,0.0397828208272,0.0402832336678,0.0410338529287,0.0400330272475,0.038781995146,0.0390322015663,0.0392824079866,0.0397828208272,0.0405334400881,0.0402832336678,0.0410338529287,0.0405334400881,0.0407836465084,0.0425350914504,0.0422848850301,0.0422848850301,0.0420346786099,0.0427852978707,0.0432857107113,0.0432857107113,0.043035504291,0.0432857107113,0.0425350914504,0.0427852978707,0.043035504291,0.0440363299722,0.0450371556534,0.0437861235519,0.043035504291,0.043035504291,0.0427852978707,0.0437861235519,0.0432857107113,0.0425350914504,0.0427852978707,0.0427852978707,0.0410338529287,0.0415342657693,0.0417844721896,0.0417844721896,0.0415342657693,0.0422848850301,0.0422848850301,0.0432857107113,0.0445367428128,0.0450371556534,0.0447869492331,0.0437861235519,0.0447869492331,0.0447869492331,0.0450371556534,0.0442865363925,0.0435359171316,0.0435359171316,0.0442865363925,0.0442865363925,0.0452873620737,0.0457877749143,0.0452873620737,0.0440363299722,0.0432857107113,0.0445367428128,0.045537568494,0.0452873620737,0.0450371556534,0.0435359171316,0.0445367428128,0.0445367428128,0.0435359171316,0.0440363299722,0.045537568494,0.045537568494,0.0465383941752,0.0467886005955,0.048039632697,0.048039632697,0.0485400455376,0.048039632697,0.0460379813346,0.0452873620737,0.0457877749143,0.0457877749143,0.0465383941752,0.0465383941752,0.0457877749143,0.0472890134361,0.0485400455376,0.0487902519579,0.0497910776391,0.0490404583782,0.0482898391173,0.0485400455376,0.0495408712188,0.0507919033202,0.0505416968999,0.0490404583782,0.048039632697,0.0475392198564,0.0482898391173,0.0502914904796,0.0507919033202,0.0507919033202,0.0500412840593,0.0492906647985,0.0495408712188,0.0495408712188,0.0477894262767,0.048039632697,0.0500412840593,0.0497910776391,0.0472890134361,0.0470388070158,0.0482898391173,0.0497910776391,0.0490404583782,0.0490404583782,0.0475392198564,0.0477894262767,0.0477894262767,0.0462881877549,0.0465383941752,0.0462881877549,0.0457877749143,0.0460379813346,0.0465383941752,0.045537568494,0.0440363299722,0.0427852978707,0.0415342657693,0.0427852978707,0.0435359171316,0.0437861235519,0.0437861235519,0.0432857107113,0.0437861235519,0.0445367428128,0.0457877749143,0.0465383941752,0.0470388070158,0.048039632697,0.0487902519579,0.0497910776391,0.0485400455376,0.0497910776391,0.0520429354217,0.0525433482623,0.0540445867841,0.0532939675232,0.0525433482623,0.0515425225811,0.0507919033202,0.0495408712188,0.0485400455376,0.048039632697,0.045537568494,0.0442865363925,0.0427852978707,0.0415342657693,0.0405334400881,0.0392824079866,0.038781995146,0.0380313758851,0.0380313758851,0.0360297245227,0.034528486001)
m <- c(0.0229658549595,0.0244475230214,0.0271639144682,0.0286455825301,0.0296333612381,0.0311150293,0.031361973977,0.0328436420389,0.0343253101008,0.0348191994547,0.0370417015476,0.0377825355786,0.0382764249325,0.0392642036405,0.0395111483174,0.0400050376714,0.0422275397643,0.0417336504103,0.0414867057333,0.0424744844413,0.0417336504103,0.0434622631492,0.0434622631492,0.0442030971801,0.046178654596,0.046919488627,0.045931709919,0.045684765242,0.0442030971801,0.0432153184722,0.0439561525032,0.0429683737952,0.0427214291182,0.0419805950873,0.0409928163793,0.0402519823484,0.0385233696095,0.0375355909016,0.0375355909016,0.0372886462246,0.0382764249325,0.0382764249325,0.0390172589635,0.0397580929944,0.0382764249325,0.0390172589635,0.0397580929944,0.0400050376714,0.0407458717024,0.0407458717024,0.0402519823484,0.0400050376714,0.0397580929944,0.0387703142865,0.0392642036405,0.0385233696095,0.0382764249325,0.0385233696095,0.0387703142865,0.0390172589635,0.0397580929944,0.0397580929944,0.0409928163793,0.0422275397643,0.0414867057333,0.0434622631492,0.0432153184722,0.0451908758881,0.046919488627,0.046425599273,0.04667254395,0.0471664333039,0.0471664333039,0.046425599273,0.04667254395,0.046178654596,0.045684765242,0.0451908758881,0.0454378205651,0.045684765242,0.046919488627,0.0476603226579,0.0488950460428,0.0501297694278,0.0491419907198,0.0488950460428,0.0491419907198,0.0496358800738,0.0496358800738,0.0484011566889,0.0488950460428,0.0481542120119,0.04667254395,0.045684765242,0.045931709919,0.045684765242,0.0446969865341,0.0439561525032,0.0439561525032,0.0419805950873,0.0429683737952,0.0427214291182,0.0414867057333,0.0424744844413,0.0422275397643,0.0422275397643,0.0419805950873,0.0427214291182,0.0419805950873,0.0412397610563,0.0407458717024,0.0409928163793,0.0409928163793,0.0404989270254,0.0390172589635,0.0375355909016,0.0370417015476,0.0372886462246,0.0375355909016,0.0372886462246,0.0380294802555,0.0370417015476,0.0370417015476,0.0372886462246,0.0377825355786,0.0390172589635,0.0397580929944,0.0404989270254,0.0407458717024,0.0402519823484,0.0422275397643,0.0419805950873,0.0434622631492,0.0439561525032,0.0432153184722,0.0424744844413,0.0429683737952,0.0434622631492,0.0439561525032,0.0446969865341,0.045684765242,0.0454378205651,0.0454378205651,0.045684765242,0.045684765242,0.0451908758881,0.045931709919,0.045931709919,0.045931709919,0.046425599273,0.046919488627,0.045931709919,0.045684765242,0.045684765242,0.0454378205651,0.0479072673349,0.0476603226579,0.0474133779809,0.0476603226579,0.046919488627,0.04667254395,0.046425599273,0.045931709919,0.0471664333039,0.046178654596,0.046919488627,0.0454378205651,0.046919488627,0.046919488627,0.0484011566889,0.0479072673349,0.0481542120119,0.0479072673349,0.0471664333039,0.046425599273,0.046919488627,0.046919488627,0.0479072673349,0.0474133779809,0.0486481013659,0.0488950460428,0.0501297694278,0.0503767141047,0.0511175481357,0.0511175481357,0.0516114374897,0.0533400502285,0.0538339395825,0.0535869949055,0.0523522715206,0.0523522715206,0.0528461608746,0.0518583821666,0.0523522715206,0.0521053268436,0.0528461608746,0.0535869949055,0.0518583821666,0.0508706034587,0.0508706034587,0.0511175481357,0.0488950460428,0.0481542120119,0.0474133779809,0.0479072673349,0.0481542120119,0.0488950460428,0.0498828247508,0.0506236587817,0.0501297694278,0.0506236587817,0.0493889353968,0.0516114374897,0.0523522715206,0.0513644928127,0.0501297694278,0.0501297694278,0.0503767141047,0.0506236587817,0.0503767141047,0.0498828247508,0.0503767141047,0.0498828247508,0.0501297694278,0.0501297694278,0.0493889353968,0.0496358800738,0.0498828247508,0.0523522715206,0.0518583821666,0.0508706034587,0.0513644928127,0.0516114374897,0.0506236587817,0.0508706034587,0.0521053268436,0.0525992161976,0.0525992161976,0.0523522715206,0.0513644928127,0.0503767141047,0.0501297694278,0.0501297694278,0.0501297694278,0.0521053268436,0.0533400502285,0.0518583821666,0.0503767141047,0.0508706034587,0.0498828247508,0.0498828247508,0.0491419907198,0.0476603226579,0.0474133779809,0.04667254395,0.0471664333039,0.0479072673349,0.0474133779809,0.0479072673349,0.0486481013659,0.0491419907198,0.0488950460428,0.046425599273,0.045931709919,0.0474133779809,0.0484011566889,0.0491419907198,0.0501297694278,0.0498828247508,0.0488950460428,0.0488950460428,0.0484011566889,0.0491419907198,0.0496358800738,0.0496358800738,0.0488950460428,0.0476603226579,0.0479072673349,0.0454378205651,0.0454378205651,0.0454378205651,0.045684765242,0.0454378205651,0.046425599273,0.046425599273,0.046425599273,0.0474133779809,0.0479072673349,0.0479072673349,0.046178654596,0.046425599273,0.0471664333039,0.046919488627,0.046919488627,0.045931709919,0.0451908758881,0.0449439312111,0.0449439312111,0.0434622631492,0.0446969865341,0.0437092078262,0.0432153184722,0.0442030971801,0.0444500418571,0.0451908758881,0.0444500418571,0.0454378205651,0.0451908758881,0.0442030971801,0.0439561525032,0.0439561525032,0.0444500418571,0.0449439312111,0.0446969865341,0.0439561525032,0.0439561525032,0.0439561525032,0.0442030971801,0.0444500418571,0.045931709919,0.0451908758881,0.0444500418571,0.0439561525032,0.0449439312111,0.0439561525032,0.0427214291182,0.0434622631492,0.0429683737952,0.0437092078262,0.0446969865341,0.0444500418571,0.045684765242,0.0451908758881,0.0434622631492,0.0434622631492,0.0449439312111,0.0451908758881,0.0444500418571,0.0442030971801,0.0446969865341,0.0424744844413,0.0419805950873,0.0434622631492,0.0437092078262,0.0446969865341,0.0437092078262,0.0432153184722,0.0437092078262,0.0437092078262,0.0429683737952,0.0422275397643,0.0424744844413,0.0432153184722,0.0417336504103,0.0429683737952,0.0437092078262,0.0449439312111,0.0437092078262,0.0449439312111,0.046919488627,0.0471664333039,0.0481542120119,0.046919488627,0.0474133779809,0.0481542120119,0.0471664333039,0.0476603226579,0.04667254395,0.0476603226579,0.045931709919,0.0439561525032,0.0449439312111,0.0439561525032,0.046425599273,0.0471664333039,0.04667254395,0.046178654596,0.045684765242,0.0454378205651,0.0474133779809,0.0474133779809,0.0479072673349,0.0481542120119,0.0486481013659,0.0491419907198,0.0488950460428,0.0491419907198,0.0491419907198,0.0496358800738,0.0501297694278,0.0496358800738,0.0511175481357,0.0508706034587,0.0493889353968,0.0479072673349,0.0484011566889,0.0493889353968,0.0488950460428,0.0491419907198,0.0498828247508,0.0508706034587,0.0523522715206,0.0530931055516,0.0530931055516,0.0540808842595,0.0548217182905,0.0560564416754,0.0535869949055,0.0538339395825,0.0565503310293,0.0572911650603,0.0590197777992,0.0597606118301,0.0600075565071,0.0609953352151,0.061489224569,0.062477003277,0.0634647819849,0.0644525606928,0.0651933947238,0.0634647819849,0.0644525606928,0.0627239479539,0.0622300586,0.0634647819849,0.0627239479539,0.0637117266619,0.0632178373079,0.0639586713389,0.0622300586,0.0627239479539,0.0629708926309,0.0627239479539,0.0637117266619,0.062477003277,0.0632178373079,0.0629708926309,0.0644525606928,0.0642056160158,0.0644525606928,0.0639586713389,0.0639586713389,0.0637117266619,0.0634647819849,0.062477003277,0.0605014458611,0.0590197777992,0.0582789437682,0.0582789437682,0.0570442203833,0.0565503310293,0.0563033863524,0.0558094969984,0.0553156076444,0.0570442203833,0.0577850544143,0.0570442203833,0.0567972757063,0.0570442203833,0.0575381097373,0.0570442203833,0.0600075565071,0.0609953352151,0.0627239479539,0.0627239479539,0.062477003277,0.0637117266619,0.061983113923,0.0634647819849,0.0634647819849,0.0632178373079,0.0627239479539,0.0637117266619,0.0637117266619,0.0642056160158,0.0659342287547,0.0666750627857,0.0656872840777,0.0686506202016,0.0723547903563,0.0723547903563,0.0728486797103,0.0735895137412,0.0740834030952,0.0750711818031,0.076552849865,0.0780345179269,0.0785284072809,0.0790222966349,0.07778757325,0.0800100753428,0.0812447987277,0.0805039646968,0.0807509093738,0.0814917434047,0.0792692413119,0.0785284072809,0.077293683896,0.077293683896,0.076799794542,0.0748242371262,0.0755650711571,0.0758120158341,0.0758120158341,0.0763059051881,0.0760589605111,0.076799794542,0.0763059051881,0.077540628573,0.0787753519579,0.0792692413119,0.0792692413119,0.076799794542,0.0755650711571,0.076552849865,0.076552849865,0.076552849865,0.07778757325,0.0797631306658,0.0787753519579,0.0785284072809,0.077540628573,0.076552849865,0.076552849865,0.077540628573,0.0760589605111,0.0760589605111,0.0760589605111,0.0753181264801,0.0755650711571,0.076799794542,0.0792692413119,0.0795161859889,0.0817386880817,0.0829734114666,0.0824795221127,0.0829734114666,0.0839611901746,0.0834673008206,0.0837142454976,0.0847020242055,0.0869245262984,0.0864306369444,0.0827264667896,0.0819856327587,0.0839611901746,0.0842081348515,0.0834673008206,0.0839611901746,0.0829734114666,0.0847020242055,0.0844550795285,0.0832203561436,0.0844550795285,0.0847020242055,0.0861836922674,0.0876653603293,0.0884061943603,0.0871714709754,0.0886531390373,0.0901348070992,0.0913695304841,0.0935920325769,0.0955675899928,0.0938389772539,0.0935920325769,0.0955675899928,0.0958145346698,0.0963084240238,0.0972962027317,0.0985309261166,0.0995187048246,0.100259538856,0.100506483532,0.0997656495015,0.0975431474087,0.0982839814396,0.100506483532,0.102728985625,0.103716764333,0.105939266426,0.108655657873,0.111618993997,0.113347606736,0.113347606736,0.114088440767,0.116804832213,0.11952122366,0.122237615107,0.125447895908,0.128411232032,0.131621512832,0.136560406372,0.14248707862,0.142734023297,0.148413750867,0.15063625296,0.156069035854,0.162242652778,0.167181546318,0.17113266115,0.176318499367,0.181998226937,0.18915962257,0.192369903371,0.19730879691,0.206198805282,0.215582703007,0.221015485901,0.229658549595,0.235585221843,0.242005783444,0.249414123754,0.252624404555,0.255340796001,0.256822464063,0.258057187448,0.260279689541,0.263243025665,0.266206361789,0.265465527758,0.265465527758,0.264724693727,0.26447774905,0.261761357603,0.261020523572,0.258551076802,0.255340796001,0.255834685355,0.253365238586,0.252130515201,0.248673289723,0.246203842953,0.242746617475,0.239536336674,0.235091332489,0.232374941042,0.229164660241,0.226448268794,0.222250209286,0.215088813653,0.208174362698,0.202988524481,0.196321018202,0.194592405463,0.189406567247,0.185455452415,0.183973784353,0.180516558875,0.178047112105,0.177553222752,0.178294056782,0.177553222752,0.178787946136,0.177800167428,0.175577665336,0.177306278075,0.175083775982,0.178541001459,0.180269614198,0.180269614198,0.181998226937,0.183973784353,0.182986005645,0.183479894999,0.185949341769,0.188665733216,0.189900456601,0.191876014017,0.190888235309,0.192616848048,0.19162906934,0.192369903371,0.192616848048,0.194345460786,0.195827128848,0.19730879691,0.19730879691,0.196074073525,0.200025188357,0.197802686264,0.198790464972,0.199531299003,0.20224769045,0.202494635127,0.201753801096,0.201012967065,0.198049630941,0.202988524481,0.203976303189,0.202494635127,0.204470192543,0.200272133034,0.198790464972,0.197802686264,0.19483935014,0.192616848048,0.193357682078,0.19162906934,0.191382124663,0.188912677893,0.187924899185,0.186196286446,0.188665733216,0.188171843862,0.187431009831,0.186443231123,0.186196286446,0.185455452415,0.182986005645,0.185949341769,0.1866901758,0.186937120477,0.185949341769,0.1866901758,0.186443231123,0.190147401278,0.190641290632,0.189900456601,0.189406567247,0.188171843862,0.188912677893,0.184467673707,0.185949341769,0.183726839676,0.183973784353,0.187677954508,0.188665733216,0.188665733216,0.189900456601,0.19162906934,0.193110737401,0.195580184171,0.192616848048,0.192863792725,0.191876014017,0.192122958694,0.190394345955,0.189900456601,0.18915962257,0.187184065154,0.1866901758,0.185208507738,0.185455452415,0.180763503552,0.183479894999,0.182986005645,0.181998226937,0.179034890813,0.17360210792,0.170638771796,0.167675435672,0.166934601641,0.167428490995,0.167922380349,0.16619376761,0.16619376761,0.165946822933,0.167922380349,0.167181546318,0.165452933579,0.16372432084,0.162489597455,0.162242652778,0.158785427301,0.155822091177,0.153846533761,0.152117921022,0.151870976345,0.151377086991,0.150142363606,0.149401529575,0.146932082805,0.146685138129,0.147425972159,0.148660695544,0.149154584898,0.148660695544,0.148660695544,0.145697359421,0.142980967974,0.142240133943,0.145450414744,0.146438193452,0.145697359421,0.146191248775,0.144462636036,0.142240133943,0.14001763185,0.14001763185,0.138289019111,0.13507873831,0.134337904279,0.132856236217,0.13260929154,0.13260929154,0.133350125571,0.131621512832,0.133350125571,0.131621512832,0.128411232032,0.128411232032,0.125941785262,0.124954006554,0.122731504461,0.12199067043,0.121249836399,0.120509002368,0.121249836399,0.122484559784,0.123719283169,0.123966227846,0.12692956397,0.128164287355,0.130880678802,0.129645955417,0.126682619293,0.128658176709,0.127176508647,0.126435674616,0.127423453324,0.127176508647,0.128411232032,0.127670398001,0.12692956397,0.127176508647,0.124954006554,0.1244601172,0.122731504461,0.122237615107,0.121496781076,0.12199067043,0.120755947045,0.121743725753,0.122978449138,0.122484559784,0.121743725753,0.122484559784,0.122731504461,0.123225393815,0.122484559784,0.124707061877,0.123719283169,0.119768168337,0.117545666244,0.11705177689,0.113347606736,0.110137325935,0.107420934488,0.105692321749,0.105445377072,0.103716764333,0.104951487718,0.103222874979,0.102728985625,0.102728985625,0.102482040948,0.103716764333,0.103716764333,0.104210653687,0.105692321749,0.105939266426,0.106186211103,0.104951487718,0.107173989811,0.106927045134,0.107420934488,0.107173989811,0.105692321749,0.106927045134,0.108408713196,0.107914823842,0.109890381258,0.109643436581,0.111125104643,0.109396491904,0.108655657873,0.107173989811,0.106680100457,0.105198432395,0.105692321749,0.107420934488,0.106680100457,0.107667879165,0.108161768519,0.106680100457,0.10643315578,0.105939266426,0.104951487718,0.103716764333,0.103469819656,0.101000372886,0.100506483532,0.0980370367627,0.0982839814396,0.0982839814396,0.0982839814396,0.0965553687007,0.0933450879,0.0911225858071,0.0898878624222,0.0884061943603,0.0891470283912,0.0871714709754,0.0849489688825,0.0844550795285,0.0834673008206,0.0827264667896,0.0812447987277,0.0807509093738,0.0812447987277,0.0824795221127,0.0832203561436,0.0847020242055,0.0832203561436,0.0822325774357,0.0824795221127,0.0802570200198,0.0787753519579,0.0792692413119,0.0787753519579,0.0792692413119,0.0782814626039,0.07778757325,0.0760589605111,0.077046739219,0.0787753519579,0.0787753519579,0.07778757325,0.0760589605111,0.0750711818031,0.0750711818031,0.0743303477722,0.0750711818031,0.0733425690643,0.0733425690643,0.0726017350333,0.0713670116484,0.0711200669714,0.0703792329404,0.0688975648785,0.0681567308476,0.0671689521397,0.0664281181087,0.0669220074627,0.0649464500468,0.0622300586,0.0622300586,0.0629708926309,0.0634647819849,0.0627239479539,0.0642056160158,0.0632178373079,0.0632178373079,0.0622300586,0.0607483905381,0.061489224569,0.0609953352151,0.0609953352151,0.0602545011841,0.0597606118301,0.0602545011841,0.0587728331222,0.0597606118301,0.0600075565071,0.061983113923,0.061736169246,0.061736169246,0.061736169246,0.062477003277,0.0634647819849,0.0634647819849,0.0649464500468,0.0649464500468,0.0644525606928,0.0659342287547,0.0661811734317,0.0659342287547,0.0646995053698,0.0664281181087,0.0666750627857,0.0646995053698,0.0639586713389,0.061736169246,0.0609953352151,0.0600075565071,0.0605014458611,0.0602545011841,0.0609953352151,0.0632178373079,0.0632178373079,0.0634647819849,0.0637117266619,0.0622300586,0.061489224569,0.0607483905381,0.061489224569,0.0605014458611,0.0595136671531,0.0575381097373,0.0577850544143,0.0577850544143,0.0582789437682,0.0575381097373,0.0582789437682,0.0587728331222,0.0582789437682,0.0575381097373,0.0582789437682,0.0585258884452,0.0580319990912,0.0572911650603,0.0575381097373,0.0565503310293,0.0595136671531,0.0595136671531,0.0592667224762,0.061242279892,0.061489224569,0.0622300586,0.061489224569,0.0600075565071,0.0585258884452,0.0580319990912,0.0575381097373,0.0580319990912,0.0572911650603,0.0582789437682,0.0565503310293,0.0558094969984,0.0567972757063,0.0570442203833,0.0577850544143,0.0575381097373,0.0587728331222,0.0587728331222,0.0592667224762,0.0602545011841,0.0592667224762,0.0602545011841,0.0597606118301,0.0609953352151,0.0605014458611,0.0585258884452,0.0590197777992,0.0590197777992,0.0582789437682,0.0607483905381,0.0572911650603,0.0585258884452,0.0582789437682,0.0563033863524,0.0570442203833,0.0560564416754,0.0572911650603,0.0582789437682,0.0597606118301,0.0587728331222,0.0590197777992,0.0582789437682,0.0592667224762,0.0587728331222,0.0585258884452,0.0602545011841,0.0590197777992,0.0580319990912,0.0572911650603,0.0582789437682,0.0577850544143,0.0575381097373,0.0575381097373,0.0553156076444,0.0543278289365,0.0530931055516,0.0523522715206,0.0503767141047,0.0511175481357,0.0511175481357,0.0506236587817,0.0516114374897,0.0521053268436,0.0486481013659,0.0488950460428,0.0479072673349,0.0476603226579,0.0481542120119,0.0474133779809,0.0474133779809,0.046919488627,0.045931709919,0.0439561525032,0.0454378205651,0.0454378205651,0.046178654596,0.045684765242,0.0449439312111,0.046425599273,0.045684765242,0.046425599273,0.0474133779809,0.0471664333039,0.0471664333039,0.0476603226579,0.0476603226579,0.0484011566889,0.0486481013659,0.0481542120119,0.0481542120119,0.0501297694278,0.0506236587817,0.0493889353968,0.0496358800738,0.0488950460428,0.0479072673349,0.046425599273,0.046425599273,0.046919488627,0.046919488627,0.0471664333039,0.0474133779809,0.04667254395,0.046919488627,0.046425599273,0.046178654596,0.046178654596,0.0454378205651,0.0449439312111,0.0437092078262,0.0427214291182,0.0429683737952,0.0419805950873,0.0419805950873,0.0409928163793,0.0412397610563,0.0409928163793,0.0402519823484,0.0392642036405,0.0387703142865,0.0382764249325,0.0395111483174,0.0404989270254,0.0407458717024,0.0382764249325,0.0375355909016,0.0380294802555,0.0377825355786,0.0400050376714,0.0404989270254,0.0404989270254,0.0414867057333,0.0412397610563,0.0417336504103,0.0427214291182,0.0427214291182,0.0424744844413,0.0429683737952,0.0432153184722,0.0444500418571,0.0446969865341,0.0437092078262,0.0437092078262,0.0439561525032,0.0442030971801,0.0449439312111,0.0446969865341,0.0451908758881,0.0451908758881,0.0449439312111,0.0449439312111,0.0442030971801,0.0446969865341,0.0449439312111,0.0444500418571,0.0437092078262,0.0437092078262,0.0434622631492,0.0442030971801,0.046425599273,0.046178654596,0.04667254395,0.045684765242,0.0449439312111,0.0451908758881,0.0454378205651,0.0442030971801,0.0422275397643,0.0402519823484,0.0382764249325,0.0377825355786,0.0358069781627,0.0345722547778,0.0330905867159,0.0323497526849,0.031361973977,0.030127250592,0.0293864165611,0.0283986378532,0.0269169697913,0.0264230804373,0.0246944676984,0.0232127996365)
s <- c(0.0211726914876,0.0220496668746,0.0220496668746,0.0224255134691,0.0234277710543,0.0238036176488,0.0233024888561,0.023177206658,0.0224255134691,0.0219243846765,0.0223002312709,0.0217991024783,0.0216738202802,0.0212979736857,0.0207968448931,0.0204209982987,0.0195440229116,0.019042894119,0.019042894119,0.0189176119209,0.0337009113027,0.0344526044916,0.0357054264731,0.0370835306528,0.0378352238417,0.0390880458232,0.0399650212103,0.040591432201,0.0415936897862,0.0419695363807,0.0420948185788,0.0423453829752,0.0430970761641,0.0430970761641,0.0446004625419,0.04472574474,0.0453521557308,0.0452268735326,0.0458532845234,0.0452268735326,0.0456027201271,0.0461038489197,0.0467302599104,0.0471061065049,0.0469808243068,0.0483589284864,0.0481083640901,0.0487347750809,0.0489853394772,0.0483589284864,0.0484842106846,0.0487347750809,0.0494864682698,0.0496117504679,0.0501128792605,0.0499875970624,0.0501128792605,0.0492359038735,0.048860057279,0.0484842106846,0.0491106216753,0.0492359038735,0.0503634436568,0.0512404190439,0.0509898546476,0.0511151368457,0.0524932410254,0.0532449342143,0.0526185232236,0.0518668300347,0.0514909834402,0.0507392902513,0.0491106216753,0.0487347750809,0.048860057279,0.047983081892,0.0472313887031,0.0464796955141,0.0457280023252,0.0448510269382,0.0449763091363,0.0454774379289,0.04472574474,0.0456027201271,0.0458532845234,0.0457280023252,0.0446004625419,0.0454774379289,0.0446004625419,0.043848769353,0.0427212295696,0.0433476405604,0.0428465117678,0.0428465117678,0.0430970761641,0.0432223583622,0.0424706651733,0.0427212295696,0.0428465117678,0.0427212295696,0.0414684075881,0.0412178431918,0.0408419965973,0.0412178431918,0.0417189719844,0.0425959473715,0.0428465117678,0.0440993337493,0.0443498981456,0.0443498981456,0.0458532845234,0.0458532845234,0.0471061065049,0.0464796955141,0.0464796955141,0.0457280023252,0.0461038489197,0.0466049777123,0.0467302599104,0.0474819530994,0.048860057279,0.0489853394772,0.048860057279,0.0492359038735,0.0496117504679,0.048860057279,0.0492359038735,0.0493611860716,0.048860057279,0.0482336462883,0.0482336462883,0.0478577996938,0.0474819530994,0.0476072352975,0.047983081892,0.0484842106846,0.048860057279,0.0487347750809,0.0492359038735,0.0486094928827,0.0489853394772,0.0489853394772,0.0481083640901,0.0491106216753,0.0481083640901,0.0489853394772,0.0484842106846,0.0497370326661,0.0498623148642,0.0508645724494,0.0514909834402,0.0514909834402,0.0508645724494,0.0507392902513,0.0498623148642,0.0492359038735,0.0493611860716,0.0501128792605,0.0499875970624,0.0509898546476,0.0508645724494,0.051365701242,0.051365701242,0.0518668300347,0.0527438054217,0.0532449342143,0.0544977561958,0.0551241671866,0.0556252959792,0.055500013781,0.055500013781,0.0557505781773,0.0551241671866,0.0556252959792,0.0556252959792,0.055500013781,0.0565022713663,0.0552494493847,0.0552494493847,0.054623038394,0.054623038394,0.0537460630069,0.052994369818,0.0522426766291,0.0519921122328,0.051365701242,0.052117394431,0.0527438054217,0.0526185232236,0.0528690876199,0.0531196520162,0.0526185232236,0.0538713452051,0.0542471917995,0.0543724739977,0.0539966274032,0.0541219096014,0.0548736027903,0.0539966274032,0.0536207808088,0.0533702164125,0.0533702164125,0.052117394431,0.0522426766291,0.0524932410254,0.0522426766291,0.0527438054217,0.052994369818,0.0542471917995,0.0539966274032,0.0528690876199,0.0532449342143,0.0538713452051,0.0537460630069,0.0539966274032,0.0541219096014,0.0547483205921,0.0547483205921,0.0543724739977,0.0537460630069,0.0533702164125,0.0523679588273,0.0537460630069,0.0538713452051,0.0547483205921,0.0549988849884,0.0543724739977,0.0539966274032,0.0542471917995,0.0536207808088,0.0531196520162,0.0519921122328,0.0517415478365,0.0518668300347,0.0512404190439,0.0511151368457,0.0519921122328,0.0517415478365,0.051365701242,0.0514909834402,0.0512404190439,0.051365701242,0.0502381614587,0.0501128792605,0.0514909834402,0.0518668300347,0.052117394431,0.0532449342143,0.0523679588273,0.0527438054217,0.0527438054217,0.0531196520162,0.0531196520162,0.0534954986106,0.0533702164125,0.0537460630069,0.052117394431,0.0523679588273,0.0516162656384,0.052117394431,0.0517415478365,0.0522426766291,0.0519921122328,0.0528690876199,0.052994369818,0.0538713452051,0.0544977561958,0.0548736027903,0.0556252959792,0.0560011425736,0.055500013781,0.0560011425736,0.0561264247718,0.0565022713663,0.0565022713663,0.0565022713663,0.0562517069699,0.0560011425736,0.0543724739977,0.0551241671866,0.0542471917995,0.0533702164125,0.0549988849884,0.0547483205921,0.0552494493847,0.055500013781,0.0561264247718,0.0568781179607,0.0570034001589,0.0562517069699,0.0562517069699,0.0562517069699,0.0565022713663,0.0562517069699,0.0568781179607,0.0566275535644,0.0566275535644,0.0565022713663,0.0572539645552,0.0578803755459,0.0578803755459,0.0568781179607,0.0567528357626,0.0570034001589,0.0570034001589,0.0562517069699,0.0578803755459,0.0581309399422,0.0582562221404,0.0590079153293,0.0590079153293,0.05963432632,0.0606365839052,0.0592584797256,0.0601354551126,0.0615135592923,0.0622652524812,0.0620146880849,0.0621399702831,0.0633927922646,0.0632675100664,0.0630169456701,0.0633927922646,0.0656478718313,0.0667754116147,0.0672765404073,0.0671512582091,0.0682787979925,0.0682787979925,0.0680282335962,0.0687799267851,0.0700327487666,0.0704085953611,0.0697821843703,0.0701580309647,0.0712855707481,0.0714108529463,0.0704085953611,0.0714108529463,0.0730395215222,0.0717866995407,0.0729142393241,0.0726636749278,0.0726636749278,0.0730395215222,0.0741670613056,0.0745429079,0.0751693188908,0.075294601089,0.0746681900982,0.0726636749278,0.0739164969093,0.0739164969093,0.0742923435037,0.0746681900982,0.0751693188908,0.0755451654853,0.0751693188908,0.0760462942779,0.0767979874668,0.0767979874668,0.0765474230705,0.0765474230705,0.0764221408723,0.0764221408723,0.0749187544945,0.0756704476834,0.0760462942779,0.0770485518631,0.0769232696649,0.0784266560427,0.0793036314298,0.0796794780242,0.0799300424206,0.0818092753928,0.0823104041854,0.0838137905632,0.0839390727614,0.0858183057337,0.0846907659503,0.0854424591392,0.0861941523281,0.0873216921115,0.0875722565078,0.0886997962911,0.0886997962911,0.088574514093,0.0873216921115,0.086945845517,0.0871964099133,0.0874469743096,0.0878228209041,0.0881986674985,0.0874469743096,0.0886997962911,0.0890756428856,0.0904537470653,0.0929593910283,0.0934605198209,0.0948386240006,0.0933352376227,0.0948386240006,0.0955903171895,0.0974695501617,0.0975948323599,0.0978453967562,0.0979706789543,0.097720114558,0.0974695501617,0.0954650349913,0.0958408815858,0.0958408815858,0.0959661637839,0.0969684213691,0.0963420103784,0.0964672925765,0.0967178569728,0.0964672925765,0.0965925747747,0.0967178569728,0.096843139171,0.0969684213691,0.0975948323599,0.0989729365396,0.0994740653322,0.0983465255488,0.0972189857654,0.0980959611525,0.0989729365396,0.098471807747,0.0982212433506,0.0964672925765,0.0975948323599,0.0983465255488,0.100225758521,0.100351040719,0.099348783134,0.098471807747,0.0983465255488,0.099348783134,0.0998499119266,0.101603862701,0.101478580503,0.105362328645,0.105863457438,0.107116279419,0.10636458623,0.106489868429,0.107617408212,0.109246076788,0.109246076788,0.109621923382,0.110749463166,0.111751720751,0.113004542733,0.114883775705,0.116136597686,0.115134340101,0.11588603329,0.118266395055,0.119143370442,0.120521474622,0.12064675682,0.12127316781,0.121899578801,0.123528247377,0.12402937617,0.124906351557,0.125658044746,0.124655787161,0.125532762548,0.126159173538,0.126660302331,0.127913124313,0.12941651069,0.127913124313,0.128915381898,0.12741199552,0.127161431124,0.127161431124,0.127036148925,0.1287900997,0.129291228492,0.127662559916,0.128163688709,0.129040664096,0.129291228492,0.128163688709,0.129667075087,0.129667075087,0.13217271905,0.133300258833,0.131796872455,0.131170461464,0.132298001248,0.131421025861,0.13217271905,0.133174976635,0.133926669824,0.133801387626,0.135430056202,0.134051952022,0.133550823229,0.133425541031,0.134051952022,0.133300258833,0.132298001248,0.131796872455,0.131796872455,0.132423283446,0.13417723422,0.134678363013,0.135179491805,0.136933442579,0.138060982363,0.137434571372,0.139188522146,0.140190779731,0.141443601713,0.141944730505,0.141193037317,0.14369868128,0.142070012704,0.141568883911,0.138687393354,0.139063239948,0.141819448307,0.141443601713,0.141568883911,0.14094247292,0.141067755118,0.140441344128,0.142070012704,0.142821705893,0.142070012704,0.142946988091,0.14369868128,0.14369868128,0.14369868128,0.145327349856,0.14708130063,0.148208840413,0.14770771162,0.148709969206,0.145828478648,0.146454889639,0.148083558215,0.146454889639,0.146956018432,0.147206582828,0.146956018432,0.149461662395,0.148835251404,0.148835251404,0.149962791187,0.148960533602,0.150213355583,0.149962791187,0.151215613169,0.151842024159,0.151215613169,0.152844281745,0.153345410537,0.154472950321,0.154222385924,0.155600490104,0.154472950321,0.156978594284,0.156978594284,0.15923367385,0.161238189021,0.164370243975,0.166875887938,0.17075963608,0.172263022458,0.174392819827,0.178151285771,0.182661444905,0.187422168434,0.189802530199,0.19243345636,0.19719417989,0.201829621222,0.205963933761,0.209346553111,0.212979736857,0.218617435774,0.224756263483,0.229141140419,0.234653557137,0.239790127262,0.245553108377,0.251190807293,0.254698708842,0.257204352805,0.259334150173,0.261213383146,0.262716769523,0.265097131288,0.26634995327,0.267477493053,0.265974106675,0.265974106675,0.265222413486,0.262466205127,0.261213383146,0.257705481597,0.252694193671,0.250439114105,0.247808187943,0.243799157602,0.238286740884,0.235530532525,0.232022630976,0.227763036239,0.222877030511,0.218742717972,0.215109534226,0.210724657291,0.204711111779,0.198321719674,0.192684020757,0.18704632184,0.180782211932,0.176522617195,0.17075963608,0.165247219362,0.161363471219,0.158481980661,0.155099361311,0.153595974934,0.152343152952,0.149712226791,0.1490858158,0.146830736233,0.144575656667,0.144199810072,0.142070012704,0.143949245676,0.143949245676,0.144074527874,0.145327349856,0.145327349856,0.144826221063,0.145202067657,0.146079043044,0.145953760846,0.14708130063,0.146830736233,0.146204325243,0.146580171837,0.145452632054,0.145577914252,0.145953760846,0.146956018432,0.147206582828,0.147582429422,0.146830736233,0.146079043044,0.148083558215,0.147457147224,0.148584687007,0.148083558215,0.149712226791,0.148459404809,0.148083558215,0.147958276017,0.145828478648,0.148334122611,0.148960533602,0.148835251404,0.149336380196,0.145953760846,0.145327349856,0.144575656667,0.143197552487,0.142696423694,0.142195294902,0.140316061929,0.141318319515,0.140691908524,0.139063239948,0.13893795775,0.140065497533,0.139439086542,0.139313804344,0.138687393354,0.138186264561,0.137434571372,0.135430056202,0.136682878183,0.13755985357,0.136808160381,0.136056467192,0.1355553384,0.135179491805,0.136682878183,0.135931184994,0.136557595985,0.1355553384,0.134302516418,0.134678363013,0.13079461487,0.130418768276,0.128915381898,0.129291228492,0.131796872455,0.132298001248,0.132423283446,0.133425541031,0.134427798616,0.135179491805,0.137184006976,0.134928927409,0.134302516418,0.13417723422,0.133676105427,0.132673847842,0.131796872455,0.130919897068,0.129541792888,0.129165946294,0.127913124313,0.127537277718,0.125783326944,0.12741199552,0.127537277718,0.126785584529,0.125658044746,0.122150143198,0.120020345829,0.118141112857,0.117514701866,0.118391677253,0.118767523847,0.118266395055,0.118642241649,0.119644499235,0.119895063631,0.119018088244,0.117389419668,0.116512444281,0.116136597686,0.115635468894,0.113380389327,0.111877002949,0.110624180968,0.109621923382,0.109496641184,0.108744947995,0.107993254806,0.107492126014,0.107241561618,0.107617408212,0.107993254806,0.10912079459,0.10912079459,0.10912079459,0.108870230194,0.106865715023,0.105111764249,0.10436007106,0.105612893042,0.106489868429,0.10573817524,0.105863457438,0.103984224466,0.103107249079,0.101729144899,0.10097745171,0.100476322917,0.098471807747,0.0975948323599,0.0964672925765,0.0960914459821,0.0955903171895,0.0955903171895,0.094337495208,0.0950891883969,0.0942122130098,0.0919571334431,0.0928341088301,0.0918318512449,0.0922076978394,0.0914560046505,0.091080158056,0.0905790292634,0.091080158056,0.0913307224523,0.0914560046505,0.0925835444338,0.0928341088301,0.0942122130098,0.0947133418024,0.0960914459821,0.0955903171895,0.0945880596043,0.0949639061987,0.0944627774061,0.094337495208,0.0950891883969,0.0942122130098,0.0950891883969,0.0954650349913,0.0950891883969,0.0945880596043,0.0940869308117,0.094337495208,0.0937110842172,0.0933352376227,0.0932099554246,0.0929593910283,0.0925835444338,0.093585802019,0.0947133418024,0.0944627774061,0.0933352376227,0.0934605198209,0.0942122130098,0.0934605198209,0.0919571334431,0.0920824156412,0.091080158056,0.0893262072819,0.0880733853004,0.0881986674985,0.08606887013,0.0846907659503,0.0831873795725,0.0820598397891,0.0814334287984,0.0805564534113,0.0818092753928,0.0813081466002,0.0811828644021,0.0816839931947,0.0813081466002,0.0811828644021,0.0805564534113,0.0808070178076,0.0815587109965,0.0814334287984,0.081934557591,0.0815587109965,0.0821851219873,0.0824356863836,0.0820598397891,0.0818092753928,0.0818092753928,0.0814334287984,0.0825609685817,0.0813081466002,0.0814334287984,0.0818092753928,0.0830620973743,0.0815587109965,0.0810575822039,0.0795541958261,0.0784266560427,0.0774243984575,0.077800245052,0.0780508094483,0.0776749628538,0.0784266560427,0.0788025026372,0.0781760916464,0.0775496806557,0.0769232696649,0.076171576476,0.0745429079,0.0745429079,0.073665932513,0.073665932513,0.0732900859185,0.0730395215222,0.0731648037204,0.0726636749278,0.0714108529463,0.0694063377758,0.0686546445869,0.0681535157943,0.0667754116147,0.0665248472184,0.0665248472184,0.065397307435,0.0655225896331,0.0652720252368,0.0643950498498,0.063768638859,0.063768638859,0.0642697676516,0.065397307435,0.067025976011,0.0672765404073,0.0667754116147,0.0669006938128,0.0675271048036,0.0667754116147,0.0658984362276,0.0657731540295,0.0657731540295,0.0658984362276,0.0655225896331,0.0658984362276,0.0645203320479,0.0647708964442,0.0657731540295,0.0648961786424,0.065397307435,0.0640192032553,0.0633927922646,0.0638939210572,0.0641444854535,0.0642697676516,0.0641444854535,0.0642697676516,0.0632675100664,0.0611377126979,0.0606365839052,0.0603860195089,0.05963432632,0.0593837619237,0.0582562221404,0.0577550933478,0.0576298111496,0.0567528357626,0.0553747315829,0.0556252959792,0.0557505781773,0.0557505781773,0.055500013781,0.0556252959792,0.0553747315829,0.0556252959792,0.054623038394,0.0541219096014,0.0544977561958,0.0534954986106,0.0539966274032,0.0534954986106,0.0527438054217,0.0534954986106,0.0516162656384,0.0523679588273,0.0528690876199,0.0533702164125,0.0526185232236,0.0522426766291,0.0514909834402,0.0517415478365,0.0519921122328,0.0524932410254,0.052994369818,0.0528690876199,0.0523679588273,0.0534954986106,0.0536207808088,0.0534954986106,0.0533702164125,0.0534954986106,0.0528690876199,0.0519921122328,0.0514909834402,0.050488725855,0.0502381614587,0.0502381614587,0.0498623148642,0.0501128792605,0.0503634436568,0.0508645724494,0.0512404190439,0.0518668300347,0.0519921122328,0.0514909834402,0.0509898546476,0.0511151368457,0.0514909834402,0.0506140080531,0.0498623148642,0.0494864682698,0.0497370326661,0.0499875970624,0.0506140080531,0.0507392902513,0.0516162656384,0.0512404190439,0.0514909834402,0.0512404190439,0.052117394431,0.0524932410254,0.0523679588273,0.052994369818,0.0526185232236,0.0526185232236,0.0548736027903,0.0551241671866,0.0551241671866,0.055500013781,0.055500013781,0.0563769891681,0.0563769891681,0.0552494493847,0.0552494493847,0.0556252959792,0.054623038394,0.0551241671866,0.0544977561958,0.0547483205921,0.0543724739977,0.052994369818,0.0536207808088,0.0539966274032,0.0552494493847,0.0549988849884,0.0561264247718,0.0557505781773,0.0553747315829,0.0556252959792,0.0552494493847,0.0566275535644,0.0570034001589,0.0577550933478,0.0575045289515,0.0560011425736,0.0562517069699,0.0553747315829,0.0561264247718,0.057128682357,0.0541219096014,0.0538713452051,0.0536207808088,0.0531196520162,0.0527438054217,0.051365701242,0.0518668300347,0.0519921122328,0.052117394431,0.0511151368457,0.0517415478365,0.0507392902513,0.051365701242,0.0512404190439,0.0507392902513,0.0519921122328,0.0512404190439,0.0509898546476,0.0498623148642,0.0498623148642,0.0493611860716,0.0499875970624,0.050488725855,0.0494864682698,0.048860057279,0.0476072352975,0.0462291311178,0.0453521557308,0.0458532845234,0.0461038489197,0.0462291311178,0.0462291311178,0.0458532845234,0.0442246159474,0.0444751803437,0.0442246159474,0.0444751803437,0.0446004625419,0.0446004625419,0.0443498981456,0.0442246159474,0.0446004625419,0.0434729227585,0.0442246159474,0.0440993337493,0.0448510269382,0.0448510269382,0.0444751803437,0.0451015913345,0.0448510269382,0.0448510269382,0.0454774379289,0.0454774379289,0.0459785667215,0.0467302599104,0.0461038489197,0.0461038489197,0.0462291311178,0.0458532845234,0.046354413316,0.0471061065049,0.0469808243068,0.0464796955141,0.0466049777123,0.0453521557308,0.0451015913345,0.0444751803437,0.0444751803437,0.0446004625419,0.0449763091363,0.0451015913345,0.0457280023252,0.0459785667215,0.046354413316,0.0459785667215,0.0453521557308,0.0458532845234,0.0454774379289,0.0453521557308,0.0443498981456,0.0434729227585,0.0435982049567,0.0434729227585,0.0434729227585,0.0434729227585,0.043848769353,0.0434729227585,0.0424706651733,0.0415936897862,0.0419695363807,0.042220100777,0.0427212295696,0.0430970761641,0.0424706651733,0.0417189719844,0.0413431253899,0.0410925609936,0.0412178431918,0.0430970761641,0.0433476405604,0.043848769353,0.0444751803437,0.0449763091363,0.0452268735326,0.0459785667215,0.0457280023252,0.0446004625419,0.0444751803437,0.0448510269382,0.0454774379289,0.0459785667215,0.0454774379289,0.0451015913345,0.0459785667215,0.0467302599104,0.0472313887031,0.0476072352975,0.0474819530994,0.0471061065049,0.0471061065049,0.0476072352975,0.0478577996938,0.047983081892,0.0473566709012,0.0466049777123,0.0459785667215,0.046354413316,0.0472313887031,0.0478577996938,0.0489853394772,0.0484842106846,0.0483589284864,0.047983081892,0.0476072352975,0.0468555421086,0.0471061065049,0.0474819530994,0.046354413316,0.0440993337493,0.0429717939659,0.0433476405604,0.0430970761641,0.0420948185788,0.0413431253899,0.0402155856066,0.0398397390121,0.0392133280214,0.038085788238,0.0377099416436,0.0368329662565,0.0363318374639,0.035580144275,0.0350790154824,0.0228013600635,0.0220496668746,0.0214232558839,0.0207968448931,0.0214232558839,0.0217991024783,0.0219243846765,0.0219243846765,0.0216738202802,0.0219243846765,0.0223002312709,0.0229266422617,0.0233024888561,0.0235530532525,0.0240541820451,0.0244300286395,0.0249311574321,0.0243047464414,0.0249311574321,0.0260586972155)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf("24-organelles-nucleus-merged/SEPALLATA3-ChIPSeq_wt_3-GSM364942.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=40"),bty="n")
dev.off()