# R script for Peak Model
#  -- generated by MACS
p <- c(0.0397169697145,0.046876251809,0.053865074806,0.0603425205105,0.0681836389949,0.0686950162874,0.0702291481648,0.0693768526773,0.0698882299698,0.0690359344823,0.0700586890673,0.0697177708723,0.0698882299698,0.0697177708723,0.0680131798974,0.0669904253125,0.0652858343376,0.0654562934351,0.0656267525326,0.0659676707276,0.0669904253125,0.067501802605,0.066819966215,0.0681836389949,0.0681836389949,0.0695473117748,0.0690359344823,0.0690359344823,0.0680131798974,0.0680131798974,0.066819966215,0.06716088441,0.06647904802,0.0656267525326,0.0657972116301,0.0659676707276,0.0657972116301,0.0663085889225,0.0652858343376,0.0654562934351,0.0654562934351,0.0649449161426,0.0659676707276,0.0659676707276,0.0676722617024,0.0680131798974,0.0697177708723,0.0698882299698,0.0719337391396,0.0732974119195,0.0744906256019,0.073126952822,0.073808789212,0.0755133801869,0.0758542983818,0.0767065938693,0.0767065938693,0.0767065938693,0.0770475120642,0.0765361347718,0.0748315437969,0.0756838392843,0.074149707407,0.0724451164321,0.0727860346271,0.0715928209447,0.0697177708723,0.0700586890673,0.0703996072622,0.0688654753849,0.0673313435075,0.0683540980924,0.0690359344823,0.0676722617024,0.0663085889225,0.0657972116301,0.0666495071175,0.0652858343376,0.0642630797527,0.0642630797527,0.0657972116301,0.0651153752401,0.0644335388502,0.0651153752401,0.0661381298251,0.0657972116301,0.0669904253125,0.0659676707276,0.0639221615577,0.0639221615577,0.0640926206552,0.0639221615577,0.0652858343376,0.0656267525326,0.0642630797527,0.0651153752401,0.0640926206552,0.0663085889225,0.0700586890673,0.0705700663597,0.0707405254572,0.0714223618472,0.0698882299698,0.0709109845547,0.0712519027497,0.0697177708723,0.0705700663597,0.0692063935798,0.0678427207999,0.0686950162874,0.0702291481648,0.0697177708723,0.0719337391396,0.0714223618472,0.0715928209447,0.0727860346271,0.0712519027497,0.0715928209447,0.0721041982371,0.0721041982371,0.0705700663597,0.0703996072622,0.0686950162874,0.0686950162874,0.0678427207999,0.0692063935798,0.0705700663597,0.0715928209447,0.0709109845547,0.0712519027497,0.0729564937245,0.073126952822,0.073808789212,0.0732974119195,0.0732974119195,0.0714223618472,0.0721041982371,0.0702291481648,0.0688654753849,0.0676722617024,0.0651153752401,0.0654562934351,0.0656267525326,0.0663085889225,0.06647904802,0.0656267525326,0.0652858343376,0.0652858343376,0.0657972116301,0.0663085889225,0.0676722617024,0.0661381298251,0.0649449161426,0.0649449161426,0.0644335388502,0.0646039979477,0.0635812433627,0.0649449161426,0.0652858343376,0.0656267525326,0.0651153752401,0.0644335388502,0.0651153752401,0.0657972116301,0.0652858343376,0.0656267525326,0.0666495071175,0.0663085889225,0.0666495071175,0.0663085889225,0.06647904802,0.0681836389949,0.0683540980924,0.0688654753849,0.0700586890673,0.0709109845547,0.0709109845547,0.0710814436522,0.0709109845547,0.0703996072622,0.0702291481648,0.0692063935798,0.0695473117748,0.0693768526773,0.0698882299698,0.0710814436522,0.0698882299698,0.0698882299698,0.0698882299698,0.0695473117748,0.0693768526773,0.0695473117748,0.0702291481648,0.0721041982371,0.0710814436522,0.0719337391396,0.0732974119195,0.0750020028944,0.0760247574793,0.0792634803316,0.0814794485989,0.0831840395738,0.0825022031838,0.079774857624,0.080115775819,0.0782407257467,0.0787521030391,0.0770475120642,0.0770475120642,0.0736383301145,0.0717632800421,0.073467871017,0.0732974119195,0.0732974119195,0.0736383301145,0.0746610846994,0.073126952822,0.0729564937245,0.0717632800421,0.0726155755296,0.0724451164321,0.0705700663597,0.0715928209447,0.0714223618472,0.0715928209447,0.0712519027497,0.0721041982371,0.074149707407,0.0743201665044,0.0746610846994,0.0751724619919,0.0750020028944,0.074149707407,0.074149707407,0.0729564937245,0.0732974119195,0.073467871017,0.0729564937245,0.073808789212,0.074149707407,0.0753429210894,0.0746610846994,0.0739792483095,0.0760247574793,0.0770475120642,0.0756838392843,0.0760247574793,0.0758542983818,0.0760247574793,0.0756838392843,0.0768770529668,0.0753429210894,0.0753429210894,0.0726155755296,0.0724451164321,0.073126952822,0.0726155755296,0.0732974119195,0.0727860346271,0.0726155755296,0.0710814436522,0.0724451164321,0.074149707407,0.0744906256019,0.0750020028944,0.0746610846994,0.0750020028944,0.0751724619919,0.0753429210894,0.0768770529668,0.0768770529668,0.0778998075517,0.0768770529668,0.0768770529668,0.0746610846994,0.0746610846994,0.0755133801869,0.0743201665044,0.074149707407,0.0715928209447,0.0715928209447,0.0714223618472,0.0721041982371,0.0729564937245,0.074149707407,0.0732974119195,0.0721041982371,0.0717632800421,0.0705700663597,0.0702291481648,0.0695473117748,0.0702291481648,0.0695473117748,0.0685245571899,0.0705700663597,0.0717632800421,0.0724451164321,0.0732974119195,0.073126952822,0.0750020028944,0.0739792483095,0.0727860346271,0.0719337391396,0.073467871017,0.0732974119195,0.0739792483095,0.073808789212,0.0750020028944,0.0777293484542,0.0784111848441,0.080456694014,0.0823317440863,0.0840363350612,0.0821612849889,0.0823317440863,0.0836954168662,0.0857409260361,0.0850590896461,0.0852295487436,0.0869341397185,0.087445517011,0.0872750579135,0.087104598816,0.0888091897909,0.0879568943034,0.0872750579135,0.0845477123537,0.0843772532562,0.0840363350612,0.0836954168662,0.0823317440863,0.0814794485989,0.0814794485989,0.0811385304039,0.0826726622813,0.0819908258914,0.0831840395738,0.0836954168662,0.0840363350612,0.0828431213788,0.0842067941587,0.0848886305487,0.0848886305487,0.0854000078411,0.0836954168662,0.0848886305487,0.0835249577688,0.0814794485989,0.0814794485989,0.080797612209,0.0787521030391,0.0811385304039,0.0813089895014,0.0826726622813,0.0831840395738,0.0825022031838,0.0836954168662,0.0852295487436,0.0843772532562,0.0854000078411,0.086422762426,0.0852295487436,0.0862523033286,0.0855704669386,0.0860818442311,0.0857409260361,0.0855704669386,0.0862523033286,0.086763680621,0.0857409260361,0.0857409260361,0.0847181714512,0.0845477123537,0.0840363350612,0.0855704669386,0.0852295487436,0.0859113851336,0.0854000078411,0.0850590896461,0.0865932215235,0.0879568943034,0.0872750579135,0.0876159761085,0.0886387306934,0.0886387306934,0.087445517011,0.0882978124984,0.0879568943034,0.0908546989607,0.0900024034733,0.0881273534009,0.0877864352059,0.0877864352059,0.0860818442311,0.0843772532562,0.0879568943034,0.0869341397185,0.0882978124984,0.0860818442311,0.0865932215235,0.0879568943034,0.0903433216682,0.0900024034733,0.0915365353507,0.0920479126431,0.0906842398632,0.0906842398632,0.0891501079858,0.0889796488884,0.0889796488884,0.0882978124984,0.0882978124984,0.0894910261808,0.0889796488884,0.0876159761085,0.0896614852783,0.0881273534009,0.0886387306934,0.0889796488884,0.0876159761085,0.0891501079858,0.0877864352059,0.0855704669386,0.0862523033286,0.0886387306934,0.0854000078411,0.0857409260361,0.0848886305487,0.0842067941587,0.086763680621,0.0869341397185,0.0877864352059,0.0886387306934,0.0901728625708,0.0901728625708,0.0913660762532,0.0927297490331,0.0951161763979,0.0963093900803,0.0954570945929,0.0947752582029,0.0942638809105,0.0942638809105,0.0920479126431,0.0891501079858,0.0906842398632,0.0910251580582,0.0898319443758,0.0896614852783,0.0891501079858,0.0898319443758,0.0884682715959,0.0898319443758,0.0898319443758,0.0929002081306,0.0922183717406,0.0920479126431,0.0923888308381,0.0932411263255,0.0939229627155,0.0942638809105,0.0963093900803,0.0946047991054,0.0971616855677,0.0968207673728,0.0956275536904,0.0954570945929,0.0959684718853,0.0946047991054,0.0959684718853,0.0959684718853,0.0971616855677,0.100229949323,0.0986958174451,0.100741326615,0.102786835785,0.105514181345,0.106025558637,0.107900608709,0.10653693593,0.109264281489,0.109775658782,0.109093822392,0.111309790659,0.109775658782,0.111480249757,0.111650708854,0.112162086147,0.112332545244,0.114207595316,0.113696218024,0.114378054414,0.116082645389,0.115912186291,0.116594022681,0.114378054414,0.116764481779,0.118298613656,0.118298613656,0.117275859071,0.118469072754,0.117957695461,0.117446318169,0.116934940876,0.117446318169,0.118809990949,0.116423563584,0.114378054414,0.116934940876,0.117446318169,0.114548513511,0.114207595316,0.115230349901,0.115912186291,0.117446318169,0.118469072754,0.120173663729,0.124264682068,0.124605600263,0.12750340492,0.129378454993,0.130742127773,0.131423964163,0.131764882358,0.133469473333,0.137560491672,0.135855900697,0.135174064307,0.136196818892,0.135174064307,0.13841278716,0.139606000842,0.139606000842,0.141992428207,0.140628755427,0.138242328062,0.13977645994,0.140799214524,0.139606000842,0.139265082647,0.138924164452,0.141310591817,0.141651510012,0.144378855572,0.145231151059,0.146424364742,0.149151710301,0.150515383081,0.149492628496,0.151367678569,0.151197219471,0.151026760374,0.151879055861,0.150685842179,0.150856301276,0.149492628496,0.149833546691,0.148640333009,0.150174464886,0.150856301276,0.151708596764,0.151026760374,0.151708596764,0.151367678569,0.153754105934,0.155117778713,0.154265483226,0.156481451493,0.154947319616,0.154606401421,0.151879055861,0.149663087594,0.148981251204,0.147447119326,0.146765282937,0.146594823839,0.145742528352,0.141992428207,0.144037937377,0.143015182792,0.143356100987,0.145231151059,0.145231151059,0.145572069254,0.142503805499,0.143185641889,0.143867478279,0.144378855572,0.145742528352,0.146935742034,0.148810792106,0.151026760374,0.150004005789,0.149492628496,0.151197219471,0.147447119326,0.146424364742,0.144719773767,0.141310591817,0.136708196185,0.13500360521,0.131764882358,0.130401209578,0.12818524131,0.125798813946,0.126139732141,0.124094222971,0.124946518458,0.124946518458,0.125116977556,0.122048713801,0.120685041021,0.119662286436,0.120173663729,0.117787236364,0.116594022681,0.114548513511,0.111480249757,0.111821167952,0.111991627049,0.112673463439,0.111309790659,0.109946117879,0.108923363294,0.110968872464,0.109264281489,0.109264281489,0.109434740587,0.105002804052,0.10312775398,0.101252703907,0.100911785712,0.10108224481,0.0993776538351,0.0975026037627,0.0971616855677,0.0963093900803,0.093070667228,0.0917069944481,0.0929002081306,0.0918774535456,0.0901728625708,0.0898319443758,0.0891501079858,0.087104598816,0.0860818442311,0.0869341397185,0.0893205670833,0.0906842398632,0.0901728625708,0.0915365353507,0.0906842398632,0.0901728625708,0.0896614852783,0.093752503618,0.0951161763979,0.093411585423,0.094093421813,0.0949457173004,0.0942638809105,0.0947752582029,0.0957980127878,0.0957980127878,0.0964798491778,0.0952866354954,0.0968207673728,0.0978435219577,0.0961389309828,0.0980139810552,0.0963093900803,0.0946047991054,0.0952866354954,0.0951161763979,0.0964798491778,0.0956275536904,0.094093421813,0.0956275536904,0.0980139810552,0.0957980127878,0.0976730628602,0.0993776538351,0.0976730628602,0.0973321446652,0.0947752582029,0.0952866354954,0.0946047991054,0.0932411263255,0.0911956171557,0.0901728625708,0.0894910261808,0.0881273534009,0.0869341397185,0.0859113851336,0.0859113851336,0.0828431213788,0.0823317440863,0.0796043985266,0.0789225621366,0.0799453167215,0.0796043985266,0.0792634803316,0.0811385304039,0.0813089895014,0.079774857624,0.0816499076964,0.0833544986713,0.0865932215235,0.0886387306934,0.0876159761085,0.0896614852783,0.0918774535456,0.0922183717406,0.094093421813,0.0951161763979,0.0939229627155,0.093411585423,0.0917069944481,0.0903433216682,0.0896614852783,0.0901728625708,0.087445517011,0.0855704669386,0.0845477123537,0.0836954168662,0.0833544986713,0.0814794485989,0.0802862349165,0.0811385304039,0.0809680713064,0.0767065938693,0.0775588893567,0.0784111848441,0.079774857624,0.0823317440863,0.0836954168662,0.0855704669386,0.0862523033286,0.0847181714512,0.0852295487436,0.0886387306934,0.0888091897909,0.0896614852783,0.0881273534009,0.087445517011,0.0859113851336,0.0855704669386,0.0854000078411,0.0859113851336,0.0857409260361,0.0850590896461,0.0845477123537,0.0823317440863,0.0809680713064,0.0794339394291,0.0796043985266,0.0784111848441,0.0775588893567,0.0767065938693,0.0770475120642,0.0773884302592,0.0753429210894,0.0760247574793,0.0760247574793,0.0775588893567,0.0755133801869,0.0748315437969,0.0739792483095,0.0746610846994,0.0755133801869,0.0743201665044,0.0748315437969,0.0755133801869,0.0756838392843,0.0732974119195,0.073467871017,0.0726155755296,0.074149707407,0.0732974119195,0.0712519027497,0.0688654753849,0.0690359344823,0.0673313435075,0.0676722617024,0.0683540980924,0.0709109845547,0.073126952822,0.073126952822,0.0719337391396,0.0722746573346,0.0746610846994,0.0760247574793,0.0765361347718,0.0750020028944,0.0758542983818,0.0748315437969,0.0743201665044,0.074149707407,0.0750020028944,0.0756838392843,0.0750020028944,0.0732974119195,0.073808789212,0.073467871017,0.074149707407,0.0727860346271,0.0715928209447,0.0707405254572,0.0717632800421,0.0722746573346,0.0724451164321,0.073467871017,0.0736383301145,0.0753429210894,0.0751724619919,0.0758542983818,0.0761952165768,0.0770475120642,0.0753429210894,0.0744906256019,0.073808789212,0.0732974119195,0.0724451164321,0.073808789212,0.0726155755296,0.073467871017,0.0724451164321,0.0721041982371,0.0717632800421,0.0703996072622,0.0714223618472,0.0710814436522,0.0697177708723,0.0676722617024,0.0669904253125,0.0676722617024,0.0673313435075,0.0673313435075,0.0690359344823,0.0698882299698,0.0692063935798,0.0705700663597,0.073126952822,0.073126952822,0.074149707407,0.0748315437969,0.0767065938693,0.0790930212341,0.0790930212341,0.0794339394291,0.080456694014,0.0796043985266,0.0778998075517,0.0787521030391,0.0796043985266,0.0785816439416,0.0770475120642,0.0756838392843,0.0756838392843,0.0777293484542,0.0768770529668,0.0773884302592,0.080456694014,0.080115775819,0.0794339394291,0.0794339394291,0.0809680713064,0.0794339394291,0.0794339394291,0.0784111848441,0.0794339394291,0.0778998075517,0.0772179711617,0.0782407257467,0.0782407257467,0.0765361347718,0.0758542983818,0.0746610846994,0.0756838392843,0.0750020028944,0.0736383301145,0.0739792483095,0.0732974119195,0.0717632800421,0.0722746573346,0.0743201665044,0.0750020028944,0.0775588893567,0.0784111848441,0.0787521030391,0.0809680713064,0.080456694014,0.0806271531115,0.0814794485989,0.0794339394291,0.0770475120642,0.0758542983818,0.0760247574793,0.073808789212,0.073126952822,0.0724451164321,0.0726155755296,0.0714223618472,0.0703996072622,0.0698882299698,0.0717632800421,0.0707405254572,0.0692063935798,0.0673313435075,0.0673313435075,0.0661381298251,0.0644335388502,0.0637517024602,0.0640926206552,0.0657972116301,0.0661381298251,0.0688654753849,0.0692063935798,0.0702291481648,0.0686950162874,0.0673313435075,0.0695473117748,0.0703996072622,0.0703996072622,0.0700586890673,0.0700586890673,0.0678427207999,0.0673313435075,0.0683540980924,0.0698882299698,0.0721041982371,0.0719337391396,0.0727860346271,0.0732974119195,0.074149707407,0.0732974119195,0.0753429210894,0.0753429210894,0.0755133801869,0.0756838392843,0.0743201665044,0.073467871017,0.073467871017,0.0722746573346,0.0724451164321,0.0715928209447,0.0721041982371,0.0726155755296,0.0724451164321,0.0721041982371,0.0719337391396,0.0714223618472,0.0690359344823,0.0690359344823,0.06716088441,0.0676722617024,0.06716088441,0.0680131798974,0.06716088441,0.066819966215,0.06716088441,0.0673313435075,0.0688654753849,0.0697177708723,0.0714223618472,0.0722746573346,0.0715928209447,0.0698882299698,0.0703996072622,0.0705700663597,0.0700586890673,0.0726155755296,0.0726155755296,0.0721041982371,0.0727860346271,0.0727860346271,0.0726155755296,0.0748315437969,0.0758542983818,0.0765361347718,0.0772179711617,0.0758542983818,0.0758542983818,0.0761952165768,0.0765361347718,0.0753429210894,0.0743201665044,0.0736383301145,0.0724451164321,0.0717632800421,0.0714223618472,0.0715928209447,0.0721041982371,0.0714223618472,0.0710814436522,0.0705700663597,0.0710814436522,0.0690359344823,0.0695473117748,0.0698882299698,0.0714223618472,0.0727860346271,0.0703996072622,0.0710814436522,0.0709109845547,0.0712519027497,0.0715928209447,0.0736383301145,0.0732974119195,0.0714223618472,0.0703996072622,0.0693768526773,0.0707405254572,0.0698882299698,0.0683540980924,0.0692063935798,0.0686950162874,0.0678427207999,0.0686950162874,0.0697177708723,0.0688654753849,0.0695473117748,0.0695473117748,0.0702291481648,0.0693768526773,0.0690359344823,0.0697177708723,0.0705700663597,0.0709109845547,0.0707405254572,0.0710814436522,0.0693768526773,0.0678427207999,0.0676722617024,0.0683540980924,0.067501802605,0.0666495071175,0.0652858343376,0.0637517024602,0.0642630797527,0.0647744570452,0.0652858343376,0.0673313435075,0.0673313435075,0.0678427207999,0.0683540980924,0.0693768526773,0.0698882299698,0.0697177708723,0.0690359344823,0.0680131798974,0.0676722617024,0.0680131798974,0.0680131798974,0.0669904253125,0.0661381298251,0.0651153752401,0.0630698660703,0.0637517024602,0.0644335388502,0.0642630797527,0.0634107842653,0.0615357341929,0.0600016023155,0.0600016023155,0.0594902250231,0.0610243569004,0.0620471114854,0.0610243569004,0.0610243569004,0.0613652750954,0.0632403251678,0.0651153752401,0.06647904802,0.0669904253125,0.067501802605,0.0654562934351,0.0651153752401,0.0676722617024,0.0673313435075,0.0666495071175,0.0651153752401,0.0642630797527,0.0623880296803,0.0634107842653,0.0642630797527,0.0654562934351,0.0666495071175,0.0632403251678,0.0634107842653,0.0647744570452,0.0640926206552,0.0661381298251,0.0688654753849,0.0678427207999,0.067501802605,0.0661381298251,0.066819966215,0.0683540980924,0.0680131798974,0.0651153752401,0.0669904253125,0.0647744570452,0.0642630797527,0.0640926206552,0.0642630797527,0.0652858343376,0.0651153752401,0.0642630797527,0.0640926206552,0.0651153752401,0.0647744570452,0.0637517024602,0.0623880296803,0.0627289478753,0.0618766523879,0.0610243569004,0.060853897803,0.0622175705829,0.0642630797527,0.0661381298251,0.0656267525326,0.0683540980924,0.0703996072622,0.0702291481648,0.0721041982371,0.0726155755296,0.073808789212,0.0739792483095,0.073126952822,0.0743201665044,0.0750020028944,0.073126952822,0.0732974119195,0.0732974119195,0.0732974119195,0.0727860346271,0.0710814436522,0.0695473117748,0.0676722617024,0.0661381298251,0.0661381298251,0.06716088441,0.0663085889225,0.06716088441,0.0666495071175,0.0659676707276,0.0666495071175,0.0680131798974,0.0715928209447,0.0721041982371,0.0721041982371,0.0724451164321,0.0714223618472,0.0714223618472,0.073126952822,0.0760247574793,0.0765361347718,0.0760247574793,0.0739792483095,0.0743201665044,0.0760247574793,0.0739792483095,0.0748315437969,0.073467871017,0.0719337391396,0.0693768526773,0.0678427207999,0.0697177708723,0.0702291481648,0.0698882299698,0.0666495071175,0.0673313435075,0.0669904253125,0.0676722617024,0.0681836389949,0.0697177708723,0.0707405254572,0.0681836389949,0.0663085889225,0.0652858343376,0.0657972116301,0.0659676707276,0.0676722617024,0.0688654753849,0.0678427207999,0.0680131798974,0.066819966215,0.0678427207999,0.0693768526773,0.0693768526773,0.0695473117748,0.0695473117748,0.0685245571899,0.0666495071175,0.0680131798974,0.0680131798974,0.0692063935798,0.0688654753849,0.0695473117748,0.0709109845547,0.0722746573346,0.0726155755296,0.0722746573346,0.0719337391396,0.0707405254572,0.0695473117748,0.0623880296803,0.0553992066834,0.0475580881989,0.039887428812,0.0)
m <- c(0.0392465935559,0.0466153417337,0.0523821881338,0.0592703657783,0.0671196844894,0.0682410157339,0.0664789237783,0.0661585434228,0.0669594943116,0.0687215862672,0.0700031076894,0.0682410157339,0.0708040585783,0.070323488045,0.0690419666228,0.0690419666228,0.0696827273339,0.070323488045,0.0706438684006,0.0695225371561,0.0685613960894,0.070323488045,0.0687215862672,0.0693623469783,0.0687215862672,0.0692021568006,0.0672798746672,0.0677604452005,0.067440064845,0.0680808255561,0.0692021568006,0.0696827273339,0.070323488045,0.0693623469783,0.0704836782228,0.0712846291117,0.0724059603561,0.0724059603561,0.0712846291117,0.0708040585783,0.0716050094672,0.0714448192895,0.0714448192895,0.0719253898228,0.0706438684006,0.0700031076894,0.0724059603561,0.0720855800006,0.0725661505339,0.0724059603561,0.0709642487561,0.0704836782228,0.0708040585783,0.0704836782228,0.0722457701784,0.0727263407117,0.0704836782228,0.0709642487561,0.0708040585783,0.0708040585783,0.0695225371561,0.0696827273339,0.0701632978672,0.0712846291117,0.0714448192895,0.0714448192895,0.0727263407117,0.073206911245,0.0733671014228,0.0741680523117,0.0756097639117,0.0760903344451,0.0754495737339,0.0744884326673,0.0740078621339,0.0748088130228,0.0725661505339,0.0716050094672,0.0724059603561,0.0725661505339,0.0725661505339,0.0727263407117,0.0727263407117,0.0735272916006,0.0738476719561,0.0708040585783,0.0716050094672,0.0722457701784,0.0727263407117,0.0714448192895,0.0704836782228,0.068881776445,0.0682410157339,0.0677604452005,0.0664789237783,0.0677604452005,0.0661585434228,0.0643964514672,0.0623139791561,0.0618334086227,0.0623139791561,0.0618334086227,0.0626343595116,0.0629547398672,0.0648770220005,0.0643964514672,0.067440064845,0.0672798746672,0.067440064845,0.0692021568006,0.0687215862672,0.0696827273339,0.0680808255561,0.067440064845,0.0643964514672,0.0643964514672,0.0635955005783,0.0643964514672,0.0655177827116,0.0642362612894,0.0647168318227,0.0648770220005,0.0656779728894,0.0653575925339,0.0666391139561,0.0685613960894,0.0684012059117,0.0687215862672,0.0706438684006,0.0709642487561,0.0711244389339,0.0711244389339,0.0728865308895,0.0741680523117,0.0749690032006,0.0730467210673,0.073206911245,0.0743282424895,0.0727263407117,0.0733671014228,0.0736874817784,0.0738476719561,0.073206911245,0.0725661505339,0.073206911245,0.0736874817784,0.0736874817784,0.0720855800006,0.0706438684006,0.0701632978672,0.070323488045,0.070323488045,0.0708040585783,0.0704836782228,0.0690419666228,0.0708040585783,0.0706438684006,0.0720855800006,0.0728865308895,0.073206911245,0.0730467210673,0.071765199645,0.0695225371561,0.0711244389339,0.0725661505339,0.0720855800006,0.0728865308895,0.0733671014228,0.0741680523117,0.0733671014228,0.0740078621339,0.0748088130228,0.0751291933784,0.0738476719561,0.074648622845,0.0749690032006,0.0749690032006,0.0740078621339,0.0759301442673,0.0768912853339,0.0756097639117,0.0773718558673,0.078332996934,0.0794543281784,0.078332996934,0.0764107148006,0.0765709049784,0.0752893835562,0.0725661505339,0.0733671014228,0.0722457701784,0.0719253898228,0.071765199645,0.0719253898228,0.071765199645,0.0735272916006,0.0722457701784,0.0727263407117,0.0728865308895,0.0706438684006,0.0724059603561,0.0714448192895,0.0704836782228,0.0700031076894,0.0690419666228,0.0684012059117,0.0682410157339,0.0693623469783,0.0709642487561,0.0727263407117,0.0727263407117,0.0727263407117,0.0727263407117,0.0727263407117,0.0751291933784,0.0749690032006,0.0762505246228,0.0762505246228,0.0752893835562,0.0764107148006,0.0759301442673,0.0757699540895,0.0760903344451,0.0757699540895,0.0752893835562,0.0754495737339,0.0751291933784,0.0748088130228,0.0749690032006,0.0727263407117,0.0727263407117,0.0719253898228,0.0714448192895,0.0724059603561,0.068881776445,0.0679206353783,0.0655177827116,0.0653575925339,0.0642362612894,0.0643964514672,0.0627945496894,0.0624741693338,0.0621537889783,0.060872267556,0.0629547398672,0.0634353104005,0.0664789237783,0.0667993041339,0.0663187336005,0.0676002550228,0.0704836782228,0.071765199645,0.0730467210673,0.0730467210673,0.0727263407117,0.0716050094672,0.0696827273339,0.068881776445,0.0696827273339,0.0690419666228,0.067440064845,0.0676002550228,0.0651974023561,0.0658381630672,0.0656779728894,0.0664789237783,0.0676002550228,0.0672798746672,0.0677604452005,0.0684012059117,0.0695225371561,0.0698429175117,0.0727263407117,0.0720855800006,0.0720855800006,0.0722457701784,0.071765199645,0.0722457701784,0.071765199645,0.0716050094672,0.0716050094672,0.0714448192895,0.0722457701784,0.0735272916006,0.0744884326673,0.074648622845,0.0748088130228,0.0744884326673,0.074648622845,0.0740078621339,0.0733671014228,0.0733671014228,0.0722457701784,0.0716050094672,0.0719253898228,0.0730467210673,0.0748088130228,0.0756097639117,0.0765709049784,0.0784931871117,0.0802552790673,0.0805756594229,0.0804154692451,0.0804154692451,0.0807358496006,0.0799348987118,0.0778524264006,0.0768912853339,0.0767310951562,0.0749690032006,0.0720855800006,0.0722457701784,0.070323488045,0.071765199645,0.0700031076894,0.0698429175117,0.0695225371561,0.0706438684006,0.0709642487561,0.0712846291117,0.071765199645,0.0712846291117,0.0741680523117,0.0730467210673,0.0738476719561,0.0764107148006,0.0760903344451,0.0773718558673,0.0756097639117,0.0743282424895,0.0748088130228,0.0733671014228,0.0730467210673,0.0722457701784,0.0728865308895,0.0682410157339,0.0696827273339,0.0677604452005,0.0677604452005,0.0687215862672,0.0687215862672,0.0692021568006,0.0682410157339,0.0690419666228,0.0680808255561,0.0692021568006,0.0698429175117,0.0711244389339,0.0728865308895,0.0727263407117,0.0744884326673,0.0757699540895,0.0743282424895,0.0730467210673,0.073206911245,0.0743282424895,0.0727263407117,0.0716050094672,0.0698429175117,0.0692021568006,0.0671196844894,0.0658381630672,0.0680808255561,0.0679206353783,0.0679206353783,0.0671196844894,0.0676002550228,0.0672798746672,0.0669594943116,0.0680808255561,0.068881776445,0.0704836782228,0.0711244389339,0.0719253898228,0.0709642487561,0.0712846291117,0.0722457701784,0.0727263407117,0.0738476719561,0.0752893835562,0.0760903344451,0.0759301442673,0.0738476719561,0.0738476719561,0.0764107148006,0.0778524264006,0.0767310951562,0.0789737576451,0.0802552790673,0.0781728067562,0.0776922362228,0.078332996934,0.0799348987118,0.0800950888895,0.0786533772895,0.0792941380006,0.0804154692451,0.0791339478229,0.0781728067562,0.0791339478229,0.0796145183562,0.0791339478229,0.0799348987118,0.0796145183562,0.0802552790673,0.0799348987118,0.0788135674673,0.0799348987118,0.079774708534,0.0802552790673,0.0796145183562,0.0791339478229,0.0776922362228,0.0794543281784,0.0794543281784,0.0784931871117,0.0802552790673,0.0792941380006,0.0800950888895,0.0789737576451,0.0796145183562,0.0805756594229,0.0810562299562,0.0799348987118,0.0808960397784,0.0821775612007,0.0823377513784,0.0831387022673,0.0828183219118,0.0853813647562,0.0850609844007,0.0845804138673,0.0844202236896,0.0842600335118,0.0834590826229,0.0829785120896,0.082658131734,0.081216420134,0.0813766103118,0.0796145183562,0.0810562299562,0.0808960397784,0.0815368004895,0.0815368004895,0.081216420134,0.0804154692451,0.0802552790673,0.0800950888895,0.0802552790673,0.0796145183562,0.0772116656895,0.0765709049784,0.0768912853339,0.0773718558673,0.0789737576451,0.0788135674673,0.0794543281784,0.0813766103118,0.0818571808451,0.0834590826229,0.0871434567118,0.0893861192007,0.0890657388452,0.0900268799118,0.0893861192007,0.0895463093785,0.0885851683118,0.0868230763563,0.0842600335118,0.0834590826229,0.0805756594229,0.0786533772895,0.0781728067562,0.0767310951562,0.0776922362228,0.0788135674673,0.0791339478229,0.0796145183562,0.0799348987118,0.079774708534,0.0808960397784,0.0824979415562,0.0828183219118,0.0831387022673,0.0810562299562,0.0808960397784,0.0813766103118,0.0829785120896,0.085541554934,0.0866628861785,0.0850609844007,0.084099843334,0.0852211745785,0.0853813647562,0.0866628861785,0.0863425058229,0.0847406040451,0.084099843334,0.0824979415562,0.0813766103118,0.0829785120896,0.0828183219118,0.0818571808451,0.0824979415562,0.0824979415562,0.081216420134,0.0810562299562,0.0800950888895,0.0818571808451,0.0821775612007,0.081216420134,0.0816969906673,0.0824979415562,0.0820173710229,0.0816969906673,0.0836192728007,0.0842600335118,0.0837794629784,0.0832988924451,0.0845804138673,0.085541554934,0.0858619352896,0.0858619352896,0.0871434567118,0.0858619352896,0.0863425058229,0.0876240272451,0.0887453584896,0.0876240272451,0.0853813647562,0.0868230763563,0.0879444076007,0.0861823156451,0.0836192728007,0.0860221254674,0.085541554934,0.0847406040451,0.0832988924451,0.0837794629784,0.084099843334,0.0824979415562,0.0816969906673,0.0831387022673,0.0847406040451,0.084099843334,0.0828183219118,0.0844202236896,0.0873036468896,0.0877842174229,0.0892259290229,0.0889055486674,0.0871434567118,0.0861823156451,0.0873036468896,0.0873036468896,0.0909880209785,0.0895463093785,0.0877842174229,0.0892259290229,0.0887453584896,0.0898666897341,0.0905074504452,0.0930704932896,0.094992775423,0.0959539164897,0.0945122048896,0.0972354379119,0.0983567691563,0.099317910223,0.0999586709341,0.100599431645,0.101560572712,0.102521713779,0.103002284312,0.102842094134,0.103803235201,0.102361523601,0.103482854845,0.103002284312,0.104443995912,0.104764376268,0.105885707512,0.103803235201,0.102361523601,0.10316247449,0.102041143245,0.102041143245,0.102041143245,0.102201333423,0.102521713779,0.103322664667,0.103322664667,0.105565327156,0.107167228934,0.10892932089,0.109730271779,0.11181274409,0.110531222668,0.111171983379,0.112613694979,0.114535977112,0.115977688712,0.11757959049,0.118060161023,0.117899970845,0.118380541379,0.118540731557,0.122225105645,0.123666817245,0.122064915468,0.120943584223,0.122225105645,0.12190472529,0.122064915468,0.123186246712,0.124627958312,0.127511381512,0.126710430623,0.12911328329,0.131836516312,0.133918988623,0.134239368979,0.136802411823,0.138244123423,0.140166405557,0.140006215379,0.139846025201,0.14208868769,0.141768307334,0.143210018934,0.143210018934,0.143850779646,0.142729448401,0.144491540357,0.144010969823,0.146093442135,0.148976865335,0.150899147468,0.151700098357,0.152340859068,0.154423331379,0.156826184046,0.158588276001,0.157466944757,0.159869797424,0.160991128668,0.158908656357,0.156826184046,0.157146564401,0.156025233157,0.155865042979,0.154263141201,0.154263141201,0.155544662623,0.152981619779,0.152340859068,0.151700098357,0.151059337646,0.14929724569,0.14929724569,0.146894393023,0.145292491246,0.144010969823,0.140006215379,0.139846025201,0.140486785912,0.139846025201,0.140967356446,0.141447926979,0.141768307334,0.142569258223,0.144491540357,0.14353039929,0.14497211089,0.144331350179,0.143049828757,0.141768307334,0.140326595734,0.13920526449,0.137923743068,0.136962602001,0.135360700223,0.133598608268,0.13488012969,0.135040319868,0.132957847557,0.131516135957,0.130394804712,0.130074424357,0.128792902934,0.126710430623,0.125268719023,0.124307577957,0.121103774401,0.120142633334,0.119662062801,0.118220351201,0.116618449423,0.115176737823,0.114856357468,0.114375786934,0.115176737823,0.117899970845,0.118700921734,0.118220351201,0.117739780668,0.120623203868,0.120623203868,0.119501872623,0.119662062801,0.120302823512,0.118380541379,0.115817498534,0.114055406579,0.111011793201,0.109730271779,0.107327419112,0.106526468223,0.105885707512,0.104764376268,0.102041143245,0.10316247449,0.104123615556,0.101880953067,0.102361523601,0.102361523601,0.103963425379,0.104443995912,0.105244946801,0.10460418609,0.10604589769,0.104764376268,0.104443995912,0.106686658401,0.107647799468,0.106366278045,0.104764376268,0.103963425379,0.103482854845,0.102361523601,0.102041143245,0.10172076289,0.0994781004008,0.0991577200452,0.0991577200452,0.0994781004008,0.0994781004008,0.0989975298675,0.0986771495119,0.0986771495119,0.0981965789786,0.0970752477341,0.0973956280897,0.0956335361341,0.0948325852452,0.097876198623,0.0975558182674,0.097876198623,0.0956335361341,0.0961141066674,0.0973956280897,0.0972354379119,0.0980363888008,0.0985169593341,0.0991577200452,0.0956335361341,0.0937112540007,0.0941918245341,0.096434487023,0.0967548673786,0.0959539164897,0.0975558182674,0.0977160084452,0.0991577200452,0.0989975298675,0.0996382905786,0.0989975298675,0.0972354379119,0.0970752477341,0.0954733459563,0.0940316343563,0.093551063823,0.0925899227563,0.0914685915118,0.0900268799118,0.0900268799118,0.0911482111563,0.0925899227563,0.0924297325785,0.0946723950674,0.094992775423,0.0938714441785,0.0906676406229,0.088424978134,0.088424978134,0.0892259290229,0.0897064995563,0.0885851683118,0.0890657388452,0.0874638370674,0.0881045977785,0.0882647879563,0.0900268799118,0.092109352223,0.0927501129341,0.0900268799118,0.0874638370674,0.0881045977785,0.0868230763563,0.085541554934,0.0832988924451,0.0832988924451,0.0824979415562,0.0828183219118,0.0807358496006,0.0818571808451,0.0828183219118,0.0813766103118,0.0818571808451,0.0828183219118,0.0837794629784,0.0810562299562,0.0813766103118,0.0789737576451,0.079774708534,0.0805756594229,0.0810562299562,0.0816969906673,0.0823377513784,0.0820173710229,0.0808960397784,0.0816969906673,0.0805756594229,0.0821775612007,0.0815368004895,0.0805756594229,0.081216420134,0.081216420134,0.0788135674673,0.0791339478229,0.0804154692451,0.0805756594229,0.0820173710229,0.0824979415562,0.084099843334,0.0839396531562,0.0831387022673,0.0842600335118,0.0861823156451,0.0852211745785,0.0858619352896,0.0860221254674,0.0871434567118,0.0850609844007,0.0847406040451,0.0863425058229,0.0873036468896,0.0868230763563,0.0858619352896,0.086983266534,0.0876240272451,0.0881045977785,0.0873036468896,0.0885851683118,0.0879444076007,0.085541554934,0.0850609844007,0.0845804138673,0.0839396531562,0.0821775612007,0.0813766103118,0.0808960397784,0.0796145183562,0.0786533772895,0.0791339478229,0.0796145183562,0.0789737576451,0.0794543281784,0.0794543281784,0.0802552790673,0.0789737576451,0.0818571808451,0.0815368004895,0.0799348987118,0.0781728067562,0.0780126165784,0.0784931871117,0.0764107148006,0.0780126165784,0.0781728067562,0.0778524264006,0.0752893835562,0.0765709049784,0.0781728067562,0.0791339478229,0.079774708534,0.0784931871117,0.0778524264006,0.0751291933784,0.0738476719561,0.0749690032006,0.0748088130228,0.0741680523117,0.0741680523117,0.0740078621339,0.0736874817784,0.0738476719561,0.0740078621339,0.073206911245,0.0730467210673,0.0704836782228,0.0704836782228,0.068881776445,0.0706438684006,0.0706438684006,0.0706438684006,0.0709642487561,0.0704836782228,0.073206911245,0.0744884326673,0.0760903344451,0.0767310951562,0.0791339478229,0.0772116656895,0.0768912853339,0.0754495737339,0.0759301442673,0.0789737576451,0.0765709049784,0.0759301442673,0.0759301442673,0.0754495737339,0.0735272916006,0.073206911245,0.0733671014228,0.074648622845,0.0740078621339,0.0711244389339,0.0720855800006,0.0706438684006,0.0704836782228,0.0698429175117,0.0690419666228,0.0700031076894,0.0696827273339,0.0695225371561,0.068881776445,0.0700031076894,0.0695225371561,0.0698429175117,0.0712846291117,0.0714448192895,0.0741680523117,0.0730467210673,0.073206911245,0.073206911245,0.0741680523117,0.0757699540895,0.0760903344451,0.0762505246228,0.0743282424895,0.0735272916006,0.0730467210673,0.0728865308895,0.0728865308895,0.073206911245,0.0720855800006,0.0701632978672,0.0698429175117,0.0701632978672,0.0706438684006,0.0727263407117,0.0725661505339,0.0733671014228,0.0735272916006,0.0725661505339,0.0757699540895,0.0767310951562,0.0778524264006,0.0775320460451,0.0784931871117,0.0768912853339,0.0768912853339,0.0764107148006,0.0759301442673,0.0780126165784,0.0756097639117,0.0733671014228,0.0725661505339,0.0748088130228,0.0735272916006,0.0744884326673,0.0741680523117,0.0751291933784,0.0757699540895,0.0749690032006,0.0736874817784,0.0751291933784,0.074648622845,0.0738476719561,0.0736874817784,0.0727263407117,0.0720855800006,0.0709642487561,0.0714448192895,0.0708040585783,0.0722457701784,0.0727263407117,0.0733671014228,0.0722457701784,0.073206911245,0.0722457701784,0.0736874817784,0.0751291933784,0.0741680523117,0.0738476719561,0.0751291933784,0.0765709049784,0.0762505246228,0.0764107148006,0.0768912853339,0.0780126165784,0.0768912853339,0.0744884326673,0.074648622845,0.0738476719561,0.0735272916006,0.0720855800006,0.0725661505339,0.073206911245,0.0720855800006,0.0714448192895,0.0722457701784,0.0738476719561,0.0736874817784,0.0740078621339,0.073206911245,0.0735272916006,0.0727263407117,0.0725661505339,0.0727263407117,0.0724059603561,0.0727263407117,0.0720855800006,0.0740078621339,0.0736874817784,0.0736874817784,0.0743282424895,0.0752893835562,0.0748088130228,0.0751291933784,0.0752893835562,0.0741680523117,0.0741680523117,0.0709642487561,0.071765199645,0.0725661505339,0.0709642487561,0.0708040585783,0.0716050094672,0.0712846291117,0.0711244389339,0.0695225371561,0.0693623469783,0.0719253898228,0.071765199645,0.0698429175117,0.0714448192895,0.0701632978672,0.0693623469783,0.0690419666228,0.0709642487561,0.0724059603561,0.0738476719561,0.0724059603561,0.0727263407117,0.0733671014228,0.0719253898228,0.074648622845,0.0756097639117,0.0759301442673,0.0744884326673,0.0749690032006,0.0736874817784,0.0738476719561,0.074648622845,0.0751291933784,0.0738476719561,0.0725661505339,0.0725661505339,0.0736874817784,0.0740078621339,0.0720855800006,0.070323488045,0.0698429175117,0.0684012059117,0.068881776445,0.0712846291117,0.0712846291117,0.0716050094672,0.0701632978672,0.0692021568006,0.0712846291117,0.0744884326673,0.0733671014228,0.0744884326673,0.0727263407117,0.0727263407117,0.0720855800006,0.0720855800006,0.071765199645,0.073206911245,0.0724059603561,0.070323488045,0.0719253898228,0.0722457701784,0.0728865308895,0.0708040585783,0.0709642487561,0.0693623469783,0.070323488045,0.0692021568006,0.0687215862672,0.0677604452005,0.0669594943116,0.0643964514672,0.0639158809338,0.0637556907561,0.0632751202227,0.0632751202227,0.0619935988005,0.0616732184449,0.0623139791561,0.0632751202227,0.0627945496894,0.0639158809338,0.0635955005783,0.0627945496894,0.0624741693338,0.0610324577338,0.0621537889783,0.0627945496894,0.0626343595116,0.0631149300449,0.0640760711116,0.0629547398672,0.064556641645,0.0651974023561,0.0634353104005,0.0642362612894,0.0635955005783,0.0637556907561,0.0634353104005,0.0635955005783,0.0635955005783,0.0651974023561,0.064556641645,0.0664789237783,0.0685613960894,0.068881776445,0.0693623469783,0.0700031076894,0.0720855800006,0.0724059603561,0.0728865308895,0.0728865308895,0.073206911245,0.0728865308895,0.0754495737339,0.0759301442673,0.0757699540895,0.0759301442673,0.0741680523117,0.0743282424895,0.0738476719561,0.0735272916006,0.0725661505339,0.0712846291117,0.0690419666228,0.0680808255561,0.0669594943116,0.0650372121783,0.0640760711116,0.0632751202227,0.0624741693338,0.0629547398672,0.0627945496894,0.0627945496894,0.0632751202227,0.0639158809338,0.0627945496894,0.0643964514672,0.0639158809338,0.0635955005783,0.0637556907561,0.0634353104005,0.0624741693338,0.0634353104005,0.0631149300449,0.0639158809338,0.0666391139561,0.0650372121783,0.0664789237783,0.0656779728894,0.0655177827116,0.0661585434228,0.060872267556,0.0538238997338,0.0467755319115,0.0394067837336,0.0)
ycorr <- c(-5.2429509779e-05,-5.26560927201e-05,-5.34203752207e-05,-5.46946055008e-05,-5.64637338212e-05,-5.86964677538e-05,-6.14013642522e-05,-6.41508317159e-05,-6.6940105573e-05,-6.97335712067e-05,-7.25147392146e-05,-7.52933426042e-05,-7.81016970828e-05,-8.09280026322e-05,-8.37356695608e-05,-8.65331775729e-05,-8.9327900153e-05,-9.21127550462e-05,-9.4910568524e-05,-9.77458292707e-05,-0.000100663351701,-0.000103668512177,-0.000106708483361,-0.000109791756948,-0.000112918263257,-0.000116129456052,-0.000119420074165,-0.000122774254074,-0.00012617926242,-0.00012962431212,-0.000133028457654,-0.000136345229069,-0.000139592406417,-0.000142759982969,-0.00014587832184,-0.000148915907209,-0.000151860081373,-0.000154728817693,-0.000157529761069,-0.000160259788739,-0.000162923264967,-0.000165567818291,-0.000168210268758,-0.000170846362639,-0.000173461924583,-0.00017603496591,-0.000178564602355,-0.000181017284653,-0.000183398949939,-0.000185740466092,-0.000188044097844,-0.000190324633464,-0.00019258646455,-0.000194846789271,-0.000197095508827,-0.000199388534507,-0.000201719550667,-0.000204134296597,-0.000206636831174,-0.00020918078297,-0.000211757352707,-0.000214357272628,-0.000216930814567,-0.000219469130878,-0.000221953953708,-0.000224362595002,-0.000226669079634,-0.00022890788835,-0.000231054479513,-0.000233123608279,-0.000235117748378,-0.000237035636824,-0.000238897547888,-0.000240721673605,-0.000242508983293,-0.000244258673697,-0.000245992244116,-0.000247694546399,-0.000249344135041,-0.000250954637743,-0.000252532865256,-0.000254100430554,-0.000255665539173,-0.000257226255812,-0.000258802675464,-0.000260443239525,-0.000262176198096,-0.000263974967828,-0.000265849830639,-0.000267793737523,-0.000269802424688,-0.00027185502023,-0.000273941664507,-0.000276074596421,-0.000278243994639,-0.000280394745871,-0.000282476011978,-0.000284471784632,-0.00028637784434,-0.000288190783958,-0.000289926664671,-0.000291568904383,-0.000293144647165,-0.000294642983676,-0.000296026597791,-0.000297350427483,-0.000298658423249,-0.000299939005187,-0.000301216923953,-0.000302527186065,-0.00030389235035,-0.000305328647731,-0.000306824227658,-0.000308376225761,-0.000310024221255,-0.000311742091382,-0.000313492807387,-0.000315278189779,-0.000317111053601,-0.000318935869541,-0.000320714283732,-0.000322411467541,-0.000324019996069,-0.000325525629169,-0.000326924949538,-0.000328194259168,-0.000329346620708,-0.000330394441376,-0.00033133231521,-0.000332165952093,-0.000332940022457,-0.000333678179853,-0.000334382943249,-0.000335046842596,-0.000335678327258,-0.000336275879522,-0.00033685399699,-0.000337422359994,-0.000337962181681,-0.000338528060914,-0.000339107110423,-0.000339681154097,-0.00034023633306,-0.000340800248512,-0.000341387252877,-0.000342011135018,-0.000342692533403,-0.000343421443139,-0.000344223540871,-0.000345034818457,-0.000345782934012,-0.000346514332976,-0.000347266943432,-0.000348055653113,-0.000348864724816,-0.000349684243326,-0.000350509587199,-0.00035133058783,-0.000352116997914,-0.00035285837551,-0.000353590880621,-0.000354314520421,-0.000354994587138,-0.00035556843228,-0.000356022175674,-0.000356361389707,-0.000356549568243,-0.000356592564516,-0.000356496839325,-0.000356309514822,-0.000356070980764,-0.000355793532328,-0.000355479371319,-0.000355171071314,-0.000354897658764,-0.000354647430976,-0.000354385876765,-0.00035411112642,-0.000353827232416,-0.00035354490036,-0.000353250860096,-0.000352912674197,-0.00035256023803,-0.00035219035288,-0.000351781118344,-0.000351339511463,-0.000350920571206,-0.000350586493058,-0.000350358560185,-0.00035018685582,-0.000350041761423,-0.000349930819623,-0.000349816213883,-0.000349666150121,-0.000349472854673,-0.000349242403967,-0.000348975740271,-0.000348672701773,-0.000348282469041,-0.000347842878383,-0.000347365105351,-0.00034684821931,-0.000346306893683,-0.000345789326179,-0.000345306300454,-0.00034483886274,-0.000344377807848,-0.000343876348942,-0.000343341366921,-0.000342804842892,-0.000342255517478,-0.000341740365242,-0.000341279234703,-0.000340830620288,-0.000340375538494,-0.000339926122646,-0.000339491814681,-0.00033907538349,-0.00033869685968,-0.000338312059679,-0.000337919585406,-0.000337479936508,-0.000336950627034,-0.000336345215186,-0.000335702189307,-0.000335026002607,-0.000334330863788,-0.000333652309397,-0.000332988049831,-0.000332353344199,-0.000331761656523,-0.000331218438257,-0.000330760216259,-0.000330392179711,-0.000330115126196,-0.000329901083315,-0.000329762332392,-0.000329652305231,-0.000329570000553,-0.000329507183999,-0.00032949151484,-0.000329519816976,-0.000329553080869,-0.00032958680618,-0.000329624055513,-0.000329657495968,-0.000329688943397,-0.000329719699947,-0.000329759471538,-0.000329787932559,-0.000329779526104,-0.000329705080112,-0.000329570181198,-0.000329378808321,-0.000329123516798,-0.000328816281157,-0.000328436340007,-0.00032798678007,-0.000327476442772,-0.000326924011925,-0.000326345905197,-0.000325770736415,-0.000325206864243,-0.000324663593647,-0.000324142181524,-0.000323682952827,-0.000323275717485,-0.000322904133806,-0.000322547341206,-0.00032220587929,-0.00032188092564,-0.000321548489753,-0.000321219470024,-0.000320905623112,-0.000320593106534,-0.000320267541008,-0.000319896770715,-0.000319508303975,-0.000319134361939,-0.000318771701293,-0.000318373190199,-0.000317934235359,-0.000317460036423,-0.000316897059201,-0.000316257670935,-0.000315532587901,-0.000314750794276,-0.00031389960861,-0.000312964436166,-0.000311946955576,-0.000310878615636,-0.000309783274042,-0.00030862848607,-0.000307455079579,-0.000306257157999,-0.000305031373322,-0.000303771703309,-0.000302504270782,-0.000301223095612,-0.000299944876152,-0.000298658454566,-0.000297348823582,-0.000296082179985,-0.000294888042602,-0.00029375817259,-0.000292724484589,-0.000291773319636,-0.000290895023562,-0.0002900570589,-0.000289234459183,-0.00028843095792,-0.000287655505743,-0.000286853341913,-0.000285964766788,-0.000284996241192,-0.00028394040998,-0.000282799872295,-0.000281579301725,-0.000280323013984,-0.000279053303602,-0.000277778655259,-0.000276478475077,-0.000275173335707,-0.000273916211202,-0.000272703329261,-0.000271526078708,-0.000270382834541,-0.000269288332757,-0.000268237600425,-0.000267216609222,-0.00026620216165,-0.000265223294791,-0.00026427379017,-0.000263309733263,-0.000262351537865,-0.000261390388135,-0.000260449967716,-0.000259505594602,-0.000258518619324,-0.000257468249589,-0.000256362285924,-0.000255225105055,-0.00025405653613,-0.00025286029711,-0.000251625138205,-0.000250338513553,-0.000249006676731,-0.000247610020707,-0.000246199366257,-0.000244821014241,-0.00024349839818,-0.000242207124959,-0.000240924881884,-0.000239667328389,-0.000238457506337,-0.000237334047282,-0.000236283672424,-0.000235301007848,-0.000234375363056,-0.000233462660145,-0.000232566975791,-0.000231664512626,-0.000230776012454,-0.000229891382533,-0.000228989984172,-0.000228024587059,-0.000226981431846,-0.000225882819664,-0.000224712278008,-0.000223495884249,-0.000222228278096,-0.000220881201371,-0.000219470450394,-0.000218027974362,-0.00021656582349,-0.000215097160486,-0.000213657086564,-0.000212254247123,-0.000210900745725,-0.000209622107171,-0.000208367968021,-0.000207178332341,-0.00020604223488,-0.000204942766619,-0.000203829221976,-0.000202714315312,-0.00020158458387,-0.000200431652089,-0.000199245368186,-0.000197983274869,-0.000196678520636,-0.000195356651054,-0.000194034881384,-0.000192711218595,-0.000191393075086,-0.000190062982444,-0.000188708817103,-0.000187324172662,-0.00018590050714,-0.000184441029473,-0.000182984866563,-0.000181513631709,-0.000179996744655,-0.000178408701295,-0.000176789900643,-0.000175155144209,-0.00017352765331,-0.000171886857745,-0.000170249512539,-0.000168626590873,-0.000167000850726,-0.000165343850451,-0.000163666591191,-0.000161999273256,-0.000160318555875,-0.000158589573185,-0.000156819522264,-0.000155051652768,-0.000153293732263,-0.000151525531594,-0.000149736190062,-0.000147938265751,-0.000146125573515,-0.000144274265795,-0.000142384178164,-0.00014048407678,-0.000138593819032,-0.000136669729009,-0.000134716492946,-0.000132738741611,-0.000130749466949,-0.000128773397071,-0.000126810248509,-0.00012487371508,-0.000122957927125,-0.000121067220418,-0.000119177015486,-0.000117294770564,-0.000115393128635,-0.00011346296503,-0.000111516977069,-0.000109529906747,-0.00010749865559,-0.000105431938834,-0.000103344737049,-0.000101223162479,-9.90312991354e-05,-9.67695213437e-05,-9.44510772615e-05,-9.21276214275e-05,-8.97582642079e-05,-8.73627191962e-05,-8.49361786648e-05,-8.24649649615e-05,-7.9937537532e-05,-7.73898524978e-05,-7.48630635619e-05,-7.24125267475e-05,-7.00292438017e-05,-6.76799767385e-05,-6.53720140497e-05,-6.31039882821e-05,-6.08962276619e-05,-5.87812109486e-05,-5.67673928312e-05,-5.48191095207e-05,-5.29045437084e-05,-5.09791179459e-05,-4.90387458086e-05,-4.7090257062e-05,-4.5130234373e-05,-4.31333135907e-05,-4.10839503942e-05,-3.89254128464e-05,-3.6645865739e-05,-3.42623968254e-05,-3.17682401278e-05,-2.91447981324e-05,-2.64044517212e-05,-2.35455925257e-05,-2.0590474945e-05,-1.7572136793e-05,-1.45253210082e-05,-1.14877710186e-05,-8.46466489235e-06,-5.42437102803e-06,-2.3864540842e-06,5.71909461662e-07,3.47256998947e-06,6.30226010136e-06,9.08666993998e-06,1.18197316413e-05,1.45528954947e-05,1.72810680067e-05,2.00082460205e-05,2.26940968378e-05,2.53280148466e-05,2.79961131312e-05,3.07051468678e-05,3.34203480575e-05,3.614576406e-05,3.89024215625e-05,4.16848123407e-05,4.45007973762e-05,4.73436524188e-05,5.02235754789e-05,5.31600408714e-05,5.61030267599e-05,5.89933508322e-05,6.1884452036e-05,6.47697067042e-05,6.76333689097e-05,7.04481455986e-05,7.32160481616e-05,7.59271393517e-05,7.8623872324e-05,8.12949759187e-05,8.3950984763e-05,8.66310156744e-05,8.93399293697e-05,9.20696179738e-05,9.48518547554e-05,9.77004199788e-05,0.000100643658684,0.000103678341922,0.000106765045156,0.000109875261197,0.00011301029235,0.00011616540673,0.000119343405391,0.000122511517155,0.000125648961441,0.000128756850586,0.000131808779197,0.000134787267019,0.000137697414702,0.00014056289779,0.000143390739702,0.000146178764798,0.000148907783095,0.000151593650319,0.000154256303444,0.0001569052757,0.000159534777047,0.000162184620239,0.0001648607538,0.00016757680227,0.000170359957954,0.00017322419217,0.000176206180964,0.000179321293008,0.00018255495811,0.000185885361534,0.000189327712024,0.00019285414544,0.000196438888529,0.000200082239552,0.000203766617206,0.000207470481261,0.000211168001638,0.000214852492632,0.000218537544788,0.000222210236362,0.000225890080157,0.000229574659347,0.000233291665577,0.000237054362988,0.000240829186522,0.000244636968887,0.000248454459019,0.000252296311031,0.000256141943195,0.000260006319878,0.000263889505946,0.000267823461323,0.000271774444149,0.000275750377323,0.000279765921881,0.00028382692244,0.000287931793236,0.000292099672566,0.000296316280602,0.000300577249431,0.000304852182938,0.000309111045701,0.000313384091599,0.00031766213808,0.000321954104477,0.000326257422997,0.000330577980298,0.000334997119804,0.000339617070585,0.000344537823522,0.000349825019695,0.000355924369863,0.000361349155525,0.000366491540943,0.000371423469536,0.000376190097936,0.000380891032071,0.000385613410421,0.000390253441568,0.000394716922124,0.000398948807823,0.000402909496324,0.000406186394668,0.000410270978904,0.000414745887748,0.000419553493591,0.000424602581434,0.000429770076725,0.000435002425654,0.000440292175254,0.000445638899877,0.000451028064998,0.000456436529262,0.000461862800357,0.000467322094656,0.000472793726801,0.000478280915757,0.000483820268789,0.000489393621812,0.000494988768177,0.000500614321585,0.000506220928062,0.000511790602458,0.000517302823594,0.000522745115644,0.000528118269644,0.000533463506905,0.000538788015966,0.000544066651014,0.000549334021572,0.000554554528944,0.000559760651421,0.000564961900317,0.000570203898485,0.000575500190831,0.000580846330687,0.000586203045502,0.000591514067715,0.000596812847877,0.000602106465413,0.000607408109093,0.000612698576632,0.000617975809063,0.000623219799771,0.000628374611226,0.000633461954212,0.000638484120207,0.000643503280437,0.000648478353688,0.000653336888735,0.000658064562479,0.000662650364646,0.000667125474587,0.000671480839926,0.00067576373363,0.000679954021709,0.000684014176858,0.000687914897586,0.000691656497787,0.000695318503554,0.000698913990277,0.000702473084435,0.000705968713064,0.000709390364558,0.000712729371124,0.000715975510004,0.000719169252005,0.000722336083539,0.00072547174166,0.000728524101064,0.000731457810926,0.000734264163449,0.000736921521017,0.000739436548703,0.000741799001662,0.000744014526456,0.000746073771349,0.000747928946373,0.000749565719107,0.000751000176787,0.000752286284204,0.000753411538604,0.000754379466691,0.000755187524443,0.000755819735122,0.000756279257957,0.000756531347981,0.000756598598285,0.000756518918997,0.000756274380619,0.000755843463326,0.000755214413428,0.000754414886639,0.000753470870038,0.000752368200553,0.000751112756568,0.000749753574439,0.000748309555438,0.000746771097638,0.000745132410142,0.000743403607455,0.00074160658287,0.000739762464671,0.000737838770489,0.000735856343742,0.000733844485091,0.000731776378298,0.000729604903869,0.000727342035029,0.000724989480691,0.000722579372308,0.000720088993534,0.000717477949548,0.000714709720974,0.000711795667595,0.0007086847612,0.000705395048083,0.000701973908036,0.00069842589386,0.000694746257167,0.00069091181963,0.000686910841019,0.000682797885045,0.000678643446102,0.000674476047358,0.000670342892322,0.000666273484895,0.000662213630087,0.000658190192741,0.000654227525582,0.000650341181468,0.000646561417257,0.000642849567405,0.000639172402555,0.000635491096118,0.000631769908276,0.000627992783711,0.000624174986245,0.000620320931366,0.000616383695988,0.000612323392845,0.000608136049455,0.000603842585952,0.000599466800219,0.000595031289847,0.000590544738686,0.000585990603255,0.000581367687946,0.000576676643633,0.000571961673543,0.000567270545054,0.000562633504307,0.000558044267798,0.000553471707186,0.000548921696611,0.000544407910942,0.000539949440915,0.000535584408153,0.000531287836902,0.000527050981879,0.000522845455025,0.000518654794036,0.000514448934952,0.000510239993388,0.000506022758406,0.000501776458644,0.000497503758859,0.00049320541603,0.000488890870789,0.000484578467589,0.000480273371925,0.000475966461002,0.000471653108798,0.000467384536236,0.000463151914663,0.000458966378386,0.000454845303445,0.000450755785975,0.000446675109357,0.000442575090788,0.00043844369384,0.000434276373693,0.000430087207643,0.000425858037558,0.000421585994628,0.000417272141472,0.000412889843388,0.000408459040171,0.000403993228107,0.00039950525595,0.000395025679659,0.000390576187739,0.000386148892894,0.000381758026321,0.00037742717636,0.000373165783037,0.000368987281161,0.000364886262598,0.000360843580475,0.000356848568635,0.000352918467047,0.000349028398919,0.000345198320549,0.000341427710933,0.000337681090206,0.000333925667234,0.000330137951557,0.000326328181553,0.000322526291204,0.000318742818013,0.000314987588453,0.000311260591478,0.000307567841422,0.00030386325019,0.000300156186541,0.000296481225936,0.000292860986818,0.000289305759216,0.000285802729452,0.000282369536901,0.000279000620461,0.000275685136708,0.000272404326815,0.000269191305962,0.00026605675487,0.000263023676358,0.000260077394393,0.00025719162601,0.000254339016015,0.000251517763288,0.000248688210059,0.00024585362149,0.000243034048203,0.000240187119457,0.000237283487308,0.000234303319264,0.000231217612724,0.000228042582408,0.000224843882987,0.000221630535435,0.000218382691448,0.000215131719701,0.000211854240895,0.000208557277776,0.000205292732375,0.000202063729397,0.000198895451475,0.000195774246455,0.000192682835535,0.000189569191466,0.000186455800439,0.000183333349104,0.000180232090159,0.00017717023907,0.00017412365111,0.000171096100695,0.000168088752513,0.000165094422095,0.000162114807633,0.000159154318756,0.000156220582281,0.000153306489593,0.00015041137783,0.000147498164821,0.000144589958698,0.000141681380694,0.000138757569372,0.000135832331482,0.000132886164841,0.00012995783003,0.000127050110176,0.000124167819714,0.000121295094789,0.000118466703676,0.000115661327037,0.000112848762001,0.000110035624594,0.000107221519132,0.000104420123795,0.000101653142687,9.88918034537e-05,9.61475086352e-05,9.34344596065e-05,9.07320753533e-05,8.80330533636e-05,8.5376051719e-05,8.27637764e-05,8.02052909588e-05,7.76693672508e-05,7.51219395454e-05,7.25414629993e-05,6.99166863324e-05,6.72201138398e-05,6.44422627486e-05,6.16237713967e-05,5.87431788398e-05,5.57887577682e-05,5.27849304543e-05,4.97459080041e-05,4.66777267672e-05,4.3585098204e-05,4.04875422096e-05,3.74004932349e-05,3.43243804305e-05,3.12399191408e-05,2.81417620458e-05,2.50514117884e-05,2.19391658924e-05,1.87825906091e-05,1.55858552495e-05,1.24197570543e-05,9.27670366456e-06,6.16488736595e-06,3.11512591063e-06,1.38757616374e-07,-2.75639685136e-06,-5.56867131101e-06,-8.31131788877e-06,-1.09752508272e-05,-1.35768259683e-05,-1.61791859846e-05,-1.88144619856e-05,-2.14744532054e-05,-2.4205161799e-05,-2.70300474377e-05,-2.99466827488e-05,-3.29431012405e-05,-3.60546588822e-05,-3.9253958323e-05,-4.2521062718e-05,-4.58285819711e-05,-4.9144696095e-05,-5.24727228982e-05,-5.57683903175e-05,-5.90121164998e-05,-6.2185932919e-05,-6.53216029585e-05,-6.83830317817e-05,-7.1364013732e-05,-7.42703800994e-05,-7.70779081079e-05,-7.97774012138e-05,-8.23755836929e-05,-8.48819301499e-05,-8.7320301619e-05,-8.96948992957e-05,-9.20247455479e-05,-9.42522766003e-05,-9.64025927178e-05,-9.8438361039e-05,-0.000100396724222,-0.000102328938692,-0.000104249293793,-0.000106127838544,-0.000107966593531,-0.000109787997458,-0.000111553690151,-0.000113297600503,-0.000115063683567,-0.000116880110205,-0.000118783571274,-0.000120730488543,-0.000122723280292,-0.000124782877583,-0.000126910788549,-0.000129107053797,-0.000131401383246,-0.000133807808538,-0.000136296707262,-0.000138861009612,-0.000141473132961,-0.000144085525655,-0.000146693744125,-0.000149269513028,-0.000151811668086,-0.000154318763669,-0.000156770973096,-0.000159131820853,-0.000161377894368,-0.00016350959844,-0.00016549686694,-0.000167389284258,-0.000169220741058,-0.000170999609615,-0.000172724753706,-0.000174371863292,-0.000175936292238,-0.000177429122337,-0.000178857105626,-0.000180252729585,-0.000181614077311,-0.00018297607747,-0.000184287619847,-0.00018557128895,-0.000186841803348,-0.000188120202541,-0.000189425218389,-0.000190785790948,-0.000192200428355,-0.000193650146336,-0.00019512697699,-0.000196620855882,-0.000198148855294,-0.000199704020895,-0.000201252848974,-0.000202783698938,-0.000204295659946,-0.000205772227691,-0.000207190571191,-0.000208543015008,-0.000209857143333,-0.00021111641417,-0.00021230889935,-0.000213402798457,-0.000214448052449,-0.000215470360026,-0.000216461075037,-0.000217401840061,-0.000218315151684,-0.000219238895238,-0.000220209393398,-0.00022122106854,-0.000222280826546,-0.000223439024773,-0.000224682454847,-0.000225961530774,-0.000227243220007,-0.000228572418875,-0.000229950127835,-0.000231391914227,-0.00023283383587,-0.000234269102862,-0.000235701340889,-0.000237146052859,-0.000238547862074,-0.000239931270912,-0.000241340928487,-0.000242787594729,-0.000244245247056,-0.000245675305247,-0.000247069032712,-0.00024845886903,-0.000249856700397,-0.000251247151457,-0.000252641333422,-0.0002540829669,-0.000255551235931,-0.000257038819858,-0.000258549582225,-0.000260102697714,-0.000261743806376,-0.000263448867803,-0.000265186824563,-0.000266913293219,-0.000268625762134,-0.000270295521768,-0.000271927664048,-0.00027352003105,-0.000275063516536,-0.000276545867302,-0.000277946571085,-0.000279234759702,-0.000280426522621,-0.000281542129972,-0.000282631470214,-0.000283722634724,-0.000284776478397,-0.00028576272195,-0.000286695172367,-0.000287571154193,-0.000288426378459,-0.000289277938572,-0.000290161391889,-0.000291082602494,-0.000292014677088,-0.000292914492382,-0.00029381194377,-0.000294752656883,-0.00029573911003,-0.000296759250971,-0.000297801645973,-0.000298845038201,-0.000299881766072,-0.000300899976817,-0.000301886676453,-0.000302893689126,-0.000303906897876,-0.000304864741212,-0.000305773714329,-0.000306619754957,-0.000307416351447,-0.000308184306502,-0.0003088998829,-0.000309555252471,-0.000310180228794,-0.00031073156146,-0.000311202954451,-0.000311657982807,-0.000312117770568,-0.000312623827444,-0.000313169258563,-0.000313751171748,-0.000314386941637,-0.000315098501228,-0.000315882957231,-0.000316736313153,-0.000317716829909,-0.000318779945371,-0.000319898224267,-0.000321039251128,-0.000322177429969,-0.000323338559598,-0.000324521426329,-0.000325694160108,-0.00032685794607,-0.000328021331157,-0.000329158968829,-0.000330238956518,-0.000331292797557,-0.000332314688019,-0.000333307117175,-0.000334253510166,-0.000335108547576,-0.000335866465423,-0.00033657263985,-0.000337196222438,-0.000337730665895,-0.000338214134707,-0.000338642754021,-0.000339016157415,-0.000339341534491,-0.000339651106386,-0.000339976651296,-0.000340367926956,-0.000340791034858,-0.000341228169758,-0.000341702106439,-0.00034222816151,-0.00034278415831,-0.000343357662248,-0.00034395912243,-0.000344549169397,-0.000345124863612,-0.000345664435769,-0.000346168444205,-0.000346679407645,-0.000347175934444,-0.000347613607277,-0.000347995850841,-0.000348365757367,-0.000348741255691,-0.000349129457507,-0.000349533908262,-0.00034996733594,-0.000350383426935,-0.000350765178934,-0.000351129963761,-0.000351497624418,-0.000351895353075,-0.0003522853371,-0.0003526071016,-0.00035287247224,-0.000353065145666,-0.000353193284101,-0.000353261808531,-0.000353316508858,-0.000353353064118,-0.000353349918217,-0.000353310329012,-0.000353249962866,-0.000353181243861,-0.000353116326641,-0.000353057364244,-0.000353000525485,-0.000352976699189,-0.000352918978953,-0.000352815243933,-0.000352704020035,-0.000352560080665,-0.000352379523503,-0.000352168513448,-0.00035193229145,-0.00035165766884,-0.000351349501055,-0.000351015443612,-0.000350656424741,-0.000350281082817,-0.000349873196685,-0.000349404641255,-0.000348906218522,-0.000348377670886,-0.00034781006686,-0.000347274847536,-0.00034684708078,-0.000346504877502,-0.000346278178311,-0.000346152924806)
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(90)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('CP190-WT1-GSM1277517.36mers.unique.MACS-2.1.0_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) : 90',bty='n')
dev.off()