# R script for Peak Model
#  -- generated by MACS
p <- c(0.03513875638,0.0419162613197,0.0472339959648,0.0528645385301,0.0606847365375,0.0607890058443,0.0620402375255,0.0624573147525,0.0626658533661,0.0625615840593,0.0624573147525,0.0619359682187,0.062248776139,0.0615188909917,0.0588078890157,0.0590164276293,0.0594335048563,0.059120696936,0.0589121583225,0.059120696936,0.0600591206969,0.0593292355496,0.0590164276293,0.0600591206969,0.060476197924,0.0603719286172,0.0593292355496,0.0575566573346,0.0568267721872,0.0575566573346,0.0566182335737,0.0562011563466,0.0572438494143,0.0572438494143,0.0574523880278,0.0574523880278,0.0558883484263,0.0567225028804,0.0577651959481,0.0575566573346,0.0576609266413,0.0585993504022,0.0584950810955,0.0577651959481,0.0583908117887,0.0579737345616,0.0598505820834,0.0605804672308,0.0599548513902,0.0580780038684,0.0588078890157,0.0583908117887,0.0588078890157,0.059120696936,0.0595377741631,0.059120696936,0.0579737345616,0.0576609266413,0.0589121583225,0.0589121583225,0.0578694652549,0.0562011563466,0.055158463279,0.0541157702113,0.053802962291,0.0549499246654,0.0550541939722,0.0549499246654,0.0525517306098,0.0533858850639,0.0532816157572,0.0547413860519,0.0547413860519,0.0556798098128,0.0548456553587,0.0549499246654,0.0565139642669,0.056931041494,0.057348118721,0.0568267721872,0.0566182335737,0.0563054256534,0.0565139642669,0.0559926177331,0.055158463279,0.0529688078369,0.0522389226895,0.0507791523948,0.0525517306098,0.0524474613031,0.0535944236775,0.0546371167451,0.0541157702113,0.0550541939722,0.0571395801075,0.0581822731752,0.0582865424819,0.059120696936,0.0575566573346,0.0583908117887,0.0572438494143,0.057348118721,0.0570353108007,0.057348118721,0.055575540506,0.0554712711993,0.0556798098128,0.0546371167451,0.055575540506,0.055158463279,0.056931041494,0.0562011563466,0.0552627325857,0.0544285781316,0.0541157702113,0.0542200395181,0.0529688078369,0.053802962291,0.0521346533828,0.0531773464504,0.052030384076,0.0526559999166,0.055158463279,0.0550541939722,0.055575540506,0.0558883484263,0.0571395801075,0.0585993504022,0.0593292355496,0.0576609266413,0.0583908117887,0.0577651959481,0.0570353108007,0.0572438494143,0.057348118721,0.0574523880278,0.056931041494,0.0564096949601,0.056931041494,0.0579737345616,0.0576609266413,0.0572438494143,0.057348118721,0.0580780038684,0.0575566573346,0.0584950810955,0.0582865424819,0.0575566573346,0.056931041494,0.0563054256534,0.0562011563466,0.0568267721872,0.0563054256534,0.0567225028804,0.0578694652549,0.0574523880278,0.0563054256534,0.0564096949601,0.058703619709,0.0606847365375,0.0601633900037,0.0611018137646,0.0606847365375,0.0578694652549,0.0590164276293,0.059120696936,0.0603719286172,0.0597463127766,0.0568267721872,0.0550541939722,0.0553670018925,0.0557840791195,0.0563054256534,0.0583908117887,0.055575540506,0.0562011563466,0.0556798098128,0.0575566573346,0.0598505820834,0.0607890058443,0.0617274296052,0.0602676593105,0.0595377741631,0.0589121583225,0.0603719286172,0.0603719286172,0.0618316989119,0.0612060830714,0.0593292355496,0.0567225028804,0.0553670018925,0.055158463279,0.0566182335737,0.0574523880278,0.0588078890157,0.0583908117887,0.0579737345616,0.0588078890157,0.0600591206969,0.0616231602984,0.0627701226728,0.0633957385134,0.064021354354,0.0637085464337,0.0619359682187,0.0635000078202,0.0623530454458,0.0602676593105,0.0605804672308,0.0616231602984,0.0608932751511,0.0611018137646,0.0596420434699,0.0588078890157,0.0596420434699,0.0576609266413,0.0577651959481,0.0574523880278,0.0571395801075,0.0571395801075,0.0574523880278,0.0566182335737,0.0574523880278,0.0595377741631,0.0589121583225,0.0598505820834,0.0594335048563,0.0602676593105,0.0612060830714,0.0599548513902,0.0592249662428,0.0600591206969,0.0590164276293,0.0566182335737,0.0577651959481,0.0552627325857,0.0560968870398,0.0567225028804,0.0549499246654,0.055158463279,0.0552627325857,0.0553670018925,0.055158463279,0.0557840791195,0.055575540506,0.0574523880278,0.0583908117887,0.0580780038684,0.0585993504022,0.0584950810955,0.0594335048563,0.0585993504022,0.058703619709,0.0592249662428,0.0582865424819,0.0575566573346,0.0564096949601,0.0563054256534,0.0562011563466,0.0567225028804,0.0556798098128,0.0566182335737,0.0572438494143,0.0575566573346,0.0570353108007,0.0568267721872,0.0579737345616,0.0574523880278,0.0581822731752,0.0579737345616,0.0589121583225,0.0584950810955,0.0597463127766,0.0607890058443,0.0631871998999,0.0632914692067,0.0629786612864,0.0645427008879,0.0644384315811,0.0646469701946,0.0633957385134,0.0632914692067,0.0619359682187,0.0606847365375,0.0592249662428,0.0594335048563,0.0581822731752,0.0582865424819,0.0588078890157,0.058703619709,0.0594335048563,0.058703619709,0.0589121583225,0.0589121583225,0.0602676593105,0.060476197924,0.0611018137646,0.0608932751511,0.0598505820834,0.0607890058443,0.0616231602984,0.0637085464337,0.0643341622743,0.0654811246487,0.0655853939555,0.0673579721705,0.0679835880111,0.0698604355329,0.0711116672141,0.0719458216682,0.0735098612697,0.0739269384967,0.0745525543373,0.0758037860185,0.0765336711659,0.0752824394847,0.0741354771103,0.0728842454291,0.0735098612697,0.0726757068156,0.0719458216682,0.0711116672141,0.0718415523614,0.0704860513735,0.0700689741464,0.0704860513735,0.0727799761223,0.0737183998832,0.0727799761223,0.0730927840426,0.0744482850306,0.0749696315644,0.0747610929509,0.0749696315644,0.074239746417,0.075595247405,0.0764294018591,0.0764294018591,0.0767422097794,0.0780977107674,0.0763251325524,0.0768464790862,0.0759080553253,0.07736782562,0.0789318652215,0.0776806335403,0.0778891721538,0.0776806335403,0.07736782562,0.0762208632456,0.0766379404727,0.0770550176997,0.0770550176997,0.0758037860185,0.0745525543373,0.0743440157238,0.0744482850306,0.0740312078035,0.0746568236441,0.075595247405,0.0763251325524,0.0769507483929,0.079140403835,0.0803916355162,0.0802873662094,0.0821642137312,0.0825812909583,0.0825812909583,0.0834154454124,0.0835197147192,0.0824770216515,0.0812257899703,0.0821642137312,0.0812257899703,0.0808087127433,0.0808087127433,0.0803916355162,0.0816428671974,0.0807044434365,0.0797660196756,0.0796617503689,0.0798702889824,0.0777849028471,0.0778891721538,0.0792446731418,0.0785147879944,0.0777849028471,0.075595247405,0.0766379404727,0.0782019800741,0.0790361345283,0.0784105186877,0.0777849028471,0.07736782562,0.0768464790862,0.0776806335403,0.0775763642335,0.0770550176997,0.0762208632456,0.0765336711659,0.0780977107674,0.0797660196756,0.080495904823,0.0814343285839,0.0823727523448,0.0811215206636,0.0820599444245,0.0831026374921,0.0859179087748,0.0835197147192,0.0831026374921,0.0815385978906,0.0823727523448,0.0826855602651,0.0831026374921,0.0839367919462,0.0826855602651,0.0842495998665,0.0829983681853,0.0835197147192,0.0837282533327,0.0863349860018,0.0874819483763,0.0884203721372,0.0887331800575,0.0892545265913,0.092486875101,0.0927996830213,0.0933210295551,0.0957192236107,0.0946765305431,0.0939466453957,0.0935295681687,0.0946765305431,0.0963448394513,0.0968661859852,0.096032031531,0.0965533780649,0.0974918018258,0.0965533780649,0.0989515721205,0.0993686493475,0.101245496869,0.100515611722,0.100098534495,0.10155830479,0.102809536471,0.103539421618,0.103852229538,0.105311999833,0.104894922606,0.105520538447,0.106041884981,0.105207730526,0.104165037459,0.103747960232,0.104269306766,0.106458962208,0.107605924582,0.107918732502,0.108752886956,0.110004118638,0.111985235466,0.115530391896,0.117928585952,0.120639587928,0.120639587928,0.120952395848,0.12314205129,0.125853053266,0.128876863162,0.131483595831,0.131483595831,0.130649441377,0.133256174046,0.135445829488,0.137739754237,0.139303793839,0.140346486906,0.140450756213,0.142327603735,0.141597718588,0.141284910667,0.143578835416,0.142640411655,0.142848950269,0.142744680962,0.144621528484,0.143161758189,0.143474566109,0.144830067097,0.14733253046,0.149417916595,0.150147801742,0.152754534411,0.15473565124,0.158176538363,0.161096078953,0.167665045279,0.170897393789,0.172252894777,0.17600658982,0.180490170011,0.182054209613,0.183618249214,0.185390827429,0.186120712576,0.188206098712,0.187267674951,0.188935983859,0.191021369994,0.189353061086,0.18987440762,0.193211025436,0.196547643253,0.197694605627,0.201135492751,0.20082268483,0.203220878886,0.207183112543,0.205827611555,0.21051973036,0.212813655108,0.212396577881,0.215733195698,0.220738122423,0.224908894693,0.230747975872,0.236482787744,0.241174906549,0.247013987728,0.249412181783,0.254104300588,0.261194613448,0.261715959981,0.264114154037,0.264635500571,0.262550114436,0.260881805527,0.262237306515,0.26400988473,0.26724223324,0.271725813431,0.274228276793,0.276313662929,0.277460625303,0.280588704506,0.282361282721,0.28434239955,0.282674090641,0.283299706482,0.281839936187,0.277460625303,0.277669163917,0.278399049064,0.276522201542,0.273289853032,0.277147817383,0.279233203518,0.280067357972,0.282152744107,0.28496801539,0.287679017366,0.288096094593,0.286740593605,0.287679017366,0.289034518354,0.286740593605,0.285697900538,0.286949132219,0.287261940139,0.287261940139,0.286427785685,0.286949132219,0.292475405477,0.294143714386,0.296020561907,0.299982795564,0.302485258927,0.301546835166,0.301129757939,0.300608411405,0.302798066847,0.300608411405,0.295499215373,0.293101021318,0.289451595581,0.28465520747,0.277460625303,0.273081314419,0.266095270866,0.258275072858,0.24920364317,0.240027944174,0.233876055075,0.224074740239,0.215107579857,0.203012340272,0.194045179891,0.184139595748,0.178196245262,0.171210201709,0.161721694793,0.156716768069,0.148688031448,0.144308720563,0.140972102747,0.140346486906,0.137739754237,0.13346471266,0.128564055242,0.124601821585,0.122412166143,0.120326780007,0.116885892884,0.113236467147,0.107814463196,0.104686383993,0.102079651323,0.104790653299,0.103747960232,0.101245496869,0.0997857265746,0.0972832632122,0.0967619166784,0.0969704552919,0.0980131483596,0.095614954304,0.0944679919296,0.0908185661928,0.0874819483763,0.0873776790695,0.0856051008545,0.0832069067989,0.0832069067989,0.0825812909583,0.0820599444245,0.0812257899703,0.0803916355162,0.0799745582891,0.0807044434365,0.0806001741297,0.08091298205,0.0824770216515,0.0818514058109,0.0790361345283,0.0770550176997,0.0756995167118,0.0739269384967,0.0722586295885,0.0717372830547,0.0701732434532,0.0696518969194,0.0668366256367,0.0666280870232,0.067149433557,0.0668366256367,0.0666280870232,0.0679835880111,0.0687134731585,0.0684006652382,0.0686092038517,0.0670451642502,0.0695476276126,0.0687134731585,0.068922011772,0.0694433583058,0.0695476276126,0.0678793187043,0.0687134731585,0.0682963959314,0.0690262810788,0.068922011772,0.0684006652382,0.0685049345449,0.07027751276,0.0696518969194,0.0690262810788,0.0700689741464,0.0697561662261,0.0685049345449,0.0675665107841,0.0678793187043,0.0691305503855,0.0686092038517,0.0667323563299,0.0670451642502,0.0681921266246,0.0674622414773,0.065376855342,0.0668366256367,0.0676707800908,0.0679835880111,0.0678793187043,0.0672537028638,0.0687134731585,0.0690262810788,0.0684006652382,0.0692348196923,0.0718415523614,0.0712159365208,0.0723628988953,0.0713202058276,0.0692348196923,0.0704860513735,0.0687134731585,0.0684006652382,0.0698604355329,0.0697561662261,0.067149433557,0.0668366256367,0.065793932569,0.0670451642502,0.0655853939555,0.0648555088081,0.065376855342,0.0649597781149,0.0633957385134,0.0626658533661,0.0627701226728,0.0625615840593,0.0632914692067,0.0630829305931,0.0646469701946,0.0645427008879,0.0646469701946,0.0652725860352,0.0654811246487,0.0661067404893,0.0661067404893,0.0663152791029,0.0650640474217,0.065793932569,0.0662110097961,0.0662110097961,0.0649597781149,0.0645427008879,0.0652725860352,0.0649597781149,0.0664195484096,0.0650640474217,0.0644384315811,0.0635000078202,0.0630829305931,0.0631871998999,0.0627701226728,0.0618316989119,0.0629786612864,0.0635000078202,0.0629786612864,0.0656896632623,0.0670451642502,0.0663152791029,0.0660024711826,0.065793932569,0.0688177424652,0.0703817820667,0.0676707800908,0.0663152791029,0.0664195484096,0.0647512395014,0.0632914692067,0.0632914692067,0.0642298929676,0.0651683167284,0.0637085464337,0.0631871998999,0.0643341622743,0.0639170850473,0.0639170850473,0.065376855342,0.0667323563299,0.0678793187043,0.0678793187043,0.0677750493976,0.0677750493976,0.0676707800908,0.0652725860352,0.0665238177164,0.0665238177164,0.0645427008879,0.064021354354,0.0638128157405,0.0621445068322,0.0620402375255,0.0613103523781,0.0611018137646,0.0617274296052,0.0616231602984,0.0615188909917,0.0611018137646,0.058703619709,0.0583908117887,0.0594335048563,0.0580780038684,0.0579737345616,0.0584950810955,0.059120696936,0.0589121583225,0.0579737345616,0.0593292355496,0.0609975444578,0.0614146216849,0.0621445068322,0.0633957385134,0.0624573147525,0.0619359682187,0.0628743919796,0.0616231602984,0.0620402375255,0.0612060830714,0.0602676593105,0.0588078890157,0.0572438494143,0.0556798098128,0.0559926177331,0.0552627325857,0.0548456553587,0.0571395801075,0.0554712711993,0.0563054256534,0.0558883484263,0.0566182335737,0.0575566573346,0.0597463127766,0.0613103523781,0.0616231602984,0.0616231602984,0.0606847365375,0.0638128157405,0.0626658533661,0.0646469701946,0.0658982018758,0.0660024711826,0.0642298929676,0.0628743919796,0.0625615840593,0.0616231602984,0.0599548513902,0.0572438494143,0.0579737345616,0.0571395801075,0.0554712711993,0.0540115009045,0.0546371167451,0.0553670018925,0.0559926177331,0.0576609266413,0.0583908117887,0.0583908117887,0.0581822731752,0.0578694652549,0.0566182335737,0.0579737345616,0.0565139642669,0.0559926177331,0.0559926177331,0.0534901543707,0.0543243088248,0.0544285781316,0.0547413860519,0.0553670018925,0.056931041494,0.0563054256534,0.0572438494143,0.0571395801075,0.0574523880278,0.0576609266413,0.0563054256534,0.0574523880278,0.0567225028804,0.0567225028804,0.0563054256534,0.0565139642669,0.0559926177331,0.0546371167451,0.0533858850639,0.0546371167451,0.0554712711993,0.0542200395181,0.0544285781316,0.0530730771436,0.0534901543707,0.0528645385301,0.0528645385301,0.0544285781316,0.0562011563466,0.0560968870398,0.0556798098128,0.0566182335737,0.0567225028804,0.0577651959481,0.0576609266413,0.0583908117887,0.0580780038684,0.0580780038684,0.0578694652549,0.0571395801075,0.0583908117887,0.0571395801075,0.0562011563466,0.0548456553587,0.055158463279,0.0550541939722,0.0556798098128,0.0542200395181,0.0543243088248,0.055158463279,0.0543243088248,0.0558883484263,0.0578694652549,0.0600591206969,0.0602676593105,0.0590164276293,0.0583908117887,0.0588078890157,0.0577651959481,0.056931041494,0.0577651959481,0.0567225028804,0.0577651959481,0.0567225028804,0.056931041494,0.0577651959481,0.0579737345616,0.0590164276293,0.0592249662428,0.0599548513902,0.0597463127766,0.0607890058443,0.059120696936,0.0598505820834,0.059120696936,0.0590164276293,0.0599548513902,0.0595377741631,0.0602676593105,0.0597463127766,0.0590164276293,0.059120696936,0.058703619709,0.0574523880278,0.0575566573346,0.0574523880278,0.0559926177331,0.0562011563466,0.0547413860519,0.0553670018925,0.0545328474384,0.0536986929842,0.0530730771436,0.053802962291,0.0542200395181,0.0540115009045,0.055158463279,0.0545328474384,0.0552627325857,0.055575540506,0.0554712711993,0.0557840791195,0.0553670018925,0.0544285781316,0.0539072315978,0.0544285781316,0.0534901543707,0.0531773464504,0.0531773464504,0.0526559999166,0.0531773464504,0.0515090375422,0.0523431919963,0.0540115009045,0.0530730771436,0.052030384076,0.0516133068489,0.0526559999166,0.0543243088248,0.053802962291,0.0536986929842,0.0549499246654,0.0559926177331,0.0550541939722,0.0545328474384,0.0554712711993,0.0576609266413,0.0570353108007,0.0549499246654,0.0547413860519,0.0550541939722,0.0567225028804,0.0564096949601,0.0572438494143,0.0592249662428,0.0618316989119,0.0599548513902,0.0602676593105,0.0598505820834,0.0607890058443,0.0620402375255,0.0599548513902,0.0597463127766,0.0579737345616,0.0570353108007,0.0544285781316,0.0546371167451,0.0544285781316,0.0549499246654,0.055158463279,0.0544285781316,0.0559926177331,0.0565139642669,0.0566182335737,0.057348118721,0.0562011563466,0.0576609266413,0.0575566573346,0.0583908117887,0.0582865424819,0.058703619709,0.0585993504022,0.0590164276293,0.0584950810955,0.0581822731752,0.0579737345616,0.0564096949601,0.0575566573346,0.0556798098128,0.0564096949601,0.0557840791195,0.0547413860519,0.0550541939722,0.0562011563466,0.0558883484263,0.0570353108007,0.0582865424819,0.0582865424819,0.0615188909917,0.0600591206969,0.0601633900037,0.0611018137646,0.0592249662428,0.0592249662428,0.0598505820834,0.0599548513902,0.0595377741631,0.0588078890157,0.0585993504022,0.0602676593105,0.0607890058443,0.0596420434699,0.0602676593105,0.0608932751511,0.0595377741631,0.0594335048563,0.0603719286172,0.0606847365375,0.0594335048563,0.059120696936,0.0594335048563,0.0597463127766,0.0596420434699,0.0594335048563,0.0594335048563,0.0590164276293,0.0589121583225,0.0584950810955,0.0580780038684,0.0574523880278,0.057348118721,0.0570353108007,0.0566182335737,0.0575566573346,0.0578694652549,0.0582865424819,0.0565139642669,0.0576609266413,0.0577651959481,0.0590164276293,0.0577651959481,0.0599548513902,0.0608932751511,0.0590164276293,0.0594335048563,0.0605804672308,0.0620402375255,0.0603719286172,0.0599548513902,0.0578694652549,0.0579737345616,0.0556798098128,0.0541157702113,0.0563054256534,0.0579737345616,0.0578694652549,0.0583908117887,0.0603719286172,0.0603719286172,0.0616231602984,0.0637085464337,0.0654811246487,0.0679835880111,0.0666280870232,0.0651683167284,0.0650640474217,0.0633957385134,0.0619359682187,0.064021354354,0.0629786612864,0.0615188909917,0.0600591206969,0.0595377741631,0.059120696936,0.0593292355496,0.0590164276293,0.0602676593105,0.0582865424819,0.0563054256534,0.0576609266413,0.0572438494143,0.0572438494143,0.0558883484263,0.0579737345616,0.0572438494143,0.0565139642669,0.0565139642669,0.0593292355496,0.0602676593105,0.060476197924,0.0605804672308,0.0612060830714,0.0613103523781,0.0603719286172,0.0614146216849,0.0627701226728,0.0618316989119,0.0611018137646,0.060476197924,0.0598505820834,0.0603719286172,0.0611018137646,0.0598505820834,0.0588078890157,0.0584950810955,0.0567225028804,0.0568267721872,0.0577651959481,0.0580780038684,0.0582865424819,0.0589121583225,0.0583908117887,0.060476197924,0.0609975444578,0.0606847365375,0.0601633900037,0.0605804672308,0.0597463127766,0.0596420434699,0.0581822731752,0.0564096949601,0.0562011563466,0.0554712711993,0.0568267721872,0.0568267721872,0.056931041494,0.0575566573346,0.0594335048563,0.0593292355496,0.059120696936,0.0599548513902,0.0594335048563,0.0599548513902,0.0582865424819,0.0589121583225,0.0607890058443,0.0603719286172,0.0577651959481,0.0581822731752,0.058703619709,0.0581822731752,0.0600591206969,0.0602676593105,0.0599548513902,0.0597463127766,0.0590164276293,0.0590164276293,0.0596420434699,0.0599548513902,0.058703619709,0.059120696936,0.0582865424819,0.0588078890157,0.0589121583225,0.0584950810955,0.0601633900037,0.0595377741631,0.0596420434699,0.0588078890157,0.0595377741631,0.0589121583225,0.0576609266413,0.0556798098128,0.0560968870398,0.0560968870398,0.0543243088248,0.0541157702113,0.0534901543707,0.0475468038851,0.0426461464671,0.0375369504356,0.0322192157905,0.0)
m <- c(0.042613945647,0.0470723389872,0.0519454665916,0.0571296448942,0.0632469752912,0.0606548861399,0.0598254176115,0.0589959490831,0.0571296448942,0.0546412393089,0.0542265050447,0.0554707078373,0.05671491063,0.0579591134226,0.0579591134226,0.0586848983849,0.0583738476868,0.0597217340454,0.0597217340454,0.0607585697059,0.0597217340454,0.058788581951,0.058892265517,0.058892265517,0.0575443791584,0.0566112270639,0.0556780749694,0.0543301886108,0.0545375557429,0.0541228214787,0.0549522900071,0.0570259613281,0.0575443791584,0.0576480627244,0.0584775312528,0.0594106833473,0.0607585697059,0.0601364683096,0.0590996326491,0.0593069997812,0.058788581951,0.0578554298565,0.0566112270639,0.0553670242713,0.0553670242713,0.0565075434978,0.0559891256676,0.0564038599318,0.0585812148189,0.0598254176115,0.0620027724986,0.0627285574609,0.062832241027,0.0641801273856,0.0653206466122,0.0656316973103,0.0665648494048,0.066875900103,0.0662537987067,0.0645948616498,0.0618990889325,0.0623138231967,0.0627285574609,0.0630396081591,0.0612769875362,0.0599291011775,0.0585812148189,0.0583738476868,0.0575443791584,0.0581664805547,0.0592033162152,0.0578554298565,0.0570259613281,0.0555743914034,0.0566112270639,0.0582701641207,0.0584775312528,0.0570259613281,0.0571296448942,0.0578554298565,0.0571296448942,0.0579591134226,0.0593069997812,0.0583738476868,0.0598254176115,0.0580627969886,0.058892265517,0.058892265517,0.0589959490831,0.0572333284602,0.0579591134226,0.0571296448942,0.0546412393089,0.0550559735731,0.0539154543466,0.0542265050447,0.0520491501577,0.0538117707805,0.0537080872145,0.0552633407052,0.0543301886108,0.0535007200824,0.0539154543466,0.054848606441,0.0536044036484,0.0544338721768,0.0564038599318,0.05671491063,0.0570259613281,0.0582701641207,0.0581664805547,0.0596180504794,0.0599291011775,0.0599291011775,0.0610696204041,0.060965936838,0.0599291011775,0.0582701641207,0.0569222777621,0.0559891256676,0.0580627969886,0.0581664805547,0.0576480627244,0.0564038599318,0.0565075434978,0.0545375557429,0.0546412393089,0.0545375557429,0.054744922875,0.0546412393089,0.0537080872145,0.0522565172898,0.05277493512,0.0539154543466,0.05277493512,0.054744922875,0.0552633407052,0.0558854421015,0.0557817585355,0.0565075434978,0.0559891256676,0.05671491063,0.0578554298565,0.0594106833473,0.0606548861399,0.0598254176115,0.0596180504794,0.060965936838,0.0616917218004,0.0605512025738,0.0620027724986,0.0611733039701,0.0599291011775,0.0577517462905,0.0560928092336,0.0552633407052,0.054848606441,0.0524638844219,0.0518417830255,0.0510123144971,0.0498717952706,0.050701263799,0.0516344158934,0.0529823022521,0.0530859858182,0.0542265050447,0.0545375557429,0.0551596571392,0.0554707078373,0.0553670242713,0.0553670242713,0.0551596571392,0.0545375557429,0.0542265050447,0.0549522900071,0.0543301886108,0.054848606441,0.0551596571392,0.0535007200824,0.0537080872145,0.0539154543466,0.0537080872145,0.0538117707805,0.0546412393089,0.0541228214787,0.0530859858182,0.0539154543466,0.0542265050447,0.0566112270639,0.0571296448942,0.0565075434978,0.0571296448942,0.0570259613281,0.0555743914034,0.05671491063,0.0573370120263,0.0551596571392,0.0546412393089,0.0550559735731,0.0541228214787,0.0541228214787,0.0523602008558,0.05277493512,0.0528786186861,0.0530859858182,0.0532933529503,0.0544338721768,0.0536044036484,0.05277493512,0.0525675679879,0.0521528337237,0.0549522900071,0.0555743914034,0.0549522900071,0.0542265050447,0.0545375557429,0.0550559735731,0.0565075434978,0.0557817585355,0.0566112270639,0.0572333284602,0.0551596571392,0.0550559735731,0.0554707078373,0.0550559735731,0.0544338721768,0.0535007200824,0.0525675679879,0.054848606441,0.0552633407052,0.0550559735731,0.0564038599318,0.0551596571392,0.0550559735731,0.0558854421015,0.0549522900071,0.0551596571392,0.0555743914034,0.0540191379126,0.0535007200824,0.0538117707805,0.0528786186861,0.0530859858182,0.0525675679879,0.0531896693842,0.0549522900071,0.0557817585355,0.0558854421015,0.0569222777621,0.0569222777621,0.0579591134226,0.0575443791584,0.0575443791584,0.0582701641207,0.0561964927997,0.0576480627244,0.0574406955923,0.058788581951,0.0570259613281,0.0570259613281,0.0555743914034,0.0564038599318,0.0573370120263,0.0580627969886,0.0595143669133,0.0589959490831,0.0585812148189,0.0577517462905,0.0593069997812,0.0601364683096,0.0611733039701,0.0625211903288,0.0621064560646,0.0613806711022,0.0597217340454,0.0595143669133,0.0600327847436,0.0601364683096,0.058892265517,0.0574406955923,0.0560928092336,0.0559891256676,0.0564038599318,0.0554707078373,0.0550559735731,0.0537080872145,0.0525675679879,0.0515307323274,0.0505975802329,0.0503902131008,0.0512196816292,0.0494570610064,0.048627592478,0.0489386431761,0.0493533774403,0.0496644281385,0.0501828459687,0.0504938966669,0.0513233651953,0.0521528337237,0.0521528337237,0.0529823022521,0.0537080872145,0.054744922875,0.0558854421015,0.0556780749694,0.0561964927997,0.0565075434978,0.0581664805547,0.0585812148189,0.0580627969886,0.0570259613281,0.0575443791584,0.0585812148189,0.0584775312528,0.0597217340454,0.0600327847436,0.0590996326491,0.0590996326491,0.0598254176115,0.0603438354417,0.0612769875362,0.0617954053665,0.0607585697059,0.0606548861399,0.0606548861399,0.0601364683096,0.0610696204041,0.0596180504794,0.0604475190078,0.0612769875362,0.0611733039701,0.0610696204041,0.0600327847436,0.0615880382344,0.0615880382344,0.0624175067628,0.0627285574609,0.0631432917251,0.060862253272,0.0602401518757,0.0613806711022,0.0594106833473,0.0596180504794,0.058788581951,0.0597217340454,0.058892265517,0.0589959490831,0.0590996326491,0.0596180504794,0.058892265517,0.0578554298565,0.0594106833473,0.0601364683096,0.0599291011775,0.0589959490831,0.0599291011775,0.0598254176115,0.0601364683096,0.0604475190078,0.0620027724986,0.0618990889325,0.0644911780838,0.0651132794801,0.0651132794801,0.0648022287819,0.0656316973103,0.0646985452159,0.065009595914,0.0659427480085,0.0642838109517,0.0651132794801,0.0634543424233,0.0620027724986,0.0626248738949,0.0633506588572,0.0605512025738,0.0623138231967,0.0613806711022,0.0612769875362,0.0627285574609,0.0624175067628,0.0616917218004,0.0631432917251,0.0626248738949,0.0606548861399,0.0618990889325,0.0614843546683,0.0615880382344,0.0620027724986,0.0618990889325,0.0617954053665,0.0621064560646,0.0622101396307,0.0623138231967,0.0634543424233,0.0627285574609,0.0624175067628,0.0626248738949,0.0602401518757,0.0602401518757,0.0604475190078,0.0594106833473,0.0585812148189,0.0583738476868,0.0602401518757,0.0602401518757,0.0601364683096,0.0600327847436,0.062935924593,0.062935924593,0.0626248738949,0.0637653931214,0.0651132794801,0.0667722165369,0.0676016850653,0.0671869508011,0.0667722165369,0.0681201028956,0.0673943179332,0.0663574822727,0.0667722165369,0.0663574822727,0.0662537987067,0.0642838109517,0.062935924593,0.0641801273856,0.0644911780838,0.0645948616498,0.0646985452159,0.0653206466122,0.0664611658388,0.0685348371598,0.0679127357635,0.0700900906505,0.0696753563863,0.0695716728203,0.0711269263111,0.0706085084808,0.071023242745,0.071023242745,0.0705048249147,0.0678090521974,0.066979583669,0.0661501151406,0.0657353808764,0.0666685329709,0.0658390644424,0.0659427480085,0.0654243301782,0.0657353808764,0.0662537987067,0.0681201028956,0.0687422042919,0.0692606221221,0.0684311535937,0.0684311535937,0.066979583669,0.0666685329709,0.0666685329709,0.0681201028956,0.0670832672351,0.0657353808764,0.0665648494048,0.0658390644424,0.0681201028956,0.0678090521974,0.0680164193295,0.0684311535937,0.0692606221221,0.0670832672351,0.0674980014993,0.068949571424,0.068949571424,0.0684311535937,0.0681201028956,0.0697790399524,0.0704011413487,0.0712306098771,0.0699864070845,0.0717490277074,0.0708158756129,0.0697790399524,0.0691569385561,0.0691569385561,0.0679127357635,0.0674980014993,0.0695716728203,0.0686385207258,0.0695716728203,0.0706085084808,0.0707121920468,0.0715416605753,0.0721637619716,0.0749632182549,0.0775553074062,0.0757926867834,0.0753779525191,0.0747558511228,0.0756890032173,0.0745484839907,0.0745484839907,0.0746521675568,0.0758963703494,0.0736153318963,0.071023242745,0.0715416605753,0.0714379770092,0.0720600784055,0.070919559179,0.0704011413487,0.0713342934432,0.0705048249147,0.06905325499,0.0685348371598,0.0691569385561,0.0686385207258,0.0683274700277,0.0683274700277,0.0681201028956,0.068949571424,0.0697790399524,0.0694679892542,0.0697790399524,0.0699864070845,0.0693643056882,0.0705048249147,0.0698827235184,0.0698827235184,0.0678090521974,0.0671869508011,0.0672906343672,0.0664611658388,0.0662537987067,0.0676016850653,0.0688458878579,0.0688458878579,0.0715416605753,0.0718527112734,0.0754816360852,0.0765184717457,0.0755853196512,0.0758963703494,0.0754816360852,0.0745484839907,0.0738226990284,0.0740300661605,0.0712306098771,0.0714379770092,0.0697790399524,0.0695716728203,0.0699864070845,0.0720600784055,0.0734079647642,0.0736153318963,0.0741337497265,0.0762074210476,0.077140573142,0.0767258388778,0.0774516238402,0.0753779525191,0.0758963703494,0.0762074210476,0.077140573142,0.0784884595007,0.0798363458593,0.0798363458593,0.0813915993501,0.0845021063316,0.0858499926903,0.0890641832379,0.0895826010681,0.0915525888231,0.0921746902194,0.0910341709929,0.0909304874268,0.0906194367287,0.0930041587478,0.0922783737855,0.0920710066534,0.0944557286725,0.0969441342578,0.0986030713146,0.0978772863522,0.101298844032,0.102750413957,0.105238819542,0.104720401712,0.106690389467,0.108453010089,0.108245642957,0.107623541561,0.10948984575,0.11446665692,0.114570340486,0.117991898166,0.118821366695,0.12234660794,0.126701317714,0.12970814113,0.134270218036,0.140387548433,0.14256490332,0.146401195264,0.153659044888,0.156354817605,0.163508983663,0.168900529097,0.172944188173,0.181549924155,0.190259343704,0.197206142629,0.206330296442,0.212862361103,0.221053362821,0.228518579577,0.235361694936,0.245833735107,0.254232103957,0.26283783994,0.267710967544,0.27621301996,0.282434033923,0.289380832849,0.295290796114,0.301719177209,0.303378114266,0.301615493643,0.302548645737,0.300786025114,0.299541822322,0.298919720925,0.298504986661,0.297260783868,0.293631859057,0.291661871302,0.290936086339,0.29145450417,0.290728719207,0.293113441226,0.293942909755,0.293839226189,0.292387656264,0.289899250679,0.291972922,0.290521352075,0.291869238434,0.290313984943,0.291143453471,0.287618212226,0.285337173773,0.281708248961,0.278494058413,0.281397198263,0.281708248961,0.283263502452,0.283781920282,0.283678236716,0.282226666791,0.283056135319,0.285544540905,0.28461138881,0.285337173773,0.28015299547,0.275383551432,0.274035665073,0.271961993752,0.273206196545,0.270925158092,0.269888322431,0.267607283978,0.266674131883,0.2638746756,0.263667308468,0.261904687845,0.260349434354,0.257342610939,0.252158432636,0.250188444881,0.24261954456,0.237020631993,0.233391707181,0.229762782369,0.226030173991,0.220327577859,0.217320754443,0.215972868084,0.215661817386,0.211825525442,0.210166588386,0.208196600631,0.20715976497,0.20664134714,0.205397144347,0.204878726517,0.200005598913,0.192955116421,0.186734102458,0.184556747571,0.185178848967,0.184764114703,0.180098354231,0.174395758098,0.17118156755,0.170870516852,0.170766833286,0.171492618249,0.173047871739,0.172529453909,0.169315263361,0.165271604285,0.164338452191,0.165582654984,0.161850046606,0.160191109549,0.156562184737,0.15386641202,0.151585373567,0.149719069378,0.146919613094,0.147852765189,0.145675410302,0.144223840377,0.14650487883,0.143601738981,0.143083321151,0.141424384094,0.138417560678,0.136032838659,0.135203370131,0.132403913847,0.132196546715,0.12970814113,0.127530786243,0.125975532752,0.123901861431,0.124627646393,0.121620822978,0.119961885921,0.119547151657,0.118613999562,0.117577163902,0.1178882146,0.114881391185,0.113637188392,0.113015086996,0.108867744354,0.109697212882,0.110319314278,0.107208807297,0.103579882485,0.101713578296,0.0997435905412,0.100158324805,0.0990178055788,0.0998472741072,0.102231996126,0.100158324805,0.0990178055788,0.0995362234091,0.102231996126,0.10160989473,0.102957781089,0.102231996126,0.102854097523,0.101402527598,0.0987067548806,0.0987067548806,0.097462552088,0.0980846534843,0.0945594122386,0.0917599559552,0.0895826010681,0.0899973353324,0.0886494489737,0.087301562615,0.0888568161058,0.0885457654076,0.0880273475774,0.0879236640113,0.089375233936,0.0916562723892,0.0908268038608,0.0882347147095,0.0879236640113,0.0887531325397,0.0866794612187,0.0874052461811,0.0882347147095,0.0868868283508,0.0876126133132,0.0859536762564,0.0861610433885,0.0889604996718,0.0877162968792,0.0875089297471,0.0876126133132,0.085124207728,0.0837763213693,0.0849168405958,0.0845021063316,0.0849168405958,0.0847094734637,0.0824284350106,0.0836726378032,0.0824284350106,0.0826358021427,0.0835689542372,0.0837763213693,0.0807694979538,0.0780737252365,0.0776589909723,0.0757926867834,0.075066901821,0.0744448004247,0.0725784962358,0.0727858633679,0.0715416605753,0.070919559179,0.075170585387,0.0773479402741,0.0762074210476,0.0755853196512,0.0768295224439,0.0775553074062,0.0805621308217,0.0805621308217,0.0803547636896,0.0801473965575,0.0774516238402,0.0767258388778,0.079110560897,0.0823247514446,0.0817026500483,0.0813915993501,0.0808731815199,0.0806658143878,0.0829468528409,0.0819100171804,0.0820137007464,0.0805621308217,0.0796289787272,0.0783847759346,0.0777626745383,0.0765184717457,0.0753779525191,0.0760000539155,0.0754816360852,0.0765184717457,0.0764147881797,0.077140573142,0.0773479402741,0.0760000539155,0.0772442567081,0.0786958266328,0.0796289787272,0.0780737252365,0.0785921430667,0.0793179280291,0.0783847759346,0.0777626745383,0.077140573142,0.0773479402741,0.0756890032173,0.0743411168586,0.0717490277074,0.0707121920468,0.0695716728203,0.0678090521974,0.0666685329709,0.066875900103,0.0663574822727,0.0671869508011,0.066979583669,0.0684311535937,0.0692606221221,0.0706085084808,0.0705048249147,0.070919559179,0.0720600784055,0.0724748126697,0.0725784962358,0.073096914066,0.0720600784055,0.0715416605753,0.073096914066,0.0732005976321,0.0719563948395,0.073096914066,0.0728895469339,0.0724748126697,0.0719563948395,0.0706085084808,0.0734079647642,0.0740300661605,0.0739263825944,0.0741337497265,0.075170585387,0.0755853196512,0.0746521675568,0.0746521675568,0.075066901821,0.0746521675568,0.0718527112734,0.0702974577826,0.0671869508011,0.0662537987067,0.0643874945177,0.0622101396307,0.0622101396307,0.0620027724986,0.0615880382344,0.0621064560646,0.0623138231967,0.0623138231967,0.0637653931214,0.0630396081591,0.0653206466122,0.0627285574609,0.0623138231967,0.0625211903288,0.0616917218004,0.0618990889325,0.0625211903288,0.0596180504794,0.0592033162152,0.0584775312528,0.0570259613281,0.0584775312528,0.0579591134226,0.0572333284602,0.056818594196,0.0551596571392,0.0549522900071,0.0565075434978,0.0557817585355,0.0558854421015,0.0552633407052,0.0556780749694,0.0572333284602,0.0565075434978,0.0558854421015,0.0569222777621,0.0549522900071,0.0552633407052,0.0536044036484,0.0536044036484,0.0545375557429,0.0546412393089,0.0539154543466,0.0544338721768,0.0575443791584,0.0579591134226,0.0597217340454,0.0586848983849,0.0602401518757,0.060862253272,0.0607585697059,0.0607585697059,0.0595143669133,0.0590996326491,0.05671491063,0.0560928092336,0.0537080872145,0.0537080872145,0.0544338721768,0.0538117707805,0.0517380994595,0.0521528337237,0.0522565172898,0.0517380994595,0.0513233651953,0.0505975802329,0.0532933529503,0.0529823022521,0.0523602008558,0.0535007200824,0.054848606441,0.0555743914034,0.0561964927997,0.0570259613281,0.0570259613281,0.0580627969886,0.0577517462905,0.0584775312528,0.058788581951,0.0571296448942,0.0559891256676,0.054744922875,0.054848606441,0.0554707078373,0.0566112270639,0.0554707078373,0.0541228214787,0.0546412393089,0.0540191379126,0.0537080872145,0.0553670242713,0.054744922875,0.0555743914034,0.0545375557429,0.0539154543466,0.0533970365163,0.0529823022521,0.0518417830255,0.0530859858182,0.0531896693842,0.0523602008558,0.0533970365163,0.0530859858182,0.05277493512,0.05277493512,0.0531896693842,0.0546412393089,0.0540191379126,0.0525675679879,0.0529823022521,0.0535007200824,0.0537080872145,0.05277493512,0.0537080872145,0.0543301886108,0.0528786186861,0.0520491501577,0.0531896693842,0.0542265050447,0.0544338721768,0.0533970365163,0.0532933529503,0.0529823022521,0.0524638844219,0.0520491501577,0.0546412393089,0.0565075434978,0.0569222777621,0.0569222777621,0.0572333284602,0.0565075434978,0.0554707078373,0.0564038599318,0.056818594196,0.0564038599318,0.0550559735731,0.0529823022521,0.0530859858182,0.0528786186861,0.0528786186861,0.0543301886108,0.0566112270639,0.0561964927997,0.0556780749694,0.0560928092336,0.0554707078373,0.0570259613281,0.0566112270639,0.0556780749694,0.0556780749694,0.0555743914034,0.054744922875,0.054848606441,0.054848606441,0.0545375557429,0.0560928092336,0.054848606441,0.0550559735731,0.0553670242713,0.0563001763657,0.0581664805547,0.0579591134226,0.0592033162152,0.0603438354417,0.0611733039701,0.0626248738949,0.0640764438196,0.0652169630461,0.0653206466122,0.0656316973103,0.0644911780838,0.0645948616498,0.0641801273856,0.0622101396307,0.060965936838,0.0586848983849,0.0575443791584,0.0570259613281,0.0584775312528,0.0571296448942,0.0572333284602,0.0554707078373,0.0543301886108,0.0552633407052,0.0551596571392,0.0561964927997,0.0565075434978,0.0553670242713,0.0537080872145,0.0522565172898,0.0515307323274,0.0516344158934,0.0529823022521,0.0531896693842,0.0541228214787,0.0532933529503,0.0525675679879,0.0524638844219,0.0528786186861,0.0539154543466,0.0557817585355,0.0564038599318,0.0572333284602,0.05671491063,0.0553670242713,0.0560928092336,0.0575443791584,0.0572333284602,0.0571296448942,0.0572333284602,0.0556780749694,0.056818594196,0.0541228214787,0.05671491063,0.0581664805547,0.0577517462905,0.0575443791584,0.0579591134226,0.0571296448942,0.0574406955923,0.0570259613281,0.0554707078373,0.0566112270639,0.0544338721768,0.0544338721768,0.0544338721768,0.054848606441,0.0556780749694,0.0573370120263,0.0574406955923,0.0589959490831,0.0579591134226,0.0578554298565,0.0575443791584,0.0572333284602,0.0565075434978,0.056818594196,0.056818594196,0.0569222777621,0.0559891256676,0.0537080872145,0.054744922875,0.0540191379126,0.0544338721768,0.0541228214787,0.0545375557429,0.0540191379126,0.0546412393089,0.0532933529503,0.0536044036484,0.054848606441,0.0556780749694,0.0565075434978,0.0559891256676,0.05671491063,0.0563001763657,0.0560928092336,0.0559891256676,0.0576480627244,0.0583738476868,0.0583738476868,0.0584775312528,0.0577517462905,0.0579591134226,0.0578554298565,0.0593069997812,0.0607585697059,0.0596180504794,0.0596180504794,0.0604475190078,0.0606548861399,0.060862253272,0.0612769875362,0.0622101396307,0.0618990889325,0.0607585697059,0.0600327847436,0.0614843546683,0.0620027724986,0.0605512025738,0.060862253272,0.0613806711022,0.0626248738949,0.0622101396307,0.0633506588572,0.0637653931214,0.0626248738949,0.0627285574609,0.0617954053665,0.0623138231967,0.0631432917251,0.0618990889325,0.0617954053665,0.0620027724986,0.060862253272,0.0611733039701,0.0610696204041,0.0615880382344,0.0640764438196,0.0580627969886,0.050804947365,0.0454134019304,0.0388813372692,0.0)
ycorr <- c(2.92171748039e-05,2.90205994987e-05,2.84313049279e-05,2.74474731427e-05,2.60749010507e-05,2.43156332617e-05,2.21721615909e-05,1.99485315769e-05,1.76456129662e-05,1.52717222456e-05,1.28394468593e-05,1.0359122333e-05,7.83945155846e-06,5.29760060155e-06,2.74528064849e-06,1.855722603e-07,-2.37225105939e-06,-4.92162502265e-06,-7.44566269791e-06,-9.93958224728e-06,-1.23994420843e-05,-1.48276094575e-05,-1.72271766019e-05,-1.96043475323e-05,-2.19676438933e-05,-2.4319281513e-05,-2.6655861624e-05,-2.89735877269e-05,-3.12828951684e-05,-3.35863251581e-05,-3.5887185064e-05,-3.81841531771e-05,-4.04816262671e-05,-4.27721315503e-05,-4.50473370837e-05,-4.73024528127e-05,-4.95359469818e-05,-5.17611011162e-05,-5.39793279551e-05,-5.61929499316e-05,-5.84098465833e-05,-6.06255848718e-05,-6.28379978355e-05,-6.50493590794e-05,-6.72703206833e-05,-6.94970032555e-05,-7.17363554203e-05,-7.39764564266e-05,-7.62017485359e-05,-7.84109228716e-05,-8.05940411709e-05,-8.2754166945e-05,-8.48879758712e-05,-8.6996025614e-05,-8.90687367765e-05,-9.11034782991e-05,-9.3101552227e-05,-9.50649325431e-05,-9.70067124749e-05,-9.8931531343e-05,-0.000100835470027,-0.000102711439441,-0.000104551130875,-0.000106348627974,-0.000108105343246,-0.000109823232512,-0.000111501194777,-0.000113142509596,-0.000114737087948,-0.000116287960167,-0.000117798746731,-0.000119280432927,-0.000120738901318,-0.000122177893983,-0.000123604638251,-0.000125024086864,-0.00012643777561,-0.000127842269123,-0.000129240821897,-0.000130629650936,-0.000131999433772,-0.000133341668087,-0.000134653241047,-0.00013594266654,-0.000137214929365,-0.00013846869305,-0.000139692799497,-0.000140891438038,-0.000142070654756,-0.000143230205889,-0.00014438098238,-0.000145531775339,-0.000146688270752,-0.000147842131803,-0.000148978950131,-0.00015009456885,-0.00015119852186,-0.000152288105376,-0.00015336016015,-0.000154407612104,-0.000155427750277,-0.00015641819546,-0.00015737673009,-0.000158300671023,-0.000159200620492,-0.000160080067009,-0.000160935374445,-0.000161768911064,-0.000162583373878,-0.000163379597187,-0.000164160152584,-0.000164923211743,-0.000165666121635,-0.000166390823907,-0.00016709987083,-0.000167793115136,-0.000168477112296,-0.000169154402792,-0.000169819268012,-0.00017047870238,-0.000171136737446,-0.000171791659908,-0.000172450483997,-0.000173120949398,-0.00017380075003,-0.000174488771532,-0.000175181174542,-0.000175870569468,-0.000176557717011,-0.000177243435395,-0.000177920019255,-0.000178585726854,-0.000179243602571,-0.000179882438139,-0.000180494185996,-0.000181079957788,-0.000181641637232,-0.000182183124978,-0.00018270797441,-0.00018321723028,-0.000183713505516,-0.000184201581452,-0.000184677660231,-0.000185144903696,-0.000185613561788,-0.000186084150652,-0.000186555975408,-0.000187025456692,-0.0001874901852,-0.00018794960159,-0.000188397896396,-0.000188834526833,-0.00018926367898,-0.000189687025,-0.000190097203923,-0.000190488730983,-0.000190867629415,-0.000191239899117,-0.000191608563781,-0.000191973027152,-0.000192341475146,-0.000192715597324,-0.000193091208076,-0.000193469922152,-0.000193855570787,-0.000194257909945,-0.000194673354534,-0.000195094454375,-0.000195516730173,-0.000195942784319,-0.000196369101053,-0.000196794536076,-0.000197221508938,-0.000197648131546,-0.000198073358596,-0.000198490495342,-0.00019889773814,-0.000199307048749,-0.000199719883953,-0.000200135242853,-0.00020055238122,-0.000200971200851,-0.000201388646589,-0.000201807546076,-0.000202230446178,-0.000202658155449,-0.000203094369741,-0.000203530659552,-0.000203962625957,-0.000204391088829,-0.000204815411559,-0.000205233388382,-0.000205646708113,-0.000206046138313,-0.000206423821129,-0.00020677962759,-0.000207109012298,-0.000207411479622,-0.000207693839063,-0.000207951560464,-0.000208191432845,-0.000208415036247,-0.000208624642016,-0.000208834556796,-0.00020905647647,-0.000209291998492,-0.000209540722362,-0.000209808483076,-0.000210095942853,-0.000210409195063,-0.000210748684111,-0.000211107074001,-0.000211482896438,-0.000211867613365,-0.000212247113158,-0.000212620100872,-0.000212992827837,-0.000213362645356,-0.000213726189321,-0.000214078649186,-0.000214411700688,-0.000214732112161,-0.000215040217067,-0.000215340131674,-0.000215639627541,-0.000215942810444,-0.000216246251209,-0.000216544993788,-0.000216840833988,-0.000217135769802,-0.000217435068294,-0.000217738583826,-0.00021804438248,-0.000218351634878,-0.000218658330581,-0.000218963510629,-0.000219263873183,-0.000219565345296,-0.000219871243222,-0.000220183442861,-0.00022049653505,-0.000220812674438,-0.000221133393304,-0.000221453466595,-0.000221773985031,-0.000222091627058,-0.000222405979034,-0.00022271195476,-0.000223002249687,-0.000223268886293,-0.000223511151523,-0.0002237292128,-0.000223915143437,-0.000224068437736,-0.000224191575484,-0.000224286025388,-0.000224354073205,-0.000224396936644,-0.000224423185327,-0.000224435027177,-0.000224439070589,-0.000224432377556,-0.000224418525328,-0.00022440222455,-0.000224383286018,-0.000224361337411,-0.000224337250477,-0.000224307570906,-0.000224270977384,-0.000224224972049,-0.000224168438192,-0.000224100786545,-0.000224027578726,-0.000223948398361,-0.00022386167845,-0.000223765996292,-0.000223662095195,-0.000223556969753,-0.000223453599516,-0.000223354833681,-0.000223263418276,-0.000223183787167,-0.000223118676001,-0.000223063335264,-0.000223020764666,-0.000222995591157,-0.000222988474706,-0.000222993885487,-0.000223005939433,-0.000223022460546,-0.000223042400294,-0.000223060053342,-0.00022307002641,-0.000223071522314,-0.000223065190613,-0.000223045800047,-0.000223010496819,-0.000222962777151,-0.00022290658093,-0.000222840203111,-0.000222761535707,-0.000222673085024,-0.00022257044266,-0.000222457002072,-0.000222330638266,-0.000222190263641,-0.000222037490631,-0.000221869512246,-0.000221677801078,-0.000221465553132,-0.000221232519457,-0.000220980410083,-0.000220709071426,-0.000220422384393,-0.000220118980208,-0.00021979946464,-0.000219464195463,-0.00021911631119,-0.000218758818518,-0.000218397581407,-0.000218031291953,-0.000217658520806,-0.00021728184882,-0.000216902080672,-0.00021652054917,-0.000216136073129,-0.000215751853475,-0.000215365098306,-0.000214975897793,-0.000214578684483,-0.000214175749081,-0.000213769977733,-0.000213365352858,-0.000212958768232,-0.000212547674472,-0.000212141879426,-0.000211740789867,-0.000211343738167,-0.000210953632404,-0.000210572617683,-0.000210204075412,-0.000209846023003,-0.00020949472287,-0.000209148228199,-0.000208811479448,-0.000208477247062,-0.000208138377534,-0.000207793160056,-0.000207440832017,-0.000207083469328,-0.000206715705001,-0.000206334428865,-0.000205939260929,-0.000205528796198,-0.000205099687495,-0.00020464889537,-0.000204179523972,-0.000203695673224,-0.000203196813515,-0.000202678239874,-0.000202141152977,-0.00020158555306,-0.000201016033764,-0.000200433628643,-0.000199839628112,-0.000199236300455,-0.00019862770917,-0.000198015344698,-0.000197393812773,-0.00019676738903,-0.000196135831774,-0.000195498182309,-0.000194853806314,-0.00019420158186,-0.000193542507562,-0.000192879655754,-0.00019221245046,-0.000191535034675,-0.000190853152056,-0.000190166228817,-0.00018947678659,-0.000188790197045,-0.000188105020311,-0.00018742865474,-0.000186761090779,-0.000186100485534,-0.000185441934577,-0.000184788453762,-0.000184142023977,-0.000183504411583,-0.000182875193582,-0.000182252996407,-0.000181639406909,-0.000181033019429,-0.000180426145516,-0.000179821511519,-0.000179220253331,-0.000178627122442,-0.000178040349455,-0.0001774577939,-0.000176875779808,-0.000176295868291,-0.000175714341929,-0.000175124923485,-0.000174533546562,-0.000173940495005,-0.000173342006614,-0.000172735879206,-0.000172121017129,-0.000171498132158,-0.000170867531819,-0.000170221745431,-0.000169561186437,-0.000168885705734,-0.000168195816049,-0.000167486804656,-0.000166762552701,-0.000166024783541,-0.000165270361115,-0.000164495495824,-0.000163699747495,-0.000162884758888,-0.000162052328855,-0.000161203165072,-0.000160340312672,-0.000159463244015,-0.000158573661376,-0.000157667523406,-0.000156746915549,-0.000155814061853,-0.000154870711131,-0.000153921210022,-0.000152970730418,-0.000152022783023,-0.000151074467578,-0.00015012831184,-0.000149182256258,-0.000148236168781,-0.000147290530181,-0.000146344915266,-0.000145404531413,-0.000144467001333,-0.000143529361258,-0.000142587031099,-0.00014163903915,-0.000140686246103,-0.000139730402179,-0.000138775332884,-0.000137824336157,-0.000136879866676,-0.000135939835164,-0.000135007106095,-0.000134081142704,-0.000133165017181,-0.000132260863778,-0.000131370147841,-0.000130495301978,-0.000129633793473,-0.000128785805614,-0.000127945852538,-0.000127113732291,-0.000126285345532,-0.000125456631962,-0.000124631008541,-0.000123804412931,-0.000122975208104,-0.000122140950021,-0.000121297928137,-0.000120444234274,-0.000119583847021,-0.000118715855738,-0.000117841060465,-0.000116960259012,-0.000116069188613,-0.000115167228761,-0.000114254881856,-0.000113332969325,-0.00011240547176,-0.000111472300741,-0.000110532132136,-0.000109580311107,-0.000108620554015,-0.000107653602633,-0.000106685496111,-0.000105721606275,-0.00010476252016,-0.000103807575378,-0.000102854450869,-0.000101900579383,-0.000100949921073,-0.00010000409762,-9.90684666137e-05,-9.81417065759e-05,-9.7223010924e-05,-9.63074053529e-05,-9.53909665377e-05,-9.44734336143e-05,-9.35591606857e-05,-9.26492978079e-05,-9.17434562733e-05,-9.08413310082e-05,-8.99387930525e-05,-8.90346991964e-05,-8.81247951042e-05,-8.72130097714e-05,-8.63021231001e-05,-8.53944939053e-05,-8.44891195954e-05,-8.35853512085e-05,-8.26838730992e-05,-8.17895283385e-05,-8.09006715286e-05,-8.00197988424e-05,-7.91491689495e-05,-7.82915985354e-05,-7.74448098481e-05,-7.66102638864e-05,-7.57890263487e-05,-7.49831316237e-05,-7.41895713511e-05,-7.34059604933e-05,-7.26316302565e-05,-7.18630268597e-05,-7.11006224455e-05,-7.03360059588e-05,-6.95714761673e-05,-6.87999200722e-05,-6.80220633429e-05,-6.72361375324e-05,-6.64423283492e-05,-6.56373645877e-05,-6.48195657953e-05,-6.39906761425e-05,-6.31528627037e-05,-6.23087615237e-05,-6.14597663233e-05,-6.06075651769e-05,-5.97521226659e-05,-5.88906297697e-05,-5.80199529953e-05,-5.71406264528e-05,-5.62569062013e-05,-5.53694262063e-05,-5.44716708918e-05,-5.3563406242e-05,-5.2640789999e-05,-5.1701461122e-05,-5.07409522708e-05,-4.97595273298e-05,-4.87563627524e-05,-4.77320067965e-05,-4.6681107978e-05,-4.56012214428e-05,-4.44929216302e-05,-4.33537710687e-05,-4.218450851e-05,-4.09887465925e-05,-3.97692635567e-05,-3.85226891136e-05,-3.72498565799e-05,-3.59464842382e-05,-3.46086697055e-05,-3.32359666574e-05,-3.18217902228e-05,-3.03648062421e-05,-2.88610260158e-05,-2.73008526692e-05,-2.56750794529e-05,-2.39817269345e-05,-2.22205955995e-05,-2.03862647397e-05,-1.84785669513e-05,-1.64942106999e-05,-1.44333921802e-05,-1.22945916802e-05,-1.00740555563e-05,-7.77242907567e-06,-5.38830200244e-06,-2.92074100061e-06,-3.61117802501e-07,2.29200457975e-06,5.03626747677e-06,7.87788878514e-06,1.08170809987e-05,1.38579982893e-05,1.70021185693e-05,2.02502962602e-05,2.36032448965e-05,2.7057543252e-05,3.06112958623e-05,3.4275308199e-05,3.8070445162e-05,4.20093871073e-05,4.61037079048e-05,5.04200529319e-05,5.47593216686e-05,5.91774883372e-05,6.36904741286e-05,6.83146731824e-05,7.3067827964e-05,7.79689011945e-05,8.30112544055e-05,8.8184011402e-05,9.3487545402e-05,9.89158760633e-05,0.000104408440291,0.000110177852911,0.00011617922236,0.000122413534915,0.000128877883249,0.000135569514139,0.000142484670428,0.000149632796465,0.00015701494891,0.000164634357636,0.000172494645811,0.000180598162788,0.000188944824767,0.000197527130124,0.0002063342199,0.000215357385118,0.000224582616392,0.000233996677123,0.000243584103596,0.000253331920494,0.000263224565922,0.000273247156001,0.000283378828535,0.000293599829762,0.000303895209889,0.000314245371888,0.000324639184458,0.000335062680278,0.000345497611395,0.000355927080071,0.000366339691786,0.000376718721963,0.000387051500217,0.000397330123602,0.000407544542477,0.000417689930442,0.000427759502273,0.000437741470144,0.000447631254402,0.000457429180435,0.000467130584725,0.000476732387672,0.000486233121098,0.000495630421675,0.000504929100299,0.000514127875655,0.000523225702837,0.000532224563046,0.000541127928086,0.000549934992225,0.00055864482555,0.000567254835183,0.000575764344149,0.000584174529971,0.000592478630404,0.000600667885505,0.000608732750304,0.000616663331344,0.00062445450919,0.000632097888025,0.000639587647073,0.000646919077462,0.000654088053258,0.000661082243914,0.000667895036103,0.000674524385196,0.000680968233015,0.000687225599626,0.00069328907282,0.000699147539538,0.000704793156688,0.000710219327606,0.000715415598284,0.000720376913493,0.000725103481643,0.000729586413127,0.000733812871301,0.000737775262376,0.000741470609403,0.000744901462665,0.00074806851502,0.000750970599877,0.000753603760085,0.000755969632473,0.000758065129689,0.000759892825968,0.000761460063222,0.000762775496498,0.000763843334719,0.000764667425697,0.000765249456224,0.000765598410161,0.000765726312048,0.000765647920145,0.000765371595652,0.000764903732801,0.000764251628898,0.000763423391316,0.00076242807089,0.000761275075217,0.000759973070264,0.000758525987269,0.000756933572145,0.000755191268751,0.000753296949561,0.000751255854253,0.000749071847342,0.000746740512549,0.00074425843083,0.000741625323561,0.000738837381476,0.000735893901597,0.000732801986391,0.000729563491081,0.000726186939538,0.000722670633351,0.000719017444863,0.000715230944548,0.000711316758548,0.00070727419053,0.000703109530601,0.000698829138967,0.000694432640439,0.000689925206332,0.000685311959289,0.000680596978535,0.000675787485093,0.000670889738323,0.000665908535842,0.000660851018112,0.000655723363534,0.000650523871744,0.000645254023857,0.000639919078197,0.000634517220427,0.000629052454825,0.000623521093184,0.000617925567946,0.000612264507941,0.000606540330697,0.000600755031816,0.000594915559275,0.000589028901839,0.000583098360702,0.000577127116606,0.000571120945136,0.000565086223925,0.000559026375666,0.000552944264904,0.00054684255922,0.000540723910289,0.000534587195924,0.000528436210632,0.000522276116805,0.0005161076353,0.000509936546006,0.000503765062419,0.000497597703521,0.00049144282744,0.000485305898495,0.000479189868511,0.000473106616689,0.000467060638919,0.000461048902557,0.000455076678649,0.000449142934005,0.000443248135592,0.000437390543588,0.000431562232108,0.000425761360789,0.000419984306166,0.000414227725877,0.000408484914272,0.000402760146283,0.000397053525583,0.000391361907501,0.000385690905405,0.00038004105851,0.000374418059844,0.000368830113678,0.00036327902165,0.000357767766198,0.000352301254889,0.000346878175799,0.000341498188827,0.000336164025407,0.00033087187183,0.000325622090833,0.000320416107685,0.000315248099192,0.000310117724993,0.00030502453219,0.000299967272312,0.000294947420712,0.000289968243806,0.000285027610816,0.000280129095331,0.000275269190147,0.000270453670475,0.000265681804765,0.000260957324332,0.000256280155644,0.000251655467755,0.000247081756644,0.000242554341917,0.000238073346388,0.000233637901726,0.000229255025368,0.000224925765531,0.000220645594746,0.000216414944071,0.000212234138053,0.000208101427239,0.000204014001512,0.000199976102763,0.000195994411356,0.000192071618776,0.000188205666279,0.000184392058297,0.000180635401871,0.000176939618114,0.000173306069763,0.000169732112246,0.000166221480631,0.000162776368155,0.000159396192321,0.000156076675274,0.000152817520602,0.000149621562091,0.000146490321974,0.000143423506351,0.000140414091205,0.000137462077106,0.000134564771936,0.000131720876529,0.00012892626676,0.000126179345181,0.000123479294465,0.000120821943373,0.000118204610556,0.000115622194377,0.000113074034738,0.000110561767169,0.000108082891153,0.000105634489377,0.000103212900039,0.000100819648527,9.8454093873e-05,9.61115912137e-05,9.37903432921e-05,9.14845945486e-05,8.91911871089e-05,8.69090484401e-05,8.46398311816e-05,8.2383049678e-05,8.01440622498e-05,7.79183289227e-05,7.57029693998e-05,7.35017504616e-05,7.13173392519e-05,6.91552339386e-05,6.70234341688e-05,6.49204994085e-05,6.2846023768e-05,6.07957565842e-05,5.87663366791e-05,5.6759947072e-05,5.47792965107e-05,5.28194239744e-05,5.08776454518e-05,4.89511787049e-05,4.70396411008e-05,4.51432230987e-05,4.32648222291e-05,4.14051405214e-05,3.95664453217e-05,3.77470551666e-05,3.59437252314e-05,3.41578624321e-05,3.23915879992e-05,3.06455117971e-05,2.89168799747e-05,2.71981948299e-05,2.5482876778e-05,2.37684191213e-05,2.20536792371e-05,2.03377317049e-05,1.86216739174e-05,1.6904855191e-05,1.51876416216e-05,1.34683038072e-05,1.17425229499e-05,1.0012133429e-05,8.27900955934e-06,6.54308316378e-06,4.80096785266e-06,3.05103273792e-06,1.28894980163e-06,-4.84249030301e-07,-2.27378581489e-06,-4.08617963106e-06,-5.92445902316e-06,-7.78752677171e-06,-9.67655743421e-06,-1.15946814123e-05,-1.35406011502e-05,-1.55146414183e-05,-1.75185694367e-05,-1.95522510349e-05,-2.16170240938e-05,-2.37084380665e-05,-2.58204933165e-05,-2.79505557539e-05,-3.00985565677e-05,-3.22578813709e-05,-3.44280729235e-05,-3.66083439878e-05,-3.87953216283e-05,-4.09883128151e-05,-4.31834032914e-05,-4.53765523627e-05,-4.75684815122e-05,-4.97574737791e-05,-5.19423991457e-05,-5.41259213761e-05,-5.6308791552e-05,-5.84873006753e-05,-6.06572563958e-05,-6.28163007527e-05,-6.49647086235e-05,-6.71037589437e-05,-6.92333100192e-05,-7.13559958062e-05,-7.34729114223e-05,-7.55817906967e-05,-7.76785779128e-05,-7.97635966467e-05,-8.18393670873e-05,-8.39073247771e-05,-8.59704179548e-05,-8.80280633459e-05,-9.00801384861e-05,-9.21284485737e-05,-9.41709535683e-05,-9.62059315349e-05,-9.82361707e-05,-0.000100262886244,-0.000102285587747,-0.000104305332707,-0.00010632191391,-0.000108331508623,-0.000110333042304,-0.00011232148295,-0.000114295707347,-0.000116255642415,-0.000118205012887,-0.000120140777493,-0.000122064784128,-0.000123977897183,-0.000125873064106,-0.000127751951558,-0.000129618193808,-0.000131469564827,-0.000133310940131,-0.000135140852338,-0.000136955465319,-0.000138754142017,-0.000140530311175,-0.000142278848436,-0.000144001577558,-0.000145703387727,-0.000147378358649,-0.000149028857582,-0.000150648579448,-0.000152233699874,-0.000153786561715,-0.000155306450064,-0.000156795522776,-0.000158258830068,-0.000159695375785,-0.000161102047165,-0.000162478836288,-0.00016382646504,-0.000165146218736,-0.000166446620268,-0.000167727121342,-0.000168991645497,-0.000170241152914,-0.000171473472362,-0.000172692088671,-0.000173897764591,-0.000175090961437,-0.000176271310639,-0.00017743934177,-0.000178591205888,-0.000179722729034,-0.000180832360818,-0.000181917323941,-0.000182978477639,-0.000184012146149,-0.000185018344677,-0.000186003249491,-0.000186967551985,-0.000187910121847,-0.000188834512607,-0.000189740655029,-0.000190633840672,-0.000191517269161,-0.00019239244464,-0.000193261595205,-0.000194125649751,-0.000194980730694,-0.000195823205486,-0.000196653863606,-0.000197475986659,-0.000198293232035,-0.000199103481401,-0.0001999049637,-0.000200696093153,-0.000201475817941,-0.000202243800582,-0.000202999278909,-0.00020374075819,-0.000204471795576,-0.000205186617472,-0.000205880944696,-0.000206549549674,-0.000207191125914,-0.000207802930038,-0.000208386370435,-0.000208940031978,-0.000209463804929,-0.000209964380756,-0.000210444780444,-0.000210904259836,-0.000211348970672,-0.000211779627639,-0.000212201513557,-0.000212620595264,-0.00021304273417,-0.000213468892371,-0.000213898329707,-0.000214328827,-0.000214756004609,-0.000215173695725,-0.000215582036908,-0.000215983099667,-0.000216378854857,-0.000216766463172,-0.000217141586777,-0.000217500346083,-0.000217848270609,-0.000218188212488,-0.000218520454378,-0.000218850946372,-0.000219181480495,-0.000219510392466,-0.000219835746281,-0.000220155998156,-0.000220466581134,-0.000220769514889,-0.000221061835959,-0.000221338351704,-0.000221597327866,-0.000221841525072,-0.000222067888347,-0.000222277445303,-0.000222467395366,-0.000222637372292,-0.000222791257494,-0.000222929518317,-0.000223053412449,-0.000223169285122,-0.000223279741716,-0.000223385599838,-0.000223488469458,-0.000223589894595,-0.000223694715423,-0.000223810192825,-0.000223939783881,-0.000224085723992,-0.000224254549976,-0.000224447291825,-0.000224664882808,-0.000224904067969,-0.000225163552982,-0.000225444804251,-0.000225744269205,-0.000226061031544,-0.000226392129577,-0.000226734119307,-0.000227083176579,-0.000227431710669,-0.000227771954661,-0.000228102899234,-0.000228428125081,-0.000228743844436,-0.000229049928012,-0.000229341962877,-0.000229617934994,-0.00022987617351,-0.000230113132612,-0.000230330862678,-0.000230538691095,-0.000230742811493,-0.000230941277095,-0.000231134905521,-0.000231327620909,-0.000231514047109,-0.000231698947835,-0.0002318854978,-0.000232074960548,-0.000232270390021,-0.00023246551142,-0.0002326565508,-0.000232843011869,-0.000233022287706,-0.000233191950128,-0.000233357205878,-0.000233523589761,-0.000233692486022,-0.000233864482093,-0.000234037844481,-0.000234218402799,-0.000234410057815,-0.000234609884744,-0.00023481962997,-0.000235038216982,-0.000235263034325,-0.000235485967594,-0.000235701828961,-0.00023590736291,-0.000236103488102,-0.00023628660172,-0.000236450892793,-0.000236598819873,-0.000236734293962,-0.000236855974926,-0.000236973486744,-0.000237087340205,-0.000237203897651,-0.000237322270677,-0.000237442487361,-0.000237563015368,-0.000237687004102,-0.000237811534596,-0.000237931212377,-0.000238043893125,-0.000238143824638,-0.00023822498035,-0.000238288119492,-0.000238331417711,-0.000238354418006,-0.000238357661058,-0.000238338684539,-0.000238296709871,-0.000238231803086,-0.00023814209713,-0.00023802761838,-0.000237891069455,-0.000237728110068,-0.000237540625468,-0.000237326727285,-0.000237085703359,-0.000236819240167,-0.000236528851632,-0.00023621665584,-0.000235889081721,-0.000235550267354,-0.000235201020489,-0.000234845211625,-0.000234481931035,-0.000234104139368,-0.000233715794586,-0.000233312872297,-0.000232896322106,-0.000232464148185,-0.000232015954002,-0.000231544024469,-0.000231046419196,-0.000230521013091,-0.000229966003436,-0.000229392218777,-0.000228799983661,-0.000228188299125,-0.000227556751946,-0.000226904239658,-0.000226229485972,-0.00022552890051,-0.000224807464392,-0.000224144274187,-0.000223618748478,-0.000223230481296,-0.000222971123796,-0.000222842190373)
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(97)
x <- seq.int((length(p)-1)/2*-1,(length(p)-1)/2)
pdf('test_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) : 97',bty='n')
dev.off()