# R script for Peak Model
#  -- generated by MACS
p <- c(0.0266508946577,0.0332067297072,0.0390499739904,0.0444656638139,0.0484561721049,0.0505939444037,0.0488837265647,0.0511640170167,0.0513065351699,0.0513065351699,0.0521616440894,0.0498813536374,0.0485986902582,0.0491687628712,0.0504514262504,0.0507364625569,0.0514490533232,0.0497388354842,0.0501663899439,0.0513065351699,0.0520191259362,0.0541568982349,0.0562946705337,0.0550120071544,0.0547269708479,0.0537293437752,0.0540143800817,0.0554395616142,0.0551545253077,0.0531592711622,0.0520191259362,0.0514490533232,0.0500238717907,0.0497388354842,0.0504514262504,0.0503089080972,0.0490262447179,0.0490262447179,0.0505939444037,0.0507364625569,0.0514490533232,0.0498813536374,0.0491687628712,0.0504514262504,0.0491687628712,0.0491687628712,0.0508789807102,0.0520191259362,0.0511640170167,0.0517340896297,0.0510214988634,0.0501663899439,0.0513065351699,0.0497388354842,0.0521616440894,0.0521616440894,0.0523041622427,0.0541568982349,0.0533017893154,0.0554395616142,0.0582899246792,0.0605702151312,0.0611402877442,0.0625654692766,0.0614253240507,0.0632780600429,0.0637056145026,0.0601426606714,0.0614253240507,0.0609977695909,0.0601426606714,0.0608552514377,0.0585749609857,0.0594300699052,0.0590025154454,0.0578623702194,0.0577198520662,0.0580048883727,0.0582899246792,0.0568647431467,0.0560096342272,0.0562946705337,0.0570072612999,0.0557245979207,0.0564371886869,0.0565797068402,0.0560096342272,0.0574348157597,0.0574348157597,0.0588599972922,0.0580048883727,0.0572922976064,0.0577198520662,0.0605702151312,0.0611402877442,0.0622804329701,0.0631355418896,0.0629930237364,0.0645607234221,0.0649882778819,0.0645607234221,0.0651307960351,0.0649882778819,0.0637056145026,0.0632780600429,0.0617103603572,0.0621379148169,0.0612828058974,0.0600001425182,0.0585749609857,0.0591450335987,0.0597151062117,0.0608552514377,0.0607127332844,0.0619953966637,0.0617103603572,0.0605702151312,0.0621379148169,0.0614253240507,0.0619953966637,0.0652733141884,0.0647032415754,0.0655583504949,0.0635630963494,0.0608552514377,0.0611402877442,0.0629930237364,0.0621379148169,0.0638481326559,0.0648457597286,0.0617103603572,0.0631355418896,0.0617103603572,0.0631355418896,0.0642756871156,0.0666984957209,0.0649882778819,0.0651307960351,0.0648457597286,0.0648457597286,0.0664134594144,0.0639906508091,0.0645607234221,0.0665559775676,0.0688362680196,0.0671260501806,0.0664134594144,0.0654158323416,0.0632780600429,0.0609977695909,0.0598576243649,0.0598576243649,0.0597151062117,0.0590025154454,0.0570072612999,0.0561521523804,0.0564371886869,0.0558671160739,0.0564371886869,0.0574348157597,0.0575773339129,0.0572922976064,0.0595725880584,0.0585749609857,0.0591450335987,0.0594300699052,0.0614253240507,0.0645607234221,0.0655583504949,0.0669835320274,0.0688362680196,0.0696913769391,0.0669835320274,0.0685512317131,0.0675536046404,0.0672685683339,0.0659859049546,0.0638481326559,0.0635630963494,0.0621379148169,0.0625654692766,0.0624229511234,0.0629930237364,0.0614253240507,0.0617103603572,0.0639906508091,0.0661284231079,0.0669835320274,0.0678386409469,0.0669835320274,0.0649882778819,0.0652733141884,0.0664134594144,0.0675536046404,0.0682661954066,0.0684087135599,0.0662709412611,0.0668410138741,0.0651307960351,0.0664134594144,0.0659859049546,0.0666984957209,0.0654158323416,0.0648457597286,0.0655583504949,0.0661284231079,0.0664134594144,0.0657008686481,0.0659859049546,0.0657008686481,0.0682661954066,0.0678386409469,0.0702614495521,0.0705464858586,0.0701189313989,0.0698338950924,0.0719716673911,0.0719716673911,0.0745369941496,0.0751070667626,0.0758196575289,0.0766747664484,0.0756771393756,0.0753921030691,0.0763897301419,0.0752495849159,0.0731118126171,0.0745369941496,0.0729692944639,0.0758196575289,0.0736818852301,0.0721141855444,0.0723992218509,0.0723992218509,0.0732543307704,0.0725417400041,0.0736818852301,0.0738244033834,0.0762472119886,0.0726842581574,0.0729692944639,0.0748220304561,0.0762472119886,0.0755346212224,0.0733968489236,0.0761046938354,0.0788125387471,0.0798101658199,0.0798101658199,0.0808077928926,0.0813778655056,0.0819479381186,0.0796676476666,0.0826605288849,0.0836581559576,0.0815203836589,0.0800952021264,0.0802377202796,0.0799526839731,0.0806652747394,0.0796676476666,0.0810928291991,0.0810928291991,0.0789550569004,0.0805227565861,0.0796676476666,0.0779574298276,0.0762472119886,0.0741094396899,0.0731118126171,0.0736818852301,0.0711165584716,0.0729692944639,0.0728267763106,0.0714015947781,0.0715441129314,0.0733968489236,0.0743944759964,0.0759621756821,0.0766747664484,0.0766747664484,0.0789550569004,0.0773873572146,0.0778149116744,0.0775298753679,0.0788125387471,0.0779574298276,0.0779574298276,0.0783849842874,0.0789550569004,0.0826605288849,0.0830880833446,0.0829455651914,0.0833731196511,0.0853683737966,0.0870785916356,0.0849408193369,0.0836581559576,0.0838006741109,0.0830880833446,0.0820904562719,0.0823754925784,0.0862234827161,0.0890738457811,0.0906415454669,0.0913541362331,0.0999052254281,0.107173651244,0.112019268454,0.117149921971,0.11886013981,0.12014280319,0.120855393956,0.121567984722,0.121853021029,0.124133311481,0.122850648101,0.121282948416,0.119857766883,0.122565611795,0.122708129948,0.123705757021,0.123848275174,0.127981301618,0.129263964998,0.128408856078,0.128551374231,0.130404110224,0.13111670099,0.131259219143,0.134822172974,0.13638987266,0.138670163112,0.132969436982,0.133967064055,0.136532390813,0.13638987266,0.133539509595,0.132399364369,0.13154425545,0.130404110224,0.127696265312,0.126128565626,0.131401737296,0.126556120086,0.125130938553,0.127268710852,0.126698638239,0.126983674546,0.125558493013,0.125130938553,0.12584352932,0.126841156392,0.127553747159,0.132826918829,0.134679654821,0.131829291756,0.133824545902,0.133682027748,0.131971809909,0.127411229005,0.128551374231,0.129549001304,0.127126192699,0.127696265312,0.124845902247,0.128693892385,0.130119073917,0.132684400676,0.135107209281,0.139667790185,0.142233116943,0.139097717572,0.140095344645,0.139240235725,0.141805562484,0.140522899104,0.138670163112,0.136674908967,0.137672536039,0.136532390813,0.137387499733,0.142375635097,0.142660671403,0.144085852936,0.143373262169,0.141948080637,0.144798443702,0.146651179694,0.145796070775,0.14864643384,0.144940961855,0.145511034468,0.145083480008,0.144655925549,0.144655925549,0.145938588928,0.146366143388,0.146936216001,0.149786579066,0.145511034468,0.149073988299,0.146936216001,0.147078734154,0.145653552621,0.147221252307,0.14779132492,0.145225998162,0.140807935411,0.138385126806,0.14294570771,0.141378008024,0.140522899104,0.141092971717,0.141235489871,0.141378008024,0.141092971717,0.140950453564,0.14294570771,0.143943334782,0.143230744016,0.14251815325,0.144228371089,0.146936216001,0.149216506453,0.149644060912,0.149786579066,0.151354278751,0.150784206138,0.149216506453,0.149359024606,0.149644060912,0.151496796905,0.150926724292,0.148361397533,0.146793697847,0.145083480008,0.143515780323,0.147506288614,0.14779132492,0.146366143388,0.147506288614,0.144085852936,0.142660671403,0.144798443702,0.146508661541,0.14736377046,0.149644060912,0.149216506453,0.151211760598,0.152636942131,0.148931470146,0.151639315058,0.151354278751,0.150071615372,0.148503915686,0.148931470146,0.147506288614,0.150214133525,0.148361397533,0.15349205105,0.156912486728,0.155344787042,0.154489678123,0.154774714429,0.156342414115,0.156769968575,0.159050259027,0.156057377808,0.157482559341,0.149359024606,0.146651179694,0.146936216001,0.147648806767,0.148931470146,0.146936216001,0.146793697847,0.144655925549,0.143943334782,0.14166304433,0.147078734154,0.149073988299,0.150071615372,0.149073988299,0.151211760598,0.15391960551,0.154204641816,0.15306449659,0.152779460284,0.158480186414,0.157340041188,0.155914859655,0.151924351364,0.152209387671,0.150071615372,0.150071615372,0.152494423977,0.15349205105,0.154489678123,0.153207014744,0.152351905824,0.153207014744,0.153777087357,0.156484932268,0.155059750736,0.153777087357,0.151781833211,0.152066869518,0.152209387671,0.149644060912,0.14779132492,0.150214133525,0.151211760598,0.150214133525,0.154774714429,0.155914859655,0.154489678123,0.156769968575,0.157767595647,0.158622704567,0.160617958712,0.15962033164,0.163325803624,0.160332922406,0.158195150107,0.156057377808,0.157197523034,0.157625077494,0.15876522272,0.159477813486,0.162185658398,0.163040767318,0.161473067632,0.16446594885,0.165178539616,0.167316311915,0.17016667498,0.173017038045,0.178147691562,0.179430354941,0.172732001739,0.174442219578,0.173729628811,0.177007546336,0.178717764175,0.180998054627,0.176009919263,0.170879265746,0.166888757455,0.167886384528,0.169169047907,0.167886384528,0.17016667498,0.168171420835,0.165748612229,0.165463575923,0.169169047907,0.171306820206,0.174869774037,0.174299701424,0.18114057278,0.179145318635,0.177862655256,0.179572873095,0.178432727869,0.178432727869,0.177577618949,0.175154810344,0.16973912052,0.165748612229,0.161758103938,0.164323430697,0.167601348222,0.16532105777,0.162898249164,0.163753358084,0.167031275609,0.170309193133,0.167031275609,0.168598975294,0.171734374666,0.171591856513,0.171591856513,0.174299701424,0.179857909401,0.178290209715,0.175012292191,0.177292582643,0.180570500167,0.179430354941,0.175012292191,0.176579991876,0.17543984665,0.174584737731,0.171449338359,0.173302074352,0.170736747593,0.167316311915,0.171306820206,0.172874519892,0.172446965432,0.171876892819,0.16403839439,0.158480186414,0.152779460284,0.144940961855,0.141948080637,0.134394618515,0.121710502875,0.114157040753,0.107601205704,0.0990501165086,0.0963422715968,0.0912116180799,0.0890738457811,0.0860809645629,0.0830880833446,0.0816629018121,0.0830880833446,0.0842282285706,0.0853683737966,0.0828030470381,0.0845132648771,0.0860809645629,0.0875061460954,0.0880762187084,0.0870785916356,0.0847983011836,0.0842282285706,0.0818054199654,0.0802377202796,0.0798101658199,0.0778149116744,0.0756771393756,0.0733968489236,0.0748220304561,0.0741094396899,0.0763897301419,0.0753921030691,0.0765322482951,0.0778149116744,0.0790975750536,0.0778149116744,0.0788125387471,0.0805227565861,0.0778149116744,0.0798101658199,0.0803802384329,0.0793826113601,0.0779574298276,0.0772448390614,0.0773873572146,0.0788125387471,0.0772448390614,0.0759621756821,0.0765322482951,0.0758196575289,0.0752495849159,0.0755346212224,0.0773873572146,0.0780999479809,0.0771023209081,0.0768172846016,0.0775298753679,0.0765322482951,0.0759621756821,0.0765322482951,0.0776723935211,0.0795251295134,0.0790975750536,0.0768172846016,0.0761046938354,0.0759621756821,0.0765322482951,0.0772448390614,0.0773873572146,0.0768172846016,0.0746795123029,0.0718291492379,0.0698338950924,0.0715441129314,0.0721141855444,0.0722567036976,0.0736818852301,0.0738244033834,0.0745369941496,0.0733968489236,0.0749645486094,0.0749645486094,0.0748220304561,0.0763897301419,0.0765322482951,0.0751070667626,0.0725417400041,0.0745369941496,0.0742519578431,0.0749645486094,0.0736818852301,0.0745369941496,0.0753921030691,0.0731118126171,0.0729692944639,0.0721141855444,0.0712590766249,0.0685512317131,0.0662709412611,0.0682661954066,0.0689787861729,0.0689787861729,0.0708315221651,0.0709740403184,0.0735393670769,0.0748220304561,0.0762472119886,0.0762472119886,0.0788125387471,0.0759621756821,0.0733968489236,0.0728267763106,0.0698338950924,0.0694063406326,0.0652733141884,0.0644182052689,0.0645607234221,0.0648457597286,0.0632780600429,0.0644182052689,0.0666984957209,0.0657008686481,0.0671260501806,0.0671260501806,0.0674110864871,0.0686937498664,0.0666984957209,0.0662709412611,0.0657008686481,0.0644182052689,0.0647032415754,0.0664134594144,0.0669835320274,0.0652733141884,0.0648457597286,0.0637056145026,0.0654158323416,0.0655583504949,0.0682661954066,0.0688362680196,0.0672685683339,0.0658433868014,0.0648457597286,0.0666984957209,0.0671260501806,0.0674110864871,0.0666984957209,0.0675536046404,0.0655583504949,0.0658433868014,0.0659859049546,0.0665559775676,0.0655583504949,0.0634205781961,0.0644182052689,0.0648457597286,0.0644182052689,0.0641331689624,0.0618528785104,0.0605702151312,0.0605702151312,0.0622804329701,0.0645607234221,0.0648457597286,0.0629930237364,0.0634205781961,0.0648457597286,0.0635630963494,0.0675536046404,0.0692638224794,0.0695488587859,0.0679811591001,0.0665559775676,0.0675536046404,0.0668410138741,0.0678386409469,0.0681236772534,0.0688362680196,0.0668410138741,0.0652733141884,0.0651307960351,0.0655583504949,0.0647032415754,0.0632780600429,0.0651307960351,0.0644182052689,0.0631355418896,0.0619953966637,0.0625654692766,0.0631355418896,0.0625654692766,0.0614253240507,0.0605702151312,0.0625654692766,0.0629930237364,0.0628505055831,0.0632780600429,0.0625654692766,0.0608552514377,0.0598576243649,0.0614253240507,0.0614253240507,0.0627079874299,0.0625654692766,0.0621379148169,0.0609977695909,0.0597151062117,0.0597151062117,0.0608552514377,0.0601426606714,0.0604276969779,0.0602851788247,0.0590025154454,0.0588599972922,0.0590025154454,0.0585749609857,0.0584324428324,0.0602851788247,0.0621379148169,0.0658433868014,0.0637056145026,0.0638481326559,0.0645607234221,0.0635630963494,0.0632780600429,0.0651307960351,0.0662709412611,0.0638481326559,0.0609977695909,0.0595725880584,0.0597151062117,0.0587174791389,0.0587174791389,0.0580048883727,0.0582899246792,0.0562946705337,0.0567222249934,0.0604276969779,0.0605702151312,0.0600001425182,0.0598576243649,0.0609977695909,0.0604276969779,0.0625654692766,0.0602851788247,0.0591450335987,0.0570072612999,0.0565797068402,0.0567222249934,0.0561521523804,0.0555820797674,0.0548694890012,0.0537293437752,0.0518766077829,0.0518766077829,0.0535868256219,0.0540143800817,0.0538718619284,0.0540143800817,0.0533017893154,0.0525891985492,0.0523041622427,0.0535868256219,0.0530167530089,0.0570072612999,0.0557245979207,0.0565797068402,0.0531592711622,0.0521616440894,0.0538718619284,0.0541568982349,0.0558671160739,0.0541568982349,0.0567222249934,0.0545844526947,0.0562946705337,0.0552970434609,0.0565797068402,0.0574348157597,0.0567222249934,0.0571497794532,0.0564371886869,0.0580048883727,0.0541568982349,0.0542994163882,0.0538718619284,0.0540143800817,0.0550120071544,0.0544419345414,0.0542994163882,0.0550120071544,0.0530167530089,0.0533017893154,0.0547269708479,0.0545844526947,0.0540143800817,0.0540143800817,0.0524466803959,0.0518766077829,0.0513065351699,0.0501663899439,0.0517340896297,0.0518766077829,0.0514490533232,0.0528742348557,0.0508789807102,0.0495963173309,0.0507364625569,0.0495963173309,0.0494537991777,0.0484561721049,0.0495963173309,0.0480286176452,0.0488837265647,0.0457483271932,0.0484561721049,0.0500238717907,0.0497388354842,0.0503089080972,0.0514490533232,0.0530167530089,0.0534443074687,0.0530167530089,0.0531592711622,0.0550120071544,0.0547269708479,0.0548694890012,0.0554395616142,0.0577198520662,0.0568647431467,0.0568647431467,0.0565797068402,0.0571497794532,0.0578623702194,0.0562946705337,0.0547269708479,0.0533017893154,0.0510214988634,0.0487412084114,0.0480286176452,0.0478860994919,0.0447507001204,0.0446081819672,0.0437530730477,0.0446081819672,0.0454632908867,0.0483136539517,0.0493112810244,0.0501663899439,0.0510214988634,0.0504514262504,0.0523041622427,0.0523041622427,0.0514490533232,0.0501663899439,0.0493112810244,0.0468884724192,0.0481711357984,0.0467459542659,0.0468884724192,0.0473160268789,0.0458908453464,0.0460333634997,0.0454632908867,0.0458908453464,0.0474585450322,0.0470309905724,0.0476010631854,0.0487412084114,0.0483136539517,0.0488837265647,0.0494537991777,0.0485986902582,0.0491687628712,0.0503089080972,0.0498813536374,0.0488837265647,0.0468884724192,0.0476010631854,0.0471735087257,0.0476010631854,0.0478860994919,0.0493112810244,0.0480286176452,0.0481711357984,0.0467459542659,0.0487412084114,0.0487412084114,0.0474585450322,0.0467459542659,0.0458908453464,0.0448932182737,0.0447507001204,0.0466034361127,0.0471735087257,0.0484561721049,0.0491687628712,0.0520191259362,0.0530167530089,0.0542994163882,0.0538718619284,0.0534443074687,0.0542994163882,0.0560096342272,0.0541568982349,0.0544419345414,0.0504514262504,0.0468884724192,0.0460333634997,0.0451782545802,0.0467459542659,0.0480286176452,0.0474585450322,0.0460333634997,0.0461758816529,0.0448932182737,0.0473160268789,0.0481711357984,0.0474585450322,0.0471735087257,0.0454632908867,0.0454632908867,0.0470309905724,0.0464609179594,0.0466034361127,0.0480286176452,0.0481711357984,0.0474585450322,0.0484561721049,0.0480286176452,0.0474585450322,0.0473160268789,0.0457483271932,0.0463183998062,0.0470309905724,0.0458908453464,0.0456058090399,0.0468884724192,0.0471735087257,0.0488837265647,0.0500238717907,0.0513065351699,0.0495963173309,0.0490262447179,0.0476010631854,0.0476010631854,0.0464609179594,0.0467459542659,0.0457483271932,0.0458908453464,0.0470309905724,0.0443231456607,0.0456058090399,0.0448932182737,0.0451782545802,0.0464609179594,0.0476010631854,0.0448932182737,0.0450357364269,0.0447507001204,0.0443231456607,0.0463183998062,0.0480286176452,0.0485986902582,0.0493112810244,0.0501663899439,0.0487412084114,0.0503089080972,0.0521616440894,0.0517340896297,0.0514490533232,0.0517340896297,0.0508789807102,0.0513065351699,0.0523041622427,0.0510214988634,0.0520191259362,0.0533017893154,0.0525891985492,0.0524466803959,0.0504514262504,0.0493112810244,0.0478860994919,0.0495963173309,0.0494537991777,0.0495963173309,0.0500238717907,0.0505939444037,0.0498813536374,0.0503089080972,0.0511640170167,0.0501663899439,0.0524466803959,0.0511640170167,0.0500238717907,0.0500238717907,0.0500238717907,0.0476010631854,0.0480286176452,0.0483136539517,0.0524466803959,0.0525891985492,0.0507364625569,0.0510214988634,0.0513065351699,0.0505939444037,0.0484561721049,0.0500238717907,0.0510214988634,0.0508789807102,0.0470309905724,0.0474585450322,0.0471735087257,0.0477435813387,0.0485986902582,0.0471735087257,0.0490262447179,0.0493112810244,0.0493112810244,0.0484561721049,0.0498813536374,0.0515915714764,0.0520191259362,0.0497388354842,0.0477435813387,0.0490262447179,0.0504514262504,0.0510214988634,0.0524466803959,0.0535868256219,0.0528742348557,0.0530167530089,0.0545844526947,0.0572922976064,0.0591450335987,0.0604276969779,0.0585749609857,0.0562946705337,0.0530167530089,0.0508789807102,0.0520191259362,0.0517340896297,0.0497388354842,0.0478860994919,0.0460333634997,0.0450357364269,0.0454632908867,0.0457483271932,0.0473160268789,0.0491687628712,0.0484561721049,0.0461758816529,0.0483136539517,0.0490262447179,0.0501663899439,0.0485986902582,0.0501663899439,0.0494537991777,0.0495963173309,0.0494537991777,0.0468884724192,0.0471735087257,0.0451782545802,0.0444656638139,0.0451782545802,0.0461758816529,0.0450357364269,0.0467459542659,0.0463183998062,0.0464609179594,0.0473160268789,0.0473160268789,0.0481711357984,0.0471735087257,0.0457483271932,0.0468884724192,0.0464609179594,0.0466034361127,0.0458908453464,0.0443231456607,0.0447507001204,0.0451782545802,0.0457483271932,0.0457483271932,0.0466034361127,0.0450357364269,0.0451782545802,0.0436105548944,0.0444656638139,0.0463183998062,0.0464609179594,0.0468884724192,0.0446081819672,0.0453207727334,0.0450357364269,0.0453207727334,0.0443231456607,0.0443231456607,0.0434680367412,0.0379098287644,0.0332067297072,0.0286461488032,0.025083194972,0.0)
m <- c(0.0256670533643,0.0304524361949,0.0336426914153,0.0387180974478,0.0419083526682,0.0417633410673,0.0416183294664,0.042343387471,0.0416183294664,0.0420533642691,0.0419083526682,0.0404582366589,0.0419083526682,0.0410382830626,0.0419083526682,0.0414733178654,0.0419083526682,0.0408932714617,0.040313225058,0.040313225058,0.0426334106729,0.0435034802784,0.0426334106729,0.0430684454756,0.0426334106729,0.0435034802784,0.0429234338747,0.0437935034803,0.0449535962877,0.0437935034803,0.0414733178654,0.0424883990719,0.0429234338747,0.0442285382831,0.0456786542923,0.0450986078886,0.0435034802784,0.0439385150812,0.0432134570766,0.042343387471,0.0414733178654,0.0395881670534,0.0401682134571,0.0390081206497,0.0390081206497,0.0407482598608,0.0427784222738,0.0420533642691,0.0417633410673,0.0439385150812,0.0432134570766,0.0440835266821,0.0419083526682,0.0417633410673,0.0391531322506,0.0377030162413,0.036252900232,0.0361078886311,0.036252900232,0.0353828306265,0.0375580046404,0.0375580046404,0.0379930394432,0.0371229698376,0.0374129930394,0.0371229698376,0.0375580046404,0.0385730858469,0.0378480278422,0.0378480278422,0.0368329466357,0.0366879350348,0.0369779582367,0.0374129930394,0.0381380510441,0.0374129930394,0.0369779582367,0.0363979118329,0.036252900232,0.0377030162413,0.0379930394432,0.0374129930394,0.0381380510441,0.0378480278422,0.0385730858469,0.0398781902552,0.0416183294664,0.0416183294664,0.0420533642691,0.0410382830626,0.0408932714617,0.0417633410673,0.042343387471,0.0429234338747,0.0421983758701,0.0416183294664,0.0400232018561,0.0406032482599,0.0413283062645,0.0420533642691,0.0437935034803,0.0436484918794,0.042343387471,0.0407482598608,0.0400232018561,0.0398781902552,0.0387180974478,0.0372679814385,0.0378480278422,0.0378480278422,0.0345127610209,0.03436774942,0.0368329466357,0.0392981438515,0.0413283062645,0.0427784222738,0.0445185614849,0.0459686774942,0.0440835266821,0.0427784222738,0.0437935034803,0.044373549884,0.0427784222738,0.0435034802784,0.044373549884,0.0430684454756,0.0435034802784,0.0442285382831,0.0456786542923,0.0465487238979,0.0477088167053,0.0471287703016,0.0465487238979,0.0442285382831,0.0426334106729,0.0433584686775,0.0424883990719,0.0411832946636,0.0413283062645,0.0416183294664,0.0411832946636,0.0408932714617,0.0404582366589,0.0411832946636,0.0421983758701,0.0416183294664,0.0410382830626,0.0407482598608,0.0390081206497,0.0377030162413,0.0390081206497,0.0401682134571,0.0400232018561,0.0377030162413,0.036252900232,0.0361078886311,0.0359628770302,0.0361078886311,0.0391531322506,0.0404582366589,0.0392981438515,0.0391531322506,0.0419083526682,0.0459686774942,0.0474187935035,0.0474187935035,0.0493039443155,0.0506090487239,0.0487238979118,0.0475638051044,0.0478538283063,0.0465487238979,0.0471287703016,0.0456786542923,0.0461136890951,0.0471287703016,0.0471287703016,0.0462587006961,0.0462587006961,0.0475638051044,0.0485788863109,0.0498839907193,0.0471287703016,0.0477088167053,0.0469837587007,0.046403712297,0.0455336426914,0.0445185614849,0.0459686774942,0.0453886310905,0.0448085846868,0.0436484918794,0.0440835266821,0.0430684454756,0.0430684454756,0.0433584686775,0.0420533642691,0.0429234338747,0.0421983758701,0.042343387471,0.0410382830626,0.0419083526682,0.0427784222738,0.0435034802784,0.0436484918794,0.0433584686775,0.044373549884,0.0442285382831,0.0435034802784,0.0433584686775,0.044373549884,0.0432134570766,0.0440835266821,0.0456786542923,0.0455336426914,0.0466937354988,0.0462587006961,0.0465487238979,0.0456786542923,0.0455336426914,0.0439385150812,0.0442285382831,0.0437935034803,0.0420533642691,0.0413283062645,0.0394431554524,0.0401682134571,0.0392981438515,0.0401682134571,0.0404582366589,0.0410382830626,0.0420533642691,0.0414733178654,0.0413283062645,0.0416183294664,0.0413283062645,0.0416183294664,0.0416183294664,0.0419083526682,0.0427784222738,0.0437935034803,0.0429234338747,0.0439385150812,0.0427784222738,0.0430684454756,0.0452436194896,0.0445185614849,0.0459686774942,0.0469837587007,0.0474187935035,0.046403712297,0.0475638051044,0.0459686774942,0.0478538283063,0.0475638051044,0.0475638051044,0.0485788863109,0.0491589327146,0.0494489559165,0.0488689095128,0.0508990719258,0.0517691415313,0.0542343387471,0.0527842227378,0.0548143851508,0.0555394431555,0.0571345707657,0.0565545243619,0.0551044083527,0.0569895591647,0.0556844547564,0.0549593967517,0.0553944315545,0.0546693735499,0.0530742459397,0.0520591647332,0.0511890951276,0.050319025522,0.0516241299304,0.0513341067285,0.0520591647332,0.0522041763341,0.0511890951276,0.0530742459397,0.052494199536,0.0516241299304,0.0508990719258,0.0511890951276,0.0514791183295,0.0519141531323,0.0527842227378,0.0522041763341,0.0527842227378,0.0537993039443,0.0562645011601,0.0591647331787,0.0597447795824,0.0595997679814,0.0595997679814,0.0595997679814,0.0588747099768,0.0593097447796,0.0588747099768,0.0577146171694,0.0548143851508,0.0533642691415,0.0527842227378,0.0535092807425,0.0516241299304,0.0490139211137,0.0487238979118,0.0498839907193,0.0508990719258,0.0511890951276,0.052494199536,0.0519141531323,0.0517691415313,0.0517691415313,0.0542343387471,0.054379350348,0.0533642691415,0.0536542923434,0.0533642691415,0.0526392111369,0.0514791183295,0.0530742459397,0.0539443155452,0.0540893271462,0.0551044083527,0.0568445475638,0.0582946635731,0.0556844547564,0.054379350348,0.054379350348,0.0556844547564,0.0536542923434,0.0535092807425,0.054379350348,0.0513341067285,0.0508990719258,0.050464037123,0.0530742459397,0.0535092807425,0.0552494199536,0.0558294663573,0.0593097447796,0.060469837587,0.0613399071926,0.0627900232019,0.0626450116009,0.0626450116009,0.0629350348028,0.0638051044084,0.0639501160093,0.064530162413,0.0638051044084,0.0662703016241,0.0674303944316,0.0674303944316,0.0671403712297,0.0687354988399,0.0671403712297,0.0649651972158,0.0642401392111,0.064530162413,0.0658352668213,0.0625,0.0603248259861,0.060469837587,0.0600348027842,0.0585846867749,0.0595997679814,0.0617749419954,0.0630800464037,0.0625,0.0587296983759,0.0593097447796,0.0600348027842,0.0610498839907,0.0619199535963,0.0632250580046,0.0643851508121,0.0635150812065,0.0630800464037,0.0623549883991,0.0649651972158,0.0661252900232,0.0668503480278,0.0674303944316,0.0684454756381,0.0681554524362,0.0684454756381,0.0687354988399,0.0693155452436,0.0701856148492,0.0694605568445,0.0674303944316,0.0658352668213,0.0636600928074,0.0636600928074,0.0643851508121,0.0643851508121,0.0662703016241,0.066560324826,0.0672853828306,0.0693155452436,0.0720707656613,0.0722157772622,0.0730858468677,0.0751160092807,0.0764211136891,0.0772911832947,0.0759860788863,0.0768561484919,0.07656612529,0.0748259860789,0.0730858468677,0.0741009280742,0.0770011600928,0.0758410672854,0.0752610208817,0.0749709976798,0.0739559164733,0.0739559164733,0.0733758700696,0.0722157772622,0.0733758700696,0.0732308584687,0.0730858468677,0.0714907192575,0.0722157772622,0.0709106728538,0.0736658932715,0.0736658932715,0.074535962877,0.0772911832947,0.0768561484919,0.0771461716937,0.0751160092807,0.0759860788863,0.0738109048724,0.074535962877,0.0735208816705,0.0738109048724,0.0733758700696,0.0717807424594,0.0710556844548,0.0709106728538,0.0698955916473,0.0730858468677,0.0735208816705,0.072650812065,0.0722157772622,0.072650812065,0.0741009280742,0.0722157772622,0.0739559164733,0.0758410672854,0.0772911832947,0.074680974478,0.0754060324826,0.0749709976798,0.0756960556845,0.0736658932715,0.074535962877,0.0780162412993,0.0780162412993,0.0790313225058,0.0796113689095,0.0807714617169,0.0822215777262,0.0836716937355,0.082656612529,0.0823665893271,0.0816415313225,0.0793213457077,0.0797563805104,0.0787412993039,0.0801914153132,0.0790313225058,0.0794663573086,0.0803364269142,0.0828016241299,0.0848317865429,0.0839617169374,0.0855568445476,0.0849767981439,0.0833816705336,0.0814965197216,0.0832366589327,0.0820765661253,0.0804814385151,0.0807714617169,0.0800464037123,0.0801914153132,0.0803364269142,0.0790313225058,0.0809164733179,0.0813515081206,0.0794663573086,0.0804814385151,0.0828016241299,0.0832366589327,0.0835266821346,0.0855568445476,0.0861368909513,0.0883120649652,0.088747099768,0.0904872389791,0.0933874709977,0.0932424593968,0.0933874709977,0.0912122969838,0.0919373549884,0.0910672853828,0.0936774941995,0.094692575406,0.0919373549884,0.0899071925754,0.0871519721578,0.088747099768,0.0886020881671,0.088747099768,0.0897621809745,0.0891821345708,0.086716937355,0.0871519721578,0.0896171693735,0.0888921113689,0.0886020881671,0.0864269141531,0.0838167053364,0.0833816705336,0.0835266821346,0.0830916473318,0.0842517401392,0.0845417633411,0.0842517401392,0.0857018561485,0.0870069605568,0.0880220417633,0.09063225058,0.0910672853828,0.0897621809745,0.0922273781903,0.0912122969838,0.0890371229698,0.0893271461717,0.0893271461717,0.0888921113689,0.0890371229698,0.0888921113689,0.09063225058,0.092662412993,0.0920823665893,0.0930974477958,0.0955626450116,0.0983178654292,0.0990429234339,0.10005800464,0.100493039443,0.100348027842,0.0984628770302,0.0971577726218,0.0957076566125,0.0955626450116,0.0938225058005,0.0910672853828,0.0916473317865,0.0935324825986,0.0916473317865,0.0917923433875,0.0944025522042,0.0933874709977,0.0949825986079,0.0936774941995,0.0945475638051,0.0938225058005,0.0942575406032,0.0932424593968,0.0945475638051,0.0955626450116,0.0930974477958,0.0936774941995,0.0935324825986,0.0952726218097,0.09686774942,0.0961426914153,0.0939675174014,0.092662412993,0.0930974477958,0.0915023201856,0.0932424593968,0.0920823665893,0.0923723897912,0.0923723897912,0.0909222737819,0.0936774941995,0.0951276102088,0.0980278422274,0.10150812065,0.103248259861,0.106728538283,0.111948955916,0.11716937355,0.123259860789,0.128915313225,0.14225638051,0.150087006961,0.159077726218,0.169083526682,0.177059164733,0.183439675174,0.18909512761,0.19214037123,0.194605568445,0.197650812065,0.19373549884,0.194605568445,0.196490719258,0.190400232019,0.192285382831,0.19533062645,0.193010440835,0.194750580046,0.191415313225,0.189240139211,0.186339907193,0.186774941995,0.182279582367,0.182714617169,0.179959396752,0.177494199536,0.180104408353,0.178364269142,0.183874709977,0.185469837587,0.183729698376,0.181844547564,0.183439675174,0.182134570766,0.181699535963,0.177784222738,0.176189095128,0.176334106729,0.173578886311,0.173143851508,0.178219257541,0.178799303944,0.174883990719,0.180829466357,0.180539443155,0.182569605568,0.183149651972,0.183294663573,0.182714617169,0.180829466357,0.177929234339,0.177929234339,0.179814385151,0.175319025522,0.177059164733,0.177204176334,0.174738979118,0.17343387471,0.176479118329,0.17807424594,0.179379350348,0.179814385151,0.179379350348,0.18126450116,0.177349187935,0.174883990719,0.174303944316,0.175899071926,0.173143851508,0.173143851508,0.170823665893,0.171258700696,0.171258700696,0.168503480278,0.170823665893,0.174013921114,0.175319025522,0.172998839907,0.171258700696,0.166328306265,0.165748259861,0.161107888631,0.161107888631,0.159657772622,0.159077726218,0.159222737819,0.15777262181,0.160237819026,0.162267981439,0.164733178654,0.165893271462,0.17038863109,0.168648491879,0.167633410673,0.166763341067,0.163863109049,0.164878190255,0.162267981439,0.161397911833,0.165023201856,0.167633410673,0.166473317865,0.167488399072,0.17024361949,0.169953596288,0.169083526682,0.167053364269,0.168938515081,0.166618329466,0.165748259861,0.161977958237,0.161977958237,0.16255800464,0.161977958237,0.163718097448,0.163573085847,0.166618329466,0.166908352668,0.169228538283,0.166038283063,0.167343387471,0.167343387471,0.165023201856,0.164733178654,0.158642691415,0.157627610209,0.154437354988,0.151682134571,0.151392111369,0.151102088167,0.149651972158,0.145011600928,0.144141531323,0.143416473318,0.148781902552,0.147186774942,0.14849187935,0.147911832947,0.145736658933,0.142836426914,0.142981438515,0.147041763341,0.148636890951,0.149796983759,0.150812064965,0.15153712297,0.152407192575,0.150957076566,0.152697215777,0.156902552204,0.158352668213,0.157047563805,0.157047563805,0.152987238979,0.150087006961,0.150667053364,0.149796983759,0.148636890951,0.144576566125,0.144866589327,0.143126450116,0.143996519722,0.142981438515,0.145591647332,0.147186774942,0.148346867749,0.14689675174,0.147621809745,0.149216937355,0.148636890951,0.147041763341,0.143996519722,0.144286542923,0.143126450116,0.142981438515,0.143561484919,0.145736658933,0.148926914153,0.148346867749,0.147186774942,0.145156612529,0.147186774942,0.146606728538,0.147476798144,0.145736658933,0.146461716937,0.142546403712,0.139646171694,0.141096287703,0.141821345708,0.144576566125,0.14211136891,0.141531322506,0.138921113689,0.138051044084,0.136600928074,0.138051044084,0.141676334107,0.140951276102,0.141241299304,0.140806264501,0.14370649652,0.144141531323,0.147476798144,0.148636890951,0.147621809745,0.148056844548,0.145736658933,0.144576566125,0.144721577726,0.147621809745,0.147186774942,0.14849187935,0.148346867749,0.150812064965,0.150522041763,0.150087006961,0.148781902552,0.149361948956,0.148201856148,0.141096287703,0.139501160093,0.138341067285,0.135295823666,0.131670533643,0.131815545244,0.130945475638,0.129930394432,0.131090487239,0.131670533643,0.134570765661,0.133265661253,0.12964037123,0.130075406032,0.130800464037,0.130945475638,0.129205336427,0.130075406032,0.127175174014,0.125580046404,0.124564965197,0.124709976798,0.128625290023,0.130365429234,0.129060324826,0.129205336427,0.130220417633,0.128770301624,0.127755220418,0.127610208817,0.130510440835,0.130075406032,0.129205336427,0.127320185615,0.127175174014,0.127320185615,0.127320185615,0.130220417633,0.132395591647,0.134280742459,0.133265661253,0.134570765661,0.13442575406,0.135150812065,0.135150812065,0.132540603248,0.131815545244,0.127610208817,0.12819025522,0.125725058005,0.126450116009,0.126160092807,0.125725058005,0.123984918794,0.123694895592,0.124129930394,0.126015081206,0.130510440835,0.128915313225,0.128045243619,0.126740139211,0.125870069606,0.126885150812,0.128625290023,0.126160092807,0.125580046404,0.123259860789,0.117604408353,0.11716937355,0.118039443155,0.11557424594,0.114414153132,0.112093967517,0.109193735499,0.110063805104,0.108033642691,0.10788863109,0.109193735499,0.107598607889,0.101798143852,0.0986078886311,0.0970127610209,0.0925174013921,0.0880220417633,0.0838167053364,0.0812064965197,0.0768561484919,0.0733758700696,0.0709106728538,0.072650812065,0.070620649652,0.0690255220418,0.0700406032483,0.0707656612529,0.0709106728538,0.0701856148492,0.0712006960557,0.0700406032483,0.0690255220418,0.0667053364269,0.0684454756381,0.0693155452436,0.0680104408353,0.066560324826,0.0684454756381,0.0697505800464,0.0696055684455,0.070620649652,0.0703306264501,0.0709106728538,0.0694605568445,0.0671403712297,0.0674303944316,0.0703306264501,0.0690255220418,0.0697505800464,0.0703306264501,0.0712006960557,0.072505800464,0.0736658932715,0.0752610208817,0.0764211136891,0.074680974478,0.0733758700696,0.0717807424594,0.0690255220418,0.0671403712297,0.0658352668213,0.064530162413,0.0646751740139,0.0656902552204,0.0642401392111,0.0655452436195,0.0648201856148,0.0656902552204,0.0648201856148,0.066560324826,0.0672853828306,0.0684454756381,0.0655452436195,0.0626450116009,0.0640951276102,0.0622099767981,0.0635150812065,0.0632250580046,0.0632250580046,0.0613399071926,0.0607598607889,0.0595997679814,0.0600348027842,0.0607598607889,0.0601798143852,0.0635150812065,0.0619199535963,0.0626450116009,0.0632250580046,0.0638051044084,0.0630800464037,0.0629350348028,0.0636600928074,0.0629350348028,0.0632250580046,0.0609048723898,0.0607598607889,0.0594547563805,0.060469837587,0.0585846867749,0.0574245939675,0.0575696055684,0.0558294663573,0.0562645011601,0.0559744779582,0.0559744779582,0.0548143851508,0.0559744779582,0.0537993039443,0.0546693735499,0.0578596287703,0.0580046403712,0.0581496519722,0.0568445475638,0.0558294663573,0.0569895591647,0.0585846867749,0.0590197215777,0.060469837587,0.0611948955916,0.0581496519722,0.0568445475638,0.0585846867749,0.0601798143852,0.060469837587,0.0585846867749,0.0574245939675,0.0568445475638,0.056409512761,0.0571345707657,0.0575696055684,0.0578596287703,0.0578596287703,0.0577146171694,0.0581496519722,0.0578596287703,0.0603248259861,0.0614849187935,0.0625,0.0614849187935,0.0616299303944,0.0630800464037,0.0632250580046,0.0629350348028,0.0620649651972,0.0620649651972,0.060469837587,0.0578596287703,0.0566995359629,0.0562645011601,0.0561194895592,0.054524361949,0.0527842227378,0.052349187935,0.0514791183295,0.0533642691415,0.054524361949,0.0555394431555,0.0566995359629,0.0572795823666,0.0571345707657,0.0561194895592,0.0559744779582,0.0566995359629,0.0569895591647,0.0559744779582,0.052349187935,0.0514791183295,0.0506090487239,0.0494489559165,0.0481438515081,0.0495939675174,0.0508990719258,0.050464037123,0.0507540603248,0.050464037123,0.052349187935,0.0532192575406,0.0559744779582,0.0556844547564,0.0565545243619,0.0561194895592,0.0546693735499,0.054524361949,0.0536542923434,0.0530742459397,0.0533642691415,0.0530742459397,0.0506090487239,0.0511890951276,0.052349187935,0.0513341067285,0.0526392111369,0.0513341067285,0.0517691415313,0.0519141531323,0.050319025522,0.0508990719258,0.050464037123,0.0498839907193,0.0488689095128,0.04843387471,0.0469837587007,0.0474187935035,0.0477088167053,0.0500290023202,0.0526392111369,0.0520591647332,0.0527842227378,0.0530742459397,0.0551044083527,0.0562645011601,0.0574245939675,0.0587296983759,0.0610498839907,0.0595997679814,0.0578596287703,0.0569895591647,0.058439675174,0.0578596287703,0.0558294663573,0.0565545243619,0.0555394431555,0.0551044083527,0.0527842227378,0.0519141531323,0.052349187935,0.050319025522,0.0485788863109,0.04843387471,0.0487238979118,0.0481438515081,0.0516241299304,0.0495939675174,0.0485788863109,0.0485788863109,0.0472737819026,0.0488689095128,0.0487238979118,0.0491589327146,0.0479988399072,0.0485788863109,0.0452436194896,0.0455336426914,0.0481438515081,0.0497389791183,0.0514791183295,0.0520591647332,0.0526392111369,0.0533642691415,0.0529292343387,0.0533642691415,0.0548143851508,0.0577146171694,0.0577146171694,0.0575696055684,0.0582946635731,0.0594547563805,0.0588747099768,0.0601798143852,0.0632250580046,0.0617749419954,0.0610498839907,0.0581496519722,0.0574245939675,0.0555394431555,0.0535092807425,0.0506090487239,0.050319025522,0.0494489559165,0.0495939675174,0.0501740139211,0.0495939675174,0.0501740139211,0.0491589327146,0.048288863109,0.0494489559165,0.0519141531323,0.0516241299304,0.0520591647332,0.0500290023202,0.0506090487239,0.052494199536,0.052494199536,0.0539443155452,0.0556844547564,0.0539443155452,0.0535092807425,0.0546693735499,0.0555394431555,0.0551044083527,0.054524361949,0.0520591647332,0.0526392111369,0.0501740139211,0.0493039443155,0.0495939675174,0.04843387471,0.0478538283063,0.0458236658933,0.0468387470998,0.0468387470998,0.0485788863109,0.0498839907193,0.050464037123,0.0506090487239,0.0507540603248,0.0526392111369,0.0520591647332,0.0511890951276,0.0517691415313,0.050464037123,0.0445185614849,0.0381380510441,0.0339327146172,0.0292923433875,0.0)
ycorr <- c(5.10463555436e-05,5.07298309467e-05,4.9770862897e-05,4.81631976049e-05,4.5933374934e-05,4.30720942669e-05,3.95711758072e-05,3.60891451258e-05,3.26223896934e-05,2.91784404447e-05,2.57609423657e-05,2.23864698566e-05,1.90442404021e-05,1.57452752638e-05,1.24859750031e-05,9.25335344014e-06,6.06675684975e-06,2.9169654379e-06,-1.98144683119e-07,-3.28656167845e-06,-6.3519649729e-06,-9.39545119903e-06,-1.24341000219e-05,-1.5465080303e-05,-1.84891311606e-05,-2.15073539583e-05,-2.45292430797e-05,-2.75716470569e-05,-3.06304584756e-05,-3.37135860514e-05,-3.68092908064e-05,-3.99324001116e-05,-4.30783848624e-05,-4.623604712e-05,-4.94293812357e-05,-5.26466566989e-05,-5.58825223368e-05,-5.91277403307e-05,-6.236200076e-05,-6.55641362062e-05,-6.87407873875e-05,-7.1894348828e-05,-7.50155214616e-05,-7.81152057609e-05,-8.11967054978e-05,-8.42464439956e-05,-8.72855485977e-05,-9.0311885992e-05,-9.33434463343e-05,-9.64089942619e-05,-9.95078037862e-05,-0.00010263552116,-0.000105784248719,-0.000108941408899,-0.00011209688537,-0.000115257672835,-0.000118406020015,-0.000121532101155,-0.00012463443022,-0.000127689062113,-0.000130676921987,-0.000133599591187,-0.000136457829009,-0.00013926590944,-0.000142024009515,-0.000144740910654,-0.000147427697718,-0.000150093768306,-0.000152742021618,-0.000155370260686,-0.000157988800601,-0.000160605046019,-0.000163223323,-0.000165845189346,-0.000168464910801,-0.000171084275554,-0.000173697904465,-0.000176292513511,-0.000178871660389,-0.000181448590321,-0.000184028831223,-0.000186611506307,-0.000189200316756,-0.00019178609235,-0.000194363561704,-0.000196930482892,-0.00019948586715,-0.00020203579909,-0.000204576115897,-0.000207105918721,-0.000209633613725,-0.000212162705429,-0.000214688530226,-0.000217198830307,-0.000219711078725,-0.000222234936816,-0.00022477192682,-0.000227316028415,-0.000229869142292,-0.00023242731562,-0.000234983223246,-0.000237516663756,-0.000240023015242,-0.000242526601415,-0.000245023219741,-0.000247515852493,-0.000249988940186,-0.00025245173615,-0.000254909648438,-0.000257360984988,-0.000259803223574,-0.000262241301057,-0.000264682629378,-0.000267113107798,-0.000269518742677,-0.000271872048048,-0.000274172620983,-0.000276425226672,-0.00027862349864,-0.000280773922542,-0.000282876635307,-0.000284942138501,-0.000286958822596,-0.000288928824117,-0.000290872845419,-0.000292825977047,-0.000294806775369,-0.000296824297168,-0.000298878036488,-0.000300959135381,-0.000303056186127,-0.000305168756323,-0.000307314833538,-0.000309513853585,-0.000311759684222,-0.000314041092323,-0.000316333542294,-0.000318646389228,-0.00032096439406,-0.000323300761923,-0.000325674136151,-0.000328093890408,-0.000330549009455,-0.000333020389687,-0.000335490466097,-0.000337948939337,-0.000340397733289,-0.000342822620593,-0.000345216866744,-0.000347567314547,-0.000349870595393,-0.000352105294436,-0.000354277734505,-0.000356390698785,-0.000358453166682,-0.00036047891674,-0.00036247458146,-0.000364428297869,-0.000366353853877,-0.000368268702854,-0.000370182949973,-0.000372095008895,-0.000374007378846,-0.000375914382079,-0.000377817789402,-0.000379711656144,-0.000381602652636,-0.000383500940671,-0.000385420380672,-0.000387348201601,-0.000389273137242,-0.000391189318179,-0.000393095889179,-0.000394996943644,-0.000396898198727,-0.000398803466362,-0.000400716424422,-0.000402615787052,-0.000404495076764,-0.000406365621537,-0.000408239436058,-0.000410129540033,-0.000412042448018,-0.000413981286021,-0.000415942072539,-0.000417902911481,-0.000419861058405,-0.00042182412025,-0.000423813704903,-0.000425816413099,-0.000427812087323,-0.000429789315877,-0.000431737216172,-0.000433658993985,-0.000435554497535,-0.000437442830784,-0.000439332592733,-0.000441227210518,-0.000443110849988,-0.000444970666239,-0.00044682293677,-0.000448687377833,-0.000450570385086,-0.000452472930262,-0.000454400661684,-0.000456350331502,-0.000458302920778,-0.000460259287907,-0.000462209931438,-0.00046417019099,-0.000466140803765,-0.000468098791458,-0.000470033281135,-0.000471933974287,-0.000473792745903,-0.000475601016824,-0.000477365800577,-0.000479097575094,-0.000480799990832,-0.000482484539023,-0.000484135944697,-0.000485763866073,-0.000487383651058,-0.00048899398389,-0.000490603434701,-0.000492214614531,-0.000493824759364,-0.000495419130051,-0.000497002083129,-0.000498559642644,-0.000500095048608,-0.000501612908809,-0.000503104212335,-0.000504582237375,-0.000506042526305,-0.000507480415634,-0.000508906324701,-0.000510325951453,-0.000511734967474,-0.000513128196015,-0.000514515421871,-0.000515885127769,-0.000517238445874,-0.000518568856359,-0.000519864730502,-0.000521137606646,-0.000522389604886,-0.000523612474086,-0.000524809037016,-0.000525989509342,-0.000527154889346,-0.00052831333833,-0.000529459678426,-0.000530593985926,-0.000531725451406,-0.000532857506374,-0.000533978493748,-0.000535089587708,-0.000536187176608,-0.000537269337772,-0.000538323708314,-0.000539348569082,-0.000540346101267,-0.000541315659332,-0.000542251231704,-0.000543140441308,-0.000543983156151,-0.000544787484005,-0.000545564647894,-0.000546318949096,-0.000547051256163,-0.000547776904687,-0.000548494068489,-0.000549210597832,-0.000549939299169,-0.000550681906172,-0.00055144760287,-0.000552241448861,-0.000553049619441,-0.000553862146754,-0.000554680767893,-0.000555485196033,-0.000556266801892,-0.000557013084841,-0.000557707985458,-0.000558351194455,-0.000558930573684,-0.000559435738817,-0.00055985333304,-0.000560178765879,-0.000560399543748,-0.000560517777197,-0.000560549298668,-0.000560489233618,-0.000560340952835,-0.000560103658146,-0.000559779168971,-0.000559374799033,-0.000558901277016,-0.000558368740182,-0.000557795199841,-0.000557185633265,-0.000556533681506,-0.000555845954248,-0.000555133040033,-0.000554398682175,-0.000553641487839,-0.000552865637944,-0.000552077592866,-0.000551279296291,-0.000550461455753,-0.000549623668652,-0.000548773564593,-0.000547915543137,-0.000547040378068,-0.000546154128506,-0.000545259836273,-0.000544356739976,-0.000543438499843,-0.000542503219017,-0.000541556230031,-0.000540607030721,-0.000539653648222,-0.000538697039244,-0.000537751292668,-0.000536818097895,-0.000535902016853,-0.000535002198672,-0.000534126376862,-0.000533276905439,-0.000532455792364,-0.000531656254934,-0.000530877170031,-0.000530107439386,-0.000529342965818,-0.000528563284052,-0.000527762017742,-0.000526937397047,-0.000526090489358,-0.000525217398972,-0.000524321428039,-0.000523402453448,-0.000522447247662,-0.000521464036511,-0.00052044685747,-0.000519402381749,-0.000518330431133,-0.000517241455282,-0.000516124832316,-0.0005149802237,-0.000513792178547,-0.000512550491217,-0.000511269689116,-0.000509953740484,-0.000508602140813,-0.000507226981414,-0.000505832520818,-0.000504416616272,-0.000502981799649,-0.000501525043886,-0.000500054036938,-0.000498591740926,-0.000497135865542,-0.000495687559914,-0.00049425576735,-0.000492840243262,-0.000491434447337,-0.000490031256969,-0.000488629924117,-0.000487231973966,-0.000485843693069,-0.000484450311609,-0.000483048070533,-0.000481629248597,-0.000480173103522,-0.000478673434359,-0.000477134401298,-0.000475555679945,-0.0004739367355,-0.000472288338642,-0.000470609938683,-0.000468903445618,-0.000467175230084,-0.000465423038407,-0.000463662584363,-0.000461902380302,-0.000460139949944,-0.000458371174657,-0.000456618771053,-0.000454875124997,-0.000453131715124,-0.000451383162603,-0.000449626613587,-0.000447868933036,-0.000446106403252,-0.000444335576921,-0.000442552274189,-0.000440763093366,-0.000438945799525,-0.000437091488203,-0.00043521128886,-0.000433312307164,-0.000431394578563,-0.000429454840654,-0.000427491243845,-0.000425513245268,-0.000423521112655,-0.000421521534507,-0.000419516228047,-0.000417520227986,-0.000415530453283,-0.0004135400236,-0.000411553014007,-0.000409567178218,-0.000407591691393,-0.000405620468071,-0.000403658666484,-0.000401703232965,-0.000399752145651,-0.000397803240522,-0.000395851569146,-0.000393898692803,-0.00039194357269,-0.000389988148763,-0.000388033116648,-0.000386067906089,-0.000384088717739,-0.000382085581909,-0.000380062301521,-0.000378017737571,-0.00037595485303,-0.000373879957919,-0.000371791374238,-0.000369693216399,-0.00036758198775,-0.000365459245435,-0.000363333594377,-0.000361208929257,-0.000359086162859,-0.000356958726646,-0.000354828304551,-0.000352698838257,-0.00035056742072,-0.000348433638495,-0.000346286267104,-0.000344127290741,-0.00034195777308,-0.000339780532374,-0.000337591953191,-0.000335396932475,-0.000333202219156,-0.000330999894229,-0.000328784524568,-0.000326554702091,-0.000324319662751,-0.000322085487691,-0.000319858346301,-0.000317627889482,-0.000315393654097,-0.000313160574357,-0.00031091540297,-0.000308656730886,-0.000306386393554,-0.000304107363971,-0.000301822939972,-0.000299533607783,-0.000297232642625,-0.000294916638869,-0.000292598149086,-0.000290268746884,-0.000287935261644,-0.000285603786317,-0.000283282190315,-0.000280975676342,-0.000278678337254,-0.000276387556392,-0.000274090894145,-0.000271800765858,-0.000269510532659,-0.000267218962452,-0.000264930286897,-0.000262634893939,-0.000260331333186,-0.000258007508818,-0.000255665723657,-0.000253301535297,-0.000250925220433,-0.000248537057375,-0.000246138534169,-0.000243729455584,-0.000241308882393,-0.000238885803148,-0.000236473972043,-0.000234076961174,-0.000231693149747,-0.000229315239145,-0.000226950576374,-0.000224584492362,-0.000222210402596,-0.000219828126854,-0.000217428194552,-0.000215006090857,-0.000212538137497,-0.000210011358986,-0.000207429836924,-0.00020479706749,-0.000202114405822,-0.000199384675514,-0.000196617949573,-0.000193816849216,-0.000190993466381,-0.000188144330416,-0.000185275020319,-0.000182397024027,-0.000179506315997,-0.000176608442408,-0.000173707417729,-0.000170810027572,-0.000167911898038,-0.000165022325423,-0.000162144358151,-0.000159276580675,-0.000156442250922,-0.000153647981225,-0.000150902243364,-0.000148211107964,-0.000145561242101,-0.000142949609342,-0.000140374998238,-0.000137834402806,-0.000135312504062,-0.000132812503491,-0.000130312022242,-0.000127803117118,-0.0001252763526,-0.000122722808602,-0.000120141975176,-0.000117541733691,-0.000114924222257,-0.000112282978361,-0.000109618252903,-0.000106925254849,-0.000104207586693,-0.000101465055925,-9.86903828978e-05,-9.58820201826e-05,-9.3044427386e-05,-9.01828799322e-05,-8.72982600322e-05,-8.43859084803e-05,-8.14537119563e-05,-7.85134335975e-05,-7.55688962249e-05,-7.26161079964e-05,-6.96777901009e-05,-6.67684255653e-05,-6.38866221022e-05,-6.10248101867e-05,-5.81750352647e-05,-5.53450150733e-05,-5.25425851247e-05,-4.97633977828e-05,-4.70094982813e-05,-4.42963656395e-05,-4.16182655863e-05,-3.89634377127e-05,-3.6333440008e-05,-3.37400673442e-05,-3.11842008871e-05,-2.86609671214e-05,-2.61550324358e-05,-2.36639665449e-05,-2.11777227255e-05,-1.86793444718e-05,-1.61509283053e-05,-1.35960276209e-05,-1.10112791511e-05,-8.37940172155e-06,-5.69829866075e-06,-2.97465576446e-06,-2.22980629849e-07,2.55588337395e-06,5.36243702496e-06,8.18322715248e-06,1.10087977744e-05,1.3840753286e-05,1.66882863858e-05,1.95603534485e-05,2.24596512988e-05,2.54028109705e-05,2.84272510639e-05,3.15743828703e-05,3.48754223355e-05,3.83709149274e-05,4.2166927696e-05,4.59106315383e-05,4.96858084223e-05,5.35127999109e-05,5.74185052663e-05,6.14228672994e-05,6.55443247102e-05,6.97591287689e-05,7.40401782886e-05,7.83620897043e-05,8.2689380716e-05,8.69213814874e-05,9.14070157137e-05,9.60584586915e-05,0.000100837897012,0.000105716428179,0.000110655655237,0.000115621289125,0.000120603180292,0.000125582505316,0.000130552411846,0.000135504729445,0.000140431781926,0.000145329270183,0.000150185010175,0.000154986389343,0.000159727545703,0.00016441119883,0.000169037520764,0.000173608241042,0.000178125303075,0.000182584002796,0.000186993104679,0.00019136047999,0.0001956978256,0.000200011721357,0.000204311610357,0.000208595224633,0.000212862702877,0.00021712020024,0.000221358370631,0.000225578231716,0.000229780319122,0.000233962934026,0.000238118226626,0.000242255670315,0.00024638221551,0.000250507332792,0.000254627844672,0.000258739250878,0.000262849459731,0.000266961287851,0.000271078532632,0.000275187070036,0.000279290776552,0.000283391651271,0.000287467811174,0.00029150571759,0.00029550105751,0.000299456999401,0.000303378644742,0.000307262833389,0.00031111531765,0.000314948263834,0.000318776158854,0.000322580164898,0.000326371799417,0.000330164530446,0.000333974328647,0.000337804724412,0.00034164980668,0.000345502070748,0.000349344667731,0.000353159702178,0.000356933691008,0.000360671634259,0.000364364124597,0.000367991711502,0.000371537941038,0.000374979430746,0.000378303212694,0.000381515715907,0.000384628675597,0.000387653748832,0.000390587317584,0.000393428063131,0.000396185722956,0.000398889133073,0.000401554604586,0.000404194538822,0.000406833145416,0.000409478556201,0.000412129378116,0.000414788706942,0.000417458477155,0.00042015982221,0.000422889177298,0.000425619733412,0.00042833401888,0.000431029575068,0.000433707256904,0.000436362599464,0.000438996793982,0.000441610638567,0.000444199000591,0.000446750566623,0.000449262011724,0.000451741850538,0.000454205798002,0.000456661240508,0.000459102291965,0.000461516639179,0.0004639014744,0.000466255965297,0.000468590182094,0.000470904579163,0.000473210863853,0.000475512418436,0.000477813369605,0.000480109321272,0.000482394605682,0.000484674259948,0.000486951706389,0.000489215823532,0.000491463125413,0.000493682914731,0.000495866474236,0.000498004931218,0.000500083855409,0.00050209468145,0.000504045848073,0.000505945384965,0.000507782713601,0.000509571419568,0.000511314435113,0.000513019503369,0.000514689595507,0.00051633486726,0.000517957199643,0.000519574258414,0.000521191260775,0.000522804166232,0.000524420766309,0.000526049924599,0.000527688270985,0.00052934810773,0.000531034047649,0.000532737081525,0.000534464968158,0.000536214487494,0.000537973819951,0.000539739060423,0.000541512584595,0.00054327520464,0.000545025326052,0.000546747707812,0.00054842884397,0.000550066132319,0.000551661572351,0.000553212056645,0.000554719675551,0.00055618888362,0.000557615591265,0.000559005657639,0.000560375371287,0.000561725887266,0.000563069292069,0.000564414914183,0.000565759156799,0.000567101864498,0.000568438062657,0.000569768009834,0.000571089552444,0.00057240947289,0.000573711886881,0.000574997152375,0.000576265874737,0.000577519774786,0.000578753312045,0.000579967923022,0.000581168223915,0.000582360532121,0.000583550774811,0.000584739685316,0.000585926468731,0.00058711587008,0.000588293815493,0.000589448851535,0.000590577577582,0.000591677701118,0.000592746898607,0.000593770815263,0.000594743984398,0.000595656738223,0.000596506753895,0.000597285385349,0.000597998999496,0.000598655978248,0.000599275234572,0.000599870234808,0.000600448164025,0.000601025083134,0.000601611598849,0.000602217951422,0.000602857569294,0.00060354475025,0.000604291526915,0.000605096256534,0.000605954616383,0.000606857400495,0.000607789988678,0.00060875292968,0.000609729426653,0.000610716936284,0.000611708209813,0.000612697714917,0.000613677484829,0.000614650053987,0.000615609199822,0.000616541397799,0.000617452651017,0.000618330946321,0.000619170780271,0.000619966261223,0.000620711980094,0.000621400668425,0.000622018067567,0.000622553593055,0.000623006738943,0.000623389991297,0.000623709940806,0.00062396154493,0.000624159180171,0.000624304622444,0.000624401882961,0.000624450286772,0.000624460792301,0.00062444234641,0.000624390509595,0.000624296582736,0.000624156400194,0.000623976312751,0.000623754697456,0.000623494659502,0.000623199753365,0.000622873696419,0.000622523534281,0.000622141003494,0.000621731128111,0.000621313304716,0.000620890770225,0.000620465139024,0.000620045344689,0.000619629409466,0.000619213745136,0.000618797741006,0.000618385575296,0.000617988122749,0.000617611755152,0.000617253150483,0.000616901565226,0.000616551339341,0.00061619683246,0.000615835113782,0.000615476551924,0.00061512742227,0.000614780792956,0.000614437828753,0.000614093189851,0.000613738383111,0.000613381453112,0.000613036347791,0.000612713104654,0.000612414010585,0.000612139540751,0.000611881552434,0.000611640615629,0.000611413226922,0.000611185980821,0.00061095728933,0.000610731917073,0.000610492836988,0.000610224190595,0.000609916129357,0.000609560388859,0.000609141497765,0.000608653550358,0.000608082670706,0.000607439667715,0.000606727989865,0.000605933607991,0.000605062042471,0.000604108142956,0.000603070726251,0.000601946001135,0.00060074083617,0.000599461753726,0.000598107771754,0.000596666097945,0.000595121857861,0.000593466485217,0.00059169039575,0.000589774006697,0.000587724996804,0.000585523834169,0.000583157727356,0.000580609167094,0.000577876028187,0.000574961139823,0.000571871144832,0.000568612321939,0.000565196280707,0.000561647232076,0.000557974419818,0.000554198350288,0.000550351701547,0.00054645515002,0.000542525982594,0.000538575803424,0.000534618727926,0.000530673592909,0.000526741187168,0.000522831812907,0.000518937148415,0.000515056915427,0.000511164556719,0.000507258517896,0.000503340599442,0.000499398787165,0.000495432806269,0.000491430778256,0.000487403506188,0.000483344764543,0.00047925085465,0.000475131928285,0.000471008083975,0.000466890156914,0.000462776295706,0.00045868693297,0.000454624811389,0.000450590934947,0.000446569988548,0.00044255735742,0.000438566109085,0.000434590586324,0.000430625455623,0.000426659355197,0.000422696070436,0.000418735758342,0.000414764760787,0.000410792106798,0.000406821318391,0.000402875243435,0.000398944128871,0.000395031092678,0.000391142812281,0.000387284679207,0.000383455954636,0.000379653279784,0.00037587645029,0.000372115596589,0.000368374503009,0.000364638058025,0.000360902243724,0.000357160807344,0.000353407334497,0.000349645168303,0.000345869458702,0.000342065359109,0.00033823413048,0.000334375085488,0.000330490185932,0.000326573411603,0.000322636604528,0.000318684610221,0.000314727129032,0.000310758130933,0.000306778025843,0.000302807276843,0.000298865750293,0.000294966064268,0.000291112365691,0.000287318738772,0.000283585011946,0.000279909800337,0.000276293300982,0.000272729104596,0.000269218694864,0.000265740257038,0.000262269968661,0.000258792586859,0.000255293697057,0.000251766629107,0.000248204377039,0.000244609314278,0.0002409811753,0.000237319001577,0.000233628827723,0.000229910921569,0.000226175989786,0.000222433835152,0.000218693297793,0.000214954340759,0.000211215946526,0.000207472527719,0.000203714640202,0.000199941607937,0.000196154783391,0.000192363031259,0.000188577355695,0.000184808576194,0.000181060319748,0.000177335403581,0.000173637462299,0.000169972682294,0.000166345620053,0.000162761924525,0.000159213432273,0.000155694265014,0.000152200085121,0.000148727034256,0.000145256540916,0.000141780004158,0.000138297404629,0.000134814090608,0.000131329243656,0.000127841802173,0.000124367983587,0.000120915404044,0.000117486445791,0.000114067395283,0.000110667885588,0.000107295842768,0.000103960204054,0.000100664220034,9.74029131092e-05,9.41781767849e-05,9.09723915723e-05,8.77788086233e-05,8.45871622642e-05,8.13950876863e-05,7.82045099715e-05,7.50052541999e-05,7.17905542037e-05,6.85395022291e-05,6.5241293027e-05,6.1893415184e-05,5.84907043883e-05,5.50416609026e-05,5.15410864643e-05,4.79996928555e-05,4.44176235119e-05,4.07993956507e-05,3.71454641637e-05,3.34669560404e-05,2.97826106557e-05,2.60918429239e-05,2.24153188331e-05,1.87646063743e-05,1.51565537248e-05,1.1593755831e-05,8.07433307114e-06,4.5987552599e-06,1.17684598156e-06,-2.18867433777e-06,-5.49028503674e-06,-8.72843384328e-06,-1.19105243578e-05,-1.50572056763e-05,-1.81882715965e-05,-2.13074223953e-05,-2.44087027676e-05,-2.74805509374e-05,-3.05230344712e-05,-3.35502601645e-05,-3.65748942108e-05,-3.96047059885e-05,-4.26397216625e-05,-4.56672267857e-05,-4.86740264218e-05,-5.16636258839e-05,-5.46449899014e-05,-5.76276269328e-05,-6.06280552389e-05,-6.36406998159e-05,-6.66594111243e-05,-6.96754990629e-05,-7.26857266745e-05,-7.57027324099e-05,-7.87328704994e-05,-8.17824305231e-05,-8.48359633482e-05,-8.78944289377e-05,-9.09423288588e-05,-9.39716511174e-05,-9.69883020547e-05,-9.99845730304e-05,-0.000102971077454,-0.000105943138783,-0.000108895303807,-0.000111825958272,-0.000114737478425,-0.000117630422207,-0.000120510726346,-0.000123392801509,-0.000126267942127,-0.000129139705446,-0.000132010214233,-0.000134863787955,-0.000137706036391,-0.000140529413315,-0.000143336667263,-0.000146120300326,-0.000148891671606,-0.000151648969329,-0.000154402364267,-0.000157163597407,-0.000159925389441,-0.000162706026182,-0.000165504156127,-0.000168322763331,-0.000171159100972,-0.000174010878398,-0.000176882063149,-0.00017975904849,-0.000182631373347,-0.000185485774863,-0.000188316460151,-0.000191117623674,-0.000193880109201,-0.00019660742699,-0.00019930374662,-0.000201985562913,-0.000204644282947,-0.000207271497426,-0.000209867953542,-0.000212432430502,-0.000214964835906,-0.000217467826026,-0.000219947274554,-0.000222395604498,-0.000224804145194,-0.000227158628665,-0.000229442103243,-0.000231664204963,-0.000233829808865,-0.00023594312234,-0.000238012488211,-0.000240043301229,-0.000242043132402,-0.000244017732777,-0.000245980421423,-0.000247943468159,-0.000249925503697,-0.000251935825741,-0.000253980113765,-0.000256069815451,-0.000258209034347,-0.000260386311555,-0.000262597765519,-0.000264841858157,-0.000267113568747,-0.000269405202543,-0.000271715248911,-0.000274038826892,-0.000276376363097,-0.000278723007055,-0.000281066193763,-0.000283410007795,-0.000285756987587,-0.000288101103863,-0.000290444076392,-0.000292787838803,-0.000295131777755,-0.000297470902205,-0.000299804273804,-0.000302129501701,-0.000304446853956,-0.000306764328592,-0.00030907156983,-0.000311364768997,-0.000313645239952,-0.000315904700849,-0.000318140262088,-0.000320348529262,-0.000322524955545,-0.000324659822109,-0.000326746993834,-0.000328780678793,-0.000330770463302,-0.000332733228135,-0.000334672149698,-0.000336598640212,-0.000338511377875,-0.000340422836465,-0.000342335783967,-0.000344253666183,-0.000346184978808,-0.000348135642191,-0.000350091116131,-0.000352039144238,-0.000353805176781,-0.000355233935585,-0.000356318572121,-0.000357047829815,-0.000357411851663)
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(230)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('JA27-1417-Foxg1-ChIP.2x36mers.hg19-male.unique.dedup.MACS2_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) : 230',bty='n')
dev.off()