# R script for Peak Model
#  -- generated by MACS
p <- c(0.0419546066221,0.0490556209511,0.0561710142811,0.0631359811394,0.0700533866867,0.0702093435434,0.0702115556974,0.0700279469157,0.0700721899956,0.0698974298299,0.0697890342841,0.0697934585921,0.0697293061262,0.0696894873542,0.0697536398201,0.0696352895813,0.0697812917451,0.0698941115989,0.0697337304341,0.0697082906632,0.0696618354293,0.0695534398834,0.0696297591963,0.0697038663552,0.0696872752002,0.0697049724322,0.0696297591963,0.0695014542645,0.0697204575102,0.069823322671,0.069802307208,0.0699472032948,0.0698620353659,0.069800095054,0.069837701672,0.0697901403611,0.0697503215891,0.0699073845229,0.0697237757412,0.0696198045033,0.069860929289,0.0696673658143,0.0695744553464,0.0695125150345,0.0694793327245,0.0695169393425,0.0694063316427,0.0694660598006,0.0694218167206,0.0694395139526,0.0694594233386,0.0695722431924,0.0696640475833,0.0697945646691,0.0697425790501,0.069798988977,0.0700832507656,0.0699184452929,0.0700810386116,0.0702403136994,0.0701109026906,0.0700920993816,0.0699140209849,0.0697569580511,0.0699737491428,0.069800095054,0.0695047724955,0.0696319713503,0.0694826509555,0.0694361957216,0.0695611824224,0.0694937117255,0.0696319713503,0.0697647005901,0.0697624884361,0.0700113557607,0.0701772673105,0.0702856628563,0.070483650639,0.0703431788602,0.0702679656243,0.0703155269352,0.0702369954684,0.0701374485385,0.0699560519108,0.0697967768231,0.0696883812772,0.0694627415696,0.0693266940988,0.0694306653366,0.0694749084165,0.0695766675004,0.069810049747,0.0700401137627,0.0701120087676,0.0702746020863,0.0703675125542,0.0703099965503,0.0702978297033,0.0704051191721,0.0702900871643,0.0700909933046,0.0699272939088,0.0698918994449,0.0699007480609,0.0699051723689,0.0699881281438,0.0702082374664,0.0703287998592,0.0701639943865,0.0701518275395,0.0702657534703,0.0701606761555,0.0700744021496,0.0698907933679,0.0697071845862,0.0694959238795,0.0694981360335,0.0694870752635,0.0694450443376,0.0695180454195,0.0694162863356,0.0696574111213,0.0696419260433,0.0697414729731,0.0699029602149,0.0699184452929,0.0699317182168,0.0699460972178,0.0701319181535,0.0699704309118,0.0703088904733,0.0701341303075,0.0701341303075,0.0702922993183,0.0703719368622,0.0707137146546,0.0705776671838,0.0706650472667,0.0707435787336,0.0710035068282,0.0706904870377,0.0707977765065,0.0710477499081,0.0709625819792,0.0708962173593,0.0708088372765,0.071146190761,0.0710776139871,0.0710012946742,0.0709769609802,0.0712191918429,0.0712667531538,0.0711981763799,0.0712501619988,0.0713707243916,0.0713386481587,0.071147296838,0.0712324647668,0.0711871156099,0.0711572515309,0.0710510681391,0.0710776139871,0.0710654471401,0.071118538836,0.0710776139871,0.0711904338409,0.0714072249326,0.0714348768575,0.0715609696353,0.0718463375009,0.0720476435146,0.0721383418284,0.0720365827446,0.0720719772085,0.0721759484464,0.0720653407465,0.0719901275107,0.0719392479687,0.0718927927348,0.0716649408732,0.0715233630174,0.0716052127153,0.0717279872621,0.0718098369599,0.0717003353371,0.0719292932758,0.0719657938167,0.0721781606004,0.0723695119211,0.0724690588509,0.0726393947087,0.0725863030127,0.0728285338754,0.0727311990995,0.0728860498793,0.0728738830323,0.0729070653422,0.0726924864046,0.0726405007857,0.0726106367067,0.0725774543967,0.0726062123987,0.0724546798499,0.0727522145625,0.0728672465703,0.0727699117945,0.0726946985586,0.07303315812,0.0731172199719,0.0732355702107,0.0733185259856,0.0734003756835,0.0734191789924,0.0733085712926,0.0734523613024,0.0735795601572,0.0736238032371,0.0735275745383,0.0735806662342,0.073695698242,0.0738759887927,0.0740618097285,0.0742332516632,0.074347177594,0.0742000693532,0.0743991632129,0.0746867432325,0.0747132890804,0.075010823793,0.0750993099528,0.0751612502648,0.074997550869,0.0750860370289,0.0751048403378,0.0752419938856,0.0753891021264,0.0753570258935,0.0754665275163,0.0753791474334,0.0756114236031,0.075668939607,0.0759476710105,0.0761755228722,0.0762075991051,0.076277281956,0.0762341449531,0.0761478709472,0.076324843267,0.076311570343,0.0764232841198,0.0763889957329,0.0764619968147,0.0765040277407,0.0766577724434,0.0767584254503,0.0767761226823,0.0771433402457,0.0770847181648,0.0772240838666,0.0770371568539,0.0772804937935,0.0772041744806,0.0771444463227,0.0772307203286,0.0772738573315,0.0774607843442,0.0774132230333,0.077579134583,0.0777815466737,0.0778987908355,0.0778324262156,0.0781277487742,0.0783080393249,0.0785016027996,0.0787615308942,0.0787206060452,0.0790645959917,0.0791917948465,0.0794096920152,0.0795966190279,0.0799229117424,0.0799505636673,0.0802890232288,0.0805157690135,0.0806119977123,0.0809360782728,0.0808686075759,0.0810533224346,0.0810876108216,0.0813320538382,0.08143823723,0.0816859984777,0.0816915288627,0.0817589995595,0.0818032426395,0.0817910757925,0.082136171816,0.0823153562897,0.0825752843843,0.0828717130198,0.0830320941846,0.0832643703542,0.0837211801545,0.0842919158856,0.0850175023965,0.0858393176062,0.0862352931716,0.0866810422019,0.0870449415344,0.0874541900237,0.0877506186593,0.0882970206964,0.088583494639,0.0887527244197,0.0887394514958,0.0888013918077,0.0889263785085,0.089201791681,0.0895247661645,0.0898388920321,0.0902934896783,0.0903255659113,0.090515811155,0.0906319492398,0.0908443160235,0.0910854408091,0.0914073092156,0.0914946892985,0.0914648252195,0.0913929302146,0.0914205821396,0.0917125864672,0.0917601477781,0.0921196228025,0.0924182635921,0.0925122801369,0.0926870403026,0.0929237407803,0.0932721550347,0.0936061902882,0.0937986476859,0.0940674243965,0.09436827734,0.0944987944258,0.0945673711997,0.0948903456832,0.0949401191482,0.0951779257028,0.0952575632467,0.0955606283442,0.0957641465119,0.095723221663,0.095686721122,0.0957022062,0.0959322702156,0.0959997409125,0.0962452900061,0.096312760703,0.0966379473405,0.0964178380179,0.0967419185784,0.096983043364,0.0972838963075,0.0973403062345,0.0977318574918,0.0979044055036,0.0980382408204,0.0981731822142,0.098247289373,0.0986864019414,0.0987925853332,0.0990193311179,0.0992538194415,0.0997792060157,0.0997924789397,0.100060149573,0.100582217916,0.100942799018,0.101192772419,0.101294531503,0.101532338058,0.101922783238,0.102188241718,0.102121877098,0.102347516806,0.102381805193,0.10225018203,0.102487988584,0.102556565358,0.102573156513,0.102786629374,0.102542186357,0.102814281299,0.103157165168,0.103139467936,0.103427047956,0.10377214398,0.103839614676,0.104098436694,0.10473000666,0.104798583434,0.105029753527,0.105260923619,0.105461123556,0.105870372045,0.106028541056,0.10627409015,0.106684444716,0.106993040199,0.106962070043,0.107314908605,0.107827022255,0.10794316034,0.10820861882,0.108386697216,0.108651049619,0.108704141315,0.108788203167,0.108928674946,0.109336817358,0.109493880292,0.109817960852,0.109976129863,0.110113283411,0.110330074502,0.110601063367,0.110857673231,0.111122025633,0.111292361491,0.111276876413,0.111338816725,0.111416242115,0.111593214434,0.111936098304,0.112311058406,0.11260085058,0.112917188601,0.113089736613,0.113463590639,0.113885005975,0.114150464454,0.114251117461,0.11454644002,0.114608380332,0.114652623412,0.114934673046,0.115097266365,0.115387058539,0.115467802159,0.11548218116,0.115716669484,0.115905808651,0.116155782052,0.116448892457,0.116566136619,0.116556181926,0.116735366399,0.116839337637,0.116953263568,0.117151251351,0.117311632516,0.117574878841,0.117720881005,0.117897853325,0.118136765956,0.118187645498,0.118313738276,0.118480755903,0.118897746931,0.119053703788,0.119386632964,0.119617803057,0.119553650591,0.119488392048,0.119823533379,0.120166417248,0.120421921035,0.120650878973,0.120915231376,0.121226039013,0.12126364563,0.121535740572,0.121907382443,0.122375253014,0.122573240796,0.122691591035,0.122692697112,0.122748000962,0.122614165645,0.122624120338,0.122938246206,0.122803304812,0.122845335738,0.122926079359,0.12294045836,0.122959261669,0.123476905704,0.12359636202,0.123766697878,0.12390938181,0.123927079042,0.124278811528,0.124382782766,0.124497814773,0.12449892085,0.124800879871,0.124538739622,0.12464271086,0.124626119705,0.124529891006,0.124550906469,0.124431450154,0.124331903224,0.124190325368,0.124117324286,0.123857396191,0.124000080124,0.123963579583,0.123944776274,0.124091884515,0.123796561957,0.123687060334,0.123641711177,0.123359661542,0.123274493613,0.12302894452,0.122724773345,0.122236993389,0.122025732682,0.121727091893,0.121676212351,0.121368722945,0.121144189315,0.121148613623,0.120809047984,0.120682955206,0.120476118808,0.120551332044,0.12033896526,0.120037006239,0.119723986449,0.119388845118,0.119183114797,0.118989551322,0.119006142477,0.119012778939,0.118887792238,0.118675425454,0.118385633281,0.118252904041,0.118263964811,0.11823852504,0.118063764874,0.117725305313,0.117412285522,0.117323799363,0.117116962964,0.116888005025,0.116640243778,0.116386952145,0.115984340118,0.115672426404,0.115404755771,0.11540143754,0.11524658676,0.11488158135,0.114670320644,0.114434726243,0.114298678772,0.114106221375,0.114028795985,0.113963537442,0.113894960668,0.113535485643,0.113326437091,0.113003462607,0.112862990828,0.112714776511,0.112637351121,0.112491348957,0.112295573328,0.112071039698,0.111792308294,0.11161312382,0.111501410044,0.111354301803,0.110936204697,0.11069950422,0.110498198206,0.110320119809,0.110219466803,0.110083419332,0.109938523245,0.109852249239,0.109488349907,0.109262710199,0.109214042811,0.108738429702,0.108310377903,0.107936523878,0.107246331831,0.106677808254,0.106125875832,0.105221104847,0.104651475193,0.103773250057,0.102990147542,0.102411669272,0.101887388774,0.101192772419,0.100729326157,0.100456125139,0.100043558418,0.0998687982525,0.0993555785253,0.0995093232281,0.0991874548216,0.0990016338859,0.0986554317854,0.0985802185495,0.0982373346801,0.0978645867316,0.09765885641,0.0974332167023,0.0973347758495,0.096990785903,0.0967319638854,0.0968016467363,0.0965804313366,0.0962840027011,0.0964078833249,0.0961977286952,0.0959201033686,0.0958216625158,0.0956590691971,0.0953405190215,0.0954013532564,0.095037453924,0.0949390130712,0.0948394661413,0.0945209159658,0.0942123204833,0.0940110144696,0.0938616940748,0.0937090554491,0.0936238875202,0.0934214754295,0.0934480212775,0.0934214754295,0.0932544578028,0.0932367605708,0.0930620004051,0.0929270590113,0.0925930237578,0.092431536516,0.0922501398883,0.091817663782,0.0915112804535,0.0912314429729,0.0909704088013,0.090539038772,0.090524659771,0.0903886123002,0.0904040973782,0.0901386388986,0.0899096809599,0.0899129991909,0.0896762987133,0.0895734335525,0.0895225540105,0.0894805230846,0.08919847345,0.0889993795904,0.0886963144928,0.088559160945,0.088558054868,0.0885038570951,0.0883235665444,0.0880149710619,0.0879806826749,0.0877550429673,0.0877948617392,0.0877096938103,0.0876035104185,0.0875294032596,0.0872042166221,0.0869675161445,0.0867109062809,0.08663016266,0.0862740058666,0.0860981396238,0.0856745121335,0.0854223265779,0.0852210205642,0.0849931687025,0.0848958339267,0.0846524969871,0.0847664229179,0.0845009644383,0.0842211269577,0.0842786429617,0.0841691413388,0.0841260043359,0.0839965933271,0.0838926220892,0.0835884509147,0.0835751779907,0.0832466731222,0.0832632642772,0.0833119316651,0.0830409428006,0.0830508974936,0.0827201804711,0.0825962998473,0.0824691009925,0.0824525098375,0.0822799618257,0.0822080668209,0.0820565342721,0.0818850923374,0.0816129973958,0.0813032958363,0.0813187809142,0.0811849455974,0.0810135036627,0.080844273882,0.0805179811675,0.0803509635407,0.0800445802122,0.0797846521176,0.0796618775708,0.0794583594031,0.0792183406945,0.0790037617568,0.0789617308309,0.0789661551389,0.0789407153679,0.0787172878143,0.0786453928094,0.0785569066495,0.0784728447976,0.0785425276485,0.0787006966593,0.0786232712694,0.0784031619467,0.0781377034671,0.0779928073804,0.0779043212205,0.0776897422828,0.0774364506502,0.0771566131697,0.0768878364591,0.0765936199775,0.0763536012689,0.0762120234131,0.0761169007913,0.0760195660154,0.0758901550066,0.0760173538614,0.0760217781694,0.0761025217903,0.0759797472435,0.0758271086177,0.0759443527795,0.0758425936957,0.0757032279939,0.075636863374,0.0754864369023,0.0752884491196,0.0753061463515,0.0751889021897,0.0751689928037,0.0749654746361,0.0749112768631,0.0748272150113,0.0747674868534,0.0746745763855,0.0746248029206,0.0745750294557,0.0742531610492,0.0740186727255,0.0739091711027,0.0739777478766,0.073738835245,0.073715607628,0.0734733767654,0.0734844375353,0.0733506022186,0.0732676464437,0.0733583447575,0.0733041469846,0.0732875558297,0.0731968575158,0.0731636752058,0.0731979635928,0.0732632221357,0.0730044001181,0.073071870815,0.0730032940411,0.0729214443432,0.0729225504202,0.0728694587243,0.0726228035537,0.072434770464,0.0723009351472,0.0721670998304,0.0721494025984,0.0719868092797,0.0719779606637,0.0720022943576,0.0720244158976,0.0719989761266,0.0718850501958,0.0718927927348,0.0717014414141,0.0718020944209,0.0716815320281,0.0715642878663,0.0712601166918,0.0712003885339,0.0712368890748,0.0710543863701,0.0711694183779,0.0710123554442,0.0709459908243,0.0708519742794,0.0709249753613,0.0709670062872,0.071090886911,0.0709459908243,0.0707048660386,0.0707734428125,0.0708232162775,0.0708420195864,0.0709415665163,0.0707690185045,0.0707225632706,0.0706849566527,0.0706263345718,0.0707424726566,0.0707999886605,0.0706993356537,0.0706108494938,0.0706451378807,0.0705090904099,0.070480332408,0.070469271638,0.0705124086409,0.0703675125542,0.0701695247715,0.0700401137627,0.0701927523884,0.0702016010044,0.0701872220034,0.0700146739917,0.0701385546155,0.069854292827,0.069837701672,0.0700290529927,0.0700146739917,0.0698730961359,0.0695611824224,0.0694616354926,0.0692791327879,0.0693709371787,0.0693875283337,0.0695069846495,0.0693764675637,0.069156358241,0.069210556014,0.0693598764087,0.0693554521007,0.0694892874175,0.0696551989673,0.0695711371154,0.0694959238795,0.0696319713503,0.06983106521,0.069845444211,0.069805625439,0.069800095054,0.0700135679147,0.0697160332022,0.0695434851904,0.0696452442743,0.0694605294156,0.0692890874808,0.0690999483141,0.0691187516231,0.0690192046933,0.0690313715402,0.0689251881484,0.0689340367644,0.0689871284603,0.0689937649223,0.0689981892303,0.0689484157654,0.0689893406143,0.0689650069203,0.0690269472322,0.0687990953706,0.0687625948296,0.0688178986796,0.0689274003024,0.0688709903755,0.0689583704583,0.0690380080022,0.0689627947663,0.0689539461504,0.0687526401367,0.0689362489184,0.0690335836942,0.0690114621543,0.0689008544544,0.0690899936211,0.0690590234652,0.0688333837575,0.0688532931435,0.0687471097517,0.0689484157654,0.0688886876075,0.0687460036747,0.0688720964525,0.0687880346006,0.068542485507,0.0686564114378,0.0688201108336,0.0687858224466,0.0688212169106,0.0688455506045,0.0688167926026,0.0687448975977,0.0686718965158,0.0688322776805,0.0689196577634,0.0686906998248,0.0687581705217,0.0687791859846,0.0687482158287,0.0686199108969,0.0686331838208,0.0687183517497,0.0688201108336,0.0688333837575,0.0688566113745,0.0690745085432,0.0689871284603,0.0689340367644,0.0689285063794,0.0689019605314,0.0688986423004,0.0689063848394,0.0687050788257,0.068556864508,0.0684528932701,0.0684528932701,0.0684473628851,0.0685037728121,0.0686320777439,0.0686110622809,0.0686431385138,0.0686143805119,0.0685800921249,0.0686475628218,0.0685911528949,0.0683953772662,0.0685026667351,0.068521470044,0.0684584236551,0.06853031866,0.068532530814,0.0684904998881,0.0686752147468,0.0686188048199,0.0688145804486,0.0688322776805,0.0687327307507,0.0686497749758,0.0686873815938,0.0686962302098,0.0685966832799,0.0687039727487,0.0687415793667,0.0687526401367,0.0685856225099,0.068553546277,0.0684219231142,0.068517045736,0.068528106506,0.068509303197,0.0685845164329,0.0685889407409,0.0684329838842,0.0683677253413,0.0684086501902,0.0686110622809,0.0686541992838,0.0687072909797,0.0687858224466,0.0687050788257,0.0687227760577,0.0685900468179,0.0685756678169,0.0686807451318,0.0686143805119,0.0684728026561,0.0686309716669,0.0686243352049,0.0686420324368,0.0687493219057,0.0688378080655,0.0688698842985,0.0688687782215,0.0689141273784,0.069206131706,0.06917516155,0.0691043726221,0.0690944179291,0.0689583704583,0.0689462036114,0.0689406732264,0.0689539461504,0.0689661129973,0.0688267472956,0.0686099562039,0.0687305185967,0.0687880346006,0.0687360489817,0.0688754146835,0.0689052787624,0.0688754146835,0.0689462036114,0.0690313715402,0.0691264941621,0.0693510277927,0.0693631946397,0.0693078907898,0.0693322244838,0.0692680720179,0.0692912996348,0.0693831040257,0.069213874245,0.0691110090841,0.0690457505412,0.0689074909164,0.0688057318326,0.0688024136016,0.0687648069836,0.0690048256923,0.0690435383872,0.0690169925393,0.069188434474,0.0693454974077,0.0694815448785,0.0694317714136,0.0695401669594,0.0696209105803,0.0695379548055,0.069213874245,0.0691386610091,0.0691132212381,0.0690933118521,0.0690988422371,0.0691154333921,0.0692171924759,0.069201707398,0.0690667660042,0.069169631165,0.0692791327879,0.0694306653366,0.0694207106436,0.0694959238795,0.0694715901856,0.0693753614867,0.0694251349516,0.0694317714136,0.0697326243571,0.069827746979,0.069854292827,0.069848762442,0.0698797325979,0.0697304122032,0.0696253348883,0.0696662597373,0.0695434851904,0.0694218167206,0.0692868753268,0.0692205107069,0.069185116243,0.0690446444642,0.0689539461504,0.0691110090841,0.0691497217791,0.0691209637771,0.069168525088,0.0693278001758,0.0692547990939,0.0693233758678,0.0693222697908,0.0694118620276,0.0694162863356,0.0692957239428,0.0693554521007,0.0694461504146,0.0694173924126,0.0695036664185,0.0695545459604,0.0694417261066,0.0693831040257,0.0693466034847,0.0693919526417,0.0694184984896,0.0693598764087,0.0692559051709,0.0692791327879,0.069158570395,0.0689473096884,0.0689185516864,0.0689506279194,0.0690424323102,0.0689749616133,0.0690258411552,0.0692194046299,0.0691198577001,0.0690225229242,0.0691408731631,0.0693886344107,0.0694561051076,0.0695423791134,0.0693974830267,0.0695766675004,0.0696474564283,0.0696297591963,0.0696994420472,0.0696861691232,0.0695103028805,0.0694328774906,0.0693366487918,0.0692304653999,0.0693222697908,0.069196177013,0.0691364488551,0.0690590234652,0.0690678720812,0.0692359957849,0.0693377548688,0.0694151802586,0.0696253348883,0.0696618354293,0.0696087437333,0.0695943647324,0.0697282000492,0.0696087437333,0.0695578641914,0.0694959238795,0.0694594233386,0.0693919526417,0.0693399670228,0.0692216167839,0.069150827856,0.069167419011,0.0690269472322,0.0691298123931,0.0692171924759,0.0692481626319,0.0692647537869,0.0692724963259,0.0690656599272,0.069212768168,0.0693698311017,0.0693034664818,0.0694041194887,0.0693764675637,0.0694605294156,0.0694030134117,0.0693056786358,0.0693698311017,0.0693897404877,0.0692835570958,0.069191752705,0.0692890874808,0.0690579173882,0.0690844632362,0.0690645538502,0.0689196577634,0.0690059317693,0.0690269472322,0.0690568113112,0.0691099030071,0.069201707398,0.069170737242,0.069202813475,0.0690778267742,0.0690269472322,0.0691264941621,0.0691342367011,0.0690866753901,0.0690833571592,0.0690357958482,0.0688875815305,0.0688942179924,0.0689749616133,0.0690247350782,0.0690512809262,0.0689318246104,0.0619790245991,0.0550273306649,0.0481696532755,0.0412920665001,0.0)
m <- c(0.0410808154083,0.0478267781621,0.0548277846796,0.061672011048,0.068489739363,0.0685990438332,0.068430118743,0.0686266459721,0.068769073009,0.0688397344846,0.0689667043237,0.0692515583974,0.0690461984838,0.0690837373928,0.0692780564508,0.069117964045,0.0691290049006,0.0692007704618,0.069320011702,0.0693023463331,0.0692924095631,0.0691532947829,0.0692592869963,0.0692835768786,0.0692692237664,0.0692780564508,0.0695474533267,0.0693564465254,0.0692791605364,0.0692913054775,0.0693663832954,0.0694679591666,0.0695342043001,0.0695772636368,0.0694392529421,0.0694458774555,0.0692383093708,0.0691411498417,0.0690252208582,0.069145566184,0.069175376494,0.0690075554893,0.0691091313606,0.0691875214351,0.0693343648142,0.069282472793,0.06947458368,0.0697296274437,0.0697241070159,0.0696324679146,0.0694988735622,0.069591616749,0.0695021858189,0.0694293161721,0.0694502937977,0.0695849922357,0.0694712714233,0.069349822012,0.0692703278519,0.0691400457562,0.0691709601518,0.069320011702,0.0692681196808,0.0693409893276,0.069310074932,0.069329948472,0.0694778959366,0.0696909844492,0.069843348256,0.0699714221807,0.0700398754852,0.0700200019452,0.0701072247042,0.0700641653675,0.0702993355911,0.0702430272277,0.0701977597199,0.0701282023298,0.0701712616665,0.0701966556343,0.0702595885111,0.0701215778164,0.0700409795708,0.069987983464,0.0697980807482,0.0699327791862,0.0698554931972,0.0700155856029,0.0699184260739,0.0698731585661,0.0697627500104,0.0698168502027,0.0698897198494,0.069938299614,0.0700873511642,0.0698024970904,0.0699338832717,0.0698422441705,0.0698510768549,0.0698588054538,0.0700630612819,0.0701149533031,0.0701282023298,0.0702518599122,0.070162428982,0.0702827743078,0.0701867188643,0.0702220496021,0.0704428667135,0.070519048617,0.0704185768313,0.070394286949,0.070404223719,0.0702982315056,0.0701149533031,0.0701933433776,0.0703589562112,0.070354539869,0.0703434990134,0.0703423949278,0.0701083287897,0.0701436595276,0.0702032801477,0.070190031121,0.0702838783933,0.0703313540723,0.0702805661367,0.0702794620511,0.070132618672,0.0701237859875,0.0703854542646,0.0703412908423,0.0703633725534,0.0704097441468,0.0704130564035,0.0704240972591,0.0705378180715,0.0705632120393,0.0706813491939,0.0706526429694,0.070558795697,0.0704980709914,0.0703258336445,0.0702187373455,0.0702452353988,0.07030706419,0.070239714971,0.0701381390998,0.0700266264585,0.0700972879342,0.070075206223,0.0701657412387,0.07026731711,0.0703953910346,0.0701591167254,0.0700509163408,0.0699935038918,0.0700464999985,0.0700707898808,0.0699912957207,0.0700012324907,0.0700056488329,0.0700133774318,0.0700994961053,0.0702750457089,0.0703368745001,0.0703931828635,0.0703556439545,0.0702485476555,0.0702132169177,0.0702651089389,0.0703832460935,0.070344603099,0.0701116410464,0.0701337227576,0.0700155856029,0.0698444523416,0.0698676381383,0.0700420836563,0.070122681902,0.0702330904577,0.0700575408541,0.0700299387152,0.0701414513565,0.0700696857952,0.0701745739232,0.0702617966822,0.07025738034,0.070122681902,0.0701834066076,0.0700796225653,0.070055332683,0.0699968161485,0.0699217383306,0.0701017042764,0.0700939756775,0.0700707898808,0.069987983464,0.0700531245119,0.0699802548651,0.0699824630362,0.0700244182874,0.0700387713996,0.0702143210032,0.070102808362,0.0701491799554,0.070219841431,0.0702629007677,0.0701933433776,0.0701547003831,0.0700299387152,0.0699647976673,0.070045395913,0.069997920234,0.0700818307364,0.0700177937741,0.069861013625,0.0697218988448,0.069766062267,0.0696942967058,0.0698676381383,0.0699062811328,0.069833411486,0.0697969766626,0.069678839508,0.0695728472946,0.0696114902891,0.069716378417,0.0697097539036,0.0697042334758,0.0696611741391,0.0696677986525,0.0696258434013,0.0696446128558,0.0697075457325,0.0696600700536,0.0695507655834,0.06950439399,0.0697572295826,0.0697638540959,0.0696357801713,0.0696280515724,0.0697450846415,0.0697307315292,0.0697053375614,0.0698146420316,0.0699360914428,0.0700067529185,0.0696744231658,0.0698146420316,0.0698002889193,0.0698466605127,0.0698411400849,0.0698312033149,0.0698577013683,0.0698212665449,0.0698532850261,0.0699272587584,0.069978046694,0.0699504445551,0.0699548608973,0.0701447636131,0.0699758385229,0.0698256828871,0.069813537946,0.0698643258816,0.0697715826948,0.0696026576046,0.0696081780324,0.0696401965135,0.0697726867804,0.0695264757012,0.0696887762781,0.0697958725771,0.0697340437859,0.0696744231658,0.0696942967058,0.0698565972827,0.0699338832717,0.0699471322984,0.0698886157639,0.069880887165,0.0697682704382,0.0698047052615,0.0698687422239,0.0699173219884,0.070065269453,0.0701094328753,0.0701668453243,0.0701215778164,0.0702640048533,0.0704627402536,0.0706018550338,0.0705499630126,0.0706482266272,0.0706040632049,0.0704207850024,0.0701823025221,0.0700707898808,0.0700056488329,0.069843348256,0.0697550214115,0.0695993453479,0.0697450846415,0.0697958725771,0.0698532850261,0.0699736303518,0.070209904661,0.070209904661,0.070239714971,0.0704748851947,0.0704152645746,0.0705444425848,0.0702695252811,0.0700840389075,0.0701657412387,0.070229778201,0.0703192091311,0.0704605320825,0.0705322976437,0.0702485476555,0.0704505953124,0.0704759892803,0.0705676283815,0.0705665242959,0.0706294571727,0.0703368745001,0.0701668453243,0.0701569085543,0.0700663735386,0.0702430272277,0.0700012324907,0.0701646371532,0.07025738034,0.0703412908423,0.070180094351,0.0704914464781,0.0706217285738,0.0705080077614,0.0706195204027,0.0707663637818,0.070965099182,0.0708436497708,0.0708690437386,0.0708657314819,0.0708447538563,0.0708016945196,0.0707641556107,0.070877876423,0.0709209357598,0.0708425456852,0.0708326089152,0.0708149435463,0.0709386011287,0.0709485378987,0.0712091020902,0.0711748754379,0.0711340242723,0.0711693550101,0.0711340242723,0.0711803958657,0.0712455369135,0.0713802353515,0.0713879639504,0.0713603618115,0.0712974289347,0.0714034211482,0.0714983725061,0.0714641458539,0.0716617771686,0.0715977402063,0.0715094133617,0.0714784989661,0.0714232946882,0.0716021565485,0.0715425359284,0.0715811789229,0.0717346468153,0.0720868501081,0.0719245495312,0.0719654006968,0.0720802255947,0.0721387421292,0.0722657119683,0.0722944181928,0.0723904736363,0.0725163393898,0.0726013539777,0.0724622391975,0.0725450456142,0.0726576623411,0.0728784794525,0.0728851039658,0.0729325796448,0.0729447245859,0.0729458286715,0.0729888880082,0.0729336837303,0.0729546613559,0.0730485086283,0.0731865193229,0.072927059217,0.0730109697193,0.0730584453983,0.0732582848841,0.0734051282632,0.0736712128825,0.0738710523683,0.0738500747427,0.0739803568385,0.0738257848605,0.0740565387419,0.0742011739499,0.0741680513832,0.0739350893306,0.0740079589774,0.073797078636,0.0737264171603,0.0739306729884,0.073971524154,0.0741073266775,0.0741779881532,0.0741470737576,0.0743689949546,0.0745500649859,0.0745257751037,0.0744782994247,0.0744915484514,0.0744087420346,0.0744131583768,0.0746218305471,0.0747730902685,0.0749696174976,0.0749696174976,0.0752103081491,0.0754245007471,0.0757170834198,0.0758749676544,0.0759798557824,0.0762238586905,0.076312185535,0.0763994082941,0.0764656534275,0.0766776378544,0.0767946709235,0.0767902545813,0.0770740045694,0.0771855172107,0.0774306242044,0.0775476572734,0.0776094860646,0.0776194228346,0.0777066455936,0.0776779393692,0.0776613780858,0.0777618498715,0.0775896125246,0.0778214704916,0.0780213099774,0.0780831387686,0.0782653128855,0.0786053712371,0.0786550550872,0.0789984256954,0.0791772875557,0.0792921124536,0.079627754463,0.0797105608798,0.0796917914253,0.0798673410289,0.0799115044512,0.0797392671043,0.0799004635956,0.0799159207934,0.0800958867392,0.0803553468451,0.0802846853695,0.0803299528773,0.0805717476143,0.0806457213466,0.0808632262014,0.0811127495373,0.0813435034187,0.081522365279,0.0814969713111,0.0817862417271,0.0821859206988,0.0824542134891,0.0827523165896,0.0828572047175,0.0829643010165,0.0830846463422,0.0831751813579,0.0832226570369,0.083660979003,0.083728328222,0.0837526181043,0.083728328222,0.0836090869819,0.0839093982534,0.0840783233436,0.0842582892894,0.0844625451175,0.0846999235123,0.0846822581434,0.0847992912124,0.0848257892658,0.0851481822484,0.0855798797013,0.0857454925348,0.0859287707373,0.0861617327899,0.0862798699445,0.0863737172168,0.086590117986,0.0867844370441,0.0870262317811,0.0870262317811,0.086889325172,0.0868308086375,0.0869445294498,0.0869721315888,0.0872459448069,0.0873707064749,0.0874148698972,0.0874866354584,0.0877549282487,0.0880673844614,0.0882804729739,0.0885796801599,0.0888490770358,0.0891195779973,0.0891151616551,0.0893580604776,0.089559004049,0.0898670439195,0.0901165672554,0.0900183036408,0.0902854923456,0.0904367520669,0.0906078853283,0.0907458960229,0.0907205020551,0.0908750740331,0.0909876907599,0.0910329582677,0.0909313823965,0.0912846897748,0.0913023551437,0.0913873697316,0.0914315331539,0.0915761683618,0.0918831041467,0.0919835759324,0.0921922481027,0.0921469805948,0.0923744222196,0.0924483959519,0.0925996556733,0.0929982305594,0.0931207840562,0.0932543784086,0.0935811877335,0.0938704581495,0.0939102052295,0.094392690618,0.0945163482004,0.0948000981885,0.0948508861242,0.0949789600488,0.0951511973957,0.0953830553627,0.0954581331806,0.0954901516617,0.0957518199387,0.0957805261632,0.0961227926859,0.0961658520227,0.0963458179685,0.0963281525996,0.0964827245775,0.0964219998719,0.0967764113357,0.0970248305861,0.0973350786276,0.0975823937924,0.0977424861982,0.098039485213,0.0985043052326,0.0988200737019,0.0992771651225,0.0996481378697,0.0996017662763,0.0998446650989,0.0998910366923,0.100027943301,0.100093084349,0.100256489012,0.100345919942,0.10065948024,0.101027140731,0.10159132845,0.102281381923,0.102970331311,0.103803915907,0.104569047198,0.105530705718,0.106389684281,0.107067592813,0.107722315549,0.108127514948,0.108608896251,0.10895447503,0.109059363158,0.109185228912,0.109414878708,0.10945904213,0.109639008076,0.109944839775,0.110268336843,0.110451615046,0.110591833912,0.110959494402,0.111206809567,0.111323842636,0.111562325116,0.111742291062,0.112064684045,0.111995126655,0.112015000195,0.112173988515,0.112597957369,0.112694012812,0.11295788926,0.113384066285,0.113488954413,0.113715291953,0.113791473856,0.11427506333,0.114358973832,0.114797295799,0.114914328868,0.115191454342,0.115424416395,0.115528200437,0.115831823966,0.116135447494,0.116241439707,0.116388283086,0.116672033075,0.116761464005,0.116790170229,0.1166930107,0.116813356026,0.116991113801,0.117135749008,0.117236220794,0.117502305413,0.117720914354,0.117994727572,0.118192358887,0.118364596234,0.11876317112,0.119077835503,0.119310797556,0.119448808251,0.119566945405,0.11971489287,0.119959999864,0.119977665232,0.120048326708,0.120272456076,0.120463462878,0.120643428823,0.120700841272,0.121009985228,0.121248467709,0.121510135986,0.121713287728,0.122109654443,0.122158234208,0.122339304239,0.122656176794,0.122807436515,0.123082353819,0.12316405615,0.123231405369,0.12333298124,0.123275568791,0.123391497775,0.123575880063,0.12378786449,0.12378786449,0.123978871291,0.12392697927,0.12394685281,0.124087071676,0.124166565836,0.124284702991,0.124147796382,0.12428249482,0.124187543462,0.124208521087,0.123915938415,0.123898273046,0.123835340169,0.123635500683,0.123356167037,0.123109955958,0.122976361606,0.12288582659,0.122949863552,0.122563433607,0.122476210848,0.122551288666,0.1223117021,0.122305077587,0.122387884004,0.122445296453,0.122369114549,0.122179211833,0.121925272155,0.121977164176,0.121999245887,0.121716599985,0.121762971578,0.121521176841,0.121147995923,0.120969134063,0.120929386983,0.12072623524,0.120365199263,0.120030661339,0.119930189553,0.119777825747,0.119475306304,0.119207013514,0.118986196402,0.118712383184,0.118317120555,0.118062076791,0.117726434782,0.117670126418,0.117258302505,0.116935909523,0.116793482486,0.116648847278,0.116588122572,0.11640484437,0.116392699429,0.116278978616,0.116400428027,0.116028351195,0.115739080779,0.11572141541,0.115534824951,0.115318424182,0.115078837616,0.115063380418,0.114744299692,0.114508025383,0.114400929084,0.114299353212,0.114049829876,0.113783745257,0.11351214021,0.113409460253,0.113297947612,0.11316435326,0.112812149967,0.112688492385,0.112146386376,0.112042602334,0.112024936965,0.111756644174,0.111533618892,0.111246556647,0.110853502189,0.110209820309,0.110176697742,0.109881906898,0.109680963327,0.109430335906,0.109132232805,0.108898166667,0.108754635545,0.108600063567,0.10855700423,0.108460948786,0.108177198798,0.108068998414,0.108125306777,0.107810642393,0.107449606416,0.107335885604,0.107109548065,0.107074217327,0.106644728045,0.106411765992,0.106275963469,0.105952466401,0.105757043257,0.105666508241,0.105617928477,0.105472189183,0.105318721291,0.104913521891,0.105001848736,0.104835131817,0.104461950899,0.104190345852,0.103797291393,0.103473794325,0.103312597834,0.103075219439,0.102745097857,0.102376333281,0.101868453925,0.101797792449,0.101594640707,0.101570350825,0.101361678654,0.101276664066,0.101034869329,0.100883609608,0.100656167983,0.10066941701,0.100690394636,0.100382354765,0.100263113525,0.0998921407778,0.0998314160722,0.0995233762018,0.0994019267905,0.098937106771,0.0988554044397,0.0988090328463,0.0986931038628,0.0985440523126,0.0984170824736,0.0983740231368,0.09822165933,0.0979092031173,0.0977115718026,0.0976022673324,0.0973670971088,0.0970005407038,0.0967510173679,0.0965313043421,0.0961415621404,0.0958456672111,0.0953554532238,0.0954040329883,0.0951269075134,0.0950717032356,0.094721708114,0.094499786917,0.0941453754532,0.0940923793464,0.0941564163088,0.0940482159242,0.0939620972507,0.0937335515404,0.0937214065993,0.0934895486323,0.0934994854023,0.0933051663442,0.0931616352218,0.0929496507949,0.0928094319291,0.0926647967211,0.0925941352455,0.0923192179418,0.092159125536,0.0921359397393,0.0919504533657,0.0918831041467,0.0918742714622,0.0915496703085,0.0912051956146,0.0909987316155,0.0909634008776,0.0908187656697,0.0905604096493,0.0903241353401,0.0901618347632,0.0899377053951,0.0898151518983,0.0896627880914,0.0896484349791,0.0893922871299,0.089095288115,0.0889992326716,0.0888214748969,0.0887176908545,0.0886437171222,0.0884913533153,0.0881987706427,0.088001139328,0.0874579292339,0.087006358241,0.0864543154625,0.0860502201486,0.0854098505255,0.0846259497799,0.0841765869582,0.0836863729709,0.0832392183202,0.0827125695095,0.0825248749648,0.0823217232223,0.0820269323785,0.0815841940702,0.0813920831832,0.0812783623708,0.080933887677,0.0806965092823,0.0804083429519,0.080363075444,0.0802515628027,0.0800219130069,0.0799821659268,0.0798375307188,0.0799435229323,0.0799346902479,0.0796255462919,0.0794234986349,0.0792369081758,0.0790503177166,0.0785755609271,0.078486129997,0.0783978031524,0.0782697292278,0.0780080609507,0.0776370882036,0.0775962370379,0.0774924529956,0.0772915094242,0.0773235279053,0.0773776280976,0.0771855172107,0.0768841018536,0.0767781096401,0.0765904150954,0.0767438829879,0.0766864705389,0.0765352108176,0.0764524044008,0.076205089236,0.0761333236748,0.0761885279526,0.0761509890437,0.0761024092792,0.0761013051936,0.0758175552055,0.075644213773,0.075432229346,0.075479705025,0.0752898023092,0.075305259507,0.0751385425879,0.0751451671012,0.0752069958924,0.0750215095188,0.0749950114654,0.0750446953155,0.0751617283846,0.0750987955078,0.0749375990165,0.0748978519364,0.0747399677017,0.074619622376,0.0744230951469,0.0741956535221,0.0739704200685,0.0738666360261,0.073777205096,0.0735663247546,0.0737606438126,0.0735795737812,0.0735431389579,0.0734459794288,0.0732825747664,0.0733631730121,0.0733223218464,0.0733477158143,0.0732869911086,0.0732770543386,0.072956869527,0.07267532771,0.0725086107909,0.0724037226629,0.0724445738286,0.0723220203317,0.0724048267485,0.0722347975727,0.0721232849314,0.0720117722902,0.0720526234558,0.0722049872627,0.0724169716896,0.0723827450374,0.0723319571017,0.0723396857006,0.0720824337658,0.0718174532321,0.071785434751,0.0717843306654,0.0717302304731,0.0717721857243,0.071593323864,0.0714707703672,0.0714199824316,0.0712157266035,0.071438751886,0.0715977402063,0.0716154055752,0.071563513554,0.0715546808695,0.0713835476082,0.0713261351592,0.0712930125925,0.0711340242723,0.0712300797158,0.07106998731,0.0709187275887,0.0707652596962,0.0706195204027,0.0705654202104,0.0705135281892,0.0705510670981,0.0705256731303,0.0704108482324,0.0704671565958,0.0704108482324,0.0703589562112,0.0703622684679,0.0704483871413,0.070451699398,0.0703567480401,0.0700763103086,0.0700884552497,0.0700674776241,0.0699394036995,0.0699140097317,0.0699592772395,0.0699692140096,0.0699990243196,0.0699349873573,0.0698477645983,0.0699250505873,0.0698267869727,0.0699228424162,0.069880887165,0.0699239465017,0.0699625894962,0.0698356196571,0.0696125943746,0.0693707996376,0.0694083385465,0.0695584941823,0.0695894085779,0.0695121225889,0.0694359406855,0.0692140194885,0.0691610233818,0.0691687519807,0.0692924095631,0.0694591264822,0.0694856245355,0.0693564465254,0.0694028181188,0.0694900408778,0.0694502937977,0.0696081780324,0.0694778959366,0.069541932899,0.0695772636368,0.0694734795944,0.0692946177342,0.0691786887507,0.0690550311683,0.0689733288371,0.0690749047083,0.0690892578205,0.0691974582051,0.0691301089862,0.0690263249438,0.0691223803873,0.0690848414783,0.0691378375851,0.0692637033386,0.0693310525576,0.0691345253284,0.0689766410937,0.0687458872123,0.0688816897358,0.0687911547201,0.0687646566668,0.0689413103559,0.0688905224203,0.0686862665922,0.0686774339078,0.0688441508269,0.0688021955757,0.0689313735859,0.0688430467413,0.0688739611369,0.068943518527,0.0689556634681,0.0689578716393,0.0690130759171,0.0689976187193,0.0688949387625,0.0691168599595,0.0691930418629,0.0691301089862,0.0691245885584,0.0689004591903,0.0688309018002,0.0688651284525,0.0687977792335,0.0685891070632,0.0686520399399,0.0685029883897,0.0683804348929,0.0682689222516,0.0682634018238,0.0684510963686,0.0684290146574,0.0684786985075,0.0685648171809,0.0687238055012,0.0685592967531,0.0684654494808,0.068459929053,0.0685537763254,0.0685339027853,0.0684488881974,0.068459929053,0.0682667140805,0.0682512568827,0.0681916362626,0.0683417918984,0.0684234942296,0.0684875311919,0.0684433677697,0.0685394232131,0.0685305905287,0.0685581926676,0.0687359504423,0.0688110282602,0.0687944669768,0.0687734893512,0.0688253813724,0.0687514076401,0.0688253813724,0.0686509358544,0.0687149728167,0.0686674971377,0.068507404732,0.0683981002618,0.0684522004541,0.0684212860585,0.0684179738018,0.0684941557053,0.0684930516197,0.0686387909133,0.0685493599831,0.0685206537586,0.0685736498654,0.0685626090098,0.0685239660153,0.0685361109564,0.0685063006464,0.0684356391708,0.0684389514274,0.0684566167963,0.0685085088175,0.0686211255443,0.068749199469,0.0688066119179,0.0688529835113,0.0688231732013,0.0687922588057,0.068923644987,0.06866197671,0.0684974679619,0.068489739363,0.0684875311919,0.0685129251597,0.0685107169886,0.0684676576519,0.068479802593,0.0685096129031,0.0685747539509,0.0687712811801,0.0687745934368,0.0688331099713,0.0687271177578,0.068517341502,0.0685813784643,0.0685626090098,0.0686708093944,0.0687249095867,0.0686763298222,0.0618221666838,0.0550452895343,0.048133713947,0.0413215060597,0.0)
ycorr <- c(9.94985079503e-06,9.77114222974e-06,9.23255251897e-06,8.33100813458e-06,7.06814860265e-06,5.43974940139e-06,3.43858319626e-06,1.43513531516e-06,-5.74494003768e-07,-2.59548647856e-06,-4.62629101532e-06,-6.67086415825e-06,-8.72515826857e-06,-1.07867856256e-05,-1.28557943995e-05,-1.49378654426e-05,-1.70295128323e-05,-1.91293651491e-05,-2.12407163402e-05,-2.33614628119e-05,-2.5491990242e-05,-2.76330220613e-05,-2.97866746695e-05,-3.19521430413e-05,-3.41337455512e-05,-3.63276396344e-05,-3.85316376975e-05,-4.07501270577e-05,-4.29796385467e-05,-4.52206435695e-05,-4.74758272483e-05,-4.97401564805e-05,-5.20151468409e-05,-5.42996913837e-05,-5.65984918715e-05,-5.89059915819e-05,-6.12217305385e-05,-6.35451221296e-05,-6.58763538999e-05,-6.82160101785e-05,-7.05611061169e-05,-7.29145925269e-05,-7.52803519329e-05,-7.76575883207e-05,-8.00411332475e-05,-8.24309525063e-05,-8.48334759748e-05,-8.72529082368e-05,-8.96870702008e-05,-9.21323038283e-05,-9.45869597572e-05,-9.70505970476e-05,-9.95216379204e-05,-0.000101998980786,-0.000104483825646,-0.000106981012011,-0.000109490916478,-0.000112006368391,-0.000114525107434,-0.000117050827865,-0.00011958790246,-0.000122138353646,-0.000124701940603,-0.000127280699396,-0.000129870387421,-0.000132471702147,-0.00013508424794,-0.000137708673718,-0.000140349433069,-0.000143005476705,-0.00014567158167,-0.000148346222704,-0.000151025776306,-0.00015371114003,-0.000156400822151,-0.000159098953502,-0.000161800488228,-0.000164505005213,-0.000167206622384,-0.000169904734281,-0.000172602816317,-0.000175303134755,-0.000178006095027,-0.000180711751085,-0.000183420311083,-0.000186125734221,-0.000188829032219,-0.000191526538793,-0.000194219918794,-0.000196910379326,-0.000199593486281,-0.000202264358382,-0.000204920736292,-0.00020755971299,-0.000210185744293,-0.0002127993882,-0.000215397001051,-0.00021798020424,-0.000220554191042,-0.000223111923476,-0.000225660037606,-0.000228202862933,-0.000230744524978,-0.000233286508888,-0.000235825832316,-0.000238358937224,-0.000240887814285,-0.00024341905595,-0.000245946854707,-0.000248474759311,-0.00025100041385,-0.000253513573188,-0.00025601055062,-0.00025849146679,-0.000260955873434,-0.000263404426405,-0.000265837105334,-0.000268250715577,-0.000270643575983,-0.000273015637632,-0.000275362405051,-0.000277690941211,-0.000280008622035,-0.000282312822933,-0.000284600761755,-0.000286870722645,-0.000289127682316,-0.000291369804345,-0.000293595842049,-0.000295809755129,-0.000298014833286,-0.000300213843404,-0.00030240344465,-0.00030458415989,-0.000306758832613,-0.000308931803324,-0.000311099111646,-0.000313258560532,-0.000315416119783,-0.000317570603498,-0.000319717775228,-0.000321855311352,-0.000323983786746,-0.000326099985142,-0.000328202030961,-0.000330293558462,-0.000332372438744,-0.000334441178279,-0.000336499439439,-0.000338542714952,-0.000340574405793,-0.000342596965056,-0.000344611414882,-0.00034661285733,-0.000348606064863,-0.000350582735129,-0.000352542338961,-0.000354486417689,-0.000356415256949,-0.000358329456482,-0.000360228754038,-0.000362106534188,-0.000363956380648,-0.00036578731942,-0.00036760138069,-0.000369400647179,-0.000371193141703,-0.000372974073765,-0.000374739447081,-0.000376492536978,-0.00037823384757,-0.000379968379428,-0.000381700287058,-0.00038343061731,-0.000385153045882,-0.000386869239931,-0.000388572400215,-0.000390261713381,-0.000391942660174,-0.000393614030259,-0.000395277611537,-0.000396927275506,-0.000398561777964,-0.000400179056693,-0.000401779495235,-0.000403364690643,-0.000404934904472,-0.000406494311052,-0.000408043502066,-0.000409579511518,-0.000411098930991,-0.000412605585267,-0.000414103131811,-0.000415586429992,-0.000417058032701,-0.000418514962227,-0.00041995302605,-0.000421374418432,-0.000422777472405,-0.000424161124936,-0.000425525463491,-0.00042687135788,-0.000428197161365,-0.00042950824351,-0.00043081076426,-0.000432103616887,-0.000433395153247,-0.000434682555315,-0.000435965147208,-0.000437243510037,-0.00043852154978,-0.000439801547649,-0.000441082534357,-0.000442359323954,-0.000443624235018,-0.000444878200331,-0.000446117948195,-0.000447342342971,-0.000448547512588,-0.000449734404126,-0.000450907402779,-0.000452062306834,-0.000453196560152,-0.00045431626235,-0.000455424168169,-0.000456521914093,-0.000457604136415,-0.00045867487675,-0.000459734695678,-0.000460789564624,-0.000461831104384,-0.000462857072254,-0.00046386827021,-0.000464861081269,-0.000465834385085,-0.000466785906205,-0.000467723865114,-0.000468648114802,-0.000469560012284,-0.000470454943627,-0.000471334503159,-0.00047220162131,-0.000473059864357,-0.000473914702045,-0.000474767728502,-0.000475618209159,-0.000476464266048,-0.000477301855721,-0.000478131086789,-0.000478951367183,-0.000479764346864,-0.000480570413668,-0.000481368518248,-0.000482153360868,-0.000482920355098,-0.000483671351223,-0.000484404293056,-0.000485121932813,-0.000485825434192,-0.000486516013477,-0.000487192616208,-0.000487856673753,-0.00048850483548,-0.000489136694218,-0.000489754499643,-0.000490362823489,-0.000490961694404,-0.000491552893771,-0.000492132997421,-0.000492698694254,-0.000493248879164,-0.000493784808873,-0.00049430619873,-0.000494819066308,-0.000495320851974,-0.000495806625998,-0.000496273001127,-0.000496718458415,-0.000497146418626,-0.000497561719795,-0.000497965734187,-0.000498356879638,-0.000498732042832,-0.000499082192929,-0.000499401844161,-0.000499691876754,-0.000499954876985,-0.000500184438882,-0.000500376675863,-0.000500527644669,-0.000500631637403,-0.00050068714548,-0.000500695940936,-0.000500665464657,-0.000500607758514,-0.000500524364137,-0.000500416995352,-0.000500288313432,-0.000500143880649,-0.000499987914824,-0.000499823989339,-0.000499654941668,-0.00049948538273,-0.00049931523149,-0.000499136775995,-0.000498948387511,-0.000498750727487,-0.000498549964021,-0.00049834507854,-0.000498129686191,-0.000497904282649,-0.000497665702365,-0.000497411874042,-0.000497135398226,-0.000496840011187,-0.000496527996646,-0.000496197885337,-0.000495848160079,-0.000495471647873,-0.000495072017567,-0.000494654560487,-0.000494218226446,-0.000493767985657,-0.000493306793518,-0.000492837269409,-0.000492354488425,-0.000491858127203,-0.000491346583258,-0.000490827286152,-0.000490302560299,-0.000489766672295,-0.000489220852338,-0.000488664728133,-0.000488097322254,-0.00048751887788,-0.000486931964055,-0.000486338447322,-0.000485739485907,-0.000485130192163,-0.00048450458077,-0.00048386273522,-0.000483207880761,-0.000482537916756,-0.000481857176413,-0.000481162167995,-0.000480453950133,-0.000479732688377,-0.000478995169204,-0.000478242096137,-0.000477482410752,-0.00047671752781,-0.000475947223557,-0.000475165075306,-0.000474371854189,-0.000473563471597,-0.00047273978694,-0.00047189954466,-0.000471039436082,-0.000470163233256,-0.000469268948307,-0.000468354108261,-0.000467416443496,-0.00046646345058,-0.000465497359731,-0.00046452022494,-0.000463532048222,-0.000462530450963,-0.000461518143969,-0.000460494339571,-0.000459459662378,-0.000458415307971,-0.000457361463562,-0.000456292962998,-0.00045520113288,-0.000454086423082,-0.000452948089901,-0.000451790561895,-0.000450617683904,-0.000449429281696,-0.000448224030691,-0.000446999969983,-0.000445756113421,-0.000444494877617,-0.000443224526962,-0.000441950174859,-0.000440670323929,-0.000439383580418,-0.000438085042327,-0.000436771397956,-0.000435438645227,-0.000434091975816,-0.000432731765556,-0.000431358811816,-0.000429972630463,-0.000428568934966,-0.000427145084782,-0.000425704044476,-0.000424245783393,-0.000422777119356,-0.000421302337778,-0.000419820084653,-0.000418328383712,-0.000416826309085,-0.000415309865774,-0.000413776318788,-0.0004122276133,-0.000410661368791,-0.000409079345599,-0.000407480480291,-0.000405857551377,-0.000404210152163,-0.000402539753938,-0.00040084680864,-0.000399133590944,-0.00039740571083,-0.000395665646858,-0.000393912186434,-0.00039214972512,-0.000390374730523,-0.000388589514521,-0.00038679554755,-0.00038499303956,-0.000383182827817,-0.000381362030587,-0.000379524731835,-0.000377668002288,-0.000375789538734,-0.000373889732443,-0.000371966807099,-0.000370022971587,-0.000368058753674,-0.000366074903639,-0.000364069332073,-0.000362040924654,-0.000359995078481,-0.000357935487135,-0.000355864120306,-0.000353779209055,-0.000351683909207,-0.000349578644117,-0.000347458846071,-0.000345320576919,-0.000343162424305,-0.000340987505873,-0.000338797788606,-0.000336590708969,-0.000334367697475,-0.000332126564994,-0.000329863707851,-0.000327577980331,-0.000325270316194,-0.000322947372841,-0.000320612091759,-0.000318264323793,-0.000315901677134,-0.000313522234176,-0.000311126204617,-0.000308711616976,-0.000306282102547,-0.00030383800525,-0.000301379412808,-0.000298903952781,-0.000296406986165,-0.00029388834404,-0.000291346423519,-0.000288782030374,-0.000286194434174,-0.000283586156719,-0.000280959713252,-0.000278312733064,-0.000275647662126,-0.00027296096207,-0.000270255925451,-0.000267530736557,-0.000264788026173,-0.000262032107119,-0.000259262817094,-0.000256477809358,-0.000253672678423,-0.000250846285068,-0.000248002290197,-0.000245142584975,-0.000242269969223,-0.000239385535522,-0.000236488809576,-0.000233573790974,-0.000230641646402,-0.000227693385511,-0.000224728930884,-0.000221751619759,-0.000218760375101,-0.000215751432266,-0.00021272705857,-0.000209687255796,-0.000206629494795,-0.000203558645155,-0.0002004758136,-0.000197376328205,-0.000194263103375,-0.000191138506455,-0.000187997157485,-0.000184840716551,-0.00018166255258,-0.000178460691424,-0.00017523579876,-0.000171986524933,-0.00016870898348,-0.000165410167681,-0.000162091734567,-0.000158749229994,-0.00015538492118,-0.000152003940575,-0.000148609829623,-0.000145206271747,-0.000141793839436,-0.000138372035259,-0.000134943771041,-0.000131505884474,-0.000128052263712,-0.000124582757351,-0.000121097123134,-0.000117594788806,-0.0001140725419,-0.000110527697353,-0.00010696001693,-0.000103370199878,-9.97576339821e-05,-9.61242687869e-05,-9.24754089055e-05,-8.88156044247e-05,-8.51453289258e-05,-8.14641871156e-05,-7.77722639421e-05,-7.40723356754e-05,-7.03662308378e-05,-6.66567615979e-05,-6.29404914874e-05,-5.92152537071e-05,-5.54789479009e-05,-5.17282419823e-05,-4.7961842667e-05,-4.41774778632e-05,-4.03774094496e-05,-3.65602064596e-05,-3.27221248745e-05,-2.88606316198e-05,-2.49775307765e-05,-2.10759860582e-05,-1.71582031209e-05,-1.32246241645e-05,-9.27869812802e-06,-5.32155361426e-06,-1.35358238526e-06,2.62594436417e-06,6.61323007224e-06,1.06085866905e-05,1.46116063771e-05,1.86227826985e-05,2.26439041089e-05,2.66754762696e-05,3.07191063036e-05,3.47738276932e-05,3.88405411776e-05,4.29147427666e-05,4.69971092032e-05,5.10897695388e-05,5.51904997862e-05,5.9301934307e-05,6.3425154516e-05,6.75550117489e-05,7.16960575968e-05,7.58497196157e-05,8.00153048167e-05,8.41943517998e-05,8.83867857752e-05,9.25916378285e-05,9.68089546651e-05,0.000101036066284,0.000105270897036,0.000109514728193,0.000113766920124,0.000118024210222,0.000122284823241,0.000126551337864,0.000130826866391,0.00013510994634,0.000139400566465,0.000143697151037,0.000147999909168,0.000152309735341,0.000156737148661,0.000161395105818,0.00016637588127,0.000171754629147,0.000178137025212,0.000183470095735,0.000188359545533,0.000192879036431,0.000197118917646,0.000201189251131,0.000205199311047,0.000209037925808,0.000212596085783,0.000215779675115,0.000218512654147,0.000220186057444,0.00022285327646,0.000225910417504,0.00022928364484,0.000232885937002,0.000236606763526,0.000240332257429,0.000244062684878,0.000247800373113,0.000251543978464,0.00025529618278,0.000259055651093,0.000262818007793,0.000266584011079,0.000270353350238,0.000274120802957,0.000277891793674,0.00028166668392,0.000285441305882,0.00028921627964,0.000292990014991,0.000296762127015,0.000300537073447,0.000304315689626,0.000308095790467,0.000311879270945,0.000315668848837,0.000319458389453,0.000323249623361,0.000327044426983,0.000330840970212,0.000334637772836,0.000338429771927,0.000342217690407,0.000346001066731,0.000349781099291,0.000353557422322,0.000357330636943,0.000361099389476,0.000364864687793,0.000368625106107,0.000372378580889,0.000376128741638,0.000379878399823,0.000383624756605,0.00038736863951,0.000391110558409,0.000394847947436,0.000398581949542,0.000402312118155,0.000406037239603,0.000409762551172,0.000413488270001,0.00041721103055,0.000420929951873,0.000424642267026,0.000428343532612,0.000432033667058,0.000435714681539,0.000439384342154,0.000443047903711,0.000446701447719,0.000450342718145,0.000453970996079,0.000457590688827,0.00046120572785,0.000464818081216,0.000468428658458,0.000472038831935,0.000475648089754,0.00047925331348,0.000482854382242,0.000486453254344,0.000490049092869,0.000493636301814,0.000497210828443,0.000500769716066,0.000504316392582,0.00050784816646,0.000511360915838,0.000514853390509,0.000518326226822,0.000521775677875,0.00052520131525,0.000528605763366,0.000531992956257,0.00053536365084,0.000538717187309,0.000542049070216,0.000545361453834,0.000548655790707,0.000551931487557,0.000555189237047,0.000558432433396,0.000561660264374,0.000564867515056,0.000568054157571,0.000571219133401,0.000574362015788,0.000577484954048,0.000580589001912,0.000583672714455,0.000586736638464,0.000589778206507,0.000592795051228,0.000595786675813,0.00059875464659,0.000601699254572,0.000604621505387,0.000607517348944,0.000610381100877,0.000613213047169,0.000616013653037,0.00061878069802,0.000621517427067,0.000624223361868,0.000626900635147,0.000629546232488,0.00063215805811,0.000634737987177,0.000637291327396,0.000639820454582,0.000642324340461,0.000644803811653,0.000647254221146,0.000649673915644,0.000652061134626,0.000654416644918,0.000656744882292,0.000659045911336,0.000661317932272,0.000663557103209,0.000665760775498,0.000667925055144,0.000670051790621,0.000672147879872,0.000674211386938,0.000676241040628,0.00067823247158,0.000680182469052,0.00068209079844,0.000683955647558,0.000685784431167,0.000687582877848,0.00068935211087,0.00069108659495,0.000692785861628,0.00069445145461,0.000696084082302,0.000697682279334,0.000699246619585,0.000700778219913,0.000702272248131,0.000703722702926,0.000705125560796,0.000706483124877,0.000707799595074,0.000709072740077,0.000710301735833,0.000711489989458,0.0007126397189,0.000713750753701,0.000714824429365,0.000715863991185,0.000716870678633,0.00071784517891,0.00071878208953,0.000719678482671,0.000720535125203,0.000721351884475,0.000722127630213,0.000722862213525,0.000723551140286,0.000724193664615,0.000724790677318,0.000725337247922,0.000725835765752,0.000726293189292,0.000726708902346,0.000727082500753,0.000727413497742,0.000727698825912,0.000727941442563,0.000728144481305,0.000728309016564,0.000728438935376,0.000728533128549,0.000728586963044,0.000728599234641,0.000728570898131,0.000728500916547,0.000728388848779,0.000728235128721,0.000728040228741,0.000727799890532,0.000727513602035,0.000727180687994,0.000726804165197,0.00072638387287,0.000725920873046,0.000725413905665,0.000724865506658,0.000724277624929,0.00072365039801,0.000722983307215,0.000722278162988,0.000721530622517,0.000720736950159,0.000719901810388,0.00071902660752,0.000718109623759,0.00071715352403,0.000716156699306,0.000715116017743,0.000714033065084,0.000712904306197,0.000711736052815,0.000710531975095,0.000709293815588,0.000708015773857,0.000706699279162,0.000705344475563,0.000703949239683,0.000702515265894,0.000701048067234,0.000699547915891,0.000698012487,0.000696440896526,0.000694830821905,0.000693183243914,0.000691500254011,0.000689778748576,0.000688020187157,0.000686225671945,0.000684390470559,0.000682515790379,0.000680603416974,0.00067865732629,0.000676673559978,0.000674655742765,0.000672602451509,0.000670516364933,0.000668398018409,0.000666244373874,0.000664055777577,0.000661834248698,0.000659576730896,0.000657281802358,0.000654953909268,0.000652595083136,0.00065020375861,0.00064778323323,0.000645330853712,0.00064284851526,0.000640341531634,0.000637808224218,0.000635249693385,0.000632665356801,0.000630053175749,0.000627408417083,0.000624731320233,0.000622021449555,0.000619278763715,0.000616505536884,0.000613698823839,0.000610858887351,0.000607987734745,0.000605084310917,0.000602150938876,0.000599190486427,0.000596205005223,0.000593194830003,0.00059015804701,0.000587094277313,0.000584000496105,0.000580876113005,0.000577722099692,0.000574541236302,0.000571332406797,0.000568094980253,0.00056483030769,0.000561535061864,0.000558212614056,0.000554863335815,0.00055149075077,0.000548099707164,0.000544689433868,0.000541255659615,0.000537796664758,0.000534314722655,0.000530803106009,0.000527261365895,0.000523690165784,0.000520088975327,0.000516459447311,0.000512794491635,0.000509093791244,0.000505362444014,0.000501598975476,0.000497802644626,0.000493981446603,0.000490140473865,0.000486280398374,0.000482400777624,0.000478498267057,0.00047457439173,0.000470632267972,0.000466669955197,0.000462687631788,0.000458689106255,0.000454671137478,0.00045063002975,0.000446565436508,0.000442477504939,0.000438371420203,0.000434253343234,0.000430118012155,0.000425964684657,0.000421800768056,0.000417622777173,0.000413430751298,0.000409228280951,0.000405015514767,0.000400793252175,0.000396557618293,0.000392306542931,0.000388040872418,0.000383765196613,0.000379476646845,0.000375170361483,0.00037084959518,0.000366512428598,0.000362161909901,0.000357799091407,0.000353423386212,0.000349036388533,0.000344635149599,0.000340216305731,0.000335781173026,0.000331337980045,0.000326886712371,0.000322429484595,0.000317963051888,0.000313484554012,0.000308996412331,0.000304500093223,0.000299998677401,0.000295495738672,0.000290990860839,0.000286479647444,0.000281958677644,0.000277429140221,0.000272894185789,0.000268357272205,0.000263819162327,0.000259273099573,0.000254723433776,0.000250167667745,0.000245606666232,0.000241043848656,0.000236483100343,0.000231920820181,0.000227354874253,0.000222781221346,0.000218201600294,0.000213619369102,0.000209034454134,0.000204444730995,0.000199853321497,0.000195255518086,0.000190650274436,0.000186042522848,0.000181433941651,0.000176824891423,0.000172213856207,0.00016760189851,0.000162987502874,0.000158375926164,0.00015376130542,0.000149144257439,0.000144528782844,0.000139912258318,0.000135294716059,0.000130679527901,0.000126069577936,0.000121464520998,0.000116866578247,0.000112274464267,0.000107687254809,0.000103112152169,9.85475132408e-05,9.39913174786e-05,8.94423880133e-05,8.4898648488e-05,8.03587230224e-05,7.58211359622e-05,7.12916484389e-05,6.6769569652e-05,6.22593538846e-05,5.77610929778e-05,5.32716480741e-05,4.87932401519e-05,4.43328794304e-05,3.98897452653e-05,3.54655461663e-05,3.10608568687e-05,2.66721405442e-05,2.22959938188e-05,1.79328309326e-05,1.35792073496e-05,9.23554036226e-06,4.90178737514e-06,5.74691903731e-07,-3.74526032005e-06,-8.05548949977e-06,-1.23551068125e-05,-1.66461940938e-05,-2.09220874589e-05,-2.51851184014e-05,-2.94385535437e-05,-3.3679795412e-05,-3.79052735149e-05,-4.21117160532e-05,-4.62996184317e-05,-5.04708478504e-05,-5.46242268689e-05,-5.8760974255e-05,-6.28789750551e-05,-6.69787398735e-05,-7.1056051064e-05,-7.51081488835e-05,-7.91390888427e-05,-8.31521504021e-05,-8.7145206773e-05,-9.11167043714e-05,-9.50676255175e-05,-9.89942026524e-05,-0.0001029008668,-0.000106783853484,-0.00011064244403,-0.000114477672821,-0.000118290373062,-0.000122081109308,-0.00012585153135,-0.000129605306177,-0.000133342883482,-0.000137067937956,-0.000140783440608,-0.000144484263982,-0.000148173048975,-0.000151851283495,-0.000155514877982,-0.000159163222134,-0.000162791669489,-0.000166399065917,-0.000169981334709,-0.000173532257956,-0.000177045313178,-0.000180524480669,-0.000183972975358,-0.000187390616043,-0.000190780688106,-0.000194146283154,-0.000197485738823,-0.000200800067177,-0.000204089924599,-0.000207361620238,-0.000210620765682,-0.000213868294838,-0.000217100646727,-0.000220317613044,-0.0002235179267,-0.000226696847503,-0.000229854815092,-0.000232993129387,-0.000236110718495,-0.00023920477315,-0.000242269436422,-0.000245305943162,-0.000248313852684,-0.000251290869573,-0.000254234944474,-0.000257146265035,-0.000260028980625,-0.000262877005517,-0.000265692954263,-0.000268478099933,-0.000271237066153,-0.000273969655738,-0.000276675525636,-0.000279352564851,-0.000282004222398,-0.000284633973306,-0.000287237388924,-0.000289817109155,-0.00029237481576,-0.000294909936843,-0.000297420406748,-0.000299902537,-0.000302357074055,-0.000304786059212,-0.000307191277493,-0.00030956818953,-0.0003119195875,-0.000314248609416,-0.000316551945755,-0.000318831185746,-0.000321085427938,-0.00032331902707,-0.000325530982472,-0.000327723831981,-0.000329890755151,-0.000332034388588,-0.000334156956435,-0.000336253213794,-0.000338322574006,-0.000340363863623,-0.000342378003071,-0.000344363776054,-0.000346320770762,-0.000348248382613,-0.000350147307907,-0.000352019840627,-0.000353863446943,-0.000355679472219,-0.00035746863004,-0.000359233761212,-0.000360974630901,-0.000362690489649,-0.000364378461818,-0.000366036191978,-0.000367667277025,-0.000369271507969,-0.000370846259024,-0.000372395855886,-0.000373919823062,-0.000375416040066,-0.000376885284372,-0.000378328856415,-0.000379753798854,-0.000381161979378,-0.000382553371302,-0.000383925680152,-0.000385277482901,-0.000386607497514,-0.000387914833388,-0.000389200219063,-0.000390462141816,-0.000391700015234,-0.000392909505136,-0.000394087147739,-0.000395233755944,-0.000396348921216,-0.000397436738024,-0.000398496895371,-0.000399532775696,-0.000400543477978,-0.000401527902644,-0.000402490117255,-0.00040342836687,-0.000404342713579,-0.000405230797847,-0.000406096449074,-0.000406936130917,-0.00040775132391,-0.000408540001407,-0.000409300843895,-0.00041003538591,-0.000410741646815,-0.000411416521463,-0.000412067550744,-0.000412698545536,-0.000413306239502,-0.000413892326807,-0.000414460512059,-0.000415004266138,-0.000415528746497,-0.000416036722101,-0.00041652556704,-0.000416995376726,-0.000417441722853,-0.000417859604683,-0.000418247193609,-0.000418608019576,-0.000418933712214,-0.000419233122192,-0.000419505741268,-0.000419752520736,-0.000419974394399,-0.000420175940925,-0.000420345728778,-0.000420475916166,-0.000420569434959,-0.000420628819223,-0.000420658240224)
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(193)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('G1E-ER4-H3K27ac.pooled.sorted.pseudoRep1.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) : 193',bty='n')
dev.off()