# R script for Peak Model
#  -- generated by MACS
p <- c(0.035370348916,0.041010443872,0.0467007588516,0.0521515629495,0.0582204596453,0.0580852518895,0.0574517069767,0.0572083330162,0.0575560101026,0.0577221224883,0.0574555700554,0.0578496040866,0.0583054473775,0.0588540045582,0.0586994814087,0.0591128308336,0.0596845664867,0.0599549819982,0.0599781604707,0.0602022190374,0.0605498961237,0.0604340037616,0.0604301406829,0.0606232946197,0.0607275977456,0.0604649083915,0.0599742973919,0.0605151284151,0.0603297006357,0.0602833436909,0.0599820235494,0.0599356666046,0.0600747374391,0.0597077449591,0.05942960329,0.060032243573,0.0602833436909,0.0596961557229,0.0599163512109,0.0602138082736,0.0605344438088,0.0604764976277,0.0601519990138,0.0604996761002,0.0611718518004,0.061222071824,0.0612297979815,0.0613881842097,0.061589064304,0.0611448102492,0.0611563994855,0.0614113626821,0.0615658858316,0.0616972305086,0.061368868816,0.0612297979815,0.0616470104851,0.0620642229886,0.0615852012253,0.0617049566661,0.061824712107,0.0618015336345,0.061971509099,0.0620642229886,0.0622148830594,0.0619946875714,0.0618710690518,0.061222071824,0.061824712107,0.0617860813196,0.0619406044691,0.0619174259966,0.0617860813196,0.0617783551621,0.0618556167369,0.0622419246106,0.0623346385002,0.0632617773971,0.0628909218384,0.0629527310982,0.062705494059,0.0630493080666,0.063366080523,0.0633738066805,0.0631652004287,0.0630570342241,0.0631381588775,0.0628407018148,0.0631265696413,0.0631922419799,0.0633274497356,0.0634510682552,0.0632501881609,0.0630106772792,0.0633119974207,0.0631304327201,0.0629565941769,0.0628947849171,0.0626707263504,0.0632076942948,0.0633931220742,0.063219283531,0.0632308727672,0.0634240267041,0.0633429020506,0.0640189408296,0.0637214837668,0.0638682807588,0.0646215811125,0.0641850532153,0.0645018256717,0.0648997227816,0.0648340504431,0.0650503828523,0.0655564461669,0.065378744545,0.0657882308911,0.0661899910798,0.0661436341349,0.0666342451345,0.0668467144651,0.0667578636541,0.0676038778975,0.0679592811413,0.0678433887792,0.0682181074167,0.0682606012828,0.0682065181805,0.0681099412121,0.0679747334563,0.0673411885434,0.0676425086849,0.0674918486141,0.0671016776617,0.0670398684019,0.0667849052053,0.0673373254647,0.0674802593779,0.0675034378503,0.0676270563699,0.0677352225746,0.0675922886613,0.0673411885434,0.067611604055,0.0679515549838,0.0684073982748,0.0678781564878,0.0677970318344,0.0679399657476,0.0680674473459,0.0692186448096,0.0695624588172,0.0698637789587,0.070122605234,0.0698521897224,0.0698367374075,0.0705668592888,0.0705127761865,0.0705514069738,0.0709106732964,0.0708643163515,0.0711501841781,0.0711926780442,0.071401284296,0.0716369320989,0.0716253428627,0.0718609906657,0.0724172740038,0.0728344865074,0.0730508189167,0.0727108679878,0.0722588877756,0.0723013816417,0.0722550246969,0.0726451956493,0.0727997187988,0.0727610880114,0.0725833863895,0.0728190341925,0.0726992787516,0.073031503523,0.0735761976249,0.0740397670733,0.0743951703172,0.0745342411517,0.0748857813168,0.074735121246,0.0751368814347,0.0753107199778,0.0757588371113,0.0758901817884,0.0762224065598,0.0762417219534,0.0760485680166,0.0763228466069,0.0764503282052,0.0770838731181,0.0772113547164,0.077188176244,0.0773581517084,0.0775513056453,0.0776247041413,0.0780882735897,0.0783355106289,0.0785479799594,0.0789033832032,0.0791042632976,0.0794751188563,0.0795910112184,0.0794712557776,0.0795446542736,0.079714629738,0.0796914512656,0.0804061208319,0.0806417686349,0.0805683701389,0.0809083210677,0.0805490547452,0.0809855826425,0.0815148244294,0.0819745307991,0.0821174647124,0.0826505695781,0.0825230879798,0.0829441635621,0.0835313515302,0.0835661192388,0.0843619134586,0.0844430381121,0.0846748228363,0.0847713998047,0.0853392723791,0.0849684168203,0.0854860693711,0.0856251402056,0.0855517417096,0.0859766803707,0.0860075850006,0.0862432328035,0.0862780005122,0.0859998588431,0.0860191742368,0.0863938928743,0.0865870468111,0.086486606764,0.0866874868583,0.0868999561888,0.0871819609366,0.0873557994798,0.0878386843219,0.0888778525022,0.0889937448643,0.0891482680138,0.0891135003051,0.0892873388483,0.0897663606117,0.0898590745014,0.0897856760054,0.0898590745014,0.0901256269342,0.0899131576037,0.0906316902488,0.0914236213899,0.0918601492871,0.0924743788063,0.0926791219794,0.0928954543886,0.0935792193251,0.0940930087971,0.0944561381984,0.0951901231584,0.0952326170245,0.0950858200325,0.0957502695753,0.0960400004806,0.0961983867088,0.0963374575433,0.096665819236,0.0973611734086,0.0970946209758,0.0971718825505,0.0971525671568,0.0977590705185,0.0978286059358,0.0975775058179,0.0976972612587,0.0985471385809,0.0983655738802,0.098207187652,0.0989102679822,0.0990532018954,0.0997176514382,0.0998721745877,0.100042150052,0.100992467421,0.101220389067,0.1009963305,0.101220389067,0.10222092646,0.102931732947,0.103835693372,0.104662392222,0.105384787945,0.106261706819,0.107138625692,0.108579554061,0.109761656154,0.111573440082,0.111990652586,0.11280189912,0.113307962435,0.113748353411,0.114323952143,0.114663903072,0.115100430969,0.115197007937,0.115417203425,0.115552411181,0.116255491511,0.115907814425,0.116572263968,0.116977887235,0.11729852277,0.117800723006,0.118117495463,0.118295197084,0.119048497438,0.119809523949,0.120408301154,0.120539645831,0.120303998028,0.120640085878,0.121227273846,0.12152086783,0.121972848042,0.123112456269,0.122899986939,0.123124045506,0.122645023742,0.123885072017,0.124464533827,0.124966734063,0.125364631173,0.126701256416,0.126183603865,0.125758665204,0.126477197849,0.126361305487,0.127257539754,0.127605216841,0.128393284903,0.12898433595,0.129602428548,0.128980472871,0.130278467327,0.130753626011,0.130904286082,0.131201743145,0.130896559925,0.131054946153,0.131630544885,0.131356266294,0.131993674286,0.132410886789,0.132492011443,0.133129419435,0.13396770752,0.134639883221,0.135539980566,0.136061496196,0.136347364022,0.137560370746,0.137571959982,0.13769944158,0.138309808021,0.138746335918,0.139553719374,0.139862765673,0.140766726098,0.141272789412,0.141771126569,0.142037679002,0.1426557716,0.143354988851,0.143795379827,0.143841736772,0.143783790591,0.144668435622,0.14482682185,0.145151320464,0.144958166527,0.144749560275,0.144962029606,0.14534833748,0.145414009818,0.146217530195,0.146055280889,0.14592779929,0.146163447093,0.146093911676,0.146820170478,0.147391906132,0.148330634265,0.148349949658,0.148995083807,0.149311856264,0.149991758122,0.150536452223,0.150710290767,0.151807405128,0.152537527009,0.152722954789,0.152371414624,0.153302416599,0.153286964284,0.153538064402,0.153236744261,0.153522612087,0.153692587552,0.153623052134,0.153738944496,0.153491707457,0.153920509197,0.154113663134,0.154341584779,0.154789701913,0.155940899376,0.155801828542,0.156404468825,0.157281387698,0.157393416982,0.158150580414,0.158884565374,0.159321093271,0.160541826152,0.160286862956,0.160252095247,0.160622950806,0.160313904507,0.15963013957,0.159351997901,0.159413807161,0.158695274516,0.158459626713,0.158166032729,0.158509846737,0.158818893036,0.159158843964,0.159954638184,0.159579919547,0.159209063988,0.159073856232,0.159066130075,0.159564467232,0.158946374634,0.159444711791,0.158907743847,0.158675959122,0.158602560626,0.158930922319,0.158849797665,0.158818893036,0.158571655996,0.15816216965,0.157439773926,0.156829407486,0.156172684101,0.155844322408,0.154998308165,0.154198650866,0.154735618811,0.154360900173,0.154357037094,0.154113663134,0.154337721701,0.153174935001,0.153476255142,0.15369645063,0.153136304213,0.153155619607,0.151942612884,0.151598798876,0.151007747829,0.150663933822,0.150436012176,0.151324520286,0.150219679767,0.149396843996,0.148740120611,0.148288140398,0.148724668296,0.148241783454,0.147511661572,0.146441588762,0.145904620818,0.144938851134,0.144664572543,0.14372584441,0.143304768828,0.143250685725,0.143103888733,0.142126529813,0.14182907275,0.141520026451,0.140612202948,0.139105602241,0.139267851548,0.138827460572,0.139113328398,0.138070297139,0.136895921203,0.137177925951,0.13632418555,0.135891520731,0.135563159039,0.135740860661,0.135126631142,0.134535580095,0.133844089001,0.13399861215,0.133766827426,0.133144871749,0.133268490269,0.13286673008,0.133144871749,0.132847414687,0.132325899057,0.132414749868,0.131931865026,0.130958369184,0.130602965941,0.130135533413,0.128930252847,0.128165363257,0.127435241376,0.127419789061,0.127249813597,0.126226097731,0.125047858717,0.124584289268,0.123800084285,0.123618519584,0.124170939843,0.123946881277,0.123344240994,0.122760916104,0.121895586467,0.12222394816,0.122525268301,0.122281894341,0.121872407995,0.121192506137,0.120369670366,0.120037445595,0.119805660871,0.118936468155,0.119075538989,0.118611969541,0.118183167801,0.11861583262,0.118117495463,0.118260429376,0.118550160281,0.118666052643,0.118357006344,0.119021455887,0.119396174524,0.119454120706,0.120207421059,0.120427616547,0.121683117137,0.122231674317,0.12341763949,0.12479289552,0.126442430141,0.128053333974,0.129173626808,0.130355728901,0.130977684578,0.131016315365,0.130904286082,0.129583113154,0.12858643884,0.126233823889,0.124584289268,0.122339840522,0.120041308674,0.117800723006,0.115749428197,0.114072852025,0.112388549696,0.112257205018,0.110499504193,0.110267719469,0.108792023391,0.107872610652,0.106891388653,0.106215349874,0.104658529143,0.104349482844,0.103302588506,0.102259557247,0.10151784613,0.100285524013,0.0998451330365,0.0985239601085,0.0973611734086,0.0968551100941,0.097106210212,0.0956768710793,0.0951205877412,0.0946029351904,0.0942243534742,0.0934903685141,0.0929418113335,0.0929031805461,0.0927756989478,0.0919683154918,0.0912497828467,0.0911145750909,0.0912111520593,0.090848022658,0.0902144777452,0.0901024484618,0.0898783898951,0.0897740867692,0.0897779498479,0.0895538912811,0.0891096372264,0.0888237693999,0.0879082197392,0.0874253348971,0.0873596625585,0.0869772177636,0.0866102252835,0.0860925727328,0.0851268030485,0.0850418153163,0.0846748228363,0.084856387537,0.0849800060565,0.0848911552456,0.0842421580178,0.0846902751513,0.0839215224826,0.0833768283807,0.0830407405306,0.0824883202712,0.0823453863579,0.081140105792,0.0803829423595,0.0800429914306,0.0802168299738,0.0793939942028,0.0795060234862,0.0795948742972,0.0796914512656,0.0792278818171,0.0789883709354,0.0788763416521,0.0787372708175,0.0780419166449,0.077701965716,0.0774431394406,0.0770722838819,0.0764464651265,0.0762455850322,0.0763923820242,0.0759597172056,0.0759519910482,0.0758245094498,0.0759867587568,0.075704754009,0.0753145830566,0.0755231893084,0.0752914045841,0.0746964904586,0.0744299380258,0.074603776569,0.0741827009866,0.074001136286,0.0736650484359,0.0734255375542,0.0734603052628,0.073634143806,0.0741208917268,0.0742638256401,0.0736727745933,0.073413948318,0.0731821635937,0.0728538019011,0.0729890096569,0.0730778604678,0.0726142910194,0.0716176167053,0.0710690595246,0.0708063701705,0.070945441005,0.0707136562808,0.0702346345174,0.0705243654227,0.06982901125,0.0693345371717,0.0694388402976,0.0690254908727,0.0684846598495,0.0684267136685,0.0679013349603,0.0676927287085,0.0678240733855,0.0668583037013,0.0666690128432,0.0663676927017,0.0664140496465,0.0667230959455,0.0670862253467,0.0669162498823,0.0671403084491,0.0669741960634,0.0670939515042,0.0677236333384,0.0675497947952,0.0673295993072,0.0667115067093,0.0660470571665,0.0654560061197,0.065143096742,0.0646486226637,0.0643318502073,0.0638412392077,0.0636055914047,0.063601728326,0.0639957623571,0.0641039285618,0.0644940995142,0.0642005055302,0.0639957623571,0.0639764469635,0.0639223638611,0.063879869995,0.0630840757752,0.0628252494998,0.0624505308623,0.0619521937053,0.0618015336345,0.0617706290046,0.062044907595,0.0620255922013,0.0621105799335,0.0619637829415,0.0624968878072,0.0628329756573,0.062469846256,0.0621105799335,0.0620101398863,0.0618749321305,0.0615040765718,0.0617088197448,0.0614113626821,0.0614577196269,0.0608705316589,0.0604455929978,0.0601404097776,0.0604455929978,0.0603335637145,0.0603103852421,0.0599472558408,0.0591128308336,0.0588192368496,0.0588540045582,0.0582050073304,0.0583093104563,0.0583672566373,0.0583054473775,0.0581741027005,0.0578341517716,0.0581277457556,0.0585256428656,0.0587960583771,0.0582745427477,0.058900361503,0.058313173535,0.0583015842988,0.0580427580234,0.05796163337,0.0581702396218,0.0576487239923,0.0572469638036,0.0566404604419,0.056536157316,0.0565786511821,0.056373908009,0.0564704849775,0.0569997267644,0.0571774283863,0.0569224651897,0.0571349345202,0.0569842744495,0.0572315114887,0.0568490666937,0.0564859372924,0.0569688221345,0.0567756681977,0.0567022697017,0.056389360324,0.0563623187728,0.0561421232848,0.0562387002533,0.0560262309227,0.0565670619459,0.0564048126389,0.0563043725918,0.0563584556941,0.0558639816158,0.0557789938835,0.0556476492065,0.0559798739779,0.05572877386,0.055802172356,0.0555472091593,0.0555781137892,0.0556592384427,0.0553154244351,0.0549329796401,0.0549252534827,0.0552458890178,0.054979336585,0.0550295566086,0.0550102412149,0.0549986519787,0.0551068181833,0.0545003148216,0.0543303393572,0.0544848625067,0.0544385055618,0.0541410484991,0.0542067208376,0.0544578209555,0.0544925886641,0.0547475518608,0.05459689179,0.0547823195694,0.054905938089,0.0549098011677,0.0547320995458,0.0543148870422,0.0541410484991,0.0537663298616,0.0537470144679,0.0536465744207,0.0535190928224,0.0533529804367,0.0535152297437,0.0535075035862,0.053275718862,0.0535306820586,0.0534920512712,0.0535229559011,0.0535113666649,0.0533877481453,0.0535963543971,0.0540676500031,0.0537856452553,0.0535345451374,0.0535577236098,0.0536774790506,0.0536465744207,0.0542723931761,0.0541989946801,0.0544462317193,0.0542221731525,0.0541951316014,0.0542376254675,0.0543110239635,0.0546200702624,0.0546973318372,0.0548402657505,0.0544694101917,0.0542337623887,0.054098554633,0.0542685300974,0.0543342024359,0.0545157671365,0.054685742601,0.0547745934119,0.0547784564907,0.0547977718844,0.0547784564907,0.0552227105454,0.0548866226953,0.0550256935298,0.0546973318372,0.0547552780182,0.0549909258212,0.0546973318372,0.0545350825302,0.0545080409791,0.054392148617,0.0542878454911,0.0545698502389,0.0548016349631,0.0547745934119,0.0545312194515,0.0542530777824,0.0543651070658,0.0544037378532,0.0544153270894,0.0546741533648,0.0544385055618,0.0545273563728,0.0540135669007,0.0542221731525,0.0539517576409,0.0538126868064,0.0534920512712,0.0536852052081,0.0535924913184,0.0532370880746,0.0530593864527,0.0529975771929,0.0533568435154,0.0535615866885,0.0542144469951,0.0547745934119,0.0552536151753,0.0550720504747,0.0550179673724,0.0552420259391,0.0556746907576,0.0556476492065,0.0554429060334,0.0551724905218,0.055126133577,0.054685742601,0.054450094798,0.0546084810262,0.0545582610027,0.0545814394751,0.0544887255854,0.0547630041757,0.0546432487349,0.054465547113,0.0542144469951,0.0544809994279,0.0547282364671,0.0545157671365,0.0547900457269,0.0545582610027,0.0544732732704,0.0542955716485,0.0542839824123,0.0544887255854,0.0548248134355,0.054743688782,0.0547243733883,0.0549677473488,0.054832539593,0.0549484319551,0.0551377228132,0.0551840797581,0.0553386029075,0.0553154244351,0.0553192875138,0.055419727561,0.0552188474667,0.0554776737421,0.0557017323088,0.0559914632141,0.0560609986313,0.0560996294187,0.0562696048831,0.0562850571981,0.0560648617101,0.0560300940015,0.0562039325446,0.0557789938835,0.0554042752461,0.0552690674903,0.0552342997816,0.0550604612385,0.0550875027896,0.0550565981597,0.0550875027896,0.0552265736242,0.0551531751282,0.0557480892537,0.0561150817337,0.0561305340486,0.0562657418044,0.0567177220166,0.0563082356705,0.0562811941194,0.0564743480562,0.0564666218987,0.0565670619459,0.0560300940015,0.0560262309227,0.056080314025,0.0563777710878,0.0561073555762,0.0563430033792,0.0566288712057,0.0568181620638,0.0568336143787,0.0567911205126,0.0572044699375,0.0569070128748,0.0569301913472,0.0568374774575,0.0569108759535,0.0564743480562,0.0563970864815,0.0562116587021,0.0560648617101,0.0559566955055,0.0559798739779,0.055933517033,0.0557674046473,0.0556862799939,0.0554120014035,0.056242563332,0.0562193848596,0.0559180647181,0.0560339570802,0.0562348371745,0.0559798739779,0.0557519523324,0.0558098985134,0.0557210477025,0.0561846171509,0.055933517033,0.0561923433084,0.0564125387964,0.0562773310406,0.0562502894895,0.0564898003712,0.0570460837093,0.0572778684335,0.0574285285042,0.0568529297724,0.0569379175046,0.056698406623,0.0565902404183,0.0565052526861,0.0565631988672,0.0560416832377,0.0558292139071,0.0556515122852,0.0554622214271,0.0560107786078,0.0560455463164,0.0562309740958,0.0563584556941,0.0569147390322,0.0567061327804,0.0570885775754,0.0571272083628,0.0572006068588,0.0571272083628,0.0566172819695,0.0563082356705,0.0562348371745,0.056242563332,0.0560378201589,0.0564898003712,0.0564511695838,0.0568954236385,0.0568027097489,0.0570460837093,0.0573396776933,0.057637134756,0.0574478438979,0.0578148363779,0.0577337117245,0.0576216824411,0.0574014869531,0.0572469638036,0.0576834917009,0.0576680393859,0.058108430362,0.0580041272361,0.0584676966845,0.0581509242281,0.0581045672832,0.0579886749211,0.0583942981885,0.0584252028184,0.05832862585,0.0585565474955,0.0582822689051,0.0585179167081,0.0582436381178,0.058181828858,0.0581316088344,0.0579539072125,0.0580891149683,0.0579152764251,0.0577684794331,0.057343540772,0.0571503868352,0.0568567928512,0.0566365973632,0.0564550326625,0.0565400203947,0.0562580156469,0.0559026124031,0.0557712677261,0.0556862799939,0.0564202649539,0.0565245680798,0.0568799713236,0.0569997267644,0.0572740053548,0.0571812914651,0.0575251054727,0.057637134756,0.0580582103384,0.0580388949447,0.0570229052369,0.0569610959771,0.0570113160007,0.0569881375282,0.057285594591,0.0572006068588,0.0573087730634,0.0572315114887,0.0570576729455,0.0572740053548,0.0576409978348,0.057416939268,0.0574710223704,0.0572083330162,0.0566481865994,0.0566327342844,0.0566906804655,0.0570731252604,0.0567602158827,0.0566327342844,0.0565786511821,0.0565902404183,0.0559991893716,0.0560494093951,0.056447306505,0.0563314141429,0.0564666218987,0.0557326369387,0.0557983092772,0.0557596784899,0.0556592384427,0.0557519523324,0.0557983092772,0.0558330769859,0.0558137615922,0.0557171846238,0.0556283338128,0.0561807540722,0.0561730279147,0.0563777710878,0.056300509513,0.0564241280326,0.0566713650718,0.0569340544259,0.0565863773396,0.0567602158827,0.0566365973632,0.0565052526861,0.0563314141429,0.0558717077732,0.0561498494423,0.056022367844,0.0556785538364,0.0556051553404,0.0556940061513,0.0555742507105,0.0552111213092,0.0549136642465,0.0551415858919,0.0552922459627,0.0547745934119,0.0547050579947,0.0547127841521,0.0548788965378,0.0548054980418,0.0548827596166,0.0551377228132,0.055052735081,0.0551338597345,0.0551531751282,0.055435179876,0.05536178138,0.055272930569,0.0548016349631,0.0548402657505,0.0546934687585,0.0543342024359,0.0542917085698,0.0538706329875,0.0535384082161,0.0534186527752,0.0533182127281,0.0535190928224,0.0535499974523,0.0534997774287,0.0535036405075,0.0532332249959,0.0532254988384,0.0480257948584,0.0427642816186,0.0373096144419,0.0319747027062,0.0)
m <- c(0.03312351757,0.0383511064271,0.0435246034557,0.0490651521779,0.0544472891165,0.0544550165206,0.0550229807202,0.0548568415325,0.0542618314187,0.0548143408101,0.0547718400877,0.0553050309689,0.0557493567033,0.0553282131812,0.0552393480343,0.055312758373,0.0548568415325,0.0551350280793,0.055517534581,0.0549186607651,0.0549534340835,0.0549804799977,0.054899342255,0.0552045747159,0.0553745776056,0.0552818487567,0.0551195732711,0.0549920711039,0.0551427554833,0.0552393480343,0.0553745776056,0.05500366221,0.0549650251896,0.0551891199078,0.0553050309689,0.0554518516464,0.055513670879,0.0555986723238,0.0552818487567,0.0552316206302,0.0551195732711,0.0550113896141,0.0548916148509,0.0548452504264,0.0546559290266,0.054601837198,0.0546907023449,0.0546907023449,0.0546095646021,0.0542656951208,0.0543197869493,0.0543391054595,0.0545477453695,0.0543120595452,0.0546327468143,0.0546057009001,0.0548916148509,0.054802749704,0.0552818487567,0.0555870812177,0.0552470754384,0.055617990834,0.0555020797729,0.0556914011727,0.0556411730462,0.0559386781031,0.0559966336337,0.056135726907,0.056127999503,0.0559502692092,0.0561434543111,0.0561898187356,0.0563714127314,0.0567539192331,0.0569355132289,0.0566032348536,0.0565607341312,0.0566921000005,0.0566109622577,0.0570050598656,0.0573064286245,0.0574764315142,0.0578975750363,0.0576966625303,0.0570746065022,0.057252336796,0.0568002836575,0.0561511817152,0.0562632290743,0.0563405031151,0.0562555016702,0.0559579966133,0.055517534581,0.0555561716014,0.0559734514215,0.0563134572008,0.0565491430251,0.0573218834327,0.0571286983308,0.0571480168409,0.0572446093919,0.0573025649225,0.0573296108367,0.0569741502492,0.057155744245,0.0570746065022,0.0573064286245,0.0573257471347,0.0573643841551,0.0573952937714,0.0571789264573,0.0572368819878,0.0573991574734,0.0576193884896,0.0573141560286,0.0568621028902,0.0568852851024,0.0570436968859,0.0570630153961,0.0568196021677,0.0570359694819,0.0570900613104,0.057151880543,0.0573257471347,0.0578473469098,0.0582337171136,0.0582143986034,0.0581873526891,0.0581912163912,0.0585389495746,0.0586162236153,0.0587012250601,0.0587205435703,0.0587012250601,0.0583380370686,0.0581950800932,0.058484857746,0.0581409882647,0.0580482594158,0.0577198447425,0.0578048461874,0.0576502981059,0.0576812077222,0.0577468906568,0.0574416581958,0.0575112048325,0.0573798389632,0.0573180197306,0.0575421144488,0.0579439394607,0.0582646267299,0.0587012250601,0.0586239510194,0.0586780428479,0.058894410162,0.0589600930967,0.0591687330067,0.0590798678598,0.0593194173862,0.0590141849252,0.0583534918767,0.0579593942689,0.0576425707018,0.0572948375184,0.057360520453,0.0569973324615,0.0567539192331,0.0568930125065,0.0568891488044,0.0571055161185,0.057460976706,0.0574030211754,0.0577237084446,0.0579014387383,0.0578203009955,0.0577159810405,0.0577584817629,0.0575884788733,0.057360520453,0.0574030211754,0.0572021086695,0.057252336796,0.0571634716491,0.0569664228452,0.057256200498,0.0575923425753,0.0577314358487,0.0576927988283,0.057770072869,0.0576000699794,0.057661889212,0.0576232521916,0.057352793049,0.0573837026653,0.0571055161185,0.0571286983308,0.0570861976083,0.0572446093919,0.0574687041101,0.0577314358487,0.0573257471347,0.0575730240651,0.0577778002731,0.0577352995507,0.0576425707018,0.0574493855999,0.0572484730939,0.0570784702043,0.0564834600905,0.0561627728213,0.056228455756,0.0559657240174,0.0561048172907,0.056336639413,0.0564641415803,0.0566727814903,0.0564989148986,0.0566766451923,0.0570359694819,0.0571943812654,0.0576348432977,0.0573257471347,0.0575343870447,0.0572291545837,0.0574146122816,0.0573952937714,0.0574377944938,0.0572136997756,0.0567500555311,0.056645735576,0.0563443668171,0.0566998274046,0.0562130009478,0.0564757326864,0.0562593653723,0.0559386781031,0.0553320768832,0.0555020797729,0.0560429980581,0.0560661802704,0.0559386781031,0.0560004973357,0.0558382218501,0.0558420855522,0.055722310789,0.0555523078993,0.0563675490293,0.0565220971108,0.0562555016702,0.0561473180132,0.0562670927763,0.0558768588705,0.0559773151235,0.0559464055072,0.0562245920539,0.0562670927763,0.0561859550335,0.0564139134538,0.0564795963884,0.0564139134538,0.0564486867721,0.0569084673146,0.0572136997756,0.0570900613104,0.0569200584207,0.0573334745388,0.0572755190082,0.0569123310166,0.0566805088944,0.05684278438,0.0569046036126,0.0568968762085,0.0566611903842,0.0567152822127,0.0569084673146,0.0571596079471,0.0569007399105,0.056850511784,0.057055287992,0.056850511784,0.056645735576,0.0565259608129,0.0568582391881,0.0572098360736,0.0573064286245,0.0568736939963,0.056850511784,0.0567268733188,0.056746191829,0.0565259608129,0.0564834600905,0.0562477742661,0.055726174491,0.0552973035648,0.0549534340835,0.0551311643772,0.0553591227975,0.0552586665445,0.0551852562058,0.0552818487567,0.0557454930012,0.0557957211277,0.0561048172907,0.0563018660947,0.0563636853273,0.0558923136787,0.0557493567033,0.0559154958909,0.0563868675395,0.0562593653723,0.0559000410827,0.0559927699317,0.0560623165683,0.0558150396379,0.0558768588705,0.0559154958909,0.0558614040624,0.0561666365234,0.0557841300216,0.0555832175156,0.0559154958909,0.0561511817152,0.0562400468621,0.0559811788255,0.0558575403603,0.0560893624826,0.056336639413,0.0559734514215,0.0556257182381,0.0563636853273,0.0563250483069,0.0562052735437,0.0559425418052,0.0563945949436,0.0562555016702,0.0563636853273,0.0562555016702,0.056440959368,0.0563520942212,0.0564989148986,0.0563945949436,0.0561473180132,0.0562014098417,0.0562091372458,0.0564293682619,0.0562516379682,0.056232319458,0.0562748201804,0.0568157384657,0.0562825475845,0.0562825475845,0.0564834600905,0.0565066423027,0.0561241358009,0.0563250483069,0.0565298245149,0.0568273295718,0.0566998274046,0.056645735576,0.0567500555311,0.0567075548086,0.0566495992781,0.0567036911066,0.0571480168409,0.0569548317391,0.0569973324615,0.0567075548086,0.0566225533638,0.0566766451923,0.0566186896618,0.0568002836575,0.0569316495268,0.0567732377433,0.0568350569759,0.0568350569759,0.0568930125065,0.0569200584207,0.0570321057798,0.0571905175634,0.0571364257348,0.0568002836575,0.0565298245149,0.0565916437475,0.0561975461397,0.0563945949436,0.0564177771558,0.0565684615353,0.0565800526414,0.0562091372458,0.0563057297967,0.0567809651474,0.0571596079471,0.0571634716491,0.0574146122816,0.0576927988283,0.0578241646976,0.0578782565261,0.0583071274523,0.058276217836,0.0584230385134,0.0582375808156,0.0579787127791,0.0580637142239,0.0580868964361,0.0579091661424,0.0578859839302,0.0579014387383,0.0576773440201,0.0579323483546,0.0579014387383,0.0576425707018,0.0576464344038,0.0578975750363,0.0580018949913,0.0581371245626,0.0581950800932,0.0582607630278,0.058790090207,0.058689633954,0.0588828190559,0.0593078262801,0.0591803241128,0.0592498707495,0.0594276010432,0.0591378233904,0.0594932839779,0.0599144275,0.0595782854227,0.0601037488999,0.0602080688549,0.0605519383362,0.0608146700748,0.0610001277726,0.0608958078176,0.0615990015885,0.0615062727396,0.0613092239356,0.0616376386089,0.0616337749068,0.0616453660129,0.0615912741844,0.0623910605062,0.0624915167592,0.0627310662856,0.0624065153144,0.0625842456081,0.0626576559468,0.0628585684528,0.0628237951345,0.0629242513874,0.0630285713425,0.062576518204,0.0626112915224,0.0630710720649,0.0630478898527,0.0627658396039,0.0626615196489,0.0625262900776,0.0629010691752,0.0631213001914,0.0631638009138,0.0634999429911,0.0634651696727,0.0631947105301,0.0635347163094,0.0637665384317,0.0639519961295,0.0640717708927,0.0640215427662,0.0639597235336,0.0640717708927,0.0640408612764,0.0641297264232,0.0643035930149,0.0645354151372,0.0647826920676,0.0649333764471,0.0653081555448,0.0653892932876,0.0656520250261,0.0657254353648,0.0658143005117,0.0662393077359,0.0664363565398,0.0662083981196,0.0664943120704,0.0671975058412,0.0671434140127,0.0671781873311,0.0674486464737,0.0674022820492,0.0677770611469,0.0677809248489,0.0678736536979,0.068399117175,0.0683566164526,0.067688196,0.0676031945552,0.0681827498609,0.0682445690935,0.0684686638117,0.0683720712607,0.068402980877,0.0687159407421,0.0684107082811,0.0685304830443,0.0688550340155,0.0690752650316,0.0688241243992,0.0690289006072,0.0693689063865,0.0698132321208,0.0702614215572,0.0700566453492,0.0706748376753,0.071061207879,0.0714050773604,0.0714050773604,0.0716832639071,0.0725062324412,0.0727457819675,0.0727148723512,0.0728037374981,0.0729698766857,0.0732326084243,0.0733137461671,0.0738005726238,0.0744071738438,0.0747664981333,0.0745539945212,0.0747471796231,0.0751953690595,0.0756474221979,0.0762115226954,0.0764510722217,0.0766558484298,0.0767331224705,0.0768335787235,0.0770654008458,0.0772083578212,0.07709244676,0.0772122215232,0.0773242688823,0.0775367724944,0.0775831369188,0.0774826806658,0.0774247251353,0.0778806419757,0.0778613234655,0.078112464098,0.0788002030607,0.078927705228,0.0792058917747,0.079136345138,0.0796308989988,0.080256818729,0.080670234847,0.0807706911,0.0811647887079,0.0814120656383,0.081686388483,0.0819104832011,0.0819838935399,0.0825402666333,0.0827489065433,0.0829459553473,0.0833014159347,0.0836761950324,0.0838964260486,0.0838732438363,0.0839273356649,0.084043246726,0.0844064347176,0.0845339368848,0.0849009885784,0.084962807811,0.0851096284884,0.0850941736803,0.0855153172024,0.086187601357,0.0868676129156,0.0873235297561,0.0877485369802,0.0888844653794,0.0889733305262,0.089363564432,0.0898928916112,0.0901826692641,0.0902522159007,0.0908472260146,0.0913224613652,0.0919329262872,0.0922420224502,0.0919561084994,0.0922883868746,0.0929258977109,0.0939536424529,0.094475242228,0.0953793485049,0.0953059381662,0.0958623112596,0.0963993658429,0.097129605528,0.0977671163642,0.0988064522124,0.099586920024,0.100263067881,0.101630818402,0.102616062422,0.103779036735,0.104134497323,0.105065649514,0.106201577913,0.107395461842,0.108098655613,0.108882987127,0.109091627037,0.109416178008,0.110003460718,0.110768473721,0.112236680496,0.114060347858,0.115389461359,0.117367676802,0.12003749491,0.122417535365,0.125068034963,0.127533076863,0.129488110094,0.131095410142,0.13213474599,0.131226776011,0.130728358449,0.129604021156,0.127660579031,0.126381693656,0.125025534241,0.122718904124,0.121335698795,0.120060677122,0.118901566511,0.119365210755,0.119461803306,0.119079296805,0.119059978294,0.118673608091,0.117920186193,0.118464968181,0.118283374185,0.118727699919,0.11876633694,0.118542242221,0.118372239332,0.118391557842,0.118905430213,0.118716108813,0.11899429536,0.119276345609,0.119724535045,0.119813400192,0.120678869448,0.121069103354,0.121235242542,0.122015710353,0.122270714688,0.123105274328,0.12388574214,0.12411370056,0.124762802502,0.125338494106,0.125168491216,0.125489178485,0.125717136906,0.125717136906,0.125860093881,0.126238736681,0.126482149909,0.12693806675,0.126628970587,0.126636697991,0.127208525892,0.127618078308,0.128232406932,0.128846735556,0.129148104315,0.129774024045,0.130384488967,0.131207457501,0.132092245268,0.132907486398,0.133568179446,0.134027959989,0.134418193895,0.135326163874,0.136295953085,0.136736415117,0.136597321844,0.13660891295,0.137099603109,0.136975964644,0.136620504056,0.13738551706,0.137578702162,0.13799211828,0.137965072365,0.137795069476,0.138869178642,0.139838967854,0.140491933498,0.141334220542,0.142613105917,0.14271356217,0.143864945377,0.144177905242,0.144514047319,0.146090437751,0.1461831666,0.14660044642,0.146932724795,0.147728647415,0.148142063533,0.148644344798,0.148806620283,0.149540723671,0.15050664918,0.150448693649,0.151059158571,0.151476438392,0.152264633607,0.152144858844,0.152423045391,0.152318725436,0.15249645573,0.152643276407,0.153242150223,0.153076011035,0.153473972345,0.153953071398,0.154080573565,0.154625355552,0.154760585124,0.155599008466,0.156437431808,0.156916530861,0.156773573885,0.157384038807,0.157333810681,0.157260400342,0.157480631358,0.157770409011,0.157924957093,0.158149051811,0.158029277048,0.158454284272,0.158149051811,0.158199279937,0.158689970096,0.158686106394,0.159196115063,0.159829762197,0.160169767977,0.160231587209,0.159999765087,0.159315889826,0.15968294152,0.159551575651,0.159362254251,0.160007492491,0.159547711948,0.159443391993,0.158991338855,0.158585650141,0.159053158088,0.159165205447,0.159424073483,0.159578621565,0.159161341745,0.15848905759,0.157836091946,0.156827665714,0.157283582554,0.157418812126,0.156978350093,0.156483796233,0.155722646931,0.155212638262,0.155139227923,0.154378078622,0.154868768781,0.15462149185,0.153813978124,0.153756022594,0.154096028373,0.153678748553,0.153609201916,0.153284650945,0.15316101248,0.152786233382,0.151843490085,0.151808716767,0.151356663628,0.150502785478,0.149811182813,0.149575496989,0.149517541458,0.149687544348,0.149123443851,0.149030715002,0.149034578704,0.148188427957,0.147910241411,0.147527734909,0.146472944253,0.145982254094,0.145468381723,0.14459132136,0.144626094679,0.144320862218,0.143432210749,0.142794699913,0.142408329709,0.142794699913,0.142895156166,0.142292418648,0.141442404199,0.141639453003,0.141434676795,0.140897622212,0.140851257788,0.140619435665,0.140109426996,0.139027590426,0.138795768304,0.138830541622,0.139155092593,0.138996680809,0.138363033675,0.137636657692,0.137126649023,0.137030056472,0.136860053583,0.136821416562,0.135874809563,0.135442074935,0.135322300172,0.134483876829,0.134043414797,0.134364102066,0.133784546761,0.133970004458,0.133463859491,0.132845667165,0.133027261161,0.132559753215,0.131342687073,0.130879042828,0.130848133212,0.130299487522,0.130152666845,0.12963106707,0.129634930772,0.129607884858,0.129167422825,0.12900514734,0.129515156009,0.129090148785,0.128108768467,0.127865355239,0.127324436953,0.126601924672,0.12559349844,0.125017806837,0.12436097749,0.123719602952,0.122510264214,0.121780024529,0.12144001875,0.120562958387,0.119709080237,0.119117933825,0.119133388633,0.118252464569,0.118206100144,0.118094052785,0.118128826103,0.11759177152,0.117634272243,0.117475860459,0.118067006871,0.117920186193,0.117089490255,0.117166764296,0.116591072692,0.116494480141,0.11575264935,0.116556299374,0.115748785648,0.115659920501,0.115010818559,0.114979908943,0.11450080989,0.113523293274,0.112228953092,0.110501878281,0.109257766225,0.107325915206,0.106074075745,0.104706325224,0.103697898992,0.102187191495,0.101638545806,0.101113082329,0.10098171646,0.100896715015,0.100931488333,0.100908306121,0.100722848423,0.100266931583,0.0999810176319,0.10024374937,0.0996912399791,0.0994671452609,0.0989300906776,0.0985128108575,0.0974541564992,0.0970523314872,0.0964611850755,0.0966736886875,0.0960864059778,0.0954179855253,0.0954141218232,0.0951784359989,0.0946877458401,0.0943206941465,0.0943091030404,0.0943863770812,0.0944945607382,0.0939227328366,0.0932156753637,0.0927983955436,0.0920952017728,0.0917358774832,0.091913607777,0.0915504197854,0.0918015604179,0.0910288200103,0.0907583608677,0.0908858630349,0.0911176851572,0.0909360911614,0.0907042690392,0.0899469834397,0.0894292473667,0.0896069776604,0.0888651468692,0.0885715055143,0.0878876302536,0.0870298884012,0.0869719328706,0.0867246559402,0.0870878439318,0.0876055800048,0.0872462557153,0.0867748840667,0.0865546530506,0.0865121523282,0.0867323833443,0.086396241267,0.0861566917407,0.0861373732305,0.0854573616718,0.0846459842439,0.0848043960274,0.0848275782397,0.0849782626192,0.0847232582847,0.0848932611743,0.084958944109,0.0842016585096,0.0835216469509,0.0835448291631,0.0835216469509,0.083324598147,0.0832395967021,0.0823934459559,0.0818254817563,0.0812034257282,0.0808441014387,0.0809329665856,0.0803340927697,0.0797931744844,0.0795227153418,0.0788658859954,0.0787113379139,0.0791517999462,0.0790822533095,0.079035888885,0.0789972518647,0.078626336469,0.0788427037831,0.0790783896074,0.0786379275751,0.0784370150692,0.0776951842779,0.0775174539842,0.0773281325843,0.0767678957888,0.0766403936216,0.0762887967362,0.0768065328092,0.0762115226954,0.0761110664424,0.0759217450426,0.0760569746139,0.0757208325366,0.0755778755612,0.0753344623328,0.0747858166435,0.0750871854024,0.0740787591705,0.0743492183132,0.0744574019702,0.0744149012478,0.0738546644524,0.0738314822401,0.0736537519464,0.0738044363259,0.0743144449949,0.073719434881,0.0734837490567,0.0731437432774,0.073000786302,0.0726800990329,0.0723400932535,0.0720348607926,0.0720039511763,0.0714012136584,0.0707984761405,0.0708448405649,0.0708062035445,0.0703039222796,0.0702227845368,0.0699986898186,0.0703541504061,0.0699098246718,0.0695736825945,0.0696509566352,0.0694152708109,0.0694693626395,0.0695505003823,0.0699948261166,0.0695736825945,0.0694539078313,0.0690984472438,0.0692452679213,0.0696741388475,0.0699677802023,0.0695852737006,0.0686811674238,0.0684377541954,0.0679277455264,0.0680243380773,0.0683334342404,0.0686193481911,0.0682716150077,0.0675027383022,0.0671588688209,0.066965683719,0.0673636450289,0.0673906909431,0.0672361428616,0.066869091168,0.0663204454787,0.0654936132426,0.0653004281407,0.065327474055,0.0645856432637,0.0648870120226,0.0648676935125,0.064620416582,0.0643229115251,0.0643035930149,0.064210864166,0.0646397350922,0.0648329201941,0.0646358713902,0.0646938269208,0.0645354151372,0.0641335901253,0.0636622184767,0.0634690333748,0.0632372112525,0.0634265326524,0.0632951667831,0.0634728970768,0.0634149415462,0.0635231252033,0.0633840319299,0.063391759334,0.063797448048,0.0642688196966,0.0640794982967,0.0640601797866,0.0637085829011,0.063387895632,0.0634806244809,0.0632333475505,0.0629899343221,0.0630053891302,0.063086526873,0.0626151552244,0.0626035641183,0.0621515109799,0.0618462785189,0.0614869542294,0.0609305811359,0.0609924003686,0.0607103501198,0.0608996715196,0.0605596657403,0.0605442109322,0.0605442109322,0.0605789842505,0.0606639856953,0.0604785279975,0.0606060301648,0.0604785279975,0.0606987590137,0.060115340006,0.0601037488999,0.0596632868676,0.0594971476799,0.0592305522393,0.0592769166638,0.0594082825331,0.0592537344515,0.0590373671374,0.0588287272274,0.0589214560763,0.0584694029379,0.0588248635254,0.0591378233904,0.059296235174,0.0589523656926,0.0588480457376,0.0588750916518,0.0589832753089,0.0592150974312,0.059199642623,0.0593310084923,0.0589175923743,0.0585737228929,0.0582414445176,0.0583998563012,0.0579787127791,0.0579787127791,0.0579864401832,0.0580868964361,0.0580675779259,0.0580134860974,0.05807530533,0.0579130298444,0.0582530356238,0.0584578118318,0.0586278147214,0.0580907601382,0.0583148548564,0.0578782565261,0.0578898476322,0.0579362120567,0.0580907601382,0.0577391632527,0.0575421144488,0.0575034774284,0.0575923425753,0.0581912163912,0.0577893913792,0.0581139423504,0.0577893913792,0.0575962062773,0.0575112048325,0.0578628017179,0.0578280283996,0.0575807514692,0.0574532493019,0.0573257471347,0.0573218834327,0.0568736939963,0.0569741502492,0.0572987012204,0.0572484730939,0.0572446093919,0.0571673353511,0.0570205146737,0.0571055161185,0.0568930125065,0.0571016524165,0.0573218834327,0.0571711990532,0.0565220971108,0.0564757326864,0.056537551919,0.0565530067271,0.056746191829,0.0567539192331,0.0566766451923,0.0507767721806,0.0450662205688,0.0395218081446,0.0341937630344,0.0)
ycorr <- c(0.000143178287671,0.000143051439326,0.000142673032818,0.000142037262768,0.000141143423447,0.000139983444828,0.000138557693409,0.000137087613792,0.000135567261852,0.000133989393118,0.000132348043728,0.000130637305891,0.000128854356575,0.000126998973455,0.000125076374305,0.000123100633767,0.000121084770885,0.000119041801258,0.000116991924304,0.000114951389872,0.000112934476397,0.000110960252036,0.000109037453419,0.000107174696394,0.00010537401691,0.000103632178342,0.000101937170324,0.000100287008028,9.86721226369e-05,9.7083279716e-05,9.55200017039e-05,9.39704148709e-05,9.24256577924e-05,9.08806355886e-05,8.93324194647e-05,8.77790529914e-05,8.62256598329e-05,8.46720301349e-05,8.31124139481e-05,8.15509742717e-05,7.99819891824e-05,7.84004367483e-05,7.68100407702e-05,7.52083981789e-05,7.35930834629e-05,7.19635351761e-05,7.03210834424e-05,6.86632926139e-05,6.69938733861e-05,6.53112537233e-05,6.36100625914e-05,6.18937122371e-05,6.01611802558e-05,5.84157352063e-05,5.66609725257e-05,5.48987394674e-05,5.31282283599e-05,5.13464694075e-05,4.95521703747e-05,4.77426791918e-05,4.59235116772e-05,4.40949170858e-05,4.22583489275e-05,4.041252374e-05,3.8553071935e-05,3.66765003072e-05,3.47820916568e-05,3.2869376734e-05,3.09419593699e-05,2.89997518899e-05,2.70425096317e-05,2.50692960889e-05,2.30803689129e-05,2.10742657265e-05,1.90520684425e-05,1.7016607838e-05,1.49695823711e-05,1.29101441647e-05,1.08367847468e-05,8.74741228203e-06,6.64784617841e-06,4.53920429229e-06,2.41958731812e-06,2.91361751743e-07,-1.84195797106e-06,-3.98507346175e-06,-6.13935132484e-06,-8.30503823354e-06,-1.04775704358e-05,-1.26513876177e-05,-1.48342949153e-05,-1.70339802977e-05,-1.9251611428e-05,-2.1487341699e-05,-2.37467068295e-05,-2.60298314935e-05,-2.83338842968e-05,-3.06568720648e-05,-3.30015023138e-05,-3.53743446843e-05,-3.77772480484e-05,-4.02034440336e-05,-4.26506544947e-05,-4.51209367134e-05,-4.76116683413e-05,-5.01161596686e-05,-5.26371036192e-05,-5.51742431331e-05,-5.7732493289e-05,-6.03095050252e-05,-6.28977897256e-05,-6.5498006443e-05,-6.81110783162e-05,-7.07337923355e-05,-7.33647381623e-05,-7.60050231353e-05,-7.86552447007e-05,-8.13163134471e-05,-8.39851812699e-05,-8.66538654195e-05,-8.93270196048e-05,-9.20060054144e-05,-9.46907462685e-05,-9.73798718677e-05,-0.000100074438158,-0.000102774432395,-0.000105482875158,-0.000108202872631,-0.000110932214603,-0.000113674244647,-0.000116431655711,-0.000119200198156,-0.000121980707877,-0.000124774130726,-0.000127578702862,-0.000130394832044,-0.000133218588155,-0.000136047744527,-0.000138878084455,-0.000141713005307,-0.000144549169544,-0.000147388437613,-0.000150231348058,-0.000153078839341,-0.000155930758542,-0.000158787828589,-0.000161649512194,-0.00016451275761,-0.000167377622834,-0.000170244254628,-0.00017310995531,-0.000175979060899,-0.000178848616912,-0.000181720276901,-0.000184589985701,-0.000187456451274,-0.000190323658202,-0.000193192226426,-0.000196066937175,-0.000198945705258,-0.00020182774737,-0.000204707663377,-0.000207577218961,-0.000210432972591,-0.000213274961744,-0.000216106382517,-0.000218924400243,-0.000221722637096,-0.000224499739381,-0.00022725305854,-0.000229983944563,-0.000232692094394,-0.000235388450607,-0.000238074767005,-0.000240754662241,-0.000243426969561,-0.000246092888631,-0.000248753096256,-0.000251409410926,-0.000254062232473,-0.000256713611146,-0.000259361130314,-0.000262001329498,-0.000264632245209,-0.00026725368132,-0.00026986280792,-0.000272454709803,-0.00027502820645,-0.000277586107857,-0.000280129317177,-0.000282656189291,-0.000285167323537,-0.000287664957386,-0.000290149671078,-0.00029261825897,-0.000295070552088,-0.000297508181095,-0.000299934359339,-0.000302347955919,-0.00030474738713,-0.000307132436469,-0.000309505137418,-0.000311862189441,-0.000314201394922,-0.000316529213422,-0.000318849771642,-0.000321164784076,-0.000323474490363,-0.000325773915972,-0.00032806594803,-0.000330351097548,-0.000332626181757,-0.00033489103304,-0.000337147624143,-0.000339395275114,-0.000341628686984,-0.000343844928671,-0.000346044061561,-0.000348231414992,-0.000350410191845,-0.000352575340276,-0.000354724937532,-0.000356861623907,-0.000358987492008,-0.000361101549982,-0.000363206061332,-0.000365300560593,-0.000367382178637,-0.000369450640605,-0.00037149895581,-0.00037352794623,-0.000375543648082,-0.000377545962544,-0.000379536224871,-0.000381512281081,-0.000383474589964,-0.000385425140268,-0.000387368323319,-0.000389301383796,-0.000391225430154,-0.000393145710721,-0.000395058464244,-0.000396963226654,-0.000398860330179,-0.000400748751571,-0.000402627612182,-0.00040449712589,-0.000406353477163,-0.000408200837698,-0.000410039891129,-0.000411868013366,-0.000413686993528,-0.000415496855374,-0.000417291685531,-0.000419070592839,-0.000420832195924,-0.000422574433661,-0.000424300570131,-0.000426008933592,-0.000427696542317,-0.000429365312002,-0.000431014079587,-0.000432638149153,-0.000434241146069,-0.000435827420148,-0.000437398607335,-0.000438957990181,-0.000440508309997,-0.000442047370223,-0.000443574580595,-0.00044509094802,-0.000446597910782,-0.000448101222972,-0.000449601425569,-0.000451095907235,-0.000452583437882,-0.00045406490019,-0.000455537300106,-0.000456999013353,-0.000458456667138,-0.000459909337142,-0.000461355548522,-0.000462793175389,-0.000464219837885,-0.000465634484345,-0.000467037184094,-0.000468422193173,-0.000469785344854,-0.000471121419635,-0.000472425221462,-0.000473688084788,-0.000474912110976,-0.000476095987404,-0.000477238889824,-0.000478341761264,-0.00047940658791,-0.000480438250486,-0.000481441555227,-0.000482423826262,-0.000483393417151,-0.000484357794483,-0.000485316556665,-0.000486272107257,-0.000487227282952,-0.000488181853696,-0.000489134539633,-0.000490082717184,-0.000491025227703,-0.000491959165765,-0.000492880632517,-0.000493785449596,-0.000494676711601,-0.000495555317155,-0.000496418392919,-0.000497265684321,-0.000498100501705,-0.000498922217703,-0.000499732404914,-0.000500531990163,-0.000501324745384,-0.000502113388163,-0.000502897187095,-0.000503669658049,-0.000504433647051,-0.000505190331775,-0.000505936557128,-0.000506674704113,-0.000507402782933,-0.000508122956059,-0.000508830923917,-0.000509526399349,-0.00051020871916,-0.000510880867358,-0.000511543944489,-0.000512196176069,-0.000512838157198,-0.000513470444709,-0.000514094014208,-0.000514708956333,-0.00051531497142,-0.000515912181101,-0.000516497488774,-0.000517072678907,-0.00051763691264,-0.000518194791775,-0.00051874704107,-0.000519291367944,-0.000519826729242,-0.000520350121255,-0.000520864685799,-0.000521371490207,-0.000521873171427,-0.000522371954949,-0.000522865136496,-0.000523350550513,-0.000523824460072,-0.000524290349613,-0.000524751490951,-0.000525210511942,-0.000525665292184,-0.000526116885749,-0.00052656347436,-0.000527001095511,-0.000527429806236,-0.000527850070927,-0.000528264607427,-0.000528673924967,-0.000529075817966,-0.000529465144114,-0.000529840294311,-0.000530200657954,-0.000530543630748,-0.000530871540653,-0.000531185319689,-0.00053148412469,-0.000531766926889,-0.000532029905176,-0.000532273558584,-0.000532501468846,-0.0005327176983,-0.000532923755832,-0.000533122243568,-0.000533310720543,-0.00053348945938,-0.000533662724243,-0.000533829490614,-0.000533991203022,-0.000534148083931,-0.000534299877223,-0.0005344413814,-0.000534570725572,-0.000534687163294,-0.000534789539299,-0.000534883049458,-0.000534962241875,-0.00053502697389,-0.000535078645438,-0.000535118123653,-0.000535146785691,-0.00053516340307,-0.000535168025366,-0.000535161377577,-0.000535146469683,-0.000535119784333,-0.000535081512567,-0.000535034625542,-0.000534977025065,-0.000534906797963,-0.000534822471127,-0.000534726117543,-0.000534619986361,-0.000534506774866,-0.000534384252881,-0.000534248384278,-0.000534101740204,-0.000533941774454,-0.000533768292847,-0.00053358169455,-0.000533384837222,-0.000533178331633,-0.000532958544724,-0.000532721951574,-0.000532468591473,-0.000532202577567,-0.000531924030324,-0.000531636438602,-0.000531338630487,-0.000531031457357,-0.000530711732616,-0.000530377644536,-0.000530029778862,-0.000529669855819,-0.000529300566398,-0.000528919843291,-0.00052852856681,-0.000528124370851,-0.000527704463583,-0.000527268139738,-0.000526815968458,-0.000526351974628,-0.000525878507066,-0.000525392931475,-0.000524892544076,-0.000524377392837,-0.000523844927098,-0.0005232934241,-0.000522727946975,-0.000522151556236,-0.000521564528435,-0.000520963895532,-0.000520347751396,-0.000519713509191,-0.000519063501268,-0.000518402086589,-0.00051772900118,-0.000517044594868,-0.000516347100196,-0.000515630986639,-0.000514895093902,-0.000514140626298,-0.000513366991761,-0.000512579501699,-0.000511781185064,-0.000510969929954,-0.000510143523646,-0.000509304386024,-0.000508454229496,-0.000507597912444,-0.000506738686195,-0.00050587416495,-0.00050500417155,-0.000504130095644,-0.00050324531952,-0.000502345195355,-0.000501431208525,-0.000500504015293,-0.000499561557648,-0.000498603552208,-0.000497627777127,-0.000496632395781,-0.000495619617619,-0.000494587401034,-0.000493536127354,-0.000492470127821,-0.000491392336926,-0.000490299397284,-0.000489193942469,-0.000488072020623,-0.000486932699175,-0.000485777728239,-0.000484606265317,-0.000483417204925,-0.000482212667486,-0.000480993476549,-0.000479756589019,-0.000478501989979,-0.000477228202969,-0.000475932718074,-0.000474617739197,-0.00047328327836,-0.00047192886522,-0.000470555355148,-0.00046916573578,-0.000467759114519,-0.000466334942978,-0.000464894683449,-0.000463438647834,-0.000461971101928,-0.000460492987881,-0.000459005918477,-0.000457510536575,-0.000456006373419,-0.000454491246033,-0.000452961807713,-0.000451415481344,-0.000449852154251,-0.000448270554803,-0.000446671487538,-0.00044505231129,-0.000443411366446,-0.000441745777421,-0.0004400550835,-0.000438338831201,-0.00043659862431,-0.000434837554374,-0.0004330594567,-0.000431263550137,-0.000429447227696,-0.000427610733529,-0.000425756498053,-0.000423886984289,-0.000422004512543,-0.000420108651172,-0.000418198519078,-0.000416273988894,-0.000414331439545,-0.000412369745614,-0.0004103923097,-0.000408399739857,-0.000406390648768,-0.00040436533117,-0.000402324135237,-0.000400266410284,-0.000398192342662,-0.000396101187022,-0.000393993642032,-0.000391873445619,-0.000389740992071,-0.000387593075286,-0.000385429169727,-0.000383250371651,-0.000381052211217,-0.000378833286199,-0.000376595757482,-0.000374341469622,-0.000372068628003,-0.000369777423649,-0.00036746419522,-0.000365131203637,-0.000362780525578,-0.00036041106251,-0.000358023470676,-0.000355619981093,-0.000353199621311,-0.000350760591778,-0.000348303710986,-0.000345830695657,-0.000343341651884,-0.000340835265715,-0.000338310160672,-0.000335765183815,-0.000333202383093,-0.000330620028438,-0.000328019899823,-0.000325401785622,-0.000322764729032,-0.000320105005878,-0.000317422289726,-0.000314717323507,-0.000311989753713,-0.000309238799492,-0.00030646495115,-0.000303668319975,-0.000300844955893,-0.000297994877346,-0.000295120580717,-0.000292223091744,-0.000289304613806,-0.000286366109904,-0.000283408334252,-0.000280406885872,-0.000277328873665,-0.000274145459571,-0.000270835025543,-0.000267248173335,-0.00026396384004,-0.000260840413052,-0.000257856582072,-0.000254985624398,-0.000252199133111,-0.000249472407508,-0.000246830875721,-0.000244306587033,-0.000241929010093,-0.000239720464438,-0.000237833479412,-0.000235688141634,-0.000233422653364,-0.000231059382892,-0.000228623518468,-0.000226140914605,-0.000223636516174,-0.000221108710679,-0.000218555050228,-0.000215975489653,-0.000213368907314,-0.00021073428862,-0.00020807059323,-0.000205378873829,-0.000202656747895,-0.000199905261713,-0.000197125993419,-0.000194318821552,-0.000191487156263,-0.000188632806744,-0.000185754291196,-0.000182855935509,-0.000179940070435,-0.000177005430124,-0.000174052992649,-0.000171085359466,-0.000168101708646,-0.000165101054826,-0.000162081960335,-0.000159044883781,-0.000155991162531,-0.00015291929992,-0.000149827403955,-0.000146717322003,-0.000143591289364,-0.000140449840264,-0.000137292399902,-0.000134121141181,-0.000130942396695,-0.000127758109115,-0.00012457145195,-0.000121386092171,-0.000118206118779,-0.000115034515413,-0.000111871532426,-0.000108718970236,-0.00010557982344,-0.000102454424912,-9.93405057293e-05,-9.62330445131e-05,-9.31316298542e-05,-9.00316167996e-05,-8.6930004071e-05,-8.38225902008e-05,-8.07057791587e-05,-7.75767340551e-05,-7.44299792159e-05,-7.12617380124e-05,-6.80689874197e-05,-6.48547926224e-05,-6.16203394533e-05,-5.83610726653e-05,-5.50769063349e-05,-5.17653726943e-05,-4.84267106961e-05,-4.50602266122e-05,-4.16673360687e-05,-3.82524751225e-05,-3.48169440341e-05,-3.13592913011e-05,-2.78750492093e-05,-2.43636913206e-05,-2.08257789736e-05,-1.72635082921e-05,-1.36813991806e-05,-1.00791414566e-05,-6.4588855686e-06,-2.82140821705e-06,8.34230651676e-07,4.50764564046e-06,8.19509783297e-06,1.18925446288e-05,1.55975993094e-05,1.9311021713e-05,2.30358412492e-05,2.67736609911e-05,3.05237070855e-05,3.42870927279e-05,3.80667782883e-05,4.18610391357e-05,4.56716615496e-05,4.94975375548e-05,5.33398611327e-05,5.71964812182e-05,6.10634746997e-05,6.49381073751e-05,6.88222701264e-05,7.27159374321e-05,7.66169323175e-05,8.05245842076e-05,8.44387919086e-05,8.83597586929e-05,9.22893157981e-05,9.62289695155e-05,0.000100182412778,0.000104148799307,0.000108127930142,0.000112119187552,0.000116121636223,0.000120134849439,0.000124160620757,0.0001281976568,0.000132246712606,0.000136306570433,0.000140377217528,0.000144460832891,0.000148555308896,0.000152662043869,0.000156779956728,0.000160912647305,0.00016505946615,0.000169220164309,0.000173393943476,0.000177579123269,0.000181772103901,0.00018597017598,0.000190172604604,0.00019438079942,0.000198594275212,0.000202809387056,0.000207023321427,0.000211235594925,0.00021544272233,0.000219644946232,0.000223841607702,0.000228033386067,0.000232220471622,0.000236397097252,0.000240563703988,0.000244719085982,0.000248865920991,0.000253003452755,0.000257134597897,0.000261260704542,0.000265383197559,0.000269502763262,0.000273620407814,0.000277738284025,0.000281859301625,0.000285982485462,0.000290105616165,0.000294228744786,0.000298346770169,0.000302457347605,0.000306559435567,0.000310650631854,0.00031473037034,0.000318798164392,0.000322850004808,0.000326886209032,0.000330908481725,0.000334916590668,0.000338913658636,0.000342902859221,0.000346884249757,0.000350854779523,0.000354814323391,0.000358760979667,0.000362695784683,0.000366618419171,0.000370525430748,0.000374415883556,0.00037828826647,0.000382138047264,0.000385964377373,0.000389768746524,0.000393555896321,0.000397326308497,0.000401079767215,0.000404816813364,0.000408540241941,0.000412248434825,0.00041593986765,0.000419616903569,0.000423279147863,0.000426925391786,0.000430552040659,0.000434155819832,0.000437737089572,0.000441296982543,0.000444832088265,0.000448342482302,0.000451832417725,0.000455302407746,0.000458752192761,0.000462185457101,0.000465601993266,0.000469004138257,0.000472391636479,0.000475763417599,0.000479117795171,0.000482454394383,0.000485772423024,0.000489070349838,0.000492347135326,0.000495602187299,0.00049883354463,0.000502041868149,0.000505226927154,0.000508388525431,0.00051152823908,0.000514648725359,0.000517751196736,0.000520832890459,0.000523896364431,0.000526941030158,0.00052996511253,0.000532967206042,0.000535946251278,0.000538900726878,0.000541830287258,0.000544734446329,0.000547610423966,0.000550459873145,0.000553282638846,0.000556077441379,0.000558845535339,0.000561589060171,0.000564309165319,0.000567008734112,0.000569688172519,0.000572347596802,0.000574985953877,0.000577603235461,0.000580196910632,0.000582765748243,0.000585309590568,0.000587828816643,0.000590322159337,0.000592787349283,0.00059522333194,0.00059762840136,0.000600002627234,0.000602345072652,0.000604655561416,0.000606936617866,0.000609187785696,0.000611408129418,0.000613596262751,0.00061575129656,0.000617871893907,0.000619957016043,0.000622009311401,0.000624028436381,0.000626016575772,0.000627973203112,0.000629898567061,0.000631793048609,0.000633654579106,0.000635483771795,0.000637283424868,0.000639056490173,0.000640800461794,0.000642513500991,0.000644195070433,0.000645844253934,0.000647458624175,0.000649036081034,0.000650579983075,0.000652090954678,0.000653567333438,0.000655007537971,0.000656411286709,0.00065778044961,0.000659114114173,0.000660411277929,0.000661672735024,0.000662899191982,0.00066408918035,0.000665236908519,0.000666342472381,0.000667403135327,0.000668417001587,0.000669380657806,0.000670294715704,0.000671160993747,0.000671979551441,0.000672749057539,0.000673470290257,0.000674146079597,0.000674778971256,0.000675372398543,0.000675928959621,0.000676452644436,0.000676943463113,0.000677399081217,0.000677816988408,0.000678197304416,0.00067854112943,0.000678849206116,0.000679118922439,0.000679350116821,0.000679538112714,0.000679681540716,0.000679777353074,0.000679825404404,0.000679826537765,0.000679782736045,0.00067969102939,0.000679546719733,0.000679350452092,0.000679100756565,0.000678799531144,0.000678444818318,0.00067803783222,0.00067757986155,0.00067707352451,0.000676519186309,0.000675915515769,0.000675268313747,0.000674581984802,0.000673855893118,0.000673093217639,0.000672295943069,0.000671470539214,0.000670617888901,0.000669737832106,0.000668829435368,0.000667893384773,0.000666931366047,0.000665941239418,0.000664922657929,0.000663875001229,0.000662799168828,0.00066168993707,0.000660545059993,0.000659363961144,0.000658146107725,0.000656894189186,0.000655609009414,0.000654287900318,0.000652930699027,0.000651537254336,0.000650107061487,0.000648638921749,0.000647136259337,0.000645597967575,0.000644024882737,0.000642417106102,0.000640770980797,0.000639085772416,0.000637363233508,0.000635603832084,0.000633807619162,0.000631976654201,0.000630110970948,0.000628210578656,0.000626277275117,0.000624311123493,0.000622312326652,0.000620281968156,0.000618221599301,0.000616129931412,0.000614007550728,0.000611852723946,0.000609663934602,0.000607442452211,0.000605188319938,0.000602900649125,0.000600579036606,0.000598225960436,0.000595841179652,0.000593423906521,0.000590975044314,0.000588494431263,0.000585985435068,0.000583447815144,0.000580879466316,0.000578279391734,0.000575649933201,0.000572992235928,0.000570304517539,0.000567588758401,0.000564844053479,0.000562073388837,0.00055927509605,0.000556447773369,0.000553593567171,0.000550716087014,0.000547815175625,0.000544888666354,0.000541936217018,0.000538954916369,0.000535944644645,0.000532904567476,0.000529833508148,0.000526733114428,0.000523603746692,0.000520445574763,0.00051725827775,0.000514039018807,0.00051078982154,0.000507513061801,0.00050421133413,0.000500885739958,0.000497537273585,0.000494166752151,0.000490776567048,0.000487363454521,0.000483926521254,0.000480466058174,0.000476984698753,0.000473481012253,0.000469954626197,0.000466406387006,0.000462837836851,0.000459250319288,0.000455641288126,0.000452012084924,0.000448365255985,0.000444706427745,0.000441031116282,0.000437344761813,0.000433647240204,0.00042993714079,0.000426213032002,0.000422473014357,0.000418718646834,0.000414951276933,0.000411167457635,0.000407365549284,0.000403545811981,0.000399710082159,0.000395855709832,0.000391986489955,0.000388104283595,0.000384210750291,0.000380306850756,0.000376389672141,0.000372461317598,0.000368524578462,0.000364583895783,0.000360634442034,0.000356680746083,0.00035272049831,0.000348752091902,0.000344774683211,0.00034078833341,0.000336794127298,0.000332797132724,0.00032879593084,0.00032478782963,0.000320772253478,0.000316748570146,0.000312715303638,0.000308673736451,0.000304623178159,0.000300563193917,0.000296496203124,0.000292421380036,0.000288336099948,0.000284244514523,0.000280149306024,0.000276050569421,0.000271950438444,0.000267849057772,0.000263750231226,0.000259654114944,0.000255561083094,0.000251468430083,0.000247374979763,0.000243281035411,0.000239184926012,0.000235086762936,0.000230986602118,0.000226884640213,0.00022278312055,0.000218681349713,0.000214582609224,0.000210488770909,0.000206403228782,0.000202324917329,0.000198254173336,0.000194191652593,0.000190137837969,0.000186095013849,0.00018206041276,0.000178029589827,0.000174001892554,0.000169975753011,0.00016594987887,0.000161926904337,0.00015790736646,0.000153891856547,0.000149879584551,0.000145868529015,0.000141858488604,0.000137853970848,0.000133853855328,0.000129858915018,0.000125871969069,0.000121892031938,0.000117917399258,0.0001139492945,0.000109987071141,0.000106030556094,0.000102082320581,9.81443782472e-05,9.42177011675e-05,9.03065468446e-05,8.64090288513e-05,8.25219996332e-05,7.86474169803e-05,7.47839924999e-05,7.09357235891e-05,6.71032120937e-05,6.32851929186e-05,5.94807895801e-05,5.56864990093e-05,5.18996430758e-05,4.81201727055e-05,4.43500452922e-05,4.05921481261e-05,3.6846019828e-05,3.31117479789e-05,2.93886782178e-05,2.56784179832e-05,2.19808435814e-05,1.82980778814e-05,1.46322030611e-05,1.09823452575e-05,7.34821170627e-06,3.72821511971e-06,1.21483139076e-07,-3.47340270304e-06,-7.05803499217e-06,-1.06337107489e-05,-1.42003967351e-05,-1.77571247354e-05,-2.13056836641e-05,-2.48434675145e-05,-2.836871678e-05,-3.18814259472e-05,-3.53811861252e-05,-3.88665706956e-05,-4.23348327758e-05,-4.57845073611e-05,-4.92188974746e-05,-5.26350022781e-05,-5.60338993086e-05,-5.94156885905e-05,-6.27833389368e-05,-6.61324456878e-05,-6.94625492093e-05,-7.27715426497e-05,-7.60622276146e-05,-7.93339811846e-05,-8.25820320306e-05,-8.58068029663e-05,-8.90099052217e-05,-9.21895006349e-05,-9.53464735525e-05,-9.84832928613e-05,-0.000101603640406,-0.000104708668459,-0.000107796921711,-0.000110867291647,-0.000113921518964,-0.000116963075641,-0.000119989720321,-0.000123002407142,-0.000125997131408,-0.000128971996184,-0.000131921388806,-0.000134845967068,-0.000137745391513,-0.000140622259341,-0.000143477073696,-0.000146310938372,-0.000149121853862,-0.000151907254379,-0.000154668277556,-0.000157410057576,-0.000160133685774,-0.000162840534697,-0.000165529368958,-0.000168198898755,-0.0001708479204,-0.000173473386395,-0.000176074360474,-0.000178429528678,-0.000180316363376,-0.000181735627645,-0.000182682433462,-0.000183154926822)
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(311)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Heterocephalus_glaber-male-liver-H3K4me3-ERR572276.50mers.unique.MACS2_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) : 311',bty='n')
dev.off()