# R script for Peak Model
#  -- generated by MACS
p <- c(0.037969333744,0.0442749738524,0.050663994326,0.0568445638868,0.0636817538226,0.0637338665508,0.0632648519972,0.063754711642,0.0643904869257,0.0648803465705,0.0646718956578,0.0646614731122,0.0646614731122,0.064724008386,0.0643696418344,0.0645989378384,0.0648282338423,0.0646718956578,0.0638485145527,0.0630980912671,0.0636817538226,0.0636087960032,0.0636400636401,0.0636609087313,0.0637651341877,0.0632961196341,0.0630251334477,0.0622955552533,0.0624623159834,0.0628583727175,0.0628479501719,0.0625978090767,0.0622225974339,0.0621392170688,0.0625456963485,0.0630668236302,0.0634628803643,0.0637755567333,0.0634837254556,0.0633169647254,0.0637234440051,0.0640256978285,0.064724008386,0.0649011916618,0.0640361203741,0.0638172469158,0.0635775283663,0.0636296410944,0.0643175291063,0.0640882331023,0.0640569654654,0.0642862614694,0.0637859792789,0.0639318949178,0.0635775283663,0.0639110498265,0.0644217545626,0.0645259800189,0.0638902047353,0.0642133036499,0.0636192185488,0.0630876687215,0.0633378098167,0.0629209079913,0.0641195007392,0.0633378098167,0.062816682535,0.0632961196341,0.0637651341877,0.0636609087313,0.0634941480012,0.0638902047353,0.0638902047353,0.0642133036499,0.0636087960032,0.0644530221995,0.0645468251102,0.0647969662054,0.0646718956578,0.0644530221995,0.0644842898364,0.0639527400091,0.0639735851003,0.0635983734575,0.0635045705468,0.0628896403544,0.0629209079913,0.0622642876164,0.0625456963485,0.0626394992592,0.062816682535,0.0633899225449,0.0633065421798,0.0638380920071,0.0636609087313,0.0635462607294,0.0638485145527,0.0644634447451,0.0642445712868,0.0641090781936,0.0640882331023,0.0637338665508,0.0636296410944,0.0635254156381,0.0640465429198,0.064098655648,0.0641611909218,0.0633065421798,0.0634628803643,0.0639214723722,0.0641507683761,0.0641924585587,0.0641611909218,0.0646823182034,0.064838656388,0.0644842898364,0.0640569654654,0.0641507683761,0.0637859792789,0.0639318949178,0.0638380920071,0.0640465429198,0.0643175291063,0.0636192185488,0.0634941480012,0.0647135858403,0.0643071065606,0.064494712382,0.0648490789336,0.0643800643801,0.0647031632947,0.0648282338423,0.0647865436598,0.0648282338423,0.064724008386,0.064098655648,0.0650679523919,0.0648803465705,0.0649116142074,0.0647135858403,0.0649011916618,0.065464009126,0.0655578120367,0.0661206295009,0.0661414745922,0.0665687989632,0.0663603480505,0.066402038233,0.0665896440544,0.0672358418837,0.0664749960525,0.0659434462251,0.0661831647747,0.0663082353223,0.0660685167727,0.0659538687708,0.0658600658601,0.0666521793282,0.067142038973,0.0676423211634,0.0683614768122,0.0686533080899,0.0683927444491,0.0681634484451,0.0686949982725,0.0684969699054,0.0686324629987,0.0683510542665,0.0676527437091,0.0673192222488,0.0667355596933,0.0667668273302,0.0674442927964,0.0678403495305,0.0681634484451,0.0683302091753,0.0682572513558,0.0682885189927,0.0685282375423,0.0685282375423,0.0689242942764,0.0689868295502,0.0691431677347,0.0694349990125,0.0693933088299,0.0698102106553,0.0700395066592,0.0705502113953,0.0710192259488,0.0711026063139,0.0716445786868,0.0723533117899,0.0721657059685,0.0717175365063,0.0716758463237,0.0713006346809,0.0713631699547,0.0712380994071,0.0713319023178,0.0718009168713,0.0716028885043,0.0713110572266,0.0706231692147,0.0707690848536,0.0707065495798,0.0709983808575,0.0710921837682,0.0719468325102,0.0717383815975,0.0718217619626,0.0723637343356,0.0729265517998,0.0735206369009,0.0737916230874,0.0743231729147,0.0750214834722,0.0749797932897,0.0743961307342,0.0745733140099,0.0740834543651,0.0736978201767,0.0734268339902,0.073604017266,0.073374721262,0.0741772572758,0.0747504972857,0.0752299343849,0.0752716245674,0.0760324703987,0.0761471184006,0.076876696595,0.0774707816961,0.0780961344342,0.0783775431663,0.0775437395156,0.0773769787854,0.0777521904282,0.0782941628012,0.0784088108032,0.079409375184,0.0789924733587,0.0786381068071,0.078356698075,0.0788465577198,0.0795448682773,0.0795552908229,0.0797950093725,0.0797012064618,0.0793572624559,0.0790341635412,0.079836699555,0.080065995559,0.0801181082871,0.0797533191899,0.0795344457316,0.0795969810054,0.0796282486423,0.0795552908229,0.0797116290074,0.0801181082871,0.0802014886522,0.0806288130232,0.0818065606798,0.0823798006897,0.0828592377888,0.0827654348781,0.0829947308821,0.0837555767133,0.0836305061657,0.0836305061657,0.0839536050804,0.0834533228899,0.0831198014297,0.0837451541677,0.0836826188939,0.0845685352728,0.0843496618145,0.0841933236299,0.0841412109018,0.0848499440049,0.0844955774533,0.0853606487409,0.0854961418342,0.0854961418342,0.0856733251099,0.0857775505663,0.0866530443995,0.0870803687705,0.0880392429688,0.0876119185978,0.0881330458795,0.0886437506156,0.0887792437088,0.0882476938815,0.0883831869747,0.0881330458795,0.0878099469649,0.0883831869747,0.0886750182525,0.0893107935361,0.0898527659091,0.090311357917,0.0908950204725,0.0922082612223,0.0934381216071,0.0947617849026,0.09677333621,0.0970130547595,0.0982741827812,0.0991184089776,0.100317001725,0.100535875184,0.101984609027,0.102943483225,0.10367306142,0.104142075973,0.103902357423,0.104631935618,0.104527710162,0.104840386531,0.104850809076,0.105809683274,0.105997289096,0.106612219288,0.106038979278,0.106289120374,0.10663306438,0.106476726195,0.107821234582,0.108686305869,0.108884334236,0.109030249875,0.109071940058,0.109509686974,0.110135039713,0.110187152441,0.110604054266,0.11181306956,0.111458703008,0.111458703008,0.111833914651,0.11231335175,0.112542647754,0.112240393931,0.113261803403,0.113741240502,0.114001804143,0.11429363542,0.11510659398,0.115669411444,0.116367722002,0.116503215095,0.116534482732,0.117107722742,0.116398989638,0.116638708188,0.116576172914,0.117003497285,0.117222370743,0.118118709668,0.11766011766,0.117753920571,0.118889978045,0.119035893684,0.119942655154,0.120442937344,0.121266318449,0.12159983991,0.121276740995,0.120797303896,0.121339276269,0.122496178834,0.122287727922,0.123090263935,0.12358012358,0.124424349776,0.124445194868,0.124351391957,0.124695335963,0.125706322889,0.126404633447,0.126904915637,0.127123789096,0.127530268375,0.127509423284,0.127082098913,0.126904915637,0.127415620373,0.127676184014,0.127947170201,0.128030550566,0.127769986925,0.128530832756,0.12802012802,0.128989424764,0.130094214601,0.130823792796,0.131199004438,0.131866047359,0.131980695361,0.13269985101,0.133241823383,0.133523232115,0.134617599406,0.13468013468,0.134482106313,0.136024643067,0.135305487418,0.136514502712,0.136868869263,0.137410841636,0.138244645287,0.139036758755,0.139411970398,0.140235351503,0.14134014134,0.141590282435,0.142715917364,0.142882678094,0.142757607546,0.143570566106,0.143132819189,0.143455918104,0.14372690429,0.144456482485,0.144102115933,0.143831129747,0.144623243215,0.145050567586,0.145509159594,0.14453986285,0.144248031572,0.144320989391,0.14396662284,0.143424650467,0.143539298469,0.14396662284,0.143007748642,0.141840423531,0.14174662062,0.142476198814,0.142663804636,0.14241366354,0.142955635913,0.143049438824,0.143049438824,0.142163522445,0.142476198814,0.14282014282,0.142570001725,0.142361550812,0.142163522445,0.142351128267,0.142632536999,0.142715917364,0.143268312282,0.143070283915,0.143674791562,0.143257889737,0.143382960284,0.143549721015,0.144362679574,0.143643523925,0.142580424271,0.143028593733,0.14265338209,0.144081270842,0.144435637393,0.14487338431,0.145248595953,0.144571130487,0.144977609766,0.145060990131,0.145175638133,0.144612820669,0.143591411197,0.142809720275,0.141486056979,0.141663240255,0.140662675874,0.140516760235,0.139505773309,0.139297322396,0.138651124567,0.137848588553,0.138129997285,0.137535912184,0.138202955104,0.137723518005,0.13821337765,0.13821337765,0.137733940551,0.137598447458,0.137588024912,0.137348306362,0.137608870003,0.137317038725,0.135941262702,0.136035065613,0.135680699061,0.135524360876,0.1347530925,0.134628021952,0.134711402317,0.134263232855,0.134044359396,0.134357035765,0.134700979771,0.133971401577,0.133554499752,0.132908301922,0.13246013246,0.132282949184,0.132105765909,0.131772244448,0.131417877897,0.13114689171,0.13155337099,0.130792525159,0.130448581153,0.130511116427,0.131636751355,0.130875905524,0.130875905524,0.130886328069,0.129823228415,0.129489706954,0.128457874937,0.128395339663,0.128635058213,0.128040973111,0.126738154907,0.126738154907,0.125518717068,0.125039279969,0.124580687961,0.124351391957,0.124299279229,0.123673926491,0.122360685741,0.122308573013,0.122589981745,0.122277305376,0.122475333743,0.122798432658,0.12217307992,0.121537304636,0.121349698814,0.121777023185,0.121683220275,0.121547727182,0.121141247902,0.120776458805,0.120265754069,0.119244344596,0.118952513319,0.118493921311,0.118243780216,0.11749335693,0.117649695114,0.117472511839,0.117337018745,0.11715983547,0.116576172914,0.116607440551,0.117535047113,0.117743498025,0.116951384557,0.117347441291,0.116669975825,0.116607440551,0.115982087813,0.115638143807,0.115669411444,0.115648566353,0.115200396891,0.114637579426,0.114377015785,0.113772508139,0.114397860877,0.113637015045,0.114679269609,0.11403307178,0.113887156141,0.112980394671,0.112730253575,0.112229971385,0.112771943758,0.112730253575,0.112615605573,0.112365464478,0.111218984458,0.111698421558,0.111260674641,0.111729689194,0.111823492105,0.11214659102,0.111489970645,0.110239265169,0.108571657867,0.107237572026,0.106184894917,0.104861231622,0.104850809076,0.103589681054,0.102349398124,0.101223763196,0.0998896773545,0.0992539020708,0.0992330569795,0.0992017893426,0.0989099580649,0.098336718055,0.0970443223964,0.0964815049322,0.0959812227418,0.0949910809066,0.0954288278232,0.0952516445474,0.094324037986,0.0943344605316,0.0933755863333,0.0931150226925,0.0930316423274,0.0930107972361,0.092958684508,0.0922291063136,0.09085333029,0.0915412183018,0.0914682604823,0.0909679782919,0.0910200910201,0.0907699499249,0.0901133295499,0.089998681548,0.0889564269846,0.0895922022683,0.090082061913,0.0892065680798,0.0889876946215,0.0890814975322,0.0894254415381,0.0897068502702,0.089998681548,0.0892065680798,0.089258680808,0.088518680068,0.0879141724212,0.0871637491356,0.0868510727666,0.0858921985683,0.0845581127271,0.0841099432649,0.0835575483463,0.0840682530823,0.0839327599891,0.0842245912668,0.083849379624,0.0835054356181,0.0832344494316,0.0832448719773,0.083422055253,0.0833074072511,0.0826924770587,0.0816814901322,0.0817231803147,0.0813062784894,0.0811499403049,0.082285997779,0.082369378144,0.0818482508623,0.0812437432156,0.0804724748387,0.0806496581144,0.0803682493823,0.0800868406502,0.0802014886522,0.0799826151939,0.0782837402556,0.0783150078925,0.0787423322635,0.0788257126285,0.0790133184499,0.0790028959043,0.0792009242713,0.0783671206206,0.0782733177099,0.077731345337,0.0779710638866,0.077189372964,0.0767099358649,0.0766474005911,0.0761471184006,0.0756468362102,0.0756572587559,0.0759595125792,0.0750006383809,0.0754904980257,0.0755217656626,0.0756051460277,0.0747921874682,0.0746045816468,0.0742085249128,0.0736873976311,0.0732288056232,0.0728431714347,0.0725304950657,0.0717696492344,0.0714465503198,0.0714778179567,0.0718321845082,0.0719781001471,0.0722803539705,0.0729578194367,0.0729890870736,0.0728952841629,0.073718665268,0.0740104965457,0.0740417641826,0.0741772572758,0.0742397925497,0.0747609198313,0.0750319060178,0.0745524689187,0.0738958485437,0.0738228907243,0.0730099321649,0.0734476790815,0.0730203547105,0.0724575372463,0.0724575372463,0.0717071139606,0.0709775357663,0.0707795073992,0.0711651415877,0.0711651415877,0.071154719042,0.0711859866789,0.071269367044,0.0708107750361,0.0701437321156,0.0697685204727,0.0696538724708,0.0699561262942,0.0698831684747,0.069904013566,0.0700395066592,0.0695600695601,0.0697789430184,0.069904013566,0.0700916193874,0.0707899299449,0.0705710564865,0.0707482397623,0.0708003524905,0.0704980986671,0.0698935910204,0.0694662666494,0.0689868295502,0.0689138717308,0.0693828862843,0.0690806324609,0.0692890833736,0.0690806324609,0.0689138717308,0.0693307735561,0.069904013566,0.0700916193874,0.0697997881096,0.0697997881096,0.0692265480998,0.0688617590026,0.0685803502705,0.0683823219034,0.0682051386277,0.0682364062646,0.0676006309809,0.0669023204234,0.0677048564373,0.0670690811536,0.0669544331516,0.0666938695108,0.0668606302409,0.0663811931418,0.0664333058699,0.0662144324116,0.066714714602,0.0671107713361,0.0669023204234,0.0670899262449,0.0668189400584,0.0669127429691,0.0668918978778,0.0673400673401,0.0670690811536,0.0670273909711,0.0662978127767,0.0659226011339,0.0654952767629,0.0660997844096,0.0661414745922,0.0656411924018,0.0652138680308,0.0650992200288,0.0645364025646,0.0642028811043,0.0642654163781,0.064296684015,0.0640256978285,0.0634316127274,0.0632231618147,0.0639006272809,0.0644842898364,0.0641090781936,0.0647344309316,0.0651096425744,0.0651617553026,0.0651096425744,0.0656307698561,0.0660372491358,0.0662248549572,0.0657662629494,0.0653285160327,0.0651721778482,0.0646406280209,0.0641507683761,0.0639006272809,0.0637651341877,0.0628687952632,0.0626290767136,0.0627749923525,0.0625978090767,0.0624310483465,0.0625665414398,0.0623372454358,0.0617848505172,0.0615659770589,0.0613992163288,0.0616597799696,0.0615034417851,0.0608363988646,0.0607009057713,0.0607738635908,0.0610135821403,0.0616076672415,0.0621079494319,0.0629209079913,0.0630459785389,0.063244006906,0.0632752745429,0.0638276694615,0.0640882331023,0.0637442890964,0.0639735851003,0.0636192185488,0.063244006906,0.0624102032553,0.0625352738029,0.0625665414398,0.0626290767136,0.0619933014299,0.0616806250609,0.0622642876164,0.0615868221502,0.0610656948685,0.0612116105074,0.0610135821403,0.0611594977792,0.0612741457812,0.0610656948685,0.0617327377891,0.0617431603347,0.0611907654161,0.0613992163288,0.0622330199795,0.0617223152434,0.0620975268863,0.0617118926978,0.0614304839657,0.0614200614201,0.0610656948685,0.0614930192395,0.0617118926978,0.0612324555987,0.0608363988646,0.0612428781443,0.0613783712375,0.060909356684,0.0603986519479,0.0599087923032,0.0599192148488,0.059627383571,0.059544003206,0.0599609050313,0.0601797784896,0.0596482286623,0.0591062562894,0.0599817501226,0.0605862577694,0.0613158359637,0.0612845683268,0.0609614694122,0.0607009057713,0.0602214686722,0.0603048490372,0.060909356684,0.0606487930432,0.0598254119381,0.0597107639361,0.0593563973846,0.0593563973846,0.0594814679322,0.0597003413905,0.0596899188448,0.0589707631961,0.0583558330037,0.0594710453865,0.0600651304877,0.0599296373944,0.0600025952139,0.0603152715829,0.0601589333984,0.060367384311,0.0605654126781,0.0609927370491,0.0616910476065,0.0612011879618,0.0612533006899,0.0611490752336,0.0614096388744,0.0611282301423,0.0612533006899,0.0610448497772,0.0620454141581,0.062076681795,0.0617535828803,0.062076681795,0.0620245690668,0.0624518934378,0.0624206258009,0.0624727385291,0.0628479501719,0.0626707668961,0.0620454141581,0.062587386531,0.0626811894418,0.0625561188941,0.0627645698068,0.0624310483465,0.0623997807096,0.0624935836203,0.0624102032553,0.0628687952632,0.0630355559933,0.0629521756282,0.063244006906,0.0625665414398,0.0619933014299,0.0615868221502,0.0618265406998,0.0620662592494,0.0621183719775,0.0625144287116,0.0616806250609,0.0613575261463,0.0615242868764,0.0622017523426,0.0625456963485,0.0629209079913,0.0623476679815,0.0623164003446,0.0623268228902,0.0616389348784,0.0619411887018,0.0620454141581,0.0618890759736,0.0620141465212,0.0619099210649,0.0617118926978,0.0616702025153,0.0615451319677,0.061107385051,0.061649357424,0.0613992163288,0.0608155537733,0.0604924548587,0.0601172432158,0.0599817501226,0.0600234403051,0.0602006235809,0.0603256941285,0.0601380883071,0.0597837217556,0.0603152715829,0.0613471036006,0.0611282301423,0.0621704847057,0.0622538650708,0.0627958374437,0.0629417530826,0.0629417530826,0.0631397814496,0.0633169647254,0.0627854148981,0.0623372454358,0.0626394992592,0.0619516112474,0.0625144287116,0.0628479501719,0.0628479501719,0.0627541472612,0.062816682535,0.0629104854457,0.0632856970885,0.0630668236302,0.0629104854457,0.0627645698068,0.0618682308823,0.0609614694122,0.061222033053,0.0612428781443,0.0617744279716,0.061336681055,0.0614617516026,0.0621287945232,0.0622642876164,0.0621287945232,0.0626394992592,0.0625769639854,0.0620454141581,0.0618994985192,0.0611178075967,0.0609197792296,0.0608780890471,0.0607738635908,0.0606279479519,0.0611178075967,0.0606592155888,0.0608155537733,0.0608676665015,0.0609927370491,0.0615763996046,0.0617952730629,0.0618890759736,0.0613054134181,0.061451329057,0.0604924548587,0.060711328317,0.0609927370491,0.0613158359637,0.0613887937832,0.0611178075967,0.0613887937832,0.0615555545133,0.0618056956085,0.0617431603347,0.0624414708922,0.063129358904,0.0635775283663,0.0636296410944,0.063556683275,0.0635671058206,0.0635045705468,0.0630042883564,0.0623268228902,0.0629625981739,0.0629625981739,0.0626394992592,0.0617118926978,0.0613471036006,0.0615659770589,0.0623059777989,0.0621079494319,0.0618369632454,0.0623580905271,0.0621287945232,0.0629209079913,0.0630355559933,0.0636192185488,0.0640778105567,0.0641611909218,0.0630980912671,0.0634941480012,0.0644738672908,0.0643487967432,0.0639944301916,0.0637651341877,0.0634733029099,0.0629625981739,0.0626082316223,0.0627541472612,0.062931330537,0.0631502039953,0.063129358904,0.0636921763682,0.0639527400091,0.0634837254556,0.0636400636401,0.064098655648,0.0643175291063,0.063671331277,0.0640361203741,0.0633065421798,0.0626186541679,0.0618682308823,0.0618890759736,0.0620558367037,0.0626082316223,0.0627958374437,0.0634837254556,0.0638902047353,0.0636192185488,0.064067388011,0.0642758389237,0.0645885152927,0.0643071065606,0.0643383741975,0.0632544294516,0.0630459785389,0.0619099210649,0.0617327377891,0.0616389348784,0.0615555545133,0.061847385791,0.0621287945232,0.0627437247156,0.0623685130727,0.0628687952632,0.0633482323623,0.0642445712868,0.0643904869257,0.0652555582133,0.0650992200288,0.0656307698561,0.0656099247649,0.0655995022192,0.065776685495,0.0659851364077,0.0653702062153,0.0650783749375,0.0649116142074,0.0650158396637,0.0654744316716,0.0652972483958,0.0648699240249,0.0644738672908,0.0646718956578,0.065234713122,0.0652034454851,0.065234713122,0.0650262622094,0.0648803465705,0.064296684015,0.0635671058206,0.0639110498265,0.0638797821896,0.0634733029099,0.0628062599894,0.0631814716322,0.0628583727175,0.0634524578187,0.0632023167234,0.0632231618147,0.0633899225449,0.063754711642,0.0635254156381,0.0638276694615,0.0635879509119,0.063754711642,0.0643696418344,0.0641507683761,0.0642758389237,0.0647552760229,0.0648907691161,0.0650054171181,0.0650679523919,0.0647552760229,0.0653389385784,0.0651304876657,0.0644425996539,0.0643487967432,0.0645572476558,0.0641299232849,0.0635775283663,0.0632856970885,0.063869359644,0.0635462607294,0.063358654908,0.0627541472612,0.0627228796243,0.0626082316223,0.0621287945232,0.0619307661561,0.0622434425251,0.0616389348784,0.0613471036006,0.0615555545133,0.0611178075967,0.061107385051,0.0607842861364,0.0603986519479,0.0603152715829,0.0605237224956,0.0604299195848,0.0607425959539,0.0607634410451,0.0547808998513,0.0486837106555,0.042836662555,0.0370417271826,0.0)
m <- c(0.0350067338374,0.0407214625159,0.0470366129693,0.0528692816393,0.0586697848571,0.058798446666,0.0586912284919,0.0590557702838,0.059666913876,0.0599885683983,0.0603959974598,0.060717651982,0.0607283737994,0.0609320883302,0.0610285846869,0.060953531965,0.0607819828865,0.0609964192346,0.060717651982,0.0607605392517,0.0603531101902,0.0604710501816,0.0601601174768,0.0600207338505,0.0608141483387,0.0609749755998,0.0614896228354,0.0614467355658,0.0615753973747,0.0611572464958,0.061532510105,0.0611465246784,0.0618648864447,0.0624545864021,0.0622294282366,0.0620149918884,0.0620364355232,0.0619613828014,0.0618327209925,0.0621222100625,0.0624331427673,0.0626583009329,0.0618219991751,0.0618005555402,0.0615217882876,0.0618541646273,0.0619292173491,0.0621114882451,0.0622294282366,0.0622187064192,0.0619184955317,0.0621436536973,0.0628084063766,0.062819128194,0.0627119100199,0.0627762409244,0.0633981063341,0.0633016099774,0.0639556408393,0.0643201826311,0.0644917317097,0.0646954462404,0.0644381226226,0.06415935537,0.0648884389538,0.0647597771449,0.0645453407967,0.0640735808308,0.0639985281089,0.0634088281515,0.0635053245081,0.0636447081344,0.0635160463255,0.0640092499263,0.0635053245081,0.0640735808308,0.0633766626992,0.0642880171789,0.0640843026482,0.0647276116927,0.0642451299093,0.0639127535696,0.0640306935611,0.0641379117352,0.0642772953615,0.0640521371959,0.0648562735016,0.0646096717012,0.0650385443975,0.0647919425971,0.0651135971193,0.0658855679727,0.0660356734164,0.0659070116075,0.0657140188942,0.0657676279812,0.0653494771023,0.0656389661723,0.0657461843464,0.0659927861468,0.0663573279387,0.0659606206946,0.0657783497986,0.0658426807031,0.0664859897476,0.0666253733739,0.0667111479132,0.0666360951913,0.066496711565,0.0661965006776,0.0662393879472,0.0661750570427,0.0666146515565,0.0665932079217,0.0659391770598,0.065392364372,0.0651243189368,0.0651028753019,0.0650921534845,0.064866995319,0.0648455516841,0.0647383335101,0.0644059571704,0.0638055353956,0.0642236862745,0.0641915208223,0.064866995319,0.0650492662149,0.0643630699008,0.0645667844315,0.0645989498838,0.0644810098923,0.0648991607712,0.0655960789027,0.0654888607286,0.0656068007201,0.0655746352679,0.0654781389112,0.0665717642868,0.0669041406265,0.0665074333824,0.0669577497135,0.0669041406265,0.0668612533569,0.0674402314969,0.0681371496284,0.0684909696029,0.0683301423418,0.0676868332973,0.0674616751317,0.0675688933058,0.0677511642017,0.067601058758,0.0672365169662,0.0668719751743,0.0662822752168,0.0654030861894,0.0651779280238,0.0654138080068,0.0660892825035,0.0655746352679,0.0650921534845,0.0645989498838,0.0650707098497,0.0648991607712,0.065392364372,0.0656389661723,0.0663466061213,0.0657461843464,0.0654566952764,0.0661536134079,0.066550320652,0.0670113588006,0.0668398097221,0.0668505315395,0.066786200635,0.0669899151658,0.0670435242528,0.0677618860191,0.0672901260532,0.0673759005925,0.0668826969917,0.0671292987921,0.0668076442698,0.066443102478,0.0662822752168,0.0660678388687,0.0651350407542,0.0650278225801,0.0649849353105,0.0644595662575,0.0647704989623,0.0648884389538,0.0655531916331,0.0663358843039,0.0667218697306,0.0670006369832,0.0673222915054,0.0678583823758,0.0681157059936,0.0690163386559,0.0693808804478,0.069359436813,0.06883406776,0.0685338568725,0.0689627295689,0.0690163386559,0.0691342786474,0.0687268495859,0.0686196314118,0.0681371496284,0.067601058758,0.0671936296965,0.0672901260532,0.0668612533569,0.0661321697731,0.0655639134505,0.0651993716586,0.0650063789453,0.0647276116927,0.0651457625716,0.0657032970768,0.0653387552849,0.0653816425546,0.0659070116075,0.0655853570853,0.0660142297816,0.0662822752168,0.0662286661298,0.0672901260532,0.0670113588006,0.0667111479132,0.0673330133228,0.0676653896625,0.0675903369406,0.0678691041932,0.0674295096795,0.0675581714884,0.0676225023928,0.067075689705,0.0671614642443,0.0662501097646,0.0663358843039,0.0661321697731,0.0666039297391,0.0661750570427,0.0663894933909,0.0660142297816,0.065917733425,0.0662393879472,0.0655746352679,0.0662286661298,0.0664002152083,0.0663144406691,0.065445973459,0.065681853442,0.0655103043634,0.0655639134505,0.0654674170938,0.0649098825886,0.0650921534845,0.0650707098497,0.0648884389538,0.064631115336,0.0646525589708,0.064684724423,0.0648562735016,0.0648026644145,0.0651457625716,0.0652208152934,0.0655853570853,0.0655531916331,0.0651886498412,0.0652208152934,0.0656496879898,0.0652529807457,0.0651135971193,0.0654566952764,0.0643094608137,0.0636983172215,0.0638269790304,0.0635374899604,0.0638269790304,0.0640950244656,0.0638377008478,0.0642558517267,0.0647812207797,0.0642665735441,0.0647704989623,0.064341626266,0.0640735808308,0.0646418371534,0.0641700771874,0.0637840917607,0.0642129644571,0.0636125426822,0.0628941809159,0.0625403609414,0.0624545864021,0.0638055353956,0.0636447081344,0.0629799554551,0.0626797445677,0.0626583009329,0.0617576682706,0.0620149918884,0.0619721046188,0.0628512936462,0.0633873845166,0.0627976845592,0.0628727372811,0.0624331427673,0.0626475791155,0.0628084063766,0.0627976845592,0.0628620154636,0.0624974736718,0.0619828264362,0.0614681792006,0.0617362246358,0.0613931264787,0.0621543755147,0.0623366464107,0.0617576682706,0.061714781001,0.0610178628695,0.0615217882876,0.0615646755573,0.0617469464532,0.061478901018,0.0613502392091,0.0611786901306,0.0611143592261,0.0613931264787,0.0614681792006,0.0616611719139,0.0618863300795,0.0617576682706,0.0614896228354,0.0611786901306,0.0611250810435,0.0608141483387,0.0607283737994,0.0604603283642,0.0607605392517,0.0615968410095,0.0613395173917,0.0615753973747,0.061532510105,0.0619721046188,0.0621865409669,0.0626475791155,0.0625939700284,0.0627762409244,0.0627333536548,0.0626583009329,0.0623152027758,0.0621758191495,0.0622723155062,0.0619184955317,0.0623580900455,0.0620900446103,0.0623902554977,0.0624545864021,0.0626154136633,0.0621543755147,0.0624438645847,0.0630871736292,0.0627011882025,0.0633552190644,0.0628727372811,0.0628727372811,0.0629049027333,0.0630657299944,0.0629477900029,0.0631622263511,0.0629049027333,0.0621650973321,0.0618219991751,0.0610714719565,0.0611465246784,0.061189411948,0.0617255028184,0.0619077737143,0.0620257137058,0.0621222100625,0.0620686009754,0.0626583009329,0.0634409936037,0.0632694445252,0.0639663626567,0.0642558517267,0.063633986317,0.0637626481259,0.0632587227077,0.0634302717863,0.0639127535696,0.0635696554126,0.0635053245081,0.0638805881174,0.0629263463681,0.0626797445677,0.062293759141,0.0617469464532,0.0621436536973,0.0615753973747,0.0615110664702,0.0615646755573,0.0613395173917,0.0614467355658,0.0616611719139,0.0622079846018,0.0627440754722,0.063055008177,0.0631729481685,0.063344497247,0.0631515045337,0.063108617264,0.0634731590559,0.0633230536122,0.0638698663,0.0636768735867,0.0633123317948,0.0631515045337,0.0628727372811,0.0631622263511,0.0633337754296,0.0633123317948,0.0634517154211,0.0639020317522,0.0634409936037,0.0630978954466,0.0629263463681,0.0630335645422,0.06300139909,0.0627976845592,0.0633123317948,0.0634946026907,0.0640414153785,0.0639878062915,0.0647276116927,0.064920604406,0.0648884389538,0.0654781389112,0.0655317479983,0.0663573279387,0.0657140188942,0.0656175225375,0.0652529807457,0.0652529807457,0.0653173116501,0.0650278225801,0.0654888607286,0.0648026644145,0.0645238971619,0.0642558517267,0.0642665735441,0.0640306935611,0.0639878062915,0.0640843026482,0.0637948135782,0.0645238971619,0.0649098825886,0.0650385443975,0.0656711316246,0.0656604098072,0.0662286661298,0.0671936296965,0.0678583823758,0.0684802477855,0.0682550896199,0.0681157059936,0.0678476605584,0.0680942623588,0.068362307794,0.0684909696029,0.0688447895774,0.0685767441422,0.0684695259681,0.0685231350551,0.0690270604733,0.069177165917,0.0696810913352,0.0701206858489,0.0702600694752,0.0705495585453,0.0709462657894,0.0707318294412,0.0709033785197,0.0710105966938,0.0710963712331,0.0710213185112,0.0711392585027,0.0715252439294,0.0713965821205,0.0712679203116,0.0704530621886,0.0712035894071,0.0707639948934,0.0706246112671,0.0710320403286,0.0718361766342,0.0719862820779,0.0722221620609,0.0730155765491,0.0732407347147,0.0737875474025,0.0741306455596,0.0753958200137,0.0761463472323,0.0760820163278,0.0760712945104,0.0759533545189,0.0761999563193,0.0760176854234,0.0763607835804,0.0764572799371,0.076296452676,0.0755780909096,0.0754923163704,0.0759747981537,0.0762535654064,0.0766288290156,0.0766502726505,0.0769183180857,0.0769826489901,0.077111310799,0.0771434762512,0.0777760634783,0.0780333870961,0.0781406052702,0.0781298834528,0.0781406052702,0.0787088615928,0.0790090724802,0.0786981397754,0.0786230870535,0.0794165015417,0.0792342306458,0.0790841252021,0.0795451633506,0.0802313596648,0.0811963232315,0.0810569396052,0.0809389996137,0.0819790159023,0.0823328358767,0.0822792267897,0.0822899486071,0.0827831522079,0.0823113922419,0.0817860231889,0.0815715868408,0.0814000377622,0.0824936631379,0.0825043849553,0.0827295431208,0.0827295431208,0.083415739435,0.0831691376346,0.0839303866706,0.0844879211758,0.0846809138891,0.0857316519951,0.0853671102032,0.0855601029166,0.0867502246489,0.0872755937019,0.0879296245638,0.0883584972601,0.0885086027038,0.0887337608694,0.0893127390094,0.0891090244787,0.0891947990179,0.0891090244787,0.0890983026613,0.0887444826868,0.088540768156,0.088540768156,0.0888731444957,0.0889589190349,0.0889374754001,0.0888838663131,0.0894092353661,0.0899238826017,0.0896880026187,0.0905243043765,0.0903313116632,0.0916286515696,0.092218351527,0.0920468024485,0.0921004115355,0.0927329987626,0.0933334205374,0.0939016768601,0.0938909550427,0.0942769404694,0.0948666404268,0.0944484895479,0.094898805879,0.0965928530295,0.0978687493011,0.0989623746767,0.0990588710334,0.0997021800779,0.101235399967,0.101953761734,0.103090274379,0.104248230659,0.104805765164,0.105513405113,0.106403315958,0.106296097784,0.107282504985,0.107990144934,0.108236746735,0.108161694013,0.108965830318,0.109105213945,0.109276763023,0.108569123074,0.108193859465,0.109169544849,0.110209561138,0.110263170225,0.110134508416,0.111238855609,0.111174524705,0.111699893758,0.111453291957,0.112053713732,0.112396811889,0.112150210089,0.111839277384,0.112493308246,0.11289001549,0.112439699159,0.112428977341,0.112793519133,0.114026528135,0.114509009918,0.114937882615,0.114970048067,0.11582779346,0.116331718878,0.116621207948,0.117146577001,0.117864938767,0.11781132968,0.117221629723,0.11727523881,0.117575449697,0.118057931481,0.116492546139,0.115484695303,0.116331718878,0.115967177086,0.11582779346,0.115795628007,0.115870680729,0.115967177086,0.115752740738,0.116203057069,0.11785421695,0.119387436839,0.119108669587,0.120266625867,0.120481062215,0.121531800321,0.122046447556,0.122625425696,0.123493892906,0.12393348742,0.123847712881,0.124137201951,0.125777640014,0.12575619638,0.126774769033,0.126517445415,0.127074979921,0.127525296252,0.127675401696,0.128222214383,0.129251508855,0.129101403411,0.128082830757,0.128672530715,0.128307988923,0.128876245245,0.130227194239,0.130538126944,0.13067751057,0.130505961491,0.130774006927,0.131931963207,0.133379408557,0.13357240127,0.134558808472,0.135041290255,0.13386189034,0.133872612157,0.135084177525,0.135470162951,0.134708913915,0.133754672166,0.133540235818,0.133808281253,0.134226432132,0.133733228531,0.13526644842,0.136263577439,0.136574510144,0.136831833762,0.138043399129,0.138429384556,0.138697429991,0.138558046365,0.138482993643,0.139287129949,0.13886897907,0.138558046365,0.138236391843,0.138021955494,0.13742153372,0.137871850051,0.136939051936,0.138450828191,0.138793926348,0.139201355409,0.139930438993,0.14027353715,0.14056302622,0.14118489163,0.142407178814,0.143318533294,0.145044745897,0.145420009506,0.145698776759,0.146588687603,0.146899620308,0.146867454856,0.147542929353,0.147564372988,0.147167665743,0.147092613022,0.147532207535,0.147189109378,0.147242718465,0.146674462143,0.145688054941,0.146770958499,0.14614909309,0.146116927637,0.146427860342,0.14577382948,0.145216294975,0.145141242253,0.145580836767,0.146052596733,0.146224145812,0.145666611306,0.145966822194,0.146331363986,0.146052596733,0.146256311264,0.146910342126,0.145784551298,0.144165556869,0.143565135094,0.14403689506,0.143447195103,0.143447195103,0.143940398704,0.143608022364,0.144015451426,0.143061209676,0.143693796903,0.144680204105,0.143886789617,0.143951120521,0.145001858627,0.144680204105,0.143736684173,0.144176278687,0.143843902347,0.143350698746,0.143029044224,0.142482231536,0.143157706033,0.142803886058,0.141935418848,0.141109838908,0.140445086229,0.140016213532,0.140048378985,0.140059100802,0.139297851766,0.138761760896,0.138558046365,0.13853660273,0.137743188242,0.138011233677,0.13829000093,0.137174931919,0.136038419274,0.135534493856,0.136006253822,0.135802539291,0.135094899342,0.13410849214,0.134215710315,0.134119213958,0.134044161236,0.133926221244,0.134033439419,0.133733228531,0.132982701313,0.132607437703,0.132628881338,0.131331541432,0.130945556005,0.130891946918,0.130463074222,0.130077088795,0.129348005211,0.128736861619,0.127964890766,0.128018499853,0.127482408982,0.128533147088,0.127729010783,0.126603219955,0.12604568545,0.126688994494,0.125852692736,0.125616812753,0.125777640014,0.1250914437,0.124319472847,0.122968523853,0.123225847471,0.122625425696,0.122432432983,0.121135093077,0.120759829467,0.12012724224,0.12012724224,0.119108669587,0.117961435124,0.117704111506,0.117339569714,0.116771313392,0.116385327965,0.116128004347,0.116353162513,0.115645522564,0.115431086216,0.115913567999,0.116792757026,0.116857087931,0.116867809748,0.116417493417,0.11582779346,0.115752740738,0.115388198946,0.115709853468,0.114980769884,0.113747760882,0.11404797177,0.113833535422,0.112793519133,0.112697022776,0.112621970055,0.11202154828,0.111817833749,0.112107322819,0.1113567956,0.111388961053,0.110005846607,0.109834297529,0.109727079354,0.109469755737,0.108440461265,0.108569123074,0.108397573996,0.107368279525,0.108193859465,0.108000866752,0.108311799457,0.108183137648,0.107679212229,0.107454054064,0.106778579567,0.105331134217,0.104859374251,0.105127419686,0.104623494268,0.104312561563,0.102618514413,0.102136032629,0.101889430829,0.100956632715,0.0999058946086,0.0998522855216,0.0989516528593,0.0973541020655,0.0959281003502,0.0950703549576,0.0949631367835,0.0931940369111,0.0922826824315,0.0920039151788,0.0925185624144,0.0919503060918,0.0910389516121,0.0902240934891,0.0890446935742,0.0887015954172,0.0887980917738,0.0888945881305,0.0883156099905,0.0872755937019,0.0875007518674,0.0870075482667,0.0872219846148,0.0877902409375,0.0878331282071,0.0875329173197,0.087146931893,0.0867716682837,0.0865250664833,0.0866108410226,0.0854528847425,0.0849596811417,0.0845951393499,0.083469348522,0.0837266721398,0.0835444012439,0.0826116031294,0.0829118140168,0.0829225358342,0.0824400540508,0.0818289104586,0.0820540686241,0.0818074668237,0.0821612867982,0.0814536468493,0.081131992327,0.0815715868408,0.0809389996137,0.0801563069429,0.0802099160299,0.0809389996137,0.0804886832826,0.0796845469769,0.0796309378899,0.0798239306033,0.079502276081,0.0786659743232,0.0783121543487,0.0779368907394,0.0774651307735,0.0768110999116,0.0765430544764,0.0764680017545,0.0761892345019,0.0764465581197,0.0759747981537,0.0760284072408,0.0753743763789,0.0755459254574,0.0759426327015,0.0759962417886,0.0757281963534,0.0759962417886,0.0754708727356,0.0747632327866,0.0749991127696,0.0750312782218,0.0757925272578,0.0755995345445,0.0751384963959,0.0750527218566,0.0750848873089,0.0746560146126,0.0745487964385,0.0752135491178,0.0751706618481,0.0750848873089,0.0748382855085,0.0749562255,0.0750634436741,0.0748918945955,0.0746560146126,0.0750527218566,0.0754494291007,0.0741628110118,0.0737982692199,0.0738089910373,0.073433727428,0.0729619674621,0.072801140201,0.0725116511309,0.0723079366002,0.071857620269,0.0713644166683,0.071278642129,0.0719433948083,0.0713644166683,0.0712571984942,0.0710642057808,0.0710213185112,0.0704530621886,0.0700670767619,0.0701099640315,0.0697668658745,0.06970253497,0.0688983986644,0.0687161277685,0.0680299314543,0.0686625186814,0.068415916881,0.0690163386559,0.0688662332122,0.0684802477855,0.0683837514288,0.0682550896199,0.0679977660021,0.0676761114799,0.0682122023503,0.0672901260532,0.0670006369832,0.0670649678876,0.0676332242102,0.0678262169236,0.0679119914629,0.0672150733313,0.0672686824184,0.0675152842188,0.0676117805754,0.0679656005499,0.0677404423843,0.0671507424269,0.0666253733739,0.0665288770172,0.0669363060787,0.0671829078791,0.0670113588006,0.0667754788176,0.0657997934335,0.0658748461553,0.0657890716161,0.0660678388687,0.0657569061638,0.0660356734164,0.065156484389,0.0658855679727,0.0659606206946,0.0663466061213,0.0667433133654,0.0668183660872,0.0664752679302,0.0663037188516,0.0665932079217,0.0661536134079,0.0664859897476,0.0659070116075,0.0655531916331,0.0646096717012,0.0649956571279,0.0644595662575,0.0644810098923,0.0638913099348,0.0640950244656,0.0641700771874,0.0639770844741,0.0636875954041,0.0637948135782,0.0640950244656,0.0633016099774,0.0634302717863,0.0637840917607,0.0640735808308,0.0633873845166,0.0626904663851,0.0625618045762,0.0633981063341,0.0631943918033,0.0631407827163,0.0632694445252,0.0632158354381,0.0631193390814,0.0625403609414,0.0632051136207,0.0635160463255,0.063633986317,0.0633552190644,0.0633016099774,0.0629370681855,0.0630657299944,0.0627762409244,0.0624438645847,0.062765519107,0.0624331427673,0.062057879158,0.0618648864447,0.0611036374087,0.0610607501391,0.0615753973747,0.0612751864873,0.0616611719139,0.0619292173491,0.0615861191921,0.0608355919735,0.0609213665128,0.0610178628695,0.0610714719565,0.0613287955743,0.0610500283217,0.0612001337654,0.0605568247209,0.0606747647124,0.0610178628695,0.0619613828014,0.0623366464107,0.062240150054,0.0627011882025,0.0627119100199,0.0626690227503,0.062765519107,0.0629692336377,0.0627976845592,0.0628405718288,0.0623580900455,0.0619613828014,0.0621436536973,0.0616290064617,0.0612215774002,0.0613716828439,0.0614145701136,0.0619721046188,0.0621007664277,0.0614896228354,0.0609106446954,0.060899922878,0.0605568247209,0.0612215774002,0.0614467355658,0.0614574573832,0.0618434428099,0.0611786901306,0.0608677574257,0.0614145701136,0.0619399391666,0.0618112773577,0.0616611719139,0.061243021035,0.0608463137909,0.0610500283217,0.0606747647124,0.0604067192772,0.0608355919735,0.0610178628695,0.0610500283217,0.060899922878,0.0611143592261,0.060664042895,0.060899922878,0.0604388847294,0.0598813502242,0.0601601174768,0.0596776356934,0.0592058757275,0.0591844320927,0.0595168084323,0.0595382520671,0.0599778465809,0.0603959974598,0.0606747647124,0.0614145701136,0.061243021035,0.0615861191921,0.0614145701136,0.0616075628269,0.0614467355658,0.0614467355658,0.0615110664702,0.0611143592261,0.0611679683132,0.0607069301646,0.0612751864873,0.0609106446954,0.0612644646698,0.060664042895,0.0608463137909,0.0603316665553,0.060717651982,0.0607498174343,0.0610500283217,0.0613824046613,0.0612215774002,0.0613502392091,0.0615861191921,0.0624545864021,0.0628084063766,0.0572116176896,0.0506391436184,0.0445813167829,0.0379981208943,0.0)
ycorr <- c(9.79182980966e-05,9.77977059379e-05,9.74235780429e-05,9.67958789494e-05,9.59059909912e-05,9.47642490392e-05,9.33693502217e-05,9.19814916109e-05,9.0596243309e-05,8.92190025249e-05,8.78460676474e-05,8.64616429878e-05,8.50642714471e-05,8.36558212157e-05,8.22417138316e-05,8.08203972509e-05,7.93888640725e-05,7.79462330823e-05,7.65002783102e-05,7.50457480364e-05,7.35804530588e-05,7.21105297519e-05,7.06475426478e-05,6.91840209962e-05,6.77141664979e-05,6.62289567868e-05,6.47312838544e-05,6.3222998109e-05,6.16963291859e-05,6.0152210633e-05,5.86023205142e-05,5.704594714e-05,5.54717821569e-05,5.38818606023e-05,5.22843114683e-05,5.0687969594e-05,4.90924405898e-05,4.74962431653e-05,4.59061150848e-05,4.43303512568e-05,4.27573855457e-05,4.11835945064e-05,3.96091754419e-05,3.8038367497e-05,3.6467718858e-05,3.48924241398e-05,3.33154639089e-05,3.17354363249e-05,3.01474390579e-05,2.85324335487e-05,2.6894540395e-05,2.52385596083e-05,2.35689643154e-05,2.18824128337e-05,2.01819952331e-05,1.84671055495e-05,1.67299384592e-05,1.49674970315e-05,1.31847731762e-05,1.13904662592e-05,9.58244574123e-06,7.75993331946e-06,5.91772215505e-06,4.05679921615e-06,2.17529133017e-06,2.70005898154e-07,-1.65443511158e-06,-3.59206778869e-06,-5.54922709091e-06,-7.52494340584e-06,-9.51432837306e-06,-1.15126756947e-05,-1.35190483643e-05,-1.55301707231e-05,-1.75555478626e-05,-1.95856182516e-05,-2.16196537522e-05,-2.36606566021e-05,-2.57075623584e-05,-2.77600047452e-05,-2.9829764043e-05,-3.19165256569e-05,-3.40200412133e-05,-3.61447980863e-05,-3.82731004872e-05,-4.04066837852e-05,-4.25561877625e-05,-4.4722210412e-05,-4.68946469053e-05,-4.90660774708e-05,-5.12301709159e-05,-5.33855928008e-05,-5.5537967488e-05,-5.76785221542e-05,-5.98229888278e-05,-6.19835954504e-05,-6.41551536012e-05,-6.6328053116e-05,-6.85126386732e-05,-7.07166626595e-05,-7.29444551648e-05,-7.51912989087e-05,-7.74506885381e-05,-7.97257713514e-05,-8.20175827421e-05,-8.43105406845e-05,-8.65995684048e-05,-8.88866867611e-05,-9.11671010975e-05,-9.3438233314e-05,-9.56947539325e-05,-9.7956744889e-05,-0.00010022884165,-0.000102514592132,-0.000104814877445,-0.000107130102954,-0.000109463794124,-0.000111819922616,-0.000114206844437,-0.000116633440118,-0.000119100614863,-0.000121611973469,-0.000124145378995,-0.000126700407519,-0.000129269782158,-0.000131847934203,-0.000134438799245,-0.000137035240675,-0.000139632002037,-0.000142214504656,-0.000144786483777,-0.000147333777754,-0.000149866919719,-0.000152389906458,-0.000154893247137,-0.000157391831881,-0.000159878662254,-0.000162355874386,-0.000164828536868,-0.000167297167201,-0.000169762094288,-0.000172217896232,-0.000174673024985,-0.000177122906881,-0.000179570044069,-0.000182019572131,-0.000184465257396,-0.000186914065124,-0.000189358331024,-0.000191803085308,-0.00019425650414,-0.000196713081179,-0.000199160322042,-0.000201597064804,-0.000204025867409,-0.000206437995825,-0.000208841739145,-0.000211243066906,-0.000213641874581,-0.000216044170148,-0.000218435755395,-0.000220821672919,-0.000223219219093,-0.000225630947457,-0.000228059198842,-0.000230510834591,-0.000232984758547,-0.000235467451854,-0.000237951709083,-0.00024043518331,-0.000242914823591,-0.000245396268809,-0.000247867362636,-0.000250325997746,-0.000252778409725,-0.000255211414589,-0.000257611295562,-0.000259985090547,-0.000262337235859,-0.000264668079941,-0.000266978493317,-0.000269263474967,-0.000271525066092,-0.000273766694425,-0.000275982614337,-0.000278170604991,-0.000280343868512,-0.000282503117102,-0.000284645943245,-0.000286766153737,-0.000288863130422,-0.00029094457631,-0.000293011680811,-0.000295061961505,-0.000297090410159,-0.000299100753031,-0.00030109919729,-0.000303079430564,-0.000305043056326,-0.000306995905736,-0.000308943385311,-0.000310877328356,-0.000312795625956,-0.000314702991036,-0.000316597707479,-0.000318486781695,-0.000320368946991,-0.000322241465409,-0.000324103661756,-0.000325952883026,-0.000327788752519,-0.000329614530104,-0.000331438671586,-0.000333255042772,-0.000335071371745,-0.00033688328161,-0.000338679880293,-0.000340458946568,-0.000342230930037,-0.000343992726071,-0.000345745871459,-0.00034749028858,-0.000349220491741,-0.000350932344757,-0.000352619133742,-0.000354279226887,-0.00035592260665,-0.000357562314785,-0.000359191121093,-0.000360799245804,-0.00036238834201,-0.000363959716682,-0.000365507673335,-0.00036703361645,-0.000368543105196,-0.000370048010704,-0.000371537582269,-0.00037301229164,-0.000374467052127,-0.000375913890455,-0.000377349201258,-0.000378781637991,-0.000380212663752,-0.00038165176195,-0.000383102807139,-0.000384559252234,-0.000386013889076,-0.000387466065865,-0.000388917073537,-0.000390366522919,-0.000391812374187,-0.000393251264787,-0.000394675578838,-0.000396089429443,-0.000397484410701,-0.000398856501865,-0.000400211454646,-0.000401556176845,-0.000402888642879,-0.00040420652647,-0.000405516301206,-0.000406807661984,-0.000408089550855,-0.000409356675113,-0.000410607466391,-0.000411845269308,-0.000413074604376,-0.000414282747459,-0.000415473442186,-0.000416654896547,-0.000417821687877,-0.000418982620819,-0.000420141947536,-0.000421301477586,-0.000422464514615,-0.000423625081914,-0.000424781301207,-0.000425933059437,-0.000427081439533,-0.000428222794645,-0.000429360366801,-0.000430494381131,-0.000431609544074,-0.000432695078896,-0.000433751747333,-0.000434783044153,-0.000435786148582,-0.000436755965695,-0.000437699636425,-0.000438614692304,-0.00043948835985,-0.000440310959935,-0.000441084875337,-0.000441816518042,-0.000442511735689,-0.000443166845047,-0.000443784865864,-0.000444377202677,-0.000444945295709,-0.000445484425657,-0.000446004614999,-0.000446510700005,-0.000447012731485,-0.000447516030845,-0.000448015142284,-0.00044851367108,-0.00044900920733,-0.000449501831071,-0.000449979843099,-0.00045044848411,-0.000450912733259,-0.000451374005632,-0.000451835565888,-0.000452292119873,-0.00045273615765,-0.000453170409975,-0.000453598856163,-0.000454017440114,-0.000454427423341,-0.000454835643222,-0.000455233029518,-0.000455620699299,-0.000455996785858,-0.000456360325454,-0.000456721248412,-0.00045708363954,-0.000457442720069,-0.000457797101129,-0.000458153488353,-0.000458505833831,-0.00045885658553,-0.000459207460656,-0.000459549553308,-0.000459884116492,-0.000460208138673,-0.000460510182436,-0.000460794129806,-0.000461069554414,-0.000461335037019,-0.000461585902772,-0.00046182720328,-0.000462057981906,-0.000462284317055,-0.000462504067522,-0.000462716995032,-0.00046292481884,-0.000463131348492,-0.000463332605781,-0.000463523520567,-0.000463709165661,-0.000463892607762,-0.000464071352772,-0.000464237638659,-0.000464396151105,-0.00046454936542,-0.000464702858818,-0.000464857639484,-0.000465011451868,-0.000465161504242,-0.000465307555669,-0.000465446579541,-0.000465579918057,-0.000465710386151,-0.000465839620751,-0.000465965717949,-0.00046608480213,-0.000466190743741,-0.000466284974674,-0.000466369142298,-0.00046644262438,-0.000466501660665,-0.000466551348315,-0.000466591407764,-0.000466619070467,-0.000466638208709,-0.000466650164961,-0.000466661726525,-0.000466671231274,-0.000466681261804,-0.000466693029994,-0.000466709453279,-0.000466720116082,-0.000466722251034,-0.000466714943502,-0.000466693921238,-0.000466654928837,-0.000466596797991,-0.000466519040014,-0.000466420535327,-0.000466300014015,-0.000466153527529,-0.000465985384168,-0.000465812652096,-0.000465633711452,-0.000465451826956,-0.000465270692835,-0.000465090999507,-0.000464906696614,-0.000464717607365,-0.000464528666652,-0.000464338827433,-0.000464150023632,-0.00046395582104,-0.000463751169951,-0.000463529798652,-0.000463293697787,-0.000463039608095,-0.000462772710695,-0.000462492691741,-0.000462196318533,-0.000461881142201,-0.00046154815823,-0.000461195696826,-0.000460826813391,-0.000460446664576,-0.000460054011467,-0.000459646445697,-0.000459228999133,-0.000458802654149,-0.000458370834145,-0.000457937326505,-0.000457497109008,-0.000457050193536,-0.000456596715646,-0.000456138077081,-0.000455673850897,-0.000455210690428,-0.000454745103076,-0.000454274144758,-0.000453794102623,-0.000453307085171,-0.000452809653092,-0.000452306326905,-0.000451796185258,-0.000451271467476,-0.000450731915723,-0.00045017062014,-0.000449590216107,-0.00044898611069,-0.000448363213491,-0.000447715423346,-0.000447051139927,-0.000446370770209,-0.000445677444717,-0.000444976355787,-0.000444276921402,-0.000443571011449,-0.000442858022746,-0.000442139273079,-0.000441417285543,-0.000440690213282,-0.000439956538213,-0.000439203452701,-0.000438426391304,-0.000437626833787,-0.00043679637024,-0.000435938426092,-0.000435056883179,-0.000434157968396,-0.00043323577072,-0.000432295563394,-0.000431335600341,-0.000430363559101,-0.000429384096959,-0.000428395188446,-0.000427393919428,-0.000426387760718,-0.000425372193987,-0.000424343921462,-0.000423297189585,-0.000422230288771,-0.000421147739769,-0.000420048927982,-0.000418931607243,-0.000417794616941,-0.000416645475963,-0.000415481365491,-0.000414295151337,-0.000413092357625,-0.000411881469346,-0.000410665447715,-0.000409445049567,-0.000408210990027,-0.00040696133409,-0.000405698755727,-0.000404419824472,-0.000403122746744,-0.000401813972731,-0.000400498050022,-0.000399167010007,-0.000397817796935,-0.000396443605353,-0.000395051474998,-0.000393648279488,-0.000392235046046,-0.000390813328003,-0.000389385970323,-0.000387951014363,-0.00038649557316,-0.000385019294791,-0.000383525468442,-0.00038201367515,-0.000380488347943,-0.000378943250375,-0.000377371547072,-0.000375767664192,-0.000374130322559,-0.000372459326721,-0.000370767777325,-0.000369063593826,-0.000367345558655,-0.000365615615943,-0.000363872886335,-0.000362116923406,-0.000360353226068,-0.000358584640203,-0.000356816626323,-0.000355047991019,-0.00035327201954,-0.000351477962942,-0.00034966526371,-0.000347833866421,-0.000345979130761,-0.000344106168829,-0.000342214977821,-0.000340308156895,-0.000338384354341,-0.00033643866143,-0.000334466101518,-0.000332476105789,-0.000330470739726,-0.000328450794705,-0.00032641761678,-0.000324369707082,-0.000322307918186,-0.000320228896124,-0.000318124149328,-0.000315999591701,-0.000313862708572,-0.000311711395649,-0.000309540669232,-0.000307348978381,-0.000305134831753,-0.00030290273638,-0.000300651312807,-0.000298375067519,-0.000296083520031,-0.00029377768939,-0.000291450489221,-0.000289100887523,-0.000286736460848,-0.000284357952914,-0.000281966283624,-0.00027955493028,-0.000277113964025,-0.000274651094294,-0.00027216496612,-0.000269650405704,-0.000267110428982,-0.00026454802985,-0.000261960791376,-0.000259348286675,-0.000256714270069,-0.000254060749746,-0.000251400793402,-0.000248733254499,-0.000246054889263,-0.000243364194601,-0.000240665930823,-0.000237956894543,-0.000235235980193,-0.000232504327421,-0.000229756969364,-0.000226991015499,-0.000224201722061,-0.000221386945562,-0.000218550859623,-0.000215700046948,-0.000212831972585,-0.00020994446116,-0.000207034897658,-0.000204108043822,-0.000201163014359,-0.000198205994753,-0.000195236417779,-0.000192254108903,-0.000189254084641,-0.000186234996901,-0.000183194114448,-0.000180138403601,-0.00017702481709,-0.000173802503734,-0.000170424645888,-0.000166851142887,-0.000162830081717,-0.000159255830547,-0.000155889908383,-0.000152700853032,-0.000149653360974,-0.000146698134853,-0.000143791639497,-0.00014097249685,-0.000138298353371,-0.000135808745616,-0.000133545523669,-0.000131757219109,-0.000129547312225,-0.000127154535791,-0.000124612906704,-0.000121956878519,-0.000119235381998,-0.000116494535818,-0.000113730432667,-0.000110944719157,-0.000108140537741,-0.000105317512944,-0.000102476641985,-9.9625899025e-05,-9.67654453375e-05,-9.38919838706e-05,-9.10042152158e-05,-8.8100662901e-05,-8.51780714354e-05,-8.2240129837e-05,-7.92816128748e-05,-7.63016966899e-05,-7.3302704586e-05,-7.02760626998e-05,-6.7211225236e-05,-6.4115184646e-05,-6.09891786799e-05,-5.78374511473e-05,-5.46586220393e-05,-5.14521402448e-05,-4.82223079234e-05,-4.49710637148e-05,-4.16947338911e-05,-3.83991536907e-05,-3.50941440323e-05,-3.17841793132e-05,-2.84658855854e-05,-2.51383914681e-05,-2.18045141752e-05,-1.84652758166e-05,-1.51227156271e-05,-1.17736644108e-05,-8.42243204841e-06,-5.06719336867e-06,-1.70667194988e-06,1.66103972726e-06,5.0357101838e-06,8.42056461365e-06,1.18080243862e-05,1.52065499457e-05,1.86225596033e-05,2.20596199372e-05,2.55188055295e-05,2.90026897069e-05,3.2506980937e-05,3.60390867521e-05,3.9596816702e-05,4.31813742699e-05,4.67911485227e-05,5.04326791967e-05,5.40942011241e-05,5.77683529194e-05,6.1452780436e-05,6.51458335796e-05,6.88563902225e-05,7.2579807199e-05,7.63155671002e-05,8.00623133042e-05,8.38245459266e-05,8.75983439566e-05,9.13895004679e-05,9.51972591183e-05,9.90253031501e-05,0.000102868584739,0.000106724586862,0.000110582358658,0.000114449136101,0.000118323747887,0.000122205600039,0.00012608595567,0.00012996644418,0.00013383946137,0.000137710864798,0.000141587226624,0.00014547140433,0.000149371623468,0.000153290583173,0.000157225018475,0.000161174248719,0.000165141867807,0.000169126521454,0.0001731344454,0.000177162721098,0.000181204608399,0.000185250330724,0.000189298945254,0.000193340953743,0.00019737411172,0.000201399865691,0.000205420289233,0.000209439046174,0.000213454773623,0.000217468509112,0.00022148637965,0.000225513920967,0.000229548770763,0.000233596454476,0.000237658212386,0.000241732779031,0.000245818573425,0.000249912843535,0.000254009556917,0.000258108872162,0.000262202231353,0.000266284747906,0.000270360022038,0.000274431612125,0.000278501116715,0.000282574305503,0.000286646404188,0.00029071001329,0.000294774024327,0.000298840556999,0.000302915209344,0.000306999549877,0.000311094637885,0.000315190633172,0.000319289992977,0.000323381289227,0.000327464219799,0.000331551069444,0.000335640643916,0.000339721725947,0.000343788694074,0.000347843805509,0.000351891524513,0.000355936146111,0.000359977139673,0.000364014229978,0.000368053572954,0.000372089557295,0.000376118414861,0.000380150247115,0.000384191348233,0.000388243388131,0.00039229707127,0.000396339545585,0.000400365019842,0.000404377336374,0.00040837324309,0.000412352424951,0.000416314448975,0.000420256035715,0.000424167675065,0.000428044146624,0.000431882174496,0.000435695730859,0.000439489481776,0.000443271102252,0.000447042063365,0.000450800857756,0.000454544753553,0.000458273813082,0.000461991517692,0.000465700577886,0.000469405228094,0.000473104063799,0.000476787550531,0.000480458482431,0.000484108745989,0.000487735589618,0.000491345703519,0.00049493860944,0.000498520424674,0.000502091105804,0.000505648423149,0.000509190365028,0.000512724186245,0.000516240918753,0.000519738305709,0.000523219082046,0.000526679002879,0.000530111006616,0.000533508749543,0.000536869479879,0.000540198631956,0.000543501544334,0.000546775891901,0.000550022044542,0.000553246255911,0.000556450688204,0.000559634339142,0.000562805741104,0.000565966958892,0.000569121902733,0.000572258004569,0.000575373438225,0.000578463791638,0.000581531815386,0.000584578150819,0.000587603616338,0.000590605159388,0.000593581128719,0.000596530321294,0.000599449549598,0.000602344926374,0.000605215316199,0.000608055731402,0.000610861403744,0.000613624086689,0.000616340558932,0.000619014490455,0.000621648175299,0.000624236487298,0.000626776454247,0.000629268978821,0.000631709963381,0.00063411055273,0.000636472910437,0.000638805634389,0.00064111092377,0.000643387601288,0.000645631187477,0.000647842757773,0.000650029041797,0.000652193558551,0.000654335604408,0.000656455119384,0.000658549695166,0.000660612005375,0.00066264470454,0.000664651567888,0.000666627864323,0.000668579576213,0.000670501942933,0.000672392820734,0.00067424414681,0.000676055613129,0.00067782649461,0.000679563281182,0.00068126658682,0.000682929394943,0.000684551818877,0.000686136484132,0.000687678067758,0.000689178136164,0.000690642838411,0.000692075383233,0.00069347840017,0.000694852171842,0.000696184403887,0.00069747896865,0.000698737022024,0.000699956129835,0.000701140719961,0.000702287385547,0.000703398030318,0.000704465781597,0.000705486434452,0.000706463242038,0.000707399872279,0.000708299578878,0.000709159936919,0.000709981282806,0.000710761090266,0.000711501032163,0.000712199939983,0.000712859918815,0.000713485312388,0.000714069805432,0.000714605438451,0.000715087859188,0.000715519673446,0.000715899754993,0.000716230441041,0.000716512452249,0.000716748739534,0.000716941068057,0.000717081074809,0.000717165975397,0.000717206737676,0.000717206893454,0.000717169109416,0.000717089520509,0.000716970659279,0.000716810606553,0.000716597688019,0.000716323116968,0.000715991754307,0.000715607364753,0.000715170786983,0.000714682064677,0.000714135131178,0.00071352943341,0.000712865266051,0.00071214090974,0.000711359983285,0.000710530948555,0.000709656545523,0.000708738748643,0.000707777477197,0.000706771968294,0.00070572452158,0.000704637054565,0.000703507967421,0.000702333256621,0.000701116279962,0.000699855935523,0.000698553898148,0.000697202846488,0.000695796721988,0.00069433707792,0.000692823538695,0.000691258558558,0.000689644227519,0.000687984280872,0.000686283087395,0.00068453667414,0.000682744628453,0.00068091560247,0.00067905499595,0.000677158429193,0.000675225799527,0.000673253657381,0.000671241714583,0.0006691946485,0.000667106196461,0.00066498566191,0.000662829045914,0.000660631386809,0.000658390973652,0.000656111033714,0.000653790651778,0.000651431127287,0.000649031426184,0.000646588703907,0.000644104183929,0.000641577297276,0.000639003447369,0.000636392643701,0.000633744998195,0.000631058423186,0.000628338182538,0.000625590256469,0.000622814458753,0.000620009796287,0.000617181569038,0.00061432577841,0.000611450031025,0.000608550977853,0.000605625973767,0.000602680612889,0.000599708919871,0.000596705883749,0.000593671920202,0.000590608601926,0.000587513704221,0.000584381504131,0.000581209587304,0.000577991873032,0.000574731478124,0.000571423324004,0.000568069717257,0.000564677270462,0.000561242760517,0.000557768374743,0.000554252903014,0.000550706535678,0.000547130397719,0.000543523165665,0.000539884549771,0.000536214536096,0.000532513606777,0.000528778626435,0.000525014384197,0.000521220907289,0.000517396717715,0.00051354075661,0.00050965518102,0.000505743926616,0.000501812898504,0.000497872958849,0.000493925581334,0.00048997183888,0.000486008432661,0.000482029860332,0.000478041179732,0.000474046385994,0.000470039474941,0.000466019836754,0.00046198414295,0.000457922082255,0.000453826726514,0.000449696493965,0.000445534164283,0.000441344119251,0.000437122269155,0.000432864643827,0.00042857194771,0.000424249184879,0.000419893074255,0.000415507924024,0.00041110440339,0.000406679211715,0.000402234841878,0.000397771885186,0.00039329494825,0.000388808077614,0.000384315731231,0.000379813368554,0.000375304172528,0.000370788797302,0.000366266604955,0.000361734454197,0.000357198956538,0.000352655502029,0.000348100402547,0.00034353049796,0.00033894525318,0.000334345752667,0.000329731869185,0.000325102563672,0.00032045427285,0.000315789312726,0.000311100599122,0.000306388459764,0.000301658768684,0.000296914884619,0.000292154348263,0.000287381891653,0.000282595808006,0.000277801814551,0.000273005400649,0.000268210008652,0.000263417860416,0.000258639712566,0.000253874715314,0.000249115355173,0.000244364663407,0.000239624678008,0.000234890982569,0.000230166705489,0.000225443627293,0.000220717022006,0.000215986191244,0.000211245536617,0.000206497218321,0.000201744833291,0.000196992747633,0.000192237361555,0.000187481223884,0.00018272055945,0.000177953103275,0.000173185969049,0.000168416801571,0.000163651556978,0.00015888742958,0.000154120307572,0.000149349745307,0.000144576159497,0.000139803893912,0.000135029102493,0.000130261173427,0.000125499372651,0.000120742507118,0.000115994947081,0.000111252274606,0.000106520454325,0.000101796576007,9.7073974083e-05,9.23558093927e-05,8.76462775409e-05,8.29441860111e-05,7.82519500215e-05,7.35746063569e-05,6.89055543309e-05,6.42501520785e-05,5.96080340807e-05,5.49785577995e-05,5.03732639695e-05,4.57965163452e-05,4.12452278126e-05,3.67147698585e-05,3.22082013456e-05,2.77243674092e-05,2.3260180009e-05,1.8818222987e-05,1.43915482965e-05,9.98687001244e-06,5.59663464503e-06,1.21120414629e-06,-3.17026787625e-06,-7.54688832311e-06,-1.19210838948e-05,-1.6293772029e-05,-2.06622627385e-05,-2.50291793339e-05,-2.9388231231e-05,-3.37364600567e-05,-3.80730055752e-05,-4.23871744586e-05,-4.66764850452e-05,-5.09341450662e-05,-5.51601083522e-05,-5.93504362549e-05,-6.35113048586e-05,-6.76385817529e-05,-7.17332773467e-05,-7.58005547471e-05,-7.98430807872e-05,-8.38646833299e-05,-8.78699900832e-05,-9.18569912448e-05,-9.58252805835e-05,-9.97783033616e-05,-0.000103713472998,-0.000107626045928,-0.000111518616853,-0.000115389483588,-0.00011923191343,-0.000123045081692,-0.000126831989625,-0.000130597066404,-0.000134347123595,-0.000138074709183,-0.000141773302366,-0.000145449884942,-0.000149102087621,-0.000152732200971,-0.000156346094221,-0.000159945014109,-0.000163523173493,-0.000167072402452,-0.000170581560918,-0.000174054597191,-0.000177506920935,-0.000180934662623,-0.000184337002593,-0.000187709289545,-0.000191051489864,-0.000194352884962,-0.000197618773242,-0.000200858642992,-0.0002040813564,-0.000207293860782,-0.000210479384005,-0.000213640642144,-0.000216782715418,-0.00021991019417,-0.000223023525772,-0.000226132594658,-0.000229234624803,-0.000232319474263,-0.000235382828036,-0.000238417567726,-0.000241423234377,-0.000244400589959,-0.000247343601995,-0.000250246185034,-0.000253102489676,-0.000255915656766,-0.000258681972601,-0.000261409333473,-0.000264104113892,-0.000266758876752,-0.000269381731723,-0.000271981542419,-0.000274557917725,-0.000277114485497,-0.000279654257878,-0.000282175247342,-0.000284679016389,-0.000287161178684,-0.000289619137434,-0.000292063388037,-0.000294491610854,-0.00029689600464,-0.000299269657943,-0.000301617271683,-0.00030393945341,-0.000306236330432,-0.000308501317643,-0.000310738402123,-0.000312945787137,-0.000315122091466,-0.00031726320155,-0.000319371092033,-0.00032144980347,-0.000323497531525,-0.000325508076815,-0.000327480704295,-0.00032925701085,-0.000330682523282,-0.000331754375835,-0.000332469202975,-0.000332830474386)
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(285)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('Felis_catus-female-liver-H3K4me3-ERR572244.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) : 285',bty='n')
dev.off()