# R script for Peak Model
#  -- generated by MACS
p <- c(0.0229362542651,0.0267519748101,0.0304908218643,0.0338383129651,0.0374024475401,0.0374513670343,0.0374234130376,0.0372906315535,0.0370530225818,0.0372487005585,0.037269666056,0.0375282405251,0.037521252026,0.038192147946,0.0383249294301,0.038024423966,0.0378427229876,0.0380453894635,0.0379964699693,0.0379894814701,0.0382550444385,0.0379265849776,0.0379964699693,0.037856699986,0.0380523779626,0.038485664911,0.0387582163785,0.0391076413368,0.0394151353001,0.0394570662951,0.0391495723318,0.0391915033268,0.038946905856,0.0387861703751,0.0387582163785,0.0386743543885,0.0387652048776,0.0380523779626,0.0378427229876,0.0382620329376,0.0382410674401,0.0385345844051,0.0389748598526,0.0393312733101,0.0390657103418,0.0388350898693,0.0387652048776,0.0389119633601,0.039156560831,0.038904974861,0.0389399173568,0.038904974861,0.0389399173568,0.0387442393801,0.0391286068343,0.039408146801,0.0394710432935,0.0393941698026,0.039282353816,0.0389818483518,0.0392683768176,0.0392474113201,0.0393033193135,0.039533939786,0.0398484222485,0.039911318741,0.0399881922318,0.0402188127043,0.0401419392135,0.0404284676793,0.0403026746943,0.0399322842385,0.0401698932101,0.0398344452501,0.0394221237993,0.039198491826,0.0393732043051,0.0394221237993,0.0396457557726,0.039701663766,0.0397645602585,0.0400720542218,0.0400650657226,0.0401908587076,0.0402956861951,0.0407359616426,0.0405752261618,0.040875731626,0.0409665821151,0.0410294786076,0.0413509495693,0.0413928805643,0.041211179586,0.0414767425543,0.0415745815426,0.0413160070735,0.0413998690635,0.0415186735493,0.0415815700418,0.0419589489968,0.0420358224876,0.0422804199585,0.0423293394526,0.042594902421,0.0429583043777,0.0433426718318,0.0436571542943,0.0435383498085,0.043601246301,0.0435523268068,0.0435802808035,0.0438668092693,0.0441323722377,0.044020556251,0.0436990852893,0.0438039127768,0.0437829472793,0.0441114067402,0.0440904412427,0.0438737977685,0.0438807862677,0.0436501657952,0.0438318667735,0.0438737977685,0.0440694757452,0.0439157287635,0.0442092457285,0.0439157287635,0.0442651537218,0.0441743032327,0.0440065792527,0.0441253837385,0.0440904412427,0.0441393607368,0.0441393607368,0.0444328777018,0.0443000962177,0.0443909467068,0.0444189007035,0.0447194061677,0.0450897966235,0.0456908075518,0.0455789915652,0.0458585315318,0.045823589036,0.0457886465402,0.0459004625268,0.045865520031,0.0458515430327,0.0460472210093,0.0461310829993,0.0456628535552,0.0457327385468,0.0456768305535,0.0458026235385,0.0459703475185,0.0459144395252,0.0464245999643,0.046494484956,0.0465713584468,0.0468089674185,0.0471933348727,0.0469697028993,0.047249242866,0.0475287828327,0.0473121393585,0.047710483811,0.0477733803035,0.0481507592585,0.0483045062402,0.0482066672518,0.0482765522435,0.0490313101535,0.048884551671,0.0492409651285,0.0498000450618,0.0494785741002,0.049681240576,0.0497301600702,0.0499468035443,0.0502752630052,0.0503800904927,0.0505058834777,0.050897239431,0.0508622969352,0.0509112164293,0.0513864343727,0.0514912618602,0.051274618386,0.0512466643893,0.0512466643893,0.0517079053343,0.0517987558235,0.0518476753177,0.0521831232777,0.0522250542727,0.0521062497869,0.052029376296,0.0525954447285,0.0528889616935,0.0533921336335,0.053161513161,0.0533012831444,0.0532174211544,0.0533851451344,0.0538114435835,0.0540979720494,0.054838752961,0.0545662014935,0.0545801784919,0.0542656960294,0.0549785229444,0.0553698788977,0.0561456023052,0.0561106598094,0.0562084987977,0.0563971882752,0.056264406791,0.0569003602152,0.0573685896594,0.0575572791369,0.0575922216327,0.0577180146177,0.0578088651069,0.0585356690202,0.0588012319885,0.0595699668969,0.0600521733394,0.0600871158352,0.0602827938119,0.0607580117552,0.0607160807602,0.0607859657519,0.0610305632227,0.0609467012327,0.060960678231,0.0611843102044,0.0614358961744,0.0617503786369,0.0620648610994,0.0626309295319,0.0629384234952,0.0635324459244,0.0638469283869,0.0642243073419,0.0647903757744,0.0644968588094,0.0649650882536,0.0652655937177,0.0653494557077,0.0652935477144,0.0654962141902,0.0655870646794,0.0656988806661,0.0657897311552,0.0660762596211,0.0661531331119,0.0660413171252,0.0662579605994,0.0668240290319,0.0670266955077,0.0673481664694,0.0680609933844,0.0684803033344,0.0689904637736,0.0696473826952,0.0705488990877,0.0712966684986,0.0716391049578,0.0716600704553,0.0725825523453,0.0732394712669,0.0732394712669,0.0736378157194,0.0737705972036,0.0737356547078,0.0742947346411,0.0743226886378,0.0749656305611,0.0754478370036,0.0755456759919,0.0756085724844,0.0757483424678,0.0763283878986,0.0772089387936,0.0774605247636,0.0777819957253,0.0782362481711,0.0788232821011,0.0797876949861,0.0801021774486,0.0809687513453,0.0819401527295,0.0823105431853,0.0824852556645,0.0834566570486,0.0840786334745,0.0848823108786,0.084938218872,0.0851338968486,0.0858327467653,0.0860493902395,0.0865036426853,0.0869439181328,0.0878384460261,0.0882717329745,0.088712008422,0.089173249367,0.090221524242,0.0909692936528,0.0918777985445,0.093030900907,0.0939324172995,0.0946382557153,0.0950156346703,0.095714484587,0.0961966910295,0.0970353109295,0.0981325052987,0.0993135616579,0.0997748026029,0.0995511706295,0.100089285065,0.100459675521,0.10139613441,0.101584823887,0.10222776581,0.102353558795,0.102640087261,0.102772868745,0.102954569724,0.104093695088,0.104303350063,0.105680084399,0.106371945816,0.107420220691,0.108482472565,0.109740402415,0.110488171825,0.110732769296,0.111732124677,0.112493871086,0.113206698001,0.113709869941,0.114045317901,0.114632351831,0.115037684783,0.11547796023,0.116002097668,0.116847706067,0.117609452476,0.118203474905,0.119188853288,0.119615151737,0.120726323105,0.12118756405,0.122131011437,0.12235464341,0.123752343244,0.125338732555,0.126477857919,0.127575052288,0.127959419742,0.129021671615,0.129699556035,0.13116015236,0.131439692327,0.132522909698,0.13283739216,0.133151874623,0.13385072454,0.134626447947,0.136156929265,0.136541296719,0.137862123061,0.13863085797,0.140175316285,0.141600970116,0.142411636019,0.143711496864,0.145151127692,0.146185425569,0.147359493429,0.148966848237,0.150071031106,0.151496684936,0.152621833301,0.153236821228,0.153670108176,0.154990934519,0.155326382479,0.156227898871,0.15649346184,0.157387989733,0.157912127171,0.158345414119,0.159547435976,0.160875250817,0.162992766065,0.163398099016,0.164383477399,0.165410786776,0.166871383102,0.168255105937,0.169394231301,0.17075000014,0.171022551607,0.172147699973,0.173000296871,0.17393675576,0.174782364159,0.175327467094,0.176187052491,0.17678806342,0.177347143353,0.178395418228,0.179499601096,0.180324243998,0.181337576377,0.182602494726,0.184468424004,0.186404238273,0.187207915677,0.188920097973,0.189842579863,0.191037613221,0.192651956528,0.1937281854,0.194448000814,0.195691953666,0.196956872015,0.197662710431,0.199270065239,0.199989880653,0.201988591415,0.202694429831,0.203365325751,0.204811945078,0.206272541404,0.207236954289,0.207383712772,0.208753458608,0.209675940498,0.210829042861,0.211388122794,0.212701960637,0.214113637469,0.215015153862,0.216328991705,0.217314370087,0.218781954912,0.219613586313,0.220417263717,0.220857539165,0.222003653028,0.222178365507,0.222849261427,0.223359421867,0.2247571217,0.226168798532,0.22685367145,0.22794387732,0.228999140694,0.230837115975,0.232067091828,0.233688423635,0.235190950956,0.236406949811,0.236777340267,0.237042903235,0.238216971095,0.238412649072,0.23926524597,0.239908187893,0.240746807793,0.241389749717,0.241501565703,0.242004737643,0.242319220106,0.243283632991,0.243472322468,0.244143218388,0.244981838288,0.244870022302,0.244870022302,0.246106986654,0.246505331107,0.246707997583,0.247253100518,0.247937973436,0.248531995865,0.249007213808,0.248958294314,0.249377604264,0.249615213236,0.248720685343,0.248755627838,0.248986248311,0.248776593336,0.247882065443,0.24731599701,0.24706441104,0.246099998155,0.245317286248,0.244345884864,0.243605103953,0.242417059094,0.241871956159,0.240998393763,0.240285566848,0.239537797438,0.239293199967,0.238622304047,0.237944419628,0.237615960167,0.237664879661,0.237553063674,0.237294489205,0.236707455275,0.235554352912,0.235414582929,0.233737343129,0.234023871595,0.233101389705,0.232206861812,0.230515645013,0.22953725513,0.228174497792,0.227245027403,0.22660208548,0.224540478226,0.223827651311,0.222080526519,0.221025263145,0.219613586313,0.218327702467,0.217447151572,0.216699382161,0.215168900843,0.214260395952,0.213449730048,0.212338558681,0.211122559826,0.210535525896,0.209682928997,0.209130837563,0.207369735773,0.205755392466,0.204609278602,0.202778291821,0.201757970942,0.20052100659,0.199270065239,0.197879353905,0.196852044527,0.194895264761,0.193937840375,0.192763772515,0.191533796662,0.190464556289,0.188710442998,0.187389616656,0.186397249774,0.184747963971,0.183629804104,0.183224471152,0.182029437795,0.180687645955,0.179667325076,0.17846530322,0.177465947839,0.176564431446,0.175816662036,0.174537766688,0.173272848339,0.17217565397,0.171805263514,0.171979975993,0.171148344592,0.170805908133,0.170107058216,0.169135656832,0.167437451535,0.16714393457,0.165892993219,0.164781821851,0.164055017938,0.161916537193,0.161063940295,0.159987711423,0.158939436548,0.157793322685,0.157394978232,0.155647853441,0.155053831011,0.154375946592,0.152027810872,0.150986524496,0.149400135186,0.147722895386,0.146241333562,0.145144139193,0.143110485936,0.142006303067,0.139979638309,0.13795297355,0.13644345773,0.135171550882,0.133745897052,0.1325089327,0.131593439309,0.130028015495,0.129140476101,0.128490545679,0.127651925779,0.126393995929,0.12563224952,0.124080802705,0.123095424322,0.122005218452,0.121117679058,0.119978553694,0.119195841787,0.1174137745,0.116875660064,0.116295614633,0.115526879725,0.114653317329,0.11422701888,0.113290559991,0.112235296617,0.111655251186,0.11053010282,0.110103804371,0.108950702009,0.107657829663,0.107119715227,0.106043486355,0.105183900958,0.104883395494,0.103960913604,0.103248086689,0.102199811814,0.101270341425,0.100830065977,0.100823077478,0.100026388573,0.0999215610854,0.0988662977112,0.097978758317,0.097601379362,0.0970492879278,0.0965740699845,0.0957703925803,0.0950925081612,0.0939394057987,0.0931217513962,0.0923110854928,0.091647178072,0.0907596386778,0.0902285127412,0.0893130193503,0.0891662608678,0.0890823988778,0.088460422452,0.088418491457,0.0881109974936,0.0875169750645,0.0871256191111,0.086867044642,0.0858816662595,0.0852387243361,0.0844070929353,0.0836872775211,0.0830653010953,0.0825691176545,0.081835325242,0.0816047047695,0.0807311423736,0.0804236484103,0.0802489359311,0.0802070049361,0.0798086604836,0.0794033275319,0.0788931670928,0.0781244321844,0.0780615356919,0.0771879732961,0.0770691688103,0.0765031003778,0.0758182274594,0.0746860905944,0.0740012176761,0.0733163447578,0.0728481153136,0.0725895408444,0.0715831969644,0.0717089899494,0.0711429215169,0.0704370831011,0.0702414051244,0.0705209450911,0.0701295891377,0.0701994741294,0.0698640261694,0.0694517047186,0.0693748312277,0.0687947857969,0.0682287173644,0.0682217288652,0.0678443499102,0.0674110629619,0.0673481664694,0.0665864200602,0.0659574551352,0.0655101911886,0.0650769042402,0.0646296402936,0.0649930422502,0.0643780543236,0.0642452728394,0.0638888593819,0.0631830209661,0.0631480784702,0.0630013199877,0.0625540560411,0.0623164470694,0.0618132751294,0.0611563562077,0.0606741497652,0.0602129088202,0.059576955396,0.0595140589035,0.059409231416,0.0589829329669,0.0592345189369,0.0588361744844,0.0586195310102,0.0579905660852,0.0579975545844,0.0577599456127,0.0576760836227,0.0574734171469,0.0569842222052,0.0567885442285,0.0561456023052,0.0561875333002,0.0559639013269,0.0560198093202,0.0557123153569,0.0556703843619,0.0555166373802,0.055467717886,0.0550973274302,0.0549296034502,0.0550344309377,0.0544543855069,0.0546570519827,0.0541748455402,0.0538603630777,0.0537555355902,0.0534340646285,0.0529728236835,0.052826065201,0.0523438587585,0.0520084107985,0.052029376296,0.0516240433443,0.0517708018268,0.052029376296,0.0513514918768,0.0513025723827,0.051190756396,0.050897239431,0.0508483199368,0.0507085499535,0.0505058834777,0.050352136496,0.0502962285027,0.049974757541,0.0499118610485,0.0497930565627,0.0496043670852,0.0496113555843,0.0498279990585,0.0495344820935,0.0494436316043,0.049136137641,0.0487517701868,0.0485630807093,0.0487098391918,0.0485421152118,0.0481158167627,0.047962069781,0.0477384378077,0.047584690826,0.0472841853618,0.0468089674185,0.0468089674185,0.0465014734552,0.0462079564902,0.0455859800643,0.0458864855285,0.0453274055952,0.044817245156,0.0445516821877,0.0442581652227,0.0444678201977,0.0439646482577,0.0441114067402,0.0441183952393,0.0443000962177,0.0443070847168,0.0445866246835,0.0446355441777,0.0447124176685,0.044649521176,0.044607590181,0.0446844636718,0.0444189007035,0.0444328777018,0.0445377051893,0.0440904412427,0.0439926022543,0.0437619817818,0.043810901276,0.0439157287635,0.0436152232993,0.0438877747668,0.0440834527435,0.0436781197918,0.0434474993193,0.0435453383077,0.0432168788468,0.0431889248502,0.0427346724043,0.0423363279518,0.0421406499751,0.0417003745276,0.0412740760785,0.0412740760785,0.0412321450835,0.0409526051168,0.0408617546276,0.0408058466343,0.0405123296693,0.0406031801585,0.0409246511201,0.0409526051168,0.0407709041385,0.0402677321985,0.0401838702085,0.0402537552001,0.0405961916593,0.0404005136826,0.0405332951668,0.0404354561785,0.0401559162118,0.0400510887243,0.040372559686,0.040624145656,0.0405472721651,0.0406101686576,0.0404773871735,0.0406171571568,0.0406171571568,0.0408198236326,0.0409875476126,0.0408827201251,0.0403096631935,0.0405263066676,0.0408687431268,0.0409386281185,0.040917662621,0.0409246511201,0.0406590881518,0.040498352671,0.0404703986743,0.0405332951668,0.0407778926376,0.040708007646,0.0402817091968,0.0399602382351,0.039743594761,0.0396737097693,0.0397086522651,0.0399322842385,0.039911318741,0.0399322842385,0.0400301232268,0.0399322842385,0.0399392727376,0.0399462612368,0.040079042721,0.0398064912535,0.0401698932101,0.039869387746,0.0396387672735,0.039617801776,0.0397296177626,0.0394710432935,0.0392334343218,0.0392124688243,0.0389678713535,0.039408146801,0.0390517333435,0.0388141243718,0.0389678713535,0.0387652048776,0.0382410674401,0.0381152744551,0.0382061249443,0.0381641939493,0.0381711824485,0.0376330680126,0.0376260795135,0.0379126079793,0.0375492060226,0.0374723325318,0.0375002865285,0.0374863095301,0.0375561945218,0.0375841485185,0.037563183021,0.0378357344885,0.0379335734768,0.0379755044718,0.0382550444385,0.0380384009643,0.0379475504751,0.0381012974568,0.0379755044718,0.0379126079793,0.0379685159726,0.0380174354668,0.0379056194801,0.0378427229876,0.0376400565118,0.0379964699693,0.0380104469676,0.0378007919926,0.0377938034935,0.037437390036,0.0373465395468,0.0373465395468,0.0373744935435,0.0371508615701,0.0370949535768,0.0367385401193,0.0367804711143,0.0367874596135,0.0367734826151,0.0368224021093,0.0371159190743,0.0368224021093,0.0365847931376,0.0365778046385,0.0367874596135,0.0370949535768,0.0375072750276,0.037521252026,0.0376959645051,0.0378636884851,0.0375841485185,0.0375422175235,0.0376260795135,0.0378497114868,0.0376610220093,0.0375072750276,0.0374583555335,0.037395459041,0.0373465395468,0.0374304015368,0.0372067695635,0.0372207465618,0.037395459041,0.0369901260893,0.0368293906085,0.0369412065951,0.036766494116,0.0367105861226,0.0366057586351,0.0366057586351,0.0366546781293,0.036724563121,0.036598770136,0.036934218096,0.0369621720926,0.0370949535768,0.0370110915868,0.0374024475401,0.0373884705418,0.0373325625485,0.0374094360393,0.0372556890576,0.0372836430543,0.0370669995801,0.0371997810643,0.0366756436268,0.0365358736435,0.0361515061893,0.0361584946885,0.0360676441993,0.0362772991743,0.0365009311476,0.0362703106751,0.0359907707085,0.0358160582293,0.0361654831876,0.0359208857168,0.0357881042326,0.0356064032543,0.0353757827818,0.035131185311,0.0349844268285,0.0353128862893,0.0356553227485,0.0357741272343,0.0356133917535,0.0358789547218,0.0363332071676,0.0362563336768,0.0365288851443,0.0366896206251,0.0368643331043,0.036598770136,0.0364520116535,0.0362703106751,0.0364799656501,0.0367595056168,0.0363751381626,0.0363262186685,0.0362563336768,0.0362004256835,0.0360327017035,0.0361584946885,0.0361025866951,0.036221391181,0.036179460186,0.0358999202193,0.0362074141826,0.0366756436268,0.0370390455835,0.0367944481126,0.0366546781293,0.0368783101026,0.0367734826151,0.0366896206251,0.0364590001526,0.0360676441993,0.035508564266,0.0352919207918,0.0349355073343,0.0348726108418,0.0349704498301,0.0350193693243,0.0353687942826,0.0356553227485,0.0360187247051,0.0364520116535,0.0367525171176,0.0365917816368,0.0366476896301,0.0366966091243,0.0368224021093,0.0363332071676,0.0362353681793,0.0359907707085,0.0357741272343,0.0355784492576,0.0357950927318,0.0357811157335,0.0354945872676,0.035676288246,0.0353757827818,0.0356413457501,0.0355644722593,0.0355644722593,0.0356832767451,0.0362074141826,0.0359907707085,0.036095598196,0.0363401956668,0.0364659886518,0.0365428621426,0.0365079196468,0.0363751381626,0.0364170691576,0.0361515061893,0.0358579892243,0.0360886096968,0.0363332071676,0.0361095751943,0.035927874216,0.0359348627151,0.0359558282126,0.0361235521926,0.0362772991743,0.0360606557001,0.0358160582293,0.035466633271,0.0353058977901,0.0354945872676,0.035340840286,0.0354177137768,0.035298909291,0.0353757827818,0.0351870933043,0.0355295297635,0.0357881042326,0.035802081231,0.0356203802526,0.0353687942826,0.0355295297635,0.0355225412643,0.0355994147551,0.0356133917535,0.0356203802526,0.0353128862893,0.0352360127985,0.0355644722593,0.035927874216,0.0360816211976,0.0359907707085,0.0360327017035,0.0359628167118,0.0357321962393,0.0358719662226,0.0359208857168,0.0357741272343,0.0356972537435,0.0355155527651,0.0359628167118,0.0362353681793,0.0361724716868,0.0360187247051,0.0361934371843,0.0359628167118,0.0361584946885,0.036221391181,0.0359208857168,0.0355854377568,0.0351102198135,0.0349774383293,0.0349704498301,0.0352010703026,0.0351451623093,0.0351451623093,0.035215047301,0.0354736217701,0.0355155527651,0.0353268632876,0.0354177137768,0.0351870933043,0.0352709552943,0.0353478287851,0.0353757827818,0.0353198747885,0.0354177137768,0.0353687942826,0.0356623112476,0.0359488397135,0.0361165636935,0.036137529191,0.0360047477068,0.0357112307418,0.0358370237268,0.0359138972176,0.0357042422426,0.0355854377568,0.035634357251,0.0355644722593,0.0354806102693,0.0353058977901,0.0356133917535,0.0357741272343,0.0358090697301,0.0354526562726,0.0351451623093,0.0352919207918,0.0351172083126,0.0354107252776,0.0353687942826,0.0356832767451,0.0355574837601,0.0355365182626,0.035382771281,0.0358999202193,0.0360327017035,0.035760150236,0.035760150236,0.0356553227485,0.0356623112476,0.0357391847385,0.0357950927318,0.0360327017035,0.0358510007251,0.0356483342493,0.0359977592076,0.035885943221,0.0358090697301,0.0355994147551,0.035718219241,0.0354037367785,0.0351521508085,0.0346839213643,0.0312665452718,0.0278142266834,0.0240963451268,0.0206929460326,0.0)
m <- c(0.0206216691021,0.0241132055064,0.0279113838304,0.0315213955218,0.0350338393297,0.034998993657,0.0350199010606,0.0350129319261,0.0350059627915,0.0346923517372,0.0348874875043,0.0346714443336,0.0344205554902,0.0342602653958,0.0341975431849,0.0341487592432,0.034211481454,0.0341417901086,0.0343160184721,0.0342811727994,0.0342532962613,0.0342463271267,0.0341766357813,0.034211481454,0.0346017529882,0.0349571788497,0.0352429133659,0.0353683577876,0.0352429133659,0.0353753269221,0.0355007713438,0.0354101725948,0.0353474503839,0.0352429133659,0.0346435677955,0.0346714443336,0.0345808455846,0.0346017529882,0.0346923517372,0.0346923517372,0.0347690122172,0.0350477775987,0.0352986664422,0.0355077404784,0.0359328576853,0.0354241108639,0.0348944566389,0.0350477775987,0.0347690122172,0.0345947838537,0.0346923517372,0.0348526418316,0.0346575060645,0.0344623702974,0.0345669073155,0.0348874875043,0.0352080676932,0.0349293023116,0.0351732220205,0.0353265429803,0.0351383763478,0.034922333177,0.0349362714461,0.0352220059622,0.0349153640425,0.0347829504863,0.0348735492353,0.0352359442313,0.0354659256711,0.0355007713438,0.0356959071109,0.0359537650889,0.0359189194162,0.0357377219182,0.0358492280708,0.0359607342234,0.0359746724925,0.0360652712415,0.0356610614382,0.0358283206672,0.0358143823981,0.0358283206672,0.035967703358,0.0361628391251,0.0360443638379,0.0360234564343,0.0359607342234,0.0356262157655,0.0358422589362,0.035542586151,0.0355983392274,0.035451987402,0.0354938022093,0.0356053083619,0.0356749997073,0.0357028762455,0.0359467959543,0.0361837465287,0.036058302107,0.0361837465287,0.0362882835468,0.0365600797938,0.0364416045066,0.036330098354,0.0363510057576,0.0362464687395,0.0360095181652,0.0359537650889,0.0362604070086,0.0365322032556,0.036330098354,0.0363649440267,0.0364067588339,0.0361070860487,0.0361001169142,0.0361140551833,0.0364625119103,0.036148900856,0.035891042878,0.0357655984563,0.0360513329724,0.036058302107,0.0358631663399,0.0361070860487,0.0363440366231,0.0365670489283,0.0364973575829,0.0367203698882,0.0366855242155,0.0368806599826,0.0364903884484,0.0364416045066,0.0368736908481,0.0369573204625,0.0368806599826,0.0368667217135,0.0366088637356,0.0363788822958,0.0368458143099,0.0366437094083,0.03676915383,0.0367552155609,0.0365252341211,0.0364137279685,0.0363510057576,0.036511295852,0.0370479192116,0.0372430549787,0.0368249069063,0.0367412772918,0.0369364130589,0.0365322032556,0.0365391723902,0.0366576476774,0.0367482464264,0.0366924933501,0.0367203698882,0.0367761229645,0.0371385179606,0.0374869746875,0.0372291167096,0.0374730364185,0.0375287894948,0.0377587709346,0.0377308943964,0.0377030178583,0.0370200426734,0.0369782278662,0.036950351328,0.0369015673862,0.0372360858441,0.0371594253642,0.0371594253642,0.0368667217135,0.0370757957497,0.0369085365208,0.0371524562297,0.0373057771895,0.0374660672839,0.0369364130589,0.0368527834445,0.0371036722879,0.0372430549787,0.0371594253642,0.0370688266152,0.037131548826,0.0373406228622,0.037570604302,0.0370548883461,0.0373684994004,0.0375496968984,0.0376960487237,0.0375148512257,0.0375915117056,0.0372709315168,0.0373824376695,0.0371245796915,0.0368179377718,0.0371385179606,0.0373127463241,0.0374172833422,0.0372779006514,0.0373545611313,0.037570604302,0.0379817832398,0.0379469375671,0.0380654128543,0.0380305671816,0.0380305671816,0.0378772462218,0.0377239252619,0.0376960487237,0.0377169561273,0.037480005553,0.0373266845931,0.0372709315168,0.0373266845931,0.0374381907458,0.0373754685349,0.0372012401714,0.0369782278662,0.0370130735389,0.0370967031533,0.0371942710369,0.0372360858441,0.0370618574806,0.0370967031533,0.0373475919968,0.0372360858441,0.0374590981494,0.0377657400691,0.0381699498724,0.0385044683303,0.0385532522721,0.0386368818866,0.0390968447662,0.0395637767803,0.039340764475,0.0394731780313,0.039598622453,0.0395846841839,0.039159566977,0.0387692954428,0.0387832337119,0.0388320176537,0.0385602214066,0.0379608758362,0.0379051227599,0.0380584437198,0.0379817832398,0.0380235980471,0.0378563388181,0.0381629807379,0.0384765917921,0.0383372091014,0.0384347769849,0.0385880979448,0.0383929621777,0.0382605486214,0.0383023634287,0.0382187338142,0.0385114374648,0.0386786966938,0.0382466103523,0.0383302399668,0.0384208387158,0.0382884251596,0.0388529250573,0.0388041411155,0.0388947398645,0.0385462831375,0.0385602214066,0.0383859930431,0.0385462831375,0.0387135423665,0.0386090053484,0.038901708999,0.03881111025,0.0390062460171,0.03881111025,0.0392222891879,0.0394592397622,0.0392780422642,0.0391735052461,0.039159566977,0.0392362274569,0.0391944126497,0.0391944126497,0.0389644312099,0.039159566977,0.0391177521698,0.0390132151517,0.0392083509188,0.0391665361115,0.0387832337119,0.0390968447662,0.0390201842862,0.0387274806356,0.0388598941918,0.0389992768826,0.0391944126497,0.0392292583224,0.0391944126497,0.0395637767803,0.0398355730273,0.0395498385112,0.0397101286056,0.040218875427,0.0403931037905,0.0403303815796,0.0402746285033,0.0401561532161,0.03994707918,0.0396683137984,0.0399052643727,0.0401631223507,0.0398564804309,0.0394871163004,0.0394662088967,0.0391804743806,0.0390619990935,0.0392153200533,0.0397728508165,0.0402606902342,0.0400237396599,0.0399261717763,0.0403234124451,0.0403025050415,0.0402815976379,0.0406788383066,0.0408112518628,0.0407554987865,0.0403721963869,0.0399122335073,0.040037677929,0.0403234124451,0.0401840297543,0.0406439926339,0.0406300543648,0.0402815976379,0.0400794927362,0.0402258445615,0.0405324864813,0.0407973135938,0.0409994184954,0.0408042827283,0.0410133567645,0.0409157888809,0.0409645728227,0.041110924648,0.0415430109895,0.0416823936803,0.0411597085898,0.0413757517605,0.0414454431059,0.0416823936803,0.041807838102,0.0418426837747,0.042079634349,0.0422956775197,0.042428091076,0.0424699058832,0.0429368378974,0.0425117206905,0.0427486712648,0.0425256589595,0.0424908132869,0.0425535354977,0.0428253317447,0.0432574180862,0.0431459119336,0.0431807576063,0.0430831897227,0.0438567636566,0.0435222451987,0.0437661649076,0.043926455002,0.0437382883694,0.0436128439477,0.0435361834678,0.043926455002,0.0438219179839,0.0442052203835,0.0438428253875,0.0438567636566,0.043849794522,0.0436825352931,0.0440867450964,0.0441355290382,0.0439752389437,0.0437522266385,0.0438776710602,0.043849794522,0.0441355290382,0.0441773438454,0.0443864178816,0.0449648560483,0.0447906276849,0.0451530226809,0.0455014794079,0.0456687386368,0.0456896460404,0.0459753805566,0.0458917509421,0.046135670651,0.0467071396832,0.0465189730506,0.0466583557414,0.0463935286289,0.0465468495888,0.046665324876,0.0469789359302,0.0470555964102,0.0472507321773,0.0472646704464,0.0468256149704,0.0467838001631,0.0471531642937,0.0474737444825,0.0471671025628,0.0473273926572,0.0472019482355,0.0473204235227,0.0476897876533,0.0479337073621,0.0483100406273,0.0488536331213,0.0489093861977,0.0491323985029,0.0495644848444,0.0496341761898,0.049947787244,0.0500732316657,0.0502335217601,0.0507492377161,0.0508328673305,0.0509374043486,0.0511464783848,0.0515158425154,0.0516412869371,0.0519409597223,0.0522824473147,0.0524566756782,0.0527354410598,0.052867854616,0.0528469472124,0.0529654224996,0.0533347866302,0.0533487248993,0.0537668729716,0.0540247309496,0.0541641136404,0.0542198667167,0.054094422295,0.0544080333493,0.054895872767,0.0549516258433,0.0550004097851,0.0550073789197,0.0549028419016,0.0550979776687,0.0555788479519,0.0560875947733,0.0564221132312,0.0559482120825,0.056226977464,0.056756631689,0.0572096254341,0.0578438166772,0.0581783351351,0.0584849770548,0.0585964832075,0.0587567733019,0.0592446127196,0.0602272606897,0.060631470493,0.0608684210673,0.0609172050091,0.0609241741436,0.0617535011538,0.0617674394229,0.0620183282663,0.062582828164,0.0626107047022,0.0629452231601,0.0631961120035,0.0633006490216,0.0636769822867,0.0639696859373,0.0636978896903,0.0643320809334,0.0643460192025,0.0644854018933,0.0649662721765,0.065049901791,0.0650708091946,0.0653844202488,0.0656004634196,0.0663113151426,0.0672660865745,0.0676145433015,0.0683672098317,0.068862018384,0.068952617133,0.0694543948199,0.0700049564485,0.0706949007679,0.071161832782,0.0713639376837,0.0712315241274,0.0715033203745,0.0717960240251,0.0716217956616,0.0729738077623,0.073371048431,0.0739494865978,0.0742282519794,0.0749181962988,0.0755105727346,0.0763398997448,0.076820770028,0.0773643625221,0.0786257758737,0.0785421462593,0.0789115103899,0.0790857387534,0.0793505658658,0.0796084238438,0.0801032323961,0.0800405101853,0.0807025779665,0.0810161890208,0.0812740469987,0.0814203988241,0.0817618864165,0.0825424294849,0.0835111391859,0.0839362563928,0.0842080526398,0.0851837314753,0.0851697932063,0.0859015523329,0.0859851819474,0.0865914966523,0.0872605335681,0.0881734901928,0.0881874284618,0.0889122184539,0.0893512739299,0.0900690947875,0.0910168970848,0.0918253166914,0.09237587832,0.0934003410973,0.0937487978243,0.0937906126315,0.094661754449,0.0955677419391,0.0963134393348,0.0969545997124,0.0977490810499,0.0984181179657,0.099533179492,0.0998886053535,0.100975790342,0.102007222254,0.102899271475,0.103463771372,0.10448823415,0.105289684622,0.105902968461,0.106808955951,0.107645252096,0.108307319877,0.109101801215,0.109715085054,0.110342307163,0.111554936573,0.112391232717,0.112823319059,0.113687491742,0.114042917603,0.114572571828,0.115325238358,0.116384546808,0.117346287375,0.11847528717,0.118886466108,0.119513688217,0.121367478004,0.122447693858,0.123953026918,0.12490779835,0.126824310348,0.12785574226,0.128831421096,0.12929835311,0.130970945399,0.132044192118,0.132880488263,0.13368890787,0.134469450938,0.136114166689,0.137319826965,0.138511548971,0.140163233857,0.14208671499,0.142888165462,0.144212301024,0.145578251394,0.1471532758,0.148547102708,0.149989713557,0.150839947971,0.152136206996,0.153000379678,0.154638126295,0.155746218687,0.157718483762,0.158380551543,0.160060112967,0.161063668341,0.162325081692,0.163586495044,0.164534297341,0.165119704643,0.165823587231,0.166903803085,0.167551932597,0.169315123635,0.169489351999,0.170471999969,0.170841364099,0.171865826877,0.173468727821,0.175643097797,0.176437579135,0.177503856719,0.178430751613,0.179016158914,0.180033652557,0.180842072163,0.182284683013,0.183072195216,0.183295207521,0.183678509921,0.184953861542,0.186577669889,0.18717701546,0.188556904099,0.190403724752,0.19268960088,0.19390223029,0.19586752623,0.197721316018,0.199059389849,0.200502000699,0.201428895593,0.20314330269,0.203951722296,0.205464024491,0.205763697276,0.206788160054,0.207540826584,0.208802239936,0.210502708763,0.210858134625,0.211562017213,0.213269455175,0.215130214097,0.216091954664,0.217074602634,0.217701824742,0.219290787417,0.219918009526,0.221506972201,0.223228348432,0.224866095049,0.225876619557,0.225876619557,0.226559594742,0.228085835206,0.229619044805,0.230364742201,0.231911890068,0.231918859203,0.233117550344,0.233995661296,0.234567130328,0.236497580595,0.237696271736,0.238651043168,0.239334018353,0.239550061524,0.239996086134,0.240253944112,0.240727845261,0.240881166221,0.240992672373,0.240295758919,0.240093654018,0.240233036708,0.241069332853,0.241905628998,0.242498005434,0.243341270713,0.243898801476,0.244456332239,0.245229906173,0.245822282609,0.246205585009,0.246526165197,0.247264893459,0.247780609415,0.247766671145,0.248143004411,0.248136035276,0.248498430272,0.248470553734,0.248561152483,0.248714473443,0.248881732672,0.247362461342,0.246442535583,0.246226492412,0.245257782711,0.244358764356,0.243696696574,0.242950999179,0.242212270918,0.241738369769,0.240853289682,0.240253944112,0.238804364128,0.238072605001,0.23771717914,0.237549919911,0.236964512609,0.236741500304,0.236023679447,0.234818019171,0.23369598851,0.233577513223,0.233682050241,0.233152396016,0.232316099872,0.230866519887,0.229465723845,0.227841915497,0.227228631658,0.226775637913,0.226503841666,0.225012446874,0.223911323617,0.222517496709,0.221005194514,0.220168898369,0.21917231213,0.21917231213,0.21759031859,0.215931664569,0.214363609298,0.213931522957,0.212900091045,0.212175301053,0.211478387599,0.210788443279,0.209798826175,0.208028666002,0.206941481014,0.205687036796,0.204530160463,0.204021413642,0.203080580479,0.201721599244,0.20071804387,0.199289371289,0.197972204861,0.196432026128,0.195630575656,0.195184551046,0.194243717883,0.191581508489,0.190682490133,0.189309570629,0.187992404201,0.186445256333,0.18573440461,0.185441700959,0.184013028379,0.182849182911,0.181225374563,0.180507553706,0.178409844209,0.177608393737,0.176346980386,0.175782480488,0.174799832518,0.173670832722,0.173113301959,0.171858857742,0.171259512172,0.170395339489,0.170207172856,0.167990988073,0.166569284627,0.165154550315,0.164102211,0.162652631016,0.161732705256,0.161474847278,0.160554921519,0.159690748836,0.158380551543,0.158310860197,0.157809082511,0.156554638294,0.155244441,0.154589342353,0.153864552361,0.152401034108,0.151251126909,0.150017590096,0.149188263085,0.148421658286,0.147648084352,0.147989571945,0.146811788207,0.145675819278,0.144755893518,0.143452665359,0.142560616138,0.141863702684,0.141111036154,0.139654487035,0.138135215706,0.136629882645,0.136344148129,0.135075765643,0.133821321426,0.133026840088,0.132427494518,0.131068513283,0.129660748106,0.129103217343,0.128455087831,0.127193674479,0.126475853621,0.12573712536,0.125235347673,0.124364205856,0.123088854235,0.122280434629,0.121897132229,0.120921453393,0.120600873205,0.119820330136,0.118189552654,0.117311441702,0.116426361616,0.115792170372,0.115471590184,0.115318269224,0.114844368075,0.114112608948,0.113039362229,0.112711812906,0.112649090695,0.112572430215,0.111547967438,0.111234356384,0.110335338028,0.109659331978,0.108509424779,0.10795886315,0.107415270656,0.106188702977,0.105456943851,0.104314005786,0.10402827127,0.1026623209,0.102515969075,0.101540290239,0.101031543418,0.100752778036,0.100257969484,0.100411290444,0.100111617659,0.0997422535282,0.098641130271,0.0985993154637,0.0974981922065,0.0975748526864,0.0967246182726,0.0954144209792,0.0950102111759,0.0943969273365,0.0935536620572,0.092543137549,0.0920274215931,0.0914629216954,0.0909262983358,0.0899366812312,0.0893791504681,0.0896300393115,0.0886682987451,0.0875811137569,0.0869051077066,0.0867866324194,0.086354546078,0.0854973425296,0.0847446759994,0.0839223181237,0.0837480897602,0.0826957504448,0.0823821393905,0.0818524851655,0.0817618864165,0.0807583310428,0.0798802200908,0.0796153929783,0.0791833066369,0.079197244906,0.0783957944339,0.0780124920343,0.0777197883836,0.0775734365583,0.076548973781,0.0763398997448,0.0764026219557,0.07565692456,0.0754478505238,0.0747300296662,0.0750297024514,0.0744024803429,0.0739843322705,0.0733152953547,0.0730434991077,0.0730295608386,0.0724720300754,0.0723326473847,0.0722629560393,0.0718169314287,0.0709666970149,0.0708064069205,0.0701513082738,0.0698725428922,0.0699561725067,0.0696913453942,0.069572870107,0.069029277613,0.0683184258899,0.0680326913738,0.0675100062834,0.0669594446548,0.0670500434038,0.0666667410041,0.0658652905321,0.0651335314054,0.0646317537186,0.0643111735298,0.0635236613268,0.0630706675818,0.0630567293127,0.0631403589272,0.0627291799893,0.0626107047022,0.0625758590295,0.0623807232624,0.0623528467242,0.0621716492262,0.0626525195094,0.0626943343166,0.0620043899972,0.0613283839469,0.0608335753946,0.0606523778966,0.0601575693443,0.0599624335772,0.0593700571413,0.0591609831051,0.0587079893601,0.0586173906111,0.0585825449384,0.0588334337818,0.0585686066693,0.0582410573459,0.0578507858117,0.0574256686048,0.0572026562996,0.0570423662052,0.0565684650565,0.055955181217,0.0558088293917,0.0553837121848,0.0550213171887,0.0546798295963,0.0542477432549,0.0539341322006,0.0537250581644,0.0533417557647,0.0531396508631,0.0530420829795,0.0526936262526,0.0524775830818,0.0524427374091,0.0526099966381,0.0529793607687,0.0528817928851,0.0529166385578,0.052686657118,0.0527842250016,0.0525472744272,0.0522685090457,0.051717947417,0.0518155153006,0.0515437190536,0.0514182746318,0.0512161697302,0.050916496945,0.0512858610756,0.0510210339631,0.0508746821378,0.0508537747342,0.0513485832865,0.0507701451197,0.0502823057019,0.0500592933967,0.0505053180072,0.0503380587782,0.0496132687861,0.0496202379207,0.0496968984006,0.0495575157098,0.0490627071575,0.0493554108082,0.0497108366697,0.0496550835934,0.0491742133102,0.0487630343723,0.0490208923503,0.0486306208161,0.0482612566855,0.0479894604385,0.0476270654424,0.0470346890066,0.0465259421852,0.0464353434362,0.0464004977635,0.0463308064181,0.0459196274802,0.0458429670003,0.0457802447895,0.0456478312332,0.0458150904622,0.0459893188256,0.0459823496911,0.0458011521931,0.0454805720043,0.0454666337352,0.0455781398878,0.0456408620987,0.045515417677,0.0458847818075,0.0459893188256,0.0459335657493,0.0457105534441,0.0454526954661,0.0455990472914,0.0458150904622,0.0454526954661,0.0451739300845,0.0451390844118,0.0449300103756,0.0446303375905,0.0442818808635,0.0440379611546,0.0438637327911,0.0439125167329,0.0435152760641,0.0433480168352,0.0433619551043,0.04304834405,0.0428113934757,0.0427417021303,0.042957745301,0.0430065292428,0.043138942799,0.042790486072,0.0429159304938,0.0430831897227,0.0429716835701,0.0431737884717,0.042957745301,0.0430553131845,0.0427277638612,0.0428392700138,0.0427695786684,0.0424977824214,0.0421632639635,0.0419123751201,0.0418844985819,0.0418287455056,0.0416754245457,0.0413896900296,0.0415290727204,0.0409366962846,0.0407067148448,0.0406649000375,0.0409018506119,0.0410342641681,0.0407345913829,0.0405952086921,0.0408530666701,0.0407833753247,0.0409227580155,0.041459381375,0.0412712147425,0.0409715419573,0.0408739740737,0.0408112518628,0.0408321592665,0.0406300543648,0.0403164433106,0.040309474176,0.0401073692744,0.0397170977402,0.0398286038928,0.0401004001398,0.03994707918,0.0398146656237,0.0398495112964,0.0397589125474,0.0400655544671,0.0399819248527,0.0396961903365,0.0398216347583,0.0395846841839,0.0394453014931,0.0394801471658,0.0394104558204,0.0392571348606,0.0391386595734,0.0387274806356,0.0386996040974,0.0384069004467,0.0383093325632,0.038539314003,0.0384347769849,0.0380863202579,0.0382466103523,0.0382605486214,0.0383720547741,0.038267517756,0.0383093325632,0.0384696226576,0.0383163016977,0.0381351041997,0.0380445054507,0.0378911844908,0.0377587709346,0.0374312216112,0.037389406804,0.0373127463241,0.0371663944987,0.0371385179606,0.0374172833422,0.0372151784405,0.0374869746875,0.0376890795892,0.0375009129566,0.0375566660329,0.0376751413201,0.0378493696836,0.0377448326655,0.0379748141053,0.0378493696836,0.0381072276616,0.0380026906435,0.0379399684326,0.0382257029487,0.0384347769849,0.0384208387158,0.0382605486214,0.0382466103523,0.0378981536254,0.0377099869928,0.0376821104546,0.0377657400691,0.0379887523744,0.0375148512257,0.0371803327678,0.0367482464264,0.0368249069063,0.0366646168119,0.0369015673862,0.0367621846954,0.0364903884484,0.0360513329724,0.036058302107,0.0358492280708,0.0356819688418,0.0360304255688,0.0359886107616,0.0363022218158,0.0365670489283,0.032970975506,0.0293818712182,0.0258763965449,0.0219876194719,0.0)
ycorr <- c(6.83693507341e-05,6.82272250762e-05,6.77984275712e-05,6.70847416936e-05,6.60859485058e-05,6.48025567996e-05,6.32342400277e-05,6.16473702089e-05,6.00411157894e-05,5.84166421532e-05,5.67749852637e-05,5.51161267285e-05,5.34407033234e-05,5.17487534756e-05,5.00401553772e-05,4.83160816374e-05,4.65777429273e-05,4.48253828979e-05,4.30592480816e-05,4.12793314614e-05,3.94852264143e-05,3.76763238485e-05,3.58528710664e-05,3.40145050069e-05,3.2163071412e-05,3.02974941369e-05,2.84168677089e-05,2.65201417842e-05,2.46081143978e-05,2.26809768733e-05,2.07395929714e-05,1.87826548466e-05,1.68106143602e-05,1.48230055931e-05,1.28177283786e-05,1.07927653516e-05,8.74810331981e-06,6.68339281264e-06,4.59747198246e-06,2.48978090498e-06,3.58775164406e-07,-1.79514797411e-06,-3.97224111982e-06,-6.17209225195e-06,-8.39487645698e-06,-1.06381350571e-05,-1.29007749759e-05,-1.51827706766e-05,-1.74838531641e-05,-1.98046634752e-05,-2.21437369673e-05,-2.44994742521e-05,-2.68727927336e-05,-2.92637393546e-05,-3.16725244496e-05,-3.40981841402e-05,-3.65412770416e-05,-3.90021716325e-05,-4.14801089899e-05,-4.39749546233e-05,-4.64862029437e-05,-4.90163710919e-05,-5.15656310841e-05,-5.41326539629e-05,-5.67156780199e-05,-5.93165613845e-05,-6.19355978885e-05,-6.45727692722e-05,-6.7227902382e-05,-6.99003552534e-05,-7.25905806298e-05,-7.52972397902e-05,-7.80187811915e-05,-8.075555724e-05,-8.35090735619e-05,-8.6279017257e-05,-8.90635350145e-05,-9.18613188843e-05,-9.46718400679e-05,-9.74925324243e-05,-0.000100323740904,-0.000103162922764,-0.000106009598858,-0.000108862484313,-0.000111720073436,-0.000114581051833,-0.000117446451135,-0.000120316401814,-0.000123191471435,-0.000126073173815,-0.000128962301743,-0.000131859819701,-0.000134766745264,-0.000137683556077,-0.000140610826079,-0.000143548927563,-0.000146498400655,-0.00014945809089,-0.000152425929809,-0.00015540123426,-0.000158382736895,-0.000161369656465,-0.000164360225776,-0.000167353338229,-0.000170347569821,-0.000173342378026,-0.000176334657747,-0.000179321751694,-0.000182303215843,-0.00018527840066,-0.000188245342872,-0.000191203247714,-0.000194151625618,-0.000197089790474,-0.000200016855335,-0.000202932244489,-0.000205835141003,-0.000208726507624,-0.000211606806312,-0.000214475943809,-0.000217334781553,-0.000220183848842,-0.000223022953853,-0.000225851080376,-0.000228668271823,-0.000231473368652,-0.000234267550155,-0.000237052213272,-0.00023982747192,-0.000242591991846,-0.000245342964086,-0.000248078601412,-0.000250797197741,-0.000253498418546,-0.00025618287473,-0.000258851451424,-0.000261503374137,-0.000264136381615,-0.000266748776844,-0.000269340439388,-0.000271913126984,-0.000274468060628,-0.000277007704197,-0.000279532611755,-0.000282041448788,-0.00028453252726,-0.000287005599329,-0.000289461472723,-0.00029190115914,-0.000294324616642,-0.000296732132306,-0.000299122922991,-0.000301496000914,-0.000303849818476,-0.00030618456639,-0.000308501578839,-0.000310802641595,-0.000313086359989,-0.000315352213306,-0.000317600117996,-0.000319829762036,-0.000322039791772,-0.000324229564693,-0.000326400114361,-0.000328552334032,-0.000330686694429,-0.000332800064326,-0.000334892579115,-0.000336964194434,-0.000339015028241,-0.000341044065793,-0.000343052404224,-0.000345041604067,-0.000347011489423,-0.00034896126308,-0.000350888315635,-0.000352793374396,-0.000354677486866,-0.000356540735027,-0.000358383242809,-0.000360206458814,-0.000362011317064,-0.000363797257316,-0.000365564664193,-0.000367313883317,-0.000369046471436,-0.000370763928088,-0.000372466906475,-0.000374154685264,-0.000375826827468,-0.000377482917119,-0.000379122287046,-0.000380743672921,-0.000382346833244,-0.00038393203555,-0.000385499346041,-0.000387048832334,-0.000388578885058,-0.000390089308895,-0.000391582270104,-0.000393057375291,-0.000394515578687,-0.000395957499439,-0.000397384761055,-0.000398796783415,-0.000400193073516,-0.000401573048756,-0.000402936765683,-0.00040428641217,-0.000405621101956,-0.000406941917643,-0.00040824785667,-0.000409537921207,-0.000410811554131,-0.000412067556523,-0.00041330635451,-0.000414527590063,-0.000415732312579,-0.000416918691811,-0.000418085077614,-0.000419231089111,-0.000420356324104,-0.00042146185659,-0.000422547832225,-0.000423614746045,-0.000424663783087,-0.000425695128731,-0.000426708839162,-0.000427704964805,-0.00042868556595,-0.000429650702703,-0.000430601389202,-0.00043153687128,-0.00043245794294,-0.000433365136838,-0.000434257269191,-0.000435133356329,-0.000435993725483,-0.000436838776879,-0.000437668783854,-0.000438483349428,-0.000439282348079,-0.000440065862539,-0.000440833864391,-0.000441586107615,-0.00044232370031,-0.000443048105712,-0.000443760304023,-0.000444460505711,-0.000445148332634,-0.000445823946528,-0.000446488152679,-0.000447143114592,-0.000447787785409,-0.000448422980458,-0.000449047594111,-0.000449661660184,-0.000450264076869,-0.00045085425812,-0.000451431896184,-0.000451996242384,-0.00045254689594,-0.000453081843117,-0.000453601591583,-0.000454105331034,-0.000454594098618,-0.000455068612193,-0.000455528925551,-0.000455976695567,-0.000456412201494,-0.000456836927406,-0.000457251672755,-0.000457656649398,-0.000458052196838,-0.000458438961857,-0.000458817629651,-0.000459187186259,-0.000459546737849,-0.000459894694686,-0.000460230788507,-0.000460555023849,-0.000460866161774,-0.000461163967688,-0.000461448214916,-0.000461719164324,-0.000461975090304,-0.000462216307769,-0.000462442323866,-0.000462655505347,-0.000462856444479,-0.000463044177602,-0.000463218528044,-0.0004633802605,-0.000463530046894,-0.00046366781777,-0.000463793755773,-0.000463907951742,-0.000464011978777,-0.000464104856391,-0.000464185675163,-0.000464254468017,-0.00046431255077,-0.000464359642353,-0.000464394297834,-0.000464416510639,-0.000464426624063,-0.000464425307703,-0.000464412014121,-0.000464386164695,-0.000464349232838,-0.000464301477295,-0.000464242325057,-0.000464171393313,-0.000464090241868,-0.000463999552439,-0.000463899995879,-0.000463790860895,-0.000463672726573,-0.000463546141392,-0.000463410817512,-0.000463266675455,-0.000463113586052,-0.000462953122946,-0.000462784958452,-0.000462608309154,-0.000462423235028,-0.000462229337236,-0.000462026629754,-0.000461814441319,-0.000461592031946,-0.000461359437036,-0.000461117131095,-0.000460864768962,-0.000460602014072,-0.000460328587224,-0.000460044201254,-0.000459748934286,-0.000459442535408,-0.000459125943046,-0.000458799972018,-0.000458465379853,-0.000458121831533,-0.000457768623527,-0.000457405837401,-0.000457033678575,-0.000456652193095,-0.000456261896526,-0.000455863369713,-0.000455456848074,-0.000455042344358,-0.000454618995641,-0.000454187147162,-0.000453747206537,-0.000453299384773,-0.000452843699141,-0.000452380591452,-0.000451910464037,-0.000451432352891,-0.000450945379265,-0.000450449241085,-0.000449944117981,-0.000449430083661,-0.000448907146636,-0.000448374970746,-0.000447833895949,-0.000447283365987,-0.000446723069065,-0.000446153255033,-0.00044557503945,-0.000444988105412,-0.00044439232397,-0.000443786527237,-0.000443170608174,-0.000442544679139,-0.000441909430938,-0.00044126424601,-0.000440608942302,-0.000439943072964,-0.000439266307188,-0.00043857833527,-0.000437880005937,-0.00043717163283,-0.000436453301875,-0.000435724959395,-0.000434985645614,-0.000434235646984,-0.000433475603117,-0.00043270643998,-0.000431927787187,-0.000431139506394,-0.000430341705453,-0.000429534822419,-0.000428719014155,-0.000427895068263,-0.000427063254913,-0.00042622408145,-0.000425376492304,-0.000424519548629,-0.000423652687998,-0.000422777246501,-0.000421893168235,-0.000421000206015,-0.000420097753319,-0.000419185414546,-0.000418263359969,-0.000417331364036,-0.000416389777213,-0.000415439345549,-0.000414481423124,-0.000413515050448,-0.000412539025082,-0.000411553521996,-0.000410559120535,-0.00040955560317,-0.000408542351517,-0.000407518984904,-0.000406485623177,-0.000405442093097,-0.000404387357082,-0.000403321629389,-0.000402246124739,-0.000401160807443,-0.000400065220742,-0.000398957900978,-0.000397839644114,-0.000396710892064,-0.000395571227347,-0.000394420113627,-0.000393257254083,-0.000392082410878,-0.000390894441564,-0.000389693294931,-0.000388479256258,-0.000387252948852,-0.000386014505915,-0.000384763317347,-0.000383499706528,-0.000382223928184,-0.000380936240019,-0.0003796372191,-0.000378327609529,-0.00037700715698,-0.000375675593243,-0.000374332941432,-0.000372979576405,-0.000371616256023,-0.00037024264349,-0.000368859161308,-0.000367465957451,-0.000366062933594,-0.000364649423378,-0.000363225275294,-0.000361790806299,-0.000360346673699,-0.000358891738662,-0.000357424668266,-0.000355945166052,-0.000354453304864,-0.000352948191096,-0.000351429521635,-0.000349896992049,-0.000348350667256,-0.000346790750781,-0.000345216699315,-0.00034362782665,-0.000342025349545,-0.000340409477498,-0.000338779844242,-0.000337136865548,-0.000335480765138,-0.000333811723817,-0.000332130163877,-0.000330435584033,-0.000328727839481,-0.000327007641571,-0.000325274938062,-0.000323529875778,-0.000321772263006,-0.00032000234186,-0.000318219342955,-0.000316423464936,-0.000314614602145,-0.000312792437557,-0.000310956874515,-0.000309107378877,-0.000307243496706,-0.000305365441003,-0.000303472548195,-0.000301564931907,-0.000299642712774,-0.000297705022644,-0.000295751225814,-0.000293781015287,-0.000291794886111,-0.000289793257376,-0.000287776106678,-0.000285742855838,-0.000283693708015,-0.000281628615919,-0.000279547802807,-0.000277452086326,-0.000275342019741,-0.000273217178332,-0.000271077743857,-0.000268923161168,-0.000266753192629,-0.000264567878246,-0.000262367155735,-0.000260150258465,-0.000257917209448,-0.000255666953604,-0.000253398682972,-0.000251113140772,-0.000248810656211,-0.000246490591621,-0.000244152964391,-0.000241797826081,-0.000239425628955,-0.000237036620063,-0.000234630462247,-0.000232207740374,-0.000229769378007,-0.000227315336174,-0.000224845130262,-0.000222359240224,-0.000219857962816,-0.000217340760357,-0.000214807290389,-0.000212257106197,-0.000209689993454,-0.000207106306611,-0.000204505442606,-0.000201886892883,-0.000199249948702,-0.000196595113656,-0.000193921817415,-0.000191230612839,-0.000188521796785,-0.000185795873716,-0.000183052997395,-0.000180292880227,-0.000177515023104,-0.00017471945867,-0.000171906333103,-0.000169075895503,-0.000166227249405,-0.000163360834079,-0.000160475836846,-0.000157572003884,-0.000154649147023,-0.000151707741627,-0.000148748158474,-0.000145770867903,-0.000142775340329,-0.00013976111636,-0.000136728388048,-0.000133677260574,-0.000130607763414,-0.000127520544092,-0.000124416117558,-0.000121294180974,-0.000118154441116,-0.000114996815319,-0.000111821418079,-0.000108628736402,-0.000105419789324,-0.000102194267138,-9.89518233117e-05,-9.56917561855e-05,-9.2412800309e-05,-8.9114119087e-05,-8.5795737252e-05,-8.24577394815e-05,-7.91004646498e-05,-7.57234104905e-05,-7.23256671727e-05,-6.89061765586e-05,-6.54654202399e-05,-6.20035632063e-05,-5.85215210766e-05,-5.50201535458e-05,-5.14995249474e-05,-4.79584739665e-05,-4.43968044166e-05,-4.0813899986e-05,-3.72100228511e-05,-3.35862462845e-05,-2.99431462695e-05,-2.6280806551e-05,-2.25998076446e-05,-1.88946910077e-05,-1.51584343057e-05,-1.13853219098e-05,-7.56974218954e-06,-3.68186668277e-06,1.06037435442e-07,3.82126765759e-06,7.47005206205e-06,1.10588572601e-05,1.45945955291e-05,1.80816783506e-05,2.15157937595e-05,2.48902641533e-05,2.81991807835e-05,3.14351305253e-05,3.4569023114e-05,3.77726616326e-05,4.10186132177e-05,4.43003841535e-05,4.76117051998e-05,5.09462856055e-05,5.42996889057e-05,5.76711941822e-05,6.1060661456e-05,6.44676384344e-05,6.78926432851e-05,7.13349949094e-05,7.47950310407e-05,7.82726907219e-05,8.17681097424e-05,8.52815059972e-05,8.88127138122e-05,9.236220784e-05,9.59294452333e-05,9.95143907476e-05,0.000103116852294,0.000106736776882,0.000110373846206,0.000114027775788,0.00011769833702,0.000121385921244,0.000125089799601,0.000128809104658,0.000132543529142,0.00013629357252,0.000140058798827,0.000143839337306,0.000147635173205,0.000151447000595,0.00015527489165,0.000159118139865,0.000162976380975,0.000166850088126,0.000170739548357,0.000174644106539,0.000178563424225,0.000182497270961,0.000186445337292,0.000190406866868,0.000194381389212,0.000198368538911,0.0002023689784,0.000206382168221,0.000210407961789,0.000214446375782,0.000218497680425,0.000222561614749,0.000226637817789,0.000230726280505,0.000234826740632,0.000238938737225,0.000243061602257,0.000247195190235,0.00025133990418,0.000255495353971,0.000259661612968,0.000263838861892,0.000268026889866,0.000272225210118,0.000276433764788,0.000280652381461,0.000284880838878,0.000289119129073,0.000293365978734,0.000297620350213,0.000301881673625,0.000306149173463,0.000310422224483,0.000314700693999,0.000318984352815,0.00032327272741,0.00032756577907,0.000331862721653,0.000336163518842,0.000340468072023,0.000344776087635,0.000349086294756,0.000353398116333,0.000357711109607,0.000362024702485,0.00036633870091,0.00037065236302,0.000374965301262,0.000379276805273,0.000383586213276,0.000387893768271,0.00039219973181,0.000396503999408,0.000400805693791,0.000405104227477,0.000409398920448,0.000413689231543,0.000417974431336,0.000422254351342,0.000426529047637,0.000430797628487,0.000435059595269,0.000439314312461,0.000443561520169,0.000447801072975,0.000452031890872,0.000456254024834,0.00046046663375,0.00046466922139,0.000468860898075,0.000473040994474,0.000477208628308,0.000481362994408,0.000485503836778,0.000489630606372,0.000493743228502,0.000497841345481,0.000501924128028,0.000505991346316,0.0005100424008,0.000514075938267,0.000518091766332,0.00052208939186,0.000526068039519,0.000530026516902,0.000533964318631,0.000537879699749,0.000541772285923,0.000545641359028,0.000549486560135,0.000553307665726,0.000557104289698,0.000560875469823,0.000564620918518,0.000568340235081,0.000572033102905,0.000575700099611,0.000579341622138,0.00058295662667,0.000586544467633,0.000590105050771,0.000593637137219,0.000597140211169,0.000600613663119,0.000604056933831,0.000607468835736,0.000610848621768,0.000614194321644,0.000617505476929,0.000620782479036,0.000624024616429,0.00062723147241,0.000630403494041,0.000633540950807,0.000636643473297,0.000639710782916,0.000642741953796,0.000645736550869,0.000648694615541,0.000651615042686,0.000654496528671,0.000657338329247,0.000660139489956,0.000662898808119,0.000665615292705,0.000668288423094,0.000670917530501,0.000673503502525,0.000676046095252,0.000678544099807,0.000680997251227,0.000683406037794,0.000685770351503,0.000688089110102,0.000690362161482,0.000692589265587,0.000694770463672,0.000696905240834,0.000698992059637,0.000701030028572,0.000703019524617,0.000704959963393,0.0007068496738,0.000708688641219,0.000710476605499,0.000712212723936,0.000713895771951,0.000715524669964,0.000717099659773,0.000718621472196,0.000720090175923,0.000721504902641,0.000722866095207,0.00072417372197,0.000725427693602,0.000726628349396,0.000727776347996,0.000728872007662,0.000729914970488,0.000730904515424,0.00073183981639,0.000732720961985,0.000733547986476,0.000734320815222,0.000735039183363,0.000735702749071,0.000736311026027,0.000736863691863,0.000737360707151,0.000737802196876,0.000738187981893,0.0007385176961,0.000738790927586,0.000739007350495,0.000739166536215,0.000739268108737,0.00073931192856,0.000739297920537,0.000739225560301,0.000739095054268,0.000738906838139,0.00073866118709,0.000738359215845,0.000738000714266,0.000737585998963,0.000737115983388,0.000736591668118,0.000736012874582,0.000735380114837,0.000734693761994,0.000733953957712,0.000733160470458,0.000732312989056,0.000731411288996,0.000730456089168,0.000729447108621,0.000728382922411,0.000727263524475,0.00072608996514,0.000724861843518,0.000723579249368,0.000722242318784,0.000720851250409,0.000719406547198,0.000717907953909,0.000716355366701,0.000714749971749,0.000713092994196,0.000711384325309,0.000709623829089,0.000707812122522,0.000705949959841,0.000704037881151,0.000702076707964,0.000700067094972,0.000698010320573,0.000695906659999,0.000693756720453,0.000691560681471,0.000689320008072,0.00068703456989,0.000684705123171,0.000682331683506,0.000679914134178,0.000677453052996,0.000674948566826,0.000672401051923,0.000669810954717,0.000667178241366,0.00066450315386,0.000661786185239,0.00065902824693,0.000656229485683,0.00065339071203,0.000650512465559,0.000647595042912,0.000644638939308,0.000641643769325,0.000638609969538,0.000635538035761,0.000632428669927,0.000629281650195,0.000626097475766,0.000622876604745,0.000619619528241,0.000616326886189,0.000612998858555,0.000609636490267,0.000606240671287,0.000602812312196,0.000599351582013,0.00059585890653,0.000592335344733,0.000588782014039,0.000585199317452,0.000581587459504,0.000577947702568,0.000574280538316,0.000570586548595,0.000566866066713,0.000563119419908,0.000559347572719,0.000555550861529,0.000551728958854,0.00054788220508,0.000544012019991,0.000540118200808,0.000536200668686,0.000532259861378,0.000528295432499,0.000524308068526,0.000520298469348,0.000516267172086,0.000512215342822,0.00050814364793,0.000504051560694,0.000499939081237,0.000495807356894,0.00049165703567,0.000487489529504,0.00048330630122,0.000479107927332,0.000474893871422,0.000470663624568,0.000466417236319,0.00046215577901,0.000457880383168,0.000453591707506,0.000449290201167,0.000444975723342,0.000440647273515,0.000436304266477,0.000431948015153,0.000427580139917,0.000423201664103,0.000418812435193,0.000414412566469,0.000410001851438,0.000405580540726,0.000401149196929,0.000396709181332,0.000392261394302,0.000387805557361,0.00038334118635,0.000378868590128,0.000374388513314,0.00036990167244,0.000365408656879,0.000360909908557,0.000356405447224,0.000351895644587,0.000347380966065,0.000342862673714,0.000338341879764,0.000333818551353,0.000329292113278,0.000324762907203,0.00032023146076,0.000315697928732,0.000311163627605,0.000306628702194,0.000302093164275,0.00029755684695,0.000293020426559,0.000288484299636,0.000283949654233,0.00027941790346,0.000274888708344,0.000270362595765,0.00026583935209,0.000261319162672,0.000256802968055,0.000252291510118,0.000247784127319,0.000243280375151,0.000238780552324,0.000234283951661,0.000229790824481,0.000225301854265,0.000220817508572,0.000216337920867,0.000211862727493,0.000207391921749,0.000202925622494,0.000198464789142,0.000194009502257,0.000189560655249,0.00018511872081,0.000180683169662,0.000176254362599,0.000171832000006,0.000167416800483,0.000163008880466,0.000158608721026,0.000154216274024,0.000149832479083,0.000145457313136,0.00014109094178,0.000136734288516,0.000132387270291,0.000128050562953,0.000123724924576,0.000119410940304,0.000115108990748,0.000110819302538,0.000106542251981,0.000102277254275,9.80252197313e-05,9.37861393259e-05,8.95598569367e-05,8.53473524709e-05,8.114756729e-05,7.69603636314e-05,7.27861056198e-05,6.86254304747e-05,6.447818243e-05,6.0345488657e-05,5.62271202525e-05,5.21226268988e-05,4.80323026351e-05,4.39562088916e-05,3.98943910347e-05,3.5847914577e-05,3.18169299372e-05,2.78014450005e-05,2.38013918904e-05,1.98167810327e-05,1.58469993103e-05,1.18931784778e-05,7.95553741345e-06,4.03372887917e-06,1.28932483824e-07,-3.7592125028e-06,-7.63128942463e-06,-1.1486749033e-05,-1.53263602177e-05,-1.91499862377e-05,-2.29570133419e-05,-2.67476332459e-05,-3.05215635878e-05,-3.42783812514e-05,-3.80179557063e-05,-4.1741222478e-05,-4.54473280732e-05,-4.9136295332e-05,-5.28073519016e-05,-5.64602681648e-05,-6.00951079481e-05,-6.37120160443e-05,-6.73110136503e-05,-7.08923983564e-05,-7.4456269702e-05,-7.80017718521e-05,-8.15290814878e-05,-8.50389101349e-05,-8.85311422624e-05,-9.20060072038e-05,-9.54628308013e-05,-9.89006722692e-05,-0.000102319397028,-0.000105718778593,-0.000109098926689,-0.000112460426354,-0.000115802856127,-0.000119125182036,-0.000122426295258,-0.000125706180105,-0.000128965525976,-0.000132204849392,-0.00013542487572,-0.000138625450944,-0.000141806095627,-0.000144966127943,-0.000148104867563,-0.000151222802432,-0.000154320587094,-0.000157398564408,-0.000160456009431,-0.000163493353304,-0.000166510043871,-0.000169505611941,-0.000172480820973,-0.000175435398662,-0.000178370509629,-0.000181286206142,-0.000184183047815,-0.000187060957268,-0.000189919911075,-0.000192758785361,-0.000195576835297,-0.000198373934395,-0.00020114997707,-0.000203904758638,-0.000206638661469,-0.000209350465975,-0.00021204018132,-0.000214707065653,-0.000217350805091,-0.000219972150649,-0.000222572393877,-0.000225152657314,-0.000227713455058,-0.000230255459014,-0.000232777014402,-0.000235278964071,-0.000237760848376,-0.000240222855249,-0.00024266520935,-0.000245087887504,-0.000247489760148,-0.000249869615153,-0.000252226082708,-0.000254557556346,-0.000256864734383,-0.00025914814968,-0.000261407646653,-0.00026364384789,-0.00026585632383,-0.000268045041323,-0.000270210490253,-0.000272353325854,-0.000274474880029,-0.000276576074217,-0.000278657754147,-0.000280719457304,-0.000282761264756,-0.000284782004348,-0.00028678203354,-0.000288761393545,-0.000290719386864,-0.000292656078934,-0.000294570204506,-0.00029646197372,-0.00029833089027,-0.000300176946038,-0.000301999359111,-0.000303799832612,-0.000305578247664,-0.000307335217842,-0.000309071327257,-0.000310786738746,-0.000312481058932,-0.00031415497125,-0.000315807392531,-0.000317438118221,-0.000319047814826,-0.000320635670968,-0.000322200177669,-0.00032374131353,-0.000325258451159,-0.000326750676412,-0.000328218962279,-0.000329662549822,-0.000331081222353,-0.000332475743079,-0.000333845342977,-0.000335190228882,-0.000336511855562,-0.000337809984093,-0.000339084374314,-0.000340335071545,-0.000341561751276,-0.000342764510244,-0.000343944027705,-0.000345100234639,-0.000346233312641,-0.000347343431085,-0.000348428818991,-0.000349489279774,-0.000350525025245,-0.000351536716194,-0.000352524087928,-0.000353487514415,-0.000354426983125,-0.000355342012262,-0.000356232893354,-0.000357099032802,-0.000357942080247,-0.000358762140778,-0.000359558229386,-0.000360330173046,-0.000361077307002,-0.000361799319309,-0.000362495377058,-0.000363163812248,-0.000363805181532,-0.000364419529291,-0.000365006053606,-0.000365563788483,-0.000366093959438,-0.000366562938469,-0.000366936885202,-0.000367216658787,-0.000367402694225,-0.00036749518843)
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(221)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('A549-100nM-Dex-6h-p300.pooled.sorted.MACS-2.1.0.p1e-1_model.pdf',height=6,width=6)
plot(x,p,type='l',col=c('red'),main='Peak Model',xlab='Distance to the middle',ylab='Percentage')
lines(x,m,col=c('blue'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 221',bty='n')
dev.off()