# R script for Peak Model
#  -- generated by MACS
p <- c(0.0364440778374,0.0422931273668,0.0473922987515,0.0530913726519,0.0601402272131,0.0605901541,0.0614900078737,0.0605901541,0.0614900078737,0.0628397885344,0.0632897154212,0.0628397885344,0.064339544824,0.0652393985977,0.0638896179371,0.0634396910502,0.0631397397923,0.0644895204529,0.0631397397923,0.0613400322448,0.0614900078737,0.0628397885344,0.0619399347606,0.0614900078737,0.0623898616475,0.0626898129054,0.064039593566,0.064189569195,0.0644895204529,0.0667391548873,0.0676390086611,0.0668891305163,0.0662892280004,0.0683888868059,0.0683888868059,0.0686888380638,0.0665891792584,0.0665891792584,0.0661392523715,0.064189569195,0.0647894717108,0.0661392523715,0.0683888868059,0.0670391061453,0.0676390086611,0.0676390086611,0.0688388136928,0.0682389111769,0.0703385699824,0.0707884968693,0.0694387162086,0.0688388136928,0.0674890330321,0.0668891305163,0.0661392523715,0.0644895204529,0.064189569195,0.0637396423081,0.0613400322448,0.0598402759552,0.0610400809868,0.0610400809868,0.0611900566158,0.0616399835027,0.0629897641633,0.064339544824,0.064189569195,0.0637396423081,0.064189569195,0.0647894717108,0.0638896179371,0.0658393011136,0.0664392036294,0.0650894229688,0.0637396423081,0.0634396910502,0.0626898129054,0.0629897641633,0.0628397885344,0.064339544824,0.0632897154212,0.0601402272131,0.0607401297289,0.0638896179371,0.0631397397923,0.0635896666792,0.0647894717108,0.0656893254846,0.0674890330321,0.064189569195,0.0658393011136,0.0664392036294,0.0658393011136,0.0626898129054,0.0614900078737,0.0616399835027,0.0599902515841,0.0607401297289,0.0583405196656,0.0616399835027,0.0626898129054,0.064339544824,0.0634396910502,0.0653893742267,0.0688388136928,0.0692887405797,0.0697386674665,0.0694387162086,0.0710884481272,0.0709384724982,0.0706385212403,0.0692887405797,0.0694387162086,0.0683888868059,0.0662892280004,0.0644895204529,0.0653893742267,0.0638896179371,0.064189569195,0.0632897154212,0.0634396910502,0.0631397397923,0.0638896179371,0.064189569195,0.0664392036294,0.067938959919,0.0671890817742,0.067938959919,0.067938959919,0.0670391061453,0.0667391548873,0.0682389111769,0.0706385212403,0.0721382775299,0.0701885943534,0.0698886430955,0.0710884481272,0.0706385212403,0.0673390574032,0.067938959919,0.0668891305163,0.0647894717108,0.0619399347606,0.0605901541,0.0590903978104,0.0586404709235,0.0577406171497,0.0575906415208,0.0607401297289,0.0595403246972,0.0587904465524,0.0590903978104,0.060290202842,0.060440178471,0.0620899103896,0.0628397885344,0.0613400322448,0.0623898616475,0.0617899591316,0.0647894717108,0.067938959919,0.0686888380638,0.0673390574032,0.0694387162086,0.0691387649507,0.0683888868059,0.0689887893217,0.0700386187245,0.0709384724982,0.0688388136928,0.0655393498556,0.0649394473398,0.0656893254846,0.0632897154212,0.0634396910502,0.0629897641633,0.0637396423081,0.0620899103896,0.0608901053579,0.0613400322448,0.0607401297289,0.0610400809868,0.0607401297289,0.0601402272131,0.0605901541,0.0611900566158,0.0634396910502,0.0622398860185,0.0635896666792,0.0638896179371,0.0656893254846,0.0653893742267,0.0655393498556,0.0658393011136,0.0658393011136,0.0653893742267,0.0620899103896,0.0646394960819,0.0644895204529,0.0646394960819,0.0652393985977,0.0652393985977,0.0647894717108,0.0664392036294,0.0661392523715,0.067938959919,0.0691387649507,0.0682389111769,0.0682389111769,0.0677889842901,0.0658393011136,0.064039593566,0.0635896666792,0.0608901053579,0.0596903003262,0.0596903003262,0.0581905440366,0.0572906902628,0.0553410070863,0.0544411533126,0.0556409583443,0.0572906902628,0.0599902515841,0.0601402272131,0.0601402272131,0.0575906415208,0.0595403246972,0.0589404221814,0.0595403246972,0.0592403734393,0.0580405684076,0.0580405684076,0.0553410070863,0.0556409583443,0.0560908852311,0.0572906902628,0.0572906902628,0.0575906415208,0.0571407146339,0.0599902515841,0.0616399835027,0.0619399347606,0.064039593566,0.0631397397923,0.0634396910502,0.0626898129054,0.0623898616475,0.0632897154212,0.064039593566,0.0617899591316,0.0595403246972,0.0590903978104,0.0583405196656,0.0578905927787,0.0581905440366,0.0587904465524,0.056690787747,0.0545911289415,0.0553410070863,0.0557909339732,0.0551910314574,0.0556409583443,0.0544411533126,0.0553410070863,0.0550410558284,0.0551910314574,0.0563908364891,0.0572906902628,0.0553410070863,0.056840763376,0.0583405196656,0.0583405196656,0.0577406171497,0.0596903003262,0.0616399835027,0.0614900078737,0.0613400322448,0.0623898616475,0.064039593566,0.0622398860185,0.0625398372764,0.0616399835027,0.0625398372764,0.0623898616475,0.0596903003262,0.0593903490683,0.0605901541,0.0620899103896,0.0635896666792,0.0653893742267,0.0664392036294,0.0676390086611,0.068088935548,0.0671890817742,0.068088935548,0.0676390086611,0.0674890330321,0.0667391548873,0.0650894229688,0.0647894717108,0.0649394473398,0.064189569195,0.0653893742267,0.0658393011136,0.068088935548,0.0700386187245,0.0727381800457,0.0748378388512,0.0782872783173,0.079187132091,0.0815867421544,0.0848862059915,0.0841363278467,0.0874357916839,0.0892354992314,0.0914851336658,0.0917850849237,0.0916351092947,0.0916351092947,0.0922350118106,0.0931348655843,0.0929848899554,0.0952345243898,0.0941846949871,0.0925349630685,0.0922350118106,0.0920850361816,0.0911851824079,0.0893854748603,0.0889355479735,0.086985864797,0.0875857673128,0.0863859622811,0.086835889168,0.0856360841363,0.0845862547336,0.0833864497019,0.0838363765888,0.0851861572494,0.0853361328784,0.0851861572494,0.0854861085074,0.0877357429418,0.0877357429418,0.0887855723445,0.0899853773762,0.0884856210866,0.0892354992314,0.0859360353942,0.0887855723445,0.0886355967155,0.0878857185707,0.0871358404259,0.0874357916839,0.0880356941997,0.0893854748603,0.0922350118106,0.0913351580368,0.0931348655843,0.0920850361816,0.0928349143264,0.0934348168423,0.0946346218739,0.0934348168423,0.0941846949871,0.0916351092947,0.0923849874395,0.090735255521,0.0901353530051,0.0887855723445,0.0899853773762,0.0887855723445,0.086685913539,0.0860860110232,0.0862359866522,0.0871358404259,0.0838363765888,0.0874357916839,0.0883356454576,0.0887855723445,0.0886355967155,0.0872858160549,0.0878857185707,0.0908852311499,0.0902853286341,0.0902853286341,0.0913351580368,0.0908852311499,0.0928349143264,0.0922350118106,0.090585279892,0.0917850849237,0.090735255521,0.0886355967155,0.0880356941997,0.0874357916839,0.0856360841363,0.0838363765888,0.0836864009598,0.0839863522178,0.0856360841363,0.0854861085074,0.0853361328784,0.0848862059915,0.0857860597653,0.0880356941997,0.0908852311499,0.0913351580368,0.0908852311499,0.0916351092947,0.0898354017472,0.0913351580368,0.0922350118106,0.0917850849237,0.0908852311499,0.0880356941997,0.0874357916839,0.0895354504893,0.0878857185707,0.0851861572494,0.0859360353942,0.0856360841363,0.083236474073,0.0865359379101,0.0856360841363,0.0865359379101,0.0856360841363,0.0827865471861,0.0841363278467,0.086835889168,0.086985864797,0.0872858160549,0.0892354992314,0.086985864797,0.0892354992314,0.0896854261183,0.0926849386975,0.0953845000187,0.0947845975029,0.0919350605527,0.0922350118106,0.0926849386975,0.0935847924712,0.0938847437291,0.0929848899554,0.0929848899554,0.0914851336658,0.090735255521,0.0911851824079,0.0961343781635,0.0965843050504,0.0967342806794,0.0976341344532,0.0998837688876,0.102283378951,0.10243335458,0.10093359829,0.101533500806,0.102733305838,0.101683476435,0.101533500806,0.100633647032,0.0991338907428,0.0986839638559,0.0991338907428,0.100483671403,0.102583330209,0.102883281467,0.102733305838,0.103933110869,0.104083086498,0.105732818417,0.106482696562,0.105132915901,0.10528289153,0.106332720933,0.106482696562,0.108432379738,0.108582355367,0.107982452851,0.108732330996,0.107532525965,0.109182257883,0.111281916689,0.111581867946,0.111731843575,0.113381575494,0.112631697349,0.112331746091,0.109782160399,0.111731843575,0.114881331784,0.115481234299,0.115481234299,0.114581380526,0.116231112444,0.114731356155,0.113531551123,0.11683101496,0.118030819992,0.116531063702,0.114581380526,0.113531551123,0.113831502381,0.114881331784,0.113681526752,0.115631209928,0.115481234299,0.112631697349,0.113531551123,0.115481234299,0.116681039331,0.116231112444,0.116081136815,0.115031307413,0.112181770462,0.111581867946,0.113831502381,0.116681039331,0.118180795621,0.11833077125,0.120580405684,0.124779723295,0.126729406471,0.128979040906,0.130628772824,0.133178358517,0.137227700499,0.138877432417,0.13842750553,0.137827603015,0.134678114806,0.134528139177,0.134828090435,0.132878407259,0.136777773612,0.134528139177,0.129578943422,0.128529114019,0.130178845938,0.133028382888,0.134228187919,0.133928236662,0.134228187919,0.13707772487,0.133928236662,0.136627797983,0.142626823141,0.143826628173,0.144726481947,0.143976603802,0.146076262607,0.145026433205,0.144576506318,0.146526189494,0.146676165123,0.149075775187,0.14712609201,0.149075775187,0.150875482734,0.152375239024,0.153874995313,0.157924337295,0.16152375239,0.161973679277,0.169022533838,0.171572119531,0.172621948933,0.174871583368,0.179820779123,0.185969779911,0.191068951295,0.197817854599,0.206066514191,0.215814930074,0.224063589667,0.237861347531,0.260507667504,0.288103183233,0.320047992201,0.355592216265,0.397735368003,0.434929323985,0.470173596791,0.503318210791,0.535412995388,0.557459412845,0.567807731244,0.561808706085,0.54381163061,0.512166772899,0.476922500094,0.440178470998,0.400284953695,0.360541412021,0.319298114056,0.281504255558,0.248659592816,0.222713809006,0.203516928499,0.19181882944,0.175621461513,0.165573094372,0.156574556635,0.146376213865,0.137227700499,0.128229162761,0.121630235087,0.117130966218,0.111281916689,0.104233062127,0.101833452064,0.0958344269056,0.0934348168423,0.0916351092947,0.0925349630685,0.0928349143264,0.0904353042631,0.0890855236024,0.0883356454576,0.0896854261183,0.0896854261183,0.0910352067789,0.0913351580368,0.0932848412133,0.0928349143264,0.094334670616,0.0964343294215,0.0973341831952,0.0977841100821,0.0985339882269,0.0991338907428,0.0974841588242,0.0976341344532,0.0976341344532,0.0961343781635,0.0947845975029,0.0931348655843,0.0932848412133,0.0919350605527,0.0908852311499,0.0898354017472,0.0902853286341,0.0853361328784,0.0833864497019,0.0848862059915,0.0844362791046,0.0835364253309,0.0811368152675,0.0808368640096,0.0812867908965,0.0824865959282,0.0821866446702,0.0838363765888,0.0820366690413,0.0788871808331,0.0806868883806,0.0818866934123,0.082936522815,0.0826365715571,0.0806868883806,0.0782872783173,0.0778373514304,0.0785872295752,0.0806868883806,0.0824865959282,0.079487083349,0.0788871808331,0.0767875220277,0.0748378388512,0.0748378388512,0.0760376438829,0.075437741367,0.0749878144801,0.0742379363353,0.0751377901091,0.0749878144801,0.0758876682539,0.0767875220277,0.0784372539462,0.0776873758014,0.0769374976566,0.0763375951408,0.0773874245435,0.075437741367,0.0731881069326,0.0742379363353,0.0731881069326,0.0740879607064,0.0760376438829,0.0805369127517,0.0796370589779,0.0805369127517,0.0802369614938,0.0799370102358,0.0796370589779,0.0787372052042,0.0781373026883,0.0770874732856,0.0739379850774,0.0709384724982,0.0721382775299,0.0736380338195,0.0728881556747,0.0737880094485,0.0749878144801,0.0764875707697,0.075437741367,0.0751377901091,0.0752877657381,0.0733380825616,0.0710884481272,0.0685388624349,0.068088935548,0.0685388624349,0.067938959919,0.0653893742267,0.0661392523715,0.064039593566,0.064189569195,0.0652393985977,0.0652393985977,0.064039593566,0.0634396910502,0.0622398860185,0.0622398860185,0.0619399347606,0.0620899103896,0.0647894717108,0.0644895204529,0.064039593566,0.064039593566,0.0658393011136,0.0655393498556,0.0676390086611,0.0676390086611,0.0695886918376,0.0694387162086,0.0683888868059,0.0700386187245,0.0706385212403,0.0712384237561,0.0698886430955,0.0694387162086,0.0667391548873,0.0667391548873,0.0664392036294,0.064339544824,0.0656893254846,0.0647894717108,0.0649394473398,0.0650894229688,0.0653893742267,0.0649394473398,0.0664392036294,0.0653893742267,0.0649394473398,0.0665891792584,0.0649394473398,0.064189569195,0.064189569195,0.0626898129054,0.0644895204529,0.0665891792584,0.0653893742267,0.0667391548873,0.0662892280004,0.0671890817742,0.0673390574032,0.0691387649507,0.068088935548,0.0710884481272,0.0715383750141,0.0724382287878,0.0749878144801,0.075437741367,0.0761876195118,0.0773874245435,0.0775374001725,0.0761876195118,0.0776873758014,0.0769374976566,0.0758876682539,0.0764875707697,0.075587716996,0.0751377901091,0.0736380338195,0.0728881556747,0.0736380338195,0.0767875220277,0.0757376926249,0.0758876682539,0.0766375463987,0.0752877657381,0.0757376926249,0.0746878632222,0.075587716996,0.0746878632222,0.0740879607064,0.0715383750141,0.0712384237561,0.071688350643,0.071688350643,0.0709384724982,0.071688350643,0.071838326272,0.071688350643,0.0727381800457,0.0743879119643,0.0752877657381,0.075587716996,0.0749878144801,0.0746878632222,0.0763375951408,0.0748378388512,0.0739379850774,0.0749878144801,0.0758876682539,0.0734880581905,0.0724382287878,0.0731881069326,0.0709384724982,0.0703385699824,0.0689887893217,0.0683888868059,0.0698886430955,0.0688388136928,0.0659892767425,0.0665891792584,0.0662892280004,0.0650894229688,0.0668891305163,0.0650894229688,0.0646394960819,0.0658393011136,0.0656893254846,0.0653893742267,0.0670391061453,0.0677889842901,0.0674890330321,0.0674890330321,0.0673390574032,0.0697386674665,0.0694387162086,0.068088935548,0.0691387649507,0.071838326272,0.071838326272,0.0694387162086,0.071838326272,0.0730381313037,0.0724382287878,0.0730381313037,0.0748378388512,0.0770874732856,0.0763375951408,0.0761876195118,0.0761876195118,0.0779873270594,0.0779873270594,0.0787372052042,0.0823366202992,0.0806868883806,0.0805369127517,0.0787372052042,0.0782872783173,0.0787372052042,0.0784372539462,0.0787372052042,0.075587716996,0.0733380825616,0.0695886918376,0.0706385212403,0.0676390086611,0.0677889842901,0.0677889842901,0.0659892767425,0.0658393011136,0.0647894717108,0.0646394960819,0.0650894229688,0.0646394960819,0.0622398860185,0.0628397885344,0.0619399347606,0.0611900566158,0.0601402272131,0.0598402759552,0.0605901541,0.0608901053579,0.0616399835027,0.0605901541,0.0619399347606,0.0632897154212,0.0634396910502,0.0628397885344,0.0638896179371,0.0625398372764,0.0611900566158,0.0608901053579,0.0595403246972,0.0607401297289,0.0595403246972,0.0589404221814,0.0590903978104,0.060290202842,0.0587904465524,0.0581905440366,0.060290202842,0.0619399347606,0.064039593566,0.0652393985977,0.0661392523715,0.0670391061453,0.0689887893217,0.0682389111769,0.0677889842901,0.0697386674665,0.0695886918376,0.0682389111769,0.0667391548873,0.0649394473398,0.0635896666792,0.0622398860185,0.0607401297289,0.0614900078737,0.0628397885344,0.0616399835027,0.0605901541,0.0601402272131,0.0605901541,0.064189569195,0.0658393011136,0.0686888380638,0.0686888380638,0.0689887893217,0.0683888868059,0.0682389111769,0.0677889842901,0.0688388136928,0.0689887893217,0.0671890817742,0.0677889842901,0.0658393011136,0.0656893254846,0.0659892767425,0.0658393011136,0.0668891305163,0.068088935548,0.0662892280004,0.0635896666792,0.0619399347606,0.0617899591316,0.0611900566158,0.0607401297289,0.0587904465524,0.0586404709235,0.0586404709235,0.0580405684076,0.0592403734393,0.0601402272131,0.0601402272131,0.0599902515841,0.0599902515841,0.0607401297289,0.0620899103896,0.0617899591316,0.0608901053579,0.060290202842,0.0598402759552,0.0601402272131,0.0601402272131,0.0587904465524,0.0596903003262,0.0593903490683,0.0584904952945,0.0595403246972,0.0586404709235,0.0587904465524,0.0577406171497,0.0589404221814,0.0598402759552,0.0593903490683,0.0569907390049,0.0572906902628,0.0578905927787,0.056840763376,0.0560908852311,0.0548910801995,0.0541412020547,0.0532413482809,0.0533913239099,0.0551910314574,0.0575906415208,0.056690787747,0.0550410558284,0.0547411045705,0.0581905440366,0.0592403734393,0.0614900078737,0.0632897154212,0.064339544824,0.0638896179371,0.064189569195,0.0634396910502,0.064339544824,0.0626898129054,0.0610400809868,0.0629897641633,0.0634396910502,0.0632897154212,0.0620899103896,0.0611900566158,0.0601402272131,0.0614900078737,0.0614900078737,0.0635896666792,0.0652393985977,0.0653893742267,0.0653893742267,0.064339544824,0.0656893254846,0.0662892280004,0.0656893254846,0.0638896179371,0.0652393985977,0.0658393011136,0.0650894229688,0.0628397885344,0.064039593566,0.0632897154212,0.0620899103896,0.0622398860185,0.0635896666792,0.0650894229688,0.0646394960819,0.0656893254846,0.0662892280004,0.0667391548873,0.0652393985977,0.0667391548873,0.0647894717108,0.0662892280004,0.0667391548873,0.068088935548,0.0668891305163,0.064339544824,0.0644895204529,0.0638896179371,0.0629897641633,0.0613400322448,0.0610400809868,0.0596903003262,0.0586404709235,0.056690787747,0.0584904952945,0.0592403734393,0.0574406658918,0.0580405684076,0.0599902515841,0.0626898129054,0.0644895204529,0.0638896179371,0.0634396910502,0.0656893254846,0.0658393011136,0.0650894229688,0.0650894229688,0.0653893742267,0.064189569195,0.0617899591316,0.0623898616475,0.0632897154212,0.0646394960819,0.0632897154212,0.0620899103896,0.0637396423081,0.0638896179371,0.0632897154212,0.0628397885344,0.0629897641633,0.0605901541,0.0589404221814,0.0589404221814,0.0583405196656,0.0584904952945,0.0578905927787,0.0577406171497,0.0569907390049,0.0584904952945,0.0581905440366,0.0613400322448,0.0625398372764,0.0622398860185,0.0634396910502,0.0608901053579,0.0613400322448,0.0616399835027,0.0616399835027,0.0595403246972,0.060440178471,0.0601402272131,0.060440178471,0.060290202842,0.0611900566158,0.0626898129054,0.0628397885344,0.0637396423081,0.0647894717108,0.0646394960819,0.0626898129054,0.0617899591316,0.0608901053579,0.0596903003262,0.0586404709235,0.0593903490683,0.0586404709235,0.0580405684076,0.0572906902628,0.0590903978104,0.0601402272131,0.0590903978104,0.0595403246972,0.0596903003262,0.0589404221814,0.060290202842,0.0601402272131,0.0605901541,0.0613400322448,0.0610400809868,0.0631397397923,0.0659892767425,0.0668891305163,0.0691387649507,0.0694387162086,0.0688388136928,0.0688388136928,0.0686888380638,0.0685388624349,0.068088935548,0.0665891792584,0.0658393011136,0.0667391548873,0.0671890817742,0.0662892280004,0.0676390086611,0.0682389111769,0.0683888868059,0.0682389111769,0.0697386674665,0.0685388624349,0.0667391548873,0.0655393498556,0.0634396910502,0.064039593566,0.0619399347606,0.0619399347606,0.0608901053579,0.060290202842,0.0580405684076,0.0586404709235,0.0587904465524,0.0583405196656,0.0575906415208,0.0580405684076,0.0575906415208,0.056840763376,0.0562408608601,0.0587904465524,0.0598402759552,0.0611900566158,0.060440178471,0.0610400809868,0.0626898129054,0.0614900078737,0.0617899591316,0.0629897641633,0.064339544824,0.0632897154212,0.0631397397923,0.0629897641633,0.0647894717108,0.0629897641633,0.0628397885344,0.0652393985977,0.0650894229688,0.0662892280004,0.0677889842901,0.067938959919,0.0688388136928,0.0692887405797,0.0688388136928,0.0703385699824,0.0694387162086,0.068088935548,0.0701885943534,0.0701885943534,0.0695886918376,0.0683888868059,0.0685388624349,0.0688388136928,0.0674890330321,0.068088935548,0.0676390086611,0.0677889842901,0.0673390574032,0.0593903490683,0.0518915676203,0.0460425180908,0.0389936635297,0.0)
m <- c(0.0357478663931,0.0428073190001,0.0495663693686,0.0534715984704,0.0599302466002,0.0620330622704,0.0630844701055,0.0642860790599,0.0659382913721,0.0659382913721,0.0677407048037,0.067890905923,0.0674403025651,0.0702941238318,0.0698435204739,0.067890905923,0.0666892969686,0.06638889473,0.0657880902528,0.06638889473,0.0633848723441,0.0614322577932,0.0606812521967,0.0582780342879,0.0591792410037,0.0590290398844,0.0579776320493,0.0576772298107,0.0570764253335,0.0566258219756,0.0561752186177,0.0566258219756,0.0570764253335,0.0579776320493,0.0560250174984,0.0552740119019,0.059329442123,0.0594796432423,0.0590290398844,0.0588788387651,0.0602306488388,0.0591792410037,0.0600804477195,0.0614322577932,0.0635350734634,0.0650370846564,0.0636852745827,0.0641358779406,0.0642860790599,0.0635350734634,0.0650370846564,0.0671399003265,0.0669896992072,0.0671399003265,0.0669896992072,0.0668394980879,0.0681913081616,0.0677407048037,0.0665390958493,0.0672901014458,0.0668394980879,0.0651872857757,0.0645864812985,0.0665390958493,0.0650370846564,0.0633848723441,0.0614322577932,0.0599302466002,0.0624836656283,0.0629342689862,0.0635350734634,0.0650370846564,0.0636852745827,0.062333464509,0.0635350734634,0.0641358779406,0.0651872857757,0.0683415092809,0.0687921126388,0.0696933193546,0.0684917104002,0.0681913081616,0.0707447271897,0.0704443249511,0.0720965372634,0.0728475428599,0.0720965372634,0.0704443249511,0.0684917104002,0.0674403025651,0.0669896992072,0.0665390958493,0.0641358779406,0.0636852745827,0.0611318555546,0.0611318555546,0.0624836656283,0.0633848723441,0.0659382913721,0.0666892969686,0.0666892969686,0.0689423137581,0.070894928309,0.0701439227125,0.0704443249511,0.070894928309,0.0672901014458,0.0654876880143,0.0647366824178,0.0647366824178,0.0647366824178,0.0620330622704,0.0614322577932,0.0630844701055,0.0639856768213,0.0635350734634,0.0666892969686,0.0690925148774,0.0672901014458,0.0651872857757,0.063835475702,0.0647366824178,0.0650370846564,0.0629342689862,0.0647366824178,0.063835475702,0.0620330622704,0.0611318555546,0.0611318555546,0.0605310510774,0.0620330622704,0.0611318555546,0.0606812521967,0.062333464509,0.0617326600318,0.0639856768213,0.0656378891335,0.0654876880143,0.0665390958493,0.0686419115195,0.0699937215932,0.0711953305476,0.0702941238318,0.0701439227125,0.0696933193546,0.0689423137581,0.0665390958493,0.06638889473,0.0665390958493,0.0660884924914,0.0657880902528,0.0657880902528,0.0657880902528,0.0674403025651,0.06638889473,0.0662386936107,0.0689423137581,0.0702941238318,0.069392917116,0.0695431182353,0.0671399003265,0.0683415092809,0.0684917104002,0.067890905923,0.0680411070423,0.0671399003265,0.0650370846564,0.0641358779406,0.0645864812985,0.0650370846564,0.0672901014458,0.065337486895,0.0654876880143,0.0641358779406,0.0629342689862,0.0641358779406,0.0648868835371,0.0645864812985,0.0654876880143,0.0642860790599,0.0620330622704,0.0626338667476,0.0614322577932,0.0605310510774,0.0611318555546,0.0585784365265,0.0582780342879,0.0567760230949,0.0552740119019,0.0545230063054,0.056325419737,0.0564756208563,0.0587286376458,0.0605310510774,0.0596298443616,0.0606812521967,0.0611318555546,0.0612820566739,0.0611318555546,0.0632346712248,0.0627840678669,0.0635350734634,0.0627840678669,0.0612820566739,0.0614322577932,0.0621832633897,0.0615824589125,0.0615824589125,0.062333464509,0.0605310510774,0.0606812521967,0.0597800454809,0.0602306488388,0.0591792410037,0.0605310510774,0.0605310510774,0.0594796432423,0.0618828611511,0.0609816544353,0.062333464509,0.0624836656283,0.0615824589125,0.0620330622704,0.0632346712248,0.0636852745827,0.062333464509,0.0639856768213,0.0614322577932,0.0620330622704,0.0617326600318,0.0617326600318,0.0624836656283,0.0605310510774,0.0609816544353,0.0609816544353,0.0621832633897,0.0624836656283,0.0641358779406,0.0629342689862,0.0629342689862,0.063835475702,0.0635350734634,0.0644362801792,0.0639856768213,0.0632346712248,0.0618828611511,0.0612820566739,0.0600804477195,0.0584282354072,0.0573768275721,0.0560250174984,0.056325419737,0.0564756208563,0.056325419737,0.0552740119019,0.0555744141405,0.0558748163791,0.0555744141405,0.0585784365265,0.0585784365265,0.0554242130212,0.054823408544,0.0557246152598,0.0564756208563,0.0572266264528,0.0570764253335,0.0567760230949,0.059329442123,0.0596298443616,0.0599302466002,0.0635350734634,0.0636852745827,0.0647366824178,0.0636852745827,0.0650370846564,0.0672901014458,0.0668394980879,0.0660884924914,0.0666892969686,0.0683415092809,0.0680411070423,0.0684917104002,0.0666892969686,0.0662386936107,0.063835475702,0.0636852745827,0.0632346712248,0.0633848723441,0.0626338667476,0.0606812521967,0.060831453316,0.0602306488388,0.0596298443616,0.0599302466002,0.0609816544353,0.0582780342879,0.0590290398844,0.0579776320493,0.0579776320493,0.0575270286914,0.0561752186177,0.0555744141405,0.054823408544,0.0552740119019,0.0573768275721,0.0600804477195,0.0602306488388,0.059329442123,0.0579776320493,0.05782743093,0.0588788387651,0.0602306488388,0.0611318555546,0.0611318555546,0.0597800454809,0.0582780342879,0.0587286376458,0.0582780342879,0.0572266264528,0.0597800454809,0.0599302466002,0.0621832633897,0.0629342689862,0.0644362801792,0.0639856768213,0.0647366824178,0.0650370846564,0.0656378891335,0.0683415092809,0.0669896992072,0.0671399003265,0.0645864812985,0.0648868835371,0.0635350734634,0.0614322577932,0.0615824589125,0.0602306488388,0.0617326600318,0.0617326600318,0.0617326600318,0.0606812521967,0.0602306488388,0.0603808499581,0.0605310510774,0.0627840678669,0.0627840678669,0.0647366824178,0.0639856768213,0.0644362801792,0.0654876880143,0.0675905036844,0.0704443249511,0.0702941238318,0.0725471406213,0.073898950695,0.075400961888,0.0749503585301,0.0782547831546,0.0770531742003,0.0761519674845,0.0744997551722,0.0722467383827,0.0744997551722,0.0734483473371,0.0725471406213,0.0699937215932,0.0701439227125,0.0699937215932,0.0713455316669,0.0722467383827,0.072396939502,0.0740491518143,0.0728475428599,0.0711953305476,0.0698435204739,0.0699937215932,0.070894928309,0.0671399003265,0.06638889473,0.067890905923,0.0695431182353,0.067890905923,0.0665390958493,0.0668394980879,0.0701439227125,0.072396939502,0.0711953305476,0.0734483473371,0.0732981462178,0.0737487495757,0.0749503585301,0.0772033753196,0.0791559898704,0.0821600122564,0.0815592077792,0.0812588055406,0.0820098111371,0.0812588055406,0.0835118223301,0.0820098111371,0.0800571965862,0.0787053865125,0.0784049842739,0.0766025708424,0.0782547831546,0.0770531742003,0.0776539786774,0.0796065932283,0.0790057887511,0.0796065932283,0.0799069954669,0.0796065932283,0.0796065932283,0.0797567943476,0.077954380916,0.0785551853932,0.0775037775582,0.0770531742003,0.0751005596494,0.0751005596494,0.0748001574108,0.0741993529336,0.0737487495757,0.0740491518143,0.0734483473371,0.0734483473371,0.0735985484564,0.0722467383827,0.0726973417406,0.0731479450985,0.0732981462178,0.0722467383827,0.0710451294283,0.0687921126388,0.0675905036844,0.069392917116,0.069392917116,0.0684917104002,0.0686419115195,0.0680411070423,0.0686419115195,0.0716459339055,0.0722467383827,0.0755511630073,0.0757013641266,0.0746499562915,0.0764523697231,0.0796065932283,0.0785551853932,0.077954380916,0.0781045820353,0.0752507607687,0.0760017663652,0.0731479450985,0.0729977439792,0.0731479450985,0.0714957327862,0.0687921126388,0.0704443249511,0.0713455316669,0.0707447271897,0.0740491518143,0.0737487495757,0.0741993529336,0.0746499562915,0.0728475428599,0.073898950695,0.0743495540529,0.0741993529336,0.0722467383827,0.0731479450985,0.0717961350248,0.0722467383827,0.0744997551722,0.0746499562915,0.0757013641266,0.0758515652459,0.0757013641266,0.0761519674845,0.0746499562915,0.0740491518143,0.0744997551722,0.0744997551722,0.0735985484564,0.0749503585301,0.0743495540529,0.0749503585301,0.0757013641266,0.0735985484564,0.0758515652459,0.076902973081,0.075400961888,0.0764523697231,0.0749503585301,0.0735985484564,0.073898950695,0.0705945260704,0.0710451294283,0.0734483473371,0.0734483473371,0.0722467383827,0.0746499562915,0.0728475428599,0.0731479450985,0.0725471406213,0.0726973417406,0.0731479450985,0.0729977439792,0.072396939502,0.0732981462178,0.0725471406213,0.0717961350248,0.0717961350248,0.0732981462178,0.0732981462178,0.0734483473371,0.075400961888,0.0746499562915,0.0757013641266,0.0746499562915,0.0763021686038,0.0755511630073,0.0758515652459,0.0755511630073,0.075400961888,0.0731479450985,0.073898950695,0.0749503585301,0.0741993529336,0.075400961888,0.0749503585301,0.0766025708424,0.0760017663652,0.0748001574108,0.0763021686038,0.0796065932283,0.0785551853932,0.0791559898704,0.0797567943476,0.0803575988248,0.0803575988248,0.0791559898704,0.0793061909897,0.0802073977055,0.0802073977055,0.0799069954669,0.0802073977055,0.0796065932283,0.0787053865125,0.0784049842739,0.0787053865125,0.0800571965862,0.0793061909897,0.0802073977055,0.0791559898704,0.0788555876318,0.0773535764389,0.0784049842739,0.0793061909897,0.0791559898704,0.0788555876318,0.0791559898704,0.0811086044213,0.0841126268073,0.0883182581477,0.0898202693406,0.0914724816529,0.0908716771757,0.0911720794143,0.0922234872494,0.0946267051582,0.0943263029196,0.0962789174705,0.0934250962038,0.0929744928459,0.0922234872494,0.0935752973231,0.0959785152319,0.0971801241863,0.0973303253056,0.0949271073968,0.0944765040389,0.094025900681,0.0952275096354,0.0950773085161,0.0961287163512,0.097029923067,0.0974805264249,0.0959785152319,0.0973303253056,0.100484548811,0.102136761123,0.103188168958,0.103788973435,0.103338370078,0.104539979032,0.106642794702,0.107243599179,0.11144923052,0.114303051786,0.117307074172,0.123315118944,0.130975376029,0.139386638709,0.146896694674,0.15425654952,0.16056499653,0.170027667046,0.178889533085,0.18850240472,0.203222114411,0.216439812909,0.228756304692,0.252187679303,0.28282870764,0.318276171794,0.358079468408,0.399234575096,0.441441089619,0.479892576159,0.511434811212,0.539071817163,0.563855001847,0.565657415279,0.555593940286,0.535016386942,0.504675760844,0.466374475423,0.429274798956,0.392625725847,0.357328462812,0.322331602015,0.286433534503,0.26345276325,0.244377221099,0.231159522601,0.221096047608,0.213135388285,0.20352251665,0.197214069639,0.187450996885,0.17994094092,0.176185912937,0.169877465927,0.165371432348,0.16071519765,0.157711175264,0.154857353997,0.152454136088,0.145995487958,0.144643677885,0.145244482362,0.142841264453,0.141489454379,0.140137644306,0.140438046544,0.139386638709,0.141189052141,0.141940057737,0.144793879004,0.147197096913,0.144643677885,0.148098303629,0.149750515941,0.152454136088,0.151703130492,0.153505543923,0.151402728253,0.147647700271,0.14990071706,0.146295890197,0.146896694674,0.143141666692,0.141940057737,0.140287845425,0.138185029755,0.135631610727,0.136683018562,0.139086236471,0.133979398414,0.13488060513,0.134129599534,0.133228392818,0.132176984983,0.130825174909,0.130224370432,0.12646934245,0.123915923421,0.121212303274,0.120761699916,0.118208280888,0.117307074172,0.115504660741,0.113852448428,0.111749632758,0.11144923052,0.112200236116,0.110848426042,0.112500638355,0.111749632758,0.111749632758,0.110698224923,0.11144923052,0.109646817088,0.10919621373,0.108745610372,0.110998627162,0.11144923052,0.111148828281,0.1112990294,0.110848426042,0.110548023804,0.11144923052,0.11355204619,0.112350437235,0.110848426042,0.10919621373,0.108895811492,0.108895811492,0.107844403656,0.107844403656,0.108895811492,0.107844403656,0.105441185748,0.107994604776,0.109046012611,0.110097420446,0.108895811492,0.104539979032,0.10288776672,0.103188168958,0.0992829398565,0.0976307275442,0.097029923067,0.0938756995617,0.0926740906073,0.0898202693406,0.0902708726985,0.0922234872494,0.0931246939652,0.0916226827722,0.0943263029196,0.0959785152319,0.0965793197091,0.0974805264249,0.0953777107547,0.095527911874,0.0929744928459,0.0917728838915,0.0919230850108,0.0902708726985,0.0904210738178,0.0892194648635,0.0872668503126,0.0871166491933,0.0905712749371,0.0889190626249,0.0923736883687,0.0937254984424,0.094025900681,0.095527911874,0.0929744928459,0.0917728838915,0.0952275096354,0.0934250962038,0.0896700682213,0.0916226827722,0.0898202693406,0.0898202693406,0.0880178559091,0.0877174536705,0.0896700682213,0.0881680570284,0.086966448074,0.088468459267,0.0908716771757,0.0899704704599,0.089519867102,0.0889190626249,0.0890692637442,0.088468459267,0.0860652413582,0.0866660458354,0.086966448074,0.0863656435968,0.0841126268073,0.0832114200915,0.0827608167336,0.080958403302,0.0818596100178,0.083962425688,0.0857648391196,0.0860652413582,0.0862154424775,0.086966448074,0.0878676547898,0.0874170514319,0.0887688615056,0.0905712749371,0.0907214760564,0.0892194648635,0.0890692637442,0.0904210738178,0.0881680570284,0.0883182581477,0.0905712749371,0.0922234872494,0.0935752973231,0.094025900681,0.0931246939652,0.0919230850108,0.0902708726985,0.0893696659828,0.0896700682213,0.0878676547898,0.0868162469547,0.0859150402389,0.0841126268073,0.0847134312845,0.0842628279266,0.0848636324038,0.088468459267,0.0898202693406,0.0922234872494,0.094025900681,0.0938756995617,0.0943263029196,0.0943263029196,0.0928242917266,0.0935752973231,0.0928242917266,0.0901206715792,0.0881680570284,0.0878676547898,0.0856146380003,0.0850138335231,0.0836620234494,0.083962425688,0.0832114200915,0.0836620234494,0.0836620234494,0.0851640346424,0.0875672525512,0.0860652413582,0.0886186603863,0.0911720794143,0.0920732861301,0.0914724816529,0.0916226827722,0.0892194648635,0.0890692637442,0.088468459267,0.0862154424775,0.0857648391196,0.085464436881,0.0808082021827,0.079456392109,0.079456392109,0.0784049842739,0.0772033753196,0.0776539786774,0.0764523697231,0.0763021686038,0.0772033753196,0.0778041797967,0.0785551853932,0.0787053865125,0.076902973081,0.0773535764389,0.0796065932283,0.0791559898704,0.080958403302,0.080958403302,0.0788555876318,0.076902973081,0.0796065932283,0.0808082021827,0.0826106156143,0.0844130290459,0.0847134312845,0.0856146380003,0.0866660458354,0.088468459267,0.0928242917266,0.0928242917266,0.0898202693406,0.0899704704599,0.0902708726985,0.0890692637442,0.0890692637442,0.0880178559091,0.0874170514319,0.0865158447161,0.0872668503126,0.0904210738178,0.094025900681,0.0958283141126,0.0964291185898,0.0977809286635,0.0967295208284,0.0992829398565,0.0962789174705,0.0941761018003,0.0899704704599,0.0866660458354,0.0817094088985,0.0787053865125,0.0760017663652,0.0740491518143,0.0722467383827,0.0684917104002,0.0686419115195,0.0695431182353,0.0684917104002,0.067890905923,0.0672901014458,0.0656378891335,0.0642860790599,0.0629342689862,0.0645864812985,0.0648868835371,0.0636852745827,0.0617326600318,0.062333464509,0.0614322577932,0.0614322577932,0.0611318555546,0.0597800454809,0.0602306488388,0.0594796432423,0.059329442123,0.0590290398844,0.059329442123,0.0600804477195,0.0599302466002,0.0615824589125,0.0630844701055,0.0645864812985,0.0624836656283,0.0621832633897,0.0612820566739,0.0621832633897,0.0627840678669,0.0606812521967,0.0615824589125,0.0606812521967,0.0618828611511,0.0630844701055,0.0665390958493,0.0665390958493,0.0671399003265,0.0684917104002,0.0689423137581,0.0704443249511,0.0716459339055,0.0716459339055,0.0716459339055,0.0707447271897,0.0686419115195,0.0692427159967,0.0695431182353,0.0672901014458,0.0665390958493,0.0647366824178,0.0657880902528,0.0675905036844,0.0659382913721,0.065337486895,0.0657880902528,0.0656378891335,0.0648868835371,0.06638889473,0.06638889473,0.0671399003265,0.0666892969686,0.067890905923,0.0686419115195,0.0702941238318,0.0702941238318,0.0711953305476,0.0704443249511,0.0699937215932,0.0705945260704,0.069392917116,0.0660884924914,0.0614322577932,0.0594796432423,0.0569262242142,0.0557246152598,0.054823408544,0.0555744141405,0.0539222018282,0.0524201906353,0.0537720007089,0.0540724029475,0.0561752186177,0.0557246152598,0.0572266264528,0.0591792410037,0.0603808499581,0.059329442123,0.0602306488388,0.0597800454809,0.0599302466002,0.0597800454809,0.0587286376458,0.0597800454809,0.0600804477195,0.0581278331686,0.0567760230949,0.0600804477195,0.0584282354072,0.0588788387651,0.0590290398844,0.0605310510774,0.0618828611511,0.0624836656283,0.0618828611511,0.0614322577932,0.0615824589125,0.0581278331686,0.0588788387651,0.0590290398844,0.0602306488388,0.0579776320493,0.0564756208563,0.0560250174984,0.0572266264528,0.0588788387651,0.0582780342879,0.0600804477195,0.0605310510774,0.0602306488388,0.0591792410037,0.0605310510774,0.0617326600318,0.0629342689862,0.0617326600318,0.0603808499581,0.0606812521967,0.060831453316,0.0605310510774,0.0603808499581,0.0600804477195,0.0590290398844,0.0587286376458,0.0564756208563,0.056325419737,0.0584282354072,0.0596298443616,0.0597800454809,0.0615824589125,0.0633848723441,0.0627840678669,0.0635350734634,0.0641358779406,0.0672901014458,0.0672901014458,0.0672901014458,0.0668394980879,0.0669896992072,0.0669896992072,0.0674403025651,0.0674403025651,0.0675905036844,0.0666892969686,0.0633848723441,0.0648868835371,0.0632346712248,0.0627840678669,0.062333464509,0.0621832633897,0.0614322577932,0.0605310510774,0.0621832633897,0.0612820566739,0.0639856768213,0.0630844701055,0.0635350734634,0.0639856768213,0.0642860790599,0.0639856768213,0.063835475702,0.0651872857757,0.0648868835371,0.0660884924914,0.0648868835371,0.0647366824178,0.0644362801792,0.0641358779406,0.0635350734634,0.0641358779406,0.0648868835371,0.063835475702,0.0620330622704,0.0606812521967,0.0594796432423,0.0603808499581,0.0591792410037,0.0594796432423,0.0591792410037,0.0588788387651,0.0566258219756,0.0582780342879,0.059329442123,0.0606812521967,0.0600804477195,0.0590290398844,0.0605310510774,0.0600804477195,0.060831453316,0.0588788387651,0.060831453316,0.0579776320493,0.05782743093,0.0579776320493,0.0569262242142,0.0560250174984,0.0552740119019,0.0549736096633,0.0551238107826,0.0551238107826,0.0528707939932,0.0555744141405,0.054823408544,0.0552740119019,0.0587286376458,0.0599302466002,0.0602306488388,0.0605310510774,0.0596298443616,0.0621832633897,0.0650370846564,0.0657880902528,0.0657880902528,0.0650370846564,0.0654876880143,0.0651872857757,0.0645864812985,0.063835475702,0.0639856768213,0.0624836656283,0.0600804477195,0.0576772298107,0.0581278331686,0.059329442123,0.0573768275721,0.0588788387651,0.0596298443616,0.0597800454809,0.0587286376458,0.0584282354072,0.0612820566739,0.062333464509,0.0615824589125,0.060831453316,0.0632346712248,0.0624836656283,0.0621832633897,0.0618828611511,0.0641358779406,0.0659382913721,0.0633848723441,0.0632346712248,0.0648868835371,0.0650370846564,0.0645864812985,0.0642860790599,0.0651872857757,0.0672901014458,0.0681913081616,0.0675905036844,0.0695431182353,0.0698435204739,0.0696933193546,0.0695431182353,0.0692427159967,0.0690925148774,0.0702941238318,0.070894928309,0.0690925148774,0.0690925148774,0.0701439227125,0.0704443249511,0.0717961350248,0.0696933193546,0.0690925148774,0.0683415092809,0.0665390958493,0.065337486895,0.0648868835371,0.0647366824178,0.0636852745827,0.0624836656283,0.0602306488388,0.0615824589125,0.0606812521967,0.0615824589125,0.0614322577932,0.0594796432423,0.0587286376458,0.0575270286914,0.0540724029475,0.0528707939932,0.0531711962318,0.0536217995897,0.0480643581756,0.0417559111651,0.0358980675124,0.0309414305755,0.0)
ycorr <- c(1.48366142893e-06,1.06516860388e-06,-1.84785707249e-07,-2.23574851609e-06,-5.04704794402e-06,-8.57561735433e-06,-1.27734215842e-05,-1.72330351597e-05,-2.18468129747e-05,-2.64883275374e-05,-3.10228679939e-05,-3.53215486349e-05,-3.92838616956e-05,-4.28281419288e-05,-4.589423544e-05,-4.84472656849e-05,-5.04639956932e-05,-5.19661414715e-05,-5.30224918217e-05,-5.37305096437e-05,-5.42013519802e-05,-5.4546409736e-05,-5.48615931599e-05,-5.52236067876e-05,-5.56857521761e-05,-5.62997776428e-05,-5.7105833384e-05,-5.81292648568e-05,-5.93690784428e-05,-6.08141179515e-05,-6.24278484437e-05,-6.4174895256e-05,-6.6019188049e-05,-6.79233068499e-05,-6.98605551744e-05,-7.18101187689e-05,-7.37404930981e-05,-7.56230092455e-05,-7.74398744765e-05,-7.91683196482e-05,-8.07975535115e-05,-8.2327213221e-05,-8.37507289293e-05,-8.50717815132e-05,-8.62985704781e-05,-8.74228189902e-05,-8.84526407134e-05,-8.9394423348e-05,-9.02473630503e-05,-9.10053261612e-05,-9.16757472328e-05,-9.22473626969e-05,-9.27120537985e-05,-9.30781682869e-05,-9.33332184949e-05,-9.34806880776e-05,-9.35200486191e-05,-9.34516169654e-05,-9.32875138192e-05,-9.30375531564e-05,-9.27106007958e-05,-9.23190492752e-05,-9.18916654426e-05,-9.14380348683e-05,-9.09747650856e-05,-9.052652081e-05,-9.0110203569e-05,-8.97459567562e-05,-8.94386768709e-05,-8.91970034862e-05,-8.90247909894e-05,-8.8932783795e-05,-8.89104854068e-05,-8.89495149994e-05,-8.9049350133e-05,-8.9190826003e-05,-8.93570925174e-05,-8.95322658956e-05,-8.97066335498e-05,-8.9877869429e-05,-9.00445049471e-05,-9.02071640682e-05,-9.03706354084e-05,-9.05387338025e-05,-9.07177290895e-05,-9.09211262775e-05,-9.11629688034e-05,-9.14588739841e-05,-9.18203631391e-05,-9.22559412799e-05,-9.27743372087e-05,-9.3372032655e-05,-9.40539121791e-05,-9.48174841953e-05,-9.56618707521e-05,-9.65779709925e-05,-9.75552348287e-05,-9.85741325115e-05,-9.96150528257e-05,-0.000100658029425,-0.000101680407798,-0.000102656141902,-0.00010356107951,-0.000104372317273,-0.000105070651411,-0.000105649807165,-0.000106109595976,-0.000106453064838,-0.000106705214549,-0.000106887388782,-0.000107026086998,-0.000107149448152,-0.000107277757772,-0.000107436530658,-0.000107652005578,-0.000107929206194,-0.000108272954198,-0.000108684358661,-0.000109149130527,-0.000109646135222,-0.000110157321404,-0.000110669088252,-0.000111175445234,-0.000111674412256,-0.00011215800952,-0.000112629709532,-0.000113101769001,-0.000113573288376,-0.00011404698539,-0.000114527266786,-0.000115013545398,-0.000115503863797,-0.00011599012628,-0.000116461113563,-0.000116899651613,-0.000117293126009,-0.000117613610207,-0.000117844245442,-0.00011797572184,-0.000118005527738,-0.000117930968396,-0.000117756042237,-0.000117486624122,-0.000117126724591,-0.000116687721975,-0.000116185402416,-0.0001156360394,-0.000115069881314,-0.000114507818555,-0.000113971300227,-0.000113482215317,-0.000113062647326,-0.000112726116997,-0.000112484816888,-0.000112351230472,-0.000112325679859,-0.000112406987101,-0.000112590985151,-0.000112854972996,-0.000113180540709,-0.000113540419295,-0.000113901137208,-0.000114242287138,-0.000114539532335,-0.000114775974208,-0.000114937309584,-0.00011501576474,-0.000115008755165,-0.000114926235995,-0.000114776912209,-0.000114579731116,-0.000114358544493,-0.000114129230742,-0.000113919706101,-0.000113754038888,-0.000113649126768,-0.000113618733885,-0.000113674279366,-0.000113819511528,-0.00011405512671,-0.000114382229153,-0.000114798680632,-0.000115302407053,-0.000115888400698,-0.000116536636088,-0.000117238206645,-0.00011799109947,-0.000118782217433,-0.000119605254954,-0.000120456699456,-0.000121324029136,-0.000122200784453,-0.000123075300425,-0.000123933461907,-0.000124770405941,-0.00012557917897,-0.000126347913818,-0.000127067188397,-0.000127733143369,-0.000128339920398,-0.000128887715834,-0.000129376524632,-0.000129811728341,-0.000130194705496,-0.000130529778754,-0.00013083250575,-0.000131111669861,-0.000131377114714,-0.000131640023696,-0.000131911169399,-0.000132198876354,-0.000132510783378,-0.000132853571016,-0.000133239035482,-0.000133679640483,-0.000134178819647,-0.000134734922044,-0.000135356974818,-0.000136036347653,-0.000136768891242,-0.000137546679911,-0.000138361039239,-0.000139195513147,-0.000140038374205,-0.000140867132455,-0.00014166619567,-0.000142428452942,-0.000143128435472,-0.000143757810849,-0.000144318657909,-0.000144802847301,-0.00014520886179,-0.000145541731311,-0.000145803696658,-0.000146001814428,-0.000146142818051,-0.000146230440701,-0.00014627117353,-0.000146282836093,-0.000146253726461,-0.000146190271333,-0.000146099459633,-0.000145987178317,-0.000145857035055,-0.00014572487839,-0.000145594908443,-0.000145472892553,-0.000145377801256,-0.000145318187737,-0.000145305508421,-0.000145358761059,-0.000145478172245,-0.00014567050353,-0.000145943957804,-0.000146294029451,-0.000146712324537,-0.000147190469574,-0.000147706948729,-0.00014823213193,-0.00014875292763,-0.000149245110628,-0.000149691823311,-0.0001500751801,-0.000150368581791,-0.000150549567804,-0.00015061174286,-0.000150545932115,-0.000150359094633,-0.000150058794011,-0.000149645567031,-0.000149120687209,-0.0001484929324,-0.00014776862189,-0.000146960693402,-0.000146085420346,-0.000145155616557,-0.000144179653194,-0.000143176724186,-0.000142158241733,-0.00014115017121,-0.000140176804879,-0.000139253776832,-0.000138398612679,-0.000137628071653,-0.000136962173298,-0.000136410600146,-0.000135988057458,-0.000135691602963,-0.000135518451131,-0.000135449508655,-0.000135467538506,-0.000135560110127,-0.000135714092697,-0.000135914786574,-0.000136145570495,-0.000136391931286,-0.000136649038671,-0.000136908223067,-0.000137173590372,-0.00013744947189,-0.000137748988033,-0.000138078002022,-0.000138446358941,-0.000138864357196,-0.000139335155557,-0.000139860442887,-0.000140432456379,-0.000141044289373,-0.000141681961907,-0.000142327594846,-0.000142958131283,-0.000143553811128,-0.000144096228014,-0.000144560885402,-0.000144927674625,-0.000145181614391,-0.000145318987642,-0.000145337201369,-0.000145231520109,-0.000145014224958,-0.000144698025115,-0.000144293022346,-0.000143805018489,-0.00014324541156,-0.000142623109026,-0.000141943913104,-0.000141210371342,-0.000140418098777,-0.000139572388571,-0.000138671700752,-0.000137712188922,-0.000136689997153,-0.000135605345766,-0.000134463020121,-0.00013326529349,-0.000132022065624,-0.000130740127401,-0.000129432430476,-0.000128108191884,-0.000126767630279,-0.000125414229178,-0.000124044385975,-0.000122653244996,-0.000121234270408,-0.000119781923754,-0.00011828602992,-0.000116735192602,-0.000115116526527,-0.000113424821376,-0.000111658829762,-0.000109815525672,-0.000107902841339,-0.000105934603887,-0.00010392655711,-0.000101891920709,-9.98492841058e-05,-9.78188121453e-05,-9.58231311126e-05,-9.38880313584e-05,-9.20389339549e-05,-9.02969792149e-05,-8.86863481308e-05,-8.72214884729e-05,-8.59184608431e-05,-8.47886503218e-05,-8.38471920878e-05,-8.30978851499e-05,-8.254048271e-05,-8.21649370398e-05,-8.19510955172e-05,-8.18813178075e-05,-8.19374404514e-05,-8.21009809672e-05,-8.23501574099e-05,-8.26600147498e-05,-8.30034647145e-05,-8.33586136029e-05,-8.37130795221e-05,-8.40521281088e-05,-8.43722223442e-05,-8.46697586001e-05,-8.49338113435e-05,-8.51563309915e-05,-8.53240598285e-05,-8.5423466926e-05,-8.54442576223e-05,-8.5374440438e-05,-8.51957530102e-05,-8.48870593693e-05,-8.44298663635e-05,-8.38037362642e-05,-8.29969219165e-05,-8.19956362082e-05,-8.07942422576e-05,-7.94057045106e-05,-7.78335127628e-05,-7.60899899211e-05,-7.42013224176e-05,-7.21950457169e-05,-7.01071583209e-05,-6.79783542745e-05,-6.58471840827e-05,-6.37520116016e-05,-6.17348907007e-05,-5.98237017083e-05,-5.80443242907e-05,-5.64304550006e-05,-5.49942571535e-05,-5.37402275825e-05,-5.26645627925e-05,-5.1753609096e-05,-5.09919025624e-05,-5.03607634044e-05,-4.98332073498e-05,-4.93842373223e-05,-4.89939780388e-05,-4.86329973987e-05,-4.8285616822e-05,-4.79434342546e-05,-4.76016455239e-05,-4.72633715942e-05,-4.69305617082e-05,-4.66119957177e-05,-4.63207951726e-05,-4.60752486487e-05,-4.58865862856e-05,-4.57650690142e-05,-4.57138777295e-05,-4.5729625843e-05,-4.58074088569e-05,-4.59395952164e-05,-4.61199875313e-05,-4.63441578628e-05,-4.66029219934e-05,-4.68828582778e-05,-4.7176294877e-05,-4.74773076189e-05,-4.77833678825e-05,-4.81001508353e-05,-4.84382292138e-05,-4.88089754055e-05,-4.92145405546e-05,-4.96554266793e-05,-5.01251650339e-05,-5.06178965465e-05,-5.11299862886e-05,-5.16539460531e-05,-5.21725886881e-05,-5.26756362854e-05,-5.31464696924e-05,-5.35617598714e-05,-5.39154947802e-05,-5.42059195246e-05,-5.4437775544e-05,-5.46226194917e-05,-5.47685696698e-05,-5.48819367768e-05,-5.49790053169e-05,-5.50808941429e-05,-5.5191640176e-05,-5.53281790419e-05,-5.54962767358e-05,-5.56841840203e-05,-5.58864911475e-05,-5.60851423232e-05,-5.62648531793e-05,-5.64121735194e-05,-5.65136088227e-05,-5.65485364527e-05,-5.65084992773e-05,-5.63870394387e-05,-5.61750569785e-05,-5.58786851927e-05,-5.55015145599e-05,-5.50568843815e-05,-5.4564004894e-05,-5.40443780567e-05,-5.3515602648e-05,-5.29933218317e-05,-5.24928146677e-05,-5.20248202434e-05,-5.16103883954e-05,-5.1257526086e-05,-5.09785066694e-05,-5.07803398523e-05,-5.06592773845e-05,-5.06002335693e-05,-5.05896674421e-05,-5.06178962525e-05,-5.06741960745e-05,-5.07430992559e-05,-5.08042024015e-05,-5.08410342236e-05,-5.08373170307e-05,-5.07746871467e-05,-5.06384208716e-05,-5.04244040356e-05,-5.01308174891e-05,-4.97535979982e-05,-4.92903976546e-05,-4.87383984376e-05,-4.80996409631e-05,-4.73795580743e-05,-4.65792209128e-05,-4.57053434847e-05,-4.47597450359e-05,-4.37506964002e-05,-4.26893026553e-05,-4.15871546167e-05,-4.0456821727e-05,-3.93139522502e-05,-3.81723283914e-05,-3.70394770103e-05,-3.59210864929e-05,-3.48218628652e-05,-3.37506087406e-05,-3.27113227309e-05,-3.16978049091e-05,-3.06929859277e-05,-2.96899815753e-05,-2.86804495638e-05,-2.76548998177e-05,-2.66138086982e-05,-2.55631842176e-05,-2.45092413904e-05,-2.34586958956e-05,-2.24134837063e-05,-2.13835007687e-05,-2.03874720217e-05,-1.94397746785e-05,-1.8540999207e-05,-1.76946331287e-05,-1.68967912274e-05,-1.61365571846e-05,-1.54014444396e-05,-1.46746318966e-05,-1.39482710195e-05,-1.32119468371e-05,-1.24521716943e-05,-1.16537471691e-05,-1.0813713689e-05,-9.92996666472e-06,-8.9929583699e-06,-8.00267435964e-06,-6.96740297048e-06,-5.89981713929e-06,-4.80227537967e-06,-3.67108202548e-06,-2.5118356946e-06,-1.32602858499e-06,-1.19162196829e-07,1.1121304708e-06,2.35421499898e-06,3.59962170178e-06,4.84861031097e-06,6.11085659639e-06,7.38754973892e-06,8.67392764381e-06,9.96991300237e-06,1.12764983147e-05,1.2596550605e-05,1.39393447662e-05,1.53159529265e-05,1.67449250974e-05,1.82444967138e-05,1.98279129784e-05,2.15072593492e-05,2.33010564284e-05,2.522295223e-05,2.72960449589e-05,2.95374199897e-05,3.19504390932e-05,3.45341985254e-05,3.72804545838e-05,4.01783833133e-05,4.32039810217e-05,4.63334374004e-05,4.95432188754e-05,5.2808765213e-05,5.60910676584e-05,5.9349088605e-05,6.25496544758e-05,6.56690814611e-05,6.86880348698e-05,7.15868803251e-05,7.43546725885e-05,7.69917164557e-05,7.94940885431e-05,8.1859709096e-05,8.40998605687e-05,8.62519537403e-05,8.83547780583e-05,9.04521153112e-05,9.25842588897e-05,9.48440565533e-05,9.70487185403e-05,9.93173594373e-05,0.000101715344892,0.000104317652996,0.000107208059887,0.00011047258556,0.000114173962696,0.000118374640598,0.0001231480957,0.000128568813031,0.000134670420711,0.000141768864467,0.000149877065041,0.000159065005258,0.000169398511246,0.000180929630358,0.000193700459409,0.000207774339925,0.000223210967443,0.000240064872187,0.000258394177751,0.000278246638264,0.000299662640273,0.000322669795126,0.000347269961176,0.000373435482206,0.000401098590487,0.000430125673333,0.000460302707125,0.000491328379856,0.000522804708987,0.000554251374128,0.000585111117076,0.000614771566991,0.000642573906166,0.000667849735449,0.000689961655444,0.000708337958142,0.000722513536293,0.000732159749152,0.000737105761088,0.000737341948503,0.000733021963549,0.000724446778119,0.000712054192713,0.00069639938324,0.000678111284347,0.000657846117704,0.00063625382868,0.000613947392981,0.000591475844799,0.000569303335223,0.000547815525275,0.000527299456033,0.000507961209557,0.000489914463757,0.000473206934102,0.000457826588115,0.000443732641673,0.00043086148456,0.000419142772136,0.000408500334104,0.000398859794047,0.000390155572125,0.000382326695773,0.000375314773204,0.0003690687517,0.0003635392168,0.000358687503854,0.000354464992262,0.000350821603707,0.000347706582287,0.000345058036467,0.000342813296261,0.000340902045422,0.000339257201266,0.000337817904784,0.000336532479478,0.000335341496874,0.000334193506861,0.000333041225799,0.000331843417226,0.00033057380625,0.000329217460407,0.000327770542901,0.000326236047618,0.00032461548252,0.000322910936512,0.00032111884173,0.000319241874491,0.000317278962952,0.00031522892171,0.000313076799901,0.000310800207976,0.000308379548237,0.000305792935636,0.000303014619006,0.00030003259621,0.000296840923662,0.000293442412465,0.000289850111496,0.00028608879522,0.000282198032915,0.000278227451225,0.000274219818834,0.000270231534814,0.000266309082014,0.00026250301753,0.00025886177765,0.000255420905323,0.000252208897647,0.000249235550448,0.000246504258211,0.000244008538995,0.00024174731536,0.000239706359622,0.000237872197836,0.00023623118418,0.000234758233868,0.000233423373424,0.000232195602286,0.000231058158049,0.000229993996805,0.000228980397777,0.000227995522249,0.000227016796457,0.000226030538955,0.00022500711641,0.000223930766183,0.000222794540262,0.000221597068797,0.000220331603779,0.000218985174996,0.00021755861601,0.000216048539702,0.000214448180733,0.000212753143688,0.00021096588817,0.000209083599044,0.000207100194731,0.000205008846305,0.000202809613593,0.000200515106923,0.000198131426393,0.000195665463219,0.00019313379984,0.000190560424073,0.000187961722613,0.000185360714182,0.000182787503947,0.000180269123763,0.000177826557492,0.000175462341897,0.000173181887721,0.000170996378195,0.000168905768544,0.00016689854138,0.000164969921517,0.000163113997287,0.000161321171414,0.000159572321963,0.000157861117161,0.000156186829977,0.000154553868305,0.000152955712899,0.000151388792921,0.000149855278804,0.000148354023945,0.000146876230287,0.000145415087414,0.000143970056228,0.000142531914938,0.000141092152124,0.000139636301268,0.000138155164498,0.000136650058959,0.000135119308617,0.0001335621216,0.000131985407426,0.000130390270702,0.000128784788968,0.000127170838514,0.000125557883865,0.000123955557903,0.000122376052479,0.000120818180373,0.000119273806913,0.000117736356243,0.000116202068538,0.00011466704727,0.000113129216913,0.000111588548408,0.000110045532507,0.000108507579204,0.000106969714136,0.000105434867728,0.000103924716116,0.000102457432149,0.000101052528876,9.97314671269e-05,9.85179487211e-05,9.74358897483e-05,9.64969580742e-05,9.57037070284e-05,9.50648965812e-05,9.458743994e-05,9.42645143665e-05,9.40831325079e-05,9.40295228519e-05,9.40848449397e-05,9.42221313231e-05,9.44097761009e-05,9.46164643543e-05,9.48150366406e-05,9.49809287669e-05,9.50924199114e-05,9.5130031152e-05,9.50929496167e-05,9.49682579308e-05,9.47493301529e-05,9.44330529933e-05,9.40250608838e-05,9.35354340734e-05,9.29840587622e-05,9.23905242694e-05,9.17796684683e-05,9.11730251158e-05,9.05843661112e-05,9.00302501764e-05,8.95342850503e-05,8.91140185812e-05,8.87760385898e-05,8.85268408066e-05,8.836460018e-05,8.82799112138e-05,8.82549838466e-05,8.82689653599e-05,8.82983602238e-05,8.83193471464e-05,8.83003569003e-05,8.82126958259e-05,8.80371996485e-05,8.77632191277e-05,8.7379549502e-05,8.68870390265e-05,8.62912335814e-05,8.56103137436e-05,8.48640522386e-05,8.40765113515e-05,8.32835990283e-05,8.25182582239e-05,8.18080766929e-05,8.11750027828e-05,8.06369215919e-05,8.02020466871e-05,7.98685564937e-05,7.9625419739e-05,7.94528906553e-05,7.93252010724e-05,7.92040022535e-05,7.90430897003e-05,7.88027671147e-05,7.84516261153e-05,7.79594024524e-05,7.7296382545e-05,7.64476271124e-05,7.54075317531e-05,7.41804279502e-05,7.27867903557e-05,7.12500858748e-05,6.96165840255e-05,6.792861174e-05,6.62172785582e-05,6.45122148482e-05,6.28520348678e-05,6.12721893685e-05,5.97954528342e-05,5.84405883572e-05,5.72156852876e-05,5.61237717969e-05,5.51587020929e-05,5.43092215637e-05,5.35761163866e-05,5.29634169718e-05,5.2471322808e-05,5.20977486287e-05,5.18426925738e-05,5.17165231077e-05,5.17252073005e-05,5.18721326695e-05,5.21601161049e-05,5.25972555855e-05,5.31741612995e-05,5.38774892233e-05,5.46841288057e-05,5.55626160593e-05,5.64827681365e-05,5.74073294796e-05,5.8295052294e-05,5.91096069668e-05,5.98163655998e-05,6.03755225513e-05,6.07549997186e-05,6.09277723511e-05,6.08735713497e-05,6.058969374e-05,6.00665193999e-05,5.9282939413e-05,5.82250519932e-05,5.68769330049e-05,5.52167847168e-05,5.32333660281e-05,5.09159968609e-05,4.82539966857e-05,4.52442032133e-05,4.18761010608e-05,3.81500554687e-05,3.40905101114e-05,2.97322464434e-05,2.51223942488e-05,2.03169922056e-05,1.53810636836e-05,1.0374619276e-05,5.35898837836e-06,3.92273295144e-07,-4.47307863327e-06,-9.18810493645e-06,-1.37218344729e-05,-1.80563019067e-05,-2.21792688711e-05,-2.60906915772e-05,-2.98075716776e-05,-3.33445226145e-05,-3.67152291238e-05,-3.99378854973e-05,-4.30229232335e-05,-4.59830329785e-05,-4.88261008685e-05,-5.15523763867e-05,-5.41646186557e-05,-5.66588470417e-05,-5.90320248775e-05,-6.12736590302e-05,-6.33871871917e-05,-6.53752578216e-05,-6.72378807613e-05,-6.89830624584e-05,-7.06192845587e-05,-7.21574873106e-05,-7.36098559731e-05,-7.49896210015e-05,-7.63097630876e-05,-7.75772288037e-05,-7.87987228791e-05,-7.99677102559e-05,-8.10817483477e-05,-8.21346002033e-05,-8.31137206437e-05,-8.40117644462e-05,-8.48185503684e-05,-8.55286372522e-05,-8.61304469683e-05,-8.66223689589e-05,-8.70037786184e-05,-8.72790596609e-05,-8.74671667984e-05,-8.75820959469e-05,-8.76407974309e-05,-8.76633132103e-05,-8.76714355981e-05,-8.76825959393e-05,-8.77162071044e-05,-8.77914158798e-05,-8.79216860954e-05,-8.81266204494e-05,-8.84155489974e-05,-8.87869199452e-05,-8.92506581466e-05,-8.98085588875e-05,-9.04546419288e-05,-9.11818794498e-05,-9.19846043722e-05,-9.28546365609e-05,-9.37844906268e-05,-9.47566706361e-05,-9.57504341938e-05,-9.67612572401e-05,-9.77810454664e-05,-9.87969171098e-05,-9.98076049621e-05,-0.000100818065314,-0.000101832245867,-0.000102856821541,-0.000103897515149,-0.000104964581036,-0.000106085025412,-0.000107275162914,-0.000108531997141,-0.000109857619287,-0.000111246141556,-0.000112680453968,-0.00011414232979,-0.000115602235144,-0.000117028980163,-0.000118391148403,-0.000119646786416,-0.000120750680692,-0.000121673614337,-0.000122397153355,-0.000122908404789,-0.00012320922018,-0.000123314305262,-0.000123241341064,-0.000123021910641,-0.000122690081157,-0.000122286492894,-0.000121854280713,-0.000121435460847,-0.000121061232461,-0.000120758009942,-0.000120542254547,-0.0001204148616,-0.000120380044052,-0.000120433767803,-0.000120565433616,-0.000120762200788,-0.000121008013164,-0.000121289837403,-0.000121598338177,-0.000121930146649,-0.00012228282918,-0.000122662818259,-0.000123073746303,-0.000123514709307,-0.000123990850538,-0.000124498476652,-0.000125034906993,-0.000125597844727,-0.000126177948585,-0.000126754556413,-0.000127313258716,-0.000127831745717,-0.000128293034467,-0.000128683589144,-0.000128990640232,-0.000129202856246,-0.000129318471922,-0.000129334984331,-0.000129258348226,-0.000129103442958,-0.000128885834196,-0.000128621085294,-0.00012832907235,-0.000128019347518,-0.00012771528454,-0.000127431207168,-0.000127180839527,-0.000126977997338,-0.000126831786728,-0.000126742327023,-0.000126703400692,-0.000126709489044,-0.000126750619048,-0.000126829212203,-0.000126935008496,-0.000127055755404,-0.000127183536613,-0.000127307052207,-0.000127415491992,-0.000127507584912,-0.000127582891785,-0.000127645275972,-0.000127701232962,-0.000127741835356,-0.000127758145982,-0.000127756184098,-0.000127728991718,-0.000127676551162,-0.000127596257341,-0.000127485526944,-0.000127337415868,-0.000127142158427,-0.000126891120324,-0.000126592006394,-0.000126255912255,-0.000125889017849,-0.000125500470205,-0.00012510104267,-0.00012470236875,-0.000124318572513,-0.000123961422135,-0.000123650718544,-0.000123402779339,-0.000123225418187,-0.000123121340609,-0.000123093306827,-0.000123145985164,-0.000123279811039,-0.000123494360613,-0.000123779887771,-0.000124132007637,-0.000124536456197,-0.000124980475563,-0.000125454772107,-0.000125951796102,-0.00012646034938,-0.000126976866218,-0.000127493753112,-0.000127999465894,-0.000128491336885,-0.000128975286887,-0.000129452289862,-0.00012993132587,-0.000130413448929,-0.000130905745572,-0.000131418908919,-0.00013195886839,-0.000132533596125,-0.000133148319157,-0.000133815074693,-0.000134528370376,-0.000135287354754,-0.000136087809207,-0.000136926824366,-0.000137792052346,-0.000138672983923,-0.000139547590759,-0.0001403941978,-0.00014119752298,-0.000141939849214,-0.000142605234839,-0.000143188929634,-0.000143683649004,-0.000144087995973,-0.000144399368679,-0.000144618048704,-0.000144746602081,-0.000144793021555,-0.000144767542182,-0.000144672598502,-0.000144518026837,-0.000144310648649,-0.00014405630909,-0.00014374989636,-0.000143397957079,-0.000143005697842,-0.00014259331809,-0.000142176263348,-0.000141774135647,-0.00014140410448,-0.00014108091102,-0.000140813431453,-0.000140611522378,-0.000140489213111,-0.000140459607278,-0.000140521958081,-0.000140667694163,-0.000140874742153,-0.000141125229076,-0.000141393850132,-0.000141656848546,-0.000141892651921,-0.000142078597925,-0.00014218404619,-0.00014217883354,-0.00014204522864,-0.000141775540372,-0.000141371671165,-0.000140832854362,-0.000140166104871,-0.000139385225545,-0.000138504527835,-0.000137539017198,-0.000136519119117,-0.000135476489128,-0.000134438252793,-0.000133418763399,-0.000132425749499,-0.000131466887381,-0.00013055281214,-0.000129683491088,-0.00012886279624,-0.000128090825635,-0.000127365012744,-0.000126676453247,-0.000126022640867,-0.000125401912691,-0.000124825875492,-0.000124304296706,-0.000123847922287,-0.000123471321416,-0.000123187856363,-0.000123006544584,-0.00012293867734,-0.000122995597357,-0.000123182471897,-0.000123502594233,-0.000123959144543,-0.000124545781518,-0.000125247869923,-0.000125947619663,-0.000126528219996,-0.000126970480923,-0.000127269564912,-0.000127419342912)
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(36, 211, 233, 298, 417, 455, 490, 549, 588)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('BCL6_FA_ChIP-seq-GSM2754207-vs-FA_input_DNA-GSM2754208.pseudoRep1.MACS-2.1.0.p1e-1_model.pdf',height=6,width=6)
plot(x,p,type='l',col=c('red'),main='Peak Model',xlab='Distance to the middle',ylab='Percentage')
lines(x,m,col=c('blue'))
legend('topleft',c('forward tags','reverse tags'),lty=c(1,1,1),col=c('red','blue'))
plot(xcorr,ycorr,type='l',col=c('black'),main='Cross-Correlation',xlab='Lag between + and - tags',ylab='Correlation')
abline(v=altd,lty=2,col=c('red'))
legend('topleft','alternative lag(s)',lty=2,col='red')
legend('right','alt lag(s) : 36,211,233,298,417,455,490,549,588',bty='n')
dev.off()