# R script for Peak Model
#  -- generated by MACS
p <- c(0.0210547506364,0.0249114552985,0.0283301144927,0.0316916373216,0.0351674328812,0.0351483874261,0.034824614689,0.0351102965158,0.0351579101536,0.0350055465127,0.0354055010702,0.0353197965222,0.0355483419836,0.0354245465253,0.0357197510797,0.0359102056309,0.0357673647175,0.0353864556151,0.0355578647112,0.0356245238041,0.0354340692529,0.0349674556024,0.0348436601441,0.0351960010639,0.0351579101536,0.0349865010575,0.0350912510607,0.0353483647048,0.03536741016,0.0354626374356,0.0357007056246,0.0357483192624,0.0358245010829,0.0358340238104,0.0356721374419,0.0355483419836,0.0359673419963,0.0359863874514,0.0361387510924,0.0361673192751,0.0359006829034,0.0359863874514,0.0356150010765,0.0357292738073,0.03575784199,0.0360435238168,0.035843546538,0.0356245238041,0.0355673874387,0.0359482965412,0.0361482738199,0.0362815920058,0.0367482056563,0.0368529556594,0.0368720011145,0.0370910238484,0.0372910011272,0.0377480920501,0.0378718875084,0.0375005011335,0.0373195693099,0.0374433647682,0.037814751143,0.0377195238674,0.0376814329572,0.0377861829604,0.0378718875084,0.0380242511494,0.0379956829667,0.0382242284281,0.0388241602645,0.038681319351,0.0383956375242,0.0386241829857,0.0388241602645,0.0385384784376,0.0381956602455,0.0379004556911,0.0379385466013,0.0377957056879,0.0376719102296,0.0375862056816,0.0372814783996,0.0371957738516,0.0374147965855,0.0374433647682,0.0375671602265,0.0375957284091,0.0374624102233,0.0379575920564,0.0380909102423,0.0389098648125,0.0394431375559,0.0397288193827,0.0398716602961,0.040004978482,0.0403858875844,0.0410429557861,0.0413000694302,0.0411191376066,0.0407858421419,0.0405001603151,0.0402811375812,0.0404906375876,0.0402620921261,0.040328751219,0.0404239784946,0.0402335239434,0.0405858648632,0.0405382512254,0.0408239330522,0.0410715239688,0.041347683068,0.0412524557924,0.041738114898,0.0421571149107,0.0418619103563,0.0417000239878,0.0416333648948,0.0417000239878,0.0417285921704,0.0417190694429,0.0420237967248,0.0419095239941,0.0419095239941,0.041890478539,0.0421190240004,0.0425094558304,0.0428713194777,0.043147478577,0.0433569785833,0.0434331604038,0.0439188195094,0.0438235922338,0.0440521376952,0.0440045240574,0.0446520695315,0.0448425240827,0.0446996831693,0.044642546804,0.0447568195347,0.0445949331662,0.0442902058842,0.0447568195347,0.0445568422559,0.044728251352,0.0442616377015,0.0441949786086,0.0442045013362,0.0445187513457,0.0444235240701,0.0448139559001,0.0447568195347,0.0444235240701,0.0447377740796,0.0449853649961,0.0453377059159,0.0454329331915,0.0456329104703,0.0458805013868,0.0461280923034,0.0463852059476,0.0465375695885,0.047089887787,0.047480319617,0.0476136378029,0.0474517514343,0.0479850241777,0.0479374105399,0.047870751447,0.0480516832707,0.0482326150943,0.0486135241967,0.0490134787543,0.0484230696455,0.0483373650975,0.048737319655,0.0485468651038,0.0488801605684,0.0488706378409,0.0487277969275,0.0488325469306,0.0489468196613,0.0487182741999,0.0492991605811,0.0494039105843,0.0495848424079,0.0501752515167,0.0505847288018,0.0508894560837,0.0513275015515,0.0511941833656,0.0514132060995,0.0518036379295,0.0520226606634,0.0523940470383,0.0526416379548,0.0522035924871,0.0522416833973,0.0523369106729,0.0525178424966,0.0531844334258,0.0533272743392,0.0535462970731,0.054003387996,0.0540700470889,0.0542700243677,0.0550889789379,0.055412751675,0.0560602971491,0.0562983653381,0.0562221835176,0.0568506835366,0.0564507289791,0.0564792971618,0.0568887744469,0.0573458653698,0.057145888091,0.0573172971871,0.0576982062895,0.0580695926644,0.0584981154046,0.0588695017795,0.059812251808,0.0600312745419,0.0608216609294,0.0607835700191,0.0611168654838,0.061393024583,0.0617929791406,0.0622881609737,0.0625833655281,0.0623738655218,0.0627452518966,0.0628785700825,0.0622976837013,0.0624310018871,0.062650024621,0.0630690246337,0.0629737973581,0.0628214337171,0.0629261837203,0.0634404110085,0.063430888281,0.0643450701268,0.0650497519663,0.0653259110655,0.0659067974467,0.0660877292704,0.0664972065555,0.0670685702091,0.067678024773,0.0676970702281,0.0682017747888,0.0682303429715,0.0687445702598,0.0697635021088,0.069887297567,0.0699634793875,0.0704681839482,0.0709252748712,0.0713728430665,0.0718013658067,0.0726584112872,0.0731155022101,0.073029797662,0.0728583885659,0.0734773658574,0.0746010477095,0.0752009795458,0.0754295250073,0.076172297757,0.0768579341414,0.0767817523209,0.0773721614297,0.0781244569069,0.0788005705637,0.0794766842205,0.0794005024001,0.0794385933103,0.0800385251466,0.0799052069608,0.0804003887939,0.0805051387971,0.0807812978963,0.081047934268,0.0815145479185,0.081981161569,0.0821525706651,0.0825715706777,0.0834000479755,0.0835428888889,0.0840190252669,0.0847713207442,0.0854760025837,0.0860187980547,0.0861711616956,0.0866282526185,0.0876852753778,0.0887708663197,0.0890946390567,0.0898183663513,0.0905706618286,0.0915515027674,0.0916848209532,0.092513298251,0.0941512073914,0.0947130483175,0.0955605710704,0.0957605483491,0.0964271392784,0.0975984347683,0.0982650256976,0.0990458893575,0.100017207569,0.100874253049,0.100855207594,0.100759980318,0.101426571248,0.102312184911,0.10301686675,0.103426344035,0.103892957686,0.104388139519,0.10489284408,0.105426116823,0.106321253214,0.107568730524,0.107711571438,0.108321026002,0.10891143511,0.110492207885,0.111387344276,0.11207298066,0.112520548856,0.113310935243,0.113415685246,0.11391086708,0.11430129891,0.114586980736,0.115282139848,0.11523452621,0.115539253492,0.116253458059,0.116615321707,0.117396185367,0.1191007536,0.119986367263,0.121471912763,0.122100412782,0.122786049166,0.123109821903,0.124290640121,0.124938185595,0.126252321998,0.12698557202,0.12733791294,0.127490276581,0.127871185683,0.129347208455,0.130899413048,0.132480185823,0.132670640374,0.13408952678,0.135241776815,0.136155958661,0.137070140507,0.139193708753,0.140622117887,0.141364890637,0.141755322467,0.142536186127,0.143526549793,0.144735936193,0.145792958952,0.146573822612,0.147992709019,0.148373618121,0.149268754512,0.150002004534,0.150963800018,0.15243982279,0.153582550097,0.153868231924,0.154687186494,0.155887050167,0.157020254746,0.158134413871,0.159562823005,0.160391300303,0.161334050331,0.162219663994,0.163724254949,0.16465748225,0.165419300455,0.166542982307,0.167304800512,0.168314209633,0.168790346011,0.17019970969,0.171428141545,0.172389937029,0.173923096166,0.17492298256,0.176246641691,0.177417937181,0.177855982649,0.179027278139,0.180150959991,0.181617460035,0.182103119141,0.182798278253,0.182331664602,0.183636278278,0.184436187393,0.18511230105,0.186112187444,0.187540596578,0.188369073876,0.188692846613,0.190292664843,0.191035437593,0.193282801297,0.193787505858,0.194977846803,0.195615869549,0.196634801398,0.197777528706,0.199053574199,0.200367710602,0.202119892473,0.203110256139,0.204148233444,0.206376551693,0.208052551743,0.210309438175,0.212223506415,0.213032938258,0.214870824677,0.215527892878,0.215661211064,0.21770859749,0.218784665704,0.2189560748,0.219527438454,0.219327461175,0.220498756665,0.22094632486,0.220879665767,0.22282230219,0.223536506757,0.224231665869,0.225517234089,0.227307506871,0.228545461454,0.230773779703,0.230802347886,0.231906984283,0.233621075244,0.23383057525,0.235506575301,0.235830348038,0.236335052598,0.236754052611,0.237515870816,0.237163529896,0.238249120838,0.23980132543,0.240182234533,0.242305802779,0.243191416442,0.2445245983,0.245524484694,0.245638757425,0.24608632562,0.248019439315,0.248657462062,0.248686030244,0.250076348468,0.250009689375,0.250533439391,0.251371439416,0.251371439416,0.252123734894,0.252914121281,0.252304666717,0.252923644009,0.253647371303,0.252856984916,0.253161712198,0.252790325823,0.252380848538,0.252266575807,0.251876143977,0.251190507593,0.250828643946,0.25077150758,0.250476303026,0.250285848475,0.249409757539,0.248524143876,0.248124189318,0.247667098395,0.247590916575,0.248143234773,0.248171802956,0.246848143825,0.245943484707,0.245467348329,0.245038825589,0.245029302861,0.244496030118,0.243791348278,0.243124757349,0.242315325506,0.242058211862,0.24171539367,0.241086893651,0.240877393645,0.239458507238,0.237839643553,0.237001643528,0.236496938967,0.234706666185,0.232535484302,0.230926143344,0.230011961498,0.228574029636,0.22645046139,0.22559341591,0.224498302241,0.222498529453,0.220489233938,0.219727415733,0.219403642996,0.217489574756,0.216642052003,0.215042233773,0.214880347404,0.214347074661,0.213747142825,0.212652029155,0.211623574579,0.210804620008,0.208842938131,0.208576301759,0.206690801702,0.205576642578,0.203729233431,0.201405687906,0.199872528769,0.198472687817,0.197415665058,0.196006301379,0.194549324063,0.192806664919,0.192082937624,0.19147348306,0.190806892131,0.190130778474,0.189178505718,0.188454778424,0.187302528389,0.185988391986,0.186264551085,0.185055164685,0.183417255544,0.18273161916,0.180665187279,0.179284391783,0.178836823588,0.178027391745,0.176989414441,0.176246641691,0.174523028003,0.173694550705,0.173646937067,0.172751800676,0.172647050673,0.172808937042,0.171570982459,0.170523482427,0.170285414238,0.170075914232,0.169875936953,0.169399800575,0.168133277809,0.166771527768,0.165885914105,0.164428936788,0.162952914017,0.162372027635,0.160334163937,0.15872482298,0.156544118368,0.154944300138,0.153058800081,0.150982845473,0.149449686336,0.147554663551,0.146888072622,0.144535958914,0.144059822536,0.142221936117,0.141364890637,0.139612708766,0.138517595096,0.137974799625,0.136546390491,0.135775049559,0.133641958585,0.132832526742,0.131175572147,0.129975708474,0.12819495842,0.127871185683,0.126309458363,0.124947708322,0.124185890117,0.123109821903,0.122719390073,0.121976617323,0.120576776372,0.120005412718,0.118948389959,0.117519980825,0.117129548995,0.116482003521,0.115186912573,0.113872776169,0.112482457945,0.111558753372,0.111035003356,0.110416026065,0.110292230607,0.109406616943,0.108301980546,0.107283048697,0.106368866852,0.105654662285,0.10457859407,0.103864389503,0.10301686675,0.10212173036,0.101074230328,0.100569525767,0.099664866649,0.0990173211748,0.0986649802551,0.0982078893322,0.0983792984283,0.0969794574769,0.095893866535,0.0955415256152,0.094874934686,0.0938464801095,0.0932560710007,0.0927132755297,0.0919228891422,0.0914562754917,0.0903802072774,0.0902945027294,0.0901516618159,0.0895326845245,0.0891517754221,0.0890375026914,0.0888470481401,0.0881614117558,0.0872948435478,0.0866092071634,0.0865139798878,0.0854950480388,0.0848094116545,0.0836762070748,0.0825810934053,0.0817621388351,0.0811812524539,0.0808765251719,0.0799242524159,0.0790386387528,0.0782387296377,0.0781339796345,0.0777530705321,0.0775721387084,0.0771436159682,0.076477025039,0.075610456831,0.0750390931773,0.0755247522829,0.0750581386324,0.0746296158922,0.0740106386008,0.0734392749471,0.072553661284,0.0720680021784,0.0715252067075,0.0711062066948,0.0709824112365,0.0702015475765,0.0699349112049,0.0696397066505,0.0692683202756,0.0688017066251,0.0688874111732,0.0689731157212,0.0685160247983,0.0684303202503,0.0677827747762,0.0676494565903,0.0671161838469,0.0664400701901,0.0656877747128,0.0650687974214,0.0643355473992,0.0639355928417,0.0637260928354,0.063516592829,0.0632975700951,0.0626595473486,0.0624881382525,0.0622119791532,0.0621643655154,0.0619453427815,0.0617548882303,0.0610978200286,0.0613358882177,0.0604217063718,0.0599646154489,0.0598503427182,0.0596789336221,0.0593932517953,0.0593456381575,0.0592027972441,0.0586790472283,0.059117092696,0.0585647744975,0.0589171154173,0.0583743199463,0.0582029108502,0.0574791835556,0.0572411153666,0.0570887517256,0.0567078426232,0.0565269107996,0.0552794334891,0.0545080925567,0.0540795698165,0.0536224788936,0.0533558425219,0.0534129788873,0.0528035243234,0.0520607515737,0.0516322288334,0.0514132060995,0.0517179333815,0.0519179106602,0.0510513424522,0.0511560924554,0.050860887901,0.0507085242601,0.0510703879074,0.0508513651735,0.0510227742696,0.0508037515357,0.0502228651545,0.049908615145,0.0501276378789,0.0498705242347,0.0493182060362,0.0491467969401,0.0486230469243,0.0488135014755,0.0484897287384,0.0483945014628,0.0484325923731,0.048737319655,0.0489563423889,0.0488992060235,0.0487849332928,0.0486611378345,0.0488039787479,0.0486040014692,0.0484325923731,0.0484516378282,0.0483849787353,0.0471660696075,0.0467565923224,0.046613751409,0.0465185241334,0.0461566604861,0.0454043650088,0.0452424786403,0.0454900695569,0.0453853195537,0.0450425013615,0.0453377059159,0.0452424786403,0.0448901377205,0.0445187513457,0.0443187740669,0.0447949104449,0.0446044558937,0.0439664331472,0.0435093422243,0.0434522058589,0.0434236376762,0.0431855694872,0.0430141603911,0.0428332285675,0.0430712967565,0.0429855922084,0.0427951376572,0.0431189103943,0.042995114936,0.0426237285611,0.0424713649202,0.0424713649202,0.0426713421989,0.0429855922084,0.0426142058336,0.0423190012792,0.0421095012729,0.0415762285295,0.0412524557924,0.0411667512444,0.0416047967121,0.0416143194397,0.0413857739783,0.0410143876034,0.0409096376002,0.0409001148727,0.0411667512444,0.0411572285168,0.0412143648822,0.0414238648885,0.0408429785073,0.0405763421356,0.0403477966741,0.0404525466773,0.040328751219,0.0402811375812,0.0396431148347,0.0394431375559,0.0395764557417,0.0392717284598,0.0391765011842,0.0391003193637,0.0391288875464,0.0390622284535,0.0391288875464,0.0390431829984,0.0393288648252,0.0396907284725,0.0394336148283,0.0394050466457,0.0392145920944,0.0391288875464,0.0393002966425,0.039376478463,0.039224114822,0.0390241375432,0.0391003193637,0.0387194102613,0.0388051148093,0.0389289102676,0.0392336375496,0.0391955466393,0.0389670011779,0.0390431829984,0.0391098420913,0.0387194102613,0.0382242284281,0.0382813647935,0.0386527511684,0.0388717739023,0.0389574784503,0.0387765466267,0.0388051148093,0.0385670466203,0.0383004102486,0.038443251162,0.0387194102613,0.0387765466267,0.0381861375179,0.0377480920501,0.0377861829604,0.0380147284218,0.0377004784123,0.0374528874957,0.0372719556721,0.037186251124,0.0369386602075,0.0369957965728,0.0371672056689,0.0371100693036,0.0370148420279,0.0368053420216,0.036948182935,0.0369291374799,0.0371291147587,0.0371481602138,0.0375100238611,0.0370053193004,0.0365482283775,0.0363672965538,0.0362054101853,0.0362625465507,0.036386342009,0.0364625238294,0.0364815692846,0.0363768192814,0.0361768420026,0.0364530011019,0.0363482510987,0.0363768192814,0.0364053874641,0.0361387510924,0.0359197283585,0.0356626147143,0.0358911601758,0.0354150237978,0.0352340919741,0.035215046519,0.0354340692529,0.0355007283458,0.0351102965158,0.0350150692402,0.0350341146953,0.0350817283332,0.0348341374166,0.035453114708,0.0356435692592,0.0355292965285,0.0358149783553,0.0356721374419,0.0357864101726,0.0360530465443,0.0361292283648,0.0357292738073,0.0356245238041,0.0355007283458,0.0353388419773,0.0354055010702,0.0350912510607,0.03497697833,0.0349103192371,0.0349484101473,0.0345675010449,0.0348627055993,0.0346341601378,0.0345770237724,0.034434182859,0.034434182859,0.0346436828654,0.0350436374229,0.0351198192434,0.0347579555961,0.0346532055929,0.0349674556024,0.0351102965158,0.0353197965222,0.035129341971,0.0351769556088,0.0346055919551,0.0342056373976,0.0340627964842,0.0343865692212,0.0347198646859,0.0343580010385,0.0342818192181,0.0339294782983,0.0343865692212,0.0342818192181,0.0347579555961,0.0353293192497,0.0355292965285,0.0353293192497,0.0350341146953,0.0352436147017,0.0354912056183,0.0358340238104,0.0355959556214,0.0353864556151,0.0355007283458,0.0351769556088,0.0352340919741,0.0351769556088,0.0355673874387,0.03536741016,0.0353483647048,0.035062682878,0.035062682878,0.0352817056119,0.0347770010512,0.0347103419583,0.0344056146764,0.0346436828654,0.0343294328559,0.0345294101346,0.034434182859,0.0344437055866,0.0345198874071,0.0343103874007,0.0343865692212,0.0342246828527,0.0342056373976,0.0340056601188,0.0339294782983,0.0335009555581,0.0333962055549,0.0330724328179,0.0326629555328,0.0327677055359,0.0327391373533,0.0329772055423,0.0329105464493,0.0327867509911,0.0331486146384,0.0333485919171,0.0332724100966,0.0336342737439,0.0340818419393,0.0342818192181,0.0341675464873,0.0340151828464,0.0340627964842,0.0343580010385,0.0339390010259,0.0337866373849,0.034043751029,0.0336818873817,0.0335866601061,0.0336723646542,0.033958046481,0.0337961601125,0.0339294782983,0.0336342737439,0.033872341933,0.0339485237534,0.0337009328369,0.0339485237534,0.0338818646605,0.0335009555581,0.033567614651,0.0334533419203,0.033243841914,0.0332152737313,0.0325962964398,0.0322915691579,0.0322058646099,0.0320249327862,0.0319392282382,0.0318630464177,0.0315011827704,0.031920182783,0.0319677964208,0.0323391827957,0.0327867509911,0.0331676600935,0.0333866828274,0.0333676373722,0.0334152510101,0.0335390464683,0.0340247055739,0.0334628646479,0.0334057282825,0.0327772282635,0.0326343873501,0.0329486373596,0.0326915237154,0.0330438646352,0.0328915009942,0.0329581600871,0.0325677282572,0.0329581600871,0.0330629100903,0.03380568284,0.0339675692086,0.0336533191991,0.0336247510164,0.0334438191927,0.0339009101156,0.0339961373912,0.0341675464873,0.03380568284,0.0336914101093,0.0332343191864,0.0332247964588,0.0329772055423,0.0329486373596,0.0328629328115,0.0328629328115,0.0327391373533,0.0325772509847,0.0327200918981,0.0326724782603,0.0328438873564,0.0327296146257,0.0328248419013,0.0329295919045,0.0328438873564,0.032615341895,0.0326058191674,0.032548682802,0.0326629555328,0.0328343646289,0.0326629555328,0.0328343646289,0.0331105237281,0.0332247964588,0.0336628419266,0.033567614651,0.0332152737313,0.0336057055613,0.0336057055613,0.0336628419266,0.0334342964652,0.0334152510101,0.033091478273,0.0329962509974,0.0328724555391,0.0329010237218,0.0332628873691,0.0332819328242,0.0333200237344,0.033091478273,0.0332724100966,0.0335104782857,0.0335200010132,0.033567614651,0.0336152282888,0.0333009782793,0.033329546462,0.0327105691706,0.0328153191737,0.0332057510037,0.0335390464683,0.0333200237344,0.0335771373786,0.0339009101156,0.0339485237534,0.0340913646669,0.0339961373912,0.034348478311,0.0339770919361,0.0335961828337,0.0332247964588,0.0331486146384,0.0331581373659,0.0332343191864,0.0328438873564,0.0325772509847,0.0325391600745,0.0325867737123,0.0328248419013,0.0329676828147,0.0326724782603,0.0325201146194,0.0324153646162,0.0319011373279,0.0320058873311,0.0322344327925,0.0320915918791,0.0319392282382,0.0320535009689,0.0322534782477,0.0327581828084,0.0330438646352,0.0327581828084,0.0327296146257,0.0328629328115,0.0329105464493,0.0329867282698,0.0332152737313,0.032939114632,0.0329010237218,0.0327867509911,0.032462978254,0.0323201373406,0.0321296827894,0.0319297055106,0.0322534782477,0.0323582282508,0.0322725237028,0.0322725237028,0.0317678191421,0.0318535236901,0.0320915918791,0.032462978254,0.0327677055359,0.0327105691706,0.0323772737059,0.0322534782477,0.0317773418696,0.0319011373279,0.0324153646162,0.0322630009752,0.0321582509721,0.0325010691642,0.0323867964335,0.0325296373469,0.0328248419013,0.0330343419076,0.0332533646415,0.0329962509974,0.0327105691706,0.0295109327102,0.0262446371569,0.0226355234115,0.0194549324063,0.0)
m <- c(0.0184078032299,0.021440798788,0.0243974925711,0.027764308395,0.0309212943375,0.0314077181535,0.0312169637158,0.0316938498099,0.031760613863,0.0318655288037,0.0320658209632,0.0319418305788,0.0321707359039,0.0320181323538,0.0322088867914,0.0323996412291,0.032485480726,0.032485480726,0.0323901035072,0.0321230472945,0.0323328771759,0.0325331693354,0.0325427070573,0.0320562832413,0.0321802736258,0.0320467455195,0.03184645336,0.0319036796913,0.0320085946319,0.0321707359039,0.0322374999571,0.0322851885665,0.0322851885665,0.0327334614949,0.032561782501,0.0322851885665,0.0322947262884,0.031760613863,0.0314172558753,0.0314267935972,0.0312360391596,0.031522170816,0.0316461612005,0.0316652366442,0.0315889348692,0.0317701515849,0.0318273779162,0.0322088867914,0.0324664052822,0.0324377921166,0.032647621998,0.0325236316135,0.0322661131227,0.032723923773,0.0329814422638,0.033124508092,0.0331149703701,0.0328765273231,0.0330768194826,0.0331817344233,0.0332389607546,0.0332961870858,0.0334011020265,0.0332103475889,0.0332389607546,0.0332484984764,0.0329432913763,0.0331149703701,0.0333534134171,0.0332580361983,0.0331054326482,0.0331149703701,0.0334487906359,0.0333820265828,0.0332294230327,0.0331149703701,0.0335727810204,0.0334487906359,0.0333248002515,0.033124508092,0.0330195931513,0.0329051404887,0.032561782501,0.0325427070573,0.0325045561697,0.0325140938916,0.0324377921166,0.0327716123824,0.0330291308732,0.0330958949264,0.0330577440388,0.0329432913763,0.0333152625296,0.0331435835358,0.0331054326482,0.0330005177075,0.0330768194826,0.0331149703701,0.0327811501043,0.0329242159325,0.0328956027669,0.0326380842761,0.0321993490696,0.0322947262884,0.0323614903415,0.0330386685951,0.0327143860511,0.0325427070573,0.0326953106074,0.0327620746605,0.0329719045419,0.0333248002515,0.0335441678547,0.0335823187423,0.0338589126768,0.0330386685951,0.0331435835358,0.0335537055766,0.0334201774703,0.0336967714048,0.033763535458,0.0338112240674,0.0338207617893,0.0339066012862,0.0335727810204,0.0340496671144,0.0342118083864,0.0335727810204,0.0334297151922,0.0334487906359,0.0333724888609,0.0335918564642,0.033601394186,0.0337539977361,0.0337253845705,0.0336395450736,0.0336204696298,0.0339542898956,0.0341545820551,0.0336681582392,0.0338016863455,0.0333724888609,0.0334201774703,0.0330291308732,0.0330958949264,0.0330291308732,0.0329337536544,0.0327048483292,0.0327716123824,0.0331531212576,0.0331340458139,0.0335346301329,0.0333820265828,0.0336776959611,0.0336967714048,0.0337730731799,0.0339066012862,0.0338016863455,0.0337730731799,0.0338207617893,0.0338207617893,0.0337349222924,0.0339066012862,0.0338684503987,0.0338112240674,0.0338589126768,0.0340115162269,0.0338589126768,0.0340687425582,0.0338207617893,0.033687233683,0.0337444600142,0.03392567673,0.0339638276175,0.034240421552,0.033525092411,0.0332294230327,0.0337253845705,0.0334583283578,0.0337063091267,0.0336586205173,0.033525092411,0.0336204696298,0.0330958949264,0.0331054326482,0.0335823187423,0.0338207617893,0.0338684503987,0.0340305916707,0.0338589126768,0.0339733653394,0.0340592048363,0.0342118083864,0.0344121005459,0.0342881101615,0.0344884023209,0.0345551663741,0.0341450443332,0.0338302995112,0.0340305916707,0.0339924407831,0.0338016863455,0.0332294230327,0.033362951139,0.033124508092,0.0332294230327,0.033362951139,0.033763535458,0.0337444600142,0.0338875258425,0.034001978505,0.0338875258425,0.0342308838302,0.0343834873803,0.0345074777647,0.0346123927054,0.0345933172616,0.0344311759897,0.0346982322023,0.0345265532085,0.0343453364927,0.0346600813148,0.0346696190367,0.0348126848649,0.0349462129712,0.0347077699242,0.0347363830898,0.0349557506931,0.035442174509,0.0351941937401,0.0353754104559,0.0354803253965,0.0353277218465,0.0355757026154,0.0356996929998,0.035842758828,0.0357569193311,0.0357473816092,0.0354803253965,0.0360144378219,0.0359762869344,0.0359667492125,0.0359476737687,0.0357473816092,0.0356138535029,0.0355566271716,0.0354898631184,0.035842758828,0.0356520043904,0.0352704955152,0.0354707876747,0.0357092307217,0.0357473816092,0.0356138535029,0.0355566271716,0.0359095228812,0.0357092307217,0.0352228069058,0.0351751182964,0.0351655805745,0.0350129770244,0.0350225147463,0.0349366752493,0.0348985243618,0.0349175998056,0.0346886944804,0.0346505435929,0.0345265532085,0.0342213461083,0.0341164311676,0.0341545820551,0.0340496671144,0.0342690347177,0.0343930251021,0.0344693268772,0.0342785724396,0.0345456286522,0.034965288415,0.0356615421123,0.0361384282063,0.0359381360468,0.0356138535029,0.0355947780591,0.0356615421123,0.0358809097155,0.0360716641532,0.0362814940345,0.036167041372,0.0360525887094,0.0360525887094,0.0363291826439,0.0365962388566,0.0365867011347,0.0364245598627,0.0361765790938,0.0363577958096,0.0365390125253,0.0364340975846,0.036405484419,0.0364436353065,0.0363673335315,0.0365962388566,0.0366916160754,0.0368251441817,0.0372161907789,0.0371494267257,0.0368919082349,0.0377216900385,0.0377598409261,0.0378647558667,0.0388471412205,0.0387040753923,0.0388948298299,0.0391046597113,0.03904743338,0.0390569711018,0.0392572632613,0.0388948298299,0.0388185280548,0.038961593883,0.0384274814577,0.0387040753923,0.038408406014,0.0388280657767,0.0388280657767,0.0392095746519,0.0392668009832,0.0393717159239,0.0394098668114,0.0392191123738,0.0391714237644,0.0389425184393,0.0392954141489,0.0388566789424,0.0387613017235,0.0389520561612,0.0388566789424,0.0388662166642,0.0391141974331,0.0393049518707,0.0392286500957,0.0395624703615,0.039686460746,0.0397723002429,0.0400965827869,0.0397341493554,0.0397818379648,0.0397723002429,0.0396292344147,0.0398962906274,0.0399535169586,0.039924903793,0.0396101589709,0.0395624703615,0.0397532247991,0.0395815458053,0.0396006212491,0.0395815458053,0.0398009134085,0.0396101589709,0.0394575554208,0.0395624703615,0.0400965827869,0.0403827144433,0.0403541012776,0.0407165347091,0.0411457321937,0.041603542844,0.0417847595598,0.0420422780505,0.042404711482,0.0426622299728,0.0422139570444,0.0425191641446,0.0425382395883,0.0425000887008,0.0422711833757,0.0419850517193,0.0416798446191,0.0413937129626,0.0419755139974,0.0419850517193,0.0424810132571,0.0424714755352,0.0425000887008,0.0430055879605,0.0435110872202,0.0439593601486,0.0442359540831,0.044407633077,0.0438830583735,0.0438544452079,0.0438925960954,0.043682766214,0.0435587758296,0.0434252477233,0.0435778512733,0.0430914274574,0.0433966345576,0.0434061722795,0.0439212092611,0.0439975110361,0.0443122558582,0.0445125480177,0.0448463682835,0.0448177551178,0.0444648594083,0.0447319156209,0.0450275849992,0.0453995561526,0.0452374148806,0.0452564903244,0.0452660280462,0.0454758579276,0.0459336685779,0.046162573903,0.0466108468314,0.0468492898785,0.0461148852936,0.0458573668029,0.0459622817435,0.0462484134,0.0466013091096,0.0464582432813,0.0466013091096,0.0465536205002,0.0464200923938,0.0467157617721,0.0474883172445,0.0479938165042,0.0486519193139,0.048966664136,0.048728221089,0.0489952773016,0.0489285132485,0.0488522114734,0.0495580028926,0.0498727477147,0.0502256434243,0.0504545487494,0.0503973224181,0.0509886611747,0.0515036981563,0.0518565938659,0.0521904141317,0.052962969604,0.0530869599885,0.0531441863198,0.0531823372073,0.0532777144261,0.0536115346919,0.0533349407574,0.0536115346919,0.0539644304015,0.0539548926796,0.0537450627983,0.0537927514077,0.0545271559925,0.0548323630927,0.0551947965241,0.0553378623524,0.0555858431213,0.0558147484464,0.055929201109,0.0563488608717,0.0566922188594,0.0568257469658,0.056806671522,0.0566254548063,0.0568734355752,0.0571881803972,0.0573407839473,0.0577795191538,0.058008424479,0.0581133394197,0.0589812721108,0.0590957247734,0.0588382062826,0.059286479211,0.0597061389738,0.0603451663398,0.0604691567242,0.0605836093868,0.0610604954808,0.0623194747691,0.0623576256566,0.0628535871944,0.063931349767,0.0646276034643,0.0645894525767,0.0641793305359,0.0652284799427,0.0653429326053,0.0662013275746,0.0657912055337,0.0662967047934,0.0666686759467,0.0664016197341,0.0670406471001,0.0675079954723,0.0683473149978,0.0690054178075,0.0691484836357,0.0693487757952,0.0697875110018,0.0699973408831,0.0708461981305,0.0716950553779,0.0720193379219,0.0726011389566,0.072725129341,0.0726106766785,0.0735835243103,0.0740985612919,0.0741939385107,0.0749855694268,0.0748043527111,0.0752430879176,0.0758439643961,0.0763208504901,0.0768740383592,0.0774176885064,0.0779804140974,0.0777610464941,0.0786003660196,0.0786766677947,0.0795350627639,0.0800596374674,0.08032669368,0.0810992491524,0.0819576441217,0.0823486907188,0.0826252846533,0.0832261611318,0.0838461130541,0.0851146300642,0.0853053845018,0.0855056766613,0.0861447040273,0.0866120523995,0.0869649481091,0.0872510797655,0.0876707395282,0.08849098361,0.0889106433728,0.088729426657,0.0891967750292,0.0898358023952,0.0900742454422,0.0905797447019,0.0909040272458,0.0917814976589,0.0927829584564,0.0935078253193,0.0941277772415,0.0954725960267,0.0968269525338,0.097771187,0.0990873926196,0.100012551642,0.101195229155,0.102091775012,0.103179075306,0.103875329004,0.104562044979,0.104781412582,0.105716109327,0.106479127077,0.107299371159,0.107566427372,0.108491586394,0.109254604144,0.10989363151,0.111162148521,0.111963317159,0.112688184022,0.113546578991,0.114347747629,0.114481275735,0.115807019077,0.116589112271,0.117695488009,0.118344053097,0.119507655166,0.12084293623,0.122120990962,0.122321283121,0.123704252794,0.124839241698,0.125115835632,0.125897928826,0.126155447317,0.127290436221,0.127967614475,0.128635255006,0.129531800863,0.130142215063,0.130437884442,0.131687326008,0.133156135178,0.133985916981,0.134949226891,0.135616867423,0.136656479108,0.137648402184,0.139431956175,0.141768698036,0.144134053063,0.145927144776,0.147195661786,0.149074592997,0.151268269029,0.153500095949,0.154997518285,0.157334260146,0.158469249049,0.159575624788,0.160815528632,0.16212219653,0.164067891793,0.165727455401,0.167339330399,0.16851247019,0.169437629212,0.170515391785,0.171421475363,0.172890284533,0.173376708349,0.173777292668,0.175217488672,0.174979045625,0.175494082607,0.176505081126,0.176905665445,0.177449315592,0.17809788068,0.178889511596,0.17921379414,0.179967274169,0.180119877719,0.181779441326,0.182494770467,0.18276182668,0.184564456115,0.185251172091,0.186576915432,0.187206405076,0.189199788949,0.190735362172,0.191927577407,0.193024415423,0.194598139534,0.195618675775,0.196553372519,0.197297314826,0.198556294114,0.199777122515,0.200225395443,0.20162744056,0.202552599582,0.204450606237,0.205413916147,0.207140243807,0.207960487889,0.209820343656,0.211222388772,0.211766038919,0.21313947087,0.214636893205,0.216220155038,0.216668427966,0.218080010804,0.219195924264,0.220130621009,0.220884101037,0.221484977516,0.222991937573,0.224641963458,0.225090236387,0.226253838456,0.227198072922,0.228333061826,0.22916284363,0.230946397622,0.232138612857,0.233721874689,0.235638956787,0.237002851016,0.237918472316,0.238881782226,0.239330055155,0.239930931633,0.24006445974,0.240922854709,0.241733561069,0.241771711956,0.242219984885,0.24260149376,0.243917699379,0.245004999674,0.246015998193,0.245901545531,0.247093760766,0.247866316238,0.248371815498,0.249001305142,0.249907388721,0.250784859134,0.25087069863,0.250689481915,0.250966075849,0.252530262238,0.252558875403,0.25188169715,0.252196441972,0.251929385759,0.251757706765,0.250927924962,0.251318971559,0.2514238865,0.251662329547,0.250908849518,0.250966075849,0.251547876884,0.251700480434,0.252377658688,0.2526447149,0.252577950847,0.251872159428,0.251147292565,0.250889774074,0.24995507733,0.250374737093,0.248905927923,0.247150987097,0.245357895383,0.243421737842,0.242696870979,0.24163818385,0.240541345834,0.239530347314,0.239444507817,0.238528886517,0.23839535841,0.239368206042,0.23971156403,0.239320517433,0.237918472316,0.237470199388,0.236306597319,0.235638956787,0.235104844362,0.233798176464,0.232615498951,0.231270680165,0.229534814783,0.227913402063,0.227331601029,0.226435055172,0.226482743781,0.225061623221,0.222858409467,0.221732958285,0.220760110653,0.219205461986,0.217851105479,0.217164389504,0.216058013766,0.215018402081,0.213463753414,0.213196697201,0.212815188326,0.211823265251,0.210631050015,0.209476985668,0.209105014515,0.207578979014,0.206377226057,0.204832115112,0.203916493811,0.201570214229,0.200196782278,0.198661209055,0.197259163939,0.196057410982,0.194741205362,0.193672980511,0.19280504782,0.191174097379,0.189905580368,0.189514533771,0.188484459808,0.187454385845,0.186586453154,0.185337011588,0.1846884465,0.184049419134,0.182752288958,0.181817592214,0.180854282304,0.179204256418,0.178164644733,0.177058268995,0.175913742369,0.175122111453,0.173462547846,0.172327558942,0.171926974623,0.171268871813,0.169866826697,0.169552081875,0.168283564865,0.166805217973,0.165908672116,0.164954899928,0.164535240166,0.163114119605,0.161044433957,0.159833143278,0.158946135143,0.157200732039,0.155865450976,0.154539707634,0.153633624056,0.152346031602,0.150877222432,0.150400336338,0.149112743884,0.148082669921,0.146423106314,0.145965295664,0.145574249067,0.145106900694,0.144048213566,0.14336149759,0.142073905136,0.140795850404,0.140442954695,0.139479644785,0.139489182507,0.138039448781,0.136904459877,0.135902999079,0.134958764613,0.134262510916,0.133633021272,0.13281277719,0.132087910327,0.13119136447,0.130018224679,0.12946503681,0.12900722616,0.12834912335,0.127576567877,0.126050532377,0.125497344507,0.124982307526,0.124047610782,0.122864933268,0.121729944365,0.120633106348,0.119488579723,0.118229600434,0.117743176618,0.117228139637,0.116350669224,0.115330132983,0.115034463604,0.114319134463,0.114176068635,0.113393975441,0.112535580471,0.112220835649,0.111906090827,0.110895092308,0.110380055326,0.109473971748,0.108186379294,0.107871634472,0.107633191425,0.107375672934,0.107327984325,0.106841560509,0.104953091576,0.104542969535,0.1033507543,0.103016934034,0.1027403401,0.102444670722,0.100603890399,0.0998408726481,0.0988298741288,0.0981431581534,0.0983529880347,0.0977807247219,0.0973896781248,0.096493132268,0.0955107469143,0.0942040790166,0.0940037868571,0.0935078253193,0.0931358541659,0.0920676293153,0.0906846596426,0.0899979436672,0.0897213497326,0.0895973593482,0.0892730768042,0.0890346337572,0.0887008134914,0.0880808615691,0.0869267972215,0.0867169673402,0.0862973075774,0.0855819784364,0.0846186685264,0.0837411981134,0.0826252846533,0.0821960871687,0.0815952106902,0.080650976224,0.0800214865799,0.0792012424981,0.078810195901,0.0784954510789,0.0779422632098,0.077207858625,0.0768549629154,0.0761300960525,0.0755006064084,0.0754338423552,0.0751095598112,0.0753575405801,0.0748806544861,0.0745849851078,0.0740985612919,0.0736216751978,0.0734118453165,0.0730684873288,0.0726869784535,0.0723531581877,0.0723054695783,0.0714852254965,0.071284933337,0.0702643970958,0.06993057683,0.0698828882206,0.0690817195826,0.0687383615949,0.0684140790509,0.0680325701757,0.0671169488751,0.0670311093782,0.0666400627811,0.067050184822,0.0668689681062,0.0663062425153,0.0660677994683,0.0656958283149,0.0653333948834,0.0647515938487,0.0647992824581,0.0642747077547,0.0640648778733,0.0634735391167,0.0628631249163,0.0628535871944,0.0625197669286,0.0621191826096,0.0617376737344,0.0612989385279,0.061050957759,0.0602688645647,0.05968706353,0.0592960169329,0.0590098852765,0.0582850184135,0.0583422447448,0.058084726254,0.0577032173788,0.0579607358696,0.0574933874974,0.0577795191538,0.057769981432,0.0577127551007,0.0575315383849,0.0573789348349,0.0568925110189,0.0568543601314,0.0566540679719,0.0560150406059,0.0557289089495,0.0561104178247,0.0557384466714,0.0552997114648,0.0552710982992,0.0551757210804,0.0550326552522,0.0544508542174,0.0539835058453,0.0537450627983,0.0533349407574,0.0526005361726,0.0525909984507,0.0522285650192,0.0520759614691,0.0521427255223,0.0521427255223,0.0522571781849,0.0519996596941,0.0519710465284,0.0518565938659,0.0513606323281,0.050645303187,0.0502256434243,0.0499490494897,0.049844134549,0.0497106064427,0.0494530879519,0.0496533801114,0.0496629178333,0.0498822854365,0.0498632099928,0.0499395117678,0.0500730398742,0.0503782469743,0.0496343046676,0.0490334281892,0.0489094378047,0.0489952773016,0.0483085613262,0.0480701182792,0.0479938165042,0.0478125997884,0.0476409207946,0.0468016012691,0.0466108468314,0.0465059318907,0.0462961020094,0.0457429141403,0.0459050554123,0.045447244762,0.0452183394368,0.0451324999399,0.0452374148806,0.0449798963898,0.0454567824839,0.0452946412119,0.0455140088151,0.0456284614777,0.0455521597027,0.0455521597027,0.0456189237558,0.0454567824839,0.0453232543775,0.0456570746434,0.0449894341117,0.0455521597027,0.0449703586679,0.0443980953551,0.0437590679891,0.044007048758,0.0434920117764,0.0434633986108,0.0431200406231,0.042728994026,0.0427957580791,0.0424810132571,0.0420232026068,0.0419182876661,0.0423951737601,0.0418801367786,0.0419469008317,0.041841985891,0.0417561463941,0.0417179955066,0.0417179955066,0.0413364866314,0.0414509392939,0.0416798446191,0.0414032506845,0.0417466086722,0.0418705990567,0.0418229104473,0.0420804289381,0.0419373631098,0.0419373631098,0.0421758061569,0.0422711833757,0.0421948816006,0.0419755139974,0.0414604770158,0.0409359023124,0.0407356101529,0.0404113276089,0.0406306952122,0.0402682617807,0.0398676774617,0.0395338571959,0.0395529326396,0.0398390642961,0.0398009134085,0.0399344415149,0.0396578475803,0.0398295265742,0.039285876427,0.0393240273145,0.0392668009832,0.039362178202,0.0392191123738,0.0390188202143,0.0391809614863,0.0388757543861,0.0393144895926,0.0387422262798,0.0388948298299,0.0385896227297,0.0384465569015,0.0387613017235,0.0383988682921,0.0382081138545,0.0375690864884,0.0375500110447,0.037445096104,0.0375786242103,0.0378552181449,0.0379124444762,0.0380459725825,0.0379124444762,0.0379887462512,0.0378552181449,0.0383321042389,0.0383511796827,0.0381222743575,0.0383034910733,0.0379887462512,0.0380745857481,0.0376930768729,0.037521397879,0.0373687943289,0.0374260206602,0.0372448039445,0.03696821001,0.0372543416664,0.0371303512819,0.03712081356,0.0372543416664,0.0372543416664,0.0369109836787,0.0370540495069,0.0367869932942,0.0368346819036,0.0370254363412,0.0364913239159,0.0360621264313,0.036167041372,0.0359190606031,0.0360239755438,0.0358618342718,0.0355566271716,0.0354326367871,0.035528014006,0.0355470894497,0.0358904474374,0.0362910317564,0.036081201875,0.0359095228812,0.0358332211061,0.0364150221409,0.0366630029098,0.0372161907789,0.0369777477318,0.0369968231756,0.0366153143004,0.0362528808689,0.036081201875,0.0362528808689,0.0363864089752,0.0361193527626,0.0362051922595,0.0359381360468,0.0356138535029,0.0355184762841,0.0355566271716,0.0354517122309,0.0353181841246,0.0352323446276,0.0350988165213,0.0352609577933,0.0347840716993,0.0347459208117,0.0350320524682,0.0348985243618,0.0347936094211,0.0348889866399,0.0351560428526,0.0349748261369,0.0346123927054,0.0341831952208,0.0348603734743,0.0350129770244,0.0348508357524,0.0346982322023,0.0347745339774,0.0348412980305,0.034641005871,0.0312646523252,0.0280695154952,0.0247026996713,0.0207922337001,0.0)
ycorr <- c(6.99474589172e-05,6.98001968691e-05,6.93588904221e-05,6.86219829373e-05,6.75898912305e-05,6.62639667444e-05,6.4644426458e-05,6.30021507755e-05,6.13372851158e-05,5.96520264547e-05,5.79467108805e-05,5.62230809971e-05,5.44834090383e-05,5.27282410431e-05,5.09607522264e-05,4.91808083379e-05,4.73899807956e-05,4.55899081434e-05,4.37805380459e-05,4.19631689505e-05,4.01378134465e-05,3.83043641104e-05,3.64615721907e-05,3.46089760552e-05,3.27456981915e-05,3.08712591842e-05,2.898608063e-05,2.70872020695e-05,2.51741397135e-05,2.32455114395e-05,2.13008198622e-05,1.93400268911e-05,1.73626635908e-05,1.53682744157e-05,1.33563537765e-05,1.13272749891e-05,9.28067089367e-06,7.21667215542e-06,5.13810080863e-06,3.04396616666e-06,9.34339741179e-07,-1.19094788728e-06,-3.33291954716e-06,-5.49072861981e-06,-7.66553106305e-06,-9.85777006699e-06,-1.2068894529e-05,-1.42996342798e-05,-1.65514129595e-05,-1.88256996459e-05,-2.11208118098e-05,-2.34370827361e-05,-2.57749811316e-05,-2.81340208848e-05,-3.05136081015e-05,-3.29124932081e-05,-3.53300144083e-05,-3.77632514078e-05,-4.02123198584e-05,-4.26757294208e-05,-4.51541855088e-05,-4.76492118375e-05,-5.01584346381e-05,-5.26828582681e-05,-5.52227462318e-05,-5.77791334506e-05,-6.03514524907e-05,-6.2942171934e-05,-6.55524939748e-05,-6.81825683958e-05,-7.0834255359e-05,-7.35071179485e-05,-7.62015010542e-05,-7.89177902831e-05,-8.16538028998e-05,-8.44088350365e-05,-8.71821283923e-05,-8.99734227446e-05,-9.27802974936e-05,-9.56009182586e-05,-9.8433935922e-05,-0.000101277513954,-0.000104130909748,-0.000106993730783,-0.000109866356117,-0.000112747654025,-0.00011563762017,-0.000118536159185,-0.000121443453079,-0.000124360011076,-0.000127286516617,-0.000130222338293,-0.000133166277634,-0.000136116531777,-0.000139072352343,-0.000142035060876,-0.000145005585799,-0.000147981530952,-0.000150962755971,-0.000153947828906,-0.000156935325652,-0.00015992433894,-0.000162915903743,-0.000165910348356,-0.000168908241474,-0.000171908267254,-0.000174907892213,-0.000177908249607,-0.000180909486224,-0.000183911061144,-0.000186914125773,-0.000189917612715,-0.000192920340105,-0.000195920605277,-0.000198917392539,-0.00020190866948,-0.000204896041971,-0.000207876545059,-0.000210847223956,-0.000213806756409,-0.000216751660976,-0.000219680899511,-0.000222594673109,-0.000225492949589,-0.00022837482355,-0.000231241015858,-0.000234090319375,-0.00023692191526,-0.000239738963546,-0.000242542439128,-0.000245334414746,-0.000248116090345,-0.000250887375069,-0.000253647538139,-0.000256397418562,-0.00025913682719,-0.000261864654915,-0.000264581230692,-0.00026728451955,-0.000269973091161,-0.000272644372174,-0.000275297457043,-0.000277932527523,-0.000280549575653,-0.000283148339279,-0.000285727142499,-0.000288285632644,-0.000290824739237,-0.000293345203449,-0.000295847058317,-0.000298331813153,-0.000300801269679,-0.000303255478913,-0.000305694211349,-0.00030811639209,-0.000310523505625,-0.000312916586631,-0.000315295261696,-0.000317658384613,-0.000320005977717,-0.000322336418988,-0.000324647369784,-0.000326937059278,-0.000329205115894,-0.000331450808687,-0.000333673635027,-0.000335871776802,-0.00033804475335,-0.000340193579332,-0.000342318119901,-0.000344419000727,-0.00034649835678,-0.000348556562582,-0.000350594073864,-0.000352611710857,-0.000354610222558,-0.000356590824632,-0.000358554413205,-0.000360500628965,-0.000362430042375,-0.000364343456655,-0.000366240072414,-0.000368119722579,-0.000369984036481,-0.000371833748187,-0.000373668352871,-0.000375487954662,-0.000377291705195,-0.000379079418218,-0.000380851548301,-0.000382607427363,-0.000384346900184,-0.000386070403704,-0.000387776900707,-0.000389465862928,-0.000391136953715,-0.000392788720882,-0.00039442245903,-0.000396038433067,-0.000397637420808,-0.000399218913791,-0.000400782085478,-0.000402326663582,-0.000403852250103,-0.000405359227159,-0.000406846697472,-0.000408315272168,-0.000409765669104,-0.000411196721876,-0.000412607743141,-0.00041399843935,-0.000415369282604,-0.000416721762826,-0.000418054679073,-0.000419368564041,-0.000420664718141,-0.000421943958581,-0.000423206235904,-0.000424452530554,-0.000425682317631,-0.000426896026155,-0.000428093766542,-0.000429275566828,-0.000430442129811,-0.000431593843458,-0.000432730813777,-0.00043385258552,-0.000434958026015,-0.000436046625758,-0.000437118014704,-0.000438173384686,-0.000439213056976,-0.000440235919177,-0.000441242583474,-0.000442231755412,-0.000443204011822,-0.000444158650103,-0.000445096224147,-0.000446017132428,-0.000446923262573,-0.000447814690691,-0.000448690734117,-0.000449551187945,-0.000450396177036,-0.000451225843003,-0.000452040362185,-0.000452839854699,-0.000453624664373,-0.0004543946205,-0.000455148997907,-0.000455886724837,-0.000456608502895,-0.000457315050631,-0.000458007744037,-0.000458687498065,-0.00045935381756,-0.000460007697709,-0.000460650080013,-0.000461280783996,-0.000461900380348,-0.000462509405717,-0.000463107644867,-0.000463694836197,-0.000464271366935,-0.000464835974498,-0.000465389215161,-0.000465931514857,-0.000466460965065,-0.000466976926641,-0.000467478957813,-0.000467967033264,-0.000468442303634,-0.000468905719576,-0.000469355269692,-0.000469790990489,-0.000470212659018,-0.000470619349163,-0.00047101209875,-0.000471392781885,-0.000471762268142,-0.000472120798453,-0.000472466901412,-0.000472799133116,-0.000473117749359,-0.00047342374836,-0.00047371717104,-0.000473998418829,-0.000474266626488,-0.00047452080798,-0.000474759764555,-0.000474983018046,-0.000475192046686,-0.000475387647836,-0.000475570723734,-0.000475740361655,-0.000475896531892,-0.000476039103794,-0.000476167920714,-0.000476283962406,-0.000476387203609,-0.000476478030587,-0.000476555399886,-0.000476618750973,-0.000476668264655,-0.000476703938896,-0.000476725886155,-0.000476734397502,-0.000476730058689,-0.000476713615802,-0.000476685102068,-0.000476644480887,-0.000476592368645,-0.000476529612995,-0.00047645596123,-0.000476372498724,-0.000476279286789,-0.000476177779306,-0.000476068454349,-0.000475950537606,-0.000475823478515,-0.0004756871731,-0.000475541996638,-0.000475388214939,-0.000475225656747,-0.000475054376408,-0.000474873839874,-0.000474683428121,-0.000474481835749,-0.000474268093174,-0.000474043255379,-0.00047380851727,-0.000473563538427,-0.000473307897817,-0.000473041209076,-0.000472763683335,-0.000472474909345,-0.000472174864028,-0.000471864382437,-0.000471544858334,-0.000471216583054,-0.000470878365604,-0.000470529967094,-0.000470171831706,-0.000469804398665,-0.00046942698316,-0.000469040040673,-0.000468643838869,-0.000468238476401,-0.000467823383202,-0.000467397214682,-0.00046696063486,-0.000466513447079,-0.000466055418308,-0.000465586694899,-0.000465107266754,-0.000464618142374,-0.000464118643207,-0.000463608690623,-0.000463087749291,-0.000462556497841,-0.000462015457499,-0.000461465234557,-0.000460906221045,-0.000460338330147,-0.000459762229652,-0.000459177207712,-0.0004585834434,-0.000457981373539,-0.000457371514605,-0.000456754205258,-0.000456128845479,-0.000455494711486,-0.000454850799937,-0.000454197270783,-0.000453533270246,-0.000452858240457,-0.000452173411709,-0.000451477887924,-0.000450771759859,-0.000450055009292,-0.000449327228335,-0.00044858909385,-0.000447841141742,-0.000447083090014,-0.000446315284333,-0.000445538111773,-0.000444750558223,-0.000443952476723,-0.000443143400874,-0.000442323262711,-0.000441492557971,-0.000440651408951,-0.000439799969627,-0.000438938023189,-0.000438065987102,-0.000437183563516,-0.00043629074064,-0.000435388014989,-0.000434475350618,-0.000433553454276,-0.00043262215169,-0.000431680968128,-0.000430729457246,-0.000429767598693,-0.000428795849271,-0.000427814620381,-0.000426823874849,-0.000425823792159,-0.000424814711938,-0.000423796519607,-0.000422768289015,-0.000421729081144,-0.000420679385641,-0.000419619990511,-0.000418549873543,-0.000417468879859,-0.000416376955764,-0.00041527385856,-0.00041415993029,-0.000413034304549,-0.000411897068892,-0.00041074994368,-0.000409593408484,-0.000408426082902,-0.00040724792963,-0.000406059101804,-0.00040485953391,-0.000403649330944,-0.000402428492928,-0.000401196684108,-0.000399955496779,-0.000398703924351,-0.000397441149268,-0.000396167720561,-0.000394884241884,-0.000393590151372,-0.000392285887864,-0.00039097088356,-0.000389644863664,-0.000388308292989,-0.000386960282006,-0.000385600957427,-0.00038423046874,-0.000382848443381,-0.000381453870189,-0.000380047702331,-0.000378629324333,-0.000377199178493,-0.000375757460917,-0.00037430431609,-0.000372839630693,-0.000371364122782,-0.000369876205374,-0.000368376645717,-0.000366866606567,-0.000365346197932,-0.000363814811142,-0.000362272987724,-0.000360719937812,-0.000359155120914,-0.000357578386322,-0.000355988948422,-0.000354387294757,-0.000352773968224,-0.000351148204547,-0.00034950929534,-0.000347857748113,-0.000346193032789,-0.00034451526457,-0.000342824314404,-0.00034112075672,-0.000339404701992,-0.000337676854125,-0.000335936442722,-0.000334183234359,-0.000332416986999,-0.00033063692491,-0.000328843095772,-0.000327035496616,-0.000325214724881,-0.000323380285021,-0.000321531394414,-0.000319667551568,-0.000317788340069,-0.00031589424075,-0.000313985176497,-0.000312061817052,-0.000310123905614,-0.000308171971949,-0.000306205392266,-0.000304223519278,-0.000302227158486,-0.00030021682541,-0.000298192642705,-0.000296154744358,-0.000294103351583,-0.00029203846193,-0.000289960072728,-0.000287867342198,-0.000285759519041,-0.000283636823393,-0.000281498952988,-0.000279345997803,-0.000277177016247,-0.000274991058495,-0.000272787298306,-0.000270565009785,-0.000268324568438,-0.000266065791788,-0.000263790324237,-0.000261498269037,-0.000259189889061,-0.000256865101691,-0.000254523982165,-0.000252167284709,-0.000249796530269,-0.000247412222244,-0.000245014015363,-0.000242602205157,-0.000240176381087,-0.000237736559684,-0.000235281906151,-0.000232812191943,-0.000230327689972,-0.000227828205343,-0.000225312896219,-0.000222780525415,-0.000220231637899,-0.000217666302174,-0.000215083892409,-0.00021248441792,-0.00020986749775,-0.000207233287969,-0.000204581753396,-0.000201912064394,-0.00019922419033,-0.000196519534852,-0.000193797598505,-0.000191056905791,-0.000188297742065,-0.000185519770303,-0.000182723184409,-0.00017990772386,-0.000177073096073,-0.000174219462401,-0.00017134739584,-0.000168456214544,-0.000165545772373,-0.000162617539304,-0.000159672125285,-0.000156708714099,-0.000153727353953,-0.000150728300553,-0.000147712204489,-0.000144680127327,-0.000141631659829,-0.000138566592326,-0.000135484578744,-0.000132384616834,-0.000129265503362,-0.000126127957053,-0.000122972936891,-0.000119800251473,-0.000116609311204,-0.000113399004659,-0.000110168445824,-0.000106917901999,-0.000103647489661,-0.000100357420362,-9.70479206409e-05,-9.37196021128e-05,-9.03718412529e-05,-8.70041899573e-05,-8.36165993747e-05,-8.02097300503e-05,-7.67845546742e-05,-7.33411736013e-05,-6.98793093662e-05,-6.63994998099e-05,-6.29024526453e-05,-5.93877327357e-05,-5.5854485619e-05,-5.23024398096e-05,-4.87323825602e-05,-4.51447367359e-05,-4.1538251975e-05,-3.79125148275e-05,-3.42679671156e-05,-3.06045591053e-05,-2.69217488863e-05,-2.32154109877e-05,-1.94801370766e-05,-1.57108019972e-05,-1.19015022593e-05,-8.02543036614e-06,-4.24408281293e-06,-5.34273989685e-07,3.10864076457e-06,6.69056873019e-06,1.0216734515e-05,1.36914292163e-05,1.71109368462e-05,2.04701547271e-05,2.37631167846e-05,2.69835184935e-05,3.01052234133e-05,3.32895531234e-05,3.65132586289e-05,3.97712390425e-05,4.30579617583e-05,4.63682225887e-05,4.96972933875e-05,5.30446280783e-05,5.64097603546e-05,5.97926540604e-05,6.31937723239e-05,6.66133211779e-05,7.00510788647e-05,7.35054094567e-05,7.69764875717e-05,8.04636315421e-05,8.39665997326e-05,8.74857234946e-05,9.10214159956e-05,9.45729088176e-05,9.81397824854e-05,0.000101721605963,0.0001053180869,0.000108929980299,0.000112558291345,0.000116202842936,0.000119863705116,0.000123540282077,0.000127231746048,0.000130937809338,0.000134658148796,0.000138392914553,0.000142141757283,0.00014590474308,0.000149680866634,0.000153469499349,0.000157270591195,0.000161084234637,0.000164910767539,0.000168750759345,0.000172603940125,0.000176470088795,0.000180349575123,0.000184242732776,0.000188149361484,0.000192069984641,0.000196004622693,0.000199952681382,0.000203913955254,0.000207888173356,0.000211875266755,0.000215875738836,0.000219889549344,0.000223915845845,0.000227953954654,0.000232003686714,0.000236064544285,0.000240137169504,0.000244221626897,0.000248317435511,0.00025242394776,0.000256540803611,0.000260667290679,0.000264802913426,0.000268947809693,0.000273101294698,0.000277262581548,0.00028143075922,0.000285605462694,0.000289786367304,0.000293973498137,0.000298166505221,0.000302364611863,0.000306567388559,0.000310774552476,0.000314985235507,0.000319199744572,0.000323418168736,0.000327640960058,0.000331866656964,0.000336095020453,0.000340325375663,0.000344557853129,0.000348792648021,0.000353029303083,0.000357267907097,0.000361508239453,0.00036574978911,0.000369990735355,0.000374230919891,0.000378470537482,0.000382708420512,0.000386943562415,0.000391174747052,0.00039540096496,0.00039962256095,0.000403838289897,0.000408047241124,0.000412248952101,0.000416443815402,0.000420630998084,0.000424810238318,0.000428981982145,0.000433146284185,0.000437303492302,0.000441452471064,0.000445592179803,0.00044972282263,0.00045384439816,0.000457956526151,0.000462058930234,0.000466150835866,0.000470231162772,0.000474299570076,0.0004783550262,0.000482397363263,0.000486427148781,0.000490443500348,0.000494445482819,0.000498432676511,0.000502403457784,0.000506357732234,0.000510294907173,0.000514215128075,0.000518117609043,0.00052200139607,0.000525865102811,0.000529707811549,0.000533529676949,0.000537329736769,0.000541107727842,0.000544862912724,0.000548594567527,0.000552301316339,0.000555982082013,0.000559636942258,0.000563266071533,0.000566869521707,0.000570446542719,0.000573996417437,0.000577519399584,0.000581015116907,0.00058448388722,0.000587924928396,0.000591338198719,0.000594723046622,0.000598078691204,0.000601404279413,0.00060469930482,0.000607963806496,0.000611196963157,0.000614398415444,0.000617567425475,0.000620703900906,0.000623808098491,0.000626879878517,0.000629919184266,0.000632925194957,0.000635898059153,0.000638836995891,0.000641741603693,0.000644611127682,0.000647445372116,0.000650243650258,0.000653005182688,0.000655728646873,0.000658413217521,0.000661058938303,0.000663664715076,0.000666230373625,0.000668755094615,0.000671238521179,0.000673680169678,0.000676078698481,0.000678434160821,0.000680745982048,0.000683013979959,0.000685238276103,0.000687418038323,0.000689553059554,0.000691642269445,0.000693685107784,0.000695681246978,0.000697630660626,0.00069953292248,0.000701387729378,0.000703195233695,0.000704954536698,0.000706664992056,0.000708325906674,0.000709937908874,0.000711501388024,0.000713015917191,0.000714481489181,0.00071589757886,0.000717264661285,0.000718581898894,0.000719849027696,0.000721066007586,0.000722233147984,0.000723350108377,0.000724415740604,0.000725429762906,0.000726392153586,0.000727302567707,0.00072816060932,0.000728965992147,0.000729718397857,0.000730418202056,0.000731064940856,0.000731657838982,0.000732197565757,0.00073268440534,0.000733118414244,0.000733499230866,0.000733826070329,0.000734099101062,0.000734318540898,0.000734484584104,0.000734596121211,0.000734654072377,0.000734658296002,0.00073460751776,0.000734501522483,0.000734340356427,0.000734125079786,0.000733855786348,0.000733532048147,0.000733152694825,0.000732718531153,0.00073222909791,0.000731684500142,0.000731085317052,0.000730432590348,0.000729726123457,0.000728964971871,0.00072814867338,0.000727278238544,0.000726354855299,0.000725378913903,0.000724350231834,0.000723269620398,0.000722136745911,0.000720951120315,0.000719712505356,0.000718422418358,0.000717081605576,0.000715689471092,0.00071424535151,0.000712749112039,0.000711201639596,0.000709602731847,0.000707953091592,0.000706252718915,0.000704503228955,0.000702704791927,0.000700856987325,0.000698960308324,0.000697016093503,0.000695024708938,0.000692986653853,0.000690902360496,0.000688772379388,0.000686597246651,0.000684377690595,0.000682112882842,0.000679803569935,0.000677450689426,0.000675055051356,0.000672617758418,0.000670139315982,0.000667618954912,0.000665057361652,0.000662455009597,0.000659811949519,0.000657128967344,0.000654407585972,0.00065164804488,0.000648849614523,0.000646012071653,0.000643135359787,0.000640220766185,0.000637269239342,0.000634280824226,0.000631255694626,0.000628194652202,0.000625098033136,0.000621965416307,0.000618797633044,0.0006155953693,0.000612359386185,0.00060909025346,0.000605787936927,0.000602453377314,0.000599087230906,0.000595689725848,0.000592260662577,0.0005888012825,0.000585312656055,0.000581795639912,0.000578251425087,0.000574680291145,0.000571082087374,0.000567457388939,0.000563806487449,0.000560129803878,0.000556428336349,0.000552702358763,0.000548951020312,0.000545174555773,0.000541372612225,0.000537545383255,0.0005336932875,0.000529817438056,0.000525918339111,0.000521996909103,0.000518053410608,0.000514088726167,0.000510104578816,0.000506101638585,0.000502079899467,0.000498039651809,0.00049398192167,0.000489907361724,0.000485815830139,0.000481707692534,0.00047758304457,0.000473442029098,0.00046928424641,0.000465109124385,0.000460917641086,0.000456711429124,0.000452491310787,0.000448256925969,0.000444009308706,0.00043974899905,0.000435475848696,0.000431190366534,0.000426892919901,0.000422584914785,0.000418266751062,0.000413938569267,0.000409599741416,0.000405250486188,0.000400891129931,0.000396521200651,0.000392141399895,0.000387752233592,0.000383354669186,0.000378948833568,0.00037453381309,0.000370110203214,0.000365678580146,0.000361239732084,0.0003567939188,0.000352341923104,0.000347884504965,0.000343422578915,0.000338956577277,0.0003344865175,0.000330014382097,0.000325541154348,0.000321066734548,0.000316591115739,0.000312114713062,0.00030763822027,0.000303162195136,0.000298686114111,0.000294208983135,0.000289730954773,0.000285252227771,0.000280772175581,0.000276291432219,0.000271810999222,0.000267331242104,0.000262852595361,0.000258375106907,0.000253899024537,0.000249425815089,0.000244957001659,0.000240492790082,0.00023603345768,0.000231579642679,0.00022713056456,0.000222685834136,0.000218245321261,0.000213808870162,0.000209376536074,0.000204948325304,0.000200523354225,0.000196101634055,0.000191683826707,0.000187270027218,0.000182860270804,0.000178455561313,0.000174056604656,0.000169663588173,0.000165276899781,0.000160897749445,0.000156527073224,0.00015216575518,0.000147812792653,0.000143468230346,0.000139132713023,0.000134806993235,0.000130491438678,0.000126186017076,0.000121891734773,0.000117607967948,0.000113333502709,0.000109067563434,0.000104811129136,0.000100565665877,9.63312188379e-05,9.21075836684e-05,8.78941725313e-05,8.36918843927e-05,7.95011993969e-05,7.5322396969e-05,7.11568555041e-05,6.70062776214e-05,6.2870918063e-05,5.8749981192e-05,5.46434270621e-05,5.05516812849e-05,4.64744669093e-05,4.24121766539e-05,3.8363900608e-05,3.43296555333e-05,3.03093688796e-05,2.63019626432e-05,2.23076738582e-05,1.83269121151e-05,1.43605116057e-05,1.04086198549e-05,6.47159265772e-06,2.55006953467e-06,-1.3554747355e-06,-5.24470736837e-06,-9.11783351975e-06,-1.29745168883e-05,-1.68148072964e-05,-2.06393813883e-05,-2.44477423984e-05,-2.82407579168e-05,-3.20180605337e-05,-3.57801230231e-05,-3.95268608535e-05,-4.32585447699e-05,-4.69748675456e-05,-5.06748321069e-05,-5.43581780702e-05,-5.80241209639e-05,-6.16727603628e-05,-6.53042655204e-05,-6.89178756633e-05,-7.25136036288e-05,-7.60897576379e-05,-7.96465776435e-05,-8.3183770366e-05,-8.67015883977e-05,-9.02006479519e-05,-9.36805571577e-05,-9.71410333078e-05,-0.000100581293517,-0.000104001588485,-0.000107401515511,-0.000110782886372,-0.000114146178135,-0.000117490908709,-0.000120817175551,-0.000124124893008,-0.000127414101028,-0.000130685694139,-0.000133938638663,-0.000137172674585,-0.000140388120936,-0.000143584010372,-0.000146758513885,-0.000149912236822,-0.000153045905344,-0.000156158896671,-0.000159251417302,-0.000162322085371,-0.000165371295754,-0.00016839980196,-0.000171408440755,-0.000174397367563,-0.000177367136428,-0.000180317857502,-0.000183248617451,-0.00018615779396,-0.000189045889306,-0.000191912980573,-0.000194759591416,-0.000197585517118,-0.000200389978477,-0.000203172627175,-0.000205933343863,-0.000208672320088,-0.000211389682832,-0.000214086670146,-0.000216763624572,-0.00021941985975,-0.000222055461949,-0.000224670451066,-0.000227264746769,-0.00022983910009,-0.000232392788714,-0.000234924945377,-0.000237435703131,-0.00023992482044,-0.000242391208089,-0.000244836926021,-0.000247262143156,-0.000249666181656,-0.000252048636795,-0.00025440885975,-0.000256747309413,-0.000259064343792,-0.000261360190351,-0.00026363481458,-0.000265888171589,-0.000268120015549,-0.00027032875305,-0.000272513975482,-0.000274675809103,-0.000276814604427,-0.00027892963451,-0.000281020258937,-0.000283086163594,-0.000285127953702,-0.000287145783376,-0.000289138958643,-0.000291107774765,-0.000293052900976,-0.000294975542911,-0.00029687563485,-0.00029875356303,-0.000300610591225,-0.000302447744093,-0.000304264776496,-0.000306060765149,-0.000307835500506,-0.0003095899307,-0.000311323943088,-0.000313035523736,-0.000314723887966,-0.00031638865943,-0.000318029126864,-0.000319643095856,-0.000321230161714,-0.000322790946011,-0.000324325815779,-0.000325835011665,-0.000327318317287,-0.000328776209604,-0.000330209281261,-0.000331617531608,-0.000333001353658,-0.000334361259651,-0.000335698468958,-0.000337012314003,-0.000338302284749,-0.000339567717827,-0.000340808101749,-0.000342022764034,-0.00034321216471,-0.000344377362217,-0.000345518520128,-0.000346635402003,-0.000347727132175,-0.000348793786925,-0.000349834322956,-0.000350848880077,-0.000351838003724,-0.000352802055541,-0.000353740665021,-0.000354653359718,-0.000355539159276,-0.000356398056142,-0.000357231110755,-0.000358038605448,-0.000358821214575,-0.000359579669625,-0.000360313479987,-0.000361023502928,-0.000361709339053,-0.00036237132972,-0.000363007740658,-0.000363575775759,-0.000364032404303,-0.000364374969164,-0.000364603442063,-0.000364717030916)
xcorr <- c(-600.0,-598.999165972,-597.998331943,-596.997497915,-595.996663887,-594.995829858,-593.99499583,-592.994161802,-591.993327773,-590.992493745,-589.991659716,-588.990825688,-587.98999166,-586.989157631,-585.988323603,-584.987489575,-583.986655546,-582.985821518,-581.98498749,-580.984153461,-579.983319433,-578.982485405,-577.981651376,-576.980817348,-575.979983319,-574.979149291,-573.978315263,-572.977481234,-571.976647206,-570.975813178,-569.974979149,-568.974145121,-567.973311093,-566.972477064,-565.971643036,-564.970809008,-563.969974979,-562.969140951,-561.968306922,-560.967472894,-559.966638866,-558.965804837,-557.964970809,-556.964136781,-555.963302752,-554.962468724,-553.961634696,-552.960800667,-551.959966639,-550.959132611,-549.958298582,-548.957464554,-547.956630525,-546.955796497,-545.954962469,-544.95412844,-543.953294412,-542.952460384,-541.951626355,-540.950792327,-539.949958299,-538.94912427,-537.948290242,-536.947456214,-535.946622185,-534.945788157,-533.944954128,-532.9441201,-531.943286072,-530.942452043,-529.941618015,-528.940783987,-527.939949958,-526.93911593,-525.938281902,-524.937447873,-523.936613845,-522.935779817,-521.934945788,-520.93411176,-519.933277731,-518.932443703,-517.931609675,-516.930775646,-515.929941618,-514.92910759,-513.928273561,-512.927439533,-511.926605505,-510.925771476,-509.924937448,-508.92410342,-507.923269391,-506.922435363,-505.921601334,-504.920767306,-503.919933278,-502.919099249,-501.918265221,-500.917431193,-499.916597164,-498.915763136,-497.914929108,-496.914095079,-495.913261051,-494.912427023,-493.911592994,-492.910758966,-491.909924937,-490.909090909,-489.908256881,-488.907422852,-487.906588824,-486.905754796,-485.904920767,-484.904086739,-483.903252711,-482.902418682,-481.901584654,-480.900750626,-479.899916597,-478.899082569,-477.89824854,-476.897414512,-475.896580484,-474.895746455,-473.894912427,-472.894078399,-471.89324437,-470.892410342,-469.891576314,-468.890742285,-467.889908257,-466.889074229,-465.8882402,-464.887406172,-463.886572143,-462.885738115,-461.884904087,-460.884070058,-459.88323603,-458.882402002,-457.881567973,-456.880733945,-455.879899917,-454.879065888,-453.87823186,-452.877397832,-451.876563803,-450.875729775,-449.874895746,-448.874061718,-447.87322769,-446.872393661,-445.871559633,-444.870725605,-443.869891576,-442.869057548,-441.86822352,-440.867389491,-439.866555463,-438.865721435,-437.864887406,-436.864053378,-435.863219349,-434.862385321,-433.861551293,-432.860717264,-431.859883236,-430.859049208,-429.858215179,-428.857381151,-427.856547123,-426.855713094,-425.854879066,-424.854045038,-423.853211009,-422.852376981,-421.851542952,-420.850708924,-419.849874896,-418.849040867,-417.848206839,-416.847372811,-415.846538782,-414.845704754,-413.844870726,-412.844036697,-411.843202669,-410.842368641,-409.841534612,-408.840700584,-407.839866555,-406.839032527,-405.838198499,-404.83736447,-403.836530442,-402.835696414,-401.834862385,-400.834028357,-399.833194329,-398.8323603,-397.831526272,-396.830692244,-395.829858215,-394.829024187,-393.828190158,-392.82735613,-391.826522102,-390.825688073,-389.824854045,-388.824020017,-387.823185988,-386.82235196,-385.821517932,-384.820683903,-383.819849875,-382.819015847,-381.818181818,-380.81734779,-379.816513761,-378.815679733,-377.814845705,-376.814011676,-375.813177648,-374.81234362,-373.811509591,-372.810675563,-371.809841535,-370.809007506,-369.808173478,-368.80733945,-367.806505421,-366.805671393,-365.804837364,-364.804003336,-363.803169308,-362.802335279,-361.801501251,-360.800667223,-359.799833194,-358.798999166,-357.798165138,-356.797331109,-355.796497081,-354.795663053,-353.794829024,-352.793994996,-351.793160967,-350.792326939,-349.791492911,-348.790658882,-347.789824854,-346.788990826,-345.788156797,-344.787322769,-343.786488741,-342.785654712,-341.784820684,-340.783986656,-339.783152627,-338.782318599,-337.78148457,-336.780650542,-335.779816514,-334.778982485,-333.778148457,-332.777314429,-331.7764804,-330.775646372,-329.774812344,-328.773978315,-327.773144287,-326.772310259,-325.77147623,-324.770642202,-323.769808173,-322.768974145,-321.768140117,-320.767306088,-319.76647206,-318.765638032,-317.764804003,-316.763969975,-315.763135947,-314.762301918,-313.76146789,-312.760633862,-311.759799833,-310.758965805,-309.758131776,-308.757297748,-307.75646372,-306.755629691,-305.754795663,-304.753961635,-303.753127606,-302.752293578,-301.75145955,-300.750625521,-299.749791493,-298.748957465,-297.748123436,-296.747289408,-295.746455379,-294.745621351,-293.744787323,-292.743953294,-291.743119266,-290.742285238,-289.741451209,-288.740617181,-287.739783153,-286.738949124,-285.738115096,-284.737281068,-283.736447039,-282.735613011,-281.734778982,-280.733944954,-279.733110926,-278.732276897,-277.731442869,-276.730608841,-275.729774812,-274.728940784,-273.728106756,-272.727272727,-271.726438699,-270.725604671,-269.724770642,-268.723936614,-267.723102585,-266.722268557,-265.721434529,-264.7206005,-263.719766472,-262.718932444,-261.718098415,-260.717264387,-259.716430359,-258.71559633,-257.714762302,-256.713928274,-255.713094245,-254.712260217,-253.711426188,-252.71059216,-251.709758132,-250.708924103,-249.708090075,-248.707256047,-247.706422018,-246.70558799,-245.704753962,-244.703919933,-243.703085905,-242.702251877,-241.701417848,-240.70058382,-239.699749791,-238.698915763,-237.698081735,-236.697247706,-235.696413678,-234.69557965,-233.694745621,-232.693911593,-231.693077565,-230.692243536,-229.691409508,-228.69057548,-227.689741451,-226.688907423,-225.688073394,-224.687239366,-223.686405338,-222.685571309,-221.684737281,-220.683903253,-219.683069224,-218.682235196,-217.681401168,-216.680567139,-215.679733111,-214.678899083,-213.678065054,-212.677231026,-211.676396997,-210.675562969,-209.674728941,-208.673894912,-207.673060884,-206.672226856,-205.671392827,-204.670558799,-203.669724771,-202.668890742,-201.668056714,-200.667222686,-199.666388657,-198.665554629,-197.664720601,-196.663886572,-195.663052544,-194.662218515,-193.661384487,-192.660550459,-191.65971643,-190.658882402,-189.658048374,-188.657214345,-187.656380317,-186.655546289,-185.65471226,-184.653878232,-183.653044204,-182.652210175,-181.651376147,-180.650542118,-179.64970809,-178.648874062,-177.648040033,-176.647206005,-175.646371977,-174.645537948,-173.64470392,-172.643869892,-171.643035863,-170.642201835,-169.641367807,-168.640533778,-167.63969975,-166.638865721,-165.638031693,-164.637197665,-163.636363636,-162.635529608,-161.63469558,-160.633861551,-159.633027523,-158.632193495,-157.631359466,-156.630525438,-155.62969141,-154.628857381,-153.628023353,-152.627189324,-151.626355296,-150.625521268,-149.624687239,-148.623853211,-147.623019183,-146.622185154,-145.621351126,-144.620517098,-143.619683069,-142.618849041,-141.618015013,-140.617180984,-139.616346956,-138.615512927,-137.614678899,-136.613844871,-135.613010842,-134.612176814,-133.611342786,-132.610508757,-131.609674729,-130.608840701,-129.608006672,-128.607172644,-127.606338616,-126.605504587,-125.604670559,-124.60383653,-123.603002502,-122.602168474,-121.601334445,-120.600500417,-119.599666389,-118.59883236,-117.597998332,-116.597164304,-115.596330275,-114.595496247,-113.594662219,-112.59382819,-111.592994162,-110.592160133,-109.591326105,-108.590492077,-107.589658048,-106.58882402,-105.587989992,-104.587155963,-103.586321935,-102.585487907,-101.584653878,-100.58381985,-99.5829858215,-98.5821517932,-97.5813177648,-96.5804837364,-95.5796497081,-94.5788156797,-93.5779816514,-92.577147623,-91.5763135947,-90.5754795663,-89.5746455379,-88.5738115096,-87.5729774812,-86.5721434529,-85.5713094245,-84.5704753962,-83.5696413678,-82.5688073394,-81.5679733111,-80.5671392827,-79.5663052544,-78.565471226,-77.5646371977,-76.5638031693,-75.562969141,-74.5621351126,-73.5613010842,-72.5604670559,-71.5596330275,-70.5587989992,-69.5579649708,-68.5571309425,-67.5562969141,-66.5554628857,-65.5546288574,-64.553794829,-63.5529608007,-62.5521267723,-61.551292744,-60.5504587156,-59.5496246872,-58.5487906589,-57.5479566305,-56.5471226022,-55.5462885738,-54.5454545455,-53.5446205171,-52.5437864887,-51.5429524604,-50.542118432,-49.5412844037,-48.5404503753,-47.539616347,-46.5387823186,-45.5379482902,-44.5371142619,-43.5362802335,-42.5354462052,-41.5346121768,-40.5337781485,-39.5329441201,-38.5321100917,-37.5312760634,-36.530442035,-35.5296080067,-34.5287739783,-33.52793995,-32.5271059216,-31.5262718932,-30.5254378649,-29.5246038365,-28.5237698082,-27.5229357798,-26.5221017515,-25.5212677231,-24.5204336947,-23.5195996664,-22.518765638,-21.5179316097,-20.5170975813,-19.516263553,-18.5154295246,-17.5145954962,-16.5137614679,-15.5129274395,-14.5120934112,-13.5112593828,-12.5104253545,-11.5095913261,-10.5087572977,-9.50792326939,-8.50708924103,-7.50625521268,-6.50542118432,-5.50458715596,-4.50375312761,-3.50291909925,-2.50208507089,-1.50125104254,-0.500417014179,0.500417014178,1.50125104254,2.50208507089,3.50291909925,4.50375312761,5.50458715596,6.50542118432,7.50625521268,8.50708924103,9.50792326939,10.5087572977,11.5095913261,12.5104253545,13.5112593828,14.5120934112,15.5129274395,16.5137614679,17.5145954962,18.5154295246,19.516263553,20.5170975813,21.5179316097,22.518765638,23.5195996664,24.5204336947,25.5212677231,26.5221017515,27.5229357798,28.5237698082,29.5246038365,30.5254378649,31.5262718932,32.5271059216,33.52793995,34.5287739783,35.5296080067,36.530442035,37.5312760634,38.5321100917,39.5329441201,40.5337781485,41.5346121768,42.5354462052,43.5362802335,44.5371142619,45.5379482902,46.5387823186,47.539616347,48.5404503753,49.5412844037,50.542118432,51.5429524604,52.5437864887,53.5446205171,54.5454545455,55.5462885738,56.5471226022,57.5479566305,58.5487906589,59.5496246872,60.5504587156,61.551292744,62.5521267723,63.5529608007,64.553794829,65.5546288574,66.5554628857,67.5562969141,68.5571309425,69.5579649708,70.5587989992,71.5596330275,72.5604670559,73.5613010842,74.5621351126,75.562969141,76.5638031693,77.5646371977,78.565471226,79.5663052544,80.5671392827,81.5679733111,82.5688073394,83.5696413678,84.5704753962,85.5713094245,86.5721434529,87.5729774812,88.5738115096,89.5746455379,90.5754795663,91.5763135947,92.577147623,93.5779816514,94.5788156797,95.5796497081,96.5804837364,97.5813177648,98.5821517932,99.5829858215,100.58381985,101.584653878,102.585487907,103.586321935,104.587155963,105.587989992,106.58882402,107.589658048,108.590492077,109.591326105,110.592160133,111.592994162,112.59382819,113.594662219,114.595496247,115.596330275,116.597164304,117.597998332,118.59883236,119.599666389,120.600500417,121.601334445,122.602168474,123.603002502,124.60383653,125.604670559,126.605504587,127.606338616,128.607172644,129.608006672,130.608840701,131.609674729,132.610508757,133.611342786,134.612176814,135.613010842,136.613844871,137.614678899,138.615512927,139.616346956,140.617180984,141.618015013,142.618849041,143.619683069,144.620517098,145.621351126,146.622185154,147.623019183,148.623853211,149.624687239,150.625521268,151.626355296,152.627189324,153.628023353,154.628857381,155.62969141,156.630525438,157.631359466,158.632193495,159.633027523,160.633861551,161.63469558,162.635529608,163.636363636,164.637197665,165.638031693,166.638865721,167.63969975,168.640533778,169.641367807,170.642201835,171.643035863,172.643869892,173.64470392,174.645537948,175.646371977,176.647206005,177.648040033,178.648874062,179.64970809,180.650542118,181.651376147,182.652210175,183.653044204,184.653878232,185.65471226,186.655546289,187.656380317,188.657214345,189.658048374,190.658882402,191.65971643,192.660550459,193.661384487,194.662218515,195.663052544,196.663886572,197.664720601,198.665554629,199.666388657,200.667222686,201.668056714,202.668890742,203.669724771,204.670558799,205.671392827,206.672226856,207.673060884,208.673894912,209.674728941,210.675562969,211.676396997,212.677231026,213.678065054,214.678899083,215.679733111,216.680567139,217.681401168,218.682235196,219.683069224,220.683903253,221.684737281,222.685571309,223.686405338,224.687239366,225.688073394,226.688907423,227.689741451,228.69057548,229.691409508,230.692243536,231.693077565,232.693911593,233.694745621,234.69557965,235.696413678,236.697247706,237.698081735,238.698915763,239.699749791,240.70058382,241.701417848,242.702251877,243.703085905,244.703919933,245.704753962,246.70558799,247.706422018,248.707256047,249.708090075,250.708924103,251.709758132,252.71059216,253.711426188,254.712260217,255.713094245,256.713928274,257.714762302,258.71559633,259.716430359,260.717264387,261.718098415,262.718932444,263.719766472,264.7206005,265.721434529,266.722268557,267.723102585,268.723936614,269.724770642,270.725604671,271.726438699,272.727272727,273.728106756,274.728940784,275.729774812,276.730608841,277.731442869,278.732276897,279.733110926,280.733944954,281.734778982,282.735613011,283.736447039,284.737281068,285.738115096,286.738949124,287.739783153,288.740617181,289.741451209,290.742285238,291.743119266,292.743953294,293.744787323,294.745621351,295.746455379,296.747289408,297.748123436,298.748957465,299.749791493,300.750625521,301.75145955,302.752293578,303.753127606,304.753961635,305.754795663,306.755629691,307.75646372,308.757297748,309.758131776,310.758965805,311.759799833,312.760633862,313.76146789,314.762301918,315.763135947,316.763969975,317.764804003,318.765638032,319.76647206,320.767306088,321.768140117,322.768974145,323.769808173,324.770642202,325.77147623,326.772310259,327.773144287,328.773978315,329.774812344,330.775646372,331.7764804,332.777314429,333.778148457,334.778982485,335.779816514,336.780650542,337.78148457,338.782318599,339.783152627,340.783986656,341.784820684,342.785654712,343.786488741,344.787322769,345.788156797,346.788990826,347.789824854,348.790658882,349.791492911,350.792326939,351.793160967,352.793994996,353.794829024,354.795663053,355.796497081,356.797331109,357.798165138,358.798999166,359.799833194,360.800667223,361.801501251,362.802335279,363.803169308,364.804003336,365.804837364,366.805671393,367.806505421,368.80733945,369.808173478,370.809007506,371.809841535,372.810675563,373.811509591,374.81234362,375.813177648,376.814011676,377.814845705,378.815679733,379.816513761,380.81734779,381.818181818,382.819015847,383.819849875,384.820683903,385.821517932,386.82235196,387.823185988,388.824020017,389.824854045,390.825688073,391.826522102,392.82735613,393.828190158,394.829024187,395.829858215,396.830692244,397.831526272,398.8323603,399.833194329,400.834028357,401.834862385,402.835696414,403.836530442,404.83736447,405.838198499,406.839032527,407.839866555,408.840700584,409.841534612,410.842368641,411.843202669,412.844036697,413.844870726,414.845704754,415.846538782,416.847372811,417.848206839,418.849040867,419.849874896,420.850708924,421.851542952,422.852376981,423.853211009,424.854045038,425.854879066,426.855713094,427.856547123,428.857381151,429.858215179,430.859049208,431.859883236,432.860717264,433.861551293,434.862385321,435.863219349,436.864053378,437.864887406,438.865721435,439.866555463,440.867389491,441.86822352,442.869057548,443.869891576,444.870725605,445.871559633,446.872393661,447.87322769,448.874061718,449.874895746,450.875729775,451.876563803,452.877397832,453.87823186,454.879065888,455.879899917,456.880733945,457.881567973,458.882402002,459.88323603,460.884070058,461.884904087,462.885738115,463.886572143,464.887406172,465.8882402,466.889074229,467.889908257,468.890742285,469.891576314,470.892410342,471.89324437,472.894078399,473.894912427,474.895746455,475.896580484,476.897414512,477.89824854,478.899082569,479.899916597,480.900750626,481.901584654,482.902418682,483.903252711,484.904086739,485.904920767,486.905754796,487.906588824,488.907422852,489.908256881,490.909090909,491.909924937,492.910758966,493.911592994,494.912427023,495.913261051,496.914095079,497.914929108,498.915763136,499.916597164,500.917431193,501.918265221,502.919099249,503.919933278,504.920767306,505.921601334,506.922435363,507.923269391,508.92410342,509.924937448,510.925771476,511.926605505,512.927439533,513.928273561,514.92910759,515.929941618,516.930775646,517.931609675,518.932443703,519.933277731,520.93411176,521.934945788,522.935779817,523.936613845,524.937447873,525.938281902,526.93911593,527.939949958,528.940783987,529.941618015,530.942452043,531.943286072,532.9441201,533.944954128,534.945788157,535.946622185,536.947456214,537.948290242,538.94912427,539.949958299,540.950792327,541.951626355,542.952460384,543.953294412,544.95412844,545.954962469,546.955796497,547.956630525,548.957464554,549.958298582,550.959132611,551.959966639,552.960800667,553.961634696,554.962468724,555.963302752,556.964136781,557.964970809,558.965804837,559.966638866,560.967472894,561.968306922,562.969140951,563.969974979,564.970809008,565.971643036,566.972477064,567.973311093,568.974145121,569.974979149,570.975813178,571.976647206,572.977481234,573.978315263,574.979149291,575.979983319,576.980817348,577.981651376,578.982485405,579.983319433,580.984153461,581.98498749,582.985821518,583.986655546,584.987489575,585.988323603,586.989157631,587.98999166,588.990825688,589.991659716,590.992493745,591.993327773,592.994161802,593.99499583,594.995829858,595.996663887,596.997497915,597.998331943,598.999165972,600.0)
altd  <- c(226)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('A549-100nM-Dex-5h-p300.pooled.sorted.MACS-2.1.0.p1e-1_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'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 226',bty='n')
dev.off()