# R script for Peak Model
#  -- generated by MACS
p <- c(0.041767138556,0.0487845363654,0.0558161127819,0.0628902250201,0.0699309162555,0.0697607729691,0.0697324157546,0.0699653500159,0.0699876306843,0.0700544726897,0.0698610359772,0.069953196924,0.0699410438321,0.0697709005456,0.0697081095709,0.0699309162555,0.069882303888,0.0696736758105,0.0696615227186,0.0695734128024,0.0696362037772,0.0695136601006,0.069435677761,0.0694792263402,0.0692685727475,0.0690791870655,0.0691845138619,0.0691672969817,0.0691743862853,0.0689222096286,0.0688168828322,0.0687044667322,0.0685758465097,0.0683550653403,0.0685576168719,0.0683439250061,0.0683783587665,0.0683783587665,0.0683712694629,0.0684988769277,0.0684928003818,0.0684674814403,0.0685940761475,0.0686892753673,0.0684482390448,0.0686882626097,0.0686659819412,0.0686892753673,0.0687439642808,0.0686467395457,0.0686214206043,0.0684289966493,0.0683986139196,0.068353039825,0.0683692439475,0.068172768962,0.0679317326395,0.0678952733638,0.0678405844503,0.0677707041719,0.0678183037818,0.0679823705224,0.0676268925845,0.067690696317,0.0678020996593,0.0677423469575,0.0677929848404,0.0677139897431,0.0676633518602,0.0676795559827,0.0675732164287,0.0673726904125,0.0676309436152,0.0676755049521,0.0674719406629,0.0674375069026,0.0673625628359,0.0673129377107,0.0671468454549,0.0671022841179,0.0669503704693,0.0670719013882,0.0670911437837,0.0669615108035,0.0670911437837,0.0671589985467,0.0670951948143,0.0670030338675,0.0671336796053,0.0672562232819,0.0674790299665,0.0674972596044,0.0675002978773,0.0675438464566,0.0675175147575,0.0674952340891,0.0675316933647,0.0676147394927,0.0676187905233,0.0676187905233,0.0675651143674,0.0674435834485,0.0673017973765,0.0671883685188,0.0672531850089,0.0674010476269,0.0674344686296,0.0674263665683,0.0673463587134,0.0672430574323,0.0670445569314,0.0670536717504,0.0670921565413,0.0669534087423,0.0668379543693,0.0667022448432,0.0666657855675,0.0666242625035,0.0666860407207,0.066755920999,0.066977714926,0.0670283528089,0.0669118856783,0.0670293655666,0.0669189749819,0.0670334165972,0.0670020211098,0.0671681133657,0.0669726511377,0.0670698758729,0.0670749396612,0.0670486079621,0.0670080976558,0.0671397561512,0.0673038228918,0.0672653381008,0.0673585118053,0.0673828179891,0.0674435834485,0.0673423076828,0.0672774911927,0.0674476344792,0.0675124509692,0.0675853695206,0.0674516855098,0.0673868690197,0.0672845804963,0.0672430574323,0.0674192772647,0.0675246040611,0.067613726735,0.0674071241728,0.0674121879611,0.0673878817774,0.0675063744233,0.0676582880719,0.0679621153692,0.0680887100764,0.0680238935863,0.0680887100764,0.0681393479593,0.0684928003818,0.068542425507,0.0685910378746,0.0687946021637,0.0687399132502,0.0686629436682,0.06872269637,0.0688979034448,0.0689850006034,0.0690933656727,0.0690427277898,0.0692179348646,0.0691672969817,0.0690933656727,0.0692118583186,0.06917236077,0.0690123450601,0.0689070182637,0.0689130948097,0.0687591556457,0.0686001526935,0.06865787988,0.0688401762583,0.0689627199349,0.0690781743078,0.0693181978727,0.0695511321339,0.0699106611024,0.0698772400997,0.0701000467843,0.0703775423825,0.0704879329672,0.070541609123,0.0707077013789,0.0708515129663,0.070920380487,0.0709730438852,0.0708251812672,0.0708545512392,0.0708393598744,0.0707380841086,0.0707897347491,0.0708869594843,0.0706995993176,0.0705973107942,0.0706945355293,0.0706388338582,0.0706722548609,0.0708829084536,0.0710966003194,0.0715037288977,0.0716839997608,0.0717467907356,0.0719635208743,0.0720506180328,0.0721539193139,0.0722025316815,0.0725225631013,0.0726410557472,0.072848671067,0.0729063982535,0.0729205768607,0.0730340057183,0.0731737662751,0.0733823943525,0.0733712540183,0.0739262452147,0.0740811971363,0.0740680312867,0.0741267712309,0.0741065160777,0.0743617310074,0.0743981902831,0.0746655583047,0.0747496171903,0.0748296250452,0.0746392266056,0.0746037800876,0.0748255740146,0.0749268497803,0.0751790264371,0.0751456054344,0.0753289145704,0.0754605730659,0.0756104611992,0.0758990971316,0.0760479725073,0.0762444474928,0.0760844317829,0.0762667281613,0.0762241923397,0.0765999254307,0.0765827085505,0.0765300451523,0.0765756192469,0.0767964004162,0.0769250206387,0.0770313601928,0.0774901394117,0.0774911521693,0.0778365025306,0.0777575074333,0.078080577126,0.0782537586855,0.07845934849,0.0784441571251,0.0787013975701,0.0788786301602,0.0791611895467,0.0793272818025,0.0792786694349,0.079574394671,0.079905566425,0.0800929265916,0.0802742102123,0.0805820885402,0.0808150228015,0.080940604751,0.0809233878708,0.0811147990681,0.0813497588447,0.0815259786771,0.0815918079248,0.0818328442473,0.0819361455284,0.0820445105978,0.0821417353329,0.0821407225752,0.0824415115995,0.0826643182842,0.082836487086,0.0828992780608,0.0830795489238,0.0831889267508,0.0834927540481,0.0838532957742,0.0841814292553,0.0846159022904,0.0850321456876,0.0857512036245,0.0863740495839,0.0872662890802,0.0880602910838,0.0890467170422,0.0899855433908,0.0908879104637,0.0915239222727,0.0923847662816,0.0929154512942,0.0930855945807,0.0936142540779,0.0937286956932,0.0939828978653,0.0943535671679,0.0943940774742,0.0942158321265,0.094572322822,0.0947414533508,0.0950473061634,0.0953693630985,0.0955465956886,0.0958068744066,0.0961441227065,0.0964003503939,0.0966889863263,0.0969877498353,0.0971801737902,0.0972135947929,0.0972773985254,0.0976237616442,0.097878976574,0.0981706507793,0.0983337047622,0.0981777400829,0.0984795418649,0.0987317185216,0.0989616145099,0.0993515262081,0.0998589177945,0.0999723466522,0.100017920747,0.1000381759,0.1002630081,0.100465559631,0.100849394784,0.10125753612,0.101449960075,0.101624154392,0.101695047428,0.102131545978,0.102622733442,0.103139239847,0.103216209429,0.103491679512,0.103604095612,0.103762085807,0.104112499956,0.104423416557,0.104530768869,0.104561151599,0.104671542183,0.104892323353,0.104935871932,0.104935871932,0.105090823854,0.10522653338,0.105301477446,0.105578973044,0.105937489255,0.106249418614,0.106396268474,0.106465135995,0.106895557999,0.107296610032,0.107504225352,0.107796912315,0.10778172095,0.107988323512,0.108219232258,0.108419758274,0.108623322563,0.109033489414,0.109238066461,0.109477077268,0.109776853535,0.109853823117,0.110390584676,0.11048375838,0.110634659271,0.110797713254,0.111209905621,0.111425623002,0.111646404171,0.11195833353,0.112049481719,0.112406985172,0.112480916481,0.11274929726,0.112934631911,0.113337709459,0.113460253136,0.113741799765,0.1139514406,0.114215770348,0.114406168788,0.1147383533,0.115168775304,0.115422977476,0.115627554523,0.115730855804,0.11591416494,0.116001262099,0.116531947111,0.116564355356,0.116869195411,0.117040351455,0.117054530062,0.117285438808,0.117394816635,0.117418110062,0.117692567387,0.117928539921,0.117912335798,0.118165525213,0.118358961925,0.118444033569,0.118965603762,0.119258290725,0.11980517986,0.120178887436,0.120277124929,0.120400681363,0.120597156349,0.120826039579,0.121142019968,0.121368877684,0.12110657345,0.12121898955,0.121143032726,0.121209874731,0.121496485149,0.121679794285,0.121909690273,0.122344163308,0.122370495007,0.122505191776,0.122861682471,0.122803955285,0.123263747261,0.123379201634,0.123453132943,0.123623276229,0.124007111382,0.123866338067,0.124045596173,0.124260300796,0.12447500542,0.124851751268,0.12468667177,0.124882133998,0.124912516728,0.125070506922,0.124930746365,0.124811240962,0.124802126143,0.124886185028,0.125151527535,0.125060379346,0.125161655111,0.125295339122,0.125354079066,0.125497890654,0.125484724804,0.125834126196,0.125870585472,0.12587564926,0.125564732659,0.125606255723,0.125540426475,0.125339900459,0.125588026085,0.125462444136,0.125285211546,0.125257867089,0.125334836671,0.12517076993,0.125037085919,0.12507151968,0.125108991713,0.124938848427,0.124731233107,0.124682620739,0.124977333218,0.124914542243,0.124838585419,0.12495910358,0.124902389151,0.124794024082,0.124646161464,0.124875044694,0.124578306701,0.124423354779,0.124128642301,0.123861274279,0.123615174168,0.123469337066,0.12373974336,0.123533140798,0.123377176119,0.123239441077,0.123547319405,0.123341729601,0.123284002414,0.123145254615,0.122944728599,0.122616595118,0.122113254562,0.121693972892,0.121564339912,0.121177466486,0.120713623479,0.120550569496,0.120089764762,0.119694789276,0.119556041477,0.119420331951,0.119306903093,0.119257277968,0.119019279918,0.1187590012,0.118392382928,0.117933603709,0.117714848055,0.117549768557,0.117191252346,0.116600814632,0.116334459368,0.116265591847,0.11590099909,0.115803774355,0.115555648729,0.115622490735,0.115496908785,0.115420951961,0.115223464218,0.115152571182,0.114701894024,0.114321097145,0.113988912633,0.113602039208,0.113624319876,0.113219216813,0.112901210909,0.112774616202,0.112529528848,0.11245964857,0.112315836983,0.111915797708,0.112026188293,0.111907695647,0.111541077375,0.111367895815,0.111207880105,0.110814930134,0.110688335427,0.110553638658,0.110576932085,0.110429069467,0.110025991919,0.109927754426,0.109568225458,0.109337316712,0.108936264679,0.10858990156,0.108530148859,0.108172645406,0.107628794543,0.107748299947,0.107615628694,0.107183181174,0.107004935826,0.106648445131,0.106455008418,0.106314235104,0.105776460788,0.105545552042,0.105479722794,0.104907514718,0.104421391042,0.10431403873,0.104144908201,0.103872476391,0.103642580403,0.103573712882,0.103460284025,0.103173673608,0.102776672606,0.10245056464,0.102144711828,0.101552248598,0.100959785368,0.100498980634,0.0999095556774,0.0987934967387,0.0978293514487,0.0967446879975,0.0957724406462,0.0949591962472,0.0943383758031,0.0938451628238,0.0933570136329,0.0929326681744,0.0926653001528,0.0925701009329,0.0924779399861,0.0924293276185,0.092268299151,0.0921781637195,0.0918297750853,0.0915978535817,0.0913760596547,0.0909304462853,0.090594210743,0.090147584616,0.0897860301323,0.08956221069,0.0893951056765,0.0892047072368,0.0892310389359,0.0890062067359,0.0887621321405,0.0887023794387,0.0883732332,0.0883438632279,0.0884137435063,0.0883651311387,0.0883094294675,0.0880856100252,0.0878810329784,0.087547835709,0.0874982105838,0.0872379318658,0.0870222144848,0.0867953567695,0.0865330525361,0.0862049190551,0.0858504538749,0.0857552546551,0.0854909249065,0.0852306461885,0.0849602398939,0.0849399847408,0.0848184538219,0.0846948973876,0.0843080239625,0.0842168757733,0.0841773782246,0.0838907678075,0.0836507442427,0.0836294763319,0.0833904655247,0.0829529542166,0.0826693820725,0.0825701318221,0.0826015273094,0.082422269204,0.0822652917671,0.082209590096,0.0821154036338,0.0820222299293,0.0819594389545,0.0819209541636,0.0818389207933,0.0816789050834,0.0813821670897,0.0811158118258,0.0806286753925,0.0804058687078,0.0804281493763,0.0802235723295,0.0798711326646,0.0797384614115,0.0797860610214,0.0794488127214,0.079346524198,0.0792968990728,0.0794923613007,0.0792209422485,0.0787024103278,0.0785079608575,0.0785474584062,0.0784239019719,0.0783135113873,0.0783378175711,0.0781261512206,0.0778577704414,0.0775974917234,0.0773939274342,0.0774202591333,0.0772713837576,0.0769786967946,0.0767801962937,0.0764176290523,0.0761826692757,0.0760975976325,0.0759892325631,0.0757573110596,0.0756803414776,0.0755031088875,0.0752164984704,0.075265110838,0.0751202864929,0.0750949675515,0.0749805259362,0.0747475916749,0.0746979665497,0.0744852874416,0.0745268105056,0.0743799606453,0.0743586927344,0.0740538526795,0.0738310459948,0.073697361984,0.0735606397003,0.0733813815949,0.0731697152444,0.0731221156345,0.0729479213174,0.0727352422093,0.0727068849949,0.0727210636021,0.0726643491733,0.0723888790905,0.0722663354139,0.0722015189238,0.0719493422671,0.0719544060554,0.071665770123,0.0715138564743,0.0713528280068,0.0710034266149,0.070997350069,0.0710743196509,0.0713275090653,0.071065204832,0.0711290085644,0.071062166559,0.07121306745,0.0712535777563,0.0711735699014,0.0711867357509,0.0709153166987,0.0706064256131,0.0701820801546,0.0701435953636,0.0699511714087,0.0698843294033,0.0696078465628,0.0695146728583,0.0694316267303,0.0694630222177,0.0693982057276,0.0693293382069,0.06928477687,0.0696291144736,0.0696088593204,0.0694275756997,0.0694832773709,0.0693718740285,0.0692837641123,0.0689839878457,0.0689698092385,0.0689313244475,0.0690295619403,0.0686558543646,0.0686143313007,0.0685241958692,0.068503940716,0.0684360859529,0.068462417652,0.0687399132502,0.0688108062862,0.0686953519133,0.0683256953683,0.0683763332511,0.0684421624989,0.0684907748665,0.0684472262872,0.0685717954791,0.0685241958692,0.0682234068449,0.0681079524719,0.0681747944773,0.0682872105773,0.0680856718034,0.0679286943665,0.0677595638377,0.0677251300773,0.0675195402728,0.0673311673485,0.0673828179891,0.0673463587134,0.0674648513593,0.0672541977666,0.0672228022792,0.0672491339783,0.0673190142566,0.0670567100233,0.0670769651765,0.0670719013882,0.0670425314161,0.0670921565413,0.0669797404414,0.0670911437837,0.0672329298557,0.0670556972657,0.0670273400513,0.0671377306359,0.0670232890206,0.0669817659567,0.0668956815558,0.0666830024477,0.0665888159855,0.0663629710279,0.066129024009,0.0662586569892,0.066202955318,0.0661827001648,0.0663427158747,0.0664682978243,0.0666475559297,0.066652619718,0.0666161604423,0.0667852909711,0.0669534087423,0.0669412556504,0.0670243017783,0.0668835284639,0.0668906177675,0.0667032576008,0.0663336010558,0.0664146216684,0.066386264454,0.0664024685765,0.0663224607216,0.0663194224486,0.066244478382,0.0664652595513,0.0664682978243,0.0664288002756,0.0666597090216,0.0666657855675,0.0666921172666,0.0666667983252,0.0666394538684,0.0667164234504,0.0667518699684,0.0664774126432,0.0663244862369,0.0664136089108,0.0664136089108,0.0664055068495,0.0663528434513,0.0664075323648,0.066646543172,0.0665594460135,0.0665645098017,0.0667984568206,0.0668349160963,0.0667538954837,0.0666516069603,0.0665857777126,0.0665817266819,0.0666303390495,0.066427787518,0.0663285372675,0.0664470299135,0.0666424921414,0.0667731378792,0.0670212635053,0.0672278660675,0.0675641016098,0.0677180407737,0.0678162782665,0.0679965491296,0.068205177207,0.0681302331404,0.06798338328,0.0678517247845,0.0676684156485,0.0675327061224,0.0674456089638,0.0675104254539,0.0675630888521,0.0674921958161,0.067542833699,0.0675853695206,0.0676198032809,0.0678051379323,0.0680390849512,0.068131245898,0.0680036384332,0.0681585903548,0.0680532635584,0.0679317326395,0.0677980486287,0.0679226178206,0.0679914853413,0.0680785824998,0.0681018759259,0.0681646669007,0.0680866845611,0.0680451614971,0.0681039014413,0.068314555034,0.0683763332511,0.0683317719142,0.0684411497412,0.0682487257863,0.0681525138088,0.0681383352016,0.0683226570953,0.0683712694629,0.0684350731953,0.0685657189331,0.068616356816,0.0687490280691,0.0686761095178,0.0687490280691,0.0690548808817,0.0691348887367,0.0692604706862,0.0693080702961,0.0693718740285,0.069429601215,0.0695116345853,0.0693040192655,0.0693799760898,0.06962202517,0.0694721370366,0.0695207494042,0.0695572086799,0.0693435168141,0.0694731497943,0.0694812518556,0.0695683490141,0.0696655737492,0.0697881174258,0.0696493696267,0.0697850791528,0.0698964824952,0.0697648239997,0.0700402940825,0.0701679015474,0.0701223274528,0.0701891694582,0.0703512106834,0.0704089378699,0.0706854207104,0.0708272067825,0.0708525257239,0.0711735699014,0.0711786336897,0.0710358348599,0.0710925492888,0.0711441999293,0.0711209065032,0.0711310340798,0.0711178682302,0.07110065135,0.071177620932,0.0712363608761,0.0712323098455,0.0714206827698,0.0715320861122,0.0715918388139,0.0717812244959,0.0716779232148,0.0717903393148,0.0717579310698,0.0717913520725,0.0717204590365,0.0718095817103,0.0717559055545,0.0717569183121,0.0719128829914,0.0718835130193,0.0720891028238,0.0719280743563,0.0720415032139,0.0720728987013,0.0724364787004,0.0724314149121,0.0724030576977,0.0724628103995,0.0723260881157,0.0723929301211,0.0723868535751,0.0724212873355,0.0721944296202,0.0722268378652,0.0720415032139,0.072070873186,0.0722987436589,0.072286590567,0.0722795012634,0.0721782254977,0.0723321646616,0.0725681371958,0.0728881686156,0.0730147633228,0.0730178015958,0.0733803688372,0.0733175778625,0.0734775935724,0.073549499366,0.0737753443237,0.0738989007579,0.0738077525687,0.0738290204795,0.0738877604237,0.074002202039,0.0738442118444,0.0739414365795,0.0741662687795,0.0742766593642,0.0742695700606,0.0742128556318,0.0742341235426,0.0743455268849,0.0743850244335,0.0743667947957,0.0743181824281,0.0743070420939,0.074223995966,0.0743121058822,0.0744700960768,0.0743394503389,0.0746817624272,0.0745956780263,0.0745541549624,0.0744984532912,0.0746888517308,0.0747860764659,0.0748397526218,0.074776961647,0.0745450401434,0.074596690784,0.0744164199209,0.074445789893,0.0745450401434,0.0745987162993,0.0744933895029,0.0744184454362,0.0742483021498,0.0741915877209,0.074448828166,0.0745025043218,0.0745713718425,0.0746209969678,0.0743951520101,0.0745349125669,0.0747698723434,0.0747192344605,0.0748934287776,0.0749643218137,0.0748448164101,0.074773923374,0.07466758382,0.074590614238,0.074773923374,0.0747931657695,0.0746331500596,0.0748032933461,0.0745085808678,0.0746382138479,0.074670622093,0.074850892956,0.0748984925659,0.0749359645993,0.0749359645993,0.0748012678308,0.0748083571344,0.074773923374,0.0749288752957,0.0749835642092,0.0750919292785,0.0749845769668,0.075108133401,0.0750909165209,0.0751537074956,0.0751364906155,0.075001793847,0.0751121844317,0.0751354778578,0.0748488674407,0.0747202472182,0.0748944415353,0.0748194974686,0.0748995053236,0.0749825514515,0.0751344651001,0.0752954935677,0.0751273757965,0.0752823277181,0.0755446319515,0.0756297035947,0.0754747516731,0.0755719764082,0.0755527340127,0.0754939940686,0.075336003874,0.0753755014226,0.0754079096677,0.0752873915064,0.0752701746263,0.0752478939578,0.0753704376344,0.0751618095569,0.0752570087767,0.0751861157407,0.075223587774,0.0751091461587,0.0752215622587,0.0752630853227,0.0752357408659,0.0749845769668,0.0747283492795,0.0747455661596,0.074629099029,0.0747172089452,0.074850892956,0.0750271127884,0.0748995053236,0.0748579822596,0.0747931657695,0.0750068576353,0.0750574955182,0.0751830774677,0.0752570087767,0.0751162354623,0.0749714111173,0.0749055818695,0.0747779744047,0.0747080941263,0.0746888517308,0.0745956780263,0.074516682929,0.0744569302272,0.0742493149074,0.074182472902,0.0741703198101,0.0740437251029,0.0740963885011,0.0742493149074,0.0741976642669,0.0742422256038,0.0746007418146,0.0746088438759,0.0748022805885,0.0748843139587,0.0750179979695,0.0750109086659,0.0749734366326,0.0747972168002,0.0749714111173,0.0750331893344,0.0747627830398,0.0746199842101,0.0745470656587,0.0744680705615,0.0743931264948,0.0743445141272,0.0744366750741,0.074516682929,0.0743829989182,0.0742493149074,0.074259442484,0.0743576799768,0.0743607182498,0.0745146574137,0.0744032540714,0.0743445141272,0.0743708458263,0.0743921137371,0.0745531422047,0.0745045298371,0.0743809734029,0.0743779351299,0.0742351363002,0.0740224571921,0.0740133423732,0.0740356230417,0.0738077525687,0.0737398978057,0.0735859586417,0.0736376092822,0.0736315327363,0.0735251931823,0.0735069635444,0.0735363335165,0.0735343080012,0.0735413973048,0.0735363335165,0.0733196033778,0.0658788728676,0.0585232140006,0.0512222440471,0.0438686106955,0.0)
m <- c(0.042922158871,0.0501456441444,0.0574219817091,0.064582450789,0.0719746568385,0.0721820004428,0.0723669834623,0.0725895729198,0.0727694739883,0.0728741621807,0.0728924572046,0.0728467196448,0.0728782277415,0.0730378010056,0.0731252105643,0.0730794730045,0.0731506203197,0.0732258331958,0.0733356033392,0.0733193410958,0.0734270784588,0.0735195699686,0.0736730448913,0.0736710121109,0.0736273073316,0.0735002585544,0.0733569475338,0.0733965867523,0.073357963924,0.0734687504577,0.0735073732859,0.0736323892827,0.0737045529881,0.0736699957207,0.0737533397185,0.0738082247902,0.0739698308348,0.0737970444978,0.0739179949337,0.0738590443011,0.0740287814674,0.0740043881021,0.0739667816641,0.0740704534663,0.073844814838,0.0740369125891,0.0739596669326,0.074148715513,0.0741405843912,0.0742574692662,0.074317436289,0.0744455014564,0.0742727151195,0.0743652066292,0.0745075012596,0.0746325172563,0.0747341562781,0.0747514349118,0.0748581558846,0.0746995990107,0.0746782548161,0.0745196979422,0.074705697352,0.074612189452,0.0746294680857,0.0744190753107,0.0743652066292,0.0743154035086,0.0743093051673,0.0742696659488,0.0741832727804,0.0743550427271,0.0743336985325,0.0745359601857,0.0744261900423,0.0745552715998,0.0745095340401,0.0744902226259,0.0745014029183,0.0746558942313,0.0744556653586,0.0744648128705,0.074410944189,0.0743601246781,0.074425173652,0.0744597309194,0.0745156323814,0.074673172865,0.0746691073042,0.0747402546194,0.0749384507117,0.0748347789096,0.0749435326628,0.0748886475911,0.0749465818335,0.074953696565,0.0750065488563,0.0749730079791,0.07502382749,0.0751600237791,0.075084810903,0.0753267117747,0.0753531379203,0.0753358592866,0.0755066128431,0.0755432028909,0.0754527441616,0.0754202196747,0.0753531379203,0.075075663391,0.0751569746084,0.0748449428117,0.074621336964,0.0747494021313,0.0745552715998,0.0745257962835,0.0744475342368,0.0745146159912,0.074668090914,0.0748652706161,0.0750715978302,0.0751325812432,0.0751427451454,0.0750644830986,0.0749658932476,0.0749760571498,0.0750512700258,0.0749364179313,0.074921172078,0.0748164838857,0.0746701236944,0.0747209432052,0.0748378280802,0.0749038934443,0.0749008442737,0.0748398608607,0.0749282868095,0.0750451716845,0.0750980239758,0.0750634667084,0.0751000567562,0.0752199908019,0.0752098268997,0.0751071714878,0.0754852686486,0.0755320225985,0.0754944161605,0.0753246789942,0.0752748758736,0.0752423513866,0.0752240563627,0.0752870725562,0.0752982528486,0.0752362530453,0.0748103855444,0.0748042872031,0.074719926815,0.0747260251563,0.074457698139,0.0745481568683,0.0745664518922,0.0744424522857,0.0744515997977,0.0746894351085,0.0749364179313,0.0749658932476,0.0750868436834,0.0749354015411,0.0750106144171,0.0750604175378,0.0749018606639,0.0749018606639,0.0746345500368,0.0745237635031,0.0746030419401,0.0744902226259,0.0745003865281,0.0747158612542,0.0745603535509,0.0744739603825,0.0745003865281,0.0742361250717,0.0744150097499,0.0742086825358,0.0739373063478,0.073985076688,0.0738692082033,0.073629340112,0.0737919625468,0.0737919625468,0.0736201926001,0.0736364548435,0.0736649137696,0.0736364548435,0.0735744550403,0.0734057342642,0.0731933087088,0.0733040952425,0.0732085545621,0.0731170794426,0.0730764238339,0.0731374072469,0.0730266207132,0.0731079319306,0.0732055053914,0.0732847838284,0.0733620294849,0.0732786854871,0.0732004234404,0.0731699317338,0.0731739972947,0.0731089483208,0.0730794730045,0.0728091132068,0.0727623592568,0.0726871463807,0.0725722942862,0.0726119335046,0.0725560320427,0.0723110820003,0.0723761309742,0.0723303934145,0.0723537703895,0.0725123272633,0.0725580648231,0.0724411799481,0.0723679998525,0.072276524733,0.0722622952699,0.0724604913623,0.0722328199536,0.0723039672688,0.0721931807351,0.0721413448341,0.0717662968439,0.0718902964504,0.0720081977156,0.0721169514689,0.0722429838558,0.0722612788797,0.072220623271,0.0720203943982,0.0718608211341,0.0716931167483,0.0716067235798,0.0714441011451,0.071378035781,0.0710731187158,0.0708332506246,0.070695021555,0.0707773491626,0.0708423981365,0.0709440371583,0.0708688242822,0.0711554463234,0.0710873481789,0.0708596767702,0.0710619384234,0.0710578728626,0.0708159719909,0.0708017425278,0.0706472512148,0.0705506941442,0.0705974480942,0.0704063667334,0.0702833835171,0.0702864326877,0.0702823671269,0.0703179407845,0.0705100385355,0.0703596127834,0.0702264656649,0.0702356131769,0.0702020722997,0.0701797117149,0.0700364006943,0.0700516465476,0.0697182705563,0.0694143698814,0.0691114855967,0.0691927968141,0.0692395507641,0.0691846656923,0.0691186003282,0.0691186003282,0.0691714526195,0.0691927968141,0.0690972561337,0.0691480756445,0.0692639441293,0.0690718463782,0.0689224370163,0.0687933554587,0.0687791259957,0.0686551263892,0.0686378477555,0.068490471174,0.0686297166338,0.0686754541935,0.0686154871707,0.0686104052196,0.0686124380001,0.0685504381968,0.0682526358632,0.0681631935241,0.06795686631,0.0677993258263,0.0676834573416,0.0675533593938,0.0675960477829,0.0674171631047,0.0674639170547,0.067563523296,0.0677271621209,0.0676732934394,0.0677668013394,0.0678836862144,0.0679446696274,0.0680168333328,0.0678623420198,0.0679060467991,0.0678227028013,0.0677485063155,0.0677759488513,0.0678481125568,0.0678501453372,0.0678409978252,0.0677749324611,0.067825751972,0.0677749324611,0.0677058179264,0.0677962766557,0.0676641459275,0.0674476548112,0.0674039500319,0.0674110647634,0.0673246715949,0.0671915244765,0.0669679186287,0.0668225748276,0.0669404760928,0.0666833293679,0.0666711326853,0.0668520501439,0.0667839519994,0.0668225748276,0.0668764435091,0.066857132095,0.0668754271189,0.0670228037004,0.0669445416537,0.0669242138494,0.0669486072146,0.0667565094635,0.0666955260505,0.0666101492723,0.066524772494,0.0664424448864,0.0663641828397,0.0663580844984,0.0663601172788,0.0664749693734,0.0663336911332,0.0663428386451,0.0663306419625,0.0661974948441,0.0661761506495,0.0662015604049,0.0663773959125,0.0663347075234,0.0664261826429,0.0665908378581,0.0667483783418,0.0668083453646,0.0669313285809,0.0671366394047,0.0671071640884,0.0671071640884,0.0670868362841,0.0672027047689,0.0670776887721,0.0668063125842,0.0665938870288,0.0666375918081,0.0665074938603,0.0665044446897,0.0666304770766,0.0668215584374,0.0667392308298,0.0665816903462,0.0666823129777,0.0668276567787,0.0670248364809,0.0670868362841,0.0671274918928,0.0670502462363,0.0671020821374,0.0671539180384,0.0671711966721,0.0671274918928,0.0671630655504,0.0671579835993,0.0671508688678,0.067058377358,0.0671793277939,0.0672565734504,0.0672138850612,0.0671722130623,0.0673246715949,0.0674415564699,0.0674212286656,0.0674669662253,0.0673653272036,0.0674496875916,0.0672962126688,0.0672880815471,0.0674578187134,0.0674862776394,0.0673246715949,0.0675228676873,0.0675330315894,0.0676082444655,0.067825751972,0.0679253582133,0.0680696856241,0.0679355221154,0.0679619482611,0.0681306690371,0.0684721761501,0.0684233894197,0.0685829626838,0.0687100114609,0.0687049295098,0.0687516834598,0.0689102403337,0.0692802063727,0.0694174190521,0.0693127308597,0.0691765345706,0.069435714076,0.0696491560216,0.0695505661705,0.0696989591422,0.0696715166064,0.0698107620661,0.0697934834324,0.0697314836292,0.0699479747454,0.0701532855693,0.0701858100562,0.0699195158193,0.070254924591,0.0703494488812,0.070493776292,0.0703057441019,0.0703779078073,0.0702884654682,0.070193941178,0.0703199735649,0.0701959739584,0.0703616455638,0.0703423341497,0.0705130877062,0.070788529455,0.0710111189126,0.0711920363712,0.0714115766581,0.0715823302146,0.0715477729472,0.0717561329418,0.0719482306928,0.0721342301026,0.0721586234678,0.072051902495,0.0722429838558,0.0724198357536,0.0727694739883,0.072810129597,0.0728670474491,0.0730195059817,0.0731739972947,0.0732461610001,0.0733772753381,0.0735266847001,0.0735876681131,0.0737635036207,0.0735957992348,0.0739373063478,0.0741751416586,0.0742462889738,0.0744068786281,0.0743936655553,0.0746701236944,0.0748429100313,0.075122417341,0.0750807453421,0.0754049738214,0.075557432354,0.0757200547887,0.0758938575159,0.076020906293,0.0763420856016,0.076236381019,0.0762617907745,0.0763400528212,0.076423396819,0.0765270686211,0.0766429371059,0.0767750678341,0.0768807724167,0.0769224444156,0.0771267388493,0.0775393932774,0.0778117858556,0.0779124084871,0.0781532929686,0.078482603399,0.0786391274924,0.0787092584174,0.0788535858282,0.0792103387945,0.0791808634782,0.079179847088,0.0792692894271,0.0795284689324,0.0794847641531,0.0794258135205,0.0794146332281,0.0797398780976,0.0801647292084,0.0802135159388,0.0804056136899,0.0805296132964,0.0809239727006,0.0809087268474,0.0812502339603,0.0813691516157,0.0816659375591,0.0816649211689,0.0815175445874,0.0816445933646,0.081871248383,0.0820155757938,0.0819393465276,0.0821466901319,0.0823824926622,0.0827026555807,0.0828896713806,0.0832067851284,0.0835249152663,0.0837657997478,0.0840229464728,0.0843644535857,0.0845789119215,0.0848025177693,0.08489907484,0.0849346484976,0.0850434022508,0.0852700572692,0.0851236970779,0.0853371390236,0.085456056679,0.0855800562855,0.0857436951104,0.0859774648604,0.0861949723668,0.0863799553864,0.0866492987939,0.0867204461091,0.087080248246,0.0872103461938,0.0874288700905,0.0876402792557,0.0879594257838,0.0882887362142,0.0884950634283,0.0886922431304,0.0888314885902,0.0891191270216,0.0893457820401,0.0894586013542,0.0894525030129,0.0895439781324,0.0897299775421,0.0897940101258,0.0900023701203,0.0902656151866,0.0905064996681,0.0906884335169,0.0910970223842,0.0911925630646,0.0913379068657,0.0916875451004,0.0920066916286,0.0920209210916,0.0920686914318,0.0921266256742,0.0921510190394,0.0922679039144,0.0926175421491,0.0933920314946,0.0941634716694,0.0946116997552,0.095167665204,0.0961545801049,0.0972370356861,0.0984587367272,0.0996275854769,0.100552500575,0.10123246563,0.101959184635,0.102484658377,0.102981673194,0.103411606255,0.103750064198,0.103961473363,0.104128161359,0.104245046234,0.104569274713,0.104941273532,0.10488333929,0.105282780645,0.105683238391,0.105951565408,0.106248351352,0.106587825684,0.106762644801,0.107123463329,0.107123463329,0.107185463132,0.107576773365,0.107677395997,0.108127656863,0.10844070505,0.108635851972,0.108762900749,0.109061719473,0.109184702689,0.109594307946,0.110003913204,0.110420633193,0.110424698754,0.110289518855,0.110597485091,0.110663550455,0.110895287424,0.110882074352,0.111126008004,0.111312007413,0.111513252676,0.111633186722,0.112031611687,0.112507282309,0.112565216551,0.113003280735,0.113084591952,0.113346820628,0.113651737693,0.113929212223,0.114227014556,0.114323571627,0.114658980399,0.1147108163,0.114957799122,0.115221044189,0.115820714417,0.116202877138,0.116264876942,0.116556580934,0.116692777223,0.116851334097,0.117060710482,0.117364611157,0.117701036319,0.11784638012,0.117833167047,0.117921592996,0.118297657376,0.118423689763,0.118584279417,0.118856671995,0.119116867891,0.119488866711,0.119512243686,0.119622013829,0.120010274892,0.120229815179,0.1203731262,0.12056217478,0.120721748044,0.121142533594,0.121618204216,0.121696466262,0.121894662355,0.122275808686,0.12243334917,0.122981183497,0.123246461343,0.123600165139,0.123996557324,0.124029081811,0.123907114985,0.124161212539,0.124646030672,0.124762915547,0.124764948328,0.124704981305,0.124836095643,0.124793407254,0.12477511223,0.124928587153,0.124981439444,0.125145078269,0.12524163534,0.125386979141,0.125652256987,0.125694945377,0.125774223814,0.125933797078,0.125773207423,0.125783371325,0.126055763904,0.126066944196,0.12599173132,0.126047632782,0.126098452293,0.126286484483,0.126289533654,0.126309861458,0.126596483499,0.126842449932,0.126531434525,0.126429795504,0.126472483893,0.126331205653,0.126012059124,0.125646158646,0.125587208014,0.125719338742,0.125565863819,0.12524163534,0.12524468451,0.125064783442,0.124788325303,0.124937734665,0.125022095053,0.125162356903,0.12514711105,0.12491639047,0.124888947934,0.124724292719,0.12449458853,0.124374654484,0.12449458853,0.124376687265,0.124177474782,0.123971147568,0.123874590498,0.123691640259,0.123377575681,0.123409083778,0.123539181726,0.123292198903,0.122869380573,0.122432332779,0.12238761161,0.122478070339,0.122243284199,0.122233120297,0.122355087123,0.122289021759,0.12201561279,0.122019678351,0.121900760696,0.121862137868,0.121522663535,0.121174041691,0.121053091255,0.120734961117,0.120313159177,0.119904570309,0.119821226312,0.119429916078,0.119214441352,0.118848540874,0.11864424644,0.118286477084,0.117926674947,0.117934806069,0.117839265388,0.117550610566,0.117093234969,0.116747662295,0.116648056054,0.116511859764,0.116565728446,0.116603334884,0.116291303087,0.115782091589,0.115605239691,0.115314552089,0.115446682817,0.115576780765,0.115146847703,0.114965930244,0.114585800303,0.114160949192,0.114062359341,0.113651737693,0.11326042746,0.113112034488,0.112771543765,0.112363971288,0.112146463782,0.112021447785,0.111782596084,0.111457351215,0.111218499513,0.111464465946,0.111318105755,0.11110872937,0.110730632209,0.110665583235,0.110372862853,0.110197027345,0.10989211028,0.109859585793,0.109559750679,0.109055621131,0.108781195773,0.108774081041,0.108791359675,0.108372606905,0.108341098809,0.107823756188,0.107415167321,0.107077725769,0.107051299623,0.106854119921,0.106608153488,0.106276810278,0.105875336142,0.106034909406,0.105568386296,0.105710680927,0.10582146746,0.105442353909,0.105180125233,0.105084584553,0.104939240752,0.104662782613,0.104279603501,0.103886260487,0.10380596566,0.103224590455,0.103126000604,0.103168688994,0.102817017978,0.102502953401,0.102147216825,0.101953086294,0.101923610977,0.101776234396,0.10165223479,0.101494694306,0.10118876085,0.100679549352,0.100520992478,0.100220140974,0.100181518145,0.100106305269,0.0997952898628,0.0994852908465,0.0993297831433,0.0990258824684,0.0986528672587,0.0986955556478,0.0983164420968,0.097952574399,0.0975195921665,0.0970713640807,0.0968162501362,0.0965926442885,0.096117990057,0.0959309742571,0.0958862530875,0.0953851727105,0.0953140253953,0.0952235666659,0.0950314689149,0.0950080919399,0.094882059553,0.0944683887346,0.0942945860074,0.0942173403509,0.0938392431902,0.0938575382141,0.0935048508087,0.0931989173533,0.0930027540414,0.0923786904481,0.0918430528036,0.0912952184766,0.0908795148778,0.090113156654,0.0892390610673,0.0881118843164,0.0873404441416,0.0865151352852,0.085709137843,0.0851491068334,0.0844335681205,0.0840697004227,0.0834598662924,0.0830543265958,0.082891704161,0.0828967861121,0.0828236060165,0.0827270489459,0.0825867870959,0.0825166561709,0.0824963283666,0.0824688858307,0.0823326895416,0.0822249521786,0.0820399691591,0.0821019689623,0.0818438058471,0.0818793795047,0.0815968230244,0.0814626595157,0.0812187258636,0.0810622017701,0.0808965301647,0.0805357116377,0.0802734829616,0.0798161073639,0.0795223705911,0.0790843064075,0.0791026014314,0.078978601825,0.0788200449511,0.0784378822294,0.0783697840849,0.0783779152066,0.0783718168653,0.0784145052544,0.0783291284762,0.0782671286729,0.0780862112143,0.07778535971,0.0776583109329,0.0776888026394,0.0774123445003,0.0772812301623,0.0769956245113,0.0768614610026,0.0768573954417,0.0766917238363,0.076409167356,0.0762404465799,0.0760198899028,0.0758145790789,0.07586641498,0.0756285796692,0.0756245141083,0.0752352366551,0.0750390733432,0.0749597949063,0.0748073363737,0.0745481568683,0.0747270415465,0.0745634027216,0.0741741252684,0.0740491092717,0.0740043881021,0.0739007163,0.0735622583577,0.0734768815794,0.073311209974,0.0731831448067,0.0728365557426,0.0726373432601,0.0727339003307,0.0725783926275,0.0722419674656,0.0723679998525,0.0723700326329,0.072159639858,0.0722287543927,0.0721515087362,0.0720122632765,0.0718567555733,0.0716179038722,0.0716463627983,0.0716077399701,0.0713902324636,0.071485773144,0.0714217405603,0.0711920363712,0.0712133805658,0.0710497417408,0.0709237093539,0.0709165946224,0.0708230867224,0.0706208250692,0.0705415466323,0.0704307600986,0.0703199735649,0.0704002683921,0.0703169243943,0.0704348256594,0.0705303663399,0.0705994808746,0.0705456121931,0.0705832186312,0.0704470223421,0.0701553183497,0.0700923021563,0.0700801054737,0.0700109909389,0.0698300734802,0.0696410248998,0.0692985013967,0.0691104692065,0.0690870922315,0.0691907640336,0.0691714526195,0.0689854532098,0.0687781096055,0.0686673230718,0.068528077612,0.0684132255175,0.0683898485425,0.0684538811262,0.0684457500045,0.0682251933273,0.0681530296219,0.0681835213284,0.0681276198665,0.0680198825035,0.0680991609404,0.0681469312806,0.0681276198665,0.0680676528437,0.0679253582133,0.0677942438753,0.0677769652416,0.0677972930459,0.0677779816318,0.0677800144122,0.0677098834872,0.0677525718763,0.0676773590003,0.0675757199786,0.0677718832905,0.0677566374372,0.0675604741253,0.0674923759808,0.0675330315894,0.0673876877884,0.0674405400797,0.0672321800852,0.0672413275971,0.0672972290591,0.0670024758961,0.0672769012547,0.0674202122753,0.0673104421319,0.0671112296493,0.067105131308,0.0670034922863,0.0670431315048,0.0670654920895,0.0670390659439,0.0670248364809,0.0667798864385,0.0666762146364,0.066632509857,0.0666751982461,0.0667229685864,0.0667798864385,0.0668490009733,0.0668022470233,0.066866279607,0.0667991978526,0.0667758208776,0.066988246433,0.0670004431156,0.0670451642852,0.0669099843863,0.0666995916114,0.0666111656625,0.0667199194157,0.0665074938603,0.0665044446897,0.0665237561038,0.0663164124995,0.0664261826429,0.0663540189375,0.0666457229299,0.0668052961939,0.0666680835146,0.066679263807,0.0666264115157,0.0665928706386,0.0664719202027,0.0665237561038,0.0663499533767,0.0664363465451,0.0663031994267,0.0662056259658,0.0663153961093,0.0661507408941,0.0662371340626,0.0664698874223,0.0666995916114,0.0668124109255,0.0669841808722,0.0669313285809,0.0668134273157,0.066964869458,0.0671193607711,0.0671234263319,0.0671539180384,0.0670106070178,0.0670421151145,0.0670126397982,0.0670990329667,0.0670868362841,0.0672088031102,0.0670228037004,0.0668672959972,0.0669425088733,0.067128508283,0.0672433603775,0.0671244427221,0.0671813605743,0.0670106070178,0.0671020821374,0.0670370331635,0.0671772950134,0.0672728356938,0.0673866713982,0.0674151303242,0.067563523296,0.0676214575383,0.0675289660286,0.067615359197,0.0675370971503,0.0677291949014,0.0677352932427,0.0676519492448,0.0677119162677,0.0676356870014,0.0675320151992,0.0675492938329,0.0677363096329,0.0677302112916,0.0678613256296,0.067708867097,0.0677342768524,0.0679812596752,0.0680158169426,0.0680696856241,0.0679721121633,0.068041226698,0.0679202762622,0.0678887681654,0.0679253582133,0.0679456860176,0.0681083084524,0.0680788331361,0.067886735385,0.0678714895318,0.0680371611372,0.0681144067937,0.068312602886,0.0684101763469,0.0685067334175,0.0686896836566,0.0686947656077,0.0687201753631,0.0690159449163,0.0690677808174,0.0691023380847,0.0690840430608,0.0691135183771,0.0692863047141,0.0693300094934,0.0693940420771,0.0694529927097,0.0694651893923,0.0691470592543,0.0693066325184,0.0693920092966,0.0694895827575,0.0694956810988,0.0694977138792,0.0694042059792,0.069473320514,0.0694174190521,0.069543451439,0.0698778438204,0.0697396147509,0.0696786313379,0.0626899322046,0.0557012330714,0.0487287961816,0.0418295393875,0.0)
ycorr <- c(8.41394842881e-05,8.40671746962e-05,8.38451395547e-05,8.34681800037e-05,8.293834697e-05,8.2250101952e-05,8.1397932278e-05,8.0546529571e-05,7.96948432957e-05,7.88404129317e-05,7.79806100421e-05,7.71116334613e-05,7.6235032656e-05,7.53528916162e-05,7.44641098663e-05,7.35644995452e-05,7.26543656671e-05,7.17395354596e-05,7.08199937639e-05,6.98954661401e-05,6.89660806837e-05,6.80325494526e-05,6.70912588815e-05,6.61364315975e-05,6.51659071078e-05,6.41891237976e-05,6.32080287104e-05,6.22232565158e-05,6.12366696733e-05,6.02479928992e-05,5.92592251965e-05,5.82664541012e-05,5.72687964494e-05,5.6270114867e-05,5.52713581125e-05,5.42718010438e-05,5.32647914501e-05,5.22498835382e-05,5.12261865089e-05,5.01936125389e-05,4.91518877365e-05,4.80977363614e-05,4.70341574417e-05,4.59587111441e-05,4.48757918829e-05,4.37817845292e-05,4.26820912015e-05,4.15744823106e-05,4.04543867925e-05,3.93218867128e-05,3.81736919724e-05,3.70167340098e-05,3.58502456775e-05,3.46793156791e-05,3.35059046134e-05,3.23257346572e-05,3.11391430745e-05,2.99429612161e-05,2.87408226867e-05,2.75349257246e-05,2.63284910015e-05,2.51177658752e-05,2.39002544197e-05,2.26755759328e-05,2.14376287331e-05,2.01861189095e-05,1.89196733908e-05,1.76468650028e-05,1.63691599455e-05,1.50823402278e-05,1.37873086793e-05,1.24836073286e-05,1.117167373e-05,9.84997517419e-06,8.51533596454e-06,7.16724665625e-06,5.81134945761e-06,4.44795240292e-06,3.06825703692e-06,1.67355944523e-06,2.62812360957e-07,-1.16227572471e-06,-2.60070259319e-06,-4.05133920316e-06,-5.5077155003e-06,-6.9614528568e-06,-8.41321012226e-06,-9.87318305975e-06,-1.13347466815e-05,-1.27928689669e-05,-1.42489707044e-05,-1.57008786565e-05,-1.71499223515e-05,-1.8595482806e-05,-2.00390268324e-05,-2.14843386534e-05,-2.29368271845e-05,-2.43926792384e-05,-2.58475852157e-05,-2.73077758084e-05,-2.87727151539e-05,-3.0243429769e-05,-3.17167472696e-05,-3.31903476947e-05,-3.46669329541e-05,-3.6148348219e-05,-3.76355240225e-05,-3.91241509061e-05,-4.06156293592e-05,-4.21096148211e-05,-4.36059794176e-05,-4.51047243722e-05,-4.66060999671e-05,-4.81149921192e-05,-4.96338370515e-05,-5.11548500066e-05,-5.26736262016e-05,-5.4193259239e-05,-5.57158694441e-05,-5.72360560616e-05,-5.87504433227e-05,-6.02578792531e-05,-6.17635408228e-05,-6.32641091388e-05,-6.47532127991e-05,-6.62346604174e-05,-6.77115679536e-05,-6.91826761266e-05,-7.06508520375e-05,-7.21173306655e-05,-7.35883022187e-05,-7.50668938868e-05,-7.65513543132e-05,-7.80378575137e-05,-7.95265827623e-05,-8.10167728547e-05,-8.25079662111e-05,-8.40040232831e-05,-8.55032358526e-05,-8.70001532512e-05,-8.84926303845e-05,-8.99812393997e-05,-9.14623451882e-05,-9.29354817694e-05,-9.44052242089e-05,-9.5876676694e-05,-9.73471474903e-05,-9.88120126121e-05,-0.000100265900662,-0.000101715181358,-0.000103165666107,-0.000104613638636,-0.000106058680517,-0.000107506680357,-0.000108957640803,-0.000110405133591,-0.000111850506395,-0.00011329844804,-0.000114754437197,-0.000116216988303,-0.000117678660558,-0.000119136601528,-0.000120592814261,-0.000122042873371,-0.000123483619727,-0.000124919356125,-0.000126346512783,-0.000127762148656,-0.000129163830515,-0.000130551644949,-0.000131929798035,-0.000133300970517,-0.000134670183848,-0.000136039925124,-0.000137409458704,-0.00013877730175,-0.000140141341216,-0.000141509345527,-0.00014288174558,-0.000144265127424,-0.000145656804481,-0.000147055181843,-0.000148454228883,-0.000149851071512,-0.000151244691475,-0.000152644110392,-0.00015405418137,-0.000155468527146,-0.000156884768137,-0.000158297599857,-0.00015970206348,-0.000161100770519,-0.00016249391254,-0.000163887384931,-0.000165281380169,-0.000166673932507,-0.000168057476463,-0.000169430771357,-0.000170802892969,-0.000172172285992,-0.000173542100759,-0.000174914083909,-0.000176291607507,-0.000177674780863,-0.000179062441179,-0.000180448986764,-0.000181840803256,-0.00018323709476,-0.000184635016509,-0.000186031552715,-0.000187431412632,-0.000188832234656,-0.00019023085101,-0.000191620333948,-0.00019300712934,-0.000194395822868,-0.00019578419449,-0.000197173405555,-0.000198560975645,-0.00019994591954,-0.000201328104438,-0.000202707448272,-0.000204084634038,-0.000205464507259,-0.000206846871914,-0.000208225349212,-0.000209603275735,-0.000210978659346,-0.000212355258484,-0.000213740510372,-0.000215131765846,-0.00021653025403,-0.000217935526685,-0.00021934845971,-0.000220765971646,-0.000222187226739,-0.00022361349101,-0.000225041049125,-0.000226469181041,-0.000227895016467,-0.000229319815797,-0.000230744488615,-0.000232168717331,-0.00023358686866,-0.000234999614209,-0.000236410123011,-0.000237821460033,-0.00023923682776,-0.000240654672739,-0.000242078365631,-0.000243497727811,-0.000244911775561,-0.000246323293109,-0.000247737035061,-0.000249158587167,-0.000250586709549,-0.000252016073972,-0.000253444726727,-0.000254868936458,-0.00025628703658,-0.000257707605597,-0.000259134642707,-0.000260563956174,-0.000261993823237,-0.000263416942495,-0.000264831251809,-0.000266241124357,-0.000267648730101,-0.000269057041048,-0.000270469548422,-0.000271881672108,-0.000273292356132,-0.000274703007413,-0.000276113992548,-0.00027753104805,-0.000278955366231,-0.000280382175987,-0.000281811117699,-0.000283244287551,-0.000284678324449,-0.000286116630338,-0.000287559880163,-0.000289002953603,-0.000290446106675,-0.000291881781803,-0.000293306235127,-0.000294716653353,-0.000296114146009,-0.000297490073209,-0.000298836962966,-0.000300146660161,-0.000301412603052,-0.00030263742212,-0.000303820867143,-0.000304965688167,-0.000306078224951,-0.000307164901915,-0.000308228144429,-0.000309274367507,-0.000310314335415,-0.000311359259931,-0.000312420303662,-0.00031350019352,-0.000314602243926,-0.000315728675476,-0.000316876405209,-0.000318046644339,-0.00031923372074,-0.000320439289758,-0.000321659095329,-0.000322891882796,-0.000324128843053,-0.000325371052097,-0.000326613186329,-0.000327854441335,-0.000329092036957,-0.000330327098366,-0.000331560077068,-0.000332787664471,-0.000334008413711,-0.000335220018618,-0.000336419992307,-0.000337609552171,-0.000338789987465,-0.000339967069444,-0.000341141136207,-0.00034231065556,-0.000343476890259,-0.000344640610039,-0.000345807174588,-0.00034697889863,-0.000348158374062,-0.000349343598332,-0.000350537344046,-0.000351730703848,-0.000352923636001,-0.000354115617596,-0.000355307235541,-0.000356496936293,-0.000357681404164,-0.000358860184932,-0.000360034539795,-0.000361204526985,-0.000362367066081,-0.000363523539788,-0.000364676071937,-0.000365823886709,-0.000366969509136,-0.000368112573318,-0.000369252521864,-0.00037038683707,-0.00037151487417,-0.000372634976406,-0.000373748622229,-0.000374857452341,-0.000375965609996,-0.000377071113427,-0.000378169594822,-0.000379261757251,-0.000380351474327,-0.000381436643617,-0.000382516708173,-0.000383592464882,-0.000384660628709,-0.00038572112229,-0.000386773773099,-0.000387814455655,-0.000388849682009,-0.00038987702034,-0.000390891043211,-0.000391895469332,-0.000392891344032,-0.000393881441338,-0.000394866951545,-0.000395849141334,-0.000396824533212,-0.000397794296455,-0.000398753754363,-0.000399702754994,-0.000400646680385,-0.000401585206067,-0.000402516378439,-0.000403439116809,-0.000404352553206,-0.000405253212124,-0.000406139298151,-0.000407012384403,-0.000407875934233,-0.00040873405541,-0.000409581500726,-0.000410419780299,-0.000411251594083,-0.000412072759512,-0.000412885879128,-0.000413693211948,-0.000414496819507,-0.000415299373557,-0.000416102387116,-0.000416900842485,-0.000417693380215,-0.000418478340941,-0.000419249105461,-0.000420006000295,-0.000420750540428,-0.000421478780021,-0.000422188937002,-0.000422878641971,-0.000423542399742,-0.000424178898413,-0.000424792065889,-0.000425384615354,-0.000425960050375,-0.000426520424126,-0.000427063287595,-0.000427589815409,-0.000428102133471,-0.00042860214427,-0.000429091175833,-0.000429576174119,-0.000430056536555,-0.000430526533468,-0.000430984132717,-0.000431430291915,-0.000431865049135,-0.000432288847844,-0.000432701293599,-0.000433101737763,-0.000433488696819,-0.000433859678216,-0.000434211565163,-0.000434544316725,-0.000434861422281,-0.000435162535749,-0.000435446071344,-0.000435712368477,-0.000435961137081,-0.000436191846868,-0.000436404155856,-0.000436598093533,-0.000436775939659,-0.000436936379357,-0.000437076710528,-0.000437198396327,-0.000437302047873,-0.000437386827725,-0.000437455269892,-0.00043750368187,-0.000437531088347,-0.000437538762504,-0.000437524600503,-0.000437493221938,-0.000437447475803,-0.000437386450186,-0.000437305756574,-0.000437203915286,-0.000437080875258,-0.000436937863078,-0.000436778895481,-0.000436603067398,-0.000436408155287,-0.000436194340514,-0.000435954061191,-0.000435685596662,-0.000435394474088,-0.000435084477352,-0.000434755975595,-0.000434409351674,-0.000434041734684,-0.000433652315343,-0.000433239638203,-0.000432803249644,-0.000432349734014,-0.000431877636656,-0.000431388124616,-0.000430876170879,-0.000430336702143,-0.000429768663914,-0.000429174207989,-0.000428550504691,-0.000427900350923,-0.000427226914143,-0.000426528698598,-0.00042580537387,-0.00042505658258,-0.000424285183779,-0.000423494769435,-0.000422685715357,-0.000421858712428,-0.000421009826564,-0.000420140328704,-0.000419244621118,-0.00041832222954,-0.000417373625183,-0.000416398666098,-0.000415397926157,-0.000414367110966,-0.000413307339902,-0.000412218587559,-0.00041110153507,-0.00040996035043,-0.000408797994264,-0.000407617085279,-0.000406416721445,-0.000405195598983,-0.000403947663073,-0.00040267523011,-0.000401378448938,-0.000400053114419,-0.000398703936932,-0.000397327713243,-0.000395922685131,-0.000394485474425,-0.00039301909886,-0.000391522161923,-0.000389998750061,-0.000388448722353,-0.000386870332465,-0.000385266750161,-0.000383642132894,-0.000381995128293,-0.000380324338861,-0.000378631026906,-0.0003769124161,-0.00037516553698,-0.000373390863265,-0.000371590292592,-0.000369766507365,-0.00036792156445,-0.000366051473551,-0.000364155159779,-0.000362232175753,-0.000360282266667,-0.000358304337292,-0.000356303429783,-0.000354281034482,-0.000352235473998,-0.000350162554088,-0.000348063072654,-0.000345934265612,-0.000343776614653,-0.000341590507957,-0.00033937799588,-0.000337140374909,-0.000334877712903,-0.000332586988092,-0.00033026768294,-0.000327924808478,-0.00032555711916,-0.000323163136255,-0.000320742417988,-0.000318294536146,-0.000315817130839,-0.000313307864288,-0.000310768635235,-0.000308198665289,-0.000305602216052,-0.000302976106673,-0.000300314601178,-0.000297620991459,-0.000294898098887,-0.000292149525291,-0.000289376550282,-0.000286581295597,-0.000283764901642,-0.00028092878626,-0.00027807098416,-0.000275189995202,-0.000272290784429,-0.000269373537773,-0.000266435508623,-0.000263474090386,-0.000260488953571,-0.000257480423145,-0.000254446630081,-0.000251387613148,-0.000248300993807,-0.000245187985318,-0.000242042848606,-0.000238868545639,-0.000235667570878,-0.000232440525751,-0.000229187370768,-0.00022590809254,-0.000222599753457,-0.000219263648203,-0.000215899131711,-0.000212508798694,-0.000209096605397,-0.0002056615719,-0.000202197811401,-0.000198607312331,-0.000194795800175,-0.000190685332338,-0.000186215891813,-0.000180849253846,-0.000176428146321,-0.000172382226687,-0.000168642088149,-0.000165120880689,-0.000161722760427,-0.00015834245431,-0.000155073930883,-0.000152011315768,-0.000149231965694,-0.00014679445364,-0.00014524010803,-0.000142727076058,-0.000139824963385,-0.000136601285714,-0.000133141157553,-0.000129546416049,-0.0001259238931,-0.000122275043089,-0.000118602069559,-0.000114908231129,-0.00011119155754,-0.00010744865198,-0.000103677684039,-9.98778262183e-05,-9.6048118062e-05,-9.21899087938e-05,-8.83050686001e-05,-8.43931361201e-05,-8.04572882719e-05,-7.64938497564e-05,-7.25032509272e-05,-6.84867242685e-05,-6.44480546056e-05,-6.03894187383e-05,-5.63115084393e-05,-5.22135945863e-05,-4.80930330975e-05,-4.39526431149e-05,-3.97922661123e-05,-3.56129984553e-05,-3.14167851778e-05,-2.72023446387e-05,-2.29718050675e-05,-1.87196378547e-05,-1.44465670113e-05,-1.01569412647e-05,-5.85192906145e-06,-1.52992798787e-06,2.814104363e-06,7.18016945076e-06,1.15698317105e-05,1.59799305617e-05,2.04121714858e-05,2.48621385708e-05,2.93245250214e-05,3.38034501755e-05,3.82997969183e-05,4.28100425265e-05,4.73343096178e-05,5.18687160017e-05,5.6412044093e-05,6.09643656021e-05,6.55281242639e-05,7.01017007528e-05,7.46904837285e-05,7.92922134701e-05,8.39036616285e-05,8.85266842587e-05,9.31624770683e-05,9.78098300477e-05,0.000102472381349,0.000107151604846,0.00011184440874,0.000116551438894,0.000121268583081,0.000125996392781,0.000130736720571,0.000135493137036,0.000140263063433,0.000145045632305,0.000149835279644,0.000154631175269,0.000159429181418,0.000164231821729,0.000169040234711,0.000173858977891,0.000178686154578,0.000183520023173,0.000188358599834,0.000193202590976,0.000198055438447,0.00020291724043,0.000207791111875,0.000212677151515,0.000217574078804,0.000222476750259,0.000227385753651,0.00023229921676,0.000237216343685,0.000242137732386,0.000247063516306,0.000251992868182,0.00025692666872,0.000261862802026,0.000266805680808,0.000271752970781,0.000276702247933,0.000281655793255,0.000286613804901,0.000291574711108,0.000296535614866,0.000301492366415,0.000306442331368,0.000311384525665,0.000316313587734,0.000321230486735,0.000326135503391,0.000331028478228,0.00033590692628,0.000340772919099,0.000345629981367,0.000350479661326,0.00035532355063,0.000360163128452,0.000364998994278,0.000369832576552,0.000374657776312,0.000379475058575,0.000384285822448,0.000389088476142,0.000393880027053,0.000398658765744,0.00040342304694,0.000408171759361,0.000412901815686,0.000417610228073,0.000422302318731,0.000426976365536,0.000431634611815,0.000436277713787,0.000440900153641,0.000445503373156,0.000450088316855,0.000454653120626,0.00045920564639,0.000463746794422,0.000468277965517,0.000472794257689,0.000477295668381,0.000481776088502,0.000486239271065,0.000490689257844,0.000495124251404,0.000499543797314,0.000503940600722,0.00050830820091,0.000512646677858,0.000516958632004,0.000521241818319,0.000525498127304,0.000529728191574,0.00053392371516,0.000538085608646,0.000542212746095,0.000546308828649,0.00055038218016,0.000554433504241,0.000558460085309,0.000562459300954,0.000566433217431,0.000570381397701,0.000574309596853,0.000578213644284,0.000582093038156,0.000585946763344,0.000589766659192,0.000593551939243,0.000597303148097,0.000601020047115,0.00060470403991,0.00060835388778,0.000611966974696,0.000615540316563,0.000619080909852,0.000622586010276,0.000626057282691,0.00062949423154,0.000632891452108,0.000636251369254,0.000639573748809,0.000642856726761,0.000646099010789,0.000649306455284,0.000652478234642,0.000655611923072,0.00065870780847,0.000661761883453,0.000664782066753,0.000667767620626,0.000670714496103,0.000673623350686,0.000676492622266,0.000679318375964,0.000682094122423,0.000684820482407,0.000687499909385,0.000690134104304,0.00069272201621,0.000695255560042,0.000697741840817,0.000700177965954,0.00070256683845,0.000704910856232,0.000707212316597,0.00070947243974,0.000711691674488,0.000713868109095,0.000716000921841,0.000718096605747,0.000720150717926,0.000722161083577,0.000724126507102,0.000726047363853,0.000727922002237,0.000729753146621,0.000731538961318,0.000733276089686,0.000734966093049,0.000736605454992,0.000738194380701,0.000739738044221,0.000741237825597,0.000742693965953,0.00074410515946,0.000745467915042,0.000746780936465,0.000748047524857,0.00074926663484,0.000750439590379,0.000751568900689,0.00075265073041,0.000753686185307,0.000754672708061,0.00075561202936,0.000756502462521,0.00075734870384,0.000758148984492,0.000758903681879,0.000759615298748,0.000760276768031,0.000760888782607,0.000761452391163,0.000761965195911,0.000762427087243,0.000762839176142,0.000763198948935,0.000763506872641,0.000763766204928,0.00076397188099,0.000764124426939,0.000764228565192,0.000764279317146,0.000764279164482,0.000764230366428,0.000764131015462,0.000763978257709,0.000763773734275,0.000763513764879,0.000763200033967,0.00076283802816,0.000762423789017,0.00076196092216,0.000761450277324,0.000760887008208,0.000760275943152,0.000759619001477,0.000758920136367,0.000758177264,0.000757392552034,0.000756559331076,0.000755678184235,0.000754748322476,0.000753764857971,0.000752732473076,0.00075165230246,0.000750520661478,0.000749336607867,0.000748097663214,0.000746806696511,0.000745463418071,0.000744069560008,0.000742623104906,0.000741130864131,0.000739592955419,0.000738007768371,0.000736376337654,0.000734693846431,0.000732960747143,0.00073117821745,0.000729346185491,0.000727465040909,0.000725535864541,0.000723557077376,0.000721522386468,0.000719429292237,0.000717277046133,0.00071506561113,0.000712801276705,0.000710481113672,0.000708108276473,0.000705681034607,0.00070319880978,0.000700660171593,0.000698068294669,0.000695425572738,0.000692735541082,0.000690001306101,0.000687222982669,0.000684397740079,0.000681528406845,0.000678613210818,0.000675654902694,0.00067265661961,0.000669623090184,0.000666557790255,0.000663461424378,0.000660334309712,0.000657175042879,0.000653985689911,0.000650765269262,0.000647514479502,0.000644231027539,0.000640912608123,0.000637555173857,0.000634153804525,0.000630705283751,0.000627213331046,0.000623677841165,0.00062009746044,0.000616470585065,0.000612802294391,0.00060909395028,0.000605348649138,0.000601566151556,0.000597749470103,0.000593904411459,0.000590028005485,0.000586116152595,0.000582170725101,0.000578194460636,0.000574188173543,0.000570147667769,0.000566074008244,0.000561969676917,0.000557836655053,0.000553674924339,0.000549481866614,0.000545260595492,0.000541012500678,0.000536739122664,0.000532436063922,0.000528105133229,0.00052374960244,0.000519365281623,0.000514950241316,0.000510502818018,0.000506024895867,0.000501515654439,0.000496976163991,0.000492402223684,0.0004877966426,0.000483166683234,0.000478511081729,0.000473832397568,0.000469134118588,0.000464418575623,0.000459686878624,0.000454937100975,0.000450172302735,0.000445394818754,0.000440608162153,0.000435806187932,0.000430981243895,0.00042613309307,0.000421258678597,0.000416354345582,0.000411419319698,0.000406458318063,0.000401472027945,0.000396459512712,0.000391418810303,0.000386352367746,0.000381266625726,0.000376164918926,0.000371047691856,0.000365918452474,0.000360780983547,0.000355631672796,0.000350469614526,0.000345295663556,0.000340110592928,0.000334914112344,0.000329703995868,0.000324480625053,0.000319246002942,0.000314001208567,0.000308742513768,0.000303474575326,0.000298198722106,0.000292914631438,0.000287621305659,0.000282319811201,0.000277012143419,0.000271700499403,0.000266381655243,0.000261055822528,0.000255727381989,0.000250396555229,0.000245056537405,0.000239709233654,0.000234357245843,0.000229005270588,0.000223651255542,0.000218295134095,0.000212937580654,0.000207577047409,0.000202210711453,0.000196840175205,0.000191472361231,0.000186111871396,0.000180755784405,0.000175400044419,0.000170043007658,0.000164685317828,0.000159328114015,0.000153972158645,0.000148626335062,0.000143291352905,0.000137960637705,0.000132629137365,0.000127301726427,0.000121981561866,0.000116673464022,0.000111375630823,0.000106092333768,0.000100824148321,9.55649938538e-05,9.03098193777e-05,8.50633168234e-05,7.98277553482e-05,7.45999885957e-05,6.93777496371e-05,6.41605893638e-05,5.89495407616e-05,5.37447362312e-05,4.85456614619e-05,4.33467840022e-05,3.81573862077e-05,3.29801369429e-05,2.78170449708e-05,2.26681249955e-05,1.75381802902e-05,1.24264827912e-05,7.33269258309e-06,2.25537573079e-06,-2.80463896679e-06,-7.84318727024e-06,-1.28592613566e-05,-1.78585499705e-05,-2.28465837477e-05,-2.78219565794e-05,-3.27830760916e-05,-3.7731193643e-05,-4.26650654103e-05,-4.75845254286e-05,-5.24882744763e-05,-5.73720371881e-05,-6.22420814506e-05,-6.70917749993e-05,-7.1916364699e-05,-7.67135752703e-05,-8.14888676212e-05,-8.62414132914e-05,-9.09679564343e-05,-9.56719051527e-05,-0.000100349916359,-0.000105006473586,-0.000109641225147,-0.000114252711853,-0.0001188435041,-0.000123410541699,-0.000127955360684,-0.000132473147109,-0.000136967818092,-0.000141437810871,-0.000145883409372,-0.000150302177409,-0.000154691647577,-0.000159054231762,-0.000163388113369,-0.000167696396851,-0.000171978588869,-0.000176232208277,-0.000180461642135,-0.000184662921531,-0.000188839597742,-0.000192990511428,-0.000197118727546,-0.000201221617278,-0.000205298697514,-0.0002093507139,-0.00021337318182,-0.000217371211754,-0.000221343628679,-0.00022528753084,-0.000229201376257,-0.000233080527339,-0.000236925254047,-0.000240736529081,-0.000244515962168,-0.000248263746917,-0.000251982913195,-0.000255670130039,-0.000259318946237,-0.000262932588479,-0.000266514133228,-0.00027006953388,-0.000273599614905,-0.000277103836856,-0.000280580884467,-0.00028403026663,-0.000287449303138,-0.000290839412208,-0.000294204654456,-0.00029754708244,-0.000300861046982,-0.000304141039947,-0.000307380759118,-0.000310583212457,-0.000313749172026,-0.000316879185602,-0.000319974161069,-0.000323035754641,-0.000326063479586,-0.000329057714426,-0.00033201990093,-0.000334954862402,-0.000337867701097,-0.000340760614862,-0.000343628717796,-0.000346466995943,-0.000349276711167,-0.000352056186148,-0.000354801558047,-0.000357509798464,-0.000360182682616,-0.000362818240475,-0.000365414621998,-0.000367968268545,-0.000370484824202,-0.000372967655751,-0.000375419357837,-0.000377837011487,-0.000380225640957,-0.000382586857234,-0.000384918527567,-0.000387217642691,-0.000389486441723,-0.000391725651429,-0.000393932956788,-0.000396106290523,-0.000398243814183,-0.000400344266357,-0.000402405428239,-0.000404423534331,-0.000406399879073,-0.00040833833405,-0.000410242317279,-0.000412108122852,-0.000413935665444,-0.000415727176699,-0.000417478170258,-0.000419195307884,-0.000420879853582,-0.000422537254143,-0.000424170081597,-0.000425778262527,-0.000427357081349,-0.000428903786374,-0.000430418019314,-0.000431899171097,-0.00043334862943,-0.000434762451205,-0.000436135747964,-0.000437467982783,-0.000438758924019,-0.000440009730093,-0.000441226646337,-0.000442416687275,-0.000443581767633,-0.000444627227649,-0.000445453232104,-0.000446061447694,-0.000446461442724,-0.000446659822593)
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(256)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Canis_familiaris-male-liver-H3K27Ac-ERR572282.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) : 256',bty='n')
dev.off()