# R script for Peak Model
#  -- generated by MACS
p <- c(0.0389739715569,0.0455207301354,0.0519972308169,0.0583012802969,0.06499174821,0.0650396513216,0.0653590053986,0.0651801671154,0.0654069085101,0.0655825532525,0.0656911336386,0.0656208757417,0.0656528111494,0.0660232618787,0.0658540042179,0.0658699719218,0.0658859396256,0.0660647779087,0.0659306491964,0.0656783594756,0.0653909408063,0.0654931341109,0.0654707793255,0.0651610058708,0.0650141029954,0.0652248766862,0.0649661998838,0.0646564264292,0.0644552333606,0.0643370723522,0.0644264914937,0.0643306852706,0.0644169108714,0.0646085233176,0.0645510395837,0.0643817819229,0.0643817819229,0.0647745874376,0.065103522137,0.0652312637678,0.0653558118578,0.0656208757417,0.0655601984671,0.0656272628232,0.0658955202479,0.0659657781449,0.0658316494325,0.0658061011064,0.065547424304,0.0653813601839,0.0654132955916,0.0651929412785,0.0651482317077,0.0647809745192,0.0646436522661,0.0644264914937,0.0645350718799,0.0642955563221,0.0643147175668,0.0645606202061,0.0645222977168,0.0643690077599,0.0642827821591,0.0645989426953,0.064755426193,0.0645702008284,0.0647171037038,0.064838458253,0.0647426520299,0.0646053297768,0.0641422663652,0.064145459906,0.0641933630175,0.0639123314297,0.0635993644343,0.0639123314297,0.0637845897989,0.0639762022451,0.0640049441121,0.0639857828675,0.0643242981891,0.0644424591976,0.0645286847984,0.0647266843261,0.064589362073,0.0645222977168,0.0645606202061,0.0645765879099,0.0649374580169,0.0649566192615,0.0647522326523,0.0644967493907,0.0644743946053,0.0645574266653,0.0647171037038,0.0645861685322,0.0643051369445,0.0640145247344,0.0638356864513,0.0638899766444,0.0640783955498,0.0644871687683,0.0645350718799,0.0643179111075,0.0645095235537,0.0646436522661,0.0648544259569,0.064796942223,0.0645702008284,0.0644903623091,0.0643849754637,0.0641103309575,0.0640464601421,0.0640624278459,0.0638356864513,0.0635929773528,0.0638867831036,0.0641231051206,0.0641358792836,0.0641933630175,0.0642923627814,0.0642827821591,0.0644041367083,0.064630878103,0.0648927484461,0.06515781233,0.0650109094546,0.0649151032315,0.0649246838538,0.0651131027593,0.0654101020509,0.0654420374586,0.0652440379308,0.0649821675877,0.0649182967723,0.0651961348193,0.0652248766862,0.0652631991755,0.0652057154416,0.0649438450985,0.0648416517938,0.0648544259569,0.0649757805062,0.0648608130384,0.0647937486823,0.0644392656568,0.0639187185113,0.0641294922021,0.0644264914937,0.0645286847984,0.0645638137468,0.0648927484461,0.0647330714076,0.0647618132746,0.0649214903131,0.0651929412785,0.0656336499048,0.0655410372224,0.0654707793255,0.0655633920078,0.0654452309993,0.0653302635316,0.0657262625871,0.0663298417926,0.066476744668,0.0662595838957,0.0663649707411,0.0663426159557,0.0663330353334,0.0664735511273,0.0661989066211,0.0661893259987,0.0660679714495,0.065630456364,0.0657581979948,0.0659306491964,0.0658540042179,0.0660264554195,0.0658635848402,0.0656144886602,0.0659689716856,0.0660360360418,0.0660807456126,0.0663905190673,0.0660999068572,0.0661765518357,0.066393712608,0.0660871326941,0.0665693573504,0.0670388078436,0.0673230329721,0.0675944839375,0.0672655492382,0.067351774839,0.0675944839375,0.0676902901606,0.0674986777144,0.0675912903968,0.0675753226929,0.0673006781867,0.0671697430151,0.0668950985089,0.0675561614483,0.0676743224568,0.0675497743668,0.0676934837014,0.0678755155253,0.0678116447099,0.0677030643237,0.067699870783,0.067546580826,0.0674795164698,0.0669940982728,0.0667801310412,0.0668599695604,0.0665086800757,0.0664959059127,0.066907872672,0.0670356143028,0.0674028714913,0.0674571616844,0.067712644946,0.0680543538084,0.06814377295,0.0680575473492,0.0686004492801,0.0689613193871,0.0690443514471,0.0689804806317,0.0689709000094,0.069309415331,0.0691752866187,0.069267899301,0.0693285765756,0.0696511241934,0.0697086079273,0.069823575395,0.0699513170258,0.0702163809097,0.070462283549,0.0707848311668,0.0711265400291,0.0708295407375,0.0712542816599,0.0711776366815,0.0711872173038,0.0711488948145,0.0712447010376,0.0715640551146,0.0715608615739,0.0713437008015,0.0715001842992,0.0720846022601,0.0720335056078,0.0723273113587,0.0727552458218,0.0725157302641,0.0726115364872,0.0727041491695,0.0726626331395,0.072822310178,0.0727584393626,0.0728255037188,0.0731544384181,0.0733811798128,0.0733300831604,0.0738186948982,0.0738314690613,0.073655824319,0.0739496300698,0.0741987262499,0.0746458219577,0.0750130791462,0.0752174657555,0.0754474006909,0.0749204664639,0.0750609822578,0.0754537877725,0.0757507870641,0.0759392059695,0.0759711413772,0.0760062703257,0.075932818888,0.0760701411411,0.0761627538234,0.0771910739514,0.0772293964406,0.0775263957322,0.0776892663115,0.0778170079423,0.0780373622554,0.0783311680062,0.0786026189717,0.0785259739932,0.0787942314179,0.0786345543794,0.0789443278341,0.0792381335849,0.0797586807304,0.0803047762021,0.0808508716738,0.0815310958578,0.082374190621,0.0837697679375,0.0850535713271,0.0866215998451,0.0877553068185,0.088595208041,0.0897991729113,0.0907700093053,0.0920601997764,0.0933056806767,0.09402422735,0.0943052589377,0.0944936778431,0.0947747094309,0.0952952565764,0.0957902553958,0.0959020293227,0.0962181898589,0.0959882549235,0.0954229982072,0.0954389659111,0.0957551264473,0.0960936417689,0.0959084164042,0.0963076090005,0.0962916412966,0.0966014147513,0.0967802530345,0.097313574343,0.0978532827332,0.0981726368102,0.0981119595355,0.098271636574,0.0988464739126,0.0992776019166,0.0999993421306,0.100321889748,0.101206500542,0.101152210349,0.101691918739,0.102126240283,0.10273620657,0.103100270218,0.103748558995,0.103611236741,0.103738978372,0.104160525754,0.104208428865,0.104863104723,0.10489184659,0.105006814058,0.105195232963,0.105492232255,0.105102620281,0.105508199959,0.105955295667,0.106044714808,0.106124553327,0.106811164593,0.107526517725,0.107916129699,0.108235483776,0.108404741437,0.10878796633,0.108982772317,0.109401126157,0.109551222574,0.110119672831,0.110001511822,0.110110092208,0.11057315562,0.110991509461,0.111048993195,0.111508863066,0.112137990597,0.112000668344,0.112380699696,0.112291280554,0.112629795876,0.112591473387,0.11268727961,0.112684086069,0.11351760021,0.113578277485,0.113581471025,0.114114792334,0.114408598085,0.11492914523,0.115280434715,0.11579778832,0.115998981388,0.116468431881,0.116481206045,0.116679205572,0.117279591237,0.117164623769,0.117889557524,0.118336653232,0.118550620463,0.1185378463,0.119214876944,0.119610875999,0.120105874818,0.120559357608,0.120575325312,0.121456742564,0.121459936105,0.121472710268,0.12193896722,0.122631965567,0.122986448593,0.123018384001,0.123273867262,0.123906188335,0.124158478056,0.124394800073,0.124778024965,0.125065443634,0.125426313741,0.126189569985,0.126572794878,0.127237051358,0.127419083182,0.127457405671,0.12815998464,0.128421854983,0.128801886335,0.129363949511,0.129475723438,0.129079724382,0.129533207171,0.129728013158,0.130622204574,0.131110816312,0.13118426775,0.132052910839,0.132234942663,0.132531941954,0.132911973306,0.133700777876,0.133790197018,0.134396969764,0.13433629249,0.135032484377,0.135632870042,0.135377386781,0.135980965986,0.13695180238,0.137350994976,0.137804477766,0.13819408974,0.13840166989,0.139155345511,0.139113829481,0.139618408923,0.140001633815,0.140212407506,0.140330568515,0.140796825467,0.141049115188,0.14142914654,0.141406791754,0.141544114007,0.141700597505,0.141572855874,0.14184430684,0.142170047998,0.142064661153,0.14213491905,0.14221795111,0.142390402311,0.143246271238,0.143268626023,0.144217107632,0.144597138983,0.145430653124,0.14582665218,0.145979942137,0.146660166321,0.146912456042,0.147228616578,0.147375519453,0.147631002715,0.147714034775,0.148183485268,0.147714034775,0.147851357028,0.148167517564,0.148547548916,0.148921193186,0.149333159945,0.149556707799,0.150080448486,0.150090029108,0.150422157348,0.151450477476,0.151817734664,0.152184991853,0.152156249986,0.152450055737,0.152782183977,0.152561829664,0.152964215801,0.153762600993,0.153689149556,0.153283569878,0.153159021788,0.153270795715,0.153401730886,0.15321011844,0.152913119149,0.153095150972,0.152360636595,0.152092379171,0.151737896145,0.151606960974,0.151750670308,0.151741089686,0.151421735609,0.15138660666,0.151204574837,0.151230123163,0.151361058334,0.150632931039,0.150032545374,0.149093644388,0.148454936234,0.147717228316,0.146886907716,0.145698910549,0.144661009799,0.143527302826,0.141991209715,0.140876663986,0.140129375446,0.13997927903,0.138781701241,0.13840166989,0.137261575835,0.136693125578,0.135629676501,0.134866420257,0.134495969528,0.134170228369,0.133796584099,0.133026940774,0.13276187689,0.131337557706,0.130935171569,0.13097988114,0.130839365346,0.130427398587,0.129836593545,0.129434207408,0.128843402365,0.128153597559,0.127275373847,0.126716504212,0.126451440328,0.125308152733,0.124998379278,0.124442703184,0.124506573999,0.123634737369,0.122871481125,0.122635159108,0.122149740911,0.122037966984,0.12189745119,0.121245968873,0.120626421964,0.120339003295,0.119911068831,0.119569359969,0.119291521922,0.1185378463,0.118416491751,0.117787364219,0.117212526881,0.11700175319,0.116401367525,0.115906368706,0.115139918921,0.114367082055,0.113983857162,0.113734760982,0.113233375081,0.112862924352,0.112019829589,0.111413056843,0.111441798709,0.11107134798,0.110815864719,0.110726445577,0.110304898195,0.10990889914,0.109359610127,0.10825145148,0.107948065107,0.107251873219,0.105952102126,0.104562911891,0.102946980261,0.101225661786,0.0996161172382,0.0980033791494,0.0964353506313,0.095828577885,0.0946501613409,0.0939380017492,0.0935388091529,0.0932609711059,0.0931587778013,0.0931747455051,0.0932002938313,0.0927723593681,0.0927563916643,0.0923220701196,0.0923476184457,0.0919516193902,0.0915141043047,0.0909264928031,0.0905752033184,0.0906262999707,0.0900642367952,0.0901313011513,0.0900099466021,0.0901440753144,0.0894351092635,0.0891987872465,0.0885057888994,0.0884163697579,0.0879852417539,0.0877297584923,0.0875317589646,0.0871517276129,0.0869026314329,0.0863022457681,0.0858998596311,0.0854783122495,0.0858200211119,0.0854336026787,0.085401667271,0.0851174421425,0.085165345254,0.0851397969279,0.0848427976362,0.0848172493101,0.0850791196532,0.0850759261125,0.0846479916493,0.084721443087,0.0842583796753,0.0841977024007,0.0840028964137,0.0836835423367,0.0833226722297,0.0830959308351,0.0829426408781,0.0828596088181,0.0829969310712,0.0831534145689,0.0829426408781,0.0826648028311,0.0826616092903,0.082693544698,0.0827382542688,0.0826041255565,0.081930288454,0.0821570298487,0.0816971599778,0.0809913874676,0.0813778059008,0.0809945810084,0.0808668393776,0.080486808026,0.0801738410305,0.0800524864813,0.0804293242921,0.0796405197219,0.079404197705,0.079375455838,0.0791806498511,0.0790273598941,0.0785100062894,0.0783503292509,0.0781140072339,0.0780373622554,0.0777212017192,0.0778712981354,0.0778617175131,0.0777818789938,0.0772964607968,0.0772677189298,0.0773635251529,0.0774082347237,0.0774529442945,0.0772581383075,0.0767695265697,0.0764437854112,0.0761308184157,0.0756454002187,0.0757923030941,0.0754921102617,0.075169562644,0.0746809509061,0.0749140793824,0.0745595963569,0.0746841444469,0.0746681767431,0.0744382418076,0.0743488226661,0.073614308289,0.0734099216797,0.0734897601989,0.0735185020659,0.0727073427103,0.0725955687833,0.0724422788264,0.0720622474748,0.0721516666163,0.0722442792986,0.0722762147063,0.0722283115948,0.0718674414878,0.0714299264023,0.0714778295138,0.070989217776,0.0708039924114,0.0709700565314,0.0708071859522,0.0704814447936,0.0704974124975,0.0703696708667,0.0700918328197,0.070018381382,0.0700056072189,0.0701684777982,0.0698363495581,0.0695776727557,0.0691337705887,0.0692966411679,0.0690858674771,0.0687792875632,0.0688399648378,0.0688527390009,0.068380094967,0.0683896755893,0.0682236114692,0.0680256119415,0.06810225692,0.0678946767699,0.0678212253322,0.0677509674353,0.067505064796,0.0676008710191,0.0676966772422,0.0673358071352,0.0671920978005,0.0670579690882,0.0669430016205,0.0668024858266,0.0667322279296,0.0668280341527,0.0669206468351,0.066630034625,0.0664927123719,0.0665022929942,0.0666683571142,0.0666619700327,0.066671550655,0.0663713578226,0.0662180678657,0.0657358432094,0.0655665855486,0.0654548116217,0.0651418446262,0.0650620061069,0.0649949417508,0.0648192970084,0.0646436522661,0.0646149103991,0.0645797814507,0.0646181039399,0.0648895549054,0.0648320711715,0.0652536185531,0.0652057154416,0.0652823604201,0.0654675857847,0.0653174893685,0.0653430376947,0.0652600056347,0.0653398441539,0.0648576194977,0.0651194898408,0.0649566192615,0.0649470386392,0.0645254912576,0.0643370723522,0.0643594271375,0.0643658142191,0.0644424591976,0.0642668144552,0.0645574266653,0.0643913625452,0.0643594271375,0.0643690077599,0.0646212974807,0.0647937486823,0.0648735872015,0.06490871615,0.0648224905492,0.0648703936607,0.0645350718799,0.0646404587253,0.0643338788114,0.064158234069,0.0639985570305,0.0636823964943,0.0635259129966,0.0634939775889,0.0634556550996,0.0638165252066,0.0642157178029,0.0636696223312,0.0638069445843,0.0641358792836,0.0642061371806,0.064394556086,0.0645797814507,0.0646244910215,0.0649151032315,0.0648991355277,0.0647362649484,0.0648192970084,0.0648831678238,0.0646979424592,0.0648416517938,0.0646979424592,0.0650172965362,0.065103522137,0.0646564264292,0.0644201044122,0.0644680075237,0.06478416806,0.0650300706992,0.0651673929524,0.0649374580169,0.0651769735747,0.0647905551415,0.0647043295407,0.0649949417508,0.0649789740469,0.06482568409,0.0649438450985,0.0647458455707,0.0643274917298,0.0644424591976,0.0640272988975,0.0642412661291,0.0641805888544,0.0641678146913,0.0642795886183,0.0643338788114,0.0638931701851,0.0637909768805,0.0642636209144,0.0643019434037,0.0645670072876,0.0643881690045,0.0644041367083,0.0643498465152,0.0643626206783,0.0641103309575,0.0642732015368,0.0644009431676,0.0641294922021,0.0643242981891,0.0644616204422,0.0643658142191,0.064519104176,0.0645670072876,0.0645095235537,0.0646053297768,0.0644712010645,0.0648001357638,0.0648576194977,0.0645574266653,0.0647522326523,0.0650077159139,0.0649023290684,0.0648863613646,0.0647618132746,0.0649789740469,0.065269586257,0.0650875544331,0.0651194898408,0.0653494247762,0.0650492319439,0.0649374580169,0.0648033293046,0.0647650068153,0.0651162963,0.0652216831454,0.0652184896047,0.0653302635316,0.0656144886602,0.0656751659348,0.0655665855486,0.0656623917717,0.0659753587672,0.0662595838957,0.0658731654625,0.0657039078017,0.0657613915356,0.0656975207202,0.0655282630594,0.0652025219008,0.0656081015786,0.065783746321,0.0656272628232,0.0655154888963,0.0657326496686,0.066074358531,0.0658220688102,0.0655697790894,0.0655410372224,0.0659625846041,0.0659210685741,0.0658029075656,0.0658220688102,0.0656432305271,0.0659338427372,0.0656336499048,0.0660041006341,0.0661318422649,0.0662372291103,0.0661190681018,0.0661190681018,0.0659657781449,0.066115874561,0.0661637776726,0.065588940334,0.0655346501409,0.0656847465571,0.065908294411,0.065908294411,0.0659178750333,0.0655218759778,0.0657102948833,0.0655857467932,0.0656049080378,0.0658316494325,0.0658923267071,0.0654931341109,0.0654037149693,0.0654995211924,0.0654707793255,0.0658923267071,0.065742230291,0.0657677786171,0.0660136812564,0.0661382293464,0.0661893259987,0.0666268410842,0.066824840612,0.066713066685,0.0667705504189,0.0670483884659,0.067115452822,0.0673645490021,0.0670260336805,0.0668727437235,0.0669589693243,0.0668759372643,0.0668088729081,0.0668024858266,0.0668344212343,0.0665214542388,0.0667769375004,0.0664703575865,0.0667929052043,0.066949388702,0.0670228401397,0.0670228401397,0.0670867109551,0.0672495815344,0.0671793236374,0.0671410011482,0.0671761300967,0.0673996779506,0.0672719363198,0.0675689356114,0.0676104516414,0.0674571616844,0.0674475810621,0.0673070652682,0.0675178389591,0.0678212253322,0.067671128916,0.0677222255683,0.067990482993,0.0679840959115,0.067948966963,0.0681118375423,0.0678563542807,0.0677605480576,0.0676328064268,0.0673773231652,0.0673294200536,0.0675146454183,0.0674092585729,0.0668503889381,0.0668567760197,0.0669972918136,0.0675944839375,0.0676934837014,0.0678339994953,0.0679617411261,0.0681916760615,0.0680128377784,0.0681341923277,0.0683705143447,0.0680799021346,0.0680064506969,0.0674859035514,0.0675018712552,0.0672815169421,0.0675817097745,0.0673358071352,0.0674539681437,0.0672527750752,0.0677669351391,0.068073515053,0.067948966963,0.0680862892161,0.0681150310831,0.0682523533362,0.0678499671991,0.0678946767699,0.0679266121776,0.0678020640876,0.0674571616844,0.0675657420706,0.0674699358475,0.0673837102467,0.0674667423067,0.0671825171782,0.0671793236374,0.0672431944528,0.0670388078436,0.0673549683798,0.0674922906329,0.0673613554613,0.0675114518775,0.0675178389591,0.0673453877575,0.0677892899245,0.0679138380145,0.0678531607399,0.0677477738945,0.0676328064268,0.0674827100106,0.0673645490021,0.0674380004398,0.0675210324998,0.0678499671991,0.0676934837014,0.0675721291522,0.0676328064268,0.0677254191091,0.0675114518775,0.067699870783,0.0676583547529,0.0675082583368,0.0675657420706,0.067073936792,0.0668120664489,0.0667929052043,0.0668919049681,0.0668727437235,0.0670004853543,0.0668344212343,0.067115452822,0.0672112590451,0.0670356143028,0.0672144525859,0.0676775159976,0.0673581619206,0.0670579690882,0.0671825171782,0.0671218399036,0.066990904732,0.0669142597535,0.0669334209982,0.0669845176505,0.0673038717275,0.0667705504189,0.0671473882297,0.0671825171782,0.0671090657405,0.0671697430151,0.0673294200536,0.0671186463628,0.0671090657405,0.0672974846459,0.0670228401397,0.0674060650321,0.0672304202898,0.0672815169421,0.0671984848821,0.0674443875214,0.0674156456544,0.0673964844098,0.0671058721997,0.0669398080797,0.0671250334444,0.0668535824789,0.0672208396675,0.0672719363198,0.0677254191091,0.0674954841737,0.0676966772422,0.0675657420706,0.0679106444738,0.0679553540446,0.067754160976,0.0679968700746,0.0676487741306,0.0677605480576,0.0673964844098,0.0675657420706,0.0675338066629,0.0679872894523,0.0678020640876,0.0678403865768,0.0678723219845,0.0676902901606,0.0677190320276,0.0674507746029,0.0674507746029,0.0671537753113,0.0665917121358,0.0660264554195,0.0660583908272,0.066115874561,0.0661925195395,0.0662436161918,0.0662148743249,0.0664128738526,0.0663905190673,0.0664096803119,0.0669717434874,0.0673485812983,0.0672783234013,0.0668727437235,0.0665374219427,0.0664416157196,0.0664192609342,0.0663969061488,0.0660136812564,0.0660136812564,0.0658284558917,0.0657613915356,0.0656975207202,0.0657933269433,0.0658699719218,0.065949810441,0.0659657781449,0.0658444235956,0.0661605841318,0.0659019073295,0.0655506178448,0.0654484245401,0.0653398441539,0.0653749731024,0.0654324568363,0.0651929412785,0.0653015216647,0.0652216831454,0.064713910163,0.0651003285962,0.0652791668793,0.065505908274,0.0654707793255,0.065464392244,0.0655633920078,0.0657326496686,0.0655570049263,0.0653621989393,0.0655570049263,0.0651929412785,0.0651354575447,0.0648927484461,0.0648831678238,0.0645382654207,0.0645254912576,0.0642157178029,0.0642508467514,0.064394556086,0.0644871687683,0.064477588146,0.0641358792836,0.0575987013275,0.0511605231352,0.0448916026037,0.0382554248837,0.0)
m <- c(0.0387729457832,0.0451230243666,0.0515403503783,0.0577175070033,0.0641956759263,0.0643045527149,0.0642501143206,0.0643013504564,0.0641860691509,0.0640355630019,0.0639587087981,0.064141237532,0.0642693278716,0.0647400598694,0.0646600034072,0.064560733394,0.0645351153261,0.0647016327676,0.0649097795693,0.0650891060447,0.0651883760579,0.0650698924938,0.0649834315146,0.0646824192166,0.0649834315146,0.0650474766844,0.0654925906143,0.0652043873503,0.0651179263711,0.0651275331466,0.0652556234861,0.0650314653919,0.0651211286296,0.0652428144522,0.065156353473,0.0653100618804,0.0651019150787,0.0651787692824,0.0652203986428,0.0652236009012,0.0650987128202,0.0653260731729,0.0654125341521,0.0657071419331,0.0656174786954,0.0654605680294,0.0656591080557,0.0660978174687,0.0660497835914,0.0660337722989,0.0659248955103,0.0660401768159,0.0659409068027,0.0657871983953,0.0659280977688,0.0661746716724,0.0661746716724,0.0657968051708,0.0660113564895,0.0659921429386,0.066302762012,0.0661682671555,0.0660946152102,0.0661362445706,0.0661394468291,0.0659024797009,0.0657231532255,0.065719950967,0.0656270854708,0.0657743893613,0.0656206809539,0.0661234355366,0.0664276500931,0.0663988297667,0.0663187733044,0.0666133810854,0.066728662391,0.0667670894929,0.0668343369211,0.0668247301457,0.0669240001588,0.0665077065553,0.0662547281347,0.0665269201062,0.0666518081873,0.0664980997798,0.0666325946363,0.06687916854,0.0668567527306,0.066735066908,0.0665621449496,0.0666389991533,0.0668887753155,0.0667190556155,0.0668567527306,0.0669720340362,0.0668471459551,0.0669368091928,0.066866359506,0.0666678194797,0.0666357968948,0.067010461138,0.0669592250022,0.0669464159683,0.0666389991533,0.066446863644,0.0667030443231,0.0665557404326,0.0667510782004,0.0669528204852,0.0673082711775,0.0668119211117,0.0668919775739,0.0668023143363,0.0668087188532,0.0669432137098,0.0664980997798,0.0667606849759,0.0667190556155,0.0669400114513,0.0669432137098,0.0672730463341,0.0669688317777,0.067173776321,0.0674940021699,0.0676573173528,0.0679679364262,0.06787507093,0.067743778332,0.0676541150943,0.0674203502246,0.0674043389322,0.0679134980319,0.06787507093,0.0677758009169,0.0675260247547,0.0673883276397,0.0673434960209,0.0671097311512,0.0671097311512,0.0671641695455,0.0672890576266,0.0670328769475,0.0667734940099,0.0668695617645,0.0669976521041,0.0672410237492,0.0674715863604,0.0678974867394,0.0680896222488,0.0685219271448,0.0685155226278,0.0685987813485,0.0688069281503,0.0685219271448,0.0685571519882,0.0684546797165,0.0680960267658,0.0682337238808,0.0682881622751,0.0676413060603,0.0676701263867,0.0677886099508,0.0679263070658,0.0681376561261,0.0680992290242,0.0682113080714,0.0684162526146,0.0684418706826,0.0679807454602,0.0682145103298,0.0680992290242,0.068025577079,0.0678110257602,0.0676156879924,0.0677854076923,0.0673370915039,0.0673434960209,0.0673531027963,0.0677597896244,0.0678334415697,0.0680704086978,0.0680543974054,0.0682881622751,0.0683554097034,0.068012768045,0.0683554097034,0.0682241171053,0.0676605196113,0.0674651818435,0.0672186079398,0.0671417537361,0.0672378214907,0.0669111911249,0.0669976521041,0.0675548450811,0.0674875976529,0.0674972044283,0.0680095657866,0.0678078235018,0.0682721509826,0.0679903522356,0.0677021489716,0.0678910822225,0.0676925421962,0.0674715863604,0.067455575068,0.0673434960209,0.0672826531096,0.0676028789585,0.0673819231227,0.0675100134623,0.0677982167263,0.0677822054338,0.0680800154733,0.0678590596376,0.0680672064394,0.0681248470922,0.0680640041809,0.067868666413,0.0677725986584,0.0677181602641,0.0677117557471,0.0679391160998,0.0679134980319,0.0677053512301,0.0672858553681,0.0672346192323,0.0672154056813,0.0671641695455,0.0673338892454,0.0673883276397,0.0670552927569,0.0664276500931,0.0663315823384,0.0662195032913,0.0662483236177,0.0660177610065,0.0663475936308,0.0662259078083,0.0662515258762,0.0662995597535,0.0661298400536,0.0664276500931,0.0662098965158,0.0665557404326,0.0665141110723,0.0667766962683,0.0666870330307,0.0665173133307,0.0661618626385,0.0661714694139,0.0664052342836,0.0666261901194,0.0666966398061,0.0668951798324,0.0670777085663,0.0669079888664,0.0666197856024,0.0669784385531,0.0670648995323,0.0669656295192,0.0671993943889,0.067010461138,0.0672410237492,0.066735066908,0.0666582127043,0.066735066908,0.066453268161,0.0664948975213,0.0663764139572,0.0663283800799,0.0660497835914,0.0660241655235,0.0657007374161,0.0657455690349,0.0655566357841,0.0653196686559,0.0655630403011,0.0654957928728,0.0653228709144,0.0653324776899,0.0653100618804,0.0653677025332,0.0652716347786,0.065450961254,0.0657007374161,0.0658960751839,0.0659184909933,0.0656975351576,0.0660273677819,0.0658384345311,0.0656783216067,0.0655438267501,0.0658672548575,0.0657743893613,0.0653805115672,0.0654125341521,0.0655566357841,0.0653548934993,0.0652268031597,0.0652716347786,0.0651115218541,0.0648969705354,0.0643365752998,0.0644486543469,0.0646568011487,0.0645831492035,0.0643173617489,0.0644710701564,0.0644806769318,0.0643942159526,0.0644326430545,0.0645126995167,0.064874554726,0.0644262385375,0.0644102272451,0.0643750024017,0.0645383175846,0.0644582611224,0.0644710701564,0.0645062949997,0.0645511266186,0.0643301707828,0.0643782046602,0.0645126995167,0.0647432621279,0.0648265208486,0.0646568011487,0.0647208463185,0.0649514089297,0.0647656779373,0.0648873637599,0.0648969705354,0.064868150209,0.0649289931203,0.0644582611224,0.0644582611224,0.064573542428,0.0643077549734,0.0640419675189,0.0645383175846,0.0644006204696,0.064579946945,0.0646247785638,0.0645511266186,0.0647368576109,0.064586351462,0.0644518566054,0.0649834315146,0.0650538812013,0.0645287108092,0.0643269685244,0.0643301707828,0.0643365752998,0.0642821369055,0.0642725301301,0.0643013504564,0.0641124172056,0.0640323607434,0.0640579788113,0.0638946636284,0.0643621933677,0.0642501143206,0.0641316307565,0.0643525865923,0.0643429798168,0.0642501143206,0.0642565188376,0.0637985958737,0.0636032581059,0.063853034268,0.0638818545944,0.0641316307565,0.0643013504564,0.0641156194641,0.0640964059132,0.0641284284981,0.0644198340205,0.0648585434335,0.0647464643864,0.0648105095562,0.0644326430545,0.0643653956262,0.0640355630019,0.0639555065397,0.0643301707828,0.0640419675189,0.0641156194641,0.0638082026492,0.0641092149471,0.0642533165791,0.0640964059132,0.0638722478189,0.0638786523359,0.0642661256131,0.0639266862133,0.0640547765528,0.0640675855868,0.0642052827018,0.0642725301301,0.064009944934,0.0641572488245,0.0642373052867,0.0642821369055,0.064141237532,0.0641060126886,0.0643653956262,0.0639202816963,0.064134833015,0.0640131471925,0.0642020804433,0.0641988781848,0.0641156194641,0.0639394952472,0.064291743681,0.0645767446865,0.0644326430545,0.0646375875978,0.0647080372845,0.0645767446865,0.0647368576109,0.064999442807,0.0651787692824,0.0654157364106,0.064868150209,0.0645767446865,0.0649450044127,0.0651115218541,0.0651883760579,0.0656206809539,0.0657743893613,0.0657904006538,0.0661394468291,0.0664500659025,0.0667318646495,0.0669944498456,0.0669656295192,0.0672506305247,0.0671193379267,0.0671705740625,0.0669143933834,0.0669752362947,0.066735066908,0.0666454036703,0.066578156242,0.0666325946363,0.0665173133307,0.0663956275082,0.0665429313987,0.0664116388006,0.0666389991533,0.0668023143363,0.0670745063078,0.0673242824699,0.0675484405642,0.0675676541151,0.0680479928884,0.0682145103298,0.0687300739466,0.0688453552522,0.0688165349258,0.068877377837,0.0687685010484,0.0683490051864,0.0686276016749,0.0685635565051,0.068163274194,0.0682017012959,0.0677149580056,0.0679871499771,0.0682593419487,0.0685411406957,0.0690086704351,0.0697291785951,0.0701006405798,0.0705841816116,0.0709172164944,0.0709652503718,0.071628117879,0.0715768817432,0.0715448591583,0.0715128365734,0.0716505336884,0.0717690172525,0.0715128365734,0.0715192410904,0.0718394669392,0.0723198057126,0.0722493560258,0.0724543005691,0.0729314370839,0.0735590797478,0.073501439095,0.0736135181421,0.0738857101136,0.0744172850228,0.0745581843963,0.0745934092397,0.0746798702189,0.074916837347,0.0751281864073,0.0748367808848,0.0750993660809,0.0750993660809,0.0754195919298,0.0751506022167,0.0755604913033,0.0754708280656,0.0756405477655,0.0757141997108,0.0758743126352,0.0764603259387,0.076377067218,0.0765916185367,0.076508359816,0.0768221811479,0.0771199911874,0.0774786441381,0.0778148812795,0.0782183658491,0.0781415116453,0.0781735342302,0.0789388740091,0.0794128082654,0.0797266295973,0.0802165751461,0.0800212373783,0.0803510700027,0.0801877548197,0.0803670812951,0.0805880371308,0.0805143851856,0.0806712958515,0.0806104529402,0.0805143851856,0.0806969139194,0.0808890494288,0.0809370833061,0.0814302311134,0.0815679282284,0.0817056253434,0.0820354579678,0.0820578737772,0.0825734373939,0.0828776519504,0.0829000677598,0.0832651252275,0.0835853510764,0.083851138531,0.0844947924872,0.0845844557249,0.0845940625004,0.0847189505815,0.08472215284,0.0850711990152,0.0853049638849,0.0853882226056,0.0854458632584,0.0853722113132,0.0850519854643,0.0850808057907,0.0855483355301,0.0857596845903,0.0858909771884,0.0861055285071,0.0861471578675,0.0864769904919,0.0867748005313,0.0868484524766,0.087165476067,0.08743446578,0.0876778374252,0.0879468271382,0.0884912110814,0.0889843588886,0.0892117192413,0.0892373373093,0.089157280847,0.0894807089544,0.0894134615261,0.0899226206259,0.0901467787201,0.0903132961615,0.0903325097124,0.0900667222579,0.090034699673,0.090329307454,0.0909505456008,0.091193917246,0.0915461656797,0.0917190876381,0.0921353812417,0.0924588093491,0.0924363935396,0.0927053832527,0.0930031932922,0.0933394304335,0.0936468472484,0.0941688153821,0.0950238183986,0.0959973049793,0.0963143285697,0.0975407935709,0.0989465850475,0.100595748169,0.102110416435,0.103605871149,0.104998853591,0.106234925368,0.107029085473,0.107864874939,0.109056115097,0.109350722878,0.109597296781,0.109731791638,0.110317804941,0.110349827526,0.110353029785,0.111246459903,0.112015001941,0.112607419761,0.112972477229,0.113651356028,0.114234167073,0.114730517139,0.115274901082,0.116161926684,0.116722321919,0.116648669974,0.117061761319,0.11784311239,0.118377889558,0.119024745773,0.119633174886,0.120308851427,0.12064188631,0.120901269247,0.121336776402,0.121685822577,0.121644193217,0.121657002251,0.121951610032,0.122326274275,0.122537623335,0.122755376912,0.123062793727,0.123895380934,0.124811226862,0.125855163129,0.126389940297,0.127341011068,0.128154384724,0.128365733785,0.128766016096,0.129931638186,0.130780236685,0.131113271568,0.131334227404,0.131270182234,0.131737711974,0.132118780734,0.132669569194,0.133553392537,0.134786262055,0.134850307225,0.135865423166,0.136781269093,0.13803975668,0.139150940375,0.140047572752,0.140460664097,0.141565443276,0.142145052062,0.142513311789,0.143742979048,0.144136856842,0.144860567261,0.145046298253,0.146199111309,0.147611307303,0.14833821998,0.149090750725,0.150365249603,0.15128429779,0.151562894278,0.152001603691,0.152606830545,0.153288911604,0.153119191904,0.153023124149,0.153237675468,0.15291424736,0.152991101564,0.153035933183,0.153388181617,0.153426608719,0.152866213483,0.153064753509,0.153407395168,0.153583519385,0.154092678484,0.153970992662,0.153637957779,0.153756441343,0.153164023523,0.153807677479,0.153906947492,0.153346552256,0.153324136447,0.152971888013,0.152827786381,0.152843797674,0.151883120127,0.151550085244,0.151543680727,0.150896824512,0.150474126392,0.150557385113,0.14971519113,0.149647943702,0.148901817474,0.148190916089,0.14844389451,0.148251759001,0.148248556742,0.14744799212,0.147146979822,0.146625011688,0.146484112315,0.145657929625,0.145068714063,0.144761297248,0.144367419454,0.143538034505,0.142900785066,0.142625390836,0.142599772768,0.142391625966,0.142314771762,0.142673424713,0.142683031488,0.142391625966,0.142132243028,0.141952916553,0.141543027466,0.141414937127,0.141014654816,0.140771283171,0.140262124071,0.140002741133,0.139608863339,0.13975616723,0.13956403172,0.139371896211,0.139336671368,0.138513690936,0.138139026693,0.137418518533,0.137223180765,0.13668199908,0.136361773231,0.13591986156,0.135513174732,0.135337050515,0.135266600828,0.135397893426,0.134930363687,0.134744632695,0.1343507549,0.133828786767,0.133659067067,0.133197941844,0.13293215439,0.1324454111,0.131763330041,0.131148496412,0.130735405066,0.130479224387,0.130053324008,0.129976469805,0.128945342571,0.128762813837,0.128285677323,0.127792529515,0.127510730768,0.126985560376,0.126771009057,0.126415558365,0.126188198012,0.125701454722,0.125932017333,0.12572707279,0.12566302762,0.125461285335,0.125077014317,0.125051396249,0.124471787462,0.124337292606,0.123559143793,0.123126838897,0.122813017565,0.122108520697,0.121243910905,0.120753965357,0.120308851427,0.11996300751,0.119649186178,0.118877441882,0.118624463462,0.117996820798,0.117718224309,0.1175260888,0.117285919413,0.116924064204,0.11623237637,0.115838498576,0.115569508863,0.115134001709,0.114903439098,0.114781753275,0.114074054149,0.113638546994,0.113657760545,0.113391973091,0.113215848874,0.112914836576,0.113007702072,0.11316141048,0.112815566563,0.112828375597,0.112783543978,0.112437700061,0.111925338703,0.111851686758,0.111806855139,0.11165634899,0.111003088258,0.110487524641,0.110397861404,0.109853477461,0.109443588374,0.109395554497,0.109132969301,0.108489315344,0.108002572054,0.107624705552,0.107461390369,0.106977849338,0.106635207679,0.106228520851,0.105991553723,0.105504810433,0.105194191359,0.105030876176,0.10513014619,0.104944415197,0.104454469648,0.104297558982,0.104041378303,0.103589859856,0.103577050822,0.103240813681,0.103096712049,0.102952610417,0.102587552949,0.102561934881,0.102779688459,0.1026067665,0.1024370468,0.102328170012,0.101975921578,0.101806201878,0.101012041773,0.100759063352,0.100217881668,0.0995774299698,0.0991611363663,0.0989722031154,0.0986327637156,0.0984534372402,0.0982997288328,0.0979955142763,0.0980691662216,0.0977521426312,0.0975055687275,0.0975343890539,0.097377478388,0.0970604547976,0.0967306221732,0.0966281499016,0.0961894404886,0.0956738768719,0.0954529210361,0.0953056171457,0.0954529210361,0.0950270206571,0.0942456695858,0.0934547117391,0.0929999910337,0.0923531348189,0.0916454356929,0.0908000394518,0.0899578454693,0.0888210437057,0.0869221044218,0.0856476055432,0.0846164783098,0.0838031046537,0.0826374825637,0.081270118189,0.0803254519347,0.0798771357463,0.0792975269598,0.0787019068809,0.0787563452752,0.078250388434,0.0779717919454,0.0778757241908,0.0776803864229,0.077798869987,0.0777252180418,0.0775554983419,0.0771199911874,0.0770207211742,0.0768157766309,0.0767261133933,0.0763930785104,0.0762970107557,0.0762361678445,0.0759992007163,0.0757141997108,0.0758294810164,0.0755380754939,0.0754259964468,0.0752594790054,0.075224254162,0.0751506022167,0.0751666135092,0.0747182973207,0.0745357685869,0.0741290817588,0.0735879000742,0.0735686865232,0.0732708764838,0.0728737964311,0.0726624473709,0.0724094689503,0.0718106466128,0.0718106466128,0.0719675572788,0.0723966599163,0.0722493560258,0.0720988498768,0.0721692995636,0.0720956476184,0.0718170511298,0.071916321143,0.0716409269129,0.071634522396,0.0711862062075,0.0705201364418,0.0704144619117,0.0705233387003,0.070462495789,0.0703920461023,0.0703023828646,0.0701422699401,0.0699693479817,0.0698572689346,0.0698316508667,0.07003659541,0.0701294609062,0.0698604711931,0.0695306385688,0.0695242340518,0.0693481098349,0.0690631088294,0.0689158049389,0.0687781078239,0.06859557909,0.0686692310353,0.068163274194,0.0680992290242,0.0682721509826,0.0681056335412,0.0682657464657,0.0682369261393,0.0683554097034,0.0683650164788,0.0680992290242,0.0679134980319,0.0681216448337,0.068031981596,0.0676156879924,0.0674587773265,0.0674299570001,0.0675068112038,0.0674683841019,0.0670841130833,0.067298664402,0.0669912475871,0.0665685494666,0.0664116388006,0.0662355145837,0.0662867507195,0.0664148410591,0.0662419191007,0.0661906829649,0.066440459127,0.0663251778214,0.0662227055498,0.0665013020383,0.0666165833439,0.0670136633965,0.0670360792059,0.0665365268817,0.0666069765684,0.0664020320251,0.066145851346,0.0662547281347,0.0662451213592,0.0663379868554,0.0662515258762,0.0659857384216,0.0659473113197,0.0659056819594,0.065870457116,0.0659537158367,0.0660273677819,0.0655854561105,0.0655310177162,0.0653356799484,0.0651243308881,0.0651691625069,0.0651659602484,0.0652492189692,0.0650827015277,0.0649225886033,0.0648169140732,0.0649802292561,0.0650250608749,0.0650282631334,0.0653228709144,0.0647144418015,0.0650474766844,0.0650314653919,0.064999442807,0.0650666902353,0.0650762970108,0.0651467466975,0.0651083195956,0.0653516912408,0.0652011850918,0.0658128164632,0.0651979828333,0.0650602857183,0.0654477589955,0.0655406244916,0.0656495012803,0.0655310177162,0.0655342199747,0.0651051173372,0.0650346676504,0.0647977005222,0.0647368576109,0.0649450044127,0.064416631762,0.0640611810698,0.063708932636,0.0639170794378,0.0636160671398,0.0638402252341,0.0640195517094,0.0640387652604,0.0640771923622,0.0641092149471,0.0640163494509,0.0641732601169,0.0644806769318,0.064285339164,0.0645447221016,0.0642405075452,0.0641380352735,0.0643461820753,0.0644838791903,0.0643397775583,0.0644902837073,0.0644614633809,0.0641828668924,0.0640195517094,0.0637953936152,0.0639298884717,0.0640259562264,0.0636480897247,0.0637825845813,0.0635616287455,0.0636384829493,0.0638978658869,0.063990731383,0.064154046566,0.0641988781848,0.0640291584849,0.0638146071661,0.0639811246076,0.0641732601169,0.0643333730413,0.0646183740468,0.0644806769318,0.0644742724148,0.0644550588639,0.0646664079242,0.0645575311356,0.0644998904828,0.0646055650129,0.0644486543469,0.0642405075452,0.0641028104301,0.0640259562264,0.0638082026492,0.0638338207171,0.0640515742943,0.0643205640074,0.0643109572319,0.0645927559789,0.0645094972582,0.0646632056657,0.064704835026,0.0648425321411,0.0652844438125,0.0653580957578,0.0649962405485,0.0650410721674,0.0650891060447,0.0644390475715,0.0643173617489,0.0643205640074,0.064435845313,0.0645351153261,0.0643269685244,0.0645223062922,0.0646343853393,0.0646568011487,0.0644038227281,0.0648585434335,0.064999442807,0.0650955105617,0.0647336553524,0.0647752847128,0.0647016327676,0.0646183740468,0.0647208463185,0.0646952282506,0.0650506789428,0.0649065773108,0.0647016327676,0.0649578134467,0.064999442807,0.0649353976372,0.0653741070502,0.0651211286296,0.0650762970108,0.0652780392956,0.0652396121937,0.0653580957578,0.065569444818,0.0654893883558,0.0655726470765,0.0655598380426,0.0652652302616,0.0657039396746,0.065739164518,0.065857648082,0.0660241655235,0.0660049519725,0.0657936029123,0.0657519735519,0.0656591080557,0.0658512435651,0.066008154231,0.065569444818,0.065595062886,0.0652203986428,0.0650378699089,0.0650987128202,0.0654573657709,0.06571354645,0.0661170310196,0.0656110741784,0.0657551758104,0.0659088842179,0.065870457116,0.0659601203537,0.0658064119462,0.0657871983953,0.0657551758104,0.0657423667764,0.0656847261236,0.0663764139572,0.0660241655235,0.0660177610065,0.0658800638915,0.0660721994008,0.0662515258762,0.0661618626385,0.0658192209802,0.0590240284668,0.0522736675723,0.0453375756854,0.0389234519322,0.0)
ycorr <- c(7.57835544892e-05,7.56734151697e-05,7.53408219723e-05,7.47820483103e-05,7.3991755778e-05,7.29647736113e-05,7.16971741044e-05,7.04249127901e-05,6.91437545465e-05,6.7851452523e-05,6.65435084145e-05,6.5215847749e-05,6.3865333844e-05,6.24943666904e-05,6.11064955538e-05,5.97015992191e-05,5.82814271157e-05,5.68446810295e-05,5.53913568009e-05,5.39201790263e-05,5.24327567439e-05,5.09322130591e-05,4.94226136842e-05,4.79029592685e-05,4.63715314828e-05,4.48308191016e-05,4.32842537349e-05,4.17312227576e-05,4.0173054168e-05,3.86101767345e-05,3.70405748511e-05,3.54602903448e-05,3.38652036004e-05,3.22529790673e-05,3.06227736224e-05,2.89702762126e-05,2.7292581676e-05,2.55917749035e-05,2.3868781297e-05,2.21171168122e-05,2.03390408283e-05,1.85393678967e-05,1.67219463972e-05,1.48944134982e-05,1.30590945568e-05,1.12171756617e-05,9.36470509569e-06,7.49927100154e-06,5.61257064494e-06,3.71100656569e-06,1.79582244328e-06,-1.34519435771e-07,-2.08766268486e-06,-4.06965891838e-06,-6.08535937275e-06,-8.13404886122e-06,-1.02179830812e-05,-1.23308993041e-05,-1.44658213791e-05,-1.6622646288e-05,-1.88065180431e-05,-2.1018340775e-05,-2.32555543693e-05,-2.55191773993e-05,-2.78109266579e-05,-3.01287178211e-05,-3.24734679344e-05,-3.48467050044e-05,-3.72492507887e-05,-3.96810191763e-05,-4.21362520584e-05,-4.46137435238e-05,-4.71071833975e-05,-4.9612216383e-05,-5.21199109915e-05,-5.46254141923e-05,-5.71254732455e-05,-5.96191283249e-05,-6.21020360178e-05,-6.45761334536e-05,-6.70441661376e-05,-6.95029350715e-05,-7.19550901101e-05,-7.44031641059e-05,-7.68517922405e-05,-7.93046748477e-05,-8.17566222206e-05,-8.42090592206e-05,-8.66645130525e-05,-8.91176060357e-05,-9.15680850833e-05,-9.40139165914e-05,-9.64540876352e-05,-9.88878840365e-05,-0.000101310766751,-0.000103723510701,-0.000106123961516,-0.000108508145674,-0.000110876236933,-0.000113226823258,-0.000115561602725,-0.000117876038854,-0.000120175792807,-0.000122457559138,-0.00012472240761,-0.00012696771031,-0.000129190263998,-0.0001313956048,-0.000133592455881,-0.000135782841136,-0.000137960489968,-0.000140128387675,-0.000142285001233,-0.000144427388083,-0.000146557066031,-0.000148669710896,-0.000150771429971,-0.000152863218042,-0.000154933768396,-0.000156980805995,-0.000159003413884,-0.00016100964353,-0.000162997210289,-0.000164970925801,-0.000166934514973,-0.000168892714623,-0.000170847013525,-0.000172794843338,-0.000174736746469,-0.000176677235083,-0.000178617491246,-0.000180557070013,-0.000182493322751,-0.000184424935664,-0.000186349872906,-0.000188261198717,-0.000190162332193,-0.000192052562474,-0.0001939321459,-0.000195801836413,-0.00019765851302,-0.000199499800143,-0.000201324512112,-0.000203133394959,-0.000204927341491,-0.000206707068385,-0.000208471798894,-0.000210217229388,-0.000211948838184,-0.000213667805715,-0.000215375031811,-0.000217073256626,-0.000218763395754,-0.0002204474512,-0.000222119750578,-0.000223783203448,-0.000225435208681,-0.000227080345264,-0.000228715772971,-0.000230336053264,-0.000231939233753,-0.000233522677064,-0.000235089852217,-0.000236640385011,-0.000238180263946,-0.000239708482509,-0.000241226156752,-0.000242732255714,-0.000244224353059,-0.000245705490401,-0.000247176706816,-0.000248641159232,-0.000250098297213,-0.000251546475065,-0.00025298329422,-0.000254407784081,-0.000255824282239,-0.000257232324719,-0.000258634444079,-0.00026003033014,-0.000261420875732,-0.00026280358016,-0.000264179715654,-0.000265547032203,-0.000266904013714,-0.000268253696228,-0.000269590021446,-0.000270911871276,-0.000272216479759,-0.000273504810041,-0.000274778030167,-0.000276035568193,-0.000277277155706,-0.000278500582562,-0.000279709463996,-0.000280906675082,-0.000282093051907,-0.000283269179751,-0.000284438000917,-0.000285597218778,-0.000286746703604,-0.000287888172555,-0.000289019658984,-0.000290145550315,-0.00029126542418,-0.000292376445351,-0.000293476370829,-0.000294567774339,-0.000295650044786,-0.000296724156235,-0.000297794475675,-0.000298860342445,-0.000299922977213,-0.000300982803549,-0.000302041388717,-0.000303098335784,-0.000304156307361,-0.000305212900282,-0.000306268491003,-0.000307323655783,-0.000308375510616,-0.000309421703129,-0.000310461140863,-0.000311492860494,-0.000312516982817,-0.000313532120418,-0.000314539920537,-0.000315541247894,-0.000316535397894,-0.000317519291356,-0.000318493716191,-0.000319460990819,-0.000320421289486,-0.000321375367928,-0.000322319442859,-0.000323254780074,-0.000324179581107,-0.000325094611498,-0.000326001059459,-0.000326904821237,-0.000327807893148,-0.000328708196041,-0.000329605357432,-0.000330501024153,-0.000331394173419,-0.000332287713224,-0.000333181658589,-0.000334076381457,-0.000334970475132,-0.000335863200819,-0.000336752019173,-0.000337636743203,-0.000338517327186,-0.000339392181849,-0.000340261180184,-0.000341125335635,-0.000341982143738,-0.000342827935499,-0.000343663191468,-0.000344485328652,-0.000345292051084,-0.000346085502349,-0.000346867169491,-0.000347639000037,-0.000348401922026,-0.000349156151045,-0.000349901772294,-0.000350642949902,-0.000351383395487,-0.000352121826397,-0.000352863813055,-0.000353610423228,-0.00035435806156,-0.000355103445479,-0.000355850978525,-0.000356599327797,-0.000357346055431,-0.000358092433408,-0.000358835090306,-0.000359575921368,-0.000360313409505,-0.000361040907278,-0.000361757422465,-0.000362463547029,-0.00036315353627,-0.000363819210024,-0.000364458453957,-0.000365070117255,-0.000365649700036,-0.000366188885012,-0.000366682464091,-0.000367130661474,-0.000367535062198,-0.000367895610012,-0.000368211964342,-0.000368491146654,-0.000368740465624,-0.000368963370653,-0.000369164333472,-0.000369351654565,-0.000369534581344,-0.000369717858328,-0.00036990638655,-0.000370101473597,-0.000370306689705,-0.000370523680817,-0.000370751240442,-0.000370984585442,-0.000371224124051,-0.000371469537187,-0.000371713437157,-0.000371955442361,-0.000372196397074,-0.000372435281856,-0.000372672629492,-0.000372906363935,-0.000373138240016,-0.00037336546516,-0.000373589576063,-0.000373809512669,-0.000374028698772,-0.000374249238321,-0.000374472100648,-0.000374691473508,-0.000374904671756,-0.000375109858276,-0.000375305663275,-0.000375494406643,-0.000375678682635,-0.000375856703815,-0.000376030444303,-0.000376195537576,-0.000376348859939,-0.000376493471886,-0.000376636440711,-0.000376782000831,-0.000376930672311,-0.000377084173547,-0.000377239341551,-0.000377396792981,-0.000377555399491,-0.0003777148013,-0.000377874556614,-0.000378037324564,-0.000378197022228,-0.000378349101873,-0.000378492476676,-0.000378629259282,-0.000378759596715,-0.000378883326565,-0.000379000125516,-0.000379113162887,-0.000379219314221,-0.000379321458347,-0.000379420056218,-0.000379518986319,-0.000379619926298,-0.000379718532927,-0.000379812761952,-0.000379904362079,-0.000379992180209,-0.000380074484008,-0.00038015181424,-0.000380226293569,-0.00038029655412,-0.000380363860397,-0.00038042387495,-0.000380478295594,-0.000380531307265,-0.000380581492471,-0.000380627567581,-0.000380670279948,-0.000380712719872,-0.00038075327429,-0.000380789544135,-0.000380820700684,-0.000380847358902,-0.000380871556173,-0.000380887445607,-0.000380894046183,-0.000380896137727,-0.000380894311189,-0.000380888770613,-0.000380877092112,-0.0003808628578,-0.000380845486049,-0.000380822724707,-0.000380793350173,-0.000380758152261,-0.000380721616601,-0.000380683526916,-0.000380640566963,-0.000380591593744,-0.00038053565605,-0.000380473329572,-0.00038040208157,-0.000380328063845,-0.000380254217506,-0.000380181743116,-0.000380109718056,-0.000380032557884,-0.000379949906561,-0.000379860570439,-0.000379764718916,-0.000379663572337,-0.000379556528195,-0.000379442598952,-0.000379315511737,-0.000379175081642,-0.000379019745514,-0.0003788505657,-0.000378673823173,-0.000378488416476,-0.000378296749825,-0.000378094950231,-0.00037788154302,-0.000377657626229,-0.000377423970684,-0.000377183628307,-0.000376936846592,-0.000376683179254,-0.00037642022919,-0.000376147481038,-0.000375865031972,-0.000375573515809,-0.000375277080189,-0.000374974426475,-0.000374666916775,-0.000374348962562,-0.00037402332608,-0.000373689103674,-0.000373346020992,-0.000372994229061,-0.00037263165638,-0.00037225951347,-0.000371877004972,-0.000371485916946,-0.000371085959219,-0.000370680062603,-0.000370265301848,-0.000369837925788,-0.000369400530983,-0.000368953113414,-0.000368498202225,-0.000368034508378,-0.000367560637238,-0.000367071455213,-0.000366564375589,-0.000366038940943,-0.000365493003067,-0.000364938084221,-0.000364369930585,-0.000363785283794,-0.000363182572151,-0.000362563468306,-0.000361928028467,-0.000361280647488,-0.000360626479153,-0.000359964790329,-0.000359297034346,-0.000358618777184,-0.00035792554074,-0.000357223519569,-0.000356515078285,-0.000355798771988,-0.000355072411521,-0.000354333304999,-0.000353576343408,-0.000352802615981,-0.000352013372242,-0.000351205853777,-0.000350381982628,-0.000349540965077,-0.000348678330923,-0.000347791754082,-0.000346882799426,-0.000345952493807,-0.000345005904735,-0.000344039460667,-0.000343052013403,-0.000342041594754,-0.000341012889779,-0.000339966320159,-0.000338902717659,-0.000337825249487,-0.000336733342196,-0.000335626017282,-0.000334500423131,-0.000333356934669,-0.000332198950193,-0.000331025428099,-0.000329837889965,-0.000328633219092,-0.000327409895078,-0.000326166580185,-0.000324902803321,-0.000323617251519,-0.000322312314119,-0.000320990918664,-0.000319650795676,-0.000318290584939,-0.000316908404026,-0.000315502566504,-0.000314072817804,-0.00031262099451,-0.000311151233403,-0.000309663889288,-0.000308158006444,-0.00030663463749,-0.000305089527897,-0.000303524744387,-0.000301941449325,-0.000300340503797,-0.000298724725225,-0.000297093294304,-0.000295439376039,-0.0002937615158,-0.000292058316631,-0.000290326679238,-0.000288566897246,-0.000286780609316,-0.000284968833149,-0.000283133543913,-0.000281272882785,-0.000279387003054,-0.00027747935398,-0.000275554463977,-0.000273609035124,-0.000271645970557,-0.000269669001891,-0.000267676254925,-0.000265664299455,-0.000263630668331,-0.000261573381386,-0.000259494374954,-0.000257392540653,-0.000255264651986,-0.000253113274521,-0.000250938911252,-0.000248736915475,-0.0002465124315,-0.000244264709308,-0.000241997523747,-0.000239713580105,-0.000237410217526,-0.000235087195136,-0.000232745407904,-0.000230386314149,-0.000228008526962,-0.000225615342868,-0.00022320671114,-0.000220778936242,-0.000218332321688,-0.000215865004119,-0.000213377659,-0.000210872131147,-0.000208348996236,-0.00020580565102,-0.000203239890688,-0.000200648968629,-0.000198031931029,-0.00019539004806,-0.000192724114864,-0.00019003452151,-0.000187319302471,-0.00018457609777,-0.000181803777956,-0.000179002867511,-0.000176176344369,-0.000173330281014,-0.000170466360147,-0.000167586352805,-0.000164686677587,-0.000161768959895,-0.000158833004438,-0.000155882166731,-0.000152917042877,-0.000149938984359,-0.000146946793274,-0.000143937653463,-0.000140907624539,-0.000137857234801,-0.000134787938746,-0.000131699195017,-0.000128590156889,-0.000125459769617,-0.000122308992746,-0.000119135832921,-0.000115940466717,-0.000112719707681,-0.000109425627537,-0.000106006364977,-0.000102416823312,-9.86193043722e-05,-9.43545244937e-05,-9.05473745209e-05,-8.6941973593e-05,-8.35006482708e-05,-8.01839257328e-05,-7.69427157336e-05,-7.37332924044e-05,-7.06012002316e-05,-6.75976020781e-05,-6.47681963169e-05,-6.21486075343e-05,-6.00049684699e-05,-5.74086245873e-05,-5.46178735616e-05,-5.16653524522e-05,-4.85924159776e-05,-4.54482173856e-05,-4.22815693622e-05,-3.9091690399e-05,-3.58806639281e-05,-3.26458175035e-05,-2.93828199024e-05,-2.60908045749e-05,-2.27730162928e-05,-1.94295946647e-05,-1.60628033861e-05,-1.26719405804e-05,-9.2561003335e-06,-5.81958935717e-06,-2.36288228377e-06,1.11583614141e-06,4.61366962357e-06,8.12858677508e-06,1.16612525396e-05,1.52117465334e-05,1.87810708901e-05,2.23670061266e-05,2.59711814268e-05,2.9594987097e-05,3.32409690958e-05,3.69068168746e-05,4.05911697742e-05,4.42958530138e-05,4.80201421054e-05,5.17643492083e-05,5.55286664409e-05,5.9312391269e-05,6.31173252736e-05,6.69429757441e-05,7.07890326297e-05,7.46580792851e-05,7.85486344609e-05,8.24614490805e-05,8.63972238537e-05,9.03588474914e-05,9.43491168616e-05,9.83684213456e-05,0.000102414027156,0.000106482498692,0.000110575233725,0.000114688498865,0.000118824423215,0.000122982964565,0.000127162905281,0.000131362750152,0.000135577882307,0.000139807766268,0.000144054921538,0.000148325481006,0.000152619646363,0.000156938146321,0.000161280946674,0.000165650229791,0.00017004854305,0.000174476469207,0.000178937106784,0.000183429956727,0.000187954780998,0.000192507312015,0.000197089378642,0.000201701103478,0.000206344058742,0.000211015314053,0.000215711260443,0.00022043129809,0.000225172864702,0.000229933758899,0.000234714082547,0.000239515363331,0.000244334913725,0.000249167524578,0.000254008826152,0.000258856141486,0.000263711310447,0.000268572509519,0.00027344026661,0.000278317170237,0.000283201888772,0.000288093732091,0.000292988687531,0.000297887906379,0.000302792853612,0.000307705687816,0.000312625815709,0.000317552125964,0.000322481865401,0.00032741236226,0.000332341521366,0.00033726640709,0.00034218890664,0.00034710906464,0.000352025027659,0.000356936377286,0.000361842121276,0.000366738414228,0.000371625656535,0.000376505567574,0.000381375212981,0.000386236192171,0.000391087360588,0.000395929438196,0.000400764076041,0.000405592286629,0.000410407782334,0.000415213756521,0.000420011225714,0.000424797979541,0.000429576106541,0.000434344251064,0.000439099090913,0.000443839787544,0.00044856124082,0.00045325857903,0.000457938241224,0.000462602644981,0.000467251028365,0.000471882353074,0.000476495865707,0.000481090632859,0.000485667286272,0.000490226374773,0.000494770911519,0.000499306323053,0.000503829614588,0.000508332326446,0.000512812953461,0.00051726990209,0.000521703206566,0.000526115388728,0.000530505897772,0.000534876292558,0.000539227984171,0.000543554634257,0.000547853596887,0.000552129085603,0.000556380103258,0.000560608525414,0.00056481303233,0.000568987488588,0.000573131975898,0.000577242958214,0.000581314055111,0.000585344469727,0.000589336631515,0.000593287793061,0.000597196295296,0.00060106124243,0.000604882416635,0.000608660574475,0.000612399282877,0.000616092248772,0.000619743478011,0.000623354944887,0.000626923766181,0.000630448395869,0.000633929069086,0.000637363727587,0.000640747552844,0.000644078801703,0.000647352475451,0.000650571110212,0.000653734246398,0.000656838876704,0.000659883483247,0.00066287147005,0.000665804677187,0.000668683463394,0.000671507916614,0.000674283217004,0.000677008589433,0.000679685259513,0.000682308671539,0.000684880899427,0.00068740097663,0.000689865169892,0.000692267542152,0.000694607461464,0.000696885838303,0.00069910272404,0.000701259107047,0.000703352658153,0.000705387786884,0.000707364691144,0.000709283159384,0.000711145426023,0.000712955519886,0.000714714468328,0.000716423486194,0.000718077334416,0.00071967448706,0.000721218078228,0.000722706899855,0.00072413651987,0.000725509667604,0.000726827460914,0.000728088994945,0.000729295931239,0.00073044754141,0.000731545478879,0.000732590735871,0.000733583479027,0.00073452049799,0.000735406200312,0.000736242188655,0.000737027589157,0.000737764114249,0.000738449416122,0.000739082224828,0.000739660514074,0.000740184792221,0.000740654364503,0.000741074337895,0.000741445463955,0.000741765044616,0.000742031451949,0.00074224403886,0.000742400350848,0.000742501046197,0.000742550658217,0.000742553156278,0.000742505658006,0.000742409337317,0.000742259882304,0.000742058267402,0.000741807167687,0.000741504531483,0.000741152035727,0.000740751369046,0.000740301771534,0.000739800228585,0.000739248558864,0.000738642010718,0.000737982861921,0.000737271644602,0.00073650766675,0.000735694205026,0.000734836596309,0.000733932760188,0.000732981972053,0.000731985193281,0.000730942457262,0.000729855767875,0.000728729864674,0.000727566251045,0.000726363790804,0.000725122097395,0.00072383396932,0.000722502165369,0.000721127963177,0.000719709795596,0.000718249001279,0.000716746240804,0.000715199643977,0.000713608548783,0.00071197153019,0.000710285640648,0.000708554599813,0.00070677947955,0.000704957394661,0.000703089443076,0.000701179560867,0.000699227952734,0.000697232783023,0.000695192452521,0.000693110131442,0.000690988619104,0.000688832464808,0.000686637838946,0.000684409356707,0.000682148288487,0.000679852702124,0.000677518715459,0.000675145631439,0.000672736572582,0.000670292180609,0.000667811184012,0.000665290495914,0.00066273231315,0.000660136178196,0.000657498847857,0.000654816283238,0.000652090061095,0.000649323696684,0.000646513955952,0.000643657910232,0.000640752926829,0.000637798918275,0.000634794450256,0.000631737037349,0.000628627477304,0.000625468331894,0.000622265162172,0.000619016125902,0.000615720648324,0.000612385077657,0.000609012676182,0.000605602982836,0.000602156920528,0.000598676653959,0.000595165781772,0.000591624056935,0.000588048894382,0.000584440445885,0.00058080133758,0.000577128416008,0.000573420579933,0.000569677546105,0.000565904971433,0.000562103425309,0.000558271955582,0.000554410254424,0.000550520930815,0.000546603545939,0.000542659202254,0.000538687489084,0.000534690421764,0.000530669199553,0.000526622582312,0.000522549731709,0.000518450047229,0.000514326337531,0.000510174077976,0.000505995677841,0.000501789464268,0.00049755221573,0.000493287890778,0.000488998151647,0.000484680450849,0.000480336142515,0.000475965069786,0.000471566720188,0.000467143857566,0.000462695811204,0.000458221990809,0.000453729279432,0.000449216984127,0.000444682894217,0.000440128619684,0.000435552149752,0.000430953041801,0.000426334844691,0.000421696905704,0.000417037172687,0.000412361103202,0.000407665324606,0.000402944877004,0.000398200614232,0.000393432285002,0.000388642652295,0.000383834522019,0.000379004334673,0.000374148324805,0.000369267017822,0.000364360407874,0.000359428120971,0.000354471381728,0.000349493630993,0.000344496176727,0.000339476445629,0.000334433362163,0.000329368237777,0.00032428588092,0.00031918907501,0.000314076827493,0.000308946298973,0.000303802086985,0.000298643658484,0.000293470649108,0.000288282221495,0.000283081268754,0.000277866027314,0.000272638714986,0.000267401979536,0.000262154936973,0.000256903205175,0.000251648111788,0.000246390542334,0.000241131479211,0.000235875046091,0.000230623422198,0.000225377977728,0.000220141260884,0.000214908816744,0.000209681016249,0.000204459029557,0.000199245174668,0.000194039396841,0.000188839685507,0.000183648823149,0.000178463924259,0.000173285565611,0.000168113218897,0.000162950937125,0.000157801562062,0.000152666217621,0.000147540315031,0.000142426069886,0.000137327070291,0.000132242203953,0.000127171671819,0.000122119938485,0.000117085617998,0.000112069843949,0.000107072308623,0.000102092139853,9.71309625384e-05,9.218958092e-05,8.72612057873e-05,8.23467599592e-05,7.74460327754e-05,7.25588999574e-05,6.7685272473e-05,6.28267212746e-05,5.79814715167e-05,5.31481948834e-05,4.83293018896e-05,4.3522690926e-05,3.87364642348e-05,3.39730288983e-05,2.92349956652e-05,2.45225594741e-05,1.98366432664e-05,1.51730839242e-05,1.05319605123e-05,5.91449608521e-06,1.32079620527e-06,-3.25060938669e-06,-7.80093644436e-06,-1.23347390718e-05,-1.68523716684e-05,-2.13566142392e-05,-2.58476283218e-05,-3.03255157586e-05,-3.47847083381e-05,-3.92249434003e-05,-4.36464837177e-05,-4.80493885969e-05,-5.24326850641e-05,-5.6793994481e-05,-6.11307618644e-05,-6.54421302762e-05,-6.9726927957e-05,-7.39838991776e-05,-7.82148589563e-05,-8.241969443e-05,-8.65995762026e-05,-9.07531658091e-05,-9.4880910686e-05,-9.89821649022e-05,-0.000103060446227,-0.000107117152922,-0.000111151652521,-0.000115161922082,-0.000119149386458,-0.000123111723136,-0.000127050772981,-0.000130962993653,-0.000134846085285,-0.000138701578484,-0.000142528164332,-0.000146319709057,-0.000150078846595,-0.000153807582233,-0.000157506396405,-0.000161175979961,-0.000164814689058,-0.000168422759239,-0.00017200271999,-0.000175556621311,-0.000179084170681,-0.000182590312896,-0.00018607681473,-0.000189539241789,-0.000192976957773,-0.000196388041016,-0.000199771242905,-0.000203130127424,-0.000206464467832,-0.000209768456949,-0.000213042006157,-0.000216283316175,-0.000219487765987,-0.000222658948345,-0.000225796765227,-0.000228903655228,-0.000231982829129,-0.000235031529261,-0.000238048349087,-0.000241036390123,-0.000243999897946,-0.000246937891922,-0.000249851439101,-0.000252738538634,-0.000255593921701,-0.000258420768774,-0.000261215892262,-0.00026398313389,-0.000266725793043,-0.000269440499723,-0.000272124301929,-0.000274777538324,-0.000277403579333,-0.00028000290388,-0.000282580639386,-0.000285137424048,-0.000287672157053,-0.000290181929589,-0.000292663105064,-0.000295115126368,-0.00029754174908,-0.000299946632585,-0.000302323741434,-0.00030467420309,-0.000306999348372,-0.000309296288672,-0.000311566459262,-0.000313811407228,-0.000316030758108,-0.000318231500644,-0.000320410166774,-0.000322561086847,-0.000324685544413,-0.000326785836131,-0.000328856941939,-0.000330898790158,-0.000332911419401,-0.000334896528725,-0.000336851872808,-0.00033877858916,-0.000340671845454,-0.000342536147321,-0.00034437533399,-0.000346185935042,-0.000347973313171,-0.000349738013961,-0.000351478155899,-0.000353192820372,-0.000354882126804,-0.000356542771456,-0.000358179194659,-0.000359788366785,-0.000361370028286,-0.000362928777466,-0.000364463913102,-0.000365972779667,-0.000367456790451,-0.000368917866993,-0.00037035672099,-0.000371773875814,-0.000373169568201,-0.000374547183203,-0.000375907787279,-0.000377249945932,-0.000378567778987,-0.000379861319914,-0.000381129515087,-0.000382371284387,-0.000383585926374,-0.000384773236645,-0.000385935754478,-0.00038707241674,-0.000388179784825,-0.00038925214984,-0.000390291117317,-0.00039129910738,-0.000392280375414,-0.000393236588507,-0.000394172291348,-0.000395087226109,-0.00039597884803,-0.000396842794118,-0.000397680663839,-0.000398492536699,-0.000399281473411,-0.000400046874448,-0.000400787157916,-0.000401498994031,-0.000402185204857,-0.000402844177693,-0.000403477637773,-0.000404091472739,-0.000404637476606,-0.000405069522464,-0.000405387640672,-0.000405597690346,-0.000405700858672)
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(233)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Macaca_mulatta-male-liver-H3K27Ac-ERR572290.50mers.unique.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) : 233',bty='n')
dev.off()