# R script for Peak Model
#  -- generated by MACS
p <- c(0.0388613931705,0.0453429283235,0.0513967656096,0.0574123534931,0.0637200277246,0.0636643922297,0.0636087567348,0.0633827375369,0.0632853754208,0.0631289005915,0.0628055192775,0.0627985648407,0.0630489245676,0.0632366943628,0.0631254233731,0.0629898118543,0.0630002435096,0.0630802195335,0.0631115144994,0.0627707470932,0.0632193082707,0.062882018083,0.0628889725199,0.0630489245676,0.0631358550284,0.063448804687,0.0633479653526,0.0633723058816,0.0632506032365,0.0633236248236,0.0630489245676,0.0631149917178,0.0628854953014,0.0628159509328,0.0629272219226,0.0627429293458,0.0627985648407,0.0626316583561,0.0624160708134,0.0626525216666,0.0627533610011,0.0627950876223,0.0631462866837,0.0630906511888,0.0627255432537,0.0628055192775,0.062930699141,0.0629724257622,0.0629446080147,0.0627151115984,0.0626490444482,0.0625899317349,0.0624056391581,0.0624890924004,0.0628646319908,0.0629341763594,0.0630350156939,0.0635670301137,0.0636574377928,0.0640990445334,0.064314632076,0.0644884929975,0.0645371740555,0.0641964066494,0.0640747040044,0.0640434090385,0.0637200277246,0.0631393322468,0.0631462866837,0.0627533610011,0.0624543202161,0.0625482051137,0.0625030012742,0.0626107950455,0.0628542003356,0.0626281811376,0.062607317827,0.0627429293458,0.062808996496,0.0629515624516,0.0627811787485,0.0626699077588,0.0629828574175,0.0631706272127,0.0630419701308,0.0631741044311,0.0633062387314,0.0633792603184,0.0634070780659,0.0635148718372,0.0637200277246,0.0635253034925,0.0632227854891,0.0634036008475,0.0634974857451,0.0634557591239,0.0634835768713,0.0635531212399,0.0637304593798,0.0634835768713,0.0633166703867,0.0635635528952,0.0637200277246,0.0635218262741,0.0634696679976,0.0636052795164,0.063278420984,0.0631880133048,0.0626977255062,0.0629585168885,0.0630871739703,0.0630350156939,0.0631880133048,0.0631949677417,0.0630732650966,0.0630802195335,0.0635948478611,0.0636956871955,0.0640573179122,0.0639425697041,0.0640816584412,0.0641755433389,0.064192929431,0.0642763826733,0.0643076776392,0.0643772220078,0.064516310745,0.0645197879634,0.0645058790897,0.0644815385607,0.0643911308815,0.0645371740555,0.0645684690214,0.0643528814788,0.0643598359156,0.0642520421443,0.0638069581853,0.0639495241409,0.0640642723491,0.0643806992262,0.0646553994822,0.0646936488849,0.0646519222637,0.0649822580145,0.0652082772125,0.0652360949599,0.0653021621101,0.0652569582705,0.0652187088678,0.065156118936,0.0653543203865,0.0654829774684,0.0653925697893,0.0653369342944,0.0651178695333,0.0651874139019,0.065528181308,0.0655490446186,0.0659350158643,0.0661888528097,0.0660323779803,0.065802881564,0.0660428096356,0.0662653516151,0.0665991645844,0.0667486849768,0.0668008432533,0.0669468864273,0.0667243444478,0.066394008697,0.066467030284,0.0665748240554,0.0665783012738,0.0664461669735,0.0662862149257,0.0667139127925,0.0665956873659,0.0664392125366,0.0663870542602,0.0666513228608,0.0666582772977,0.066912114243,0.0667452077584,0.0668842964956,0.0671207473488,0.0668912509325,0.0671902917174,0.0676145123658,0.0679970063931,0.0681465267856,0.0678544404375,0.0677848960689,0.0681917306252,0.0686402918026,0.0687167906081,0.0685324980313,0.0685429296866,0.0681117546013,0.0681430495672,0.068052641888,0.0684525220074,0.0685290208129,0.0686229057105,0.0683899320757,0.068546406905,0.0689775819903,0.0688141527241,0.0694400520414,0.0696208673998,0.0699338170585,0.0698990448742,0.0701737451301,0.0700137930823,0.0703719465806,0.0704901720072,0.0703476060516,0.0705701480311,0.0706570784918,0.0706570784918,0.0706466468366,0.0708552799423,0.0708796204713,0.0712238650959,0.0711473662904,0.0713177499935,0.0715055197887,0.0718949682528,0.0720062392426,0.0719540809661,0.0720166708979,0.0723991649251,0.0724582776384,0.0727955678261,0.0729763831845,0.0730007237135,0.0731467668875,0.0730667908636,0.0729798604029,0.0731884935087,0.0733275822459,0.073223265693,0.0735988052834,0.0737239851469,0.0739917309659,0.0743394528089,0.0745898125359,0.0745376542594,0.0747775823311,0.0752435296006,0.0756642730306,0.0759042011023,0.0758242250784,0.0755147526382,0.0755877742252,0.0756607958122,0.0757442490545,0.075918109976,0.0761371747371,0.0760502442763,0.0761789013582,0.0765996447882,0.0770412515288,0.0777262635595,0.0777436496516,0.0777193091226,0.0779627144127,0.0786546808802,0.0788528823307,0.0791832180815,0.079284057416,0.0789502444467,0.0787242252488,0.0785781820747,0.0791241053682,0.0794474866822,0.0797673907777,0.0795552804535,0.0795518032351,0.0798890934227,0.0801846569893,0.080741011938,0.0812034819892,0.0815407721769,0.0815233860847,0.0814990455557,0.0816242254192,0.0822918513577,0.0826917314771,0.0825735060505,0.0827682302825,0.0828342974327,0.0831611559651,0.083314153576,0.0839122351459,0.084576383866,0.0844407723472,0.0842112759309,0.0845937699581,0.0853622352311,0.0858838179956,0.0864749451286,0.0870973672275,0.0877789020398,0.0881718277223,0.0889020435926,0.0902199093774,0.0915690701282,0.0925183507595,0.0931929311348,0.0936693100597,0.0944899336091,0.0949454492234,0.0954913725169,0.0961902934213,0.0963398138137,0.0965241063905,0.0968787826703,0.0968961687625,0.0970630752471,0.0970665524655,0.097021348626,0.0972786627898,0.0974838186771,0.0976055213221,0.0982036028921,0.0984887348033,0.0985548019535,0.0986278235405,0.0988573199568,0.0994623559636,0.0998518044277,0.100366432755,0.101134898028,0.101482619871,0.101437416032,0.101785137875,0.102091133096,0.102803962875,0.102918711083,0.103113435315,0.103537655963,0.103784538472,0.103847128403,0.104080102038,0.104598207584,0.105290174052,0.105495329939,0.10560312371,0.106562835997,0.10726523412,0.107772908011,0.10848226057,0.108652644273,0.108826505195,0.109069910485,0.109132500417,0.109636697089,0.110022668335,0.109758399734,0.109887056816,0.109834898539,0.110036577208,0.110120030451,0.110592932157,0.110982380621,0.111083219956,0.111368351867,0.111900366287,0.112477584546,0.11255756057,0.113218232072,0.112835738044,0.11328777644,0.113277344785,0.11328777644,0.11377458702,0.114028423966,0.114216193761,0.114703004341,0.115113316116,0.115530582327,0.115902644699,0.116173867737,0.11696319632,0.117380462532,0.117867273112,0.117808160399,0.117860318675,0.117926385825,0.118461877464,0.118590534545,0.118924347515,0.119379863129,0.119529383522,0.119807560996,0.119484179682,0.119988376354,0.120697728914,0.120548208521,0.120701206132,0.120621230108,0.121101086252,0.121194971149,0.121236697771,0.121713076695,0.122217273368,0.122088616286,0.122119911252,0.122488496405,0.122634539579,0.123434299818,0.123712477292,0.123750726695,0.124008040859,0.124119311849,0.124741733948,0.125197249562,0.125176386251,0.125628424647,0.125997009801,0.126028304767,0.126362117736,0.126855882753,0.126935858777,0.127617393589,0.127683460739,0.128135499135,0.129161278572,0.129460319357,0.130086218674,0.130159240261,0.130635619186,0.130934659971,0.131640535312,0.131421470551,0.131943053316,0.132548089322,0.131793532923,0.132426386677,0.132224708008,0.132794971831,0.13277410852,0.133253964664,0.133358281216,0.13377207021,0.133980703315,0.134151087018,0.135103844868,0.135117753742,0.135639336506,0.135705403657,0.135646290943,0.13594185451,0.136341734629,0.136247849732,0.136564276609,0.136790295807,0.136845931301,0.137071950499,0.137016315005,0.137256243076,0.137444012871,0.137537897769,0.137687418161,0.138149888213,0.13830984026,0.138640176011,0.138751447001,0.138956602888,0.139116554936,0.139540775585,0.139888497428,0.140197969868,0.140371830789,0.140754324817,0.140858641369,0.140803005875,0.14101163898,0.14118897712,0.141004684543,0.140618713298,0.14112290997,0.141157682154,0.141230703741,0.14149844956,0.141474109031,0.141661878827,0.141773149816,0.142047850072,0.142736339321,0.143386579168,0.143473509629,0.1435813034,0.14400204683,0.14395684299,0.144572310652,0.144513197939,0.144634900584,0.144579265089,0.144749648792,0.1446001284,0.144353245891,0.144645332239,0.144648809458,0.144530584031,0.143953365772,0.144235020465,0.144815715942,0.145107802291,0.145017394611,0.144801807069,0.144888737529,0.144436699134,0.144857442564,0.145309480959,0.14533034427,0.145097370635,0.144527106813,0.144175907751,0.144262838212,0.144464516881,0.144481902973,0.144367154765,0.143675188297,0.143153605533,0.142538137871,0.142458161847,0.142131303315,0.141536698963,0.141001207325,0.140243173707,0.140184060994,0.139982382325,0.139460799561,0.138967034544,0.13913046381,0.138393293503,0.137861279083,0.137701327035,0.137110199902,0.136901566796,0.136067034373,0.135715835312,0.135149048708,0.134596170977,0.133984180534,0.133709480278,0.133094012616,0.132478544954,0.132440295551,0.132106482582,0.131282381814,0.130663436933,0.130444372172,0.129881062787,0.129029144271,0.127916434374,0.127655642992,0.127067993077,0.12597614649,0.125294611678,0.125339815518,0.124821709972,0.124355762702,0.124133220722,0.124453124818,0.124407920978,0.124296649989,0.124084539664,0.124098448538,0.124119311849,0.123211757839,0.122551086337,0.122227705023,0.122185978402,0.12176871219,0.121528784119,0.120774227719,0.120409119784,0.120141373965,0.119981421917,0.119717153317,0.119814515433,0.119678903914,0.119640654511,0.119491134119,0.119463316371,0.119338136508,0.119240774392,0.118826985399,0.118444491371,0.118298448197,0.118037656815,0.117554323453,0.116709359375,0.115655762191,0.114925546321,0.114685618249,0.114132740519,0.113357320809,0.112310678061,0.11125012644,0.110572068847,0.109462836167,0.10817278813,0.107359119018,0.10618034197,0.104810317909,0.103784538472,0.102755281817,0.101746888472,0.101531300929,0.100342092226,0.0999561209806,0.0996223080114,0.0992641545131,0.0991633151787,0.0989338187623,0.0985478475166,0.0988920921411,0.0986660729432,0.0981757851446,0.0980297419706,0.097612475759,0.0974073198717,0.0970109169707,0.0966284229434,0.0965519241379,0.0962250656055,0.0956582790015,0.0956478473462,0.095856480452,0.0956408929094,0.0952757849742,0.0951436506739,0.0948376554521,0.094691612278,0.0943091182508,0.0941839383873,0.0937318999914,0.0934432908618,0.0927826193601,0.0929286625342,0.0928799814762,0.092271468251,0.092271468251,0.0923236265274,0.0922262644114,0.0916525233705,0.0913395737118,0.090960556903,0.0908458086948,0.0901886144116,0.0897922115106,0.0902129549406,0.090094729514,0.0898339381317,0.0897296215788,0.0898061203843,0.0898652330976,0.0898756647529,0.0897122354867,0.0892010843775,0.0887872953844,0.0881648732855,0.0877128348896,0.0875076790022,0.0872781825859,0.087100844446,0.0867426909477,0.0864227868522,0.0860820194461,0.0860681105723,0.0859950889853,0.0858420913744,0.0856195493949,0.0855256644973,0.0851501249069,0.0851396932516,0.0846563598899,0.0841625948729,0.0840304605725,0.0838461679958,0.0837905325009,0.0837488058797,0.0835540816477,0.0829281823303,0.0826569592928,0.0820832182519,0.0819615156069,0.0821944892416,0.0819476067331,0.0816833381325,0.08153381774,0.0809983261018,0.0808835778936,0.0807862157776,0.0803619951292,0.0800977265285,0.0801568392418,0.0800142732862,0.0796178703852,0.0793883739689,0.0789467672283,0.0790615154365,0.078838973457,0.0786790214092,0.0786199086959,0.0786268631328,0.0787242252488,0.0779801005048,0.0777436496516,0.0778340573308,0.0780531220919,0.0774237455561,0.0771838174844,0.0770377743104,0.077107318679,0.0770308198735,0.0765057598906,0.0766205080988,0.0765544409486,0.076363193935,0.0757303401808,0.0756851363412,0.0757755440204,0.0752435296006,0.0749583976894,0.0745793808806,0.0746732657782,0.0746941290887,0.0742038412902,0.0738978460683,0.0739152321605,0.0738178700445,0.0732893328431,0.0733067189353,0.0733623544302,0.0731363352322,0.0725591169729,0.0719958075873,0.0722322584405,0.0722565989695,0.0720305797716,0.0720757836112,0.0720757836112,0.0719088771265,0.071046526956,0.0707753039185,0.0708483255055,0.0707753039185,0.0706153518707,0.0702919705567,0.0701459273827,0.069808637195,0.0695304597206,0.0696278218366,0.069808637195,0.0698364549424,0.0700033614271,0.0700137930823,0.0697043206421,0.0695617546865,0.0694713470073,0.0691757834408,0.0692140328435,0.0689149920586,0.0686576778948,0.0686020423999,0.0678683493112,0.0676353756764,0.067211155028,0.0670755435092,0.0668043204717,0.0670790207277,0.0667312988847,0.06632098711,0.0665122341236,0.066247965523,0.0662688288335,0.0662931693625,0.0666269823318,0.0665956873659,0.0664113947892,0.0660428096356,0.0661123540042,0.0663731453864,0.0658341765298,0.0655942484582,0.0656151117688,0.0652013227756,0.0651248239702,0.0650065985436,0.0650761429121,0.0652743443626,0.0651213467517,0.0646727855743,0.0646345361716,0.0647179894139,0.0644989246528,0.0646345361716,0.0646275817347,0.0643354953866,0.0642381332706,0.0637408910351,0.0636678694481,0.0638104354037,0.0640295001648,0.0641616344651,0.0642103155231,0.0640121140727,0.0639460469225,0.0640990445334,0.0640781812228,0.0639286608303,0.0637860948747,0.0635496440215,0.0634905313082,0.063254080455,0.0631115144994,0.0631949677417,0.0630871739703,0.0630976056256,0.0629133130489,0.0631393322468,0.0630419701308,0.0635287807109,0.0635496440215,0.0639356152672,0.0640642723491,0.0642624737996,0.0641859749941,0.0638730253355,0.0639564785778,0.0636713466665,0.0635357351478,0.0631254233731,0.0631045600625,0.0628681092093,0.0627290204721,0.0624577974346,0.0624995240557,0.0626525216666,0.0624543202161,0.0624438885609,0.0627881331854,0.0629272219226,0.0628402914618,0.0626907710694,0.0624647518714,0.0623952075028,0.062436934124,0.0623986847213,0.0625760228612,0.0626664305404,0.0624091163766,0.0621552794312,0.062315231479,0.0620996439363,0.0619640324176,0.0618805791752,0.0616232650114,0.0615606750797,0.0613103153528,0.0612059987999,0.0609452074176,0.0611816582709,0.0608374136463,0.0609521618545,0.0613033609159,0.0613937685951,0.0615015623664,0.0615293801138,0.061644128322,0.0617275815643,0.0620231451309,0.0618771019568,0.0618771019568,0.0619709868544,0.0617936487145,0.0619779412913,0.062040531223,0.0620266223493,0.0620926894995,0.062315231479,0.0624056391581,0.0622943681684,0.0621657110865,0.0621448477759,0.0621552794312,0.0621309389022,0.0623500036632,0.0625377734585,0.0626038406086,0.0622804592947,0.0621344161206,0.0622804592947,0.0626038406086,0.0624543202161,0.0625030012742,0.06253429624,0.062137893339,0.0619988046018,0.0620440084414,0.0620579173152,0.0621935288339,0.0620127134756,0.0617658309671,0.0618666703015,0.0618805791752,0.0619709868544,0.0622248237998,0.0621900516155,0.0621970060523,0.0622561187656,0.0622735048578,0.0627012027247,0.0627533610011,0.0626003633902,0.0626212267008,0.0622317782366,0.0623986847213,0.0621796199602,0.0621205072469,0.0622839365131,0.0623847758475,0.0619396918885,0.0620718261889,0.0622213465814,0.0622213465814,0.0626003633902,0.0623604353185,0.0626907710694,0.0628507231171,0.0627950876223,0.062607317827,0.0627429293458,0.0626803394141,0.0627881331854,0.0627081571615,0.0622352554551,0.0620440084414,0.062089212281,0.0617275815643,0.0617032410353,0.061967509636,0.0618910108305,0.0619709868544,0.0620544400967,0.0622248237998,0.0622004832708,0.0625238645847,0.0625134329294,0.062607317827,0.0625725456428,0.06211355281,0.062162233868,0.0623465264448,0.0619570779807,0.0620370540046,0.0623465264448,0.0622908909499,0.0624786607451,0.0625621139875,0.0625238645847,0.0626107950455,0.0626977255062,0.0624160708134,0.0626420900113,0.0628750636461,0.0628402914618,0.0629272219226,0.0626490444482,0.0624786607451,0.0625516823322,0.0630384929123,0.0628889725199,0.0630906511888,0.0630350156939,0.0625934089533,0.0624786607451,0.0622074377076,0.0624821379636,0.0627429293458,0.0628994041751,0.0625795000796,0.062979380199,0.0628611547724,0.0630106751649,0.0630002435096,0.0633618742263,0.0631775816495,0.062808996496,0.0628681092093,0.0629654713253,0.0630663106598,0.062930699141,0.0631010828441,0.0633931691922,0.0637930493116,0.0638312987143,0.0642033610863,0.0644780613422,0.064564991803,0.0643528814788,0.064516310745,0.0648501237142,0.0648501237142,0.0645928095504,0.0643494042603,0.0641477255914,0.0642068383047,0.0643737447893,0.0642868143286,0.0644711069054,0.0642868143286,0.0641025217518,0.0640781812228,0.0643841764446,0.064662353919,0.0649648719224,0.0649892124514,0.0651004834412,0.0652221860862,0.0653160709838,0.0654586369394,0.0653299798575,0.0651978455572,0.0648605553695,0.0648257831852,0.0645789006767,0.0648049198746,0.0646345361716,0.064613672861,0.0643702675709,0.0643702675709,0.0642868143286,0.0644467663764,0.0646414906084,0.0645510829293,0.0645789006767,0.064265951018,0.0643181092945,0.064071226786,0.0642207471784,0.0642589965812,0.0644224258474,0.0643980853184,0.0643111548576,0.0644432891579,0.0644606752501,0.0646241045163,0.0646762627927,0.0648188287483,0.065010075762,0.0649926896698,0.0648848958985,0.0648153515299,0.0647458071613,0.0645858551136,0.0647318982876,0.0648327376221,0.0647214666323,0.0648014426562,0.0645545601477,0.0646901716664,0.0648501237142,0.0647284210692,0.0645476057108,0.0646553994822,0.0645476057108,0.0643424498235,0.0645684690214,0.064686694448,0.0649161908644,0.0648744642432,0.0647214666323,0.0646901716664,0.0651491644992,0.0650796201306,0.0651735050282,0.0653160709838,0.0653056393285,0.0656672700452,0.065576862366,0.0655838168029,0.0655664307107,0.0656603156083,0.0652604354889,0.0656046801135,0.0655316585264,0.0652639127074,0.0650691884753,0.0645441284924,0.0646936488849,0.0644850157791,0.0648153515299,0.064985735233,0.0651526417176,0.0651735050282,0.0653230254207,0.0655594762739,0.065528181308,0.0657124738848,0.0655559990554,0.0653717064787,0.0651630733729,0.0653334570759,0.0656881333558,0.0654482052841,0.0653856153524,0.0654899319053,0.0656359750793,0.0655107952159,0.0653995242261,0.0659106753353,0.0658341765298,0.0657820182534,0.0654760230316,0.0652395721783,0.0653890925708,0.0652256633046,0.0650726656937,0.0651700278097,0.0652952076732,0.0650900517859,0.0652326177415,0.0649474858302,0.0650413707279,0.0654412508473,0.0651839366835,0.0651526417176,0.065430819192,0.06547950025,0.065455159721,0.0654377736288,0.0654342964104,0.06547950025,0.0654621141578,0.0649961668883,0.0651630733729,0.065357797605,0.0648988047722,0.0648918503354,0.0651004834412,0.0652708671442,0.0654099558814,0.0655594762739,0.0657889726902,0.0659802197039,0.0655838168029,0.0653647520418,0.0654482052841,0.0651908911203,0.0650378935094,0.0648292604036,0.0647006033217,0.0646275817347,0.0644363347211,0.0646414906084,0.0650622340384,0.0651665505913,0.0652117544309,0.0654447280657,0.0652291405231,0.065180459465,0.0650170301988,0.0652360949599,0.0651491644992,0.0652569582705,0.0650935290043,0.0649544402671,0.0650726656937,0.0650274618541,0.0650031213251,0.0650761429121,0.0652430493968,0.0650691884753,0.0650483251647,0.0647318982876,0.0646971261033,0.0647388527245,0.0646971261033,0.0644780613422,0.0646553994822,0.0646484450453,0.0646101956426,0.0645615145845,0.0643424498235,0.064314632076,0.0643424498235,0.0644989246528,0.0645024018712,0.0646901716664,0.0644432891579,0.0645058790897,0.0642068383047,0.0643111548576,0.0643459270419,0.0645336968371,0.064564991803,0.064540651274,0.0643354953866,0.0639773418884,0.0641755433389,0.0640260229464,0.0578157108309,0.051302880712,0.044998683699,0.0383745825904,0.0)
m <- c(0.0383635706361,0.0448060693403,0.0509814315877,0.057385767941,0.0635541915792,0.0635958232348,0.0634501124402,0.0629748177054,0.0631413443278,0.0634778668772,0.0635784767116,0.0635854153209,0.0638560210823,0.0636721479367,0.0641266268437,0.0642341752873,0.0641474426715,0.0644666186977,0.064785794724,0.064227236678,0.0639878546583,0.0638629596915,0.0640364249232,0.0643070306846,0.0642445832012,0.0640919337973,0.0644666186977,0.064681715585,0.0646504918433,0.064681715585,0.0650217074391,0.0652645587634,0.0652298657171,0.0650459925715,0.0651396637966,0.0651292558827,0.0649176283001,0.0647927333333,0.0644562107838,0.0647511016777,0.0644631493931,0.0642168287641,0.0642029515456,0.0644666186977,0.0645082503533,0.0646678383665,0.0649835450881,0.0649106896908,0.0650147688298,0.06520211128,0.0653096597237,0.0655767961804,0.0655767961804,0.065514348697,0.0655108793924,0.0654900635646,0.0653755765117,0.065278435982,0.0656669981009,0.0653165983329,0.0653616992932,0.0653339448561,0.0655837347897,0.0656253664453,0.0654241467766,0.0658404633326,0.0659167880345,0.065930665253,0.0659133187299,0.0662741264117,0.0662186175376,0.0662359640608,0.0660624988291,0.066281065021,0.0664718767759,0.0663261659812,0.0664649381666,0.0664337144249,0.0661943324052,0.0660694374384,0.0663053501534,0.0664128985971,0.0663226966766,0.0658369940279,0.065760669326,0.0656600594916,0.0653270062468,0.0655039407831,0.0654796556507,0.0655004714785,0.0655767961804,0.0655282259156,0.065656590187,0.0658716870743,0.065930665253,0.0658925029021,0.0657953623723,0.0657572000214,0.0658439326372,0.0658023009816,0.0657016911472,0.0654796556507,0.0652680280681,0.0653096597237,0.0652368043264,0.0653304755515,0.065722506975,0.0656635287963,0.0654553705183,0.0658959722067,0.065968827604,0.0661665779681,0.0662914729349,0.0665412628685,0.0666488113122,0.0668118686299,0.0666800350539,0.0667910528021,0.0671692070072,0.066801460716,0.0666869736631,0.0666279954844,0.0666800350539,0.0664059599878,0.0662463719747,0.0661839244913,0.0662012710144,0.0662047403191,0.066111069094,0.0662359640608,0.0660902532662,0.0663712669415,0.0665169777361,0.0663677976368,0.0662324947561,0.0661873937959,0.0661249463125,0.0662602491932,0.0666141182658,0.0663504511137,0.0663539204183,0.0661596393588,0.0656878139287,0.0659098494252,0.0660000513457,0.0660659681337,0.0662845343256,0.0661180077032,0.0658751563789,0.0659549503855,0.0660312750874,0.0660278057828,0.0661353542264,0.0659653582994,0.0661665779681,0.0657710772399,0.0655802654851,0.0653408834654,0.0650459925715,0.0652333350217,0.0649523213464,0.0650390539623,0.065240273631,0.0653235369422,0.0650633390947,0.0653790458163,0.0652263964125,0.0653408834654,0.0654588398229,0.0652125191939,0.0655108793924,0.065410269558,0.0652680280681,0.0651015014457,0.0652055805847,0.0650008916113,0.06520211128,0.0652472122403,0.0651639489291,0.0651604796244,0.0649974223067,0.0650668083993,0.0651292558827,0.0654519012136,0.0654068002534,0.0654380239951,0.0653096597237,0.0654206774719,0.0654553705183,0.065410269558,0.0656114892268,0.0654206774719,0.0652263964125,0.0648794659491,0.0647753868101,0.0646504918433,0.0648274263796,0.064265399029,0.0640260170093,0.0637345954201,0.0635888846255,0.063575007407,0.063328686778,0.0632662392946,0.0633390946919,0.0633529719104,0.0633841956521,0.0635992925394,0.0633564412151,0.0635888846255,0.0635194985328,0.0635056213143,0.0635472529699,0.0635715381023,0.0632835858178,0.0635472529699,0.0633911342614,0.0633460333012,0.0635090906189,0.0635403143606,0.0634570510494,0.0635715381023,0.0637033716784,0.0637935735989,0.0639774467444,0.0638525517776,0.0635541915792,0.0634952134004,0.0637901042942,0.0638039815128,0.0640260170093,0.0636201083672,0.0636443934996,0.0639184685657,0.0640433635325,0.063991323963,0.0641509119761,0.0643486623402,0.0642480525058,0.0641058110159,0.0638282666452,0.0638178587313,0.0640607100556,0.0635229678375,0.0634431738309,0.0632454234668,0.0631031819768,0.0632037918112,0.0628915543942,0.0629435939637,0.0629401246591,0.0630303265795,0.0628672692618,0.0631135898907,0.0632003225066,0.0630372651888,0.0633841956521,0.06326276999,0.0633009323409,0.0631656294602,0.0630580810166,0.0631933838973,0.062912370222,0.0630476731027,0.062846453434,0.0631239978046,0.0629470632683,0.0629193088313,0.0628013524737,0.062950532573,0.0630754275398,0.0632662392946,0.0632731779039,0.0630997126722,0.0631933838973,0.0628776771757,0.0628013524737,0.0626487030698,0.0626938040301,0.0623434042621,0.0624023824409,0.0621109608517,0.0622740181694,0.0622705488648,0.0620346361497,0.0623572814806,0.0622081013814,0.0623885052223,0.062666049593,0.0626729882023,0.0626695188976,0.0626799268115,0.0628395148247,0.0627735980367,0.0626174793281,0.0622948339972,0.0624127903548,0.0622427944277,0.0623434042621,0.0625550318447,0.0624717685335,0.0624370754872,0.0623503428714,0.0622081013814,0.0625897248911,0.0627284970764,0.0628360455201,0.0628221683015,0.0626452337652,0.0624717685335,0.0627076812486,0.0623295270436,0.0622393251231,0.0622532023416,0.0622809567787,0.0622532023416,0.0622774874741,0.062496053666,0.0625168694938,0.0625931941957,0.0622081013814,0.0625931941957,0.0626521723745,0.0627215584672,0.062600132805,0.0629089009174,0.0628117603876,0.0625931941957,0.0625480932355,0.0627944138645,0.0630442037981,0.0630719582351,0.0629540018776,0.0631829759834,0.0632662392946,0.0628221683015,0.0627319663811,0.0628429841293,0.0627770673413,0.0627493129042,0.0627735980367,0.0627666594274,0.0628117603876,0.062627887242,0.0623676893945,0.0626972733347,0.0626625802884,0.0625723783679,0.0628915543942,0.0626591109837,0.0626244179374,0.0622289172092,0.0622948339972,0.0623260577389,0.0624266675733,0.0623503428714,0.062457891315,0.0625758476725,0.0621595311165,0.0623364656528,0.0624440140965,0.0629366553544,0.0629713484008,0.0629193088313,0.0631205285,0.0629748177054,0.0630233879703,0.0631274671093,0.0633390946919,0.0634154193938,0.0629644097915,0.0630199186656,0.0629158395266,0.062874207871,0.062808291083,0.0628256376062,0.0626556416791,0.0624717685335,0.0624162596594,0.0621699390304,0.0623087112158,0.0622323865138,0.0624023824409,0.0626868654208,0.062666049593,0.0629886949239,0.0631482829371,0.0631933838973,0.0633911342614,0.0636686786321,0.0640121397908,0.063887244824,0.063953161612,0.0638005122081,0.0638907141286,0.0640676486649,0.0642237673734,0.0642862148568,0.0641439733668,0.0641821357178,0.0641925436317,0.0646227374063,0.0648170184657,0.0649557906511,0.0649384441279,0.0645880443599,0.0646608997572,0.0647615095916,0.0651049707503,0.0650598697901,0.0651431331013,0.0649315055186,0.0648204877704,0.0650529311808,0.0651778261476,0.0656114892268,0.0655421031341,0.0657190376704,0.0656114892268,0.0656982218426,0.0657918930677,0.0659931127364,0.0660694374384,0.0657710772399,0.0657918930677,0.0658196475048,0.0661700472727,0.066346981809,0.0666418727029,0.0671726763118,0.0672247158813,0.0675057295566,0.067880414457,0.0682481607481,0.068543051642,0.068438972503,0.0685187665096,0.0683869329335,0.0684459111123,0.0682412221389,0.0681440816091,0.0681371429999,0.0680122480331,0.0680122480331,0.0681059192582,0.068477134854,0.0683765250196,0.0687928415756,0.06889345141,0.0692889521382,0.0697607775683,0.0696393519061,0.0699724051509,0.0704234147533,0.0705413711108,0.0708536085278,0.0710964598522,0.0708640164417,0.0710929905475,0.07111727568,0.0715023684943,0.0718666454808,0.0717937900835,0.0720782730634,0.0723419402156,0.071949908792,0.0722586769044,0.0726715241557,0.072952537831,0.073094779321,0.072820704255,0.0729039675662,0.0730358011422,0.0730358011422,0.0731364109766,0.0735319117048,0.0737921095523,0.0739586361747,0.074107816274,0.0742708735917,0.0746212733597,0.0751139146176,0.0754539064717,0.0758251220675,0.0758181834582,0.0762622544513,0.0763489870671,0.0766230621332,0.0764149038552,0.0765224522988,0.076917953027,0.076956115378,0.077087948954,0.0768069352787,0.0772544755764,0.0774626338544,0.0773238616691,0.0772267211394,0.077580590212,0.0781252710394,0.0779760909402,0.0781564947811,0.0784652628935,0.0789197418005,0.0794054444491,0.0792285099128,0.0797870679588,0.0801513449453,0.0803109329585,0.0803039943492,0.0806960257728,0.08119560564,0.0814488648782,0.0816639617655,0.0816257994145,0.0819692605732,0.0821600723281,0.0823716999107,0.0826284284536,0.0828816876918,0.0832182102412,0.0833326972942,0.0832945349432,0.0835582020953,0.0834263685193,0.083589425837,0.0836692198436,0.0837524831548,0.0842694095452,0.0844151203398,0.0845434846112,0.084422058949,0.0846510330548,0.0846128707039,0.0846753181873,0.0846198093131,0.0850500030877,0.0856085611337,0.0858687589812,0.0859901846433,0.086201812226,0.0866632297422,0.0871593403048,0.0872530115299,0.0879468724566,0.0883284959662,0.0886268561647,0.0889044005354,0.0889044005354,0.0890709271578,0.0892617389126,0.0892825547404,0.0894352041443,0.0900041701042,0.0900145780181,0.0906633379845,0.0905870132826,0.0905002806667,0.0908229259977,0.0911351634147,0.0911629178517,0.0917873926857,0.0921308538444,0.0924673763939,0.0929877720889,0.0931577680159,0.0932722550688,0.0937614270221,0.0938793833797,0.0941118267901,0.0945038582137,0.0945177354322,0.0943546781144,0.0943581474191,0.0945663056971,0.094954867816,0.094927113379,0.0951248637431,0.0954648555971,0.0960164750338,0.0966340112586,0.0967762527486,0.097282771225,0.0976366402976,0.0978135748339,0.0978101055293,0.0985733525487,0.0991041561576,0.0996245518526,0.0996939379452,0.0995170034089,0.0995170034089,0.100002706058,0.100228210859,0.10022127225,0.100131070329,0.100151886157,0.0999749516205,0.100314943475,0.101095537017,0.101855314732,0.102889167513,0.103499765128,0.104703613836,0.106174599,0.107704562344,0.109165139594,0.110310010123,0.111246722374,0.111774056679,0.112832194592,0.113782784061,0.114733373531,0.115267646445,0.115794980749,0.116148849821,0.11668659204,0.117793300218,0.118251248429,0.118990210316,0.119389180349,0.119715294985,0.119739580117,0.119906106739,0.120259975812,0.120908735778,0.1212244425,0.121071793096,0.121109955447,0.121852386639,0.121835040116,0.122036259784,0.122390128857,0.122896647333,0.123139498658,0.123267862929,0.123302555975,0.123406635114,0.123725811141,0.123267862929,0.123673771571,0.123999886207,0.124558444253,0.124607014518,0.125110063689,0.125137818127,0.125460463457,0.125914942364,0.126397175708,0.126782268523,0.127451844317,0.128239376469,0.128163051767,0.128870789912,0.129169150111,0.129606282494,0.129901173388,0.130088515838,0.130709521368,0.131375627857,0.131694803884,0.132055611566,0.132974977293,0.133190074181,0.133547412558,0.134577796034,0.135701850735,0.136704479774,0.137537112886,0.137981183879,0.138321175733,0.138702799243,0.139018505965,0.139788691593,0.140177253712,0.140597039573,0.140597039573,0.140832952288,0.140867645334,0.141200698579,0.141367225202,0.141499058778,0.142088840565,0.142251897883,0.142498218512,0.142623113479,0.143119224041,0.143455746591,0.143486970333,0.143858185928,0.144104506557,0.144569393378,0.144572862683,0.145003056457,0.14530488596,0.145252846391,0.145513044238,0.145349986921,0.145388149272,0.145107135596,0.145624061987,0.145631000596,0.14493020106,0.144222462915,0.144229401524,0.144170423345,0.143767984008,0.143535540597,0.143660435564,0.143948387849,0.143490439637,0.143452277286,0.143837370101,0.14355982573,0.14322330318,0.143434930763,0.143244119008,0.14394144924,0.143591049472,0.143660435564,0.143205956657,0.142557196691,0.142303937453,0.143001267684,0.142845148975,0.142505157121,0.142578012519,0.14233169189,0.142265775102,0.14171068636,0.142050678214,0.142050678214,0.141832112022,0.141155597619,0.140985601692,0.140694180103,0.140444390169,0.139833792554,0.13958400262,0.139074014839,0.138765246727,0.138668106197,0.138754838813,0.139011567356,0.138949119872,0.138709737852,0.138414846959,0.138102609542,0.138081793714,0.138137302588,0.138147710502,0.137797310734,0.137169366595,0.13631938696,0.136121636596,0.135722666563,0.135604710206,0.135753890305,0.135445122192,0.13509125312,0.134667997954,0.134286374445,0.134615958385,0.134661059345,0.134518817855,0.134348821928,0.133984544942,0.133464149247,0.132777226929,0.132572537956,0.132121528354,0.131982756168,0.131531746566,0.131368689248,0.131011350871,0.130320959249,0.129814440772,0.12974505468,0.129800563554,0.129786686335,0.129307922296,0.129058132362,0.128631407892,0.128169990376,0.127729388688,0.12813529733,0.127854283655,0.127153484119,0.126813492264,0.126227179781,0.125592297034,0.125273121007,0.125033738988,0.124898436107,0.124162943525,0.123524591472,0.123385819287,0.12311868283,0.122632980181,0.122292988327,0.122296457632,0.121824632202,0.121373622599,0.120891389255,0.120901797169,0.120652007236,0.120381401474,0.119913045349,0.11965978611,0.11919489929,0.119420404091,0.119205307203,0.119104697369,0.119076942932,0.118712665946,0.118331042436,0.117689221079,0.117519225152,0.117092500682,0.117005768066,0.116613736642,0.116346600186,0.115770695616,0.115177444524,0.115042141643,0.114587662736,0.114379504458,0.113755029624,0.113741152406,0.113598910916,0.113241572539,0.112738523367,0.112585873963,0.112630974923,0.112554650221,0.11256852744,0.112349961248,0.112315268202,0.111711609195,0.111302231249,0.111087134361,0.111264068898,0.111170397673,0.110733265289,0.110136544892,0.109685535289,0.109130446548,0.108630866681,0.108571888502,0.108741884429,0.108509441019,0.108093124463,0.107701093039,0.107246614132,0.107021109331,0.106962131152,0.106899683669,0.106920499497,0.106882337146,0.10612949804,0.105536246948,0.105397474763,0.105022789862,0.104835447412,0.104346275459,0.103766901585,0.103704454101,0.103510173042,0.102941207082,0.10239305695,0.102240407546,0.10158470897,0.101331449732,0.100935949004,0.100935949004,0.101019212315,0.100838808474,0.100457184965,0.100412084004,0.100325351389,0.0997251616869,0.0993782312236,0.0990451779788,0.0987572256942,0.0984588654958,0.0978933688405,0.0974007275826,0.0975429690725,0.0970295119868,0.0968352309273,0.0965680944706,0.0965021776825,0.0960962690404,0.0961934095701,0.0959609661597,0.0956001584778,0.0954787328157,0.0948056877168,0.0943199850681,0.0936434706646,0.0936712251017,0.0930779740094,0.0923494200363,0.0913259751695,0.0902262056007,0.089608669376,0.08876562835,0.0879989120261,0.0874542311986,0.0867118000071,0.0859901846433,0.0854663196437,0.0850812268294,0.0848487834189,0.0846059320946,0.0841896155386,0.0837386059363,0.0834818773934,0.0830933152744,0.0828920956057,0.08223639703,0.0818478349111,0.0819172210037,0.0813309085207,0.0814453955736,0.0810741799778,0.0809145919647,0.0805954159384,0.0802033845148,0.0802415468658,0.0801235905083,0.0798633926608,0.0793464662704,0.0791279000785,0.0789197418005,0.078791377529,0.0784860787213,0.0781946571321,0.0783299600128,0.0778893583244,0.0776569149139,0.0777089544834,0.0777089544834,0.0776048753444,0.0768104045834,0.0766265314378,0.0766612244841,0.0764010266366,0.0762761316698,0.0763073554115,0.0762587851467,0.0758459378953,0.0756585954451,0.0753914589883,0.0753741124651,0.0752977877632,0.075044528525,0.0750688136574,0.074551887267,0.0744269923002,0.0743576062076,0.0743645448168,0.0739447589562,0.073757416506,0.0736602759762,0.0738337412079,0.0734382404797,0.0732196742878,0.0732057970693,0.073028862533,0.072848458692,0.0726333618048,0.0727756032947,0.0730635555793,0.0732057970693,0.0725188747519,0.0727062172021,0.0729802922681,0.0729629457449,0.0725327519704,0.0720678651495,0.0719290929642,0.0718805226993,0.0715370615406,0.0713080874348,0.0714468596201,0.0711970696865,0.0706974898193,0.0707113670379,0.0705483097201,0.0707078977332,0.0706003492896,0.0703748444884,0.0702048485614,0.0699446507139,0.0695769044227,0.0693132372706,0.0694971104162,0.0692022195223,0.0696636370386,0.0695352727671,0.0693028293567,0.0693167065752,0.0695005797208,0.0693722154494,0.0695977202505,0.0694658866745,0.0691328334297,0.0692473204826,0.0685118279003,0.0685846832976,0.0690565087277,0.0687095782644,0.0682065290925,0.0680816341257,0.0679428619404,0.0681718360462,0.0681510202184,0.0676791947883,0.0678977609802,0.0677693967087,0.0672836940601,0.0672385930998,0.0673461415435,0.0675924621724,0.0674016504176,0.0670790050867,0.0667528904512,0.0668951319411,0.0668222765438,0.0665828945241,0.0665690173056,0.06666962714,0.0663573897229,0.0661353542264,0.0661839244913,0.0661006611801,0.066319227372,0.0660590295245,0.0659133187299,0.0657120990611,0.0655247566109,0.065306190419,0.065760669326,0.065694752538,0.0656010813129,0.0654380239951,0.0651396637966,0.0652263964125,0.0651015014457,0.0652472122403,0.0651882340615,0.0650147688298,0.0644631493931,0.0643417237309,0.0644145791282,0.0644631493931,0.0645255968765,0.0643486623402,0.0645811057506,0.0646955928036,0.0644215177375,0.0643868246912,0.0644492721746,0.0644319256514,0.0642549911151,0.0642584604197,0.0641890743271,0.0642862148568,0.0643590702541,0.0638456131684,0.0639358150888,0.0640641793603,0.0640190784,0.0639566309166,0.0637762270757,0.0635333757514,0.0637172488969,0.063498682705,0.0634466431355,0.0636617400228,0.0635958232348,0.0633841956521,0.063366849129,0.0633737877382,0.0635923539301,0.0637970429035,0.0636929637645,0.0635680687977,0.0632593006853,0.0632454234668,0.0631899145927,0.063082366149,0.0632003225066,0.0631760373741,0.0630684889305,0.0629644097915,0.0625931941957,0.0627840059506,0.0629678790961,0.0629401246591,0.0630511424073,0.0632835858178,0.0631795066788,0.0631656294602,0.0632141997251,0.0632523620761,0.063366849129,0.0633044016456,0.0631170591954,0.0628776771757,0.0627319663811,0.0625862555864,0.062561970454,0.0626348258513,0.0625550318447,0.0623399349575,0.0622913646926,0.0624995229706,0.0624544220104,0.0629609404869,0.0630754275398,0.0632454234668,0.0631517522417,0.0628291069108,0.0625689090633,0.0626868654208,0.0628707385664,0.0624370754872,0.0625689090633,0.0622185092953,0.0620589212822,0.061899333269,0.0619340263154,0.0618195392625,0.0618646402227,0.0617848462161,0.0617744383022,0.0618681095273,0.0617397452559,0.0618126006532,0.0618889253551,0.0617119908188,0.0618264778717,0.0622046320768,0.0623399349575,0.0624717685335,0.0626625802884,0.0628950236988,0.0629366553544,0.0630199186656,0.0629470632683,0.0631066512815,0.0631274671093,0.0631517522417,0.0631309364139,0.0630442037981,0.0625897248911,0.0625064615799,0.0624405447918,0.0625307467123,0.0627840059506,0.0631656294602,0.0630233879703,0.0630962433676,0.0631309364139,0.0631066512815,0.0632870551224,0.0634848054865,0.0636721479367,0.0634015421753,0.0632731779039,0.0629678790961,0.0630476731027,0.0627805366459,0.0626070714142,0.0627493129042,0.0627597208181,0.0626938040301,0.0623191191297,0.0624891150567,0.0626799268115,0.062704211944,0.0627389049903,0.0629193088313,0.0631795066788,0.0630095107517,0.0629574711822,0.0626972733347,0.0631101205861,0.0629262474405,0.0629678790961,0.0629748177054,0.0630684889305,0.0630893047583,0.0631899145927,0.063640924195,0.0634223580031,0.063575007407,0.0634813361819,0.0632419541622,0.0630199186656,0.0627284970764,0.0623329963482,0.0622809567787,0.0620311668451,0.0554707117834,0.0494618761583,0.0431512110302,0.0368093221603,0.0)
ycorr <- c(7.15902268083e-05,7.14386160706e-05,7.09916266113e-05,7.02511291084e-05,6.92191362134e-05,6.78949335795e-05,6.62790584068e-05,6.46584418207e-05,6.30307627019e-05,6.13926727766e-05,5.97444626311e-05,5.80928504799e-05,5.64444231497e-05,5.47940539533e-05,5.31460207016e-05,5.14970734679e-05,4.98447009727e-05,4.81844140909e-05,4.65146582518e-05,4.48370517812e-05,4.31542969955e-05,4.14670055673e-05,3.97701900924e-05,3.80668985302e-05,3.63539510524e-05,3.46288463041e-05,3.28913092462e-05,3.11453675802e-05,2.93908368318e-05,2.76313169428e-05,2.5866406988e-05,2.40934920981e-05,2.23087820103e-05,2.05118356148e-05,1.86974792929e-05,1.68685674665e-05,1.50260332584e-05,1.31664963334e-05,1.12897046538e-05,9.39463420855e-06,7.47768670991e-06,5.53868778429e-06,3.57763482481e-06,1.59464313274e-06,-4.0882110757e-07,-2.43114394501e-06,-4.47133479188e-06,-6.52894065567e-06,-8.60073255845e-06,-1.06935334205e-05,-1.28084729414e-05,-1.49472708794e-05,-1.71121174128e-05,-1.92992954035e-05,-2.15067169996e-05,-2.37327591278e-05,-2.59775799219e-05,-2.82407502888e-05,-3.05242317569e-05,-3.28289378262e-05,-3.51452645792e-05,-3.74698431127e-05,-3.97990106019e-05,-4.2132004638e-05,-4.44694743584e-05,-4.68128321595e-05,-4.91674168411e-05,-5.15328489358e-05,-5.39068890633e-05,-5.62874538707e-05,-5.86759328714e-05,-6.10779589459e-05,-6.34923921158e-05,-6.59212611743e-05,-6.83620968659e-05,-7.08160555279e-05,-7.32781254384e-05,-7.57476081664e-05,-7.8226487263e-05,-8.07128804743e-05,-8.32089696742e-05,-8.5705707802e-05,-8.81999623198e-05,-9.06909219387e-05,-9.31816033665e-05,-9.56724036637e-05,-9.81580411739e-05,-0.000100637058338,-0.000103106146437,-0.000105561871447,-0.000108006347039,-0.000110440307887,-0.000112871252117,-0.000115301553144,-0.00011772819149,-0.000120148664784,-0.000122566075021,-0.000124982072429,-0.000127398635275,-0.000129818667632,-0.000132239133647,-0.000134665401628,-0.000137090219072,-0.000139512709081,-0.000141928778908,-0.0001443360649,-0.000146730890258,-0.000149117239195,-0.000151495997858,-0.000153867862323,-0.000156232113789,-0.000158590311259,-0.000160936603395,-0.000163273542082,-0.000165602463881,-0.000167928408863,-0.000170256594919,-0.000172584194907,-0.000174905332021,-0.000177221599609,-0.000179534117324,-0.000181836086145,-0.000184130926582,-0.000186415495512,-0.000188692729424,-0.000190960105164,-0.000193218314198,-0.000195469995023,-0.000197719388827,-0.000199963640965,-0.000202202000245,-0.000204432470082,-0.000206660299229,-0.000208885993794,-0.000211112757314,-0.000213338373986,-0.000215559817535,-0.000217770549256,-0.000219970536081,-0.000222158476491,-0.00022433759452,-0.000226512950052,-0.000228684045051,-0.000230848080763,-0.000233003058503,-0.000235147859057,-0.000237287918289,-0.000239426551636,-0.000241564093669,-0.000243698270704,-0.000245828898232,-0.000247951958695,-0.000250061863631,-0.000252161761022,-0.000254252596108,-0.000256335126496,-0.000258409946512,-0.000260473597863,-0.000262527848555,-0.000264571482837,-0.000266602238605,-0.000268625522178,-0.000270643486121,-0.00027265893312,-0.000274667836942,-0.000276671327446,-0.000278665856339,-0.000280649668341,-0.000282619094943,-0.000284576497525,-0.000286525653272,-0.000288463786989,-0.000290388435689,-0.000292296754831,-0.000294185740463,-0.000296061261725,-0.000297922952624,-0.000299774347567,-0.000301614536115,-0.000303445338206,-0.000305262607391,-0.000307067948209,-0.000308865059094,-0.000310653997081,-0.000312440131266,-0.00031422044374,-0.000315992130896,-0.000317753364963,-0.000319507632191,-0.000321258091524,-0.000323005325497,-0.000324745809269,-0.000326480298401,-0.000328208733634,-0.000329933108098,-0.000331651631539,-0.0003333701592,-0.000335091537905,-0.000336812992083,-0.000338528600762,-0.000340237256829,-0.000341941795188,-0.000343643573425,-0.000345342131836,-0.000347036538205,-0.000348724104375,-0.000350401176407,-0.000352066065934,-0.000353719098918,-0.0003553636797,-0.000357001762384,-0.000358630264859,-0.00036024878875,-0.000361858790728,-0.000363458237003,-0.000365047276077,-0.000366626098162,-0.000368199170602,-0.000369767952509,-0.000371330704295,-0.000372886222552,-0.000374436318542,-0.000375981235575,-0.000377518376447,-0.000379050188106,-0.000380578623746,-0.000382105795764,-0.000383626823737,-0.000385137159883,-0.000386635706175,-0.000388120383517,-0.000389592256924,-0.000391051409621,-0.000392504491603,-0.000393952202617,-0.000395391329743,-0.000396820543902,-0.000398239984377,-0.000399652920652,-0.00040106271161,-0.000402471234221,-0.000403880335275,-0.000405291695918,-0.000406698922277,-0.000408094934865,-0.00040948162442,-0.000410856351184,-0.000412218410962,-0.000413567029844,-0.000414902095359,-0.000416224747309,-0.000417532797004,-0.000418822942353,-0.00042009402096,-0.000421352305757,-0.000422597176114,-0.000423829216798,-0.000425050753416,-0.000426263555934,-0.000427469576634,-0.000428668396556,-0.000429858691481,-0.000431042262867,-0.000432219463012,-0.000433386365214,-0.000434540921561,-0.000435686064915,-0.000436820982726,-0.000437947220717,-0.00043906285185,-0.000440165318899,-0.000441257694609,-0.000442337554815,-0.000443404828933,-0.00044446100311,-0.00044551257775,-0.000446557997643,-0.000447601274717,-0.000448640741892,-0.000449673076702,-0.000450700297139,-0.000451719349937,-0.000452725273663,-0.000453717487545,-0.000454697779497,-0.000455661752439,-0.000456604832355,-0.00045752344781,-0.00045840939605,-0.000459260717929,-0.000460074858822,-0.000460850554855,-0.00046159364455,-0.000462304859298,-0.000462986147129,-0.000463633937864,-0.000464253318078,-0.000464846497493,-0.000465419272284,-0.000465978365885,-0.000466527125617,-0.000467068820363,-0.000467601016785,-0.000468122681165,-0.000468632257941,-0.000469132245985,-0.000469625973824,-0.000470110814425,-0.000470589211052,-0.000471056514764,-0.000471511984491,-0.00047195469443,-0.000472386317978,-0.000472811570129,-0.000473227800353,-0.000473636097508,-0.000474032778148,-0.000474415462358,-0.000474787602687,-0.000475148704966,-0.00047550133965,-0.000475843735743,-0.000476176796786,-0.000476498329889,-0.000476808564046,-0.000477112972561,-0.000477413923185,-0.000477712027212,-0.000478001000212,-0.000478279267029,-0.000478546258242,-0.000478803182161,-0.000479052711703,-0.000479293593118,-0.000479526671996,-0.000479746259754,-0.000479949743109,-0.000480137533397,-0.000480312568568,-0.00048048039768,-0.000480640250568,-0.000480791902748,-0.000480932138391,-0.000481061960851,-0.000481182891766,-0.00048129573864,-0.000481399495723,-0.000481491946686,-0.000481572472081,-0.000481642806093,-0.000481700015599,-0.000481744577511,-0.000481775509302,-0.00048179543099,-0.000481800205501,-0.000481789832027,-0.000481766871134,-0.00048173730151,-0.000481703307754,-0.000481660072703,-0.000481607499331,-0.000481550293917,-0.000481487385313,-0.000481414270491,-0.000481329929019,-0.000481234980204,-0.000481128914822,-0.000481008356818,-0.00048087158803,-0.000480718519062,-0.000480551768441,-0.00048036545769,-0.000480160980625,-0.000479938189792,-0.000479703832989,-0.000479458255584,-0.000479201656437,-0.00047893348277,-0.000478653406952,-0.000478359206545,-0.000478050061178,-0.000477730677837,-0.000477400538702,-0.000477062042892,-0.000476713541045,-0.000476351363724,-0.000475976400892,-0.000475589765501,-0.000475187734996,-0.000474774821965,-0.000474350709902,-0.000473912752992,-0.000473461619102,-0.000472995017309,-0.000472510536006,-0.000472013800718,-0.000471502611817,-0.000470975060024,-0.000470433359763,-0.000469880619945,-0.000469316220222,-0.000468741656726,-0.000468153934231,-0.000467551306671,-0.000466938509609,-0.000466310640465,-0.000465666503855,-0.000465008962117,-0.000464340242038,-0.000463654553367,-0.000462951967485,-0.000462227643366,-0.000461484477114,-0.000460727625177,-0.000459952986061,-0.000459162368273,-0.000458357254683,-0.000457534105271,-0.000456693004386,-0.000455835377821,-0.000454961620854,-0.000454074697134,-0.000453174482504,-0.000452258550801,-0.000451325068859,-0.000450375247001,-0.000449408288482,-0.000448429251403,-0.000447437781775,-0.000446432686012,-0.000445410313637,-0.000444369777304,-0.000443309026736,-0.000442228602179,-0.000441132016182,-0.000440020990417,-0.000438894454508,-0.000437746600338,-0.00043657330091,-0.000435377233374,-0.000434160239918,-0.000432925916912,-0.000431676382967,-0.000430412992354,-0.000429136097502,-0.000427838708916,-0.000426521075431,-0.000425186088756,-0.000423838714497,-0.000422475795118,-0.00042109731444,-0.000419700694125,-0.000418283561969,-0.000416847435449,-0.000415386097522,-0.000413901728969,-0.000412397724191,-0.000410872457175,-0.000409324379488,-0.00040775496228,-0.000406165246609,-0.000404556719355,-0.000402929478411,-0.000401283954185,-0.000399620397608,-0.000397941828835,-0.000396245329441,-0.000394531685291,-0.00039280154711,-0.000391056440464,-0.000389295429529,-0.000387517708076,-0.000385719942154,-0.000383900809418,-0.000382060531612,-0.000380197222616,-0.000378311782093,-0.000376405558812,-0.000374477400226,-0.000372524782958,-0.000370546443395,-0.000368540278954,-0.0003665108227,-0.000364460558522,-0.000362391435601,-0.000360303186194,-0.000358196556419,-0.00035607132844,-0.000353927704345,-0.000351767132435,-0.000349591039042,-0.000347399897142,-0.00034519458029,-0.000342969220152,-0.000340720468846,-0.00033844920932,-0.000336155912759,-0.000333840211718,-0.000331502415446,-0.000329141372809,-0.000326754923114,-0.000324344017127,-0.000321909389499,-0.00031945191273,-0.000316978607796,-0.00031448973282,-0.000311984501535,-0.000309460304658,-0.000306914479851,-0.000304344960882,-0.000301753885169,-0.000299144100573,-0.000296511676439,-0.000293856948164,-0.000291177366979,-0.000288469338572,-0.000285734042754,-0.000282972831001,-0.0002801863479,-0.000277378667695,-0.000274552158282,-0.000271704844982,-0.000268834980134,-0.000265945797166,-0.000263036634757,-0.000260111314878,-0.000257168866889,-0.000254210750759,-0.000251240418839,-0.000248259431379,-0.000245265660385,-0.000242259138512,-0.000239242026816,-0.000236212392839,-0.000233169804975,-0.00023011123968,-0.000227034329762,-0.000223939060984,-0.00022082268553,-0.000217680528531,-0.000214512413888,-0.000211314716023,-0.000208087747291,-0.00020483112072,-0.000201548488643,-0.000198243530839,-0.000194921623012,-0.00019158070806,-0.000188221513438,-0.000184845027242,-0.000181450516372,-0.000178040912328,-0.000174621887014,-0.000171191524916,-0.000167746087265,-0.000164283179925,-0.000160797842874,-0.000157289945949,-0.000153761380088,-0.000150211681067,-0.000146644318391,-0.000143059849393,-0.000139455201783,-0.000135828019188,-0.000132181181645,-0.0001285195527,-0.000124843131463,-0.000121155338014,-0.000117454254517,-0.000113742177726,-0.000110015999471,-0.000106272758504,-0.000102510785888,-9.87343222153e-05,-9.49438853259e-05,-9.1136788732e-05,-8.73122957453e-05,-8.34714662183e-05,-7.96131840818e-05,-7.5737572253e-05,-7.18469437018e-05,-6.79421383938e-05,-6.4024544977e-05,-6.00942911475e-05,-5.61459911601e-05,-5.2180998083e-05,-4.81999355851e-05,-4.42004096028e-05,-4.01838341396e-05,-3.6149229679e-05,-3.20483461904e-05,-2.78311583121e-05,-2.34585212309e-05,-1.88947906356e-05,-1.38898363564e-05,-9.37420443782e-06,-5.08357792672e-06,-9.79814839821e-07,2.97915223821e-06,6.8464178094e-06,1.06655160012e-05,1.43899969781e-05,1.79690802848e-05,2.13635810125e-05,2.45417847464e-05,2.72520580562e-05,3.04235739724e-05,3.3791782162e-05,3.73168299675e-05,4.09550793223e-05,4.46579255185e-05,4.8378883529e-05,5.21206271826e-05,5.58872010243e-05,5.96736050413e-05,6.34736548182e-05,6.72848339378e-05,7.11064667479e-05,7.49408115085e-05,7.87883976843e-05,8.26482311524e-05,8.65185946312e-05,9.03988861736e-05,9.42857098822e-05,9.81787604055e-05,0.000102080825544,0.000105994487125,0.000109923139999,0.00011386567352,0.000117822465253,0.000121792782563,0.000125775694605,0.000129768937431,0.000133773459604,0.000137788418277,0.00014181253306,0.000145845388187,0.000149884900334,0.000153930959771,0.000157982453543,0.000162038219488,0.000166100758378,0.000170173859881,0.000174256746873,0.000178350263962,0.000182455479577,0.000186571516416,0.000190695668687,0.000194830586595,0.000198973633304,0.00020312700363,0.000207289300133,0.000211459029926,0.00021563774485,0.000219824421767,0.000224019617159,0.000228225943238,0.000232446256539,0.000236681642806,0.000240929591525,0.00024519156562,0.000249466651442,0.000253752305176,0.00025804646655,0.000262350226261,0.000266664230519,0.000270984745881,0.000275309586896,0.000279638555199,0.000283973108474,0.000288313908437,0.000292660348338,0.000297013109456,0.00030137380847,0.000305741510704,0.000310110979384,0.000314486607084,0.000318868138112,0.000323249995083,0.000327632368672,0.000332011634336,0.000336388070662,0.000340760303984,0.000345125745938,0.000349483834905,0.000353837865387,0.000358184632768,0.000362521142881,0.000366851709985,0.000371179764164,0.000375504953386,0.000379824270399,0.000384136794289,0.000388443502081,0.0003927447811,0.000397039036356,0.000401323100953,0.000405600422279,0.000409867105028,0.000414117369945,0.000418351290121,0.000422568970689,0.000426776209983,0.000430970233064,0.000435151808507,0.000439320406788,0.000443476598607,0.000447621677673,0.000451753661592,0.000455874286866,0.000459982434981,0.000464077428538,0.000468153809196,0.000472214447195,0.00047626071075,0.000480290774153,0.000484306596897,0.000488304819783,0.000492286968351,0.00049625134536,0.000500198299138,0.00050413070066,0.000508048945513,0.000511952078758,0.000515836062616,0.000519700128369,0.000523542652487,0.000527364557834,0.000531164909865,0.000534940064423,0.000538691680524,0.000542419606691,0.000546123083738,0.000549801949357,0.000553455514544,0.000557083443131,0.000560687164238,0.000564262632627,0.000567808136436,0.000571329135008,0.000574825233247,0.000578294636692,0.000581737287901,0.000585151100544,0.000588535427153,0.000591893058268,0.000595220464018,0.000598518103489,0.00060178928,0.000605033364865,0.000608247985982,0.0006114341654,0.000614590858367,0.000617714150739,0.000620806269986,0.000623862771536,0.000626883920946,0.000629870814386,0.000632822472475,0.000635738050721,0.000638615942652,0.000641454586701,0.000644251309228,0.000647009845511,0.000649729970854,0.000652414452717,0.000655064815776,0.000657680903987,0.000660260745728,0.000662801294556,0.00066530167035,0.000667761203674,0.000670182200538,0.000672564543521,0.000674906398892,0.000677205861059,0.000679460422374,0.000681669297654,0.000683834771108,0.000685959435058,0.000688046550485,0.000690095929656,0.000692108301951,0.00069408214102,0.000696018680205,0.000697918752841,0.000699784276546,0.000701612257838,0.000703399972344,0.000705143499543,0.000706842867011,0.000708499214538,0.0007101092495,0.000711672633658,0.000713186797932,0.000714650401832,0.000716062052732,0.000717423430468,0.000718737892503,0.000720010552682,0.000721240239321,0.000722424897959,0.000723565373751,0.000724665558696,0.000725725550067,0.000726745315831,0.000727727422729,0.000728669583801,0.000729570544699,0.000730425755041,0.000731235700734,0.00073200073727,0.000732720866247,0.000733391303134,0.000734014627988,0.000734592343869,0.000735124533878,0.000735610971382,0.000736052241155,0.000736452556264,0.000736810672565,0.000737126371067,0.00073740023551,0.000737633116606,0.000737822758617,0.000737968944452,0.000738067476561,0.000738123855197,0.000738139244605,0.000738112918474,0.000738044113099,0.00073793350725,0.000737779121782,0.000737581994287,0.000737344481555,0.000737068169949,0.000736752428564,0.000736399862927,0.000736002665304,0.000735561200081,0.000735076260756,0.000734545228242,0.00073397286259,0.000733358291454,0.000732700176866,0.00073199802581,0.000731251095332,0.000730455223385,0.000729614364616,0.00072873233139,0.000727804405335,0.000726836263162,0.000725828605406,0.000724780089009,0.000723692710265,0.000722565114312,0.000721397649722,0.000720190822098,0.000718947655508,0.000717662378679,0.000716338153147,0.000714974200856,0.000713564371991,0.000712110344373,0.000710611366033,0.000709066897302,0.000707483944962,0.000705862035088,0.00070420198147,0.000702505149669,0.000700770877786,0.000698998615209,0.000697192732148,0.000695355474756,0.000693481414415,0.000691575266484,0.00068963299424,0.000687651896735,0.000685630398467,0.000683566790329,0.000681464903951,0.000679326376441,0.000677149179287,0.000674933080598,0.000672679955265,0.000670391730822,0.000668068497587,0.000665714881041,0.000663331172204,0.000660918433212,0.000658475436695,0.000655997501998,0.000653484437264,0.000650937243681,0.00064835655754,0.000645737472246,0.000643080735363,0.000640381765317,0.00063763727173,0.000634848187118,0.000632016200753,0.000629145032825,0.000626233945343,0.000623282721666,0.000620290766979,0.000617261328081,0.000614195680673,0.000611094375701,0.000607960582954,0.000604795293673,0.000601594500174,0.000598357183675,0.000595088496101,0.000591789368055,0.000588461234813,0.000585101656054,0.000581708221561,0.000578283109304,0.000574828246189,0.000571342793436,0.000567832221513,0.000564298376807,0.000560738455241,0.000557148509106,0.000553530268,0.000549885638171,0.000546217095602,0.00054252498545,0.000538810379633,0.000535073976677,0.000531315951478,0.00052753169989,0.000523722750595,0.000519891205183,0.000516037766869,0.000512161380217,0.00050826170684,0.000504337984503,0.000500385750262,0.000496405408539,0.000492394842651,0.000488355034435,0.000484287647122,0.00048019496694,0.000476076916985,0.000471935089665,0.000467767803097,0.000463575232329,0.000459361946256,0.00045513001637,0.000450879229072,0.000446613860794,0.000442332805576,0.000438033163917,0.000433712709784,0.000429371597469,0.000425010097235,0.000420631661824,0.000416236657885,0.000411825270593,0.000407398467881,0.000402953409475,0.000398487686555,0.000394004066183,0.000389505721143,0.000384989667536,0.000380459238087,0.000375912899423,0.000371350845423,0.000366771386928,0.000362175614905,0.000357564264001,0.00035294181909,0.000348307749173,0.000343661273975,0.000339005519465,0.000334342180105,0.000329670743767,0.000324990792128,0.000320302300554,0.000315604138134,0.000310895134955,0.000306173442847,0.000301439074,0.000296694228833,0.000291940527795,0.000287174824887,0.000282399319083,0.000277613956729,0.000272820239077,0.000268019776706,0.000263217747243,0.000258414900198,0.000253614483585,0.000248814051388,0.000244013124452,0.000239213285127,0.000234417503803,0.000229625936896,0.000224837025774,0.000220048105497,0.00021525622076,0.000210463590931,0.000205670506941,0.000200879171417,0.000196092127645,0.00019130691857,0.000186521196149,0.000181734207763,0.00017694564357,0.00017216212285,0.000167388562143,0.000162625651207,0.000157868047458,0.000153115012159,0.000148364225228,0.000143619035664,0.000138882080005,0.000134151187894,0.000129430785478,0.000124719138022,0.000120010924734,0.000115307422233,0.000110611732923,0.000105929161051,0.000101256521321,9.65948759224e-05,9.19405836303e-05,8.72983394631e-05,8.2668350932e-05,7.8048392153e-05,7.34447654101e-05,6.8854426601e-05,6.42767097998e-05,5.97083602448e-05,5.51479632002e-05,5.05976403514e-05,4.60614948894e-05,4.15386834647e-05,3.70262636001e-05,3.2528916322e-05,2.80427661135e-05,2.35677711306e-05,1.91080743802e-05,1.466345502e-05,1.0239707171e-05,5.83506691671e-06,1.45042846903e-06,-2.91662134085e-06,-7.26596729504e-06,-1.15989373682e-05,-1.59169588707e-05,-2.0217106055e-05,-2.45020921793e-05,-2.87706475339e-05,-3.30223617103e-05,-3.72597524762e-05,-4.14846973622e-05,-4.56968300417e-05,-4.98912875703e-05,-5.40675981654e-05,-5.82239179193e-05,-6.23615564073e-05,-6.64782465771e-05,-7.05736814137e-05,-7.46538093864e-05,-7.87176986232e-05,-8.27629216468e-05,-8.67852978832e-05,-9.07851987874e-05,-9.47698409457e-05,-9.87341913838e-05,-0.000102678147815,-0.000106603088784,-0.000110510989959,-0.000114398179052,-0.00011825842551,-0.000122095376045,-0.000125910343465,-0.000129705049318,-0.00013347327052,-0.000137215246457,-0.000140936063451,-0.00014463359657,-0.000148304815576,-0.000151947914124,-0.000155569787869,-0.000159167570788,-0.000162740359615,-0.000166289785129,-0.000169814795808,-0.000173321884857,-0.000176805356506,-0.0001802647191,-0.000183702690733,-0.000187122677511,-0.00019052077745,-0.000193894435028,-0.000197247163284,-0.000200577403296,-0.000203886990442,-0.000207173343602,-0.000210437110666,-0.000213680515356,-0.000216903406987,-0.000220102760099,-0.000223274004486,-0.000226424106342,-0.000229551761439,-0.000232655237732,-0.000235734349101,-0.000238788804905,-0.000241818073883,-0.000244819587408,-0.000247794003109,-0.000250737296199,-0.000253655106614,-0.000256551800731,-0.000259422342974,-0.00026226908874,-0.000265090225365,-0.000267885775848,-0.000270655236393,-0.000273401212744,-0.000276123708334,-0.000278825202424,-0.000281507837605,-0.000284164866124,-0.00028679639019,-0.000289404079776,-0.000291987536211,-0.000294548512299,-0.000297085599164,-0.000299597895005,-0.000302087694395,-0.000304554089572,-0.000306994179509,-0.000309406780486,-0.000311796497627,-0.000314159147135,-0.000316496432924,-0.000318805616994,-0.000321084895639,-0.000323335114842,-0.0003255533054,-0.000327736880924,-0.000329888067474,-0.000332008702199,-0.00033410026627,-0.00033616266004,-0.00033819453983,-0.000340195300544,-0.000342172512887,-0.000344129190307,-0.000346062125497,-0.000347975930176,-0.000349868608155,-0.000351738428918,-0.000353580980309,-0.000355395024912,-0.000357180699915,-0.000358943884723,-0.000360680284502,-0.000362383653789,-0.000364057908636,-0.00036570284434,-0.0003673170197,-0.00036890220576,-0.000370460510519,-0.000371993861855,-0.000373503472589,-0.000374988244793,-0.000376446256177,-0.000377880768119,-0.000379288893496,-0.000380668103279,-0.000382025405868,-0.000383356853043,-0.000384661714986,-0.000385940623946,-0.000387196236071,-0.000388425264745,-0.000389626522583,-0.000390795428462,-0.000391934712649,-0.000393045588057,-0.000394125452808,-0.000395174696316,-0.000396195058167,-0.000397188470971,-0.000398155532556,-0.000399096500797,-0.000400018215938,-0.000400925388865,-0.000401815353417,-0.000402616059439,-0.000403258018581,-0.000403736500191,-0.000404051896837,-0.000404209213768)
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(228)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('C2C12-myoblast-H3K27ac-AM_39113_31814008-RT_Fix_RED-5933_IP_E2-17872.mm10.36mers.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) : 228',bty='n')
dev.off()