Differences
This shows you the differences between two versions of the page.
Next revision | Previous revision | ||
cap241:2018:rscript [2018/08/22 18:06] karine created |
cap241:2018:rscript [2018/08/22 18:09] (current) karine |
||
---|---|---|---|
Line 1: | Line 1: | ||
<html> | <html> | ||
+ | |||
<!DOCTYPE html> | <!DOCTYPE html> | ||
Line 220: | Line 221: | ||
<!-- rnb-source-end --> | <!-- rnb-source-end --> | ||
<!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | ||
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAA0lBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZmYAZrY6AAA6ADo6AGY6OgA6Ojo6OmY6OpA6ZmY6ZpA6ZrY6kJA6kNtmAABmADpmAGZmOgBmOjpmOpBmZgBmZjpmZmZmkJBmkLZmkNtmtttmtv+QOgCQOjqQOmaQZgCQZjqQkDqQkGaQtpCQttuQ29uQ2/+2ZgC2Zjq2kDq2tpC225C227a22/+2/9u2///bkDrbkGbbtmbbtrbb25Db29vb2//b////tmb/trb/25D/27b/29v//7b//9v///9r9dLtAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAViUlEQVR4nO2dC3vrxBVFJ4E0ufRB2/heSp/EUFramJZCDKWNMbX9//9SNZIfsj2WZ6SRdM4+e31wybVl6+yjhTKWxpLbEKIUN3YBhLSF8hK1UF6iFspL1EJ5iVooL1EL5SVqobxELZSXqIXyErVQXqIWykvUQnmJWigvUQvlJWqhvEQtlJeohfIStVBeohbKS9RCeYlaKC9RC+UlaqG8RC2Ul6iF8hK1UF6iFspL1EJ5iVooL1EL5SVqobxELZSXqIXyErVQXqIWykvUQnmJWigvUQvljWHmtnz4cPuS+Nrl9Zf4RSIWu8D/vnxq90L1UN4YJMu7njrKSxpZPtw89/febfe6G8pLrlPJW+0jb774yL3/9bL4wzv37YO7+VPx3x9/49zNJ5vDI6vJzV8fbv9Zmnm+UMH6y2Jn/svX2p63WOxX37nbl9XEffL59rng2vYLFO4618F9zVDeSOryliOI9/x/7ndDikevk+fp5JG7772V5wt5qkfvD/LOq8FJKe/+uaa1uXvKS65yJO/963fO/ep17krpvt7tkJ8L++5e948Ugt2//ndr5slC/i1Xk+LRb6v3eNm/4MdpJe/d1+uZu7i2wwIcNpBrHA0bnqu/Lgp3FtuPck+FTje//FthZf2Rp+ol5wtVrP/5O1eTt1rHopL3qfrp8tq2C1Beco1L8s53Om2KUWn5G31+EGz3kvOFPOWQty7vovz9v92xBuWdU94alDeSM3kLzyqd7vY70v8VO9Kb5/0jdXlPF/I/LdzNH/+zqAYa1/a8p2ujvBvKG80leYsx6Seb78rf6LfVLnL/yEHe84X8W87d+y/rP9fkPRrzBuWtvXdN3sexmzMSlDeSS/LuP/+XH/ud3zMejgjsXhJYaLMfHB+GDdWI42cN8taPNmwX8A/1dwhaNJQ3kovyrv+xPYS7/rw6art/pCbv+UKebx/c+/+a+H11/Thv07Ch9t57eYth9O3XY7ZmNCivIMphw6Y+QCZNUF5JbOdQWB3DpkJ5JbH+8sFVwwsSAeUlaqG8RC2Ul6iF8hK1UF6iFv3yLj/YTmZdT0PzWvdP+4mxPIAKhX55ZztjZ/f+nxNWk93Ti7PniHLUy7t4b7trXb19Puxmd8zdh7uHZjz0j4Z2edeffbW104vrBT7i3687n9ef2py8gox2eeePyyZ5D2Pe1dufWp18BYtyeVcfv0bKu3zzvFm9s/lFRVSUyzt72kTK6wk8TRSjW976N8mDH9goLzK65fXs7QweKts/vfDTtn/B47xIgMjrj4MVu+FLJyn803Oz1+aARb+8xCyUl6iF8hK1UF6iFspL1EJ5iVooL1EL5SVqobxELZSXqAVFXnf25+WHCAgom5PyGgRlc1Jeg6BsTsprEJTNSXkNgrI5Ka9BUDYn5TUIyuakvAbB2JwumtTlURl3e2XCWArugSswGmAsBeWtwGiAohQNt8qhvIlgNEBPitn24rqBazNQ3lQwGqAmxf5qN4Gr4lDeVDAaoCYF5c0JRgP0pNgNF2aBa/NT3kQwGqAoxZwf2LKB0QDdKVKPuTvb8rrAT5qxlcK2vC74o2JspTAtr7vws17UpNheR9oFL1RKea/jLv5FLYpShM5ObKG8V3ENf9OKohTr6cU7qVHea7jGvyrFVgqr8p4djsFogK0URuU9j4vRAFspbMobSIvRAFspTMobCovRAFspLMobzIrRAFspDMobjorRAFsp7Ml7ISlGA2ylMCfvpaAYDbCVwpq8F3NiNMBWCmPyXo6J0QBbKWzJ25ASowG2UpiStykkRgNspTAkb/O3SzAaYCuFHXmvJMRogK0UZuS9FhCjAbZSWJH3aj6MBthKYUTe6/EwGmArhQ15I9JhNMBWChPyxoTDaICtFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn56Emxmrjbb6bOhe6DSXlrUF55zJ42C/e02cwD9lLeGpRXHKu3z+W/m+UHhxtn7+6lTXlrUF5xlPK+ezmWd0dcikJdA/JGZcNogJ4UnYcN7rCgntTJRP5/3HMVw6AnRccPbNWIAV7eyGQYDTCS4mSwi5H6nPjBf69lDIWNFO7kB4zUZ8THwmiAhRS1/RG0vAmpMBpgIIU7/xkj9QkpoTAaAJ/ieBgILG9SJowGgKc4/QSDK29aJIwGYKc4exxW3sREGA1AThE4cIQqb2ogjAYApwg9iClv9OHdwyv6KGNwYFOENyikvC3SYDRAcorV5NH/+e58Is4pF8cHFx6WnDqZNmEwGiA6xfLh5u/T4GSGE05TXPw9CihvqywYDRCeYuZur+93T1M0DAHx5G0XBaMBolPM3N3rLHnP2xQJTt6WSTAaIDlFNdpdf5Y05m3+5I0mb9sgGA1AS3ElD5i8rXNgNAArxdUDnlDyph/ePbw0YxnjITrFeuruvg98Ze2MKkXExkSSt0sIiAaITrGePi7uXud3r1eXdPs/YhaUnTqWThkQGiA7xertcyFv6NvCp7jY36E48naLANCAjewU1Z53FrXnjcwBI2/HBPob4BGdohjzOhfhrj15uwZQ34ASlBS25O1cv/YGVKCkMCVv9/KVN2CL2BSrye46ZBGzG2zJm6F63Q3YITpFeWWn2eP1BU3Jm6N41Q3YIzlFeVHI4IX1TjEkb4fTavV3yfEmoyM5xXpa7nl5qKxGpsr1NqCO6BTlobKIGZF25M1VuNoGHIGSwoa82erW2oBjUFKYkDdf2UobcILoFAseKquTsWqdDThFcorV5ClySRPy5ixaZQPOkJyiOlQWgwV5s9assQHniE4Ruv1EEAPy5i1ZYQMCSE6xPUPMMe8me8X6GhACJQW4vLkLVteAICgpsOXNXq+2BoQRm6L4tMZhQ0We6QzHb5n9HccAJQWwvH0Uq6oBF0FJgStvL7VqasBlUFLAyttPqYoa0ICeFP5qvcuHS7dvRZW3p0r1NKAJNSnW08dqXnr4xtmg8vZVqJoGNKImhT9XXHpb/2bF7mtuqPL2VqeWBjQjOkX9WmXrT583i1N5d4DK21+ZShpwBckpjq9Vtrh5Xk+fyuHDGZjy9liljgZcQ3KKk2uVVecsbkIzzSDl7bNIFQ24iuQUpq9V1sNptfq79/nmgyE6heFrlfVcofwGxICSAkzevgsU34AoUFJgydt7fdIbEIfoFMs3z5t5zI3YwOTtvzzhDYhEcgp/ZGyzibusP5K8A1QnuwGxSE5h9FplQxQnugHRiE4xs3itskFqk9yAeESnMHiorN/Du4fVDLKWvkFJASLvUIWJbUASKCkw5B2sLqkNSEN0CmvXKhuuLKENSERyCmvXKhuwKpkNSEVyCmPXKhuyKJENSEZ0ClPXKhu0JokNSEdyClMXHRm2JIENaAFKCuXyDnR497C+YVfXEygpdMs7eD3SGtAO0SnqX8BsRLm8w5cjrAEtkZzi+AuYTeiWd4RqZDWgLZJTnHwBswHV8o5RjKgGtEZyChtfwBylFkkNaI/oFBZmlY1TiqAGdAAlhVZ5R6pETgO6IDmFgdPDYxUipgGdEJ1ihj4xZ7Q6pDSgG5JToJ8eHvq0Wn3Vo605JygpFMo7ZhEiGtAZlBT65B21BgkN6I7oFMinh8ctQUADMiA5BfLp4ZErGL8BOZCcAvj08NgFjL3+PEhOgXt6eOz1j19AFkSnQD09PH7Tx68gBygpNMkroOcCSsiA2BTx54Y3yuSV0HIJNXRHbAp/13fIuQ0iOi6iiM7ITTHf3SAQ6/SwjIbLqKIrklMA7nlHnM5whJAyOoKSQoe8YrotppBOiE6BdnpYTrPlVNIFySnQTg8L6rWgUjogOUXo9HBYZRXySmq1pFraIznF0enh7cz08NEHDfKK6rSoYlojOsXR6eHlg7/d+/Ged+ezAnllNVpWNW3RlMLfT1DrsEFYn4WV0xIFKX7YDxNWk3ul8kprs7R62iE3hR/kPvnRQn2MuwhPMpMur7guiyuoFWJTrKf3/t7DMxdzdXTh8sprsryK2iA2RXlueBYzsWEjXV6BPRZYUgvEpijljTlB4ZEsr5TpDEdIrCkdsSkqeR/jFhYsr8wGy6wqFbEpQOQV2l+hZSUiNkXjGbVTxMortb1S60oDJYVMecV2V2xhSaCkECmv3ObKrSwFlBQS5RXcW8GlJYCSQqC8klsrubZ4UFLIk1d0Z0UXFw1KCnHyym6s7OpiQUkhTV7hfRVeXiQoKYTJK72t0uuLAyWFKHlFTmc4QnyBUaCkkCSvgp4qKDEClBSC5NXQUg01XgclhRx5VXRURZFXQUkhRl4dDdVR5TVQUkiRV0k/lZR5BZQUQuTV0k4tdTYDkyLu8FTP8qrppppCGwFKEROlX3n1NFNPpU0gpYjY+fYqr6JeKiq1AawUV/XtUV75p9VqaKr1MmgpruTpT15djdRV7SXgUjTvAHuTV1kflZV7AcAUTZH6kldbG7XVGwYxRcPOtyd51XVRXcFBMFNc1LcfefU1UV/FIVBTXMjVi7wKe6iw5ACwKcI73z7k1dhCjTWfA5wi9GB+eVUd3t2jsugzkFMEvMour9L+KS37BOwUZ4/nlldr+7TWfQx4itOdb2Z51XZPbeFHwKc41jevvHqbp7fyOgZSuPOf86RW3DvFpdewkKK2880pr+bWaa79gI0U7uSHHKlVd0518XuMpHDH1nZPrfPw7h7d1e8wk6KyLZe82tumvf4KPSn8LeD9zYGWH5zfYCUqhdtkk1dP1y6gPkCJnhSz++Lfu9f28vqdbx559TTtEvoTeNSkKO/LtlncvtTl3d3tKjaFyyKvmp5dBiDCRlGKSt7N4u771nveTPKqaVkDCBk0pZhVt3+fh24qOKS8ejrWAEQIRSnW062948qrp2FNMIUchpMXo18gMWyl6CwvRrtQcthK0VFe5afVamAEsZWim7wYvSrBiGIrRSd5MVpVgZHFVoou8mJ0agtGGFspOsiL0agdGGlspWgvL0af9mDEsZWitbwYbTqAkcdWirbyYnSpBkYgWylayovRpDoYiWylaCcvRo+OwIhkK0UreTFadAxGJlsp2siL0aETMELZSpEuL850hiMwUtlKkSwvRnvOwchlK0WqvBjdCYARzFaKRHkxmhMCI5mtFGnyYvQmCEY0WymS5MVoTRiMbLZSnMnrGuihTjFghDOWovMXMEHAaICxFJS3AqMBxlJQ3gqMBhhLQXkrMBpgLAXlrcBogLEUlLcCowHGUlDeCowGgKSIJnV5VMbdXpnASEFMQnmJWigvUQvlJWqhvEQtlJeoBVbe8u5BC1fdePCUsQ9Ujc/g26MPMFIE8PIu/C1Y5jV7e992WuzD2OwYKQIU8q6nT5sOt3ttwYDd7LYqjM2OkSIA5e3v1VLASBFgNbl9mZfDhvvzJ3tKPWgzO60MY7NjpAiymrib5/Je22f0k3rgXnZZHcZmx0iRSi+pB29lhxVibHaMFKlQ3nxVjAhGiibqH9j6PFQ2QifbrxJjs2OkSKWH1KM0svVKMTY7RopUKG/OKkYDI0WI1cTdff/gXOBIWQ+pR+pj29VibHaMFCFmj5u5N3eQ47yjtbHlijE2O0aKAH5uQzk5Z4gzbCN2sd2qMTY7RooAQXn7OtpAeUcBI0WI2Xa4MMCwYdQmtlo5xmbHSBFiPS3nQg5wenjkHrZZPcZmx0iRCuXNXsUYYKRIJWvq0VvYooDRa84CRopUcqYW0MH0EgQUnQGMFLH0cLRBQgMpryXA5E0vQkTVncFIkUq+1EL6l1qGkLI7gpEilWypxbQvsRAxdXcCI0UqlLefKgYGI0UquVIL6l5aKYIK7wBGilQypRbVvKRiRFXeGowUsWQ+VCaqeZTXCHlSC+tdSjnCSm8JRopUsqQW17qEgsTV3gqMFKnkSC2wc/ElCSy+BRgpgsyq4W3wEqcZ3l5g5ygvCruJvLN+JqOLbFx0USKrTwYjRYDyK0Cefr4GJLRvsWUJLT8RjBQBgvLuoLy9VjEUGClC7IYLoe8BdU4ttm2RhYmtPwmMFEHm/X1gE9y1uNIEB0gAI0UqHVOLblpUcaITRIORIhXK23cVg4CRoonGow1j3Imnb2IKFx4hEowUqdhMXQOjARgpUmm3w0Vi7C2QBYwUfTDYZZQGWxHcxkbLkw/KKx60PHtWk91vyNvzM2wxUF7xoOWpEZqRkwDlFQ9anhrby0S2hfKKBy1PPiiveNDy5IPyigctTz4or3jQ8hBDUF6iFspL1EJ5iVooL1EL5SVqobxELZSXqIXyErVQXqIWyhtk+eDcU4uXBa7O08x6Gr6yRPNqHtzNc+prfGnF2lrObhYJ5Q2xmjxtFsl+bDazZDVmd6/LN4kr8tXNE9e0mvgXzO67znIWBeUNsbh7LfZSybvexXupe979FdVS8DvRxBfO3YfbF6X/cpAL5b2E37+lsf7sq1QzWqnk/7daBK7A1sC/X/2aWlgvGsp7iXmaHv4Vj8kuLu7+0WJwXQxdk4ujvIZIHVQWu+qPX9PlLT6tJQ+uV5PH9PIorx3m6R/XZk/po4BWg+tWDlJeM6Tvd3fftU8T0es0nLz8wGaB5KNXu9clmzErhg2p/6P4r0W3GjbwUJkFZi12op52JymS19P6JEXx24EnKQgRAOUlaqG8RC2Ul6iF8hK1UF6iFsrbA3428NXJB8eH1ZBOfA0G5c1POVkh8SwC5W0B5c3Odi5l2qksytsCypud7VTbxe3LfjJMeWJr+fOPbn/rjZ6XWhdPLD/4S/kloIVzPynkrRbzU4KWD52ui20Fypudys1KzlJeP/Nmfve6fHiqT8Txzz+UMxvKr/XcPG8XKycg0N0YKG92zuTdTujys328oNtPav6JN+UsL7+r9s9v532tp79PnmpuE8qbnbNhgz/44G5KOb3Z82q3epB7vpW3WsyPIlp8cdkilDc7fhSwevdS/Pav7Xk3u3ld7775tPpodpC3tuctX//2C6A5t31CefPjD5Ut/D50+x317VihknP2h19UY4KDvLUxbzlCfmzx/TmTUN4eKAcAfp7u3LlfvyuPNtzsvsOwHxMc5PXL/7o62lAsNvP74QnQlPH+oLy98UPwdz/S13DGhvIOzJz71GxQ3kFZPiB9DWdsKC9RC+UlaqG8RC2Ul6iF8hK1UF6iFspL1EJ5iVooL1EL5SVqobxELZSXqIXyErVQXqIWykvUQnmJWv4PsL5xyTzujs8AAAAASUVORK5CYII=" /></p> | + | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAA0lBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZmYAZrY6AAA6ADo6AGY6OgA6Ojo6OmY6OpA6ZmY6ZpA6ZrY6kJA6kNtmAABmADpmAGZmOgBmOjpmOpBmZgBmZjpmZmZmkJBmkLZmkNtmtttmtv+QOgCQOjqQOmaQZgCQZjqQkDqQkGaQtpCQttuQ29uQ2/+2ZgC2Zjq2kDq2tpC225C227a22/+2/9u2///bkDrbkGbbtmbbtrbb25Db29vb2//b////tmb/trb/25D/27b/29v//7b//9v///9r9dLtAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAViUlEQVR4nO2dC3vrxBVFJ4E0ufRB2/heSp/EUFramJZCDKWNMbX9//9SNZIfsj2WZ6SRdM4+e31wybVl6+yjhTKWxpLbEKIUN3YBhLSF8hK1UF6iFspL1EJ5iVooL1EL5SVqobxELZSXqIXyErVQXqIWykvUQnmJWigvUQvlJWqhvEQtlJeohfIStVBeohbKS9RCeYlaKC9RC+UlaqG8RC2Ul6iF8hK1UF6iFspL1EJ5iVooL1EL5SVqobxELZSXqIXyErVQXqIWykvUQnmJWigvUQvljWHmtnz4cPuS+Nrl9Zf4RSIWu8D/vnxq90L1UN4YJMu7njrKSxpZPtw89/febfe6G8pLrlPJW+0jb774yL3/9bL4wzv37YO7+VPx3x9/49zNJ5vDI6vJzV8fbv9Zmnm+UMH6y2Jn/svX2p63WOxX37nbl9XEffL59rng2vYLFO4618F9zVDeSOryliOI9/x/7ndDikevk+fp5JG7772V5wt5qkfvD/LOq8FJKe/+uaa1uXvKS65yJO/963fO/ep17krpvt7tkJ8L++5e948Ugt2//ndr5slC/i1Xk+LRb6v3eNm/4MdpJe/d1+uZu7i2wwIcNpBrHA0bnqu/Lgp3FtuPck+FTje//FthZf2Rp+ol5wtVrP/5O1eTt1rHopL3qfrp8tq2C1Beco1L8s53Om2KUWn5G31+EGz3kvOFPOWQty7vovz9v92xBuWdU94alDeSM3kLzyqd7vY70v8VO9Kb5/0jdXlPF/I/LdzNH/+zqAYa1/a8p2ujvBvKG80leYsx6Seb78rf6LfVLnL/yEHe84X8W87d+y/rP9fkPRrzBuWtvXdN3sexmzMSlDeSS/LuP/+XH/ud3zMejgjsXhJYaLMfHB+GDdWI42cN8taPNmwX8A/1dwhaNJQ3kovyrv+xPYS7/rw6art/pCbv+UKebx/c+/+a+H11/Thv07Ch9t57eYth9O3XY7ZmNCivIMphw6Y+QCZNUF5JbOdQWB3DpkJ5JbH+8sFVwwsSAeUlaqG8RC2Ul6iF8hK1UF6iFv3yLj/YTmZdT0PzWvdP+4mxPIAKhX55ZztjZ/f+nxNWk93Ti7PniHLUy7t4b7trXb19Puxmd8zdh7uHZjz0j4Z2edeffbW104vrBT7i3687n9ef2py8gox2eeePyyZ5D2Pe1dufWp18BYtyeVcfv0bKu3zzvFm9s/lFRVSUyzt72kTK6wk8TRSjW976N8mDH9goLzK65fXs7QweKts/vfDTtn/B47xIgMjrj4MVu+FLJyn803Oz1+aARb+8xCyUl6iF8hK1UF6iFspL1EJ5iVooL1EL5SVqobxELZSXqAVFXnf25+WHCAgom5PyGgRlc1Jeg6BsTsprEJTNSXkNgrI5Ka9BUDYn5TUIyuakvAbB2JwumtTlURl3e2XCWArugSswGmAsBeWtwGiAohQNt8qhvIlgNEBPitn24rqBazNQ3lQwGqAmxf5qN4Gr4lDeVDAaoCYF5c0JRgP0pNgNF2aBa/NT3kQwGqAoxZwf2LKB0QDdKVKPuTvb8rrAT5qxlcK2vC74o2JspTAtr7vws17UpNheR9oFL1RKea/jLv5FLYpShM5ObKG8V3ENf9OKohTr6cU7qVHea7jGvyrFVgqr8p4djsFogK0URuU9j4vRAFspbMobSIvRAFspTMobCovRAFspLMobzIrRAFspDMobjorRAFsp7Ml7ISlGA2ylMCfvpaAYDbCVwpq8F3NiNMBWCmPyXo6J0QBbKWzJ25ASowG2UpiStykkRgNspTAkb/O3SzAaYCuFHXmvJMRogK0UZuS9FhCjAbZSWJH3aj6MBthKYUTe6/EwGmArhQ15I9JhNMBWChPyxoTDaICtFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn52EpBeROWkY+tFJQ3YRn56Emxmrjbb6bOhe6DSXlrUF55zJ42C/e02cwD9lLeGpRXHKu3z+W/m+UHhxtn7+6lTXlrUF5xlPK+ezmWd0dcikJdA/JGZcNogJ4UnYcN7rCgntTJRP5/3HMVw6AnRccPbNWIAV7eyGQYDTCS4mSwi5H6nPjBf69lDIWNFO7kB4zUZ8THwmiAhRS1/RG0vAmpMBpgIIU7/xkj9QkpoTAaAJ/ieBgILG9SJowGgKc4/QSDK29aJIwGYKc4exxW3sREGA1AThE4cIQqb2ogjAYApwg9iClv9OHdwyv6KGNwYFOENyikvC3SYDRAcorV5NH/+e58Is4pF8cHFx6WnDqZNmEwGiA6xfLh5u/T4GSGE05TXPw9CihvqywYDRCeYuZur+93T1M0DAHx5G0XBaMBolPM3N3rLHnP2xQJTt6WSTAaIDlFNdpdf5Y05m3+5I0mb9sgGA1AS3ElD5i8rXNgNAArxdUDnlDyph/ePbw0YxnjITrFeuruvg98Ze2MKkXExkSSt0sIiAaITrGePi7uXud3r1eXdPs/YhaUnTqWThkQGiA7xertcyFv6NvCp7jY36E48naLANCAjewU1Z53FrXnjcwBI2/HBPob4BGdohjzOhfhrj15uwZQ34ASlBS25O1cv/YGVKCkMCVv9/KVN2CL2BSrye46ZBGzG2zJm6F63Q3YITpFeWWn2eP1BU3Jm6N41Q3YIzlFeVHI4IX1TjEkb4fTavV3yfEmoyM5xXpa7nl5qKxGpsr1NqCO6BTlobKIGZF25M1VuNoGHIGSwoa82erW2oBjUFKYkDdf2UobcILoFAseKquTsWqdDThFcorV5ClySRPy5ixaZQPOkJyiOlQWgwV5s9assQHniE4Ruv1EEAPy5i1ZYQMCSE6xPUPMMe8me8X6GhACJQW4vLkLVteAICgpsOXNXq+2BoQRm6L4tMZhQ0We6QzHb5n9HccAJQWwvH0Uq6oBF0FJgStvL7VqasBlUFLAyttPqYoa0ICeFP5qvcuHS7dvRZW3p0r1NKAJNSnW08dqXnr4xtmg8vZVqJoGNKImhT9XXHpb/2bF7mtuqPL2VqeWBjQjOkX9WmXrT583i1N5d4DK21+ZShpwBckpjq9Vtrh5Xk+fyuHDGZjy9liljgZcQ3KKk2uVVecsbkIzzSDl7bNIFQ24iuQUpq9V1sNptfq79/nmgyE6heFrlfVcofwGxICSAkzevgsU34AoUFJgydt7fdIbEIfoFMs3z5t5zI3YwOTtvzzhDYhEcgp/ZGyzibusP5K8A1QnuwGxSE5h9FplQxQnugHRiE4xs3itskFqk9yAeESnMHiorN/Du4fVDLKWvkFJASLvUIWJbUASKCkw5B2sLqkNSEN0CmvXKhuuLKENSERyCmvXKhuwKpkNSEVyCmPXKhuyKJENSEZ0ClPXKhu0JokNSEdyClMXHRm2JIENaAFKCuXyDnR497C+YVfXEygpdMs7eD3SGtAO0SnqX8BsRLm8w5cjrAEtkZzi+AuYTeiWd4RqZDWgLZJTnHwBswHV8o5RjKgGtEZyChtfwBylFkkNaI/oFBZmlY1TiqAGdAAlhVZ5R6pETgO6IDmFgdPDYxUipgGdEJ1ihj4xZ7Q6pDSgG5JToJ8eHvq0Wn3Vo605JygpFMo7ZhEiGtAZlBT65B21BgkN6I7oFMinh8ctQUADMiA5BfLp4ZErGL8BOZCcAvj08NgFjL3+PEhOgXt6eOz1j19AFkSnQD09PH7Tx68gBygpNMkroOcCSsiA2BTx54Y3yuSV0HIJNXRHbAp/13fIuQ0iOi6iiM7ITTHf3SAQ6/SwjIbLqKIrklMA7nlHnM5whJAyOoKSQoe8YrotppBOiE6BdnpYTrPlVNIFySnQTg8L6rWgUjogOUXo9HBYZRXySmq1pFraIznF0enh7cz08NEHDfKK6rSoYlojOsXR6eHlg7/d+/Ged+ezAnllNVpWNW3RlMLfT1DrsEFYn4WV0xIFKX7YDxNWk3ul8kprs7R62iE3hR/kPvnRQn2MuwhPMpMur7guiyuoFWJTrKf3/t7DMxdzdXTh8sprsryK2iA2RXlueBYzsWEjXV6BPRZYUgvEpijljTlB4ZEsr5TpDEdIrCkdsSkqeR/jFhYsr8wGy6wqFbEpQOQV2l+hZSUiNkXjGbVTxMortb1S60oDJYVMecV2V2xhSaCkECmv3ObKrSwFlBQS5RXcW8GlJYCSQqC8klsrubZ4UFLIk1d0Z0UXFw1KCnHyym6s7OpiQUkhTV7hfRVeXiQoKYTJK72t0uuLAyWFKHlFTmc4QnyBUaCkkCSvgp4qKDEClBSC5NXQUg01XgclhRx5VXRURZFXQUkhRl4dDdVR5TVQUkiRV0k/lZR5BZQUQuTV0k4tdTYDkyLu8FTP8qrppppCGwFKEROlX3n1NFNPpU0gpYjY+fYqr6JeKiq1AawUV/XtUV75p9VqaKr1MmgpruTpT15djdRV7SXgUjTvAHuTV1kflZV7AcAUTZH6kldbG7XVGwYxRcPOtyd51XVRXcFBMFNc1LcfefU1UV/FIVBTXMjVi7wKe6iw5ACwKcI73z7k1dhCjTWfA5wi9GB+eVUd3t2jsugzkFMEvMour9L+KS37BOwUZ4/nlldr+7TWfQx4itOdb2Z51XZPbeFHwKc41jevvHqbp7fyOgZSuPOf86RW3DvFpdewkKK2880pr+bWaa79gI0U7uSHHKlVd0518XuMpHDH1nZPrfPw7h7d1e8wk6KyLZe82tumvf4KPSn8LeD9zYGWH5zfYCUqhdtkk1dP1y6gPkCJnhSz++Lfu9f28vqdbx559TTtEvoTeNSkKO/LtlncvtTl3d3tKjaFyyKvmp5dBiDCRlGKSt7N4u771nveTPKqaVkDCBk0pZhVt3+fh24qOKS8ejrWAEQIRSnW062948qrp2FNMIUchpMXo18gMWyl6CwvRrtQcthK0VFe5afVamAEsZWim7wYvSrBiGIrRSd5MVpVgZHFVoou8mJ0agtGGFspOsiL0agdGGlspWgvL0af9mDEsZWitbwYbTqAkcdWirbyYnSpBkYgWylayovRpDoYiWylaCcvRo+OwIhkK0UreTFadAxGJlsp2siL0aETMELZSpEuL850hiMwUtlKkSwvRnvOwchlK0WqvBjdCYARzFaKRHkxmhMCI5mtFGnyYvQmCEY0WymS5MVoTRiMbLZSnMnrGuihTjFghDOWovMXMEHAaICxFJS3AqMBxlJQ3gqMBhhLQXkrMBpgLAXlrcBogLEUlLcCowHGUlDeCowGgKSIJnV5VMbdXpnASEFMQnmJWigvUQvlJWqhvEQtlJeoBVbe8u5BC1fdePCUsQ9Ujc/g26MPMFIE8PIu/C1Y5jV7e992WuzD2OwYKQIU8q6nT5sOt3ttwYDd7LYqjM2OkSIA5e3v1VLASBFgNbl9mZfDhvvzJ3tKPWgzO60MY7NjpAiymrib5/Je22f0k3rgXnZZHcZmx0iRSi+pB29lhxVibHaMFKlQ3nxVjAhGiibqH9j6PFQ2QifbrxJjs2OkSKWH1KM0svVKMTY7RopUKG/OKkYDI0WI1cTdff/gXOBIWQ+pR+pj29VibHaMFCFmj5u5N3eQ47yjtbHlijE2O0aKAH5uQzk5Z4gzbCN2sd2qMTY7RooAQXn7OtpAeUcBI0WI2Xa4MMCwYdQmtlo5xmbH |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYWxpZ25tZW50JGxvY2FsQ29zdE1hdHJpeFxuYGBgIn0= --> | + | |
- | <pre class="r"><code>alignment$localCostMatrix</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-output-begin eyJkYXRhIjoiICAgICAgWywxXSBbLDJdIFssM10gWyw0XSBbLDVdIFssNl0gWyw3XSBbLDhdIFssOV0gWywxMF1cbiBbMSxdICAgIDAgICAgMCAgICAzICAgIDMgICAgMyAgICAzICAgIDMgICAgMCAgICAwICAgICAwXG4gWzIsXSAgICAwICAgIDAgICAgMyAgICAzICAgIDMgICAgMyAgICAzICAgIDAgICAgMCAgICAgMFxuIFszLF0gICAgMCAgICAwICAgIDMgICAgMyAgICAzICAgIDMgICAgMyAgICAwICAgIDAgICAgIDBcbiBbNCxdICAgIDMgICAgMyAgICAwICAgIDAgICAgMCAgICAwICAgIDAgICAgMyAgICAzICAgICAzXG4gWzUsXSAgICAzICAgIDMgICAgMCAgICAwICAgIDAgICAgMCAgICAwICAgIDMgICAgMyAgICAgM1xuIFs2LF0gICAgMyAgICAzICAgIDAgICAgMCAgICAwICAgIDAgICAgMCAgICAzICAgIDMgICAgIDNcbiBbNyxdICAgIDMgICAgMyAgICAwICAgIDAgICAgMCAgICAwICAgIDAgICAgMyAgICAzICAgICAzXG4gWzgsXSAgICAzICAgIDMgICAgMCAgICAwICAgIDAgICAgMCAgICAwICAgIDMgICAgMyAgICAgM1xuIFs5LF0gICAgMCAgICAwICAgIDMgICAgMyAgICAzICAgIDMgICAgMyAgICAwICAgIDAgICAgIDBcblsxMCxdICAgIDAgICAgMCAgICAzICAgIDMgICAgMyAgICAzICAgIDMgICAgMCAgICAwICAgICAwXG4ifQ== --> | + | |
- | <pre><code> [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] | + | |
- | [1,] 0 0 3 3 3 3 3 0 0 0 | + | |
- | [2,] 0 0 3 3 3 3 3 0 0 0 | + | |
- | [3,] 0 0 3 3 3 3 3 0 0 0 | + | |
- | [4,] 3 3 0 0 0 0 0 3 3 3 | + | |
- | [5,] 3 3 0 0 0 0 0 3 3 3 | + | |
- | [6,] 3 3 0 0 0 0 0 3 3 3 | + | |
- | [7,] 3 3 0 0 0 0 0 3 3 3 | + | |
- | [8,] 3 3 0 0 0 0 0 3 3 3 | + | |
- | [9,] 0 0 3 3 3 3 3 0 0 0 | + | |
- | [10,] 0 0 3 3 3 3 3 0 0 0</code></pre> | + | |
- | <!-- rnb-output-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYWxpZ25tZW50JGRpc3RhbmNlXG5gYGAifQ== --> | + | |
- | <pre class="r"><code>alignment$distance</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-output-begin eyJkYXRhIjoiWzFdIDBcbiJ9 --> | + | |
- | <pre><code>[1] 0</code></pre> | + | |
- | <!-- rnb-output-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYWxpZ25tZW50JHN0ZXBzVGFrZW5cbmBgYCJ9 --> | + | |
- | <pre class="r"><code>alignment$stepsTaken</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-output-begin eyJkYXRhIjoiIFsxXSAzIDEgMSAxIDEgMSAxIDEgMiAxXG4ifQ== --> | + | |
- | <pre><code> [1] 3 1 1 1 1 1 1 1 2 1</code></pre> | + | |
- | <!-- rnb-output-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxucGxvdChhbGlnbm1lbnQkaW5kZXgxLGFsaWdubWVudCRpbmRleDIsbWFpbj1cIldhcnBpbmcgZnVuY3Rpb25cIik7XG5gYGAifQ== --> | + | |
- | <pre class="r"><code>plot(alignment$index1,alignment$index2,main="Warping function");</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAAz1BMVEUAAAAAADoAAGYAOjoAOmYAOpAAZpAAZrY6AAA6ADo6AGY6OgA6Ojo6OmY6OpA6ZpA6ZrY6kJA6kLY6kNtmAABmADpmOgBmOjpmOpBmZmZmkLZmkNtmtrZmtttmtv+QOgCQOmaQZgCQZjqQkGaQkLaQtpCQttuQ29uQ2/+2ZgC2Zjq2ZpC2kGa2tma225C227a229u22/+2/7a2/9u2///bkDrbtmbbtpDb25Db27bb29vb2//b/7bb/9vb////tmb/25D/27b//7b//9v////YJI6JAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAQCUlEQVR4nO3dD5/ixAGH8QGPglqrLdxpa13aWu3GtuqdF/+0lnCQ9/+ampkkwMIGyAxk+IXn+/m46+1Ccrv7XHaYwMTkgCgT+y8A+CJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCLeU1YzM1rk+XJiBo95vp6b4dvjdyhuYu9w9CbfTIz55Jy9r//59pwN3ifiPaXKNTPGTF3K49N3ONWa3Zjd2knvXg2JtxHxnpS6Q25S5DZ2B+Bzojtrk2dITh7n7xnxnpTZg2Rx9DM2pOIPD3n+06viTx/Z/ooMv3plhq+Lyr771JgXr+sjb/GJf3xTfMBFunb/tynR/kMo8i3/XBzLp/nTm+c/fmjMe19UNxz+UB15fyp28N6fFvn+re8W8Z5UHGzHRWKDL+3h0h0z3W99446eqfu/0SIxm4/V8W5v5Mo3gw+Pxru9eV5tbPo03uomO/977vG7r4j3JBdjZobfTlxOo0Xxgd8sqgFEkdHodf4fm9nwdf6jHVps4i0Ow6kb2haxjxfrxGzGAPVI5Em8uzf/w+LdzH7W3aTcYLG/crN7t75jxHuaLSg146Ih95/72C//+tCNgVM3jHAHy4fqppt4H6qj9rbSo/Hu3Tz9+Pt8N95q0OHe7d76jhHvacWR8It5UVhqhm9caeu/lb+1x9uHXlVa9o+bMe9jNTlRzxYkR+M9uPlms+4D9UfTzeDlnJmPfiPe04oj3O9nbqg7+GpSDmrNi7//MnsmXvt47iDeOrLn462HH7vxbprcxltvxD1iJF6HeE8rInHD1eL9b+37MrfVc/F6HHmfi5cj71mI9wzVHK+bNCgKyuoR53Q33oMx77avhjFv+TYze/FWN88++vrImJd4c+I9S1qdD6veu8f97+Z7Y96D2YZtXw2zDW62wG5nL97i5p/YI209PnhutoF4c+I9i53Xfdi+L6dt9x+wlTYHyt2+9ud5q08WOdYTuk9zTDabz5rmeYk3J96z1L/wi/cuVTvb8OLrdPsL3P02/6H46Me7Z9i2fdkzbL97vT/mzZevint8tz/bkFdn2D6v7vji+90zbJ9v70+8sf8CPXHOkxASnl9zWcR7GUfjTdzzH+/+nMLFEe9lHI0346kIV0G8l3F82PDu0+Kx2cAOiHFBxAtZxAtZxAtZxAtZxAtZxAtZxAtZxAtZF47XAMFixXvZzeEeES9kXSne+mnYjefxiRfBrhNvWi9ykTWtdkG8CHaVeNfzTbJpw9OqiRfBrhLvavZQ/2/WMHAgXgTjyAtZ1xrzVodexry4hOfndK802+DWjjGm+YWExIvzmfzZYpjnxc0zO28PP372BoL/Gq3P7AE3Eu+1Noc+I17o6nLMWz9cO3KCmHjRQpezDev5qTWNiBfBrvbEnBMLFhEvgl1rzJuZh6OfJ14E4wEbZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvZBEvOnL5Nb6IF91oWPUmdJOXvWGUzeHWNa03Fr7NS94wyuZw64gXsogXuhjzQhezDcAG8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8UIW8ULWleJNjBmv58aYh4tsDj2gsm5DOloU/Y7zfDWbXmBz6AGVFXPW8yLZbPCYlxmHbg49ILNW2WpWjBay4du8frvdykaLzaEHZOLlyIt9MvFux7wu4+DNoQdUxrzMNuCQymxD55vDPSJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyGodb1qf802fPl/sWvsFmrSNNx085qvZOCdeRNcy3vJZYuv5aEG8iK1lvO5p5oVktCBeROZ15C0kY+JFZK3HvFWyq5khXsTlMdtQDhzWc+JFXMzzQlb7eNf/7XS/QJP28ZazvEXEf2HYgKg8hg2ZsS9qT3nAhsh8xrzuZcGm4TXtl94v0MTrAZutt+k17ZfeL9DEJ97EmC/mpmEpnEvvF7fkttbp8nnA5kYMGWPe+3OFVW9CeMT7WXnIZbbh7lxjvbEQnKTA2foQbzFwGC0SZhvuTg/izQaP6WjRuOb5hfeLGyI/5rXPikx5Mvp90p9teHDxZsSLuPyPvEnQRC/xIpj3mDcNO8dGvAjmOdtg3JNzutgv0IR5XsgiXshq/dL37ZXUmG1AXF5PRndPzAkb9BIvgvlMlZUvA2q6POCF9ws08TtJYXGSApH5naSwOEmByLzGvPbQmzLmRWTeJynCXgVEvAjHPC9kES9kecRbLtvASQrE5hFvElRt2/0CTXzmecNevdZyv0AT/5MUHe0XaOJ/erij/QJNvE9SdLVfoInXck/MNuAWMM8LWcQLWVeK184FLydHXqZJvNHc1sIhIVq/DGh6zpjXtfv+45F5tb58//Tc2JJNIa5y5HXnMRI3o9b0eouefPv03NpieSGuFO9D/Zz1vddbbF++2WJzuKC7jte9gCI1xy9KYY+6KUfeW3TP8boXUNhXDi8nR+pdzYZv3aG38TXG/fjuKbrfMa+7gmB5gvj4a9iycnDQeCa5J98+Rf0Zs7WMNzG7Ap5e1pfvHyJqP1VWjwV49TAiazvmTexg1g4GsrBLYBIvgrWfbShfOJxy+VbExnMbIMvjKZEvy9kvlntCZP7xcjUgRNb6AdtFJsqIFxfgf+TtaL9AEx6wQRYr5kAWK+ZAFivmQBYr5kAWK+ZAFivmQBYr5kAW87yQRbyQ5Xk1oNEi4fm8iMznAdvgMR0tAqd7iRfBfKbKpm41Bp4Sicj8TlLYeHkyOiLzP/Ly6uGY+rP4QgDvMW8adqqCb32QHi17E8BztuHIyrsX3i+e0acFxwIwz6uIeB3iVUS8jke89ZMbmG2IhzGv5TPbEDTN0Ha/eBazDTlPRocwv3neDvcLNPEY87rL/HS2X6CJT7wTHrDhFvAaNsjiARtk8YANsnjABlm8ehiyeG4DZBEvZLHEKWSxxClkscQpZHGSArI4PQxZLHEKWZykgCzmeSGLeCErYNhgQsa+xItgXg/Ypu7tQ8iML/EimP9UmV2vzP9F8MSLYP4nKbLh21OrnC4njQML4mXthWD+r6SwR96GeHeGxU0TavzYWPUmWMiYt/lcW3kTjrzHsN5YMO8lTosj6pGnl61mdjh8GO/2iNz6b9o3xBvsavO8yeCRI+8xxBvseicpUjMl3mMY84a64hm25eQ94j2GwVOglvGuZtPzn5iznjefg+PHhmA8twGyiBeyiBeyWo95T547u/B+gSYceSGLeCHLI14uZYXb4LNizmiRjo+d+r3ofoEmfivmZKNFHvBM9Db7BZr4PRl9+cFb918H+wWa+D0ZffXykXgRm8eY175+IpkybEBsPlNlydjOOIQtdEq8CMY8L2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRbxjWXoiIeIOw6k1MxBuC9caiIt4QxBsV8YYg3qiINwhj3piINwyzDRERL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2QRL2RdKd7UGOMurJ02XK7tluJl7QVR14k3HTzmq9k4l4iXVW9UXSVee3li+9ZeG/7m42W9MVlXiddeGN5KRou9eM1Gi81dF/HKuuKRN7dXKebIi6u50pi3Srb5+to3FAtjXlVXm20oBw7r+e3Hy2yDKuZ5IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4IYt4Ieum4g1Z/YOVQ+7PLcUbsu4SazbdoRuKN2TFO1bLu0fEC1nEC1k3FC9jXrRzS/Ey24BWbipeoA3ihSzihSzihSzihSzihSzihaxo8QLBIsV7eZH+grG+L3y5nd27A/w0e7xb4u3Tbvlyu7t3B/hp9ni3xNun3fLldnfvDvDT7PFuibdPu+XL7e7eHeCn2ePdEm+fdsuX2929gYiIF7KIF7KIF7KIF7KIF7KIF7KIF7KIF7KIF7KIF7KIF7KIF7JuOt713BgzjbLrZLTofqfLiTHj7nebFt/lh873uvzgrX2XGTN49NzELce7nhdfVhrjx1l8SyPEmxX7XM06/3LT4rucdV7vaja08WZ257713nK8y4n9jqbui+zWahYh3vXc/pLp/Mtdz+0/l6TjfzPFAdd+oeXX7LvzW4635P3vMkA6+mv38S7f7/4LzSPFm5lpZuMNOz7dfrxJ90feIqMIY95s+GYWY4gfZ9iQl/G6f7BZX+PNuv9x2t9lEeJN7S/S8jjYrZDHTAF7tcWWv1Z9f7neerxZhMdraRFujHgHIUchf/ZX23LS+SGi//FGOO6Wv8pixOuyLUeBHYr1sLj3w4Y0xixvWi202fUosPwRdv6wLezgF7Dfnj9gSyPMnVciHHlXM/vVdj5sKPvpfrSS9XuqLMJAbCPGGTY71i5/mp2KOebt70mK6vd3hEfCkU4PZ3HOhidRdlsd69Oenh4GjiJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCJeyCLeaFafRVhRqleIN8Rq9lCu7dhOZu9SrRB2eP+GdeeqSz9hi3hD+JRb3SsZvvns52cXkn4+3urST9hBvCH8411OHophw7NrUT4bb3XpJ+wiXi9JuXL6ZthQ/Hnw5eBxNfvzzH5iObHvp/aKlm7l73qE4D5rPzr62cWblyXXdysX/PzSxlvdxa4ZvppNN5d+wi7i9WGX8rbXP6njteszZ8bGa6/ZOXhcTty1O4uP2vrsLe3qzfVny15Hv+7EW35is53NXexa02l5eCbeA8TrYfXysVwOv4q3XBk/sVlO3SfcQuPVmwf3Qdte/VnXe32d4TLe+m6723G5ZsM3L8tRBPEeIF5Pmf09X8W7WaHeZVm8cRXWb8oxbB3tdoJi5S4ZWMZbfmKznc1d7ICkumAD8R4gXh/FiHT47fbImx6Pt7660H68xQM2ezjexrvZTra9INHm2pTEe4B4PWzabHHkzfP8MN7l+49HjrzWev7HKlriPUC8HsqLN5q9MW/aEO9mPm03Xlv6Z4ts8CTep9tx0tH/qusDEe8B4vVQHnTLAevebMMz8ZbXZU22n7UPx9xsw6+z8ZMxb3UN62q2ob5LVS3xHiBeH+76S2Vbm3ne4b/LAexhvG7S1k3YVo0mZrRYz42bbngS79N53uIuibs0m3vIRrwHiPdi2tbFE3NCEe8FuMNrOTeLDhHvJWQxLrQN4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oUs4oWs/wMpfIEDK+RK6AAAAABJRU5ErkJggg==" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxucGxvdChkdHc6OmR0dyhYLCBZLCBrZWVwLmludGVybmFscyA9IFRSVUUsIHN0ZXAucGF0dGVybiA9cmFiaW5lckp1YW5nU3RlcFBhdHRlcm4oNixcImNcIikpLFxuICAgICB0eXBlPVwidHdvd2F5XCIsb2Zmc2V0PS0yKVxuYGBgIn0= --> | + | |
- | <pre class="r"><code>plot(dtw::dtw(X, Y, keep.internals = TRUE, step.pattern =rabinerJuangStepPattern(6,"c")), | + | |
- | type="twoway",offset=-2)</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAAaVBMVEUAAAAAADoAAGYAOjoAOpAAZrY6AAA6ADo6AGY6OpA6kNtmAABmADpmZmZmtrZmtv+QOgCQZgCQkGaQ2/+zs7O2ZgC2/7a2///bkDrbtmbb2//b/9vb////AAD/tmb/25D//7b//9v///9YKFnuAAAACXBIWXMAAA7DAAAOwwHHb6hkAAASrklEQVR4nO2di3rbuBFGla2T7dpt4zbRlm0d2dL7P2RFUTfbIkWCmMH8xDn7Ze3Y0nAInoAjkARWOwBRVqUTAEgFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QZZq82+fVgd/+3RcOYID5wr6zbcqLm9Vj983m9M2scFAbBeXdPp+VbR5eZoeD6igo79vT99O3m57CAXlhAHpekKVszXvseql5IYWS8u4Lh+5DY0+/i7wwSFF5vcPBsohtG/LCADFsaxhtgOnEkPdjFKNLKK78TLxqlPg+582tfpZu311Qea3CuZJ6dNPe57u1/fuQ1zmcJ8KpjyPADgaw7fXb975fBWigVIRTH0eAHSx6efhSQS3uA9vK90TuXjXs/yt/cEr2vMcLa4vseX3l9Xe3enn3fW97bW2h8i6e8rtYuOZdf/mxSHllE59C8Z0s/YGtWT0uVF6/U3mBouHwv+JHp7S8+373L8uTt817+fIWPzzF5W0fZFukvBVQejfLy+sYzg3VvCdSejdj21a6dRI5pO11Mi9SNBy/FD4+sW1D3twvz/Y+5HUO54Rm1kmU3dXYtmlqoJl1EsjrFs6JLmuf83niVuYn132HvG7hfDgm7SJvqYr3/F3RIxTbNmV56wB5vcL5IJl0KsjrFc6FU84OZ/RyRcPl+5KHKLZtyJvrpRne9v59yOsczgPBlOdRcIdD2nZ5PChLOFcEU54H8vqE8+CcsnnZULLivfob8vqEc+CSsbVbZd29+mu5gxTbNmV5qwF5XcLZI5dwDortdGzb5Fy4Stj4tF5ymOzDD5DXI5w9bvIWrniR1z2cOWr5ZqLUbse2TU0GtXwzgbwO4ax5l67lib140fDhR4WOU2zbkDf9NfnedvN9yOsczhqxdPOBvPbhjNHKNitldj22bVo6vM/WrmwIUPF+/GGF8m6fB6eWFpP3Q7JmioVw9+NPixypkvI2p1Vbl7F8q1SyualN3qUtnC2VbG5qk/ft6Tw75GYBa1J8zNXq7B5gmOzWz0scKnreXDjJG6PirV7efc177HqXUPMKpWpDgQYoOtpwWsyqp9+VMkIoVRtqk9c7nCWfUjU5v0cpGm78BnltwxnyOdNI8hrk8vlX/gcrhm2N/GiDTqZm1Crvxyhy8zbIJGqJeyOElNcqnB03EnU5Vc+NmP6+G79EXstwdrjIG+fT2u1fVijvZrX68iNfuCKo5GmMdzMUlXe9Wj2+/vFyfaF4TrhyqORpTE3yrh9eDitny18evplm9pN1pIq359fOx6v0jTmvv7fyit+Y4yJvLHeRt72jYfvf3TJ73hqpR97LpYlO47nhiqGRpQu+TVH0A1vTDTNsepd919DidpamT93MjJbhfbdfUJG83uGMCCyv91OgyGsWzgaJJL1wbYzYtkl4IZGkF8hrFc6EvhzN5laaFyrX+/pe43nIYtuGvLlDZXsf8jqHM0EhR0eQ1yicBQIp+uLYILFtEzCjN8V85+yAFe/Aq5DXJpwB/RlarP4wK07e9/W/zO+gxbZNWd5qQV6TcAbEz9Ad5DUJl5+BBLMvkzonSv73DbzQ7ajFtg15kXeA2LZFlzd6foXwapaQtsnM2xA9v0JULa9VuOwM5ZflxB21aBh+KfIahMvNYHo5BIp4U8OYlzodt9i2KctbM8ibP1xmYmdXFJ+msbPt7Wn18LLuebJyeriADGeX4dQdt+K992JxeTdffjQPL73PBU8NFxFreSO7u2h529VS2tkY+mbenRguIqGTK41L41jJ206H08rbNxfOxHARCZ1caaTlPfW8697FUiaFC8i93OaevUMXDfdf73HojGvepnc+kYnh4oG8g0jL261T1Tvz7uRw4YicWwC05Q0YLieBU4uBQwMVtW373N1+0/uhLrAhd1Obd/4OXjSMeIewvKfFLfvFbJdvPQ4CCy7fej+zWR6Fd3fEW+wPnnHPOzRSJr1wdtzMwiAv7279tfe1VytR6M2MHjezMOjLO9D1Kve8IxKbcwqPXzWMeY/50bOWd+jy8HkQWK/mtZVXwN0a5H176i8bLp/qeq/CKcsLsvLe9XJauGBEzSsY1s00HP/128Sru5VcpBiTV/JJXKFoGPe2MvKeR2mHB2rHhrtLX2UcVN5RaSGv+fHrCX/8CFWo5w326PuvlgV/tcNa3h5P3p7aajVR3uSO+3a4cARNKx5let497arA1Ly7G11TgKzKM67asG2qgejN6tFY3mbfMx82ELjm/fX5KAXIKiOJhUNweff97l/S5T2VDkMXKfZ9ezcQHFfeX5+PUvmksiJc9Q4G3z5PfRDiEm798NJ8Haw7usvD2+eBxzTLe1JB1WBqbzl5Z4Rrn3nftFr2X6U43ZjTao685UiTd+QIm6i833evf/334U8P5xtz1l/jyvv5KEXIKS9J9o4dHrZsLsunh9/+9mNI3nOxsC+PkXepKMp7MHP9OFQ2XG4r2z4HlvcDAVOKjWGD2Q3Mrr8OdKnTwxWhgoo3ldFXlSXlDRhuKgd3PxylJcqbUvQir3O4qdyQd4nuyg712o02DN2FPjlcEW4d00XKqzrUa9ZVrufPl1NalXoq3gR5J9xJadZoluf5TXt5eFYHHMGVd0cpQkIWTLd36fLuBgbB0sKVoAp5TZGUdxk97zXR8hHBqtnsrrDJ17z1lLwpTHl6SE1e/dGGk7tXR2nB7k4ueic9+mbUcLEHZpHXC8mh3ti2FbSlnkHeDsWh3ti2xZJ3ye5OlnfaE/M2TRfbtgi6XI5ShGzsmGgv8vZFiTRvw/koRUhGFpPGy+zJ1WjDvBHeD+EiECoZNWzkNQvXPtc+b+Xhkr7UVvJOZuIsUWLy7jL4W8yXK3dPR2n57k6qeqdOcWbRfMY1bzNvwifk9URutMz63obv3cQMOcI5UmfRIHehwkzedsacztoZa2cjrytT7J08M6qQvG9Ps+/K2cUw5niUIqRiDfJ2XC31kyNcQbqjFCETcfI3oV3PO2u594/hihMnE1l05J1T6d4K50qlJe8kpq8GoCPvmLWHJ4Rz5b27P8sl4s/4qjdhKYvsjRjy3garcCNBXhuQ156aiwatoV472/aFw8PLenDM4fCg21BpgbzejLY3ZQUsGXk3X340Dy/tHNO9NKcbH0KvPdwepQh5+IC8u26ctxmYsH8ns+r7zxhpLILYVeW7cd5WyYERs6uh4L5XBbEmSBr6iMh76nnX/XflxOx5q654J5C26mvepjSueZuh5YTOv4xU836S92dl8o6sehctb3eZYvjunNOVjN7e2V+bz4cOeTOiIm/AcCOgahCydzDYZvJ0Y8irzzh508oGH3nXq9Xj6x8vU+8OS7y3QWkdtuUzyt7UZsl5SHtitYME60OvO7gW1d1wafeWDT6P/3OVRvL7EnYAesl5GC6/vf7pob99/b2Vd5p+n2xbZ5+fN1UmJAxBzsN3u+ftrupu/7ub2/POvK3Xu2ywvS9lUUToC3r0OBehgzcnjAg3cHk4JZwxyHtgTDMElnfXdMMMm6GLDCPCzZxj2rlswN0Oy3awLxuS+TTaMFB0nAckVr1jEshbBsOGUJB3DPeXCnIuG5D3yIiGiFw2uITbPt8pKiKM81bJfXuXLG/3kMSXH8PzN9wrqRkqWxwCZcPxIYnG4Olh5JUmvryb0y0RjdAiglS8U4jQF5jIe65lDw9hzg7nBPJecbcxFivv+W6e5uE/MmUD7l5j1hrhy4YRT6dNCfce5HXBqjnCy3s1BJb/xhwrkPcd95pjsWXD5QNbd2fa3HBQgDv2Llfey1DZvIlOGSpbHOHLht3pIsWsoYYd8i4QBXlDhhuAinciEfqC2La5yYu7nxluE+RNCWdSNiDvZ2zapO6ywUJe3L2FSavULa8FyHuLwVahbHAOB9MYsjeEvDcffU8PlyXKYDiGyqSpu2xAXmnqltcASt7pROgLYtvmIy/u9tLfNMibEi5/2YC8veRvmrrLhuzy4m4/yBsm3G2Qd4DexqFscA4Hk0HerOEYKpOm7rIBeaWpW97cUPImEaEviG2bg7y4e4eeBkLelHCZywbkvUPmBqq7bMgrL+7eA3ljhLsB8t7ldhNRNjiHgxSQN184hsqkqbtsQF5p6pY3K5S8qUToC2LbZi0v7o7iVjMhb0q4nOcd5B1FzmbyKBua1aqbJG/aEpZa8uLuOMTkbRfA7FavDCdvRpB3JDcaKm7Z0C1AtX1+eFm0vDCSqPLenLfhNC//+uElnLwMlUljXzacl/5bf0VeyIlHzXtU9u1p2iqASmUDFe8cIvQF/aMNXeFwf3HrUeESQd4ofGqsyPLGDZfrvIO7U8jWWnVfHkbeIuRqrrrlzQXyTuJjc1E2OIeDGXywF3lTwjFUJk3dZQPySlO3vHmg4p1JhL4gtm3IG4j3TYa8KeGynHdwdzp52qzusgF5S5Gl0eqWNwvIm8C7RqNscA4H87i2F3lTwjFUJk3dZQPySlO3vBmg4p1PhL4gtm028uJuKlcth7wp4eafd5A3lQwtV3fZMHvvcTed+W1Xt7yzQd50Lm0Xomy4+eh7ergsUazCwWzO9oaQVy4cQ2XS1F02IK80dcs7F0reLEToC2LbZiAv7s7k2IDImxJu5nkHeWcyswHrLhvm7T3uzgV5y4TbIW8GuiakbHAOBzlA3vRwDJVJU3fZgLzS1C3vLCh5cxGhL4htW255cTcLbTMib0q4Oecd5M3CnGasu2yYsfe4mwfkLRAOeTPxi7LBPRxkAnkTwzFUJk3dZQPySlO3vOlQ8mYkQl8Q2ra84XA3I7+QNyVc8nkHeTOS3Jh1lw3UvCFItdde3renyyPx0ZZv/dWS8jVvarWTdAhmfv1Iz7wNE5ccvoRLeZNbOFgWfXpsn7/mDJcI8sIAvXpsjsu+ZwqXBvLCALFtQ14YILZtyAsDxLYNeWGA2LYhLwwQ2zbkhQFi24a8MEBs21YAA2S2LW+4nHin5ry9he+ex/aQt9T2Fr57yLvk7S1895B3ydtb+O4h75K3t/DdQ94lb2/hu4e8S97ewncPeZe8vYXvHvIueXsL373K5QUYBnlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QJai82+fVavXou831w4vbtl6/rVZJU9Im0uybM2US0TRe/3qYK3qzWn35YbmdmPJun/d73bge3n1T+8m72W/q7clv95p9c6ZNgZvC29NhovNNu1FTe2PK+/qtbegmbbL3NN6e/OTdPrcnFb/d6yYeXzv9Y9l0K0t0O2m60Zjydtj+s/1A8/BPN3lff3fcsZ2zvJvV46aV16EDiizv2rHn3fvkV/NufvvzybWk9y0bdp28h3+hm0rl3Tge3vYc5ydv055XExcRScP8s9P7rbXGdudN07NnXHk3np/Xmr24jvJ+Me+U3tOew16/ufUF1cvr2e92pzhHeQ/adkWhB96ff2svGxrXUd7mOAOnk03dEfX72ObQCb7fXt0f2BrHIfUTfj3v21O7d35lQ+eR3/Y2VQ+VOdZnFxyvsLUldndwfShR81Z7keJ4Gvcc5/W9PLxxvvq9dt3esY9v6rw8DDAC5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQd58fJpVznVRjQpB3nwgrzPImw/kdQZ587F39e3pH0/dBOvt/J7/auVtutlF2ynC354KTDu8YJA3Hwd526U793/a6Zw3q+Nf2nmd27mkG8cZgGsAefNxkPfxMIt+N5H++viDw2zLm9/+/BtVRFaQNx8Heb8flpw4T2zflb0Hl9e+aylXAPLm40re5izvZZ0hxyUoKwF589Hf87Zsn//uuRB4DSBvPq7kPS5CdvzBgebhf47r/1QB8ubjSt7jUtXH0Ybuk9t3zwVbqwB583Et7/tx3r2068PSa3xkywnygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IMv/AYUIBA3VrntHAAAAAElFTkSuQmCC" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuZHR3UGxvdFR3b1dheShkdHcoWCwgWSwgc3RlcCA9IGFzeW1tZXRyaWNQMSwga2VlcCA9IFQpKVxuYGBgIn0= --> | + | |
- | <pre class="r"><code>dtwPlotTwoWay(dtw(X, Y, step = asymmetricP1, keep = T))</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAAaVBMVEUAAAAAADoAAGYAOjoAOpAAZrY6AAA6ADo6AGY6OpA6kNtmAABmADpmZmZmtrZmtv+QOgCQZgCQkGaQ2/+zs7O2ZgC2/7a2///bkDrbtmbb2//b/9vb////AAD/tmb/25D//7b//9v///9YKFnuAAAACXBIWXMAAA7DAAAOwwHHb6hkAAARXklEQVR4nO2dgXbbuBFF5a2TbONt49bWLts6sq3//8iKoqTYiSmJIAZ4D7z3nBynm5oYAJcgCJKY1RbAlFXtAABSQV6wBXnBFuQFW5AXbEFesAV5wRbkBVuQF2xBXrAFecEW5AVbkBdsQV6wBXnBFuQFW5AXbEFesAV5wRbkBVuQF2xBXrAFecEW5AVbkBdsQV6wBXnBFuQFW5AXbEFesAV5wRbkBVuQF2xBXrAFecEW5AVbkBdsQV6wBXnBlszyrgBmEyPv6/1w9N/+ynI4gA+IkbdbfR3+sjn+ZdbhAD4iRN7X+5Oy3e3T7MMBfEiIvC93345/3YxMHJAXZsPIC7ZEzXkPQy9zXogjaLXh5W5YbRgZd5EXMhAkb+nDwRJBXrAlWt6O1QaIovDIO/3JXgm+b7ePj9+/Pz6m/lytEn8+7n4+Jv/8fjjM1J998al/avfVW5g2bPfyJiNVketoprrIO68zpSpSAKnqhsr7/Pnb2D8pNUIzI1EJlCoc9Hj4x9zW4IYNeSegVOGYkffwYM1k5J2DZT1aOVvDnrD1z9aQVxPkvcD65mEB8npWo5U71Lgbtm711UPeVsahCTRS5cDVhufPf0NeTRqpcuRS2ev9ykDeVq6hpRCqMg8pkHcaQlVG3kYuoeXQqTTyzsG2Fm2cscg7B9taIG+RcqWxrQXyFik3nBn9qFOJyTRhL/Ii71Rkqr14eZvoxbLIVBt5Z/yuTCXKIlNt5J3xuzKVKItMtRcv7wys69DCSYu86VjXAXkLlCuMdR2Qt0C5wbTQh2k0sESIvMmoVCGRBk7bhcvbQA/WQKTqyJuMSBVqIFJ15E1GpAo1EKn6wuWdg3kVGjhvkTcV9xo08PkT8qbiXgPkjS83lAYunen4Vx55U9GowQz8K79oef27rxYatQ+R9+Wu3yRyI584G3mTkah+nLz73JdvErmmHy4M5E1Govph8h60bTZ9q30FGjh3w+Q97BDZbOJs+wog78csYOR1j7/HfqU3SN4+G8Wn7fHWbebhorAfeebi3gBRS2U7f28expO+S9Tdve9m494AC17ntb9qVkWhAZA3DYH466LQANHyCifOdr9oVkagCQqPvJqJs6djHv4R8/N3wdOGOZiHfwR5Y8vVxDz8I8g7ymbVL5dlO1xulvvV+w+87Q2Sd71afX3++5P0iznIi7wfsb592udvVX487N1vAtRvhKDHw7vx9vlLL6/uiznIO5P6jRD4Mvrrf7eMvA1TvxFipg2nRxPSL+YkYx38e6xP4aAbtm5YZtiMJh+uXvE5WAf/HuSNLFcR6+Dfg7yR5UZh3WsZcV4wRN7pVI89J84n8VLlde4zGWo3BPJOp3bsMtRuCOSdTu3YZajdEEuVdw7Osf+C81mMvJMxDv0DnD+GQt7JGIf+AcgbWG4MzhfLzBg3BfJOBnlPIG8FjDtMi7qNgbxTQd43IG95kDcTyOuFb+Qj+J7JyDsV38hHQN6wctWwDXwU35XeRcrrO9aEYNscyDsR5H0H8pbGtrf0QN7S8BVFPmo2CPJOA3l/Anl9cI37LK7TKOSdhmvcZ0HeoHLFcI37LMj7jtf7YfN+ycTZTHl/xtTeGHm7Y/610URsyKsE8v7g9f6krOAukaY9pUpr8r7ZD11wf17kzUpr8jY78uLuB9RrlKg572HolZzzpuMZ9RV4Xo2CVhuGvO+r1ci466qBZ9RXgLwh5UrhGfUVIG9Iudnx7KdoLG8EouXVS5xt2U3hWJ7ShUfe+omzLXtJm6XIG3W460He7CBvKZA3O03KK544ezKOMV+N40mdIu/L3er2aT3y9GHAIXH2ZBxjvpqFyLu5eehun0ZzW/Y4JM6ejmPMV7MMefsXF3olxxbBttKJsx37qAiODTNd3t7MXt4xLbfSibMd+6gIjg2TPvKuR99bEE6c7dhFBlRqmuQ5bzeaE7tHNXE28obgI+/wytjoIljmcvOCvCEYyVu0XB0MQ56C4XmNvNfiF/E0FiHv8T3z8c/as5Yrg1/E0zDcpjd55D2zUpa13KwYji7l8Guc9GnD+lORcrPi1z8F8WucdHnnDb3I2xRu8p55PJyz3KzwFUUUVZonWd6Xu2VNG5D3LCbyXvyqPW+5KtgFPB27SRXrvFdiF/B0kLfO4eKxC3g6yFvncNfBlPc8bvZOlPf0eM3yCRvynqdxecuXmxG3vrECeWNB3kBM5D1OHeymDcwaIqnQRAnyrm+fuk/b58/nvqTIV64GZuGmYnZtSnlI8XW76b8envWUwswGs3BTWYC837bPv/+1/1OgXA3Mwk2leXn7r4df/njwk9esZ6rgdVuQMOftXydbf/WbNnh1TB28TvCUpbL1p37Fwe1LCq9+McRD3qLlZgN5g0HeOJA3GAd5Z76FPrVcBayCnYfVKZ7ykOLifjnDDmUb1azvk7EKdh6ty7sdvFyND8B7eferEW1sLm0V7DwWIO+2X+49v8XpQVuZLU6teqUeVs0UNvIe3n2Q2VzaqlfqYdVMKU/Yrprzio28Vp3iSumGClltGF6a/LQV2lwaeQugL+917Pzdjc6b1VjWFeRtkFbkLXy4UJxinY3TWY68FzEKNQNOO51Gy6uX9X0yRqFmAHnHj1Ip67vTxbAyRk2VstpwZoU3f7l5MOqR2hg1VcrI2+0GzrOZh3OWmwejHnHGQN7tZX/7fx8eUmjMefmKogxlGyt5ztude2eszyE4PMxA3kXhIO9mP7C+3o88++2/0dwO/ywi7wx8Is2EzxQrQd7+4e9g7dhbN8cXIfvtSZDXjZblfbm7mLl1GHm3/aea9vLaBJoNn5XetH0bLnFUdvwj47JOMOWdgs3QmzLyXrFJ2TEn/Ogr68irS8Pyzs19ObHcHNj0hj/i8hrmHkbeYojLW7jcHDBrKEfJBluEvDNwiTMrLleqFHl3E4fbp/W8txtcpHCJMysNy7u5eehun0a/TstcbmVc4sxKu/L267zdmQe/mcvNAFPeqZjYm7bO28s7b8UMeZVpVt7jyLt22VzapCdaQVrew5z3+Awtutz5IG9RtOUdHlNcfDsnU7nzQd6iiMtbtNyqeEQZgMcJj7zn8IgygFblNXy3IRmPKANoVd4DM98tK1dDj35Qw2J5MX3asJ61e4OFvMt11+OUT5fX5CGFRS+0hYG8Jo+Hkbc4+vLOzGiFvO0iLO9xtWHW02EPLyyCjMHinGeddxyHGKOw+P4decdxiDGKRuXdZwNa3Txcs39DhnLnwkpZGg7zhsnydsPukJ3LEzbkTaNFeTfHt8m6eVtMl6of7lZAVN7X+4Oy+48wx//fw9xCIHE28tagUNNNlPe011N3+58z04buuPP0aCI25G0ZcXnPPh5+cy+nkr41AYMQIzGY9KZOG86+mHOF4gZmGIQYSXvy/rhhe/4y/h1QEyOvfoSxGKz0pi+Vnfv+8vSvtee8THnT0R96Ux9SXHiz4eILEMgrT4vyFi53Fvrt3yjIOx/krUQb8tZNqMKsoRZFmq/wyFsrcfZ05AOMR/661fa0YQbyAcaDvGUOlx/5AONZqrwaibOZ8s5D3d4YeUUSZyPvPBYpr0jibPW2bxpbeUUSZyNvRWzlFUmcjbwVsZVXLnH2ZMTDK4X46R+22iCVOHsy4uGVYpnylj5cbsTDKwXyljjcR4i3vAXai43I+xG4e0B7AGhXXu12XwDImw7yVgZ500HeyiBvHbSjK4j2CIC8HyAdXFG0v39H3g+QDq4oyFvgcB/ASlkOpOcNyPsByHsCeeMP9yu4W5/ohkTeX0HeTCBvIshbH+Qtj3JsxVGe9CLvryjHVhzkDT9cToRDq4DySm+r8jLlzYXw0Iu8v4C870De6MP9jHCLLwnkTYGBV4PYxkTen0HejCBvWXQjq4TuFAx5f0Y3skogb/DhMqIbWSUWJu/LXb9X2aZe4mymvDmRtTdO3n3uyzeJXNMPNx3kzcny5D1oWyV9q2xrLw9PeZ8/7+WtkjgbeWXwlNd05MXdzEQ2aJC8faa1T9vjrdvMw5VENa6qqF7JopbKdv7ePIwnfZeVRDWuqixN3sKHy4ZqXFVB3tDDvUO1rX0RvYmIlrdGQhXRpjZGdDgoPPIWSZyNvEq0I2/U4d6BvEog7ySQVwnkLYRmVAJoTnqR9y2aUQmwIHmHJ2wDVkkENaMSYEHyjie+TDvcNJjy5mdJ8u7s/ZTzcJNA3vwsSt7tZjXyFnra4SaAu2qENWt7N2zIqwbyXg3yqoG8JZAMSgPJSS/y/kAxJhWQN+5wWVCMSQXJbXqbk5cpbwyKQy/y/gB5z4C8YYc7odjGiwd5r4OBV5GgpkXeE8gbBvJGIxiSEoITMuQ9IRiSEsgbdbgcCIakBPJGHe4IU9449OxF3iPIewHkDTrcAb32hT3IexnkFQV5L8OsQZWQ5m1L3hnIBaSH3HUNeQ/IBaQH8sYcbj5yAemBvDGHG5Br3cZQu6VA3gHcvQK1wQF5B5A3GOS9APLqgrwXQF5dkDcMsXBUEZv0Bsn7en92g1M5W8TCUWUR8nbH5IGjWQTFbBELR5UlyPt6f1K2ZO5hprzRLEHeQ9LsnpJZ35E3miXIW2fkxV1t8jdy1Jz3MPSWnPMirzYu8p5SqoyMu8i7QGzkLX24mWhFI4zWpBd5t2LBSKO102m0vDWyvk9GKhhtpIbewiPvhazv33t2/5j28/FxlfgnS90WwU7ex8fv3/smS/vZN3fKz4+CYdoAtiAv2IK8YAvygi1B7zaYZn0HK2JG3qpZ32EphL2MXi/rOyyFqDlvvazvsBi4YQNbkBdsqSYvwGwqyZufSgHWaheqW+y3C0BvNlws8rZULNUt99sFoDcbLhZ5WyqW6pb77QLQmw0Xi7wtFUt1y/12AejNhotF3paKpbrlfhugIsgLtiAv2IK8YAvygi3IC7YgL9iCvGAL8oItyAu2IC/YgrxgC/KCLdLy7lMdjyTNCmY9mvAokOfPq9WF/bQi6HatfH4jpAief9/ve7dZrW4eEg+hLO/r/a5aXY3u3DVpBXk3uzJf7opXt9u18qVtvPLzcrfftHHTF55qr7K8z5/7Fh3L3RLJy10FeYcEo8WrO2yeuC58zmyGXXKHOqcWrizvQPJ5OYPu9l/l5X3+Ur6i20ryblZf9+mr541P+vKuy4+8O40qzHk3v/15V2OKX2faMOReH07YsTTsl5CXdzTNcRz9tayCvF1/Ib24A3IAc+6ZZpTaGztcVlMvrurybircr/Up7WvIezNnFEqnv7Q9fy4+RLQvb4Vxd7iU1ZB3r+0wCyxIrdvi5qcNXY1V3u6w0WbpWeDQhcVv2+YNfjPKbfyGrauwdn6gwsj7ctfXtvi0YfCn/Gxl0/ZSWYWJ2IkaT9j6ufbQm0WpOedt9yHF4fpd4U640uPhTZ2n4esqxR7G+q7Rx8MAZ0FesAV5wRbkBVuQF2xBXrAFecEW5AVbkBdsQV6wBXnBFuQFW5AXbEFesAV5wRbkBVuQF2xBXrAFecEW5AVbkBdsQV6wBXnBFuQFW5AXbEFesAV5wRbkjeWXTeRqpNhoFeSNBXkDQd5YkDcQ5I1l5+rL3T/vhn3W++08/93L2w2bivY7gr/c1duE2B3kjWUvb5/Ic/en38V5szr8j347534n6a7GRsCNgLyx7OX9ut88f9g/f334D/vNlTe//fkHs4hkkDeWvbzf9gknTvvYD9PevcvrKpmVWwF5Y3kjb3eS90e6oQqZJxsCeWMZH3l7Xu//USEteDMgbyxv5D3kHDv8hz3d7f/KZ/9pB+SN5Y28hwzVh9WG4c7tW4UEaO2AvLG8lff9Ou9O2vU+8Rq3bKkgL9iCvGAL8oItyAu2IC/YgrxgC/KCLcgLtiAv2IK8YAvygi3IC7YgL9iCvGAL8oItyAu2IC/YgrxgC/KCLcgLtiAv2IK8YAvygi3IC7b8H14K/jXxVzXXAAAAAElFTkSuQmCC" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxucmFiaW5lckp1YW5nU3RlcFBhdHRlcm4oNixcImNcIilcbmBgYCJ9 --> | + | |
- | <pre class="r"><code>rabinerJuangStepPattern(6,"c")</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-output-begin eyJkYXRhIjoiU3RlcCBwYXR0ZXJuIHJlY3Vyc2lvbjpcbmdbaSxqXSA9IG1pbihcbiAgICAgZ1tpLTMsai0yXSArICAgICBkW2ktMixqLTFdICsgICAgIGRbaS0xLGogIF0gKyAgICAgZFtpICAsaiAgXSAsXG4gICAgIGdbaS0xLGotMV0gKyAgICAgZFtpICAsaiAgXSAsXG4gICAgIGdbaS0yLGotM10gKyAgICAgZFtpLTEsai0yXSArICAgICBkW2kgICxqLTFdICsgMCAqIGRbaSAgLGogIF0gLFxuICApXG5cbiBOb3JtYWxpemF0aW9uIGhpbnQ6IE5cbiJ9 --> | + | |
- | <pre><code>Step pattern recursion: | + | |
- | g[i,j] = min( | + | |
- | g[i-3,j-2] + d[i-2,j-1] + d[i-1,j ] + d[i ,j ] , | + | |
- | g[i-1,j-1] + d[i ,j ] , | + | |
- | g[i-2,j-3] + d[i-1,j-2] + d[i ,j-1] + 0 * d[i ,j ] , | + | |
- | ) | + | |
- | + | ||
- | Normalization hint: N</code></pre> | + | |
- | <!-- rnb-output-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxucGxvdChyYWJpbmVySnVhbmdTdGVwUGF0dGVybig2LFwiY1wiKSlcbmBgYCJ9 --> | + | |
- | <pre class="r"><code>plot(rabinerJuangStepPattern(6,"c"))</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAAdVBMVEUAAAAAADoAAGYAOpAAZrY6AAA6ADo6AGY6Ojo6OpA6kNtmAABmADpmOpBmZgBmZmZmtrZmtttmtv+QOgCQOmaQkGaQ27aQ2/+2ZgC2Zjq2/7a2///bkDrbkJDb25Db2//b/9vb////tmb/25D//7b//9v///9sOozcAAAACXBIWXMAAA7DAAAOwwHHb6hkAAARL0lEQVR4nO2di3rjthFGkXi3Sey0TVdNV23VppYlvf8jlhdJpiRSvAAD4AfP+XYdOZGRmcExBYIk4E4AorjUAQAsBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZ5sl73LiGH/9tFA7cUJVasOlozMpg517bF/vLC7DEncw+Gg2bjsecBI6bq7K7l3eDYOAG1/mq03RE5sR/ePt2ebm/HTi4K8ECg7pvnCHrknfCkVe9HFnh7D7cq6ZXJm815j0fegfHvOrlyAvTMa/T76x5CRze2k+cwRGvfD1ywtlNCRg2HZHAGegXJB+W1/Ljp5GpzCLmGpA3X5aX8vA2Mg/v/NrPBuTNlOWV3I9dRCpjnuyEvLni4+7r/qm8zvf/kA3ImyV+dXwqr7v7pzDImyOeZXwmr3t4oQvyZohvFZ/I63peyYK8+eFdxGF5Xe9LVZA3O/xrOCivG3gtCvLmRoASDsnrBr/RBHkzI0QFB+R1T76TBHnzIkgB++V1T79VBHmzwrB+900X0FXImxMR3S2hq5A3I2K6W0JXIW8+RHW3hK5C3myI624JXYW8uRDZ3RK6CnkzIba7JXQV8uZBdHdL6CrkzYL47pbQVcibAwncLaGrkDcDUrhbQlchb3qSuFtCVyFvctK4W0JXIW9qErlbQlchb2JSuVtCVyFvWpK5W0JXIW9S0rlbQlchb0oSultCVyFvQlK6W0JXIW86krpbQlchbzLSultCVyFvKhK7W0JXIW8iUrtbQlchbxqSu1tCVyFvEtK7W0JXIW8KMnC3hK5C3gTk4G4JXYW88cnC3RK6Cnmjk4e7JXQV8kbGcOPJeU0X0FXIG5dMDrvz354jyBuVfNwtoauQNyYZuVtCVyFvRHJyt4SuQt543BZndGt246bbH9k798P3cHHEBXmjcVub0a3ZrZtufmZfmbuXtRd5Y3FbmtGt2c2brn/ouHmtvm6/hAokMsgbiXvBRrZmt2+6/qmPr9+qr7uAnwFRQd44PBYmmLwLm27k/dP3kJHEBnmj0FOXUMosbbr+uXa4KzvoRd4Y9JUlkLyLm0Ze4+YKobcqYeRd3jTDBuPmyqC/KEGU8WiaEzbj5opgoCYh5PVpmqky4+ZKYKgkAeT1apqLFMbNFcBgRfzl9Wu6/ekdl4etmtMnq3txQv54DiCvKfm6W0JXIa8lGbtbQlchryE5u1tCVyGvHVm7W0JXIa8ZebtbQlchrxWZu1tCVyGvEbm7W0JXIa8N2btbQlchrwn5u1tCVyGvBQLultBVyGuAgrsldBXyhkfC3RK6CnmDo+FuCV2FvKERcbeErkLewKi4W0JXXVM4/hG0ubUi424JXXVN4fDWPsl0/LvPDf4FVMQLHXdL6KrPFPbN8yA7vyW0CqiID0LultBVnRSOG1fxGqq5FaLkbgld1U2htvdbuOZWh5S7JXRVJ4Wtc3/buJf3QM2tDi13S+iqzglbM2LYM+ZdiJi7JXTVp7x/bg+5zDYsQ83dErpqTgrVwfnKwPG5gIosQ87dErqqk0Ll5sv79tlsw3EzNqYooCKzqX6VzQSzbVqdzjzvD993L++Ht+f2jqzJpl+Q2biT3cHRmSnmTma/FvH4vDy8eT1V8o6sd7kfmUuTr8dsWndtTqmcmb3u8keazmzDt0beReu/fY6FQ8YmgaEGyDvCw5F36zXRq16O+Ti7cYOpvIajnWjcj3l349fY2hWJx5pbDapj3gI663a2YdJircjbxVmet1uerxUwxFuQAfJ20ExYM+oHkNcLzXw1o36kzWPCtbNPkPeKZrqaUffQvRm9uTHHb4eCYuoyCc1sNaPuozNV1l482zFVNhXNZDWj7uXmIkWN3yY1BVVmFM1cNaPu5+YiRQ0XKSaimapm1AN0x7zNVp6Meaehmalm1EPcX6TwewqosOI8QTNRzagHYSWLRWjmqRn1MMi7BM00NaN+wmdC7bINEy5STGuuZDSz1Iz6GZ8Zbf13IS+xQD1oJqkZ9VM687x+a+XcNVcwmjlqRv2ch4sUgZorF80UNaMe4eHycKDmikUzQ82ox7i/SBGsuULRTFAz6lE6w4apt0ROaq5QNPPTjHoc5nnnoJmeZtQTQN4ZaGanGfUUkHc6mslpRj2Jy2NAr4x5x9DMTTPqaXDknYpmappRTwR5J6KZmWbUU0HeaWgmphn1ZJB3Epp5aUY9HeSdgmZamlHPAHknoJmVZtRzuH2GbWRZ/1nNlYNmUppRz+J+iVPP23pLrJhmTppRz+Nm3YbxZf0nN1cOmilpRj2Tm5vRFy/r/9hcMWhmpBn1XB6OvKyYc4NmQppRz+Z+zDthWf9pzZWBZj6aUc/nfsUcv9WeSiubZjqaUS+Aed4naGajGfUSkHcYzWQ0o15EJ9X6VK1dHj1Ic/Jo5qIZ9TI6K+Y00wyHN68n4AsqnWYqmlEv5GHREeZ5WzQz0Yx6KTfzvDVcYWvQTEQz6sV8ptvO8H585d6Gk2oemlEvp5Pvx1fmeS9I5iEZtA9MlfUhmYZk0F4gbw+SWUgG7cdnyqyMfkEyCcmgPenM87IyestNDh8/BahKBCSD9qUzz8vK6A03KRzeQvxK2yMZtDcPFykCNSfLTQZ7z1FULCSD9qdzkYKV0U8PGrz6XXCMhGTQAejcjM7K6D3xK3ggGXQIOsMGVonsCV/AA8mgg8A8b4ee6PP3QDLoMCDvJ33BZ++BZNCBYMWcK72x5+6BZNChYMWcC/2hZ+6BZNDBYMWcMwOR5+2BZNDhYMWclqHAs/ZAMuiAsGJOg2TckkGHhBVzaiTDlgw6KKyYcxKNWjLosDDPS9CyPDw9HKg5IRRj1gw6NNwSKRiyaNDB6ZywrfNJCr2IT6JBh2ftd5XJBVwjGbQBKz9hU4u3QTJoC9Ytr1i4LZJBm7Dqu8q0oj0jGbQNa76rTCrYC5JBG7Hiu8qUYr0iGbQV672rTCjUTySDNmO1d5XpRNpBMmg71npXmUygXSSDNmSld5WpxHmDZNCWrHOeVyTMWySDNqWtSHW2dvjV75jbbS53NKK8QzJoWy7yvq5IXokg75EM2phzTXbuSvFTZQoxPiAZtDWf87xrOfIKhPiIZNDmrO6ELf8Ie5AM2p55N+bUo4tmHnjoInL2Vc4+wD4kg47ArBtzdj98P29OrCpv7vH1Ihl0DObcmNM+o3ncPHlX5nXOPLx+JIOOwpwbcy7PaG5f3vXkrQY8GUc3gGTQ8ZhzY8716fjtFzl5m1nA1EHMxZ0yrmgGzLox56JsdWonJu95Djt1GPNo3RULOibzbsy5qH3c3Mr7eYnDIMQQ5B3dAO7yB/pZyTyvqLyMG57yWJr/jF0efrYwVLaVFnSXMe8Yl9rszjc13A8IepCU9yTprmDQMTkXpzpba+YZ9s6NPj2sKa8e1HKMtkLN3q2Ht2+7KU9SIG8UKOUo1/t5ayl/dlP2H0beGFDJca5PUlRft+NDhmnNgTcUcgI38no99d5pDnyhjlO4kXfKoGFKc+AJZZwE8mYIVZwG8uYHRZzIRd4VPYCZO9RwKiu5t0EISjgZ5M0MKjgd5M0LCjgD5M0K6jcH5M0JyjcL5M0IqjcP5M0HijcT5M0GajcX5M0FSjcb5M0EKjcf5M0DCrcA5M0C6rYE5M0ByrYI5M0AqrYM5E0PRVsI8iaHmi0FeVNDyRaDvImhYstB3rRQMA+QNynUywfkTQnl8gJ5E0K1/EDedFAsT5A3GdTKF+RNBaXyBnkTQaX8Qd40UKgAIG8SqFMIkDcFlCkIyJsAqhQG5I0PRQoE8kaHGoUCeWNDiYKBvJGhQuFA3rhQoIAgb1SoT0iQNyaUJyjIG5Gb6nz85LPtEpyQNyY3xTm8ee0ZBifkjchNbfaeG97BCXnjcefu6x55fUHeSDxUBnm9Qd44PBYGeb1B3ij01AV5vUHeGPSVBXm9Qd4I9FYFeb1BXnv6i4K83iCvOQM1QV5vkNeaoZIgrzfIawwVsQN5baEghiCvKdTDEuS1hHKYgryGUA1bkNcOimEM8ppBLaxBXisohTnIawSVsAd5baAQEUBeE6hDDJDXAsoQBeQ1gCrEAXnDQxEigbzBoQaxQN7QUIJoIG9gqEA8kDcsqy9ATJA3KGvPPy7IG5KVpx8b5A3IurOPD/KGY9XJpwB5g7Hm3NOwoOJ75374Hq65Ulhx6qmYV/Ktc68fv7yfDm/fQjRXEuvNPB2zar59eT9tm6Purnrl3VxJrDbxlMwpenO8/fhTLe/QWkVr7EPn3CrzTs88eV+rr8c/Thx5O7ia1EGsk1ll312Ot63Gvs0VgXPYm4p5Vd+10wx7d3e+5q4EC0yFteadA1TdE+RNx4KqHzcDY4Z1grvJQF5vcDcVyAuyIC/IgrwgC8M1kAV5QRbkBVmQF2RZj7wObkndIf4UkMJE7DI1rKFm07EoIIWJIG+0pmNRQAoTQd5oTceigBQmgrzRmo5FASlMBHmjNR2LAlKYCPJGazoWBaQwEeSN1nQsCkhhIsgbrelYFJDCRJA3WtOxKCAFWCvIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizrkXf3ZPs4L44b55zZ8m0fP/VvXePHs730dFiNvPV+GnuLDjtuqlZ37kv4lmsObwP7LnlRF8KkGHFZi7zNFjDHjYFiH1/rDTp2Fo41R0iDhtt1PrdGv2/xWIu8DSbyttgcx/budWjHOx9Mf98isip5d3aflFsrE0zkfboRpA4rkndveFq1N2vaQrH2Y0J/0Lsieethw8DGnb7src7XkPcZq5LXqr/sjrsMG56xAnl3n9Ow7ZlK6JZ3Bu5eg+aEbZgVyNvQ9pfJwWZ3v5ltUCxCZqpMjG013DXZx+jjq+nmSCa/b1ykEGNbfRBbHCJ37TrjVirYjEzNrpVHZT3yQnEgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oZjP3nJssPb/appBSx7Fx/kDcVxUy+Jt3TNSORdAPKG4rxW88L1q5F3AcgbiGajt5rtl3ZU0Hw5L3B++PV39+Nf6sWcd1/aN3+r/v721i66Wq83+nst72Wl9erX4NocDIO8gWj3eTg1C+pe5a33zqoHEoe3l/dmpd3jpjkut/LWO2dWf+tdsPbu/E397noN7J3R1i9FgbyBuH7uVy8u8raHz8bm19bYs+KtvK/NIKMdZ2zrnzq/u/r7r18ZRYyDvIHok7f9d5Wd7exCNaA4H1Bbec9vasbK1Vuv765XcZffLyIGyBuIvmHDvl3x353lrf7Lth3JduXdXeW9vLuedLPco6UYkDcQnydsL++3R97TZV738Os/zqOBJ0femuPmr/LbTMUAeUOxa87HXv7bnJ+9dkYLp4u8x83P59OwrrznTdHOg422qZf/WexbVBzIG4xtY69rtsx6ea9etbMN7blY4+V1t8GuvM2brrMNl3frb08ZAeQNx3nQ2szSOvfbZZ63+b6R9zouvpH3dp63ene7ZRynbKMgb3D+OTjL9fELk7chQd6I7BjIBgV5o/HxlatmYUFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6Q5f/lv/H1qZ2ulwAAAABJRU5ErkJggg==" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuIyBQbG90XG56b286OnBsb3Quem9vKGNiaW5kKFgsIFkpLCBwbG90LnR5cGUgPSBcIm11bHRpcGxlXCIsIGNvbCA9IGMoXCJyZWRcIiwgXCJibHVlXCIpLCBsd2QgPSAyKVxuYGBgIn0= --> | + | |
- | <pre class="r"><code># Plot | + | |
- | zoo::plot.zoo(cbind(X, Y), plot.type = "multiple", col = c("red", "blue"), lwd = 2)</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAArlBMVEUAAAAAADoAAFgAAGYAAP8AOjoAOmYAOpAAZrY6AAA6ADo6AGY6OgA6Ojo6OmY6ZpA6ZrY6kLY6kNtmAABmADpmOjpmOpBmZjpmZmZmZrZmkNtmtrZmtttmtv+QOgCQZgCQZjqQkGaQttuQ29uQ2/+2ZgC2Zjq2Zma2kDq2tpC227a229u22/+2/7a2///bkDrbtmbb/9vb////AAD/tmb/25D/27b//7b//9v///9+72k3AAAACXBIWXMAAA7DAAAOwwHHb6hkAAAQ3ElEQVR4nO2di3rjthFG6W42tnpLa7VNk9Zqm1rpLSkTh66k93+x8irLXtESSWAwP3nO98XrrGiBmDkLgUMayA4AomSpTwBgLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIO45t9uG/7bf7TXb71H/Mbn3z+LxqDu/+PB6Q3XffPDyvTl+CK0DecVwvb169mmfZXX1k9nBywG6d3Tweaqdvn8oX76Of9rxA3nFss8vjZH1M42SjbaPwCUenK4fznn8D0AfyDuKHX2bZxz8fajH//fss++K7buTNs5u/f5tln1cj6WH/7Sr7/Jta3uI4uH741+qt8Y3TRTN7KA95+LRF6Ad5h1DOTSvuj9+1Y2szMaipVK2c7F7NW2Gb19/aWU0Yftw0h5STCOYNg0DeAZRD5G+f/reuXCvlvf3u8EP1sX+U9/Pvqq/39XF3T/tvK3nLF5uZQqlmdmZeUP7Arzqnt8wbhoG8A2ivwL74T/VtPRvYNn428j7UI+ndS5mh/KP80k5zi2ZUfkM9SN+dvj1cDfJez2lZoRWtnOk+Hue8j7Ww9VB81x1T2nzf/XB2blpw4nR+zm7oB3mv5zgFOBw/4s/K2422r+TNuwlx/5si70CQ93oGjLz1cafyViXdL89NepF3PMg7gMbY4tffNPfEDq/nvEd5T+e8nbzVzbRq5vDJxAF5x4O8Ayjnp795amqzpYwf3lQbXuRtqg3VId0FW1EPuqXJ5UGv78idyMsF20CQdwhtdffubJ33Rd6TVxs3u/vAedbcB+6Tl1LZIJB3EPUdtq8P5++wvci7/+cq+/jnbXOTonxx25bD6olDn7w83DAU5I1McWYiu707d+TziinvMJA3MuV4+uk94bPPMBTMGgaCvLHJ3zxJdtj/9euzB26ZNQwEeWOzW19XQ+Bh9MEgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/Igrwgy2R5u312WZ8TrJkqb96tiFywNDIYM1He/eaobM6i9GDLRHl36+P2CgUTB7CFkRdkmT7nbYde5rxgzeRqw27dVBt6x90MYBhm8jpoAeYF8oIsCeTNe6oNM5D3p4WQOs4t6Ufe4TMYt6R2yo7UkW5IL69hC7HxktTYeOkn8obDS07j46Sn1vL2bGQesIV0OEmpAU56aiVvV+WtmOkFm5OMmuCjr2Yjb3tjbcYjr4+E2uCjr3bTht26urc2X3l95NMKF721nPNubx7nK6+b+pENLrpresGWZ/czljf1Gdjiob+21Ybn1ceZyushl7Y46LFxqWy/yZB3HjjoMTcpguAgk+ak7zPyBiF9Iu1J32fkDUH6PKYgea+RNwAu6kb2JO828gYgdRJTkbrfyDud1DlMR+Kep5dX/2F05E1EenkNW4jDct1N3XfknQzypgJ5p7JkdxP3HnknkrxelJak3UfeiSzb3bT9R95pLN3dpBFA3mkgL/LatBAe3E0ZA+SdBPIir1ELwcHdimRRQN4pIG8F8irKi7sNqeKAvONZ+P2JF1IFAnnHg7sdyKsmL+6+kCYWyDsa5H1hqfKqPoyOu6ckiUZ6eQ1bCArynoK8SuDua1LEA3nHQZnsDSkCgrzjwN23IK8KuPsp9jFB3lEg76fMV97dutqSoujfTkVKXtw9h3lUTOXNq10pduueFXqRV5xZy9tqWyscvgVDcPc81nGxlLfdj6JQ34eNMlkP1oFh5B0O7vYhLe8/+i7G2h0w7w7dpduUU0kM7vZjG5vp8u6+6r57XvVWEuoD19nNY7cT5pRTSQzy9iMn77pUsmLbXwULeyppwd33MI1OgGnDflNNB55X9aTA4lTSgrzvoSZvde/h5susHX8vk0tXG3D3fSzjE+aCrRl8R56B1MPolMkuYBmgIPLm1cg7bcI75FRSgruX0JJ3t66G3fJrXxkh9KkkBHcvYxcju2pDXk4MmpsUwnNe5L2MlLxfdd+9W+fNS8V362pmLCwv7l6DWZSs7rDtN/f119sn5J07ovL20z0Iub190pUXd6/DKk5W8jYjb8n2TlZeymRXYhUos18D6pTdrfuu6wTkTX0GKsxN3kPe1BrKMVhUXty9HptY8QuYV4O814O8vsDdIZhEC3mvBXmHgLyewN1hWMQLea+DMtlALAKGvNeBu0NBXi/g7nDixyy9vBIPoyPvcJYgr2ELo8HdMUSPGvJeA/KOAXk9gLvjiB035L0MZbKRxA4c8l4Gd8eCvKnB3fHEjR3yXgR5x4O8acHdKUSNHvJeAnmngLwpwd1pxIwf8l4AeaeBvOnA3alEjCDyvgv3JyYTMYTI+y64Ox3kTQPuhiBaFJH3PZA3BDOW1/HD6LgbhlhxTC+vYQtDQd4wIK89uBuKSJFE3l4okwUjUiiRtxfcDQfy2oK7IYkSTeTtA3lDIi7vftMUxHo3XfElL+6GJUY87VZG77Zp6932HXnnjLK8xz0pSo1vn2K0EBbcDU2EiFrvBlRSCCzrT5ksOBFCysh7FtwNj668x/1UJOa8uBuD4FG1qzbs1k21oWfcRd7ZIyyvgxauBXfjEDqu1HnPgLxxkJX3pM77syHVhp9SMLGv0EPglKSvNrz/MHowHydHCqYTOCXUeUGW9CNvqBZgcVDnBVk81XkBhmEkb6duBXNeCILZyLvf9BZ4A7UAS8PyJsVd803ufeT9bCGkjvNkDG8PF9nDub8ePoOJTGqn7Egd6anwbMMn6Cf1OvT7ibxv0c/ptcj31Fre59XZuUPAFqYin9Krke8ppbI3yGd0AOp9NRt52xtr7kde9YQOQb2vlnfYqntr3uVVz+cwxHtrOefd3jx6l3cG9aMhiHfX9IItz+7dy5v6DGzR7q9tteF59dG1vNq5HIN0j41LZfvN+dts4VqYhHQqRyHdY25SnCCdyZEo9xl5T1BO5FiU+4y8LyjncTzCvUbeI+J1o7EIdxt5j+gmcRq6/UbeDt0cTkW25+nl9fIwumwKJyPb8/TyGrbwHrIZDIBq35G3RTWBIVDtO/I2qOYvDKK9R94a4XpRCES7j7w1mskLh2b/kbdCM3chkYwA8lZIpi4okhFA3oNo5gKjGAPkPWgmLjSKMUBezbyFRzAKyCuZtggIRgF5FbMWBb04IK9ogT48eoFAXrmURUMuEouXVy5jEVGLBfKKJSwmarFIL2/ah9HV8hUXsWikl9ewhTOIpSsyYtFYuLxi2YqOVjyWLa9edSgyWgFZurz2bfpGKiKLllcqU0YoxQR54RVKMbHbUKXakqLo304lgbxKebJDKCqm8ubVrhS7dc8KvcjrAqGoWMrbalsrHL6FwQhlyRSduFjK2+5HUfjYh02rKmSITmCWO/LKpMgcmcjY7oB5d+gu3cK3MBCZDCVAJTaGpbLS35vHbifMKC0MQSVBKVCJzXR5d384PwuIdyohUMlPGkSiE0DedT0bMDyVEIikJxEi0Qkxbciz/s3Vzh3uoNogkp1kaMQnzJx323/f7PIbJ3gYXacalAiNAAW6YHte1fqNV3jIqUxHIjVJkYhQEHn3m2naDjyVyUhkJjEKMQoh7/aqOW85M24OSz/nVUhMahRiZFZtyG8ey0OrI5PLq5CX9AhEyarOu9/c119vn5BXA4Eo2d0ebmYW29un1PIKZMUF/uNkJW8z8pZs7xLLq1EFcoD/QJk929ApW06RU8tr044+7iNl92BO3pYk9puk8rrPiCO8x2pxv4DpPSGe8B6rpcnrPR++cB4t5IV+nEdrYfI6z4Y7fMdrWfL6r/44w3fAliZv/DbmheuILUpe15lwiueYpZfX8GF0z4nwiueYpZfXrgXPefCL46ghL7yP46gtSF7HWXCN37gtR17fVR/H+A3ckuSN+/7zxW3kFiOv2wwI4DV2yAsX8Rq7pcjrNf4aOI0e8sJlnEZvIfI6jb4MPuOHvHAFPuO3DHl9xl4JlxFchLx+y+wyuAzhQuSN9taLwWMMlyCvx7jr4TCKyAvX4TCK6eWN/jC6w6hL4i+O6eWN3oK/oGviL47zl9dfzFVxF8nZy+uyxqOJu1AuQN4ob7tIvMVy7vJ6i7c2zqKJvHA9zqJpJ+9+k72/V1sMeZ1FWx5f8bRbGb3b7b1323fk9Y+veJrvSVFqfHt++6AI8vqK9RxwFVHr3YBKCrNl/d3VdvRxFdJZj7yeAj0XPMXUcM7bDr12c15PcZ4PjqJqV23YrZtqQ8+4i7wiOIrqjOu8jqI8K/zEFXlhIH7imkDeYdu3fjaeYGcMr5iQkrDJTD/yvv8weuj+wnRC+Tg5menlNWwB5gXygizIC7J4khdgGFerNc3M7hZFRe9DkUFJMZAnaJNuRv/p6uEGG2ePkNU5tZlW3tLeu6lvMQiyOqc2E8t7KLKHyweFg6zOqc3U8hpDVufUJvLOsU26Gf2nE0BW59Qm8s6xTboZ/acTQFbn1CbyzrFNuhn9pwESgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IIiVvvfNQzxrWMdn2Lj4ch+dVltn+Wmu1Snhm+8uIz7+of+28yLKbx5FvoSTvflN2MzdPaxlfW3mLsrnd2rabeRla01+l3a3rNROKqt2x9irJ+7yqgtu3lGo0dmtbeZt9Pmy72SxgsLX7B1M0i9Q0fR3brpK8DaP/nY4lv/2LqbzPPzfu4MFe3iK7r3ePmjYe6cm7NR55S5ds57zFh+/X5lN782lDs/VZ8w+1bxe0S8jJ27vrUCSqDzZbefPqA9V6IaJJF07jGqyMbT5Gx36YqslbWF+vVdvLGct7M2U0Gkn1efa8shwXliev9bjbfK4Zy1tr28wGrUhwLby4aUNuXuXN2/VbDU1qUml72TZtBBzX5MIu2HLbMvoR25G32c/ZdtrQSGTaZrGsUpntnOwE4zts1TT7ZFNnExLNeZdzk6L9CLeu89rfHi4S3AXfWrfZDvP5Qm4PA7wCeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5AVZkBdkQV6QBXlBFuQFWZAXZEFekAV5QRbkBVmQF2RBXpAFeUEW5DXikwW5zLcnmB/IawTyhgd5jUDe8CCvEaWru/Wf1s0y1dXSiH+r5M2btRmr1ZV360QLuOqCvEbU8labIJb/VYvhFln7P9WquNVqvLnxOqozAHmNqOW9r9cgb5Yh37Z/US9UW3z4/nfMIoaCvEbU8j7Ui/Yf1wRvpr21y1v7XWn1QV4jTuTNj/K+7NZiu4HfTEBeI/pH3or95o/WWyrPAOQ14kTedv+m9i9q8tsfjXdQmQPIa8SJvO1Gv221oblye7De8nIOIK8Rp/K+rvOW0m7rzau4ZBsI8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsvwfbiLd5H7k/gcAAAAASUVORK5CYII=" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuI0NyZWF0ZXMgdGltZSBzZXJpZXNcbnRzMV94IDwtIGMoMSwyLDMsNCw1LDYsNyw4LDksMTApXG50czFfeSA8LSBjKDEsMSwxLDQsNCw0LDQsNCwxLDEpXG50czEgPC0gem9vOjp6b28odHMxX3ksIHRzMV94KTtcbiNDcmVhdGVzIHRpbWUgc2VyaWVzXG50czJfeCA8LSBjKDEsMiwzLDQsNSw2LDcsOCw5LDEwKVxudHMyX3kgPC0gYygxLDEsNCw0LDQsNCw0LDEsMSwxKVxudHMyIDwtIHpvbzo6em9vKHRzMV94LCB0czFfeSk7XG5gYGAifQ== --> | + | |
- | <pre class="r"><code>#Creates time series | + | |
- | ts1_x <- c(1,2,3,4,5,6,7,8,9,10) | + | |
- | ts1_y <- c(1,1,1,4,4,4,4,4,1,1) | + | |
- | ts1 <- zoo::zoo(ts1_y, ts1_x); | + | |
- | #Creates time series | + | |
- | ts2_x <- c(1,2,3,4,5,6,7,8,9,10) | + | |
- | ts2_y <- c(1,1,4,4,4,4,4,1,1,1) | + | |
- | ts2 <- zoo::zoo(ts1_x, ts1_y);</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-output-begin eyJkYXRhIjoic29tZSBtZXRob2RzIGZvciDjpLzjuLN6b2/jpLzjuLQgb2JqZWN0cyBkbyBub3Qgd29yayBpZiB0aGUgaW5kZXggZW50cmllcyBpbiDjpLzjuLFvcmRlci5ieeOkvOO4siBhcmUgbm90IHVuaXF1ZVxuIn0= --> | + | |
- | <pre><code>some methods for <U+393C><U+3E33>zoo<U+393C><U+3E34> objects do not work if the index entries in <U+393C><U+3E31>order.by<U+393C><U+3E32> are not unique</code></pre> | + | |
- | <!-- rnb-output-end --> | + | |
- | <!-- rnb-chunk-end --> | + | |
- | <!-- rnb-text-begin --> | + | |
- | <p>Plot time series</p> | + | |
- | <!-- rnb-text-end --> | + | |
- | <!-- rnb-chunk-begin --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuem9vOjpwbG90LnpvbyhjYmluZCh0czJfeSwgdHMxX3kpLCBwbG90LnR5cGUgPSBcIm11bHRpcGxlXCIsIGNvbCA9IGMoXCJyZWRcIiwgXCJibHVlXCIpLCBsd2QgPSAyKVxuYGBgIn0= --> | + | |
- | <pre class="r"><code>zoo::plot.zoo(cbind(ts2_y, ts1_y), plot.type = "multiple", col = c("red", "blue"), lwd = 2)</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAAtFBMVEUAAAAAADoAAFgAAGYAAP8AOjoAOmYAOpAAZrY6AAA6ADo6AGY6OgA6OmY6ZpA6ZrY6kLY6kNtmAABmADpmOgBmOjpmZmZmkLZmkNtmtrZmtttmtv+QOgCQOjqQZgCQZjqQkGaQttuQtv+Q27aQ29uQ2/+2ZgC2Zjq2ZpC2kDq227a229u22/+2/7a2///bkDrbkGbbtmbbtpDb/9vb////AAD/tmb/25D/27b//7b//9v///9g8pJaAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAS00lEQVR4nO2di3rruHVG6Z6cYzudXKyZNGmkXFtr2s7JMGkdeSS9/3uVIKmLJVESSXBj/+Ra3zdnbEkQiI1lCNykgGwLIEqW+gAAuoK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvGcss08/1j9uFtnjW/Nr1rOH1+JF//Xjxyd/+k2WZb/4ek9dZ2XL975cZ+D9+dN5gcmCvGfcL28env3puxOfVs9ZIHh9i7OyRZXfZ1fkLQ7o5fbbTgXkPeNI3uuvqUw6fXnx6KfXYoi8ouCVqv73u+yavNXfC1Qg745/fJNln3+/LY36n+KD/5dfdyNvnj38ZzEefimH0s33z9mXv5TWrcLougyjbPHL34viD6HM+jfPT9tTL4s3Cg8WRbL54dGzskVV2cOp9h/KFn8U8y1UIG9NKVJWDaUV1dhaypvtJwLFI/tn8/BPLWC+f3T/fh8G1bz69eOj52Xz7MsPZ1OV47LrGfOGPchbUQxrv377aVbr+Ph1+4+sGO/28n75Gv59KV/39BbmpZ9+rEfEnVNPb6HMzqzTaUM1YoaXHdd6Vvbvv3o7n2d/KHvtdG5qIG9FfQb2yx/Cj+W51rLys5J3Xir0dEgzFP/b21Q8Ujz55Yejtyue+/jxXpm+Onn0UtlzeT+UvWdGPhWQt+TYmFqPYqb7up/zvtYj327+GV5TSPeyPZy7FXz+bf0exRB+8bP/dNi8VPZChuO4bH5XGmMaIG/JTsrAkSVn8u4+90/l3f70XTUt/mt4tnjmTMDw2X82Yb1Q9pK8x2WR9wDylrQYecvXnclbKPjnb+os1yV3yz+PM/HOy16U97gs8h5A3opKo9Uv/lLmAObbj3PevbzHc94TeQs2f6xPwC6dVBXv8s3p42dlt5cvjByVRd4DyFtRnA6VJ/qFt4W8n06yDQd5q2xDeMnuhK18tkxWhM//4uXLy1cZwnhc2n5k51nZ7WV592U5YTsGeWvq7O7TxTzvQd6jZ+t58qr85ft9Kvj9+VD+mPCXUT50ZOdp2e32srz7sqTKjkHeHeUVtt9tL19hO8i7+e/n7PPvl9VFiuBRSPp++VoWL+/G2V3SOBshV1l1sndk52nZk6fPy3JzwzHI251Vu+nnIcm7fLr6wmtl35+Z8u5B3u4Uo+D8/lcXk9p6LH5/blHspOyKWcMB5O1Bnl0dQlfZnof/mO1PuTZ/+t3tt24oW8xpmDXsQd4erGdXz/xPBHz4dYu3bijLzejHIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IEtveXeb8bL0JljTV958t9jxilWPwZie8m4We2Vz1psHW3rKu57Ndz+umDiALYy8IEv/Oe+8+oE5L1jTO9sQdtrNsss7llY1ALTDTF4HNcC4QF6QJYG8eUO2wY28/5wIqePcm/Qjb/sZzMCkdsqO1JHuS3p5DWu4D/1OvQ/9diLvKfp9ei/yLbWW98pG5shrjHxLreTdZXkDrk/Y5Hu0BeptNRt56wtr7kde9Q5tg3pb7aYN61m4tuZdXvX+bId4ay3nvMuHV+/yjiB/1Abx5pqesOXZi3t5Ux+BLdrttc02vD9/di2vdl92QbrFxqmyzWJ3Z+RQNfRCuis7Id1iLlIcId2THVFuM/IeodyRXVFuM/IeUO7H7gi3Gnn3iOeNuiLcbOTdo9uJ/dBtN/Lu0O3Dvsi2PL28Xm5Gl+3C3si2PL28hjVcQ7YHI6DaduStUe3AGKi2HXkrVPsvDqKtR94S4XxRDESbj7wlmp0XD832I29As+9iIhkB5A1Idl1UJCOAvFvRnouMYgyQd6vZcbFRjAHyavZbfASjgLyS3TYAglFAXsVeGwS9OCCvaII+PnqBQF65LhsMuUhMXl65HhsQtVhEkXc9y54MDyUqah02JGqxiDTy5lnWdYeqtDejq/XXsIhFI960oYe/LQ8lJmLdNTBi0Yg5582b196NeigREeutwdGKRzR5V4W58+1m0X1v1gTy6mWHBkYrIHHkDeueV9b22BU7ibz2dfpGKiKRsg0Pr4aHEg2pnjJCKSax87ybP3TWGHk9oBQTK3nXs5CJWF07pTOXV6mf7BCKiqm8eZgXr2fznocSC6FuMkQoKpby1trmDQkJa3mFeskUnbhYylvvR9GUkDCWVysrZIhOYKY78sp0kTkykbGTN9y98LTdnbr1OZQoyPRQAlRiY5gqK/x9eN3thNnnUKKg0kEpUInNVPO8Kv2TBpHoTPVmdJHuSYRIdGLIm5f35IQf7rqxoelVlvKK9E4yNOITQd68mMmuZ+Fc7D55T984wc3oOtmgRGgEqL+8m8VL+e/jWzd52x9KfyS6JikSEeov7+5y7/LxTUVeiZ5JjEKMYo28Bcunq/LenBkjrycUYhRjzlvLuJ5d+xLQ7ZmxmbwK/ZIegSjFyTbMy/9vFs3y3jEzRl5XCETJKs97x8zYSl6BXnGB/zhZyXvHzNhIXo0skAP8ByrWFzBfwgnZtW8O354Zm8lrU48+7iMVR95iMvD+/FSMqldec3NmbCOv+x5xhPdYRfr28Hy7Ktzs8b33NofSC+8d4gnvsYom77IQV+Aihff+8IXzaEWaNjytZ49vVRp3+EPpg/PucIbzaEVbMefhdbPot86phbzOe8MdvuM1rft5/Wd/nOE7YHHmvN9WX59wf8Lmuitc4jpiUeX1fsLmuiec4jlmEeRdHm4n77K4tOHN6J47wiueYxZ15DU6lK547ge/OI7alE7YHHeDYxxHbULyOu4F1/iN23Tk9Z31cYzfwE1J3mHff7y4jdxk5HXbAwJ4jR3ywk28xm4q8nqNvwZOo4e8cBun0ZuIvE6jL4PP+CEv3IHP+E1DXp+xV8JlBCchr980uwwuQzgReQd768ngMYZTkNdj3PVwGEXkhftwGMX08g5+M7rDqEviL47p5R28Bn9B18RfHMcvr7+Yq+IukqOX12WORxN3oZyAvIO87STxFsuxy+st3to4iybywv04i6advJtFlRBrXJhkCHmdRVseX/E0kzffrUjSuO078vrHVzzN96QoNG5Y/X8AeX3Fegy4iqj1bkDb5uX44svrLrejj6uQjnrk9RToseAppoZz3nn1g92c11Ocx4OjqNplG9azKtvQuN8V8krgKKojzvM6ivKo8BPXEed5/QR5XPiJa4o877+0yTb8szs9jxga6NElcTszfbbh+s3osdsL/YnlY+/OHHWeF8ZN+pE3Vg0wOcac54WR4ynPC9AOI3l36gaY80IUzEbezeLWDoPIC+2wvEhR76vdtE/mCOT92URIHecaw8vDq90p28kbt57BuCW1U3akjnTFiO9tsMdLpw6Nl3Yibzy89OnwOGmptbzvz/OBa0iHky41wElLSZVFw0mPmuCjrWYjb31hbcQjr48OtcFHWy2vsIVra+OV10d/WuGitZZz3uXD63jldZM/ssFFc01P2PLsZcTypj4CWzy01zbb8P78eaTyeuhLWxy02DhVtllcvswWr4ZEOOhKYxy0mIsUUXDQk+akbzPyRiF9R9qTvs3IG4P0/ZiC5K1G3gi4yBvZk7zZyBuB1J2YitTtRt7+pO7DdCRueXp59W9GR95EpJfXsIZhmK67qduOvL1B3lQgb1+m7G7i1iNvT5Lni9KStPnI25Npu5u2/cjbj6m7mzQCyNsP5EVemxrig7spY4C8vUBe5DWqITq4G0gWBeTtA/IGkFdRXtytSBUH5O3OxK9PHEgVCOTtDu7uQF41eXH3QJpYRJF3PcueDA/FCch7QFjesBZO1rRD1c03Fr0ZHXePSRKNeNOGHv62PBQfIO8x4vJW+t7a8ifGobgAdz+SIh7R5F0V5s63m0XjHoHxDsUDpMlOSBGQOPKGdc8ra5t2xY55KB7A3VNU5V3PHl4ND8UBuHuOfUxi53k3f+isMfJqM15517OQiVhdO6UTkhd3L2EeFVN58zAvXs/mPQ8lPch7iVHLW2ubNyQkdOTF3ctYx8VS3no/iqaEhIy8pMkasA4MI297cLeJ0cob7l542u5O3focSmJwtxnb2Bimygp/H153O2H2OZTEIG8zo5U32qGkBXevYRodbkZvC/JeY+zy5tLZBty9jmV80o+8Wjejkya7gWWA+stb5REqetzNKzLy4u4tpOTdbha9nG1/KAnB3dvYxSjGtGGzuOfrl3l5t/pWe86LvLfRkne7at4Ne0/+8FrMMILlwvLi7j2YRcnqhG2zeCn/fXxD3rEzOnl3N0IuH9905cXd+7CKk+3IW7B8kpWXNNmdWAUq1hcwX8IJ2bVvDu+UXc+aEmoC8qY+AhWk5C0mA+/PT8WoeuU1eX1W15hZ8y4v7t6PTawifXt4XmYcenzvvc2hJAJ570dM3mUhbtNsNvKhpAF322ASrUjThqf17PGtSuMOfyhpQN42CMlb3md+34W2CIeSBNxth0W80t9VZlhDD0iTtcQiYHHmvN9WX58Y8Qkb7rZFTd7xnrDhbnuGj1kEeZeH+3m7LC4tcTM68rZHQt7DyGt0KPbgbhcGjxonbPeAvF1AXg/gbjeGjhvy3oY0WUeGDhzy3gZ3u4K8qcHd7gwbO+S9CfJ2B3nTgrt9GDR6yHsL5O0D8qYEd/sxZPyQ9wbI2w/kTQfu9mXACCLvVbg+0ZsBQ4i8V8Hd/iBvGnA3BoNFEXmvgbwxGLG8jm9Gx904DBXH9PIa1tAW5I0D8tqDu7EYKJLI2whpsmgMFErkbQR344G8tuBuTAaJJvI2gbwxEZd3s7ixV5sveXE3LkPE00zefLciSeO278g7ZpTl3e9JUWjcsPq/K3lxNzYDRNR6N6Bt83J8nuQlTRadAULKyHsR3I2Prrz7/VQk5ry4OwTRo2qXbdjtDt+43xXyjhxheR3UcC+4Owyx44q8F0DeYRiBvO22b/1ZCqK1FT4QuUvSj7zXb0aP5mPvSEF/IndJenkNa4BxgbwgC/KCLJ7kBWjH3Wr1M3N3iSLQa7e2u0kxkCeok2YOXjrc3GDj7B56dUx1ppV323df7bbQq2OqM7G829Xu1hwb6NUx1ZlaXmPo1THVibxjrJNmDl46AfTqmOpE3jHWSTMHL50AenVMdSLvGOukmYOXBkgI8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCCLlLzlzkMNa1gPybJx8eFheH/OMtuvtYZVwjPbLyO+/2v5tfNVlj28dnwLJXk3i6KZuXm3FvG1lXdVVLee2TYzL0Jr+lXa9axcM2EV6u1qr5K878/zbfNSqoOxntnKW+3zYdvMagGDpd0fzKpapKZqa9d6leSt6Px32pX88Y+m8r7/3LiBW3t5V9lLuXtUv/FIT96l8chbuGQ75119+tvMfGpvPm2otj6r/lCbdkG7hZy8jbsODUT4YLOVNw8fqNYLEfU6cepWYTC2+hjt+mGqJu/K+nwtbC9nLO9Dn9GoI+Hz7P3ZclyYnrzW4271uWYsb6ltNRu0IsG58OSmDbl5ljev12+d21VZdaXtaVu/EbBblRM7Yctt0+h7bEfeaj9n22lDJZFpnatppcps52RHGF9hC9Pso02dTUg0553ORYr6I9w6z2t/eXiV4Cr40rrOepjPJ3J5GOADyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIK8RZwtymW9PMD6Q1wjkjQ/yGoG88UFeIwpX17N/n1XLVIelEf8c5M2rtRnD6srrWaIFXHVBXiNKecMmiMV/YTHcVVb/ElbFDavx5sbrqI4A5DWilPelXIO8WoZ8WT9QLlS7+vS3b5lFtAV5jSjlnZeL9u/XBK+mvaXLS/tdafVBXiOO5M338h52a7HdwG8kIK8RzSNvYLP4N+stlUcA8hpxJG+9f1P9QEn++H/GO6iMAeQ14kjeeqPfOttQnbnNrbe8HAPIa8SxvB/zvIW0y3LzKk7ZWoK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIsyAuyIC/IgrwgC/KCLMgLsiAvyIK8IAvygizIC7IgL8iCvCAL8oIs/w9io3wwLyWwFgAAAABJRU5ErkJggg==" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuVFNkaXN0OjpFdWNsaWRlYW5EaXN0YW5jZSh0czFfeSwgdHMyX3kpXG5gYGAifQ== --> | + | |
- | <pre class="r"><code>TSdist::EuclideanDistance(ts1_y, ts2_y)</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-output-begin eyJkYXRhIjoiWzFdIDQuMjQyNjQxXG4ifQ== --> | + | |
- | <pre><code>[1] 4.242641</code></pre> | + | |
- | <!-- rnb-output-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuVFNkaXN0OjpEVFdEaXN0YW5jZSh0czFfeSwgdHMyX3kpXG5gYGAifQ== --> | + | |
- | <pre class="r"><code>TSdist::DTWDistance(ts1_y, ts2_y)</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-output-begin eyJkYXRhIjoiWzFdIDBcbiJ9 --> | + | |
- | <pre><code>[1] 0</code></pre> | + | |
- | <!-- rnb-output-end --> | + | |
- | <!-- rnb-chunk-end --> | + | |
- | <!-- rnb-text-begin --> | + | |
- | <p>Read the time series from csv file and plot all</p> | + | |
- | <!-- rnb-text-end --> | + | |
- | <!-- rnb-chunk-begin --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuI3JlYWQgdGltZSBzZXJpZXMgZnJvbSBmaWxlXG50aW1lc2VyaWVzLnpvbyA8LSByZWFkLnpvbyhcInRpbWVzZXJpZXMuY3N2XCIsIGhlYWRlciA9IFRSVUUsIHNlcCA9IFwiLFwiKVxuI3pvbzo6cGxvdC56b28oeiwgbWFpbiA9IFwiU2V0IG9mIHRpbWUgc2VyaWVzXCIpXG4jRGVmaW5lIGEgY29sb3IgZm9yIGVhY2ggZ3JvdXAgKDQgZ3JvdXBzKVxuY29sb3JzPC1jKFwiI0ZGMDAwMEZGXCIsXCIjRkYwMDAwRkZcIixcIiNGRjAwMDBGRlwiLFwiI0ZGMDAwMEZGXCIsXG4gICAgICAgICAgXCIjMDBGRjlGRkZcIixcIiMwMEZGOUZGRlwiLFwiIzAwRkY5RkZGXCIsXCIjMDBGRjlGRkZcIixcbiAgICAgICAgICBcIiMwMDlGRkZGRlwiLFwiIzAwOUZGRkZGXCIsXCIjMDA5RkZGRkZcIixcIiMwMDlGRkZGRlwiLFxuICAgICAgICAgIFwiI0RGRkYwMEZGXCIsXCIjREZGRjAwRkZcIixcIiNERkZGMDBGRlwiLFwiI0RGRkYwMEZGXCIpXG5gYGAifQ== --> | + | |
- | <pre class="r"><code>#read time series from file | + | |
- | timeseries.zoo <- read.zoo("timeseries.csv", header = TRUE, sep = ",") | + | |
- | #zoo::plot.zoo(z, main = "Set of time series") | + | |
- | #Define a color for each group (4 groups) | + | |
- | colors<-c("#FF0000FF","#FF0000FF","#FF0000FF","#FF0000FF", | + | |
- | "#00FF9FFF","#00FF9FFF","#00FF9FFF","#00FF9FFF", | + | |
- | "#009FFFFF","#009FFFFF","#009FFFFF","#009FFFFF", | + | |
- | "#DFFF00FF","#DFFF00FF","#DFFF00FF","#DFFF00FF")</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-chunk-end --> | + | |
- | <!-- rnb-text-begin --> | + | |
- | <!-- rnb-text-end --> | + | |
- | <!-- rnb-chunk-begin --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuI1Bsb3QgYWxsIHRpbWUgc2VyaWVzXG56b286OnBsb3Quem9vKHRpbWVzZXJpZXMuem9vLCBwbG90LnR5cGUgPSBcIm11bHRpcGxlXCIsIGNvbCA9IGNvbG9ycywgbHdkID0gMiwgbWFpbj0gXCJTZXQgb2YgdGltZSBzZXJpZXNcIilcbmBgYCJ9 --> | + | |
- | <pre class="r"><code>#Plot all time series | + | |
- | zoo::plot.zoo(timeseries.zoo, plot.type = "multiple", col = colors, lwd = 2, main= "Set of time series")</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAB+FBMVEUAAAAAAA0AABcAACAAACQAACgAACoAADEAADIAADoAAEkAAFgAAGYADSAADVEAFwAAIHsAISAAIXwAKAAAKJAAKjoAKpAAMSAAMVEAMpAAOioAOjoAOmYAOpAAOp0ASbYAWGYAWLYAZoEAZpAAZpwAZrYAn/8A/58NAAANACANIXwNUbwXAAAXADoXZtsgAAAgIQAge9shAGYhIAAhMpAhfNsoAAAoOgAogf8qkNsxAAAxUTIyAAAykNs6AAA6ACE6ADI6ADo6AGY6KAA6OgA6OpA6Zlg6ZmY6ZpA6ZrY6kLw6kNs6nf9JAABJADpJSQBJtv9RMQBRvP9YAABYZjpYtv9mAABmADpmAGZmFwBmOgBmOjpmOpBmZjpmZmZmgWZmkJBmkLZmkNtmnJBmtrZmtttmtv97IAB72/98IQB8ezqBKACB//+QKACQKheQMQCQOgCQOjqQOmaQZjqQkGaQnGaQvJCQ27aQ2/+cOgCc//+dOgCd//+2SQC2ZgC2Zjq2kGa2tma229u22/+2/7a2/9u2//+8UQ28kDq8///bZhfbkCjbkDLbkDrbkGbbnWbbtmbbtpDb25Db27bb29vb2//b/7bb/9vb///f/wD/AAD/nTr/tkn/tmb/vFH/23v/25D/27b//4H//5z//53//7b//9v///+t7zzCAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAgAElEQVR4nO2di58sR1XHO2okS66KICqEFaOu1wcCvhIVXRUNr0sEuXEhQY1oshENsojCVXAUgxcNLCIqLDEDm8Ds/Jt2dc+jp7se55z6nequ2fp9+JA7O1Wnas9+p6a6+tdV1bKoKFNVY3egqEiqAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAi9RLz1RVW94zv3+l4+rW6t/Xp3duMuIzCxetFGBl6arszfcfenk8GLzg//6yM77i/V79c8LvIlU4KVp0QW31uXxkfX9/s+LFFXgpWlxUr27ofOlT1TVuy6uzqqqHS9f+mRVPfKceX1wx4yi9c//rR5KL49/8pPVwVNPVAen6zpNnKu6+Ls3P1mcPPD7TfH1D1ZvF5FU4CXqvKbzIwa3w+fM9GE9wi5Objz3Uk1fd+S9auC98dzl8cHTiyea955bTznOq9P6f+ufLE5q4q/OtkXat0f8NbNSgZeqrxxX1eHF3FyWnR/cWcPbvK7/bwjvUTOVMP9e1zHvn1cPPH2xXP+kqdUt0r5dRFOBl6yrfzk242Kj0zW8zTgZgHddx7y/MIsWd9Y/2cC7+UHz9oi/ZFYq8DJUkzpfLYixR96N/vuT1dH6J7sj7+btZL9Q5irw0jSvji7Wk9P2v/Y5r/l5H951HfN+M+O4tY2ygnf9g/btEX/PrFTgJerLx+0X+vpmxT9XN5pbFu1qw3Yprf75v/bg7d7gMMsJ77pY/2QD7/oHq7eLSCrwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RtirwFmWrAm9RttqBd3FSbVQ2f0OrZBet3ZG3bFioqZJdsHrThquzsuOFnkp2serPeedlmzdFlexCVS7YirJVBLyVnl6IkWK/HML9OZJkF6+bAUUF9+TI/dbVJyjbFYL/cl0KxfWxXQpKlIJRsqujhk/x2yHlAW8st90wsE5RdL3hJbAZha8OvMFRnSwQtt1wgDBkqcCLy66uaFxG4DvhkRfMbScqLlpIaUbe0LzSKknPOKK3Ie7OVEdeBWy7keFRHUoy8orYVeaXF1/YGwi8iw/dNaeKHPZ2jxXDq8VtN7xW8F0h4EVnt5Uqv/zQor6g4J0fLZeXj6zzGzPyKpO7bUO1hZVA8OKy25UWv7Kogkp0eM3BHs1NoPMbd4fpPb/VDhHE2C6lIHfbkH4z5BQkye5QCvyKA/IrkuE15y21py1Y0nty+NU/r//zx3FjQzJyt61pN0JNQYLsuoTlNyoWtzIV3quzW83/1zOvc4sB6vL44M7l7/auM1jpTUvupknlJogpUM+uXzh+Y8Pw+kGFd3HS+kZmhxe29HJj9zQCuZt2VRsgpmCV3XlVHfwVPrsUQfhFfAI43eCNvLVmR054t7My1hfbWORu2laMTx55H66qW/Ul2ewnboOzS1csv8jRmxaHPPLe3toh7n2W1otOgL5Dpi9aQA2FeibSJjqVsM8c/ONy1sx7q/pfJGncYfOsCZOUphubcuQLtquPVu9v/0Ew/UdZhQhCw6bXU9pfa3HyWHXazGqvPhYeGvR6qyIfh5GhPTnafcnx+gdjRwmNrpFSV8nwNhds/1v/33n/ZoQlqGp2wdIcrBk3KTpe/zF9Twqs6eFLXipbf5sZjPfGVZaFJXL98OsNhWX0npQ408KXfpPioMloM0CEspvNyEtgMwpfjDFn8cHd11rpVfyG1wkNMeb0sxsROqloXEbgy4B3ncP54B5Q/TPbTA2dXs3JqVJ4egpGzy5adCbF+Argtd593/U9aYy8yujqNMGHV5Bd4CIVTDwghfiS4Z1tFygGlxQD31MwNlsJ0F03g4xHTUFUdgHX7WDx+yP6BZgjr7mBecdm2lPzPbVKgy6+Jd7IS8yu5XttUvzKuiKoRId31t7AbO7Dp/U9pX10BzrGk1PAya499FT4FfeCX5E+bajnXLNmPef88GJwSaHpe0o0Y1BpkDxt4GTXOTRMAN+oHnArs1xlbQLnSX1PydGFNspxlUGyOzK/sY3zek+HN3wDU8H3NAq6wIZ5t4f/01giY7M74vQB0S6n8/QnKbo3MKNj0zQaurDGybeHq9Wc9+WH3hwfehx+UW3S49BH3u1ijuCLbWqGGZLEneZbImc/eHDHzHnn1WNhYw4l9M1RRPxtQ6K2QrdEcrY/ppvaPJKzwxakv1bR8sWb8+r1VkXwj8g2tCdHuy+7lsgEGxIlRNcopqseiSyR+7LdUyM4upKR12eJxLvKNIFK2RrCEpnQswfXLmxoTdJVlhZdzRYRlshknj24dNFFwQv1PaVHV69ViCUymF3CN+wI0u8AyBLZryofG8ZBV6tljCWyH7SXXeIMMa1StK1jiQzGdmk8dHVaV7FE0kOPxm+aZnUskbKRV/W6f5wuqFgiWdkdg99ULXJH3stjs+SgYYmcALr4bjBHXp3sJuY3XWOyO2wy055P0yC3FbAv5HVe3ewm5Dfl54Q88s6rxtLQjg0DUU17Dk0JXSNYf6gpUM1uqyT8pp2i0KcN9QBw4UwvN/aOpoauEahPZMKa7K6epACH3kqb39Sza846r3GO+OCVWSKniK4RpF+cJyle8alHvnr81IkrvxjDqSK/6S8MJ+Eqk3Q8gUJ+CMIvxHmS4jPVL9ZDA2G7J17ogfzLwlGSdkkonqvs8vgB0rShPzbkiK5RKnhbV9lvv6XOLt1VJv6ttPiN6JBMTFfZ1RnpcPJKT1Ke5IrqLu2vsHKV/U+dXfpGe3koRHxUcE+Oeq/H3mjPOrRpK7I1hKssMvSoCozIkQM2xJijbtobhdtu29LKCFdZvpZIAptR+E7SEtnRmNju9EFWFeIqy9USSeMyAl+Qq0xjK7gpcNvtiqQixlWWpSWS3ry4pxBX2bBq9NgwFWzXEvYF4SobBu1ld2JrANs+KZXeCOUqy+nsYZlEPQK5ynKzRPJbFXVTMPIu8z97WCZBt/gj7xKc3RH4lTUoqMTbMWe+uujN/+xhkfh9Y63zamU3Lb/itvgVWfA2C+h6u0ROm9xG3A5y4NXMbjJ+o5rhVubAuzpk1HYPKMuzh0Xi9ZIBr2p2lwktkbH16QE48K4cZQq7ROZCbiNOVxnw1tk1lsi/V9yDU5tfRHBOD0Ejb1smv7OHZaL3lwzvw1X1pr8wm0vf/iHVPTgV+UUFpsehwvvyQ9vFnPvxG+3RAk5H1F+HCu+jJq/fe8ec8fzqYomktsKwRL7y0arZx5CwwynHGSSRLLXavbKJ9teqv9MWJ9U9H6iz+46922jvpz2KDO3J0e7L6Zw9LEN35zObSjxL5D6ePexD1ygmdkaWyJXEFI6B73W3RAb4jMRXxxKpNzZEEZgeXxVLZDYjL4HNKHx1LJHBAEJF05caXxVL5CB06KsZ/n1NErGViM7oWCJ1xgYIeWnxTWKJFLGrzS+jAXFfIJZItKvMKhh1KfFFWCJ1TnbW5ZcZW9gVlCVS+exh7GJBOnxBlkid7KrxKwgr6gp95J298g/uXB6LT8eNEX6dKxW+9E1HxsmuBr/CiIKe0Edes22DMYfIT8cVSge0NPiSR97RsovmNyYYty7LEjlrblPEnI7Llx5kKfDl3KQYI7utcPzGxuHVp8NbjwhnzZ3hlGcP6wKmjy9jx5wRstsRhF/ER4ATgz5tqMeF8/XYYK8An5Xpw6XdAnna0GR3jjh7WKxYftOP3mR4Fyc37jaDw5y8Cyfp4eyAiE3JJe4ZqddUwoyt7D0f/7mL5YvVe4lVNO6wsVaJLUrTjU05+rRhu5jD3wouGgJN4Zgd9ps88h5+pU3Zkf4ukX6Nj26wF5tSDEsk4+zhVQA1oWHT6yktU3t99rCPw8jQnhztvkx89nBPaFz7Ana1K5Elcq/OHtYcriGWSJ2t4NKxpocvwhKZ70Z7WVgiNbaCSzQ0dltTiIuwRGa70V4mlkj0RnspeLU1CY8KsUSqbGOoLyKXEfiCLJH9qlFjwwjobpoFx8RYIgOhwVf6GDGYFOM7OUvkSORu24ZGTGKJxK9URYvZIWH/dSyR4pF3THQ12k9liZwWv4K+iPpPv0lx+DXfPoaIjfbGJlehE+SlMk527UPDZPgVdkPQfTq87zzebtigYdqbBLqNgB0hwwvJ7hTwjekCty7HEnleOXduiDXtTYfcRrDeMG5SYLI7Mr+xrfPqs/y8ZgdZ+s4j9JF3YugagXrEusNm9ueNP3t4xOkDomFODB68yybDrrvvMtPeBMltBOkWGd6H6yu1+pIMk91x+EW1SY9Dhbe70Z7ALu24y5vm9plUgU5Tfh8qvI+++qI5l5y03RMltMdNoChaz4OitkIfed/KcJX1x4YMyW2UCt6XH3ozw1VGDJ0EVytU8aK1I3OVhRSyskWIBZFiP4ii5Uu00V4eUviQbIN7ctR7PfZGe6TROnKkRAvhKosMParQI/KuIMYc9a3ghKCNjy/CVbbXG+1FSccSGQxAVpLxUS86xFWWahtDtJTRhbnKNEx7SbjdaQsfF+MqC21jSLi2Sa8Ezeu4yuK/2JJhu9sgOirCVRYM7b+84XYZoyRN67jKgrH9SsztTrPYkAhX2TAoeWgYi99ErQpG3qXuVnAjkbttGxmQP/IubdmNcEuPwG+yBunw1oPD0dVZjaTtehi1FdyY5HY6AAtHToEvu7Fu6bT8JmyLDK9ZPJ8ZW451JRKyFdzo5HZ6AQpGXuf1ZBfhlk7Gb9JhngpvZ6cnnT1dpkFuK1xPiCnwZhf0vZaE37QzFLq34XR93915910+550SuY1Q3eHsmDO/8TnH2cOoLU61+U09uZ7AyDs5chthOkUeeR+uqnd896/4zh4Whu5Jkd/0Cxvkkff2djFHcPbwzYAEPVdXqM+UX4dK2Ge+/z+Wf109WGP8jOvsYdgWp/5l4ShJuyQU+YLt6vHO9XAwqrJkSGn3yibaX2Fx8r6q+vHf+cO6wpNloz26PDnafTmJs4cjRsOdETGVVCyRrNBjS3OwhlgiE2wFB6BwDHyLJdLLZyS+Oq4y5MgLHDvT44uwRA6Dan2voUVgMwpfDLzqrjIUc6nxRVgiw99rk7mC2hGxAxH9BFki+1Wjxwa1iWpafCGWyND32qRWAHY6BS+6Kx1LZDC2X7qXVynxxVgixd9ro/HLbFbYy+lZIhMsDKTDd2RL5HIcfgUtinrJWSprc2aWHNQskamWtFLhS06BP7tx32uJ+RU2JugkGd7m3rpZ0THH5OpYIpMuxqZpipoCb3YBG8im4zemHW5dlreh/nprz8hVsESmv42Qoj2Oq8yVXdAGskn4jW2CV5/lKmvv/yicjjvSDTD9RjmuMld2cVZ/bX4R0TkxuCPvUeduUF/COe9I5G7bVozPG3n/yZw9rGiJXGbhKqPHoT9JYW4BmQwuTqgehyxcZaGeibSJTr49bJYZvvmzf7l8+aE3EqvssauM2gp92rBdzEGfPSz49ZCaAryz19bpuucDdZpfn+LU90mjG+zgphTdEsk5e9jhYEMoKr2K/XKIli/e2cPqOUbqG3htg3uys/uSc/awNUC84j7k8OGBIJElcm+MOctlA5ta9FwskZAvp/T4Xm9LpC66kjtsJs1pT8dFzqoS40tOwZfW34Tv3x9LpDK6nNWGanMohWVs0DodF8ntTkhYOL/oqw3u7Ia/19zTw5i+RypB84x13vXw+vzBZ/vwzpvs9k+yiYRXAdxuYHBQu+jrvJ7shr7X/Jc3cb+AVEmaZtxh26T33md76b06a2bDgONbV1LjdrcBpeAd0Vcb3NldfOhzh/8uM+aMxW+iVskj7+PbBYpX9a+HV0uQsXffjboLW4Lq3IZUm1jSR95AdiMMpyPwm6xBxpz3qQ+uHrMazMrWI+/bo+BNxu1Og7pN0Oe87uxGG07T8puwLfpqw/q6wXx99Wdll8e7c15mepNju9uwYgPkFHiyizDmJOM36TAvewAzOvZGo3FraR+nTXjMehbEmJOE37QzFCS8/ANGx8TW1ZcR4Z0jzh72SJvf1JPrxCOv5++8lyLncNaePbx29lqEMeYo8pt+YUPHVdYPcN2Y3YjsKjsEnz3skX9ZOErSLgmFgbe+YDvyjQ3XDtq1iIR1jyW/99lg0Ojbw3uBLssSWTlN6GapbH7j7gBeJcnnorr9son2V1ic/LJ58HIfzx4OER8V3JOjHqEfc25u2lC7+NDnATcpwhIP4GOM/OR13vufaIeG1hyJDD2qAiNy5IAts0T21C5MLj78dsQlhV9RBKbHl5yC8+9qsmvLcb5nDxPYjMIXs9pwedxkXtHP2yqavtT0QlKQ69nDNC4j8GXA29kKLjq2SJCBMy2+9BT4shsynE7oGmq3U/SSop4K4E1y9vBQqO/8pHMHPryC7E5sDWDbJ6XSG5HhTXn2sEVI5BLiS17n1cnuWPzyWxV1UzDyLnXPHrYKjFsyfPkj7xKc3RH4lTUoqCS7YFM7e9guBdQA+HrWkzdlRClAZzctv+K2+BVld9h0zh52SGmYFIQl3wzZ1CDfpFDObjJ+o5rhVpZtOpLw4WzFb3hKZBKiblFTkCC7SfiNbYHXReSmIwpzXuXJqTO6HNddkVOQJLva/CKCc3oI2XSEH5smZXSHLSB43RE9BYmyq8gvKjA9DuSCLRyAPFvEskOQbruICzZkaCP/snCUpF3i9XBTTseMznEG7bfkORwvux5u0C1F1vfkyP3W3uympaCdcVv0GNC42z2lGVw3LQkqbf4NWudt06luzJm6BpMO0WNAY2bXD5TK3IBdafMKs86ru9FeJrJNl0WPAYWyywvNURgmFL7rOKx4/cKgdV6tjfZGF/XKzXGdR75J0d1cOpRdraGBBhIC324McrxhQcg6L/r41mmIvvrgLkOG17O5dKLs0qGMxbdfnxTPVgiyzos45m5aoi+g+ekmPwbk2Vw6gWcvkYXRWTcYz14Ac8GGOeZuGrKi6mA4OC7THwM6WG1VdjqCZ0+wjiBcenBW88ZzvUeH15y21Ay9Fru0sqsMI8L0NTBN4N/OoMM7XnbRHAqr+Lm2ViHDe37w6Q9+ujmCbbiDbND3BL1rJRCBOSKNvWihouRpAye7vNABoWcAMaW5MwoqvO3e3Vdn9WXDF8LbYvQDMP7cW0Fgd0xeXUI02RWRsLjsRgh97RVbknctR17nfXS7zvs9jvQGZmVESGCQecvrc9uIutrQye79jsdbFea86FUvREucVTTyyPvMfe0X2+woamxw4sIcIslk0rqqJSJh3znewpts5EWgS4sjm16Ea5Hh/agZEeovtq+dANLLY5FZfyLcNqIS9nz16+Y/l8cPCbYxlPvEmL+NS+iWqLXot4cfa66GZ4dff2YIb/80INIXGwq1aWLbijw8frH64QsD79OEU3L72R0ZXUIXZPGCpRgXbO0/Zkfng/QOTgNaBbiWMh+e7SvCH2olY21odx4KCdBJKe98U6Sokj/e9oUnRzuv1sguTobGHOBpQJmrP/JzUnBe3WrhVXeVicdddkX0KL8bi3OToh0VjEMndBpQ8IMxhtQnE5Y5CysFl8cP2OBFu8qiYGJVXhdG4duPgzGj908DCgZIrASzYXt8XgquziobvFDPXjRI9ACdghB8BzEEO+bYTHukAExp3aTQ6IQrMn/HnGF2kTvBwSCiLe0iW7bUF8CbZKM9wCqYrby0vreCpwQfXmt2Qa4y2OwzHMhSAj9dIcObcqO9ALlBkmlvCtp3l3VEIj9J4c8uxLOHvHAKbNHgaErcAUc8wci71LVEUsZGIdTD+t7IzgbpfeWPvMvwXmWy7zUkuv54nk+JqBPOeMwLNvvzrcH0hnHsFuROSznYDqvZwtBbQlkiG7meHga4ytDoLr3DK/IRTk8NOrye51uD6aX9qSXkxknGPaM04unh2NBL8IzBG1Y0G5aWps95Y4+5C/zF05O7065S06Knh+1FIk99J5dmqR+avA5B7I+/JMfbUFW/YNL7vMuYQ0ivg5SxyFUX8+nhy+NT+Ikfiuj2w7NWgAklQ6XI8N6+706d4wfrf37h4LOkHrpi98e6vSV3SSasewJmZHZ7Uka32wSrKULhcBG2JfJicdtll2bEFsw0sxTbEvmU5BDBb3jF67FEoqb8nSbFY0wbminZ7LXVY8MvNoclsohhiXxdY4l0HtTY/cMg9IJIkKY7nYisT4RXZIkM/x32UDsjBsISqXECpgxdo5hWbZ0QVNr8u1gikRp83SEskfi9ysQUIvEVfRx2K1wjS6S2bBM1iCUSvBNcFIEofNdxWPH6ha+HJVJfjisMjCWyHzRmaIimD4FvNwY93qDghC2RkxB9/0LuhkQ9MSyR3NAdQQbO2CD9+rR4lkJTtUROQLRlG//b07JEwqasMYFsdcPxrCUmaYkcW+TFx+B65JQskdDFAvQlnz+eoxZ35LU/IpjFLpGcGcAQSdlCOnPkdTyACbFEgte5ZPE8ldxvOT919JsU27EhvI9hP72U2yWaojBHBZJO7pLhbfBkF2KJRKO7lIzkouHV0wx55J1XzV0K+0pkKL30vzZa/hkAdyBli0qYP7tRoY3QtxdEYUUTW28l+rShHl4vlsRtMWwB2HzEIkYeZxU/V2TCwtmVWyKV0OWFpi8p9Bci3KU5Nymq6r0mvcPbwysR0ksghT1WymcA+mLeHv7mz/waPLQiuvTwMshDlei3h+vcfrH6MR+8xNh2sFhDoRDq9BLNeZGhldGlNSGbXoRr8Yw533rL9/1GNLxGSOamiW0r1pz38vhHZCPvC17xeiyRv33ZhR2lFn21oZmNXT1e/ZEF3mKJdIn692rmvFcfryjwQjrmIw3SQIqWiPDuWiIdxpz9OcoqQjsjv8gSGdpoD5Bd6ECZtKVulWtkiUz4SMHmB1laIoH4olvaraBjiQzGTqwkk2FbG5laIkH4olvqF9axREKmDbhdtSIu5piL0v0fZ2uJBOCLbmlYcKqWSMAqmKU8C2B6g+4yGVsiI/FFt2QrBLFEEgOQFSA3SLLvTRq/9M+MP17WlsgIfNEt2QugLJE4Py9jqONCTWrCWt8RONiSiiVSll3Jxb0QX2lLPsOZ7T36Oq85o3G+WrHR3UFWevARAdtAQ4EIvI+IEfkOmy+7iLOHpStgiYl3WX3t8RjwrvbRsmwFF/Tz0pCSkBuhXfoY5DM+JXR43dkFWCJj5q/p5hrshyw48K7usg23gqP5ef1/7sTk7jTKGbJ5YsDrzG5c6CX+mbOETfnj0eF9W01jc/PSttEeZWzwQDIKub1uqQRnwGtuUPg22pPOeRFrtunW11gPFpPhvX3fncXJQ/XMNm6jPQvBY5KrLSJhehvtIXgixkE3FY5HhffbzW2In/JutEcfG9S/rqciliXySLrR3gtesTttl78RnaYC5RiusjrDB3dmr63eBnKc7j25S9aTFOYO5eVxRWC3PzSk4CnYjkJTwVIyV1kw6jWW+ThuXwX/ABslPXvYowCh6JYElbYvPDnaeeVzlQ38vLYA10L97xKEqwx/9rBH/iFvjLmBpwNQV9m+bDoilGUWBHGVwS2RToVhQuG7jsOK1y8McZUN/LzBUX3/ZJ+/Y1xlWEukUzSQEPh2Y9DjDQpCXGWT9/PKxTi1hnlGY09pzh72iAfR/my0t59bnJLX8jwlpuUq84gHZAy+trrC6cr0XGUT0GAZ2oOwH24VVxkvNEV8GKX0ulryx3PUEoy8S0VX2ehyoOpgODgs80fepdZGex6JSERXcr/l/GjR4Z3duNtMD2xnD5NcZe6W0ojhPycUod1iIRPmyS5koz2P0IOotCVHPE8z9GmDya5JoM0SSXeVuZvTlHMewGRxEC1UlDxt8GQ3MnRA6OlrTGlLCW8llp93Znw5VtMeYWxgA6z0AGYMtmxx/Lzu7LZlNBYi0QsHsSVtCxHu0nR4zdnDbzb/dJ49TIhNIAUGmjaYFJHhPW1uwGucPewReskW0VJ/CdhXljxt+IfvNRvteS2RxLHBjhRjiAySPAVsW1HhfXS72oC1RHqEQJcWRza9CNeiG3PedOPu1dlbDy/m94y/0Z4Q6vSiEvZidX+d3VuXx0/2F8spoV+QivvrOIRuiVqLYYls3TcVxVW2ClDEskQavTFVXmW0i1qC9NcqT466L/yWSMcukcQ/3H5pZ8xHWCI1XGUydNlD6BI3OenE2/wbYonMw1W2NxvtRQ8NYqDYFcXMkzoAsUROfpfIJNNgWxsQS2S2Zw+vC6Pw7ceBWCInfHB2qss4R3CMJdIqYXajQSIH6BZE4DuMAbFE6rjKYhcSLOX5AE/g7GGHRNmFjIGkIP1CsS3b6kMskch9DFeiLYY5oPG9SeeX9nnxvw2yRII8e7DZZzCQrUBM6/a6KEvkrqssbtoQ5ksIda+6MDynpyBLJMKzB71wkm2MJ+2Cqxp9nffwaz5LJMxxSh8Z+zUo2PYreYOFWiG0Rb49rJ1dLLreiEGsYRv30eF95/F2SwGZqyzYTT64Meq1RgWS9SkhwxuT3bDg5LrDimYUwuIcV9l5Y20wkp89HP6udncIL9GgzRHDVSbPbkhK6NpCi67lxEVZlkhzJ+3IUToc24fICOAOuqURnGOJjMuuU4ro9sOLVtEiitHhNbtEnjYZdlkiKa4yC8FjDLmpxIK3XXLE7hKpjG63CVZThMLhImR4b993p86xGRkAx7dqf1tPRkR4u7tECrL7glf8XnMlasrfaVI8KrzfPv75pbkFdHiBgLfRvoNrRB552w32aHuV9UOPjO6mC6JKMV1nWCKb/84OL8rZw16ZtC6g0fIAAAuBSURBVG9fUf+QzdnDPHhjdFOsyOwMOiGotH3hyU73Be/sYUuA66H+mCGyRKo/gNlQk7SiKxY33m4FiCVy8q6yNLJ82yEskWg/bxSBKHzXcVjx+oUhlsgJu8qSyT5Pg1gioX7eaPoQ+HZj0OMNCkIskfu5V1kjzmI6b0Mii/R3iYQMnLFB+vVp8SyFMJZIWoDMRL7y9ZSYliUSNmWNCWSrG45nLaFjicx82sBZvPHDjbBEDoPKsou82rKNg1Gd8Mdz1NKxRAZjT1YOVB0MB4dlkCUS4ZZGoiuO56nkfsv5qaOPvHV+H6wnZc09Yq5pL+FyuVuUu5F+GvlL6WTC/NmNHxrQ6C4lI7loePU0Q18qqz/5M2McMffhuaY94p9aTc55AJPFQbRQUSph3uzGn/oOnTFIw4omtt5KrJsU82Y9QbjRHhtg3AMrMGzZIhLmzW70qe9K6PJC05cUbvZeu0vTbw8/tl4nj9loj0AKDDRtMCkiextOm3UGx0Z7UX5eRXTp4WWQhyqRR95n7ruzfLF6cBm/0Z4dKcYQGSR5Cti2IhL2nePtBRt2oz1ldGlNyKYX4VpkeD/6KjMr+4HDi6tnXGcPM2JHjqpCqNOLOjw+X/2WmfNeHj995jq/1TM03PRK3nuq/O3zO0GtRZ82vK+qjprr4cdQO8iCUJsmtq04qw1H69UGbuiR0Q12QbikFq4lc5X1izqOb72WMh+e7avw32kt+tnDgOyGBsrIHCi2dFNgidyDjfZSqD/yI1xlDulZIoEjNrql3QoQV1kex7eqTyYscxaIq8wuTUskCF90S/3CEFfZ5I9vTTAbtsdHuMoGft6ooYFIC4Jeeku0pgYFMa4yFUuk1k0KjU64IkNcZcBT3xkDXSy+vJbCRS2FpuoqA6yC2cpL66ezRNpcZSg/L282EDV3QDdlLTFJV1mA3CDJtDcF7bvLOiIhXGXDoLKhgQ+jGF9ZU+x4gpF3qbrRXthmuIy/ScHm3hE42BB/5F0OL9gcC5Hk0K1EIIrwlTHvruSMR4e3WUKvKvslBcVVFuj8tqD04CMKtsNqtjD0llCWSE92IQuR4ilA5GpWfEVPPDK8jTHELPaaY3K5W8HR/tQScuMk455RmkqYL7uAZ7PTTV/RLXnjMe+wzTZn5BLEskSmJ3enXaWmOZZIV3ajn82OAmodAF3SXf9m77W7NM8SeWrcpk5LJOEmhYOUschVF8cSWQ+9P/qbNktk3EJkNLrrIKhS4Rg3O//2lWVZIhcnr6nHhS9E+HmN+mPd3pK7FFkiI7PbEwRdWhx0U+F4dEvkK+pP/rfe8rqLxe1X4i2RtID5iW6J/FUz8f3U8VMnrknZ2JZIfyM6TQXK0acNTzZfXbM33H592WiPLurf68XK5O/y+CHy9tKRHaOwOBQiJd1ORNb3ZKf7wmuJLK6yjna+SFQskcG/XFgydIGD66YTgkqbf0MskWWjvZUGsyCIJbK+YDuCZldMIRJf0cdhtwL9JsWXVh/4+58oG+1ZZZu/s29SmCHCkt35jbsweKMIROG7jsOK1y9MH3mr1bxhbrn7vr8b7VHluPAk79vQZLcm+En7jjn1/30e45aOpg+BbzcGOd6wIGPOu777/vzBZ6/FRnuNIm9q029SuLN79TcNq/f8EmDkhQycsUH69UnxbIXoqw2nm/Te+2zIOrIX0wbaap7/bfpNCnd2rz7+JjMr+7/eM/HqlkilQLa6wXj2AuSR9/HtAsWrLvb8Gbah48FBcXCZmjry+rILuhzGLhYIozmreeO53mPMeZ9qxwbLnDeP1Ya4bXYoLA9Fn/O6swu5HMaiK4wYJtT2prsSfbVh/SiVcfVz0zv2bTQKc1Qg6eQuGZ9fT3YBl8NwciVhw6W5MwrIA5jB9DL+3Ful3mhP4xMm+vJBXw4rocsLTSvJu5aTwUtTLwARERhi3vLq2LYCzpykGwsooksPL4M8VIuzb8NqLyLnCZiU9Dpp4Y6QVDLdv18KMeGVnYDpkzK6tCZk04twLfoF2wHw7GEei8z6E+G2EXmpbLvaIMjuTa/YnWbL3z6/E9RaVHi/zXKckr7YUKhNE9tWEHj73oZ+dkdGN9iF0TfaW5z8XpNV+9nDg6rXWObDs30V/AO0ujqrnGcPD7wNgE6GBkpAE0ot3RSdPfyes8Zqat0lkhDgeqg/8jOMOa9xWSIH3gZm6KEC4xpwxEa3tFuBYYn8XHO91lgieyXRp+PqaNob7c2rx9aWyJ7albPFh1E7wRGIAeGLbqlfmLPasN0lsl8UejqughLMhu3xWSlY7xI5/Ln5af/JTF1XGYJeeku0pgYFQeu8uNNxt7peG+0ZrXaJDCliaGAMdLH48loKF7UUYsCb9OxhwCqYrby0/phnD4NOwFxe4432Uu4SGSA3SDLtTUH77rKOSHx4rdmFbGPIh1GMr6wpdjwyvMl2iaSMjUKoh/W9kZ0N0vtKTUEgu7EnYBqJQBThK2PeXckZTzDyLhXPHqaQ66hDw3ZYzRaG3hJqoz1fdmNPwDQSTwEiV7PiK3riQVxloLOHJeTGScY9ozTGVRZ1AqZRuukruiVvPIwlEnD2cHpyd9pVano/LJFplyhu9l67S4PgpQZwkDIWueoCwjuqJZIWA9XSzc6/fWWR8ArPHt5bcpcTGHkh6NLioJsKx0s88q4lmGlmqTTw3vRK0gWL/I3oNBUop/okRUBrckluokwVm0NKXr08AX+XELropsLFPDnafel7ksJ+5AfpD8GvIq018UpGnCcpKLq+2aU/SeHYtwHWE0ytCVfymtEdnj2VjshrTaxSz8/bbqZ1eGGB17FvA6wnmFpTrjRvd4Kzj7z2EzB1OiKuNbFKvScp2rRan6RwnD0M6wmm1qQrLU6cT1I4PHtKHZHWmlgly8i7dDxJYd+3AdYTTK2JV6JvLq3ckaknSjLn7W4uLWkzoieYWhOvtN1cGqfrm13GkxRyXd/0DuV6kkKu65tdlTXKIo+IT1IUheV5kiJ9Z/ZeJbtQeZ6kSN+ZvVfJLlSeJymKwCrZBcvzJEURXCW7UJULtqJsVeAtylYF3qJspQ+vOfaRfFB0V+f8q5pzSVOCSo07aV5NYMH2WmdXH97zo7Wnh6fLY3Z6Lx+54DclqLQ4uXHXXHxJTEpgXevsppk2CD7mV5/4E3YlQTNtekmP5Gx09bdmJ1J+PS1d2+wmgVfiAT6/xU/W7M+OBV9s5ol+ZhXzC5ntg2bjzxuuc3ZTwCtZ3aw/eYL0Hl7weZof8r8NpwTvNc5uAngH+5RQdC65D2V+W/YfxVSYM0eUxXSmDdc5u/rwiq9q+GODaDA0TzDMmE2Z9E7jgu1aZ1cf3pn0Xr5sMYdfaZbzUtm1zm65SVGUrQq8RdmqwFuUrQq8RdmqwFuUrQq8RdmqwFuUrQq8RdmqwFuUrQq8RdmqwFuUrQq8RdmqwFuUrQq8RdkqO3jn/adKBj8okiuv7BZ4izrKK7sF3qKO8spujvAuTp46aX3251V18Hcmveft8wRm69DFSdmCUay8spsnvHVGzZFxszqb82r1wmyjYU6EOZeeqlOUW3bzhPdWcyBUezLJbPWDZrvx+Y3Pl11EI5RXdvOE97Q5M67dHL/+QTsxa7I9k+3cVdQqr+zmDO/5Jr2r/cZPzUOn4z/Rm7Hyym7O8PbGBqOrsz8txz1EKK/s5gxvOys7X/2g0fnh188mdDmcnfLKbs7wNpfBm+vh9tritBwTFaO8sps1vLsrkXVazV5wV2eTuqjIS3llNzt4i4rWKvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2KvAWZasCb1G2+n/ZzvAUyYCwgwAAAABJRU5ErkJggg==" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-chunk-end --> | + | |
- | <!-- rnb-text-begin --> | + | |
- | <p>Self-organizing maps using Kohonen package</p> | + | |
- | <!-- rnb-text-end --> | + | |
- | <!-- rnb-chunk-begin --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuIyBTT01cbnNvbWdyaWQ9a29ob25lbjo6c29tZ3JpZCh4ZGltPTQsIHlkaW09NCwgdG9wbz1cInJlY3Rhbmd1bGFyXCIsIG5laWdoYm91cmhvb2QuZmN0ID0gXCJnYXVzc2lhblwiKVxuc29tPC1rb2hvbmVuOjpzdXBlcnNvbSh0KGFzLm1hdHJpeCh0aW1lc2VyaWVzLnpvbykpLHNvbWdyaWQscmxlbiA9IDEwMCwgIGFscGhhPTEpXG5gYGAifQ== --> | + | |
- | <pre class="r"><code># SOM | + | |
- | somgrid=kohonen::somgrid(xdim=4, ydim=4, topo="rectangular", neighbourhood.fct = "gaussian") | + | |
- | som<-kohonen::supersom(t(as.matrix(timeseries.zoo)),somgrid,rlen = 100, alpha=1)</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-chunk-end --> | + | |
- | <!-- rnb-text-begin --> | + | |
- | <!-- rnb-text-end --> | + | |
- | <!-- rnb-chunk-begin --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxucGxvdChzb20sXCJjb2Rlc1wiLGNvZGVSZW5kZXJpbmc9XCJsaW5lc1wiKVxuYGBgIn0= --> | + | |
- | <pre class="r"><code>plot(som,"codes",codeRendering="lines")</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAAmVBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZrY6AAA6OgA6OmY6ZpA6ZrY6kLY6kNtmAABmOgBmOjpmkLZmkNtmtttmtv+QOgCQOjqQZgCQZjqQkGaQttuQtv+Q2/+2ZgC2Zjq2ZpC2kDq227a229u22/+2/9u2///bkDrbkGbbtmbbtpDb2//b////AAD/tmb/25D/27b//7b//9v///97oj6TAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAWrklEQVR4nO2d66LjtpGEMc7Eztob576bvYx3E8dOskNnMnr/h1vdRRLdjQZI6aAL9f2YoSSyDkv4DgVROlI6EBKU9NY7QEgrlJeEhfKSsFBeEhbKS8JCeUlYKC8JC+UlYaG8JCyUl4SF8pKwUF4SFspLwkJ5SVgoLwkL5SVhobwkLJSXhIXyVvH5b79IKf3L98rNH9IXP3iT/pB+/nF11f94NyZnKG8N//xVuvBL+fZN8n76lXtjcobyVnAU7sbvxRU2yVuxMTlDeSv4MaX3/3k8RB4dPov391+n9LPfnBX8/N1Xx9su/n3+LqV335yv/utxlvHu6/ss43j7n47bvP/+Ie8948Ppd4L61kB5/Rx9u8j1+d+++b/D2eUTJwfvx+TjCv/89rz0/of7GnclP1zXevffN3kfGZS3Gsrr52jll7OL//jq5NyP5wnwTyl9+fF0xD3adzy8fn+68ZfnDT4e/vaYIh8FPd52vOLLq7zzDE4baqG8fs5CPrjK9uEq7A9nu7/44fjPaa0fj4vHDd7/+bDY5DxZPq19kTfPIH4or5+lvLdJ64/HScBx+XxM/nAx9jY3uEwmrrPi2+2PTX7+cZ5BeauhvH6W04bbpeOM4fe35ZN/P6XHxPbT5dTau/+6bnP187TJ2dt5BuWthvL6mT1h+/r79ZH3vHw98s7Oo336j19cn9MdDjzy7gzlrWB5qkyf83652Orzv9+t5Jx3VyhvBcsXKfKzDR+uZxve/e7w6dvjjcdr//Xjae7wOPIaZxvOh19SAeWt4f7y8DenS7PzvPczuI/zvCcTv7vPfi/M1srO855+AXjsrYLyVnF9Y871/Nf51bHfXm7436/Sz353eeT/9MevUrq8rLZ6H8/x9r/88XLb4hW2c8bpNPF77S0/RIDyvhJOa3eF8r4SyrsrlPeVUN5dobyvhPLuCuUlYaG8JCyUl4SF8pKwUF4SFspLwkJ5SVgoLwkL5SVhobwkLJSXhIXykrBQXhIWykvCQnlJWCgvCQvlJWGhvCQslJeEhfKSsFBeEhbKS8JCeUlYKC8JC+UlYaG8JCyUl4SF8pKwUF4SFspLwkJ5SVgoLwkL5SVhobwkLJSXhIXykrBQXhIWykvCQnlJWCgvCQvlJWGhvCQslJeEhfKSsFBeEhbKS8JCeUlYKC8JC+UlYaG8JCyUl4SF8pKwUF4SFspLwkJ5SVgoLwnLYPKmB4wJz0B1V4PbOtaQMTEZpao8qNVDDRkTljF6GsNZM9KQMYEZoWVhKL0jDRkTGvyOjmH0jDRkTHDQGzqHsLRapJjpwgD6gvfz1zPXDBUzPf7j6Aampp2xbqyYafY/hzcsdeXUtYPFzOXl+Aalesonrx8tZlouAQ8wcrf6auIWL46Z7vI1xkyrRY5wQFqaCdu8Nuao7kO+tphpvcwhDkdbsWyrl8acj7oz+ZpiMnk5xtFo7ZXMi8+NmRb/tcZM+QUOcijaayX1wtNjcnlbYqblpdsrFohQXmvL+PJW7UA0MGttaZXExRfETKv/22LkgyyHOQ7Ps875CDxR3hcA2Uoq5Zz4TbOt85jFmaz2GHWb1cJi68pfgRXDjHN0JOmmg+pv9vQ8KTGXzVV71+eotJji9sufUBmj7d4YAx2fdaeZs5K+XnmF51OLH6K8tLWjvJ5HD8obG8W6bPl2jdM6S96TVRvlnYSlPKZ43ovyhsZyVxjcXN5LQj5r0BJux/O1fnKMhiZvFtMm7wgjDcCT5FUe1Q+S1dvklQ69SV7TSlkxwEgDQHlFBhjp+KgP99Kly+XMy2TGTMoNrhgVVd4spk3eEYY6PPaBV1RvJ3mzQ3CNvMazSsqrgN9oJ3n1A+P+8ubzhqSva8QswR/q+DxfXnUiospbPj1LeRuAa1SY8srmZU+58j8VU+UVDsl5TPnVBUPebG/a5B1grKNTOvCKmmSvP2ySV4wp6Ut564EvtJO8+imLfFmJMfVV8ifP3nhuOMdYN0YEvlA/8tYcMZc7RHll0AsJoymZV7DOkFf/VchjauW9P/GjvCLohaTRVJ9iueXVTvpOq2v8k1UpX3/6SHnPoBeqkdewzinv8sTbBuuWOfbTR1f+Oca6MSLohXaSVz/fto+8Uj7lLQFeSB7MKb+5YF2Wk53SdcWodgn5LTGUNzady1vao/sV82vaYxaAjzUA7fJauqgn3HJ597FucQXllYEr5HkDVlFex/u4ZHlXD/fS/TtJH2JTerh3zhvGmjWANypMDZdnfOvkzZ7jOWKkfTD3U4+hvAf0Rs+Udz2/dcSIO2HtpxGj7pIVAwZ2I1Pe5SN3vbzrCW45Zr2uMH2RoLwKeI08f2grHDSnpXSeGEnegxEj74e1n0ZMtbzYI43C7G2I6jrCpx/Uy1v6CJOyvNrTvgV+eQc78KJWKn0srdM68cxAfYzB+sPQBZQY+2crMVgAVtrcKb00pvThfVqM/eChxUDBTur2L4ux/8jCiJnWlGOgYCd1e8gYKBA7bSyVsgWkGCQgS21qlcRFnBgg2MrYFjIGCMxWG2ol9QJKDA6sZW0JGYMDaK3mXsm8iBEDA2qvxmLZVpAxKMAWa2ombAMZAwJus4Zq4haQMRggV6vtJq8PGYMBcrfKcurakDEIQJeramesCxkDAHa7inrmmpAx8QGv550jllaDjAkPej/XEHpGGTImOPgNi8PoHWXImNCM0NEcyppRhowJzBgtT8MpNZWvHS0mLKP0PJwHNekXx46JyUBVT6QHjAnPaHW70qWvmHgMVLevB+q+YmIyStW+niL1FROWMXr2dXKqr5jAjNCyr5cF+ooJDX7Hvl6Q7SsmOOgN+3orTF8x4QHv19ebEF8TM/vQPY5uYGraGevGiplm/3J4w1JXTl07WMxcXo5vUPr6k8fXxSy/KgB4gJG71VcTt3h1zP0Tohtj1l/SwhEOSEszYZsXx8w/3rwtJvuGIQ5xONqKZVu9OCb7Ftn6mPzrsTjGwWjtlcyLT46Z1l8J2xIjfLcbBzkU7bWSeuHpMcKXsjXESF9MyFGOBOUd4dCLWWtLqyQuviJG+jrM+hjxC405zHEIKa/4RcTVMZOwxGEOxLZSKVt4TYz8HfC1MbK8HOcobO2U3iZGlrc2RpGXAx0EuZP97dTC9kqMO4fyPptROp2+ntqj3XQoyevWd395vQWknFEGOjiiu5d/y6P/eBuscfwu55RitE1WS4dVjMNeTd5RRjo4eaWHbEXtXPKWczbJK1mXpFvqY7AYodKkLAvM3sJtz5yFnOzHPEHeor161xFGOjzCgVe9oK2a1DvGJ28xxkjOw+cx7fIOMdTRMQ+8pcNwyTp1YrqcSTxPXt9DhxYDxgCNXiVvfmONvMbDwzLG9dChxIAxQCNV3ikTYfbXB7vKW3eWwJbXDqO8kSlMeZf+afJqfyqmP7SfLucnau8xzpNrSvhyb1rlHWGsg1M48K4OnprYZXmFTQ15655p2fKaUZQ3Mm8k7zS/SowpHHxl6yZpbyjvFfxCwuR09r8yIX6CvBXS3S/e5s7JXLkYc9sb4+eHBL6QekZBkPdxQZbXOKx55LXsFa27P3+kvCLwhQryKgdTh7zCltP6hm3y6o8DahDlDY1b3sy07fJmvw+bDpnG3lDeM/CFhHFeKiae/hLlNcxwyltlnbU3Wg7lDY3jWLe/vNpMxG2d8KxydhXllUEvVJZXWPDJuzzp9vi/xbpc3vk1wt44cxaX0cc6Pp5Z5vJBWToG18m7tNiOka1Tz+ftGiNuExi4QqtGbfKK723QzdDklWNmn1xu72bd3ti7eMAfagQcrwus5BVOcT1RXjGO8rYA3kidGgoHvvnDveeVOulsW4W88jNFCTlGn80rV4APNQRPktdwZXkQL/wOzNeVnioKKDH6b5N8BfhQY+B443b2ZsjsiNly2mKdLMXIoaVZg9de6xrskUbhKfLqT/zWx/AaeaVjd4YeY59cWF2DPdIoOOQVh92yzjn9qJY3/zzpHL+80kTifmoDe6RhcLwDXDhEZccozxHccagr3cOTx12fvVYO9kDjcO9kPw9a0iavdZVT3sP6nO8KM8Z/thh6oIFI80dLN5J14gsK9TH+bQTsmGlBOQYKxE4bS6VsASkGCchSm1olcREnBgi2MraFjAECs9WGWkm9gBKDA2tZW0LG4ABaq7lXMi9ixMCA2quxWLYVZAwKsMWamgnbQMaAgNusoZq4BWQMBsjVarvJ60PGYIDcrbKcujZkDALQ5araGetCxgCA3a6inrkmZEx8wOt554il1SBjwoPezzWEnlGGjAkOfsPiMHpHGTImNCN0NIeyZpQhYwIzRsvTcEpN5WtHiwnLKD0P50FN+sWxY2IyUNUT6QFjwjNa3a506SsmHgPV7euBuq+YmIxSta+nSH3FhGWMnn2dnOorJjAjtOzrZYG+YkKD37GvF2T7igkOesO+3grTV0x4wPv19SbEvmLig12vpp2xLmQMANDt6sqpa0PGIABcrq8/eewrBgPgbvXVxC0gYzDArdbSTNgGMgYE2GZtxbKtIGNQQC2W9/J9Qn8yL7b++L5iYADtJdS6feVZQd+kXmjfgb5icBim1iQsFbfsyzrKuwKzln7gXS3a2265c7qNAWKYVotvt3Z+51Nf1lHeNZCtpFINX7e37b7pNAYJxFJld132yneN/zsFzRg/+8ZAMUqn/eQ9eAWmvM9mlE7S17wXthfvmvtmZX0p77MB7GRLp16xTtAPvLdF1wse2+/gPWOwGKSS+fXscoLjd6CgL+V9MoNUkizTzfPK6zljTHmfB14l36xBue6RsX3yocdUsl8MGIM0EiUzD73R5c33bJChDo131rCLvLa9byivMB0fY6hj45dXN0/Rpe5p31vKOwl7NsZQh8Y/azAPvd6Ywrxhn7u3OmY6DDFvGKOQpph+6HUfv+1DL+V9JkMUUgXrUV4hsDZmknOGGOvQPE/e6rlHk7zSCx+VMdPiv1lM9c50zhCFdL+0W95MXumZVmXMtPr/EVO7M70zRKE48iqTVcorMkIhQ68KeevnHm8jr/7HeiOMdWzq5NVueyN5JzmQ8sqMUOjJ8lafLr5sNJPs9uZ29ZlWKv0gcWcobzRqrNNvza1rmHtY8k5nZw+3fxd/naEfeR32ivJelgYY6+C8gbzC6a1Ji1nervw5UWadX95JunDbm+LWwYArlDUqDLh4s/BugsKvwOpd6mqMtLa+T/cjptteQ178oY5Ppbzi7dXyroRcyyuq7dilannFH4R64MVvVHesemTUxkhP8x8xgtmOKOEAXvc4sjh7AT/UALyZvOsDpnLI9CcJMYXN1zcu3uQAP9QILCrVPT+/XkhZjEu59amuRYx6KkENEmPa5UUfaQy2yDt7alMbc1/tvq4gr/fTduavtK32puqc3YR84EWv5DvOTauFZ8irvPKrBykx158hnmSjvPGZdfJKJ00Oq38JDoJ0C3vd7s7Xzfbm/nqcOEnQcsAHGgbns5sFk6XLXta5U+ZmCr9KcqAUT3mj0ajLevsmec2YnfZmttZsx+R9XP8OQIHY6VjK9+0p2tazmMtSS1DKFrbujUR2ek65HXScEdnSKi0Wl7Ph5pid9kbg9r4edwwQbGVse16cap5o6TE77Y3ANJV/uzjMgWivlfILLdMPIWanvRGo/XY5FFjL2hIyBgfQWs29knkRIwYG1F6NxbKtIGNQgC3W1EzYBjIGBNxmDdXELSBjMECuVttNXh8yBgPkbpXl1LUhYxCALlfVzlgXMgYA7HYV9cw1IWPiA17PO0csrQYZEx70fq4h9IwyZExw8BsWh9E7ypAxoRmhozmUNaMMGROYMVqehlNqKl87WkxYRul5OA9q0i+OHROTgaqeSA8YE57B6hIkBpO3r2NdXzHxGKhuX7PMvmJiMkrVvp7f9xUTljF69nVmta+YwIzQsq/XtPqKCQ1+x77eTdBXTHDQG/b1Pq6+YsID3q+vd9D2FRMf7HrzdlPhw/eMe6LmTgoTAwB0u4W79wVNYPWuqLuPgsQgAFxuOeVbfm2KqK98X+jfYqn8FlTGaDw1BgPgbrq7wuV8C+XKaZrNPyoO4fV39DNjMMCttmzmktfzGTX5F181xXh4XgwIsM1sd932mu6qH4tbjPHxrBgUUIutH+zzNVz2ZneP+P2o9TFOnhMDA2ivsrsue/N7xylvKcbLM2JwGKPWbvL6ps7FGDeU1wKzlsddh73FA6/xXRBmjJ/9Y4AYopWmWOl8GeXtG8hWTndLh17hvvHLa8ZUsHcMEoil7NNb5RuSHCNuULZ36z28bwwUI3TSBTMPvZS3d0boRHl32L5HADv53TXnDS53za+e1GIq2TMGiwEqUd5HDBYDVLL8MuYNlLd78CoVXxVz3Ja87hbt3eP+3S8GDPxG5pdKU97I4DeivI8YMPAbmfLqk17K2z9wjaqmvPqh1+uuHb/TJydsjrnsJP5YR4fyClDeGNTNGrbLa88b+pD3uovwYx2ep8lb9b5KPaaOaZcYyhuESnm1Z2wvlbf05gvKKwNfKIC8+kdQ3azbNkq3ePixDs+qUMldt7y1bwpWYuSEwi8G5ZVBLxRA3qn4XJDyyqAXKsqr/CFbxRk36y29lPeZoBfaS97691WKMdrm9jnkbfLes9HHOj7LQmV330je+5O0Sc94WEd5ReAKLRs1ypu/m6BJXuVNCZePmJzm2pryNr23YcqWwIcaglp5pXWeKe/jxNg029h6n3ubvFky+FBD8BR5G97QLsWsVp8mQd4pW2iR9/EskPIG4uXy6jdK1k3ypdnCWjrKq4HXaF7J466wVlrFNMqbxxgrzw7Bq2mwGFNgWv7TkBAB7Eo+ebPVMl3snPzLKS6XW+TVrGuRdzGpBh9pFOrlXb+7oFLeS8Jd4bvKknWl1zru3i5mDbXjlB3GqxNCAFhp1skr73LNtI6p+CWYHYTzGDNpfrgVpKsaKEFe7IHG4d7J7+5i3UyXmhwjxo5azBWm1YH38l9pP4RTF8gHXuxOVdI9vqDqoUvpWzM9u7GwrnDKTThhViGvcKICetYA2elYagfptt43ixjjtYg7k3izGGMHKK8Z4gFZalOrJC5ujPHJa7m7iFG2P1zmCXYMEGxlbLtjTP6AniM9Usgx8uZ6Coc5Eu21knphU8zqhQeR0hFzeejNzi17Y3BgLWvLHWPU2WhDzDVqMak3oznKoWjtlcyLG2Ka5FViDsIcwYrmIAejrVi21X4x8jOp2pjsmZ9jMs0xDkdLM2Gb3WLq5dViDsKZXCOaQxyQ+mriFrvF6H/hXhOTTz+Us2NmDAbI1Wq7yevvFlP5mokak6tq/VoADzB0t8py6tp7xVTJq8ZIx9kx3cUuV9XOWLevmJojOIc3MP565ppdxUw77U18wOt5Z6yl1SBjwoPezzWEnlGGjAkOfsPiMHpHGTImNCN0NIeyZpQhYwIzRsvTcEpN5WtHiwnLKD0P50FN+sWxY2IyUNUT6QFjwjNYXYIE5SVhobwkLJSXhIXykrBQXhIWykvCQnlJWCgvCQvlJWGhvCQslJeEhfKSsFBeEhbKS8JCeUlYKC8JC+UlYaG8JCyUl4SF8pKwUF4SFspLwkJ5SVgoLwkL5SVhobwkLJSXhIXykrBQXhIWykvCQnlJWCgvCQvlJWGhvCQslJeEhfKSsFBeEhbKS8JCeUlYKC8JC+UlYaG8JCyUl4SF8pKwUF4SFspLwkJ5SVgoLwkL5SVhobwkLJSXhIXykrBQXhKW/wf90L6YyWvnVgAAAABJRU5ErkJggg==" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-chunk-end --> | + | |
- | <!-- rnb-text-begin --> | + | |
- | <p>The time series were allocated in these neurons. Each number represents the number of neuron.</p> | + | |
- | <p>Example: the position 1 of vector represents the time series 1 in a dataset, this time series was allocated in neuron 9.</p> | + | |
- | <!-- rnb-text-end --> | + | |
- | <!-- rnb-chunk-begin --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxubmV1cm9uX3RpbWVzZXJpZXM8LXNvbSR1bml0LmNsYXNzaWZcbmluZm9fdGltZVNlcmllczwtIGRhdGEuZnJhbWUodGltZV9zZXJpZXM9KHJvd25hbWVzKHQodGltZXNlcmllcy56b28pKSksIFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuZXVyb249YXMuaW50ZWdlcihzb20kdW5pdC5jbGFzc2lmKSlcbiAgICAgICAgICAgICAgICAgICAgICAgIFxuY29kZXM8LXpvbzo6em9vKHQoc29tJGNvZGVzW1sxXV0pKVxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICBcbmBgYCJ9 --> | + | |
- | <pre class="r"><code>neuron_timeseries<-som$unit.classif | + | |
- | info_timeSeries<- data.frame(time_series=(rownames(t(timeseries.zoo))), | + | |
- | neuron=as.integer(som$unit.classif)) | + | |
- | + | ||
- | codes<-zoo::zoo(t(som$codes[[1]])) | + | |
- | </code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-chunk-end --> | + | |
- | <!-- rnb-text-begin --> | + | |
- | <!-- rnb-text-end --> | + | |
- | <!-- rnb-chunk-begin --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuem9vOjpwbG90Lnpvbyhjb2RlcywgcGxvdC50eXBlID0gXCJtdWx0aXBsZVwiLCBjb2wgPSBcImJsYWNrXCIsIGx3ZCA9IDIsIG1haW49IFwiV2VpZ2h0IG9mIG5ldXJvbnNcIilcbmBgYCJ9 --> | + | |
- | <pre class="r"><code>zoo::plot.zoo(codes, plot.type = "multiple", col = "black", lwd = 2, main= "Weight of neurons")</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABF1BMVEUAAAAAACEAACgAACoAADoAAGYAISAAKJAAKpAAOjoAOmYAOpAAZrYXADoXDVEoAAAoADoxkNs6AAA6ACg6ADo6AGY6OgA6Ojo6OpA6ZmY6ZpA6ZrY6kNtJADpmAABmAChmADpmAElmAGZmOgBmOjpmOpBmZjpmZmZmgWZmkJBmkLZmkNtmtrZmtttmtv98vJCB//+QOgCQOiiQOjqQOmaQZjqQkGaQnGaQtpCQ29uQ2/+d//+2ZgC2Zjq2tma2tpC225C22/+2/7a2/9u2//+8kDq8///bkDrbkGbbtmbbtpDb25Db27bb2//b/7bb/9vb////nTr/tkn/tmb/22b/25D/27b//4H//5z//53//7b//9v///+TohxGAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAgAElEQVR4nO1di58kuU0ukhngsstrIHAJkyG5C5DwWBguB2HTBO5Y6PAILHT2gJn6//8O6tGPqvJLkiXZ7tH3S+a225bkUn3tsmWX1fUGQ6PoSjfAYKDCyGtoFkZeQ7Mw8hqahZHX0CyMvIZmYeQ1NAsjr6FZGHkNzcLIa2gWRl5DszDyGpqFkdfQLIy8hmZh5DU0CyOvoVkYeQ3NwshraBZGXkOzMPIamoWR19AsjLyGZmHkNTQLI6+hWRh5Dc3CyGtoFkZeQ7Mw8ibx/Hjztu933av3/dPD8Of07e27U43F12v87K67V2jhS4WRN41992bgZzdQ+NC9Pn3pJe+//slKMEhqAwuMvGkchu7z0HUDhUcae3Ai6Ye7197vDTIw8qYxcnLX/XD8O/S+X33Wdd9+P/e8H+66b316++7p4aNPu5s3z49dN3fHX33edR9/MX4eRxwDib/x+VDen2RHUo/yg9zv3r6bK58rPQ8ff7/wFTcCI28aA8/+cfzfq/8YSDcQ74uvzuR79f7Qjf+9eTv++9TzPj3cfvHVsXz+PJefZC/kHbh9qTxXGnr3QAdv2MDIC8Du5sd3r97vbv9+IOc4huj3N29H8o3/PpF4/O+JvFOd4c+FvHP5SfZpQf5V5fHLfffRn9tgAwQjLwD77vcGho1/x2HvhDczz954yTv1nB7ynmRX5F1Wnr78tOu+8bbo9bYCIy8Ah2nsOgxwp4DD/fQdueddfPb2vH3/7593rz2tMGxh5AXg6WEO8o7TsXHcOnLsRL5/6S7kfXoIjXnPZD3Lfrg7li8rT93zzdsPd/clL7cZGHkBeH6cusLd9Per8bH+xRxtONx13/70wrv+77rbL0aBcwBhTd6T7FJuVXli9udTRMKQhpE3E8vFCoMujLwZGB/9Xz3Y+LQUjLw5+Nnd8MS3jrcUjLyGZmHkNTQLI6+hWRh5Dc3CyGtoFkZeQ7Mw8hqahZHX0CyMvIZmYeQ1NAsjr6FZGHkNzcLIa2gWRl5DszDyGpqFkdfQLIy8hmZh5DU0CyOvoVkYeQ3NwshbCQ7TSVA3ds4TAkbeOvD8OB0M+eFjO24EjmzydgaODuDpk3eL/5h3F4hwD+XefdddzvpO6s4By8UpgaMFp573mxvyMqh2UJXzkuAi7+G1+2ATdG+iuBoqs9j8cDe2fjvmZb6cmrwGBRd59/eeBxuxTWEg3Vn+Vgja41Pt90+tFF60hYe8D6/+7U+H//yhaM+b68YSd4LR1KVr4LsKAD1r43DHTd7xyXbz9sPvCD7YmJynfRvq7XlxlKyHvauHQ6Ratp1cBRdNrI5TvBPVkpfmgfLsXTWAk7wSD7aem7krpeIMZtF+6G5+fNdtz/rNUk297tLs7cTIy66glw26KRCYJVT22dsPd29YYzn0SyZIMnp3Y71u8mr0jaImwIrHrIIjPFnWhgfa84/eccZyci4YLcvo3q0mHvIKPNhUmLuwJKQZWG+a7O4HB+7cTADHRQq+WE7e1SKlGZ9tjhooeZ8eLg9Zx78CD7bjVWdpwNmSUQyr9vx4P/5nN/zduakAJmYf2BYpcq8VJT9VZrqVjg5wzxvLDuI82Bh+bspTAyFzQKVPD1Pnuh9zr6WTsOR5N/9KERpOVTno6yqADxueH4PpQdgfbAWmtTKdL7LnfT2PHThVu3IsUxF0RYneDDHmPYRzNjM/2AQHoco2oRr3o+9GLz6BMwgRG8u1Mger1W0+8g7Uq4w2lOBuL9LbgxWOG85vMNwleldq7uSvs51gMQ92aiRvsUg4/4+mthU2tgtMK/LTjb464vsyUn/54TilwBlES8xi5VZx2NmLm7BJqF7LsK6xU8qJY4eAsojA8sMYKoPnc8yZDxfkLr91MHkx3kWpXolwXlxcV9gUhRmhX0JEYv1xXAPCvQRY9sFGBG/ni1phk/Yu9w8zxp1EIXqhw/99RMT5Zuwg7hE24VUvMhXsW2JsAkYT2LvE5xr7kCisDzCmwL1TECiIyPi+PHgW2FAKEiLFuduz0hepR9K7/K4NkyptCkPf8AgkIhP4HrAGlNQdEKiCu5ztwKuR8q5IFDs4KYMJw5oU6eAjQr4vD8uXhFNWgfXO9Svhbs93q/E9r+td591simoZ14bCYWBpWLg4WBSRcr6RHZXVQ92e7YfEMebleDdbyre+NVvcaDZVO1ahnmhDVdzlYi9HtIHh3Ww53/pW0ZDyqchEpBBYJB6JrIy7PU+LOOK8+e9mS/rW3b+AVxANCsdEgUXSa0D1cZel8+VZYct9N1vUt0snET0Wpm9iJYRUBEMlfQMd+ewVvCrMyFKuFf3y3tHdFaBvKlxMKtrCfwgnQxi6NDKWuWd5vqaQt/qLO/dkIM9TnmtKrnWQijZwDuHEubeiEJmD7gyaOHNzCKoVnDubyDXkuDkdiSAVbRA6hBMmXTN3J2QQuDx5VZw7GmGZ3y6dnFbI2vOSDuGsnbpH0BhcnLxK3s0cXXkVAdaYSUVbZBzC2Qh3J+AJzHJtGTMKNe/yGTo5GLL4RioCNmPbIj9yzSgjdinOJXFc3P/dzUpvfrJuB6xJDA3QBrjpnOQNz4evzLtJAl8qMhh7+t53xk43PKO4Nu/20HmQaM9r4CDP8+MPxk05zozCUMkiBVYz86XKNZRDicqx/iqamdEieQV+qFIoHm2gKC76c8egQfJSvVriZtSwwoZEHb96EHgWKY6n8N0qJVuii7I2BWKyNdUr91bJYth0GNHSp+/6tqJKXGqWB428SaVe94qxl6CuYyfvNowu9TvNVarOXrC90+HSvjfYRE4/9iLlXuZ7SlG3FJHZmINVAET2D0L9wQc1tz+9AHRw3wQSOf3Yi7R7WB1I6eDWO3ci9cAa8zbmQMHRl2uzF2jteMTpiL3zBib/sf4BQJzD58DpdmLVdfzkVcmOyzMOUWYv0NjiTQr31XeB04+9gLmGy4HH24lTt6kNJ+++O6b78Bx/LB9GZxtC67KXo+dlP/3YC7CDeRx41oLRtjUNJu/+fHqs+NndPlWsjysmTRBjwHr708HdnjFvpmqgNrhbOBy40JHxSgiUvHPf8Pw49AtB8oqF0XkjF5rsBVs6hcohJ7oIxHJQ6vJfS90Ek6l2oeQ9jcp2r96r97z8d4pTW9xUG6qRDmZ434dg3K2G63n7MemHMnkFAsZ67G2DvHlz/mxr5JkifMx7pOzwfHPJKxhGl1js0Bs4NEFeSrQ1Z5nTJSExRoeJNswDB09CNrkwutB6uhp7GyAvycVkBwbXnykGuRYpZMLoQtzVYy84znvZPaA8oyC6mOjAkLWkOm85dsLmhRNG55kPi1G3V2Mv1Egsv2im6oSWjC6UUyihLkD5iMDyQ/ygPZEwuiR3tdgLthHJL5qrOqqE7gWCaEwkqi7UX0ck1h+VEqqchaXZVRd5Y/lFHaVscd4sLWjhuACB2Kgxr0JClbOsfM+owd66J2yZPkbvS4hXxw8psBM24YQqJ0mNh7qKjYpV5zsZoyBtLczRIKsjygLfyyVUOcmpcFeFveBoQ2TMwJKTwgWHk3k3RAQjEUGBiC7fl7CEKlmjMiXq9hrsRYTKwiejM+SkcKE7aCYvokVFqxvz6lG3V2AvItogmZPCbRfXlYP0gK0hV98qizZojRgW9mT1I+oGswFl56TYNorTy7DhAHl0EY+gAYtUUjtrU7cXZy9SeWA6nJuTYi3H7GXayi6wciK6BiySTqgy1Venbi8dMMMrl50OczO3T68uIO2tqyfW3UhFwHbgapegbi/MXnzPG5wOM2z1F6BuHwkSdKSGLgVSkWFSEaAByFYXGDFcLAsqR9QVng7LMPeo2WuLaO8ilFzWIBVtkZsNqFi3e7QtpxtaUSG/qNx1rjTn8PakwaPWW5FUtEHuoSMlqdsv+wkPSDouX8OkhafDosw9GrjYybZ10ZaqSCraID8bUEnuJthLwUUzrAGi02Fx6vZrD7Jo6yGTEdael5oNqCx1o8DzdS3O0ISsMzg1mMtvZ1QFCSCTirZIHjpCuO9XAZZrS57BSfpdVQ1Yu3VCZdfmWzBYet5Pfvrqn2Ibc67Ru6CWc0YbvvbNTSTSwENe/8YcQxXRhisDfsIWhcTGnLIA0Q+ih1S0gc4Rp7nQak7HTV7ujTmlgOw8AQpJRRuoHHGaieyfOckOj0nWjTnqiDE276YoRRsKg+UhBba0/ChoSU41K+K9bNZN4Rk2KGYDIuDkOQX2bk0wGtRKZcWMVENzLoSn550jkXW6d9ES8TY5+l98z5v2eMY9YYrzHnw7+WpwrzPEkqSTqx2xt+GEAkd3C4L+3iVEOakoW7cOPP2/IHt9vwyosehxT3qprNhBf+8SpB1XdPBv3BsmbK+rC5X5hy5i7PUqBtuKHPekl8qKHUBnU+8JnLy7rrsfHejZATWGyg637/TIC1k6DA0RhNgbmEyD5cPHPamlsmIH2NXEewIm724Y1e6mXtebKWz88yWvez3xwVC40C8bLstrWMCe93sG3VqprNiBcDTtnkDJO/W3c6DckynssynY8H3WRYo0d0McBjAb3gpwWzPEE9iewZn86dYBVBNJ1wMn7/3w9/nnvT9T2N3YOWxZnbf0B9iL7KUw4M5iHmeQupFeHmaHggbIi6uNvyDwsOGcRmWmcabupCjukQMeTqDUQzVGyl8weQlvDWMvCT5h28/PLdA5srkPNsqFwKkLM3DWlVAbVfVyyUu7g0gJUlG27oSgwoAuYWPN1wh/E8NrWGOub5GCNoZFCqEmbNi2oCWOciqTkWiH6VIywN/UbwDYmGI5KYRAvIVIMTh5Fc4qO4opTaSDdkK9rIe/yeEwtDGYnBTbdiAH/AogNwMnCH/kaeWk0PO/11J6gHspTnOFY5EiqboLA6eSDRl7bVDxNUyRwvm8qh53bQFu+YUWgLbqT9hq4G/WHt2o8OaRE6no+1I4J4Wyt91BAHQnCZAYhaMNZQicZzAs7VwNYaZMOIQTejkl/Lxe3cAIQkLFMG2C02F9/uYai4zm4Fv9Qz0vIScF9FbrP+TODZO5w4hQmfhZZUq+zTfkcDT0A9Qa80K8V2qA1klRFxVtgE+HKVxU64A5bGwfh6GGs0QbQMmWkr4rw13ZfgmjNZiTgimVlQ5/WfR3q7XNcOwnomH5gSPZUrwhpbgrahqp1zsd5kxlJU5gJtXnDpe6BARfYQOf6RJuTkHuSgJ/Te50mPnEnC4Nouae8ekJaggh2uACcaZLoE3XSV1Kz+tOhwVOzAEQmLY7XPc2spAXdaaLzzHXyl2WMa/6iTlkDmvfRibyohQ4Prla7spEG5CqicBTWP02cpIXfujIuvR6ucsZ5y10pAuCw+q3kWfMiw/mXFyhdx8KoPwKGw8gA+ICK0ykog1IwZyjD66au6X3NrDbjEzrCtxHHvL+wXQdX0e+Paz6+CuDKyPvxbgP+q0gFW3wv3e/MgZzfvHr/4xUcO3cvVrynlGSu1zDhn8Ygzm/XfPh0mXA4YLKD5AtCBbyhk5GN7AwLJDKysATKptPRv/6NhsQ5g5dEWDbpcFIprKqG1T6QVSTirJ1XzM6dvJuYjlNdQ3x/jHvKoy8zFjTiom8DaeyktwGyzZsqO983iLYdIk8E7aGU1klX68uTl7183mrxbYnAbtgP0hOs9695w3BdlNZpXvWrA2YpKINZM7nbRDOvYK6YDwI7ulh3N7gI6/fFqZhhQAYFeQMHHh6XonzeduDZxYFdMHz4/3099X7MHnrzLUUh/Bbt1xj3vX5vO24lxG+K0ZuzNm9en9NPa/0TkoseWeaZuu+QnjvAarnHbB7fUXkhbKSzF4oea/vEE5m+O8AeMx79OngZte7jaaygnNSmryDB+/H/1jP60VokISINsx+9Zx12moqKwQlieyFDxueHsYFypdGXvCDz1+RaZEinsqqzvkFpknE9mPGvGMmq5dFXuC8M1yHwwVOKqvtdJhppwAvcK2htR01Ydt39y+JvND9I5FyFhdsU1n5VNdGYGxDSA3HRRs+3H0EIm9VfiTifAWJi4leqKALfLGNegiMbgOl1chQ2fMj4gDvCnxIhvfBHKoYUQOzxhjLqaMLpjBRjrzVv9/KCs/NDzAiQRKoC3gTqhQnMG0QgJbBxHmVEqoUR+i2ewiRHA5DbWISqsBUF6QvcfqFH2qAi+o70wUJeNQrPsC9FKfJAXcBIqEKnJZl+Es1iZZDjdcUEqqIAXbHYbGFYx2IPkwTceD4LcqAvlcBG6JAFtESqhSfAHcrRGthtKVrYhqJA1i1Nn9z9jjiZAkzZVpClZL0vZiPERjVSGBlcLRBdDqsSt8sSzhhQs9LSKhSlL6+WZZ36iXQQESoTHY6rMbfTCty5M3KmlCIvbFudtMjS1iHVpROqKJG31wTqC0R4KJ4QhVoTgp4y1jGi+khLnz8SrKPqCs/HVbgb7Z6TANZ4rzQl7MRvuu2gIl5dMAMEdSDmoCrLpxfVJ6+DMoxEw9gUTyhCvjlbJjvHOZSqKw2yos2Ai1BmA7jIOkXFsVwJYRogw/wl7OTrvPTE8vgGpjbU3pewHSYpHopKeYcHq3wxzOpKEt3zHXAjjXF4EqoW9uYdyEsQmAuhSXIC345O1CI9GiwE66GukzRhsN0QZdSFuahhmBglWyaYNVIRcAmRIqcCyV60mVwRdTlifOeDpDlf4eNl8CMbgeqKkTeDX1zXYgYDOuCY4Xt+ECTOkyLzW2cfu9iuNSKKIDb2j7YIArO7eBiXH3U5WFY6OhuBtVnXQwE5nW8HnmJD7Yq+0pesFzYfHQ3rmsgINrbQcDdoHSLSUUbkB9s183cXoBhwqqb4i5vz2s5KRzQ7soa86Dsa9ukCQaeMa/Sg+2imXI9JcA55lU7MacyH4ZRLNqQpTjnN6kKjnYIRxsmXfV78gz2aIOQgoDamEcrc3y90QZAByDPZIK+TjxUJskdkOJaOFxttAFMSkn2UvQtRUqGykjAXLBstwFqAar2wbtELJEBk+gNXidSbsr69ZxIPbBGhVHZWSfpx1qMv2CDu667H3/8vrW2OQMm57H+ZGlOF466sPo6fvIqrAEdNeY4rwR/odZ2r95Ph3D2/d6zJ/Lg2yeZR159SVdTh9a3uX1NhcqyuafOX8zehnk/tPhm9D6PgXzbHju0vu2tg5L36eG+nydm8EO12OemTPv0FfkLJu/98Pf557235+U+1j/r8pl8d1aDm8NsPkeqLj9M7p0cG94BJZtsiU+hIn2hVs5pVGYar8B9rH/mtXN1IXh97us1kbrLD6NTj7T1jcrSCnLByzct/oJN7Ocxl+/EsuSx/sgmMWxjz1OwUQHV59bDkPd4KrrGqMzVxU01neED4yIFU+5hbuoxKIDp89Ti6XnFky2J0EyBvzyLFIBj/aHgfuiziIP0eerAyTve59e9yqjMaYkYxaT5K7VOQ20093SLSRigz/vSY6T65vPA3+HXf/C84co8KnMaIto9itJXst0kIbY5b4aoj4YpfX6pSH1we5LJlrKgMDKV69lh1bTyi3IuMZAFvZIJfX4p+LAhdggn56hs2wqdqICQFahS3pwUQRH193vBcnF9IcZHJJYfSuWk0IrICo0dwCr5c1J4JJiDjaxSUX0hxkck1h+L5KRQXMsVYS9cIyInBVb1SYD9/V5WmUhZqAQ15lXPSaHI3V6EvhVN2CQi5awSwdJwQUSZ70vxQziX8rrclRg71ENeAV9iVabqB+dywaFGRFfge60VNnXuCtgERxukUzRKrfKw1g5E0cLDiYgq35fUnBRolKAuv11EqAw+YaN4VyiYgtAKaTEyBFznmFd+3TZhm00ZtKLwdFhuhRJeE1LVt/gWqQ0u0os2lKTu2T6TKkTdrHQ1iWYILq+zVnSqxSNowCK9OG9h5p7bwKMIV907HQamq4m1Qs6hVFICKybiE8AirazvNVB3BFMz8Drc6TA0XU24EcJbQ1hbsK4al6N1ysB2oAVqoW7P9SvC97zudBieribQBuFdn5AdYcTHRCq2RioCNAB/72ui7giO1nCMeTHpanxNkPZp0gCyBZfqycAwqWgLyuHSW2t1MXcCISC1+QWWjzYoeDVhgtKLwQRZyJt/Yk6N1O0vZEy3ruu8dRnjvMTXW3X25AW+Jj2BT/rSgizkzTwxp7bxwhKdi1gFRxxmRW46rLUnb/sZ/rMP6gOMpUlFG2SdmFMzdRfwsBhwhySn+aBKahtKz//IYu1CH2RBjlS0RfLEHMqNrxSoxuuQt7xvua3ClOhM2K6HukiokLcG53LbA6niHDb84td+cjF97bSEgcMFEkecXgdEJ2wGFob996TJea4Zyk/Y8CBeTwlwNOf58Qfjspv40d3VOnENWCCSc8LGiPxfpSJYhg1a6Vv1nUeKonGTV0iBV2nctZWxmKfnVUqosizLUw63T5Bb/DtSDazwNKX42l9mtiwJuNY6WMxiUzihir80SzvUNN7Oes9ZpB5c5Zw1IUMBDCQKFqUv0uLxHE4J1Rth2ruQuXDuBdZOJ0Be/qwJHuTSrwR7EXsbTgi93qqbUIXbV6EuhLrhbP4YqQlXKn7EKc/WHX36Qs0djy/U6nlB70JKzAhJTQlW5gmVCR9x2nPxTn3sADb29DCFw3TIC3wXksdTiecExoyz/ydSdf1xN3Ss49TBl+ZO9ohTzi5Tmb4IU2MmKz95CyVU4XFUUgvcjFMTTN6Ju+Nufs/2Pd6D592GsBJOlb0YS/vu3kveYglVOBwF0AE149aDknc6D303bZj2HOu/PeKUc3LP31cq0hdl58PdRz7ylkuowjLLYDOD2i29Ie+boYO9H/+pmlBF5DGvN3bAWXl+9B0VWTChSq6byLSEVYIPG4Zedx/qeSEKSJBimRZ9eRYpyiVUyXMTYoBC0gUm79PD7bup63W8CFRAgCTDdNgrGeoniuJtUQzhjBHjzohQ2bzjHHMgHLimX1yYXxr0lVxlJQnhpchewgXBkjEJ35eR+mDTIgrkuaUwdmBcYSOqXsvQhBQ6+URtfylmwoZF5gKmxlNd2gxUedUJVUhiWKFo/UAhnLzSJ8g6CujS9RgC6646oQpBEC8SEQgpgw8bFBOq6K4jSBqDa646oQplnkcwglWGGvMqHS6tu4K72DgioJtfJVW1TtArw1aYo0FWR5T5vpRPqKJM3ZNJNgqvVNRD3swLw06/GG1ENvVEdAW+l11hK8DdpelcDm9kwdGG6hOq4AJfjDYihgk9L3SBjRjMKUXdRQuoHHYlEKGy2hOqwC3S76FHMqasrjFvwW53CzyBfXUR0YbqE6pAHZFzD13ZaAQNXKQQbaiIuydACRyohLmc6hOqwLTk2XJ+/TFlFcV5K6TujCSBw8XIC6o8oQrwV5xpA66NZ4WN4WT0erk7IcLfGLHxV1R1QpV0p8Q7MUxoo40oNsg/Gb2GmVoSPgIn7ia+5609oUqcvwy2lioS2ljIm38gUd3d7gWbEUS6I0LobiahSvQhxKL+/K9ETVLRBtkHErXC3QndCom6UKWNJVTxXzyTrZOaHO8iGpJ3IFFT1J0Boy5rnLe2hCpuK9hu46wHMDkkFQHbsGhNYsKTa6pWFF9hk90zt7qnjLdx0pTVNaCbEu4bOgerIqyhdiB4aSDV4s693E5OU6MugDqdnvfylQ+5diqGDnm9XlVzroQpmD5l8p6LXgR1lchblrvnFnBrBFQiFW0xTNheW04KH+A+DOJ/fmNWtU2oYmALlR1u33EewlkLcteLGJrw9L3v/E3e8nC1kPMuXPOpbzifjI5VUCuyf4Es5P3kp7/8W3I5KQoA1HdC9JCKNnj+q+kEvu8rZQPSAoN/WcibuTxcDZBPfoBCUtEWH+5+9b27p6Q99y5xdG158mYuDxdHjLF57C0UbageFx9LuTcXrXg33stmsVdnkaI1LFsv5d4lpgNkp42l4fcDG/VuqqE5F2I9r4sNNYTcu8RE3un0TfhCcRveTTsvw71G3i3cXk3GvUuM5D3SVvMAWQVA1snI/hVdpKA1qSx8rlQh7/FIf8/BAgq5lqQAfeuNdjFQ8s7ZagJwFimSumtFcFpB1QerFu15FXItSQHKSiJ74eT91t19qObE2qdPvqybvLAHmLeWxINtifmI09f9aeq2LpTOtSQGuNtoDoaT977fhzZMD31Dv1qkkJ4PYzWDouKxUoEH2wYDf2/enpIJruDkpGgl2oBpI+l6MOSdgjle/s7jNaVFCtTqjCdC7pdNKOR/sMHBmZNCETiXURyMI2+POmlPxL0AHnpqhuRX3ybsklpLESqumgdIjxHYiyYvj24iPIzzURjJbFg3zj0qy0Xt5EX7C8/ehsgbIhl4ZBBUCa0Lbujln0ARAionL6UjxYrILFKAGcGnEUlbWhOA1dDk1UqoogfSTcAKwXte3YQqG01ylES1AlRpNcIGqkYlVNn+QoV/tBQQ24IUg5MXc9BeUjdKTTX3BbbWufoIVZ2TUIUyYJIFuQk4QfiwQTGhylJHHXdjRrIhTlPhDedIqFINizPW0+ON3jxyIhWdb8iHS1PdWBNzRyQa4za2zIStNIGzNpGGW+xcEHbCBgvzekdlSSmvEqyULKIN8hQWjjaUIXCmPa+490II0QZSQhWsC6saLiwQX152v4NplZwOqxM425TD0dAVEHpeYkIVjAcrZe6IULP8DUaEyiSnw5r8ZTCzUBH96emMeZcNSYvVy9w+eG8CTUZEG4LTYScnBY2JSgRmsXBUkmqycrQh6b5ahwsXhIZk/soIxZGEKpk5Kc4iCgTmUd6BmsoT50W8SRFrUf3MHeG2MNxo5LWEEqrk5aRYiwFA03xUnyHsNDNVCVgUnVLgjnsKFTXB3BFOPCzyc0Qr9yRUYT90BEJglSWyTBCiDS6wb1J4fNMMc0dsVtFiEQic4sB0WPnQETqHlW8hC3mdNynSuld+aWO4cMGyrfGGc4x5GVRTQPK5LLgAAAd0SURBVKCw9j3kcTzhTYqLTxpj7ohLexNN54g2HFHo0BEEh9XvIlOvQVKQN7wqilObk/cTpq7gtiegMQiH1e8jJ3nxfUOj1O1PNyrZ+ApW2DgRpbD+jSzZ8zaNrksNGaZaHKY4kuOywsvhAr2QkZcI2EODwwUcyXEl0G2h3wJS0QbOAiZWQYsA3S0OF1R+7nzBiQsXeb0LmAaenvc3xxGDkxzXwELeyvsGMhIOgmjgaEZectzSyGBgUjWpaIOnh1/6i6vImrAEg3NFXdCId+P9Y56PmSZs/9W1nDXBxcWneexldEGzJ6MnK5Cvx6INLtbOlHqw5aIN78KcR+Rv2UWKCuE2XYW8u9t309gWvmO6Ce8iSEAgsPW8S/j9l8FeqOTE3SmZXWCtbd77RFFdEsgODDuCMPKeEXRcxjMEvDx8PxB42t3gnox+OguqwSx3BMclgxMZr7770X5OiuhPns5exN6G58f78Z+ed7M/3N2vet5mBmXkKAI7eXdd93rcuOc52aX1nBRJNpCpAh42DL/9faDnHb+8+dsGhw3iPzAweUen7qb+9eF+W7ONnBQhQPox6n2ASj093L6bul7nAPQZz4/O99V7V/7hACXvwrPefDV9s4mzYU9g4p2AC81bxxC7eqv3rvzABkreaRY8j8e8ozLFnBSsAA8eaex9wXFehUE5S8+L110LMHEZ5jWgXCzmLYC5jTo0jOPHvMdZcVxradfBgGsj5YJEXOBMuitkr4pplmhDUkGdRMbe3FrIC1ddjr4qdnUWKWrshwlNwl8DOM576StZc1KU8ruOVdSELUN3dfSltAcmAgyjr4DKSYFSXcTtSkbh5M19Obsq+hLbApDaDEehmnNyUqQbhFSdCy2L8GFD/imR9dCX3JCU3PYSMXHe/JwUgYraXlezhxrzZh9IVAd9cxoRF3U0q0QbIAIS7Qib0zKELEKkHvYqqIC+eS2ICHsUV7JIoep0PVOEaAMpJ8Xi2+LB8zzrIXnvdYGjDcIn5ij6XPHuEnpewAJb/MFWkr4Mpr0aAteECJUJn1WmNonS7OMxRWyHcJaiL49Zz+ggpBgRbZBO0ajkcs37qhltWJWlfcnvBa77t52VhfVizEVyUnAkVNFhr2qfxBPnpRwF57kBnYuoChwY1S0VRZuJNBjKScGYUAUvhbQga2BtDViUzEnR493r4aofCT0Q8P4UFqriavEWPTkp+BKqSLNXeTDI4vijX/HuTbKUhcAyvfhZdbQeTq13OsyaUEWWXtqrIaSiDU49r9CbFFkMFmDuUS1k4M4x5uVNqCLZ+WpPwnkeefJHwZEILETcpe5ULag6+WjDWU6MvcqDBi7yCilwFGIYLMnck/50JZguSJyX7zwiuZ+zhNqYRVKRHyrHPcHmcsLEBaOWFbaNqIhr9N3dVM970ezAUyhmHQHBRuROYdkactbJrTFtklSUrZsLLosrYm5fLXkRYUoEmC4McRGkomzd3KiRuCOqJa8Ae3kuC3UNpCKgbgPHHQ0dtGfgWaTwuxcCYqj9CoXCePouKoa2wMv1LkKzuTdfKIID9JiXLV6udzGazb3ZQhJ4ud5VuQUv170aeLneNfKqCkng5XrXyKsqJIGX610jr6qQBF6ud6u5BQYDFkZeQ7Mw8hqahZHX0CyMvIZmYeQ1NAsjr6FZGHkNzUKevOMrs9jz5SaMh3BgRSimCELTi3wHRNoZMbxo78qTd//6dOQDDmMmaazIx+/xpghCYx7WcYfo9gyLAnjR3tUZNhB+5s+f/RFaiGBmdq+TsDqK5x+NCZjxclJ4sd5VIe/2iCgI9vd4Z+1+eEd4sI1H1SBFxgsaz8XblR83vGTvapCX8grG8MsjuHdM4Inl0+EV/mlYE3lfsHcVyOscwAXBfnxd7h4pNF4t+qaMAgdkj/JUz7DhJXtXnrzkWQ2+byB1huPLTTukqdG9dUzYXrR35cm7o/zKR9CCOXihXcuhshftXVukMDQLI6+hWRh5Dc3CyGtoFkZeQ7Mw8hqahZHX0CyMvIZmYeQ1NAsjr6FZGHkNzcLIa2gWRl5DszDyGppFc+Q9bN8qcb4w0NGWd428hgXa8q6R17BAW95tkbxPD3/2MO+z33fdzV+P7t3P7xPsxzf+H+7LtrBltOXdNsk7eHQ//H83ePPQHT+Mx2g8P973e2rCLUNr3m2TvPfjeQBvhv8NX+yOX/SH0dm3X5JTHRpa826b5H0zHgr05jBlkh2+mAdmk7d3tJO7DDPa8m7L5N2f3XtMsfxmfOm0/Bu9DaMt77ZM3k3fMOL58Y8Jib0NJ7Tl3ZbJO4/K9scvJuxf/ecwqzBQ0ZZ3WybvNA0+z4fnucWb/lBV59AY2vJu0+RdRyIHt45nwT0/VjWpaAttebc58hoMJxh5Dc3CyGtoFkZeQ7Mw8hqahZHX0CyMvIZmYeQ1NAsjr6FZGHkNzcLIa2gWRl5DszDyGpqFkdfQLIy8hmZh5DU0CyOvoVkYeQ3NwshraBZGXkOzMPIamoWR19AsjLyGZmHkNTQLI6+hWRh5Dc3CyGtoFv8PGgqoqVY6AyIAAAAASUVORK5CYII=" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuI3Bsb3QgYWxsIHRpbWUgc2VyaWVzIChuZXVyb25zKVxuZ2dwbG90Mjo6YXV0b3Bsb3QoKGNvZGVzKSwgZmFjZXQgPSBOVUxMKSArIHlsYWIoXCJ5XCIpICt4bGFiKFwidGltZVwiKSArIGdlb21fbGluZShzaXplID0gMSkgKyBnZ3RpdGxlKFwiV2VpZ2h0IG9mIG5ldXJvbnNcIilcbmBgYCJ9 --> | + | |
- | <pre class="r"><code>#plot all time series (neurons) | + | |
- | ggplot2::autoplot((codes), facet = NULL) + ylab("y") +xlab("time") + geom_line(size = 1) + ggtitle("Weight of neurons")</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABVlBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZpAAZrYAqf8AuOcAvmcAv8QAwZoMtwIzMzM6AAA6ADo6AGY6OgA6OmY6OpA6ZmY6ZpA6ZrY6kLY6kNtNTU1NTW5NTY5NbqtNjshmAABmADpmAGZmOgBmOmZmOpBmZmZmkJBmkLZmkNtmtpBmtrZmtttmtv9uTU1uTW5uTY5ubo5ubqtuq+R8rgCElP+OTU2OTW6OTY6Obk2OyP+QOgCQOjqQOmaQZgCQZjqQkDqQtpCQttuQ29uQ2/+rbk2rbm6rbo6rowCryKur5OSr5P+2ZgC2Zjq2kDq2tpC225C229u22/+2///HfP/Ijk3I///NlgDbkDrbkGbbtmbbtpDb27bb/7bb/9vb///kq27k///mhhPr6+vtaO3y8vL4dm3/Ycz/aKH/tmb/yI7/25D/27b/5Kv//7b//8j//9v//+T///9b6i30AAAACXBIWXMAAA7DAAAOwwHHb6hkAAAgAElEQVR4nO2d/WMkOVrfvQebXY/tmyVcgJkDBjaEvLAH4WxIbg/Cy0JMbkLIne96CAm71+XxeHaY2bn6/39J6f2R9DzSo5K6u6qt5we73V39tKT69NdfqaTSydijx0rj5NAF6NFjbnR4e6w2Orw9Vhsd3h6rjQ5vj9VGh7fHaqPD22O10eHtsdoogff5B1+IXy9OPvxy+vX+c/lLhfcH/OvNv/1JnOh/npx89GX8dI8eRVEC7+uTz8Sv5ycS4nfPPnIvkfC++FYM7+uTCd7yovbo4UcJvArXd89+/9mT0aKMRRZe8p09evCjBF7F5OsP/vpzAbHE8l8+PTn51R+bl/7P45MP/v304vTX//v05IP/MD2YRPaJfrs49pd/LJT75EQhPR33v/61OG4MM72XWT56cfKtH9v3gaPf/7eTkw/+oF0r9FhlFHXYJK8vPvxS/JaQvXk8gShchPzrxYkMgd0vfyoefQbhfW2OhfCqd0xC7GfS8P7S48lev3avmKP1o67fDzyK4H3z+DOJlfi//27yDu8/F/L3T4+l1n757tkHfzX+y+cSXtGn+0dhbK1tmJ77A93Zs7Zheu4jwfxHQSYDr+Devc8d/ebxr4svTvfNDzyK4BXACoDFb0Hgm8dSVSdABXKvpca+kQAKZKVFtvBq1sSIBYDXHOdnMvCKV9374NG/9Pv/u1ED9FhvlI3zPp8QFQQ9V9bhtfo/fiLAmp6RgxAKOwMghFcS+9qH1xznZ4JZ3PtAVuE8Tn7tx81aoccqowzeidzngqAJyecfjYeDd/ynT61x7vFgowzeN4//07Mn7rcGa1QYQtuAwYvZBnOcyzQ+N+bAwOtsg4N3iv/7573H9sCjDN73n/+bT75wv6du1l+NUx9NOVXYYXPwqqtyVIfNqazJNFkCOcTmsrgOm9Pp3/hyfP/3JnWPFccLNZTkx5tPWKe2cG7DC/2/+rm6RKz/2z+JhsocvPFQGQavy6Qe/fKnJsv4GhtEkwfDi3o91hnyP/Pcq1aF8L7W13XN7zeT9/ylP4AXKf7jMw/ed5/aaQxv9MUGFF6baRz/8fHJr/2z9bzufeBoeZHi1zu7q4/3n6sZB/N0qPmssnfPnuQP6tFDxvvPn7iHsgv+5lf+4uRb//DJF+ZvdfkKV+aG8L55/K8mJ/q8d6N68OO1sZXKZH74peygT57X/i3sL+jPw2gIb3eiPWbECzXH8LUaZPpMcjoRa//+FXpAtKVt6E60x6x49+zDL3Vv/4lS2k++MH+LC1LUPIC+kqLH4UPAqv9jW3jdf/B3z4jrUR3eHgcMPaArbIIe7DXwvoaDv5N9wN7d4e1xyJBLy+xkgIlYA6/5W3pf4qJFh7fHQeOFvjYl+/sTyQZe87e8aEVcS+3w9lhtdHh7rDY6vD1WGyXwDsxgH7inPIsr0NLy7KFAHd5DJzrWPB1eThXKYkXnZt15OrycKpTFis7NuvMcEN6XaHR42yc61jwdXk4VymJF52bdeTq8nCqUxYrOzbrzdHg5VSiLFZ2bdefp8HKqUBYrOjfrztPh5VShLFZ0btadp8PLqUJZrOjcrDtPh5dThbJY0blZd54FwqvWxL/5jrhnErmKrcPb8ywR3vHFE/3jNX1Pug5vz3NQeO+iUPAK0X3/wy/G5x/8ZVfenmcPiRrCK8CVrqHbhvXmuZ8dOyrQvDwkvGSHbbIM0jp0eFebZz67JfQuEd433/nnH37R4V1cgYrgnZunhN4lwvv+z/7hO192eBdXoL3AW0LvEuEdX/w7dRezDu9a89zfX80MZTmaF2hmnhnwmps1dHhXmud+PrwTvmx6FwlvPjq8i84zsTs3j9BernXo8DKqUBYd3mp4mfQeK7y/+JsfdHgPlqcaXh69xwrvV087vAfLc18FL5/eI4X37X/+rx3eg+VJs5vJo+Hl0Hs4eKsiA+8v/vZ/KNvw7Sl2UoD9R3w1nRt7L+oE7/w3X5n3ikGHJsXZQexSeb/6/tF53vns6mhcnlQ0UV7GgO9R2oa3f/zzY4O3hr5WBO8LXvfmDL1HCe9XT0V8/7jgrc1TTzC3YpWCCeDNpDpKeMejGyqr0kwvTwXCfHiTwlsCb5reDi+jCmWxA3jr/uGHBZpL8CHgTdJ7rPCCqK9CWbSHt9Ks4gUqJ3hv8HLp7fAyqlAWzeHdYUeriGBmxTKXKPJ5fHgT9HZ4GVUoi9bwVg9z5QrEtRFseNPslsJLD5ktD1679F3sm03tZv2w4G2TJx0Mgg8FL0nv8uA1S9/f/c4X1C5sDwre+ssLBQVKErw/eKMEOL0HhHcbxUu49P212Hf4OSG9DwfeBtfGSgtEiTAvT9by5vPE8OL0LhBet/R9FOr7sOFtcV13VoEQernwZtidBS9K7wJtg1v6/v7zJ8SbHwq8+52TEIWP70HhxehdIrxm6fu7ZxS7DwXeJuzWFMijd/fwvhKBmt4Bo3eJ8Oql728eU2MNDwjeNnn4ETo5+P1h5clbXirPKx0DIb3xoMMS4VVL31PsPhB427CbLlDc8/DhBeLLhDfHLprHgpuAN6J3kfDKETK5KTw10Psg4PVNQ4YxfoEKEsm/Lb27g1eR+7F+SMIbWodFwpuPhwBvAbsVkSyCfl2XZEfwAnLVn5TpVekBvR1eRhXKolGeoLOWpawNrlFeU5Y7XsUYltfL43yue2ZISK9Hb4eXUYWyaJNnwgUmKmPOj4oCmY+V9PLgzbLr8sTkDjnf4NHb4WVUoSxaweslqmC3BbzRl4kKPryvArtgIwMvoLfDy6hCWTTJE/ybrhHeOnghvYzBDya8JLlDzvQOYNDhcPBWxbHDG3rMGnarCgS+NSx6OfCmyB3yvsHR25WXUYWyaJBHYeISVQlvK3iHMY8v404hmlwK3SHvG+zndHgZVSiL+jzR0FQVu5Xwus8e8+KbE948uQPDNwya3g4vowplUZ0nuihQJ7x1BfLgzc4USsJr7EKuPHnfMCh6O7yMKpRFA3iDRJKfy/lRU5gA3oz40vACo5ttIA68gt4OL6MKZVGbx8JhEkl+KtitwjeEN0kvdYnilWcXGPC+ysNbtPVKOjq8rfLcxfCKHxUAVuELTK8pD00vyu6r0OjmG0jCuz96O7yN8sRTEI3wVhSoBt8YXlp8EXiRLhoLXob0Fmy9ko4Ob5s8yOTvWuGVeebji8BL0hvCa8j1Rxc48HJ8wzA2orcdvHbp++uTh7dxNrLsZtsE3vn4Ot8AK4bS61veyC745UkGE95G1qGh8uql72IfqxcfPTh4o0RmqKG+QDPxReFFxRewS5Ib5sGDZ3rHoQ29M+DdRPHS2/V9TGzEdqTwIqt164UXFGgWvji8GL0O3uS1CBa8HOkd1YdW09sQXrD0/YEpL7bUvF54vQLNoJeAF7EOEN7Q6BLloYIPbwN6W3bYzNL3N48/IG7bcJzwYjf5aCC8QYGK8bWmN6pYIL73EF52efAogLee3pbw2l3fH9ZNRyIhk/DKRy3hLfcOJLwBvZ5r4JcHjSlD3vSaRLWDDi3htbu+P6zbPUUWcnTC2xLeYnxpeP1vnOcaSsqDBUd6baJKepuO88ql768//PJBKW/ceR/bCC9WoCJ8jW9AKwbEl+kadgBvpXVoCq+6OeSLk5MH5HmRkaexjfDiBSrBNwWvo5drebnwviqBV4rv3FjwFbZVxB26199W/ry83MlHSnxZR263yZd12d3WgRN4VSXTSa6uSvYirIG3OPYGL+d7Hn6Pa2JOHvSC1dhGeOkCcdU3qbyDEV+u5WU2EMM39CmRjCqUxYw8xM2cmzjeZIF4+GrTS+eR9HJdAxverG/o8DKqUBaz4MWe3e4eXia+OXglvhbe9EAZu4E6vKuAl5hgaNjdKbwsfPPwDneuv59xDSXw1m0rxI1yeKviqOAl5he2Et58gbL4Kt+QzjMJr65GRnj58OaktysvowplUZqHmtm9lYnqhZdToBy+THhVTRrBm/cNHV5GFcqiMA/JroF3PwVK48uG9y5veTu8RwMvuSBsO+wV3jS+eXjVJQpRm5zlLYA3Q2+Hl1GFsiiFF39+q+Bt4Br4BaLplaY3A6/kbKI3J7z88nR4lw0vuRBXw9KA3ZICkfhy4R3usq6hw3sk8NKmQcHSQniLCkR5Bza8wjVkbmhWAO+rDm9tFcqiIA99BwTtMVuwW1gxHN+ttjFU3AN4c3c045cnI70dXkYVyoKfJ8GugreJ8BZXDMU3Cy+4Npyh94jhtUvfzcOjhTdxivUVrSbszqgYgi8XXmV5k/SWwJv0DcuD1yx9Fz+onayOBV7qle2B4UXw5cMrB8rawDssFt7rKF76S9/f/Oqnxwxv4vzqKYhtXMPMigX4bvVFEzyg5ZW/msGboneB8Jql7+9/+NfHbBtSpsHCq5+4FbHrAkUR0puEN5hRlvINJeXZB7yJpiXhJTtseun7iyfH7HlTZ1cveFTs3NrYbYGwgPRy4dWX1x4qvGrp+yS+Rwxvkl0Dr8X2RoT4ubsC4QHoTW4/GLqGZAXL4E1c8lgivGrpu9p7+MlxwpvsjUtIfHAlvPrhTgpEhUcvfVgMb0J6i8qTkt42Zyz1P60cXrX0fTzmobIkuzG36oWpjYNn2hWIDEdvAl47Ef3VKuGlW3MGvGrp+xHDS5/YCFzvNfmrGOC6ill6k/BGwpv451IIL+0bFglvPtYNL35eI26jcTLw762E4MqKGXoTpheDl/6GlpVn1/BODd4vD/PzIOyG4A6CmShRYM64ANdWzNFLHWHgfeXDS9BbCi/pGxrBe9PhZecJTmrIrRsn8xNdTHErflx4TzMIrq6YppeE997BC+eht4KXlN4WZ+y2w1uQB7IbgCueMoBMvHiJJLa3il4b+rUMwPUVU/SSvgF1Da3gTfiGNvDe9Fll7Dz6lCJGQcSWgPfi4ky+Sz2OYkgR3KBikt6xGF6c3iOAtyrWC684oYjgmnDsevBenMkIXW/IMA5wi4rJ8uTgDf/DF8OLXkikfUODisnP68rLy5PgVgQUXpDozAYxnp4kuEnFhAcn4AWW13+hEF7qKvhu4b1ZKbzmLoHNmiKbB4CLvg6F1yTSoqse3d6qh2QEAIs/2lRsKhJhegnXQPoGtDwa3JsObyG8HsPVkYY3OTDgCa9K5NCVcXbr/52ICwgw5w2ZkPRiL1CugZLeuIGc5t6U+IZ6eNWnrRJeE20ZTsObfKtlw8CrSJXonU4hMoQ4p8PhW8+voBd7Hh8oE0Hc/dL/E7qFmxtEeq92Ce9NMs8K4NUFbcRw4gMz8xq3nmsYRk2p5O5Uh8xQxO8gpN4fW5sXI04vaXkHQnq9BvJ97g3aRh3ebJgDa81EEt7k1TBPeC2gCrlT+UPQKx+dFfCrfUo1v8SCUNLyDll4ox7azYC5Xso3VMOrP3yV8Pq30AwOnM1wciQo9UYovI5Nze6pfm2SXuUf+PwCl10F8IjfR4K2vNQd39UvZHBBFpTvGxrAe5POs2x4Ab3EgcUMp+BlCq+iUiVSpJ26w261gRi4/I5eF3E+v1N5tgi9CdeAS6+sFzosdqNfCZ5eD7x26buYjU5t+97KNkB8003BZzgFb+p9VngNkDJRILw6SxG/YzTAMY9fAW9Mb8ry4tI74uQaf8P3DbXwmjI0VF6z9J3aQJAB79dPn/7mzzjwQnpZTcHAl8yTcw3yJ2BRJLqIhNfOjGTzOw7I6NwMARblielNuYYBk17qWoQW3gLprYdXfmKq6Sh4L6N4CZe+643f58D79o9+Nn712yx4Ab4lTTET3pRrkMKrMLx0iTS7Prz23PL4ReEdyvlV8Ia+lx4okxHAS5NrO5aI9O4G3tsdwKuXvr97NtmG+SspBMAseC29e4A3lXJr/IKFY8SF15uUzuF3HOgLIyUAK3hDepOuIfANilyqgUwZ2b6hGl71iXPgJTtsaum7WAtEqm8eXqW8354ie+h4VbZd3Sh3rCt7wxTitNGx3Ur2Rm/PwIsL+ev0NMzk/akN8DhqfpHsNzf0J2t+04UH5ZTbD7onzN6B1MaBdndETS4dtozxYVcttiUMQ8zkneLsFGuxdNDwul3fZ2+c/fZ73/2Recz4DkrxLfoeJ6SXnneScg1WNp2ujUYRT8ODI2WyHThMfschIb0qWPorKybdDdBeY//Ja7hKeaFdIBrIFZHrG+qU1xTn7DRqX/cJxfA22fX9mz819LJqcpXbNimIRJeN+MBUdw0i57gYDbsxvFgqkl9RoPxit7yBcPACejOuQfkG3+hS8LqHGLxI/lp4teNtCq/b9f39n80fKvvpD0rgnUEvWWH8aVp4fdocvKTwItKrj1T8BvaXB++Q5VfD69ObhTceF8Mb6MaDlyW9beA9bQtv7a7vX//Wz0uVdyjFdwa8+OxWydkWXBk28F6Qwpvq+2kDAflV8DJXyicAVhWz28Opgmp4KdeAjS4Q8MLHPOmtghe4hmVdYfvq6dMiz6sKWkQv7RvwDyRcg0bMzXcBwqsTobqQGrgI+ZV5Cu5TQvHrwavpvbfwYoVUEQ71og3kly9qrStMeivhtcK7LHi94NZmLBPfYnhjeqw64sKrEuH/1HK33Yv0t/A2URi/Bl449y3hGqzm8uD1/9onvOuc2xA3RQG9pPRSCwVC1wD+sSPCO5Gj4cU/JX/PSMDvUOAbbET06op53zTKNUC3EF4ixhooLB3LN9TAC8cajgTeEnwL4Q3ODuxSIcIruJGJqN4E646nhl/xeM4tJn16I3gHAG9wec0zuhx4g79ZvqEOXtddOxp4+fTWwOuPZmHCaxKRPWHm7XoVvsMc6R0CemN4ScvroxdILwdelm9oA++ciTlVsdPVw0x8Kd+AfaDnGsKB2G0M74WBlx7G4d9sWsE7S3oHFF5X3oldWeIIXv/PLLxx2TB4Q3or4NXKfjYT3qUq71BAbyaPCyC88TUwyK6CVwmehJf++AJ4ZZZ58AJ6TcUCeC9jyxuSl4cXFNakyEtvFbxgkPeo4GXiS0gvDq8+fcjVW0x4TaLE+DlfescK3wDppeC9zAlv4BviBnIls1cMOL6hCbzJPKuEV9KbxZcNr3UN2LwvSnglvKmPL4R3nvQOGLymyNLyTqXOwTvk4LWP3OWuUHoR3zAfXuMaTo8SXpb4FsCrTw8y+y4WXiN2Y1J4+dI71nTZgPTaigF4RRNd5lxDDl5PeCnpvYqltwZeILxHCC8DX9w3xB8IhTd6MRJeS8uYFl629I5VXTZYHh0BvNFAWVwuzzfE8NpHp8Ap5X3DbHhvjx9eDr2sPFNTGXij1xDhtYnSwsuWXgGvll7W8WEw4PWmp2PF4sF7egqMQ943VMDrzck5Sniz+KLSi8Fru2vRa2DQNBDeCd7ER6vEuQNMgWp8A7AxOozpvQfwAnqxUkHpDRsIuAb5g/QNYcewAbyZPKuGN08vI0/KNWxD1wB69znh5UrvWDfUCzuQOiy89towoBcvVApe8+DUgzeU3tj0zoXXG+RN5imF1y59f//53CmRDeHN4MuEN+Ea3EMtvO6JLLtM6ZXw1kgvGHdWEcI7wBlFeJloeG2ZNEqJLlvgG+bD68/kbai8YOm7mJB+aHiT9GK+AYF3R8LLlF51pa5GeocIXllu79qwoZcoEvANIbzmgb0pENc31MOby0PCG9+c/iVc+v7ud4lVFPuGN4kvA17gGqJjQ+GFF7QS00xBcsYxCt6aLpu7XK0DwmvkUNNLlYiCNxReusvWCt7QNbSEVy99f/OdP1+EbRBB08uCl3QN2wBej92m8NZ12cAsNxWy4Prfjh0o0xt9Exmc9AbwmgeSpPPzc1J6r0LfMBveYP1Pyw6bXvr++DMpwkuAl8YX8Q1BnmR3zT2UZx5Og0nN1IPZ88doeKukd0DhDWaUiTrQBcLh9YT3/NyDN0wWSm81vNk85fDaXd/Hd78z+74NjeFN0JvJM1t4eeeGC+9QC++FD+8WgVfQS5eHgNc8MOxO9HJ9wzx4/UvD6Tzl8Kql7+9+b1HwUvjG0hvBq85aXngvfOFlwpun14d3Pr2wPA5e7z/5ZaI41jeg8J6eKtUdkr7B/7S58AbC23acV+36/nxJtkEERW8yT6K7FgkveC09U8/7gOwRBt466R1CeO8NvF5p9JgDdgslDF7nGjS7Gl5Ueq8C6a2B92xX8Kql7++ekXc4PdRWVhi+WXhp1+AeYsLLhTdLr85TL73gj8k3YIsobm9Vrw29axoK72AKp9DNddnq4Y1dw9FeYQsCoTfyDV6eW9o1BMJ7EQov99zw4a2VXp9exDWIskh6zzCXZHwDqJcpzLllt8Q3zIQ3dA0PBV4M3wy8HOGdzri/1jEzX8SLrPSaPLXwjji8YVHkpgSocUDgVb/O4QWZRJdNNH0lvLexa3g48Mb0htKLwpsT3kuf3RJ4s9Lr4BX0zvcNI/yCbTHLq0oywSt+kdLr6qWKMtHqXUykpffKl9558MY3eXo48Mb4JuAFriHMkhVePrwZem2eSukdoXHALa/6pW6PjRoHrzyDZTeA15Ne+JIvvXXwuuceErxDCbyUa/CF9wIRXn6BSuGdSe/oDYgglteAdmZ7bUGGAF5REDWw6x8GpTflG2bAi3TX5sBbFYfeONujN/ANPrxkdw08DkyDOZd8eNP0AnirpHf0+mykaxjk3d3Vg6DWyjc4eA27CXhD3wC/L7PgjYX3YSnvENFL5KFdg7eLLy68BQViwlvpG0QeW1LE8lrhHQaaXliem+BqsAm6y3blSe9seM8eNrwDLb0evGR3DTwO2LX/RAvgTdIL4a3pssk8Dt6rbega1C99g3fw2IWUXlOemxt1XSKe+pmTXligokBdwwOEl5Rel4cpvCG75fCmpRfkqZJeBa8urIEXlAEIr12Qh0mvhVeN7SLzlukum+cb5sCLuIZ1wvuq5ko5pJeE90bCmxPeS+81xoWfKJLS68N7VgevoVfAux1I4aWMg4P3fBJeVSbko8gu2xX0KnPhDe/kv1p459t/QK/nG3x4xe95wltUIDa8Fb5B55HFvY/g9YV3cMbBq7zwDTLP+blhF4f3HPcNnukthhd3DeuE9+MpHL/FTUFIr82TcA3g8QUlvGXwJuiFeWp8g4FX0Cu6a9st/M8VCC8wDgG9Is8EpykDvtgp0WVzvmEGvJhrWDK86bD8lr8VbN6GbssmXcMot0fzXxB7mdm4uPReC/dc40ZqgzMvvdh17Ca1L1s2xJ5tYvc1AW9UAFBVXTG/+rJFxCjDjSkQ+hnn5+6lG7gtm2z0ubuyqZ3X5J3862IByqvD8ktuaEOEMw7QNwDlrRLeMmFJSK+Xp0J6bZ5Je43yhp8P62rWE3v1n3yDGiBLCq/XZbuhTG+p8jrX4D/fTnnN0ve/Pzmh929tPdowk1/oeqOmMK4hdVtIwa4HL+/CDxZseE/ndtlcHgXvgLkG+AacXs3ujS4O8WFUl+0K+IZyeLHu2jBck+8ohdcufR/HvS599w0wL1DpdfCasYbgXQl2B97wIxa09Pp55nfZALyqumnhHUyfzf/66jnnaeFNdtnsJxfCayaUhRuvXc+A91EUL+HS9+kRuQpoV+O8xfxCekEe3VS4a/CE95IW3uJzQ70QwTtTekEec3nNVgUTXii95gUhu6JVcsIbdtnc8zXwot214XqGbaDg1Uvfp0cvPqLevLuLFIX8puAlBnm5wlt+bogXQnjnSm8CXlx4rfTaRpDsSnh1YehPg9Lr+4bB+IZZ8Eau4XoOvGSHTS19Twnvbq+wlRhgK73ON0Tw+u8Awjt1fBLCW27piOeDPLO7bCG8rwC86lc0B/LSo1e5XTHUmxdeT3pvQtM7zICXGOSdHG9LeM2u76Tj3f3lYT6/gF4vD91dcw8vhtA1kAXiBCW9Ebwzu2wuj7hEcSGE14cXWTxhqze9ZpZYCnh1UVIfR3fZhpnwoq7hui28Ztf3509IIPcwt4HbgTP0Wuk18NYK74wxePzpMM9c3wDhvRoUvKo2xjXE77kE9Jpland3HOElu2zON8yBFxHethcp1NJ31Wk7GLwiWPyG0mvgvcPhtY8uQuHlDz8SQUhvDO886Q3gFc1i4JU/seXult5z9y9ovOOwm/AN4mcxvMQg73VrePXSd9ry7nFWWd5AOOkFeSjX4IRXXGVNmYZZ807QZ6M8M6XXh1fio6pDC+9gjMMko7YpLLyZzyO6bM70FsKLd9eGRV8e5taOPDDHr6bX+AYNL+Ea7KOLISO8O4V3jvTaPPcA3u2QFF71BVVu19A73sj5SvlbuKakV5yNOfAGruH62OEdcgbYl95x0MJ7Vye8s2b8Yc8i8M7yDQBeNdZwoSqUFF4hvaanpltjVN9rlN1Hj8AfvvTap61vKJu5hLsGkenI4RVB8+tLr4I3I7xyalZaeGetcsGejPPM8w0hvKISEl75JCG8g0XXHjMJ79Q4mPDK0X7vrbhvED+L4cVcgxDeVJfmaOAdaANh6TV5NLwJ4R0i1zCnQGGg0ovBO0d6I3gHCW9GeAG7mt4bOVpGsDtE8Ea+wZjehGLGQbgGOaf7ASivCsOv/6yi18LrXIN/WJHwzoEXlV4kTxW8zvJeXEymNy28Al1XT/FtvpHwxvXVqgull+yyiZ9F8OKu4fr6Vdo7F2DGj4OuYVP8+s9peO8HDS/qGqzwXnCEdx68CL04vGfFvsHBayd2CXpTwqtk99Kj92aU8IaHWsfg04tLr/hZCC8qvLnLzBRTK1VeFR+H4gukd5Rfc9Q16N9q4U9OeGfBi0kvCu8M6Q3glY8vtmaDB+wdxjKAmip44/oCs4tLL+Yb2EV3E8rgs9fZqZVHCS9Br5TeUQlv7Bqc8MqfOeGdCW9ML5ZnjvSi8F7cylph7Dq3C6t6cyOOPb3zDvU6apH0qodYl40beHfNnMIN+b7jhHeIrIOV3pHorm1D4QVnFB3znAUvIr04vOXSq/NIy10JluIAACAASURBVGsrfyvhxYQX9tQgvOLY01NvK+1gkIHtG9j0Yq7Bys/mwcGrxBf8qaV3yuNcg3e8z25eeOfCG9GL5qmBF97441ZWJ2bXG2QAlZ0+cmqXU7ipYICuJ714l02P7rDhxbpr7l/n5qHZBhEIvcI3jLhriExDTnhnwhtLLwHvaalvwOCdhPcCE16fXUDvjf7v7Xa2itjNS+9VoW9AXMN07vQCis2DhDeid5DSOxKuQf9mC+9seEN68Tzl0ovCO2ynCmHsBs/o6ooPHM/ERxt4Y3Qp6Z3vG2LXANl9cB02FX63TUnvgLsGI7wXbOGdC28kvSS8hdIL4DXVFjhtLyLhjdk1X1bxcaP8aAUvIrvqaZCL9A0jE97INYjTZlaubR7eaIOOiN7JN2jXgAuvuT0OQ3jnwxvQS8FbKr0qjxxRccIrvpaI8MbvlhWWHzcxNDWO9A0Eu9A4yHtPx75BFogNr+8a5ElzwtsQXrvr+5vHi9sNCImPI3rTwqv/ZgjvbHhD6SXyaOnlpzXwXgXwnp35N6xC2VU1lp8mqivpRS2DClR6Q9M7Mn1D4Brku4DwtlRevfRdTOd9wVn6/u4ZuUXxHuAN6BXCdIPBq3454YXwti1QJL0kvLkuWzCG5OCFrmGq6da/3RpiGkQYeBVCE7yk7IoI4D3Vn+dJ78jrsql3WeFVhQfCOwfe8yhewqXvcvtWaud3X3mfn5zQy912Da9Hr5RexDXMEd758A4seLNdts3GpxfCCz7n7Gzr7X9IsCvqrFyDynN2lmIXSC/aZSuDFwqvZhcIb0t49dJ3tvKKePfs5IRa8cao3pCuQiag8b26nSxhG+Gtgdejl4b3NOUbBLoxvPcAXiO8W+9OlwS7otZKeGWeR8I4pOqQ7rJZeBn0wkvD5lRB4W3aYdNL3ycgST2NPa/AF7fI+drpgnIPjAPQO8F730Z4awrEgndI+gYpu570anid5TXC69FLsmu6azLPpLoZej3pjbps0vSOrKFe6Bosu9e6jq5iaJTDq3d9/+SL8TXVYwvhfXFy8tFkH1DYs7UzBeUeiISzDre3Gl74ciC8A0t4q+CF9KbgJaVXWwYUXl1ZLbzqu2mqRpkGETeX8rs66sFdbItXEJBe3Ddw4bWuwZ4laBrawquWvou7NvB2fX//ub4hH856tnamoNwDsfjYntBbOZaUEV4Hb2IlV02BmPCS0mvsLpReAK/7jDMDr6pckl0J75TH9NRy9JoHQHo93zCyrlM41+DY9YS37TivXPrOVt53z8gRtf3Ba+idWupqgtc7Ldt5wlsHL6CXzkNKr+uqBfACy2uFVy3DlLVLsTvcTBUXDNpRhrsK6dXw5qXXuQYHui+8beFVS99fn5yQY2DLGee1IbttoqUUvOAVf1IDW3jrCsSEF++ygWEGIL0KXucaxA9VUfn1VPAmijR9zuWpd10iR695gHTZhOllwquEF/RLAuF9qFfYvJD03gx3kzq1EN5KeB29iTy4b/CGyDB41SeIH6qeCt6LDLs34vO8wd27tHGwR+JdNg1vml41Df3sDF4KDYS3wytCiK+4QjHBC56dK7yVBeLCG0uvP7y78c5x4BrOALzDRdI0qAsUAl1Qnhy95gHuG2SiLLxSeCHjofB2eGXcTm10J+AF+6vMFt5aeC29SXhj6Q0uTXgCBS2v+KHJU/ceybCrhdcrz12aXkx6nW8ogNfT55DdDq+MW0nvcObBq365gVCu8NYWiAMvIr0hu541dJYXCq/6hk6ABXMcvJg+49HE7lR7D142vaH0TqZXw5uiV6E+HeNa2givO2hZ8L793tOnP9g/vFNLyUGHM3XvZRnhMJnvGnZZICu9aXiDLlvErtcpx4XXwBtuKQfj5ubRI4mfB+8QDYkH4UmvSuR8g0qUgfdG9kWATETCOwPeqkjD+82f/mh8+4c/OgC8k+MVTQV8w3zhrS4QB14pvcA3IOzC4VALry+8wjdIz5CAd3K7srqXlz68aXqB9Ma+gQdvyG4kvMtS3q9/e/rxUyO9iar5BeUeSIaEV9OrpbdCeOvhvWXk8aUXYxdcRRWWV7sG8QQcUlGGl5ReK7zhHdrimc9+pHyDgZem91YaOW/9Tyy8y4JXhFDfcfz2FMyU9XErNrubTNzHEl61w6DeLlDsu6fi0u0ZWL2VXbZAnIOU9KrHE7voMeZZsXWg3MBPbusHNwc8F7v+jbCiXjyS7Oo/vF0TxaaC0S6L8J2P7AeYvf9u1aaCV2YTx8SWgpJdb9fA62uvRjNjt/D+4m++bx7S3+rgW8Y9kAolvFMP5GPhG+S8p0h4B77wNigQJw/wDbjuDm7ylXMN4m+ol3agAdXeRxO8rrqe9KI30/Tfaz8hkl71Skp5pSxnhHdpyvvNn1h2E6fOH9ppBK+0cBO9cj0m4njtmcven7ZBgRh5nG/w2XWbNA122usE78cWXn9ztW04nO2lmvKDDcFD35Ch13xE2GVz8FL0vjLs2s9WjhedZY/FIeB9+70fuD/IkgUDk/UW89YNXE7S++qqTnhbmHBOHiO9gN14lzE1Pmssr+quuRTnEN6QXvHmG29D8EB6xU+W9AZdNruXDQWvvqqGCK9/3KLg9dhNnTqP3np4tWuQf03wvrqqEt4mPUhGHi29ml2otzrsU2IQBRNe0Yz+bbMH/92e8E7lgfTe5em1n+JL71XGN6ir9d7tGlDhXRa8Xz0VwRltgPRWD6vewitGAl7TpnOGGoICxUjxChXmwUJJ73RGEXBNbDYS3qtHr149ehQIr2zErX/vYVhueYECVHf0bv9kpZekN5Jenm+Q86SGwDWoygRHLgpeP8iSqQax9FbDe6PgNUu9LL1zxnj9AsX/wtmFGrjw3qRTixXiyjVM8Mp1EPYl1YSo9Gp2PeGV8GLSS9NrP4fvG9Qcv+DWkLjwrnfpu6O3Abx3Dt6J3q2mF2OXIby2QBCqUoR58Ep60wnFjWUkvKKmAl5bCN2A/gZztrTily+8sjyx9Cbo1SVDfIM+IJZePT81dA26JkE0VF6z9P3ZZ/wFmPPhdfTWzoMxrsHCe696DBfF08kGWCCMUz7ColSJiqkUwVU2PDb6EoV1vPrzp/aThfD2A7fJxe9AeBW8nvSq3wx6/S7bFSm9ulsZ3ORJC2+Ufga8Z1G8jJa+s5YB1cFr6a2FV7sGm0fdWUbumSODt2QYhEiU4pNFMA2ve3NmGbGKzUYPlPmOV7IblkJ+X+0zgfCq8sS+IdVpw6V3pOC1q1oG3zWoekTZG8Krl77vDV5Dbz28qrum82zl/IYr9x+Nt2QYxJhE10QG4eksxxXz37HZKOnNfNBGD5R5Qw267cJ/BRcXoDyB8Gp4Eeml6Q2lN4YX0mvYDbprlPDuYOm7tA3UOqC2UyLVGahcuKBdwwDg9ejl3J3Mj4K+WcJHhPBGx20EvKcM3wBdg3kSjNZst4/80M8L1+AlUuUB7XHHMA76086hb3DwQuk1aybYwruDpe/j1GH7DWr74cbzeSW9lfDemHUBKs9kASW8F5pezm0h/eCjC98RIXx7O0avwzfJ8V2O9GrLK6gBwuteN4Nl+jMuLrTZD4XXNDQuvQS9QHpVUg1v7Bvsep+wu0YK73lLeM2u7yP3dk/V8Ep6a+AFwmvg1fdTvLiS9Ga3/gmjHF34TkipgpcSZnVtgtNlg65BP+VfooRdNuEcFL6R8Fp4ofSaRzS9+gOdbxD/UmLfAG6gEboGVd0oc2oBSDm8aum7vN3TR8Sbm6+kELOiWAfi4bpr+tzIEznBO50+Se8rj90svBKzqn8FDmA5skVaEHU2TxnSGwtvcNp9eAfNbyS8ViUQ30DTq0rvd9kAvEZ6wa2LAtcghRdnl56FPANeu/S94HZPlfBmFmDlArgGDa/4IeAdxK0jg62Dcuxq0hqsS3L0EgeYs8mHd4DC6x0QwSvwvbkhNwRHpTdLL+iyxfCCdo5cg/iBsptQiRnw5mMHa9hq4IWuQZ6brYb3XsJ7dXkJ6c0IrxXJBvCa0mEbY4rYOHhzXTZleX3h9Y/YIvQONxen1v3qsPVy9MK9gUh61WeCLtvojfS+8jQidA208Kb82VrgraEXCq84N+Ys6tVAE71QE5Lsgv/vreAdSXrBRLKs9CrLC4Q3/l+Fwnt6atyvLY99BODN0+ukVyWWPVEovd7/t8g1iB8Eu+tX3hrjYOBVFXa3alCjZZeX3oaNKeH1rGkzeOFdmWHACbxKehNZQuFFmguBd3IN4pfHL4AXlV6SXvWxzjdE8IKDA9dACK+6PHgE8I6z6fVcw9QU7lYNBl5Nr2xdmt2gV9UQXtQ6+JPPc75Bwbsxwos1FuIbrOMF+IJ64dJL0BtIr6yRBy84NnIN4gfB7lHAO1t7Pdcg4NXPX0jfIOQF0EsKbzQg0BJehN5g0U/ON8hZchO8VniRYyJ4tfCqMPxCeHHppehVHwyvsjnT6wfWXYuE10zLWNTS97nwzqRXYWFvGjeCe+RMvkGN8LqNwwh2kbEsv+T0HqO5GGExXb7gXGa6bHKK5+3tZpNgF4HX/6oqfGG9CHhxemUDnVPSC0NPKPO6ayS7x6G8M+n1hXeCVz8v/kkKeOUfZsPRVCAFGtTWEDrKywby+OIbZ0tLr3INxvES7RTC6wmviqD3ZqX3roBeeJWNgjfurpHsHgu8s+j1umvBzckmeNVfVxx6kzEbX9sCgF4kVbrLplzDBIR4H9VKoemNx3iHEF9Ar38YTu8Q+wasIEh3LaywY/do4J1Bb+Aa/LtCunvnqFZGzqYzDCx8y/kFLWDoRdMkfYN0DQIIBS9xlA8vIryqPJBfSnpRen3plXdDxujFums0u8cDbzm9gWvwhPfy0t34STRyzC70uhs//JIDfAv5hXmU+OIpUr7h3sArFIxuoQBeekNwhy8pvTi9A0d6A9eACO8FYPeI4C2l9zZ0DTqPYvfSk97T8GxqdANqgwKZUL64HF8vj6CXeH+qy6anQ4pabhIN5PsGXHhNeQy/JLwYvZ70puEFrmEIhddjd53wEiNTZfSajW2t8Ko88rQIVQHSe4WxS/fH4pK/msVvkIe+WpyQXr2cVFQy2TwQXsI1uPIofI30St9wbXb3k4HROzh4R+Ubog8IXEMsvOI22KwB9UXDi18TKKI3FF6dx7Dr4D09Be0s6HPoEi2HPDcH3yDPhqQ30WVTrkHUcmqcxAd78BKjgrA80P1O8F5f5+hVSz4Vl+MNbnpj4U2yu054fXrBgQX0Bt21rYZXCa94ZHzD1N6nV8AgkJMUsQLB0KNqfH6D8eLpTTS9hG+QlnfUwpsacgbwUsIblMfhK+HNaq+hVybCpdcf5JXC631iwO4ulr5PP37lJ8RGmM08LyAIHsin13cN4twpeF1PRMErm/Lqio9uok09fPP8ennUGwjxJaVXuoZRCS++lEYHML0Uu3G9NL93d5JbX3wReq30jsMNBq91DerPUHgjdnew9F1M6P3WTyTL8Zz0dh02YhIXm17fNWwH05l2ayek9GoZ0A3NQTd5edhc02DhC/OYo0l6aXiH8cy0C0d66SHjuF6XCl9NbYZeJ70G3oBe3zWEwhuzOwfe0yhewqXv4/MP/nJSXrESSCrwjuB1+PoHMuk1W9SBXXEkvHDdzwSv+Re2EQ3NQzczt8FeksvzC/KAI1F6Kd8g4Z0qqVslKb36ASm8GLyXvvvN0OvgRX1D4Br84iLstoRXL30flW3AV8A3HSrTLAUH8ug1rkH9tdVNIYXXHnN/b9md4L264q5Oy5Q8wJfmyeXxjsLEl/AN9wpe1yYM30DP8UHqJRsL4JukV0rvqdrEGPENvmsIhBdjdwdL3zW8+BbEjcd5Jb7hgRx6zR2F4HZkoxJed9B06rUKbYZHV9Q8qDiyJX/Fk1+bJzgEpxeTXml5pfDaTGShNLyJCWoYvJcSszuLb5peLb0K3tsIXs81eIVF2d3F0ve9Ke+g6I0OZNCLCK+8+unf2cmMlqluGpteRsnBhB6aX5MnfjmmF5deJbwjaI88vHShsXpdXgpc7+42HHonpVE3+R8kvUGDeq5hygLZvcDYbQqvXfr+Zi+e1zRI/M88T68H79bC67N7qkfLjNflii+v5CG+5N2MsJdi8SXhPTuDzUFLr2qF1MxgtF6Xeq3DxuDLoFfD6/uGW7XaAwivfYlgt+04r1z6ruF9//mTnY42gAYppzforukKu4tGgx5mEPCCbhqTXm7JHb64/I7mJbwGPr1TeSPfIC3vmd8YCXi3N+mlnFi9rmWTTWW8g/Q6fEN6LbxD6Bto4b2g9pdtCq9a+r6XcV5YUATfDL2Y8A4xuwJePzmLXv5KCoAvwu+on8bfG9MbSa8RXvgcLb03N3Pgvb5U7N6JXwrfBL1Cet3sHNiYdhq6Sgu+ZSS7K73CFlShmF6/u2YaKWJXSJe4EgzeyRHfkmVAKXzHIcFuJL5Il00LL2dlhyI3vbYfqddE6eWlKKOcnYNah4BeODsHtqXXXYPCS7N7HPBi3iFFr3ENcjoUJryaXXFD/EfB2WbQW7aG7RXJ75hkN6QX6bLh8CIZNbrICngYcb0kpJci492d0l4nvvYgj14gvb5v8F2D+44l2F0yvEUhhx28MNvjITE11Gj30tPbBY4XbptAtXedSHl/P0b789lN8FqFwlf/oXtv9o/kO/W2fCokvN7LAt64FcKUmtzTcbsND83EtdzZT7WboFeWWC13u9ab/onw9hp8NErXKz5XwOvX5Ey9Mr3XVFyyW1isRCxSeQdEfMlvrNddA8KrXz6VX3/VT5t8QyxUOfEtU14ZUH2t/I75K8hQfKMum+ivncW30fSTGnQH/N4jMKJ66YEG/R/LF19Ke8Ut2d0992w7+q7BljGlu4tW3nRLxlVg02u6a8I1uG3IzL7Qkl07xIDBm6N3BrwBvnYSW/ZtPr1nAbyT8CLlcVkNucrrlsJrBsnMtHRL7wZMeJAR0It02aBrEI5XPXvxKNl3KYe3KnYJb4wvUXPYXXNb6Gl4reyq58E+8DCS+M6CF8WX8zZHb9hlk5cokPKYvD66xD3LQAR5rtVk8Y2/lNiJL0mv12UDlYiE90LINL9A8BUiFqu8A5Ne2F0zp+tyMg0yj5Fdc/AGhzdJ70x4Q3y5eaz4hl22CV583wOBhiUXjDAUwevY9W+gg4svoNdJr/MNqPBm2L28PC54I3xxeIFr0O1gbggzNZ8/d4yCNzXkOxveAF9uHkAvhFdYXjzPZoOhWwYvZDe41f9djl4ovaYKbpDXCK9kl4T38tK/73dQ1FXCm6cXzslxwqvyaHbdwWIrnQS9OL4V8HojZ/w8Gl+/y2ZcQ5THkRuM62Z8QwAvHMgL6IX4mucdvbFvgK7BCG+SXYXusSnvEOAb158S3imPYhccK04OCS9JbxW8AN+CPJZeJ723BLwkukNOemEen91wc0FA7wVKb+AbPNeghDfFrlHdI4Q3Q68R3jt7ri6l8MphhmC8QrQiLb2UdaiEdzDuoSiPpFdKr3nCuAaYR18CxtEtgPdaXgMDHUr/X7jBd8DpHUPfAFzD9XWOXWcYjhFeH9+gDbzumm4MKbySXT+NOjsJeHHxrYc36rsxQoqv8w239zG8GXT58EbsKqTcX1Z8B3iLKHs/Tii9Q+AahjS70OseJ7wJeinhjdE1A6ISXsp8YfS2gDe6Y3g+BL3WN5w716DLY+bdKHTxUbi06bX1QthVUAX4UvSOgy+9wDUo4aXYDT7kSOH18PXaQcMrRnSA8D5C2TXw3p+f032HmN428NpboPHfIOlV0nvrXIMsj48uObmMCy866cJHy1oHiK/ZuuYRhFd2oaHwEuyG348dLn0fkbnoe4SXoBe4BnWipua4EFtQnyIjSucqNLwUvpH4toJ3NPx+zH2HEF8pvee3A4DXTnYEhqECXvSmuTJifEPxNds1Qt8QCq/YQjZubC/1VkZD5fWXvttfh4IX4uvAg65BN8kjxa6X5xyE7rLR+Ib0NoR3KORX0Dthen4OLC+GLkXf1gVVHm0aqBJAfi29AF+9yzO8bRnsrlHs2qyghHPg/TiKl8jSd/PrgPAi9N461yBPj0T3kb4JkT30PFBa3WWj5denty28hfZB0nt+ayyvm2EedtOy9EYUq/JghtcLBN+AXpFIS6+YneO6a5PwanbP45RxmRrC6y99Hw9tG2RYfHVzOOHVpsGxKzdmAdiC82PHG0h8PfFtDe9Qwu+pgOH89kwKr0JXXzoMRxgyMycojHPsigD8GvG9tvgq3wvnljnXsNkg7Hrowhdadti8pe+7hPe2IqzwikQa3dNzRG7B+YFDvQS+kN4dwDvw7YOkV8JrRHfEB8e4N/zzAb6+3nJmDDl8PXolvpreEF4pvB678gMNusiHtITXW/q+VHgHBa9ojEcBu95neCfIG+ql8c22aVlEeRj8CkE7k+xKeOVz1Lhu6b3aR8nupI6blDO2YfnV1uH62qPXW1AxL1rC6y193yW8NxVhXIO4wn4u7yJgUEws9QqusuH4WvHdGbzWPpD8qhpN1RTsqqfoSxIz7tSu2E06YxAGXy2+1wbf0dArDpoKuwR4vaXvS4bXeQR4Xr0PDE5seJUNxdfQu0N4hyS/qlAGXvkUje5QLL2jYRcEgrEXml+f3lFqr+my3ahB3knVtWfY2qtHqYljQ+OLFN7S90V02HTofptE7szAOzWMd2J9eP0E8SViCl9egVhB5tH4hvzqEolpvXqUV6FL5imU3nGI2HWRwXd6IOyGxne7lWdBECtDwnvt99Wy6B7xFbYgFL4K3nP5R8iulyc8Rfc64HPY0IMU353DO2D8usKo26W8sqpL5ymEN8FuMjS/QHwVvQ5eUVCPXQa6DwdeN2h2diYfTW0ztRjY09yHN3z7PQzzJIJv2oqVRTrPK59fUJIJhHt5h0v93UzAW4TitZ7xNSMUvppeNeh7dmbvZioHeQW7Zvo1C90HBK/B90zAux0kuh67MA95jiKGcXy5RU9HtmKOX68U8i5rr9y/lUSeEhYr2BVh+BWL4uWo2Zm9MZmgGLDLRPdBwauGxiZ276b+gGKXhDedyEM4wrcZvZyKGXy9Iih4OXlKaKxjd7D4yrVBil79BTuz7J7Hs28S8ZDgFfiKcbKpM3spm81jF+RhniTUSohEjehlViy2vwJeUIJUHj6O1eyKUGjKtUGa3kG5Bs1uCbpz4K2KA8OrL1AYdkl4SzLGCI+NxJdZsfPzVyG/93x4uXUVpoF5aDIcvoJeBa9cwrLR7BbkeljKK+HdbhW7gfC6PHMU5txnuAm9rIpp0+Lz66ZDZvMw61ppeGHcWXm9kEO9Sng1u0WZHhi8k2tw7JLwFiR0Ib0v5SRmBadiwHAbfD8erkvgZdVWsttqFMXhK+iV/bZH12rgvSxWCe9ZRdxt73Q3IWDXNsV8hdF9t9G3EgeJK3C7mjR0THinVmkG73gnbnAmQkivcA2Xgt3yPPQrxwnv1gx/hsLr4C1uRBcSX53o6sDwWnwz8DLqqzxDO3jFp14bes8Uu/PyUK8sF15uFbCwQ/chuyZPpbWDI2eVxjdTMWpmvJ756+jN5MnXV3fWWsI7feyUVUmvhHd2HvyV5cJ77f1V1KaipeSDSHgtvCXpsAD41vXb0hWj2BXIqk81+ObgzdXYDDS0hVfSq8bbZ7K7TnhPa0Jbq4hd06T1ferR4Tt3sl91yE/Xe7HnoMvDq45oDK+k9xpOSp2ZB3vlOOE17JLwzmrGMJGb9XBIeDW+WXjTdbYDvK3hlcVT8FbmiV8phDdc+v7m8cnJZ7uBV1wgz00kJefnqRQxu9qJtYE3tVqzLA8WdGZvEzTzTPRcGMk6czt+BQEuB12LMbLzu3nRUHn9pe9i90szv7c1vPAmLFGbXqbDZCCatMVAvClQLb5UC5SwO3DwTX1jwXt3AO9E73x258Ab/496iSx9fy02EHweSm87eEVkOEVC7rg0oMIrm7TJVSRX8jp88RZIpcQhHbP40rW+Zo8XF4SXKPt/gZnHf6UU3mjp+5y9h9/+0c/y8AoMSX4z31aZABNeBe/shgwSmahxD2gLlLOr156lIKG/s/Bdu4F3J3lIeMkOW7j0XezgWgjv109/kwGvgHByS3ca4IJ/NDoBxq4aOq9pS5AIhFkuV5vHJiOPp/gc9YspesmUwaaGTWKJ8AZL3989i9jNwfvT7/4dR3lFTJ028cs4iKJK44ePjYQXadN5AON5yMNJOkf7Ookv8a3133HU8PpL3988jsYa+Lbh21NkjtzYbeo0v7nUNshDM1v21YUBuC4D/Srcto88gjwGrXk+5doiMc4Ll76j7DbyvCo2WhbkgSUCTBw1NhLehCCUKXCQJ/3GhKyO8CDiMEx6w2OPWnm9pe8vTkQUjzYUwGvoNQdy+aUOGVtNWM1f1uUB7OXJvSXhaEfvMALfuPKb8MDjhjcfTeGdmjecL8IBmHq1FbuMc8MDOBy1SB2b6o355aHwDWsfsdvhbQqv6gwHB+a6cOQrrdhlnps8v/54cTJZcighLA+Ob/Dd3cTHdHibwjsQ805S/O5ceAvOTRrgER6WzJO+BhGXB8XXqz/CboeXeRwXXkEvcSABMC28hzk3CQcxuiPSOTLXz7DyIPTCb+8mNg0d3ubwTraXPhBzELTwHu7cEACP9sX023NTF/DyxPg6eFF2jwHeqmi/kiK3IjvgN+F4D3tuEIDHgYNufnYAUZ7IOzjpxUzDUcC7LOXN0zt4ACcc7+HPTQDw2IZdujwhvqYhcXYX0EDsPGuBl0OvcxCJoYZlnBsA8MgaDs5P102Ux8dXSy/B7kIaiJVnNfCO3NthpNhdDLwizl1kj82zmy6Ph69sR9zw5vKURIfXFbTBzVzaL46tDeZVOAa7ufIAfEU7kuwurIGSedYDL884pGKzPHh5eTjs5vM4fDfDhjINq2qgFcFbTe8ulZlAbwAACRVJREFUVnbvIw+LXeaXQGbaJNhdUwOtCd6hzjhs1gtvmzyDxZc2DatqoHXBW0Xvbm5LsPs8zOVf3GuVEl/m7LSqWB684dL31yf73Di7ht7NSuHlmQZ+ea6v00vdVtRApfAGS9/lnN6P9gZvDb2Me2rkzitSoPrIjxI0yeOnLJidNjsOCG+8Md9LbNf3EduIbYc32pu5zZK7Kpoby7/mErwfeNns7nP0Y7+JGsIbL33fp/KmNrhLh3kT/YGWEx7Be4GFz26HF8BLdtiCpe9vHn8Q3rZhp7c4nWkcNjl4Q1azIrwneNvkKYijhjfc9X3OTUcq4J1Jr31LYvIV/ixF8D5gKbnPTIeXAW+46/vObvdEVWGOcdhk4E3+e8YJ3gMsBaahw8uC11v6/vrDL/etvLNsrzse/UAGJRHBuz83Rex2eFnweru+vzg52a/nHebQu0nDy6YE2oidn5sydju8LHjzses9KYrpTd+Kq5CSkvE0RiR6kE3ylEaHd7fwDtdDEb2bJLzzIGxGMA1vmzyl0eHdNbxl9MIjww+cjd84tBFhcvijTZ7i6PDuGN4yejcJeOdzB8buqvCdMfxRkKc8Ory7hlfRy3yrd1z4JZgtmVGiCgWPYkayDu9q4C2gd0PD2/Lf/Vx8q4Y/MnnmxBHAWxV72QGTbRz8g/xRi4reFtrza6OYs8rV4bWxeOVl294NCW/dSAGhmMVJWw1/dHhXBC+X3uAIeKWuapQrMUmi8uLCvHJ1eNcEL4/e8AA3O61yhDZ1ZaxqTkLLjt8B83R401W4HvL0hi/rPPVXF9ITaubPw206anHAPB3edBWu8/RGr476ndWXdpMlL8A3HnjeQXkOkKfDm6mCojf1tujFUb2vflpCpuRsfFsNPHd4VwZvlt74NX1Vl/uxpQUCwRx6aDXw3OHNwhsufTfPzIa3Mq7Fvmrkxmr4K9f72nhM4Vv2jl2V5SEFqbz+0nfxONrJao/Km7G9yPNjG93lCkteff2rJrsuz/7yHFJ5b6N4iS59f/Ornx4S3iS9xJ55Tdhln5scvq2umnR48/AGS9/f//Cv62xDdRUS9O6S3YJzk8a31VWTDq+Dl+yw+UvfXzyp9Lz1VVB3jkNARZ5rhm7ZuUnhC6dW7qs8+8izSHi9pe+TBh8eXopelN0DnRt66AFc8ttjeXafZ5Hwekvf1d7DTw4Kr6E3fDp+puW6yeJEFL4O3v2WZ9d5Fgmvt/R9rB4qq68CRS/K7kHPDYqvvV69//LsNM8y4fWWvi8CXtT2RjArcA57bhB8W12v7vBy4M3H/uFF6MXZPfi5ifBtdb26w7tSeBF6A+G1yBz+3AT4trpe3eFdK7wxvQS7izg3Hr7jvuZa7DlPh5dTBRVmmxv9py+8PittoioRGHoYG3TWqsuzgzwdXk4VVFz79FLsLubcWHzHNux2eFcMr6V3AL/MK4HFbBL1iRS+414nCu0vzwHhrYqDwOvRS7K7rHNzPW+1PBodXhvrU15oe6HwYiNTLaJNokNMFNpPng4vpwo2nO3dgOcCOFZ0btadp8PLqYILS+/GPYNf0GoQS4NlaXk6vJwqgPA6bQM6gLqic7PuPB1eThVg+KxifnJF52bdeTq8nCrA8GhNzkCsjqXBsrQ8HV5OFbwAvOL9+BWdm3XnWSC84dJ3MRs92vb9gPA6ejMLF6pjabAsLc8C4Q2XvkcbCB4aXm17yfHTFZ2bdec5JLyvoniJLH1//8NoE7aDw3s9pMb+V3Ru1p1nifD6S9/fPZtsw+FXUngxYZu4bLWic7PuPEu0Df7Sd7EkKFbfw8KbvuS6onOz7jyLhDfa9X3fG2fnIzVdYEXnZt15FgnvwXd9r4sVnZt151kkvNGu7+//bElDZfvKs7gCLS3PMuE9+K7vVbGic7PuPMuENx8d3p6nw8uqQlms6NysO0+Hl1OFsljRuVl3ng4vpwplsaJzs+48HV5OFcpiRedm3Xk6vJwqlMWKzs268xwQ3qrIwPvNnzz9rZ93eI88z3Eq7y/+5gfjV7/d4T3yPMcJ7zf/5Wfj2z/6WYf3uPMcJ7xv//jn4zd/+qPp0benYKbs0YMdO4T3698y8Iqo//6VxYqEZd15jl15O7xHnOc44fU9775jcT5laQVaWnlmFGinow3fB6MN+44jODe7jaWVpyG84dL395+XT4n0xnn3HUdwbnYbSytPS+WNl76LCel+lFxh23ccwbnZbSytPHPgvY/iJbL0/d3vhqsoRCwZ3h7HHyS8/tL3N9/588qVFD16tA66w+YvfX/8mUYZRoe3xyGDhjfc9X189zs1923o0aN10PB6S9/f/V6Ht8fSIjHO6+36/nwttuHt954+/YF89NXTp09/81DXSFy4Yhx06BAWR7fQMhpIXsdyTVPSSAl4vaXv757FdzhdIrzievTbP5TXpH/6g0MXRoYthj9F9JDxtcJjEQ30tfj+uKYpaqQEvPlYILxfi4rLs/KLv/1R7uB9hCvGYS+Xg9ATThbRQD/97t9NTeKapqiRjg1eEerkTP9/jIE4aGFsMfyJSgcMrWwLaSCBqmuaokY6QnjFnIophHlYgLi4YvhTRA8XpgxLaaAJXtc0RY10fPB+8yffd38swtbpYixFeb+GHaLDN1BXXhdvvwdPx+HPjQxZjKV43p9+H/5x8AZ62z2vCceuEJhf/PeDs+KKcdgpojasU1hIAwlUXdPsr5EWCK8exhQtMj387uH/SetiSH1Zwjiv+fe8mAYC47x7baQFwtujBy86vD1WGx3eHquNDm+P1UaHt8dqo8PbY7XR4e2x2ujw9lhtdHgr4l9+bGdM9zhAdHjnRwf3wNHhnR8d3gNHh3d2vHl8cvJkAvjNJ38pH00/PpM31UJWW/XYRXR454dQXgHv4w+/HF+ciB/f+sn7zz8axxfRXbV67CI6vPPDwvvZOKofn3zx+ltyqetnhy7bg4gO7/ww8Arra368OJHx5NBlexDR4Z0fKLzdMewvOrzzA4P3dXwvwx67ig7v/BDWNoT3/eeT9HaC9xMd3op4fvJRCK8cKuvs7ic6vD1WGx3eHquNDm+P1UaHt8dqo8PbY7XR4e2x2ujw9lht/H9TV6WavK/OQwAAAABJRU5ErkJggg==" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxubGlicmFyeShwcm94eSlcbmxpYnJhcnkoc3RhdHMpXG4jIyB1c2UgaGllcmFyY2hpY2FsIGNsdXN0ZXJpbmcgdG8gY2x1c3RlciB0aGUgY29kZWJvb2sgdmVjdG9ycy5cbiMgQ3V0IGRlbmRyb2dyYW0gaW4gNCBncm91cHNcbmhjIDwtIHN0YXRzOjpoY2x1c3QoZGlzdCh0KGNvZGVzKSksbWV0aG9kID0gXCJ3YXJkLkQyXCIpXG4jQ3V0cyBhIHRyZWUsIGUuZy4sIGFzIHJlc3VsdGluZyBmcm9tIGhjbHVzdCwgaW50byBzZXZlcmFsIGdyb3VwcyBlaXRoZXIgXG4jYnkgc3BlY2lmeWluZyB0aGUgZGVzaXJlZCBudW1iZXIocykgb2YgZ3JvdXBzIG9yIHRoZSBjdXQgaGVpZ2h0KHMpLlxuc29tX2NsdXN0ZXIgPC0gc3RhdHM6OmN1dHJlZShoYywgNClcbmxpYnJhcnkoZGVuZGV4dGVuZClcbiNwbG90IGRlbmRyb2dyYW1cbmRlbmQgPC0gaGMlPiUgYXMuZGVuZHJvZ3JhbSAlPiVcbiAgc2V0KFwiYnJhbmNoZXNfa19jb2xvclwiLCBrID0gNCkgJT4lIHNldChcImJyYW5jaGVzX2x3ZFwiLCAxLjIpICU+JVxuICBzZXQoXCJsYWJlbHNfY2V4XCIsIDAuOCkgJT4lIHNldChcImxhYmVsc19jb2xvcnNcIiwgayA9IDQpICU+JVxuICBzZXQoXCJsZWF2ZXNfcGNoXCIsIDE5KSAlPiUgc2V0KFwibGVhdmVzX2NleFwiLCAwLjUpIFxuZ2dkMSA8LSBhcy5nZ2RlbmQoZGVuZClcbmdncGxvdChnZ2QxLCBob3JpeiA9IEZBTFNFKSArIGdndGl0bGUoXCJEZW5kcm9ncmFtXCIpXG5gYGAifQ== --> | + | |
- | <pre class="r"><code>library(proxy) | + | |
- | library(stats) | + | |
- | ## use hierarchical clustering to cluster the codebook vectors. | + | |
- | # Cut dendrogram in 4 groups | + | |
- | hc <- stats::hclust(dist(t(codes)),method = "ward.D2") | + | |
- | #Cuts a tree, e.g., as resulting from hclust, into several groups either | + | |
- | #by specifying the desired number(s) of groups or the cut height(s). | + | |
- | som_cluster <- stats::cutree(hc, 4) | + | |
- | library(dendextend) | + | |
- | #plot dendrogram | + | |
- | dend <- hc%>% as.dendrogram %>% | + | |
- | set("branches_k_color", k = 4) %>% set("branches_lwd", 1.2) %>% | + | |
- | set("labels_cex", 0.8) %>% set("labels_colors", k = 4) %>% | + | |
- | set("leaves_pch", 19) %>% set("leaves_cex", 0.5) | + | |
- | ggd1 <- as.ggdend(dend) | + | |
- | ggplot(ggd1, horiz = FALSE) + ggtitle("Dendrogram")</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbWzEsIlJlbW92ZWQgMTUgcm93cyBjb250YWluaW5nIG1pc3NpbmcgdmFsdWVzIChnZW9tX3BvaW50KS4iXV0sImhlaWdodCI6NDMyLjYzMjksInNpemVfYmVoYXZpb3IiOjAsIndpZHRoIjo3MDB9 --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABm1BMVEUAAAAAADoAAGYAOjoAOmYAOpAAZpAAZrYAloEAlpgAlq0AqK0AqMIAutc6AAA6OgA6OmY6ZmY6ZpA6ZrY6kNs6loE6lpg6lq06zOtmAABmOgBmkLZmkNtmloFmqIFmtpBmtttmtv9mutdm3f92fwB2fzp2f2Z2lZB2q7Z4Zth4Zt94ZuV4geV4gex4nfKPfwCPfzqPlTqPwduQOgCQZjqQZmaQZtiQkLaQqIGQtpCQttuQtviQ2/+Q7v+mfwCmfzqmq7am1v+oZtiogdionfKotuyoz/+2ZgC2tpC2ttu2uoG229u22/+2/9u2//+9lQC96/++gdi+5//MR2vMR4bMR5/MabnMitDUndjUqwDU///VR2vVR4bVaYbVqOfbkDrbkGbbtmbbtpDbzJjb29vb/7bb///dR2vdR4bditDdxv/maWvm4//pwTrp///qtt/q///uimvu///3qIb3////tmb/xp//z+X/1mb/25D/27b/3a3/47n/5+z/65D/7sL//7b//9D//9f//9v//+f//+v///L///j///+iFybbAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAPA0lEQVR4nO3d/59UVR3H8VmFoNI1DSsoihITMvtGmSlaUqmRgYYJ9I2QWssvKRnIisrCIs6f3Tn3zlzowTDn3D2f9z3z2X29fkAe7HvurPDk7p07m43GRE4b1f4EiDYaeMlt4CW3gZfcBl5yG3jJbeAlt4GX3HYr3jOjpi+8OPcR64d2aD8lorxm4B2NvjnvEeClBen/8N51LPy4/rflpcNzHgFeWpBuxzseXxjtCj9+sKe9glg/tP2F+0ZLX4sfObs82vbbgDcAPjO668Vms+3FyUeWvnrLR87eN2oes7q86+xy+MmF5dEDK4P/29GmbhbewHUlqIsXEOEcvH6ou5Zoriu27YlE714ebV+5MN1Mrzi6j5yZPmZ1+f4wWvrZcvNRIsNm4R0/f9ex9UNL+8bj15Yjx9GOlaBzx3ht99KT4w8ONUTjyTn8uC+63b5y+0fCyTfA3RH/Duwbnx2FX1xd3s6plyy7E97w5X7ySwFi+OW13RFi/LXVBnT8tfizuF463F5o3PxI6O8v/GR5tKPdrO0ObpvzOZFdd8J7YXLjYelwiy6+TLvQ3IZYb65s46+tLje3JS4sHT7TvMS7+ZHJRcdoAj7KD0cFL5l2p2veMrxru0f3//Q3/9gNXhJ2p7sNE5jjycu3BmZ72RAlTvHOumy4ybq95gUviZp5nzf8M7xge3IcXoPFa94p3vCybF/z+q0DPesF24T1SryPtn0FvCTrju+wTa4bdt1y5m1/rb1V1kCceatswroJvCTsdrxLD7Tf27C6ZzS6e9+tlw3j8Wt7Rtt+d/NlWbO5+SbFN7oLivbdiyendy3AS4osv6tsbfcuw6MRJbLBu7r8mZXx+vPzv6OHyDYbvJNrXK4LaMiMLhvWfxwulr+IXRoy/pcU5DbwktvAS24DL7kNvOQ28JLbwEtuAy+5DbzkNvCS28BLbgMvuQ285DbwktvAS24DL7kNvOQ28JLbwEtuAy+5DbzkNvCS22zxnljMRgub6e/+lgu8VTP93d9ygbdqpr/7Wy5zvKbH29yBtzDw1gu8hYG3XuAtDLz1Am9h4K0XeAsDb73AWxh46wXewsBbL/AWBt56gbcw8NYLvIWBt17gLQy89QJvYeCtF3gLA2+9wFsYeOsF3sLAWy/wFgbeeoG3MPDWC7yFgbde4C0MvPUCb2HgrRd4CwNvvcBbGHjrBd7CwFsv8BYG3nqBtzDw1gu8hYG3XuAtDLz1Am9h4K0XeAsDb73AWxh46wXewsBbL/AWBt56gbcw8NYLvIWBt17gLQy89QJvYeCtF3gLA2+9wFsYeOsF3sLAWy/wFgbeeoG3MPDWC7yFgbde4C0MvPUCb2HgrRd4CwNvvcBbGHjrBd7CwFsv8BYG3nqBtzDw1gu8hYG3XuAtDLz1Am9h4K0XeAsDb73AWxh46wXewsBbL/AWBt56gbcw8NYLvIWBt17gLQy89QJvYeCtF3gLA2+9wFsYeOsF3sLAWy/wFgbeeoG3MPDWC7yFgbde4C0MvPUCb2HgrRd4CwNvvcBbGHjrBd7CwFsv8BYG3nqBt7AtiHf/ojRaoGr/oWwo8NarNthbq/2HsqHAW6/aYG+t9h/KhtqaeGt/CgsWeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+B1GXhj4HUZeGPgdRl4Y+DVt9O+g4oG+K0Ar7fA2wVeb4G3C7zeCthqfwrpwCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+sArCrz6wCsKvPrAKwq8+hYM7wnDlP9C6cCrD7yiwKsPvKLAq2/x8No8I3jLAm8XeL0F3i7wegu8XeD1Vk28ByVt+NMBr7fA2wVeb4G3C7zeqox3kQ4JXm+Btwu83gJvF3i9Bd4u8HoLvF3g9RZ4u8DrLfB2gddb4O0Cr7fA2wVeb4G3C7zeAm8XeL0F3i7wegu8XeD1Fni7wOst8HaB11vg7QKvt8DbBV5vgbdrk+Hdb5fukywLvF3gBW9+4AVvUeDt2nx4F+o4gsDbBV7pcfLbqcj6kwQveGcF3v6BV3qc/MDbP/BKj5OfPTXwdoFXG3j7B17pcfLbAnjN//tl4JUeJz/wghe8wiOCF7wz2xp4bYfglR4nP/D2H4JXepz8wNt/CF7pcfIDb/8heKXHyQ+8/YcCvD3/7zBvL/dTmhF4lUcEL3hnBt7+Q/BKj5NfGbWBvltnS+DNPaj5o8EL3hmBVxt4+w/BKz1OfsV4h3ga8CofDV7p04BX+WjwSp8GvMpHg9dq2OdbwIxNgrcs8IJ3Aw2Et+Z/k0RwawC8cwPvlsOb+dzgNXo0eK2G4N1Aw+Ed4mlmZi8NvPMDr9mjwWs0BK/0aWYGXqMheKVPMzPwGg3BK32amYHXaAhe6dPMDLxGQ/BKn2Zm4DUaglf6NDMDr9EQvOmh9TsX4DUagjc9BK/NErzzA6/VELwbaAHxWj83eI2G4LUagnfwIXithuAdfAheqyF4Bx+C12oI3sGH4LUagnfwIXithuAdfAheqyF4Bx+C12oI3sGH4LUagnfwIXithuAdfAheqyF4Bx+C12oI3sGH4LUagnfwIXithuAdfAheqyF4Bx+C12oI3sGH4LUagnfwIXithuAdfAheqyF4Bx+C12oI3sGH4LUagnfwIXithuAdfAheqyF4Bx+C12oI3sGH4LUagnfwIXithuAdfAheqyF4Bx+C12oI3sGH4LUagnfwIXithuAdfAheqyF4Bx+C12oI3sGH4LUagnfwIXithuAdfAheqyF4Bx9m4x2NclFlL8Mwrz7PnQnIftjnkDuNh4JDjka5eLOX5kPwWg3BO/gwD+/1N19tGf01OT1/ov3Cf/EP/0lNM+lOeyPjE8380n16fzu89O0/zputPfNsPGLo2dQR148/0i5/lFqe29n2UGL3yROT4VdSRxxfebAZ3rOSXMbLhk+eSB3xxpHH3s380v3pywfbvpc7fCp90LD69OWMXR7e86/+9/qbEe75k+nl+GJ0loE3q6uvvzG++s+34qHTf3MyO/3Iv8eXIsgMvGs/fyk+ImUyHHL9eBydPjB/ePRzx5p/Xtt7b2J4b0D52afDT1LWzkW1YXXlwfl/Ia7t3Tlt8kncoRtHfv34d36feNa2U0+F9aPhd/FUQm/4+EfNQU/NV3njyMFpj879wxln4o2APvxzBJQiGZfxx5Op5dXXuzNqavjG+L3wNyL93GvP7J+WNhl/PJCD9+0APam8WX78g5fSy2t7p8AuzwfUDBu3ieHkkFe+fGx8OXHuvdycxXPOvM81Z8rnErt22bp9fz61dvhUejh+vzk32515r785Pfvl4Q0POJk8876Xd2qOR7yYhXc8fjtBbFKLN3ylP5CB91IW3vXj03O0Kd5z96aHU7xfejq5DG7DIg9v7FTy7NcP7zsZw+g2LAwvGy6Gi914+rv6eupL9/nGWTyxJqlNponiKfqVvzSXDalLlvZ6IKPJLJyqU3j373/4h81lw4HEIS+Fi914kl57JnGBcXRydkxfNkxPo0cTw3YZrx2Opq96z+18KB9vRvmXDY+9O/lJ6uo4ID/4nCHecCrN+ArfdP6Vt9oHGF3zhj7804mTzaWIWacfjiLD+TJ5qv74+/sPNFcYqdaPZ1ywxC5nvmCbULzyYMpu+xrwnpVPnsh5xXZt7+e/boi3ubp4P+MF20TvR4+n7cZP4Lu/tMNLm6ejGfcvqncq567EJsK79otqwx5L+659y/qIN35lvrQfjjcX3tQlrG7YY2nftb2JO1+9u3EkfZuq59J+ON5UeNsXWMm3EzTDHkv74g3c5CV0r+Ld1rzr3uyl/TD3Pm/mTdk+t2+th21vZ7zHJRpmLbPfKMgetp3LeCeu3yHfyXozrNfSeph55s28KdtnaT9sC6fAvBtm9sOs5bncr/HZw7ZAM3m3od8hwylwen/Lamk7zL1syLsp22tpP5yWektBOMxYZtyN7TmclnyTovchk+8o9F8aDjfVNW/Top95VeWcefu1ac68Xlr0a15VOde8/dos17xX/5X1lH2W9sOxi7sN2Tdl+9y9zbzb0OOQm+tuQ+aLpuyl/TDyad/1HX6Yv8y+KZt/9zYs43dOGh4y8Mn8jsjspf1wvPkuG2gLBV5yG3jJbeAlt4GX3AZecht4yW3gJbeBl9wGXnIbeMlt4CW3gZfcBl5yG3jJbeAlt4GX3AZecht4yW3gJbeBl9wGXnIbeMlt4CW3gZfcBl5yG3jJbeAlt4GX3AZectv/AImMxkbsOVi+AAAAAElFTkSuQmCC" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuI0NsdXN0ZXIgaXMgY3JlYXRlZCBieSBhIHNldCBvZiBuZXVyb25zLiBcbmNsdXN0ZXI8LWRhdGEuZnJhbWUoY2x1c3Rlcj1zb21fY2x1c3RlcixuZXVyb249IDE6ZGltKGNvZGVzKVsyXSlcbiNUaW1lc2VyaWVzLCBuZXVyb24gYW5kIGNsdXN0ZXJcbmNsdXN0ZXJfaW5mbzwtbWVyZ2UoY2x1c3RlcixpbmZvX3RpbWVTZXJpZXMsIGJ5PVwibmV1cm9uXCIpXG5jbHVzdGVyX2luZm9bb3JkZXIoY2x1c3Rlcl9pbmZvJHRpbWVfc2VyaWVzKSxdXG5gYGAifQ== --> | + | |
- | <pre class="r"><code>#Cluster is created by a set of neurons. | + | |
- | cluster<-data.frame(cluster=som_cluster,neuron= 1:dim(codes)[2]) | + | |
- | #Timeseries, neuron and cluster | + | |
- | cluster_info<-merge(cluster,info_timeSeries, by="neuron") | + | |
- | cluster_info[order(cluster_info$time_series),]</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-output-begin eyJkYXRhIjoiICAgbmV1cm9uIGNsdXN0ZXIgdGltZV9zZXJpZXNcbjUgICAgICAgMiAgICAgICAxICAgICAgICB0MV8xXG43ICAgICAgIDIgICAgICAgMSAgICAgICB0MV8xMFxuMjAgICAgICA1ICAgICAgIDEgICAgICAgIHQxXzJcbjIgICAgICAgMSAgICAgICAxICAgICAgICB0MV8zXG4zICAgICAgIDEgICAgICAgMSAgICAgICAgdDFfNFxuNiAgICAgICAyICAgICAgIDEgICAgICAgIHQxXzVcbjEgICAgICAgMSAgICAgICAxICAgICAgICB0MV82XG40ICAgICAgIDEgICAgICAgMSAgICAgICAgdDFfN1xuOCAgICAgICAyICAgICAgIDEgICAgICAgIHQxXzhcbjkgICAgICAgMiAgICAgICAxICAgICAgICB0MV85XG4xNSAgICAgIDQgICAgICAgMiAgICAgICAgdDJfMVxuMTQgICAgICAzICAgICAgIDIgICAgICAgdDJfMTBcbjExICAgICAgMyAgICAgICAyICAgICAgICB0Ml8yXG4xNiAgICAgIDQgICAgICAgMiAgICAgICAgdDJfM1xuMTAgICAgICAzICAgICAgIDIgICAgICAgIHQyXzRcbjE5ICAgICAgNCAgICAgICAyICAgICAgICB0Ml81XG4xMyAgICAgIDMgICAgICAgMiAgICAgICAgdDJfNlxuMTggICAgICA0ICAgICAgIDIgICAgICAgIHQyXzdcbjEyICAgICAgMyAgICAgICAyICAgICAgICB0Ml84XG4xNyAgICAgIDQgICAgICAgMiAgICAgICAgdDJfOVxuMjUgICAgIDEyICAgICAgIDQgICAgICAgIHQzXzFcbjI5ICAgICAxMiAgICAgICA0ICAgICAgIHQzXzEwXG4zMCAgICAgMTIgICAgICAgNCAgICAgICAgdDNfMlxuMzggICAgIDE2ICAgICAgIDQgICAgICAgIHQzXzNcbjI4ICAgICAxMiAgICAgICA0ICAgICAgICB0M180XG4yNiAgICAgMTIgICAgICAgNCAgICAgICAgdDNfNVxuMjcgICAgIDEyICAgICAgIDQgICAgICAgIHQzXzZcbjQwICAgICAxNiAgICAgICA0ICAgICAgICB0M183XG4zMSAgICAgMTIgICAgICAgNCAgICAgICAgdDNfOFxuMzkgICAgIDE2ICAgICAgIDQgICAgICAgIHQzXzlcbjI0ICAgICAxMCAgICAgICAzICAgICAgICB0NF8xXG4zNyAgICAgMTQgICAgICAgMyAgICAgICB0NF8xMFxuMjIgICAgICA5ICAgICAgIDMgICAgICAgIHQ0XzJcbjMyICAgICAxMyAgICAgICAzICAgICAgICB0NF8zXG4zNSAgICAgMTQgICAgICAgMyAgICAgICAgdDRfNFxuMjMgICAgIDEwICAgICAgIDMgICAgICAgIHQ0XzVcbjIxICAgICAgOSAgICAgICAzICAgICAgICB0NF82XG4zMyAgICAgMTMgICAgICAgMyAgICAgICAgdDRfN1xuMzYgICAgIDE0ICAgICAgIDMgICAgICAgIHQ0XzhcbjM0ICAgICAxMyAgICAgICAzICAgICAgICB0NF85XG4ifQ== --> | + | |
- | <pre><code> neuron cluster time_series | + | |
- | 5 2 1 t1_1 | + | |
- | 7 2 1 t1_10 | + | |
- | 20 5 1 t1_2 | + | |
- | 2 1 1 t1_3 | + | |
- | 3 1 1 t1_4 | + | |
- | 6 2 1 t1_5 | + | |
- | 1 1 1 t1_6 | + | |
- | 4 1 1 t1_7 | + | |
- | 8 2 1 t1_8 | + | |
- | 9 2 1 t1_9 | + | |
- | 15 4 2 t2_1 | + | |
- | 14 3 2 t2_10 | + | |
- | 11 3 2 t2_2 | + | |
- | 16 4 2 t2_3 | + | |
- | 10 3 2 t2_4 | + | |
- | 19 4 2 t2_5 | + | |
- | 13 3 2 t2_6 | + | |
- | 18 4 2 t2_7 | + | |
- | 12 3 2 t2_8 | + | |
- | 17 4 2 t2_9 | + | |
- | 25 12 4 t3_1 | + | |
- | 29 12 4 t3_10 | + | |
- | 30 12 4 t3_2 | + | |
- | 38 16 4 t3_3 | + | |
- | 28 12 4 t3_4 | + | |
- | 26 12 4 t3_5 | + | |
- | 27 12 4 t3_6 | + | |
- | 40 16 4 t3_7 | + | |
- | 31 12 4 t3_8 | + | |
- | 39 16 4 t3_9 | + | |
- | 24 10 3 t4_1 | + | |
- | 37 14 3 t4_10 | + | |
- | 22 9 3 t4_2 | + | |
- | 32 13 3 t4_3 | + | |
- | 35 14 3 t4_4 | + | |
- | 23 10 3 t4_5 | + | |
- | 21 9 3 t4_6 | + | |
- | 33 13 3 t4_7 | + | |
- | 36 14 3 t4_8 | + | |
- | 34 13 3 t4_9</code></pre> | + | |
- | <!-- rnb-output-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuI2dldCB0aGUgbmV1cm9ucyB0aGF0IGNvcnJlc3BvbmRzIGVhY2ggZ3JvdXBcbm5ldXJvbl9ncm91cDE8LXdoaWNoKHNvbV9jbHVzdGVyPT0xKVxubmV1cm9uX2dyb3VwMjwtd2hpY2goc29tX2NsdXN0ZXI9PTIpXG5uZXVyb25fZ3JvdXAzPC13aGljaChzb21fY2x1c3Rlcj09Mylcbm5ldXJvbl9ncm91cDQ8LXdoaWNoKHNvbV9jbHVzdGVyPT00KVxuI1BhaW50IG5ldXJvbnMgYW5kIHBsb3Qgc29tIHdpdGggZ3JvdXBzIHNlcGFyYXRlZCBieSBoaWVyYXJjaGljYWwgY2x1c3RlcmluZy5cbnBsb3Qoc29tLCB0eXBlPVwiY29kZXNcIixjb2RlUmVuZGVyaW5nPVwibGluZXNcIiwgYmdjb2wgPSB0ZXJyYWluLmNvbG9ycyg0KVtzb21fY2x1c3Rlcl0sIG1haW4gPSBcIkNsdXN0ZXJzXCIpXG5gYGAifQ== --> | + | |
- | <pre class="r"><code>#get the neurons that corresponds each group | + | |
- | neuron_group1<-which(som_cluster==1) | + | |
- | neuron_group2<-which(som_cluster==2) | + | |
- | neuron_group3<-which(som_cluster==3) | + | |
- | neuron_group4<-which(som_cluster==4) | + | |
- | #Paint neurons and plot som with groups separated by hierarchical clustering. | + | |
- | plot(som, type="codes",codeRendering="lines", bgcol = terrain.colors(4)[som_cluster], main = "Clusters")</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAAnFBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZrYApgA6AAA6OgA6OmY6ZpA6ZrY6kLY6kNtmAABmOgBmkLZmtttmtv+QOgCQOjqQZgCQZjqQkGaQtpCQttuQtv+Q2/+2ZgC2Zjq2ZpC227a229u22/+2///bkDrbkGbbtmbb29vb2//b///m5gDssXby8vL/AAD/tmb/25D/27b//7b//9v///8ou3VJAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAaL0lEQVR4nO2daaPktnFFOY7kiSPFVuLssexkPHEyC2xZ/P//Lb03CRSAAlhsvLq854NeL+wrFnEaA6K5TDMhTplGrwAhvVBe4hbKS9xCeYlbKC9xC+UlbqG8xC2Ul7iF8hK3UF7iFspL3EJ5iVsoL3EL5SVuobzELZSXuIXyErdQXuIWytvLz3/61TRNf/fh/PCfpm8/5Rf8wx9ft1aHgvJ28tcfpiu/rsj70w+/oLz7QHn7OPl657dleX+cKO9OUN4+Pk7TN/9x6lZPDn/76Srv1dK//ubcF8//cxpTvPvuw9ndE6c3fv796YXvP10++u7ff5h+8eG5DOmD8nZx0vXan/78z9//35zK+/HaKZ9euMl7evnMN3+8v/ftp+cypA/K28XJxV8+nyXynt/+NP/pMiC+vvzjuav9y9/exP72w/y/y2VIF5S3i6uGdxJ5T29/89+3Ny8v3wYTH8+PP56HyfNqGdIF5e2iIu91d+5v/uE8xL28fFr+yrvfnce8v5vn1TKkC8rbRX7YcNX6p+tE2rv/vMn75ymRd7kM6YLydrHYYfvugyDvSc1/+9Vlt+zR8/72/tm7vItlSBeUtw9hquwq5Z+fe2A//8t1uuE65v3l86N3eR/LkC4obx/CjxQfz9qebf712eC//3QeFzyc/nF694/zT795vrBahnRBeTt5/Dz8/X3M+9gpO/W8v3+McC/D3cc87/mFe8+7WIZ0QXl7uR2Yc57tuv08/JeTz9/913VSbHHUzknSbz7MP/3rye3Lz2mPYcNzGdIF5SVuobzELZSXuIXyErdQXuIWykvcQnmJWygvcQvlJW6hvMQtlJe4hfISt1Be4hbKS9xCeYlbKC9xC+UlbqG8xC2Ul7iF8hK3UF7iFspL3EJ5iVsoL3EL5SVuobzELZSXuIXyErdQXuIWykvcQnmJWygvcQvlJW6hvMQtlJe4hfISt1Be4hbKS9xCeYlbKC9xC+UlbqG8xC2Ul7iF8hK3UF7iFspL3EJ5iVsoL3EL5SVuobzELZSXuIXyErdQXuIWykvcQnmJWygvcQvlJW6hvMQtlJe4hfIStxxM3ukJY9xzoHLPjfvlSW9bG8Z8fTI4xidHKXVt3MK8UTFfU0bFuOUYdYrK3cUbECModxfv5TGOOUKVBedavDOLyTrX4p1RjGvwa6w4p/XOLKbonNY7oxjnoFeocE7jnVlM1TmNd+WYcOUA+oLXp3Pu4t0rYlTqXvTdEBOef9Bbd/QK7IpeuqJ2VjFqd4va1WLC4i94845egT1pka6gnVVMg7sF7aoxS3mx7QUuTjlOrWlnFtPkbk67ekxYPwJuYGh5G6XLaGcVo3Q2POTrjAnRQ+QWHr0Cu9EunaidVYxa3ad8fTEhfgzcxKNXYC96pBO0s4rRqruSrysmkRfXXtTC+qRLtLOK0bmb2NcTE9InsI08egX2oVe6SDurGJW7grxfO2LC+tmVV2zz10N5seUVYnDALKtfupV2VjFN7q7ta46R3EW1F7Sq3eQNQRUSKO8LgKxKcjfotAsLe9OYU4ZW3kWMzt2ndrK9jV+BI9iLWJQkXcj7G6In922SxFw/nrU3rB8/YpTuZuRtjcnIi9nQo1dgB2LrFs5K+sbyfsnIG4TFl/+TEC1qI+/XRUwIGTXr8kJ2vZA1lbvE5N2cdQ3yns3dKG8QHkXyXv0tC0x5XVNyV3AvlfeqXTpqyCXc+/MQLXqNUbqblfdrHNMnL6K9iCXtI29IHuSt3iav1PVO8pJ6dymvCygv5fVK9p97Wb0geTkVY0LmDTFG625e3q9xTJ+8gPYCVlR0V1TPSN6kC26RNz0YjPLWAKxoH3mTscWO8qbjhim/LOUFYn95swORrLz16VnK2wFcRZUhr2xebJ1w4lpWXqFLXsTcnarqW5A3OXGtT17Ath69AtbUOl5Rvfj3h23yLmOeVlX0pbzt4BVkIe+XRN78lEX6eBmz9Eq/oxX9UpycMpxNKn5D8Np69ApY83blbekx18elU14ZvIJq7ormpdZp5c1/FbbLe3+R8srgFVSVN7+LpZY3N+kbolf0g1VJ3ucVHCivCF5B/fKurOuSdz3xlsqrtm59Dnx6mZxcDuV1zT7y5ufbbOSNX6e8GvAKqrorHmOzti6ZKkty4indXIzSruTl5ZVz9DFFeQHbevQKWPPG5c3olcq7eGVDDOV1Rb+8i2Xr8qaza3JMt7wr6yivCFxBa3s75Y2PbchPuKWD4SgmFexx2X2tdVJMh7yATT16BcyZVirJCOYl1lXkTfbxtPJKopV/Oqa8GQArepG88cxCq7yFo88V8sofobzOUcu7Pg1+ad2skjcaamRiCjY9hw7VsaqBvIhNPXoF7JlWemXljXe11j2mJkaS90sSU/JSvMJTjBzTLC9iS49eAXsmSaRYsfTqI+3y1i5hojgBc30AzlZ5DzZqQJX3tkefl7f00jxFMdkcTUxR3uRi6Cm5GOFDBxs1IJa06RqRZ3LXKuuMKdu7vg2FQC5GuHTOwUYNlDcle6G9zpiKvJWj1EsxIaYeAwVkTc7kLWIcAwViTdu0e24Sqxgb6YxikIAsyudl/UXsY4AArapfutlG3tnGuh1igMCsyufdgAT2iMEBtaxe6WYbeWcb63aJwQG0rF7t4u1hFWMjnVEMDKh19WmXbg6rGBvpjGJQgC2sRztpa1jF2EhnFAMCbmUd2okbwyqm2bo9YzBALq1Ru8y2MItpc27fGAyQa2vrNPObwirGRjqjGASgi2vRrrQlrGJspDOKAQC7Or125Q1hFWMjnVGMf8DLU45YT4u9KEbn3Gti3INen8Y7VSubxZg4ZxTjHPwKa96pW9ksxsQ5oxjXHKHGkndNrWwWY+KcUYxjjlHluaUF8c6vjooRlRsT45aj1DlfmvpU7c23+9PBMTffhsf45EClnpmeMMY9Ryv3TenytmL8caByp/WAdcs/1EYxi5Hq4BifHKVUcU/ri80OW1eMMEkwKsYtx6izMEVrM1XWGJOb4/o6IMYxR6iy8uOYzY8UDTFZ51q8M4pxDX6NisMSbH4eVsYUndN6ZxTjHPQKlYeS2xyYo4ipOqfxzijGPeD16Y/EtTkkshKjcu7i3YaYxUX30Ft39ArsSss5EDYHoxdj1O4WtateM3XxX/DmHb0Ce9J29pnNaUCFmAZ3C9pVY1Z3jMdu39ErsB+tZ05mtDOLaXI3p50iZn2rAOAGhpa3Ubo3cur74wrRnTHxTVqQW3j0CuxGz7VupMt8GMVo1V1c3rwvJrnDEHATj16Bvei7yliyOaxitO6ubizRFZPeHgu3jUevwE70Xt9x2idGqW5YWxdrp4oR7u0G28ijV2AfXF6fV7gpW0eMdGNC1FYevQL7QHmP0PViluXznhTS7TDbY8QbGoM28+gV2AWX8oo3Im6OCcIjyuuIbXdQm6xjdO7KXebX1hhZXkx7EYtyehNBWd7WmIy8mA09egV2QLYufxftmKK8hbtxZ2K2yZu993CbvJBdL2RNsnMq7UJVXrW+9vIWb7Cdfhh+3ABYk+ju3WCNvFftCv13PWcR0+xu7OgiRmFvTl5EexFLSlUK6aMt8tZzNskrWTeJXlNeNBLrQuZx1s26vFJO8r/ZQd6qvSHzmPK6QOh4s09yi07ZuQadvIsYrbt5eb8uY/rlBbQXsKKiu5VuuCZvEB7dX3iJvDV7Ka9rhsmbvtkib8g+WctbsbccAwZgRWp5Q2Lg/bm1vG2zBGV5y2GU1zOVIe/av5y8uRPX0pHB8nmI33uecRaq+hasi05c65UXsK1Hr4A1lY436jwzYivkFT5akLdtT6ssbzGK8nrGRN4vzfKG5UuLmIVJPYPV29UXTOTFGzfgFVSTd61YZkC8g7wN0iWnr0/FhasxlNcJsXXZGQVB3ucTWd7ChLFG3pK9onWPs9cprwheQW3yZjpThbzCJ0P8xjZ5nyevxxNu2SDK6xq1vIlp2+VNvg+buszFueuUVwSvoKq8kWLi9Jcob3bOTS1vk3UFebM5lNc1kXXSoQx1eeWpsry8mZGIcGWxjHXJy2Hxkj6mKC9gW49eAWua5RUe6OQVfm6L9gG3yLt4Rbq6njJn+RywrUevgDUKeS8vZvvNDnnXFhflzVgn9Lw98lZiRreNNXAFRfb2ySse25CdMM7KKx6YExZXLq+4eEOOaZYXsKlHr4A5k+hXSV5himtHeUXRKG8PgBXV5f0SH5IT/14hyZudtog7caW8hQN4NfKKn6G8zjGQdxbkze/5RZ14FFOQ8jl0KMqbixE+VJIXsalHr4A9U2JXVd60x+yZtoiT6+ewheivSDYm/VTpFcSWHr0C9uwib37HL+7DW+SNDsBplLc8SqC8HlHIK+58LX5biGLUw4/VK7Pm7OHketIJhZjSrO4j/za1AdnSo1dgB6aFSlp5lz1oesWcbA+eP+xHfcWcoOl4dfaWciAbevQK7MCUilQnRD2mcviRf0l9hbx4zndNOUY9W4zZ0KNXYAems4oXGuQVrHvENH0JmuXVjBqyMWEF5fXPpouTPjeJVUzdXo10RjFIQBbl88roIvYxQIBW1S/dbCPvbGPdDjFAYFbl825AAnvE4IBaVq90s428s411u8TgAFpWr3bx9rCKsZHOKAYG1Lr6tEs3h1WMjXRGMSjAFtajnbQ1rGJspDOKAQG3sg7txI1hFdNs3Z4xGCCX1qhdZluYxbQ5t28MBsi1tXWa+U1hFWMjnVEMAtDFtWhX2hJWMTbSGcUAgF2dXrvyhrCKsZHOKMY/4OUpR6ynxV4Uo3PuNTHuQa9P452qlc1iTJwzinEOfoU179StbBZj4pxRjGuOUGPJu6ZWNosxcc4oxjHHqPLc0oJ451dHxYjKjYlxy1HqnC9Nfar25tv96eCYm2/DY3xyoFLPTE8Y456jlfumdHlbMf44ULnnxn3/ZMs/1EYxn58MjvHJUUpdG7cwb1TM55RRMW45Rp2icnfxBsQIyt3Fe3mMY45QZcG5Fu/MYrLOtXhnFOMa/Borzmm9M4spOqf1zijGOegVKpzTeGcWU3VO451RjHvA69M5d/HuFTEq5y7evSDGP9jl6aUramcVo5auqJ1RDADQ1bVIV9DOKqZBuoJ2RjEIABenHKfWtDOLaZIup51RDAbAtbVKl9HOKqZRuox2RjEY4JbWLp2onVVMs3SidkYxIMBW1iOdoJ1VTId0gnZGMSigFpZKd7vyfZt2fe6mMV3SJdoZxcAAWpcgXbg73KBdr7txTKd0kXZGMTiglpVzd/WI8voGs6x8x9tkb7+765hu6VbaGcUAAVpVUd7y0IHyugGyKkm6UHiW0W6Lu8uYDdIttDOKQQKxqLq7RXsft+0T31XMWEQxm6T7bBwDBWRN2+R9X5ZXLbCNdZ9tY6CArEkhb8nekryPj9X1pbx7A1hTWTqFvFft8h2vVt9rzEbpbtoZxWCBWJLG3XrXq/gOVPSlvDuDWJJO3oK9Wnk1M8aUdz/wStKNGsrmTRaDj2vMZuku2hnFgAFYkVbectfrXd5AeR2iHTWYyFu2d6C8gfJ6RC9v3ryMvG27fSPlDULXC9jUo1fAGv2ooWBe5sS1VnnbzzgTaY8JnwV5Adt69ApY0yJv9nVZ3saBM+XdG7yCWgTLjxtM5H3fI286WP3cGhPkHLy2Hr0C1uwnb+vYo09eYU+rVd6w+kN5/dAkb/adYfJKe1qN8oboL+V1g295xcEq5c2AV1CTXg3yto89xsgbhEeU1wdt8ubeGyRvEKWjvBnwCrKQV5oqax97FKfKFjtml+tJLGyLpXvECPtyBXfjxQHbevQKWNNiXfZdQd6OsUdJ3nBx9vP9v1eDZekW87wKe0V5A+V1wQB5heN6Q0Xeex8rTYwJ1unlDdKT61/Ath69AubE2lXOdxDfFo5tqHwFxJOTcwclyMoKBl4fLGKq9hbkBWzq0StgTqO84vvN8kb6xvKGvGC28or/o9sfwKYevQLmRNZVz5PUyas4Wzi9oNTTupAVrOTg07opekcn73r2ArCpR6+AOQbyzl3yLs4sXsQkVumnDG5LzqvRR/Hj8ZvLOQzEph69AvZMolBKey9PhHPYVBcaCas/63PYsr97ZSW8L7k+h61bXsSWHr0C9myRNyysa3b3tthjWUHe2q7a0jpZ3pK96VshisECsaRW6R77WuE+wxXHdMk7p12mUt2VdLMkbxAn2UryQrb06BXYgSmySavv6p/7ji/Bdbl1x7uyV+3uctnkijmP3+PEQUIuB7KhR6/ADkxLl7TWhajH7PkOXJZMYkpy5e1dd7zyhHF9Bi4gd7yYNXVIt1h2k7xCTIOygonFmGXnK3814u8AFIg1nbTT3T1F5LlJpsdouCNoEdNlbyKdHBOSB+L7oO08egV2weqS5vFouDNmg7zVmPtxPeoYIECr6nd3nqKYxWi4N6bfXU1MEE8dysYAgVmV2W183t/03RjTLa8upjp7jNrKo1dgH7rlnQV5t8f0urtLDA6gZfVqF28Pqxgb6YxiYECtq0+7dHNYxdhIZxSDAmxhPdpJW8MqxkY6oxgQcCvr0E7cGFYxzdbtGYMBcmmN2mW2hVlMm3P7xmCAXFtbp5nfFFYxNtIZxSAAXVyLdqUtYRVjI51RDADY1em1K28Iqxgb6Yxi/ANennLEelrsRTE6514T4x70+jTeqVrZLMbEOaMY5+BXWPNO3cpmMSbOGcW45gg1lrxramWzGBPnjGIcc4wqzy0tiHd+dVSMqNyYGLccpc750tSnam++3Z8Ojrn5NjzGJwcq9cz0hDHuOVi5BImDyfu2+rq3FeOPA5U7rfe2towyjWIWu1mDY3xylFLFaYL3NrMNXTHCDNeoGLcco87C7ws287yNMbkJ2s8DYhxzhCorv+za/MLWEJN1rsU7oxjX4NeoOKbG5tgGZUzROa13RjHOQa9QeR6EzVFlipiqcxrvjGLcA16f/jBym+N5KzEq5y7evSDGP9jlrS6xW7n4ns2ZFMUYtXRF7YxiAICuTrw8dFZgm3PYCjEN0hW0M4pBALi49Th1fduU3K0DqzGrkLaYJuly2hnFYABcW/GmEnrt4ntahcX4o6EL53Ub7MEtrXwrKrV2xTthZgbQUkyzdKJ2RjEgwFZWu42a0t7yXVxze39pTId0gnZGMSigFla/gaXK3trN35X29l6cdJ8YGEDr0tx8VWFvuq+mlPe1F5c+qr2oZe0kr27oTHlfA2ZZurteV+2tdryFu1UsY7qlU9xQ5cj2glalU6w2X0Z53zaQVSndrXW9wq8TenkXMRukW2hnFIMEYlHl6a3qG8IdMPMfyNu77Q6YD4xjoICsSS1YsevdKG9y4+xObGOggKyJ8lJep+jdLf68q3K3eHPMa8xG6W7aGcVggVgS5aW8XmmQtzRuoLxvHrySqr+KKd6btO5W7d0u3UU7oxgwACtqsIvyugawIsqbjQEDsKIWefODXsr79oGrqGnIm/+RTetuMb79jDOR7THhGjO6bazBK4jyplBeH7SNGrKDXrW85XGDibyft8aEW8zotrEGr6C95G06rtJK3kB5C+AV1CZvbo/tpfIGytsFXkH+5A1Zee/WbZP3Ho/X1qNXwBrtgeit8jYeFNwkb7brpbxF8ApyJ2/Ijhse1lFeEbyCGuUVlxCmyloPCr7FWMi7darsETO6bazBK2gfeduPq9TKGxZ+7SLvPRuwrUevgDW1yzy9EXkfO2lhJVjGOsorAldQ+eKQSvfSYxu65M0clHC+xORDX4W8Xcc2hOQRYFOPXgFzWuWVltlT3ufEWFiYJdj7eKlP3iQZsKlHr4A5u8jbcUB7Vt6VYKm8IXnQI+9zL5DyOsJA3rlJ3uybs2RdkJ8tHsTSiTHt8iI29egVsGeqa1WRLz2HrUte8eSzyu8RT+vWPWajvWH9n0cMFogltcqbLJbIWzmsMrk5xfV5j7w563rkXQ2qKa8L2uWNbrAyN8p7F/iWcv87S9bVjsF5eLsaNbTKm3TjkKMGxJIW2mnlXS+ZXjFH/yVYdMLipW4q8j7737jHbLJXkBeyoUevwA48rNO7u1w2vdBeS04a0yHvYj5tGZP/cOJsnIPZ0KNXYAe65H3/uEHVQt7aXTO18qaTCrJ6woRZg7zpRAX2qAGyppN2BtKJJxB3xYh9YkXe2F2NvSHqvsUYJCCL2qTdZB+jlVd4V47JuXsdJ5RjgACtql+62UbeeW2d8A+6YF+p4613vff/xWE6XtCqNmg37RFTPP4mtm+JHCNKWhpXo7by6BXYh27rZht559i60mG7eTIxt6iw9LcUDdvKo1dgJzq1i7eHVUyfvLmYz8IYoRCN28ijV2AvurRLN4dVTGYyocndc0yy51cfTAO38egV2I0O7aStYRXTLm82Zu1qbTSN3MSjV2A/2rUTN4ZVjDwVVkCOSYcfmdmxYgwGyKU1apfZFmYx+WuLNHSY0ySoWvhaIDcwdG1tnWZ+U1jFtMibj5H62WO6i11ci3alLWEVY+HuyV79lwC9eUevwL6otStvCKsYE+mCTQwA4OUpR6ynxV4Uo3PuNTHuQa9P452qlc1iTJwzinEOfoU179StbBZj4pxRjGuOUGPJu6ZWNosxcc4oxjHHqPLc0oJ451dHxYjKjYlxy1HqnC9Nfar25tv96eCYm2/DY3xyoFLPTE8Y456DlUuQoLzELZSXuIXyErdQXuIWykvcQnmJWygvcQvlJW6hvMQtlJe4hfISt1Be4hbKS9xCeYlbKC9xC+UlbqG8xC2Ul7iF8hK3UF7iFspL3EJ5iVsoL3EL5SVuobzELZSXuIXyErdQXuIWykvcQnmJWygvcQvlJW6hvMQtlJe4hfISt1Be4hbKS9xCeYlbKC9xC+UlbqG8xC2Ul7iF8hK3UF7iFspL3EJ5iVsoL3EL5SVuobzELZSXuIXyErdQXuIWykvc8v9Ip4HMrYlzUQAAAABJRU5ErkJggg==" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxucGxvdChzb20sIHR5cGU9XCJtYXBwaW5nXCIsY29kZVJlbmRlcmluZz1cImxpbmVzXCIsIGJnY29sID0gdGVycmFpbi5jb2xvcnMoNClbc29tX2NsdXN0ZXJdLCBtYWluID0gXCJDbHVzdGVyc1wiKSBcbmtvaG9uZW46OmFkZC5jbHVzdGVyLmJvdW5kYXJpZXMoc29tLCBzb21fY2x1c3RlcilcbmBgYCJ9 --> | + | |
- | <pre class="r"><code>plot(som, type="mapping",codeRendering="lines", bgcol = terrain.colors(4)[som_cluster], main = "Clusters") | + | |
- | kohonen::add.cluster.boundaries(som, som_cluster)</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAAmVBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZrYApgA6AAA6OgA6OmY6ZpA6ZrY6kLY6kNtmAABmOgBmkLZmtttmtv+QOgCQOjqQZgCQZjqQkGaQtpCQttuQtv+Q2/+2ZgC2Zjq2ZpC227a229u22/+2///bkDrbkGbbtmbb29vb2//b///m5gDssXby8vL/tmb/25D/27b//7b//9v///+L1JeiAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAWg0lEQVR4nO2dCZvcRhGGZXCyQAIEwk3CYUzA3gXj/v8/jjmk0dVHdXVJ2vr0vXl2H3tn9psq9Wulp3VMFwhxSnd0AYRoobzELZSXuIXyErdQXuIWykvcQnmJWygvcQvlJW6hvMQtlJe4hfISt1Be4hbKS9xCeYlbKC9xC+UlbqG8xC2UV8vnH37add3P3l3/+Jvuiw/pJ/71H/tVdSoor5L/fdPd+UVB3k/f/IjybgPl1XHxdeDbvLzfd5R3Iyivjvdd9/ZPl93qxeEvPtzlvVv6v19e98Xhn5c5xZuv3l3dvXB54PNfLj/4+sPtV9/88ZvuR+/G5xAdlFfFRdf7/vTzb7/+d1jL+/6+U778oJf38uMrb/8xPPbFh/E5RAflVXFx8cvxbyt5rw9/CD/cJsT3H39/3dX+9ye92F+8C/+aPoeooLwq7hoOrOS9PPz27/2Dtx/3k4n31z+/v06Tw+w5RAXlVVGQ9/527se/uk5xbz++PP/Om++uc97vQpg9h6igvCrS04a71p/uC2lv/tzL+59uJe/0OUQF5VUxecP21buIvBc1//DT29uyx5732+F3B3knzyEqKK+OyFLZXcr/jO/APv/uvtxwn/N+Of7qIO/jOUQF5dUROUjx/qrt1eZfXA3++YfrvODh9Pfdm1+HT78cfzB7DlFBeZU8Dg9/Pcx5H2/KLnvevzxmuLfp7mOd9/qDYc87eQ5RQXm19CfmXFe7+sPD/734/NXf7otik7N2LpK+fRc+/f7i9u1w2mPaMD6HqKC8xC2Ul7iF8hK3UF7iFspL3EJ5iVsoL3EL5SVuobzELZSXuIXyErdQXuIWykvcQnmJWygvcQvlJW6hvMQtlJe4hfISt1Be4hbKS9xCeYlbKC9xC+UlbqG8xC2Ul7iF8hK3UF7iFspL3EJ5iVsoL3EL5SVuobzELZSXuIXyErdQXuIWykvcQnmJWygvcQvlJW6hvMQtlJe4hfISt1Be4hbKS9xCeYlbKC9xC+UlbqG8xC2Ul7iF8hK3UF7iFspL3EJ5iVsoL3EL5SVuobzELZR3Q7qOm3dLuHW3o+to76Zw424H5d2Yk23cbmT7mOLL7FoNICdq9zq4zyPasZbHZHW6PvYy0lKNQYxPztLq3LiJeRvGpOWdGzcxr7oaixi3nKPPqHKDeJvFpOSNKjeIV1ONSYxjztBlxrkafatj4vJmnKvxzijGNfg9FpyT6quIiclbcE7qnVGMc9A7FDgn0VcVs5ZX4JzEO6MY94D3J3Pu5p19zEpemXM377LV2MT4B7s9uXRZe5UxS3nl0mW1M4oBALq7Guky9mpjFvLWSJfRzigGAeDmhPPUkr36mJm8wnlqSTujGAyAe6uVLmGvPmYub6V0Ce2MYjDAba1euqi9DTFTeeuli2pnFAMCbGca6SL2tsRM5NVIF9HOKAYF1MZ00q3sbYoZ5dVJt9LOKAYG0L600i3sbYt5yKuVbqGdUQwOqG1RXsrrFL1086MMbTGDvHrpZtoZxQAB2hXlpbxOaZFuepChMaaXt0W6iXZGMUggNtUm3fOwTZpj7vK2SffyqMYmBgrIntqse7aR99lG3peyvPGrgeIxUED2dC55u/6L8gLQKt1wiKE9putEO0WJdnl3T2ovYkuUl/J6JXeJr/BqnnwM5X0l4LWUcbf/Etnb7u6zjbs37XIxsjkvor2AHeXcFdorlze3M99JXtlqA+X1wK7yZnfme8krjwEDsKMd5Z1FrnbClHdj4DrKSCef84rv07D4Pv8tK3nrL1xLxBw9NtbgNZRzTXoxpULeyH6d8m4MXkMyPUtWSt+vPa93v+byvtik4M0b8BraVd5xZ0559wevof3knc9CtpvzUt4EeA3tJu/S1s1WGyhvAryG9pK3vPK2o7znPCsSryG5n7lVNV/yjkeIc6+IN9ZHF2CN+J1WzjzRraR3k7e4VDaem5M7zwFwrI8uwJqKNa60eqJ13uIxj/3lzZ5hBjjWRxdgTc0CbVJR2UGK0jEPyrsxcA3Jz6jp0lNbV6dEvixnDIknAw710QWYIz6XcTAYQN7H+7TcnBdwqI8uwJy6Y2Mg8q4sprwuqVluSMgbXpW8weaUSMShProAe9oXy1xdw1YVgwViSxVyJR6oiqG8R4HYUqt0wUbeYCNvsJEXcqSPLmADTnbHnKoYKCB7apOON9rzAmRPlJfyuqVJu3GTtMZY3J93Ug3dXQLZFO+MnokBArQrvXTBRt5gI2+wkRd1mI8uYBv02nV2MYO8/DSgjUBtSytdsJE32MgbbOSFHeWjC9gIpXbL7dEU85BXq92qGro7A7UvnXbrzdESM8qr0y5SDd2dAtuYRrvY1miImcir0S5aDd2dgNuZQrvoxtDHTOVVaBevxiYGA+TWKrVLbAt9zFzeSu2S1ZjEYIDcW91OM70ptDEzeSt3mplq6O4AdHM12uW2hDJmIW+Ndtlq6G4Pdndy7fIbQhezlFeuXaEaunsHvD3hjDV0he2gilnJK5yxCqoxiXEPen8S70SjrIhZyyvxTlgN1T2DvCXvxKNcHROTt+RdRTVnV/cc8ua8qxrlypi4vDnvKqs5t7pnkfcmUlS5yv6rYlLy3h6JKldfjUWMW87SZ7i7FELv2/DXLWPS8j5+r/ettZrmGJ+cqNUr3cj2McWX2bUaQM7WLuUF4kTtdvMJa8v/qGUxxWnDZKbaUo1BjE/O0mr0ndazzRu2VEzlG7YXmzds9TFuOUefmSVam6WyaExK3txnnpgslVXFOOYMXRbvvr9RTFzewsExm4MU59AXv0fJB/uYHB5excTkFZyWYHN4+Az6onco/fh2kxNzFjFreYWnktucmIOvL3h/8jNxbU6JnMWs5JWfiWtzSiTyJUBXsNuruQbC5mT02d2iFvLWXANhczI6uL3Q3dVdfWZzGdAkZiFv3dVnNpcBYdsL3FztlZMJe/UxM3mrb5GeqsYkBgPg3njpO7q9uK1p7nUTO9Kgj5nKq7nXTawamxgQYDvT3WVsfaChIWYir+4uY+tqbGJQQG1Me3/H5XGGlphRXu39HZfV2MTAANoX7897BntR26K8lNcp/EyKU9gL2hXlpbxOafsEtc4qppe37RPUGhaK4e1FbIofIpiOgQKypzbr+NnDXoDsifJSXqe0SjccYmiP6RbX9jZoV4opvxDiSB9dgD1nk3d4lcIrIY700QXYczJ5u/6/kr2II310Aea0S3dfpDVIMXH3pl3e3cvO9/a9GAMGYEft1tXJG78RCeXdHsCOdpa367/2k3eWOswYupK7lNcBO8vbTb7vI+9ietvPecuvBDjURxdgjYW7zxUXru0g7/zCtW7y/f5H4csAjvXRBVizl7zDTPd4eeUxR4+NNXgNWcj7XJR3nOluP+d9KcgrfRW8sT66AGsy1iWXBerlne11t15tmMs7n/PODlAUXg5vrI8uwJrMXUifU7vINnkzIZvIO3W0Gx7sXlbv5CivO5JCiXxzIe/kgZdxraw8GcYb66MLsGYfeUW7ccq7MXgNleQVzXzlqw2Hy3t7dDLvpbx+Kc15RTPf+huUbSlv5gZlN2mHVynMeQHH+ugCrCmsNsgmD27kXRwqzr4c4FgfXYA1Fu+0HMlbFXP02FgD11DBXpm8jk6JrIoBA7CjglECdymvDwA7KitV1o7yegCwo3brwquSN9jIizjURxdgz8muYauKwQKxJcpLeb3SbF2wkTfYyBts5IUc6aML2ADeMScdAwVkT23S8UZ7XoDsifJSXrc0aTduktaYu7xt2k2qobtLIJvindEzMUCAdqWXLtjIG2zkDTbyog7z0QVsAz8NKB2DA2pbWumCjbzBRt5gIy/sKB9dwEYotVtuj6aYh7xa7VbV0N0ZqH3ptFtvjpaYUV6ddpFq6O4U2MY02sW2RkPMRF6NdtFq6O4E3M4U2kU3hj5mKq9Cu3g1NjEYILdWqV1iW+hj5vJWapesxiQGA+Te6naa6U2hjZnJW7nTzFRDdwegm6vRLrcllDELeWu0y1ZDd3uwu5Nrl98QupilvHLtCtXQ3Tvg7QlnrKErbAdVzEpe4YxVUI1JjHvQ+5N4JxplRcxaXol3wmqo7hnkLXknHuXqmJi8Je8qqjm7uueQN+dd1ShXxsTlzXlXWc251T2LvDeRospV9l8Vk5L39khUufpqLGLcAtZnR7IcPT62YLVztBuvn6NHyBSwbkiBo0fIFLBuSIGjR8gUrG5ob4Gjx8cWsHYSdN1TirrFqaqYlC5d9zFFXTUmMY45Q5cZ52r0rY6Jy5txrsY7oxjX4PdYcE6qryImJm/BOal3RjHOQe9Q4JxEX1XMWl6BcxLvjGLcA96fzLmbd/YxK3llzt28y1ZjE+Mf7Pbk0mXtVcYs5ZVLl9XOKAYA6O5qpMvYq41ZyFsjXUY7oxgEgJsTzlNL9upjZvIK56kl7YxiMADurVa6hL36mLm8ldIltDOKwQC3tXrpovY2xEzlrZcuqp1RDAiwnWmki9jbEjORVyNdRDujGBRQG9NJt7K3KWaUVyfdSjujGBhA+9JKt7C3LeYhr1a6hXZGMTigtkV5Ka9T9NLNjzK0xQzy6qWbaWcUAwRoV5SX8jqlRbrpQYbGmF7eFukm2hnFIIHYVJt0T497Q7fG3OVtk+7joxqbGCgge2qz7slG3icbeT/ayAu564XsifJSXqe0SjccYmiPudEoXa+dUQwWiC1RXsrrFcpLeb0ikq7Ln6XbWbj7ZOPuTTujGDAAO5Jo1X9RXtcAdiRzN2sv5XUBYEeUNxkDBlxH0llDVt76C9e2lLf+wrVEzNFjYw1eQyKt8u5SXh/gNST1qvD4K5L3o00K3rwBryED6yivD/AaMrCO8voAryED6yivD/AaMrCO8voAryED6yivD/AaMrCOS2U+wGvIwDrK6wO8hgyso7w+gGvIxF6e2+ACwI7araO8PgDsqN06yusDwI7arQuvSt5gIy/iUB9dgD28hi0dgwViS5SX8nql2bpgI2+wkTfYyAs50kcXsAG8Y046BgrIntqk4432vADZE+WlvG5p0m7cJK0xFvfnnVRDd5dANsU7o2digADtSi9dsJE32MgbbORFHeajC9gGfhpQOgYH1La00gUbeYONvMFGXthRPrqAjVBqt9weTTEPebXaraqhuzNQ+9Jpt94cLTGjvDrtItXQ3SmwjWm0i22NhpiJvBrtotXQ3Qm4nSm0i24MfcxUXoV28WpsYjBAbq1Su8S20MfM5a3ULlmNSQwGyL3V7TTTm0IbM5O3cqeZqYbuDkA3V6NdbksoYxby1miXrYbu9mB3J9cuvyF0MUt55doVqqG7d8DbE85YQ1fYDqqYlbzCGaugGpMY96D3J/FONMqKmLW8Eu+E1VDdM8hb8k48ytUxMXlL3lVUc3Z1zyFvzruqUa6Micub866ymnOrexZ5byJFlavsvyomJe/tkahy9dVYxLjlLH2Gu0sh9L4Nf90yJi3v4/d631qraY7xyYlavdKNbB9TfJldqwHkZO3uygl12peTbVzueZE4Ubvd/N1WyyxTFlOc807eZrVUYxDjk7O0Gl0meNK8v5fHpOWNLhN81FRjEeOWc/SZOb5gs84bjUnJmzm+YLPOWxXjmDN0Wfyc4Y1i4vIWjuzaHGE7h774PQrOqbE5t2EVE5NXcE6NzbkNZ9AXvUPhdRA2Z5UtYtbyCq+DsDmrDF9f8P7kp5HbnM87i1nJKz+N3OZ8XuTr165gt1dzAY/NlRSzW50t5K25gMfmSgpwe6G7q7t00uYatknMQt66SydtrmHDthe4uepPsUytyWpjZvJW398/VY1JDAbAvfG+Dej24ramuVFT7EiDPmYqr+ZGTbFqbGJAgO1Md4u89YGGhpiJvLpb5K2rsYlBAbUx7c1Jl8cZWmJGebU3J11WYxMDA2hfvLn0GexFbYvyUl6nvN4PVImfxSjSjh+osgS0q9cqb9d/UV4LILtq+/i/ziqml3fhrtbetk8RxBznowvYgNwp4wIhN/wETIW8/ATMNJA9Jd3tvwrYyBv74GyFvPzg7DSQPWXcldi7nbyFOW/03RzlTQLYU3bHK9/1tro72Cvwc3jsY9TsxtU2YHsRWxLKm54Abyhvzq7Jd8orAbGltE0zd5+Se2HK6wO8lnLSTXa22TlEZ+HuU5276XdzXdldyQsBDvXRBZgjtE4vr2i9TSFv8t1cWV7RsQ/AoT66AHO2lle43qaQN7X/LMorW4EDHOqjCzBH+v/7nIQZeUfpi3vgannT1lHeGHAdiXeKOfkyF6495C3vga3kLV64JpMXcKyPLsAakbwl8QTyChaNd5N3nPPmXhBwrI8uwBqJvGXxcrfUe3rseK3kLT2tnNInFA7gHT021uA1VBK3k+w1c9PZ+3TDQl6Rcil5I9mF6QPeWB9dgDWlN1GjmVp5p0n5ZxTk7aUtz1ijpzxEfofyOqfg06hmYadZlPe+B84tORTkHVRTyRv9JcrrHJG8xWUu8XGIp8y/gt3l5ZzXOTJ5i1IKV9yycUJ5VXPehPH5Fzx6bKzBa6isW1lM8f14++/xHblwzltcbYgulVVfDcelstePZLXBWt7EvwjpakPZOuFqA+V1jsHZYHJ584sX+x2kEMYcPTbWwDVkYq/8rLLcsnFG3rpzJQvnNkgPhRw9MuYAdrSxvOs5Qr28dRPWgrzSMMChProAczaWN2Zq7Zy38iLivLziMMChProAcwzkDZXy1q421MkbbORFHOqjC7DH4OKzTIx0pXiQN7pQUCVv4Ro2aRjiSB9dgD3bylt7JUVy11szayjuek85a6C8EUL+6mHpNWwhc/VwxWpDKF49LAqDHOmjC9iAVns3vGOOAt4xJwlkT23SbXijPQW80V4ayJ7OKG/x/IjjxmMzEHtq027cJK0xd3nb7J1Uk3f3Y/ZdG+g4H13AJrRot+1t/WsR3hm9tF4GOsxHF7AJDdYFG3mDjbzBRl7UYT66gG3Qa9fZxQzy7vBpQGe7AOgOalta6YKNvMFG3iCVNz/nhR3lowvYCKV2y+3RFPOQV2vvqpqcvenVBtxBPrqArVBpt94cLTGjvDp7I9XYxKAA25hGu9jWaIiZyKvRLloN3Z2A25lCu+jG0MdM5VVoF6/GJgYD5NYqtUtsC33MXF6byyV51eUE5N7qdprpTaGNmclbudPMVEN3B6Cbq9EutyWUMQt5a7TLVkN3e7C7k2uX3xC6mKW8cu0K1dDdO+DtCWesoStsB1XMSl7hjFVQjUmMe9D7k3gnGmVFzFpeiXfCaqjuGeQteSce5eqYmLwl7yqqObu655A3513VKFfGxOXNeVdZzbnVPYu8N5GiylX2XxWTkvf2SFS5+mosYtxylj7D3aUQet+Gv24Zk5b38Xu9b63VNMf45EStXulGto8pvsyu1QBysnZ35YQ67Qs37obQ3W3h1iVuobzELZSXuIXyErdQXuIWykvcQnmJWygvcQvlJW6hvMQtlJe4hfISt1Be4hbKS9xCeYlbKC9xC+UlbqG8xC2Ul7iF8hK3UF7iFspL3EJ5iVsoL3EL5SVuobzELZSXuIXyErdQXuIWykvcQnmJWygvcQvlJW6hvMQtlJe4hfISt1Be4hbKS9xCeYlbKC9xC+UlbqG8xC2Ul7iF8hK3UF7iFspL3EJ5iVsoL3EL5SVuobzELZSXuIXyErf8H9/paRF63nsJAAAAAElFTkSuQmCC" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuI1Bsb3QgdGhlIHdlaWdodCB2ZWN0b3Igb2YgbmV1cm9ucy4gXG4jQXJlIHRoZXkgc2ltaWxhciB3aXRoIHRoZSB0aW1lIHNlcmllcyBzZXQ/XG52MTwtZ2dwbG90Mjo6YXV0b3Bsb3QoY29kZXNbLG5ldXJvbl9ncm91cDFdLCBmYWNldCA9IE5VTEwpICsgeWxhYihcInlcIikgKyBnZW9tX2xpbmUoc2l6ZSA9IDEpIFxudjI8LWdncGxvdDI6OmF1dG9wbG90KGNvZGVzWyxuZXVyb25fZ3JvdXAyXSwgZmFjZXQgPSBOVUxMKSArIHlsYWIoXCJ5XCIpICsgZ2VvbV9saW5lKHNpemUgPSAxKSBcbnYzPC1nZ3Bsb3QyOjphdXRvcGxvdChjb2Rlc1ssbmV1cm9uX2dyb3VwM10sIGZhY2V0ID0gTlVMTCkgKyB5bGFiKFwieVwiKSArIGdlb21fbGluZShzaXplID0gMSkgXG52NDwtZ2dwbG90Mjo6YXV0b3Bsb3QoY29kZXNbLG5ldXJvbl9ncm91cDRdLCBmYWNldCA9IE5VTEwpICsgeWxhYihcInlcIikgKyBnZW9tX2xpbmUoc2l6ZSA9IDEpIFxuZ3JpZEV4dHJhOjpncmlkLmFycmFuZ2UodjEsIHYyLHYzLCB2NCwgbmNvbD0yLG5yb3c9MiwgdG9wPVwiV2VpZ2h0IG9mIE5ldXJvbnNcIilcbmBgYCJ9 --> | + | |
- | <pre class="r"><code>#Plot the weight vector of neurons. | + | |
- | #Are they similar with the time series set? | + | |
- | v1<-ggplot2::autoplot(codes[,neuron_group1], facet = NULL) + ylab("y") + geom_line(size = 1) | + | |
- | v2<-ggplot2::autoplot(codes[,neuron_group2], facet = NULL) + ylab("y") + geom_line(size = 1) | + | |
- | v3<-ggplot2::autoplot(codes[,neuron_group3], facet = NULL) + ylab("y") + geom_line(size = 1) | + | |
- | v4<-ggplot2::autoplot(codes[,neuron_group4], facet = NULL) + ylab("y") + geom_line(size = 1) | + | |
- | gridExtra::grid.arrange(v1, v2,v3, v4, ncol=2,nrow=2, top="Weight of Neurons")</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-plot-begin eyJjb25kaXRpb25zIjpbXSwiaGVpZ2h0Ijo0MzIuNjMyOSwic2l6ZV9iZWhhdmlvciI6MCwid2lkdGgiOjcwMH0= --> | + | |
- | <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABAlBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZpAAZrYAv8QzMzM6AAA6ADo6AGY6OgA6Ojo6OmY6OpA6kLY6kNtNTU1NTW5NTY5NbqtNjshmAABmADpmAGZmOgBmOpBmZmZmkJBmtrZmtv9uTU1uTW5uTY5ubo5ubqtuq+R8rgCOTU2OTW6OTY6Obk2OyP+QOgCQOjqQOmaQZgCQkDqQkGaQtpCQ29uQ2/+rbk2rbm6rbo6ryKur5OSr5P+2ZgC2kDq2tma225C2/7a2///HfP/Ijk3I///bkDrb/9vb///kq27k///r6+vy8vL4dm3/tmb/yI7/25D/5Kv//7b//8j//9v//+T///+hwhFaAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAgAElEQVR4nO2diZ/cxnXnW9xw2aa0Gy1HxyiON6QdEbRD2okVUk40uw4hjUmCGM4Mh/j//5Wg7uvViSpcXe8jcbq7UAXUr7/98KpQx2GoVm2jdlj6AqpVS7UKb7XNWoW32matwltts1bhrbZZq/A67eL+m/Hfy8Oj8d+7Fw/457fnjwfzzdXjQbXLA81577UorVouq/A67RJTd/EbRN3t+SP4IAavQjT5gOS4e3HA3Fd481qF12nXD0ceb7/74fOX42v0D2QOeMkHdy/+B85b4c1rFV6nYd95df9vLx5TLzwGAigSIFheHA6f/fmzl7fn//fh4fD4evyH0nmFj0IfYM89BhyXyPVieOUSxn9uv/szOuiKffpP52NRA8570KOQaqpVeN12MUI3gof+4JefvRy5ekTQu8DQIXjHTy/RXxb7jtjdnj+QPO8DkmGEVykBwXuOiBY5SFHY419Vet1W4XXb1f03d6PbpX9IEHt17zVCDwM2XCBoH+EAQ7CKjxI0o6be5cjoCK9SAoH3kZKDFHVFWnjVnFbhddsY6N5+9xL9QSHviNfAOSWAMUYxh4RVQrVC8wPM5wivUgLPpObAn1Z6/Vbhddvob0evy/6gyBQZhuzSDa/0Ae5kG1lH8MolaPCyd+ifuxc15vVahddjF49IWws3uYjfHAhfcZ4XlcQ97yA12EDPS07Njq0GW4XXY1f/E/U0DFd/92sJq0HEvJcmvGDMiyKQ/4ViXl6CFCirOaxdb9VUq/B67Pp/4y7a64fYDaK+AtJGU3obpLYXMqC3Af25ONDeBlTC3QvUBqThg5pj/Ac76Kvqed1W4fUYgkz8wb20I7O8n/fe/xcdB4ROZFdybzCHl/SK0RLGd4fDP3F3faX2/uL3lV2PVXgnWu3UWs4qvMlGHh3bBjxUK28V3nTD3V61TbWcVXirbdYqvNU2axXeapu1Cm+1zVqFt9pmrcJbbbNW4a22WavwVtusxcDbaWZ8EJhWKDFHqcV0rup2+dWt8HYV3rlOmVuyCm9X4Z3rlLklq/B2Fd65TplbMi+8n149r/LOYXNXNTJxjep64X17VuGdxeauamTiGtX1wXvzz/9SCt4etl3JG2FzVzUycY3qeuD99ON/krDhV6NlPrUFXgzwCdrcJEUmSmlt26aVmlsyD7xvnxaLefseTmQARxe7Rt8QYXNXNTJRpLUbgffm+3fl4HUkWgGu8GaramQiT2u3Au/bM2RPS8hrc7w8JwhwhTdbVSMTJXi7bcA7FOsqs7Kr5DQArvBmq2pkIktD4Bqu99TgDc6pAFzhzVbVyESaRrjdCrxl5LU7XjAnp7fCm62qkYkkjfrcE4c3Oieht8KbraqRiTiNxQsnDa/D8So5G8kwvRXebFWNTERpPNbVg95Tghez28QaorfCm62qkYmDguwpw4v+CeFVyjO+8Tw7rvCWTBwUYk8X3p7CG5UTHW577uY/ZYV3auKgAHvC8KLEJgFeN70V3pKJQ6vCq9B7OvD2FN7InF56Nw7vym3EVX271IVINj+8tNnVNEeLWfJheAcHvRuHN+aK5/e8ev9CuOeVvFRuyRaAFyfa2bXRS+B1+N4Kb7lE44HwacLbC3jhA2z4Unjt9FZ4yyWOUYL+gUzvycCLExs7vIOFXgav9dFyhbdY4kiqnhYKb7MjeHsGrzU8GLDzBWWgxSYMVJ8M7yW0wYl1H/gUi7nimeFtJ8FbTt2Z4WXDa+yOF+cEna8EL0hvSXjxbpdlN7KOueJ54cUhQkl4U9WdG16S6IgaSE6IXg6vhd6C8N7hjQTxru3FLOaKZ4WXhLdSGv5ulKB3GrzJ6s4Lb8/h7dzwQqGDgBemtyi8j8RLvI3a9Rf/drj31/HGRt8P1w8n7q4Sc8VzwkspFWnUsYTB2wTBm6juvKtEsmnBOOT1HHvUDxllEAXNPMP4Cm/xN9D9AC/vv7l++ABHZfw9CtDIhq6JFoPZjPAyD5sMb0BQlqrurJ6X+UtX1CByGqGDLATge8v2NqA2xQO6Z+Dt+WOs5Kgpf//F1L0EY654Vni1tPFLoXFDSKlB8KaqOy+8okYB8Br4KkKY9BbvKkPbryKV0U6rxBd8/pK9R1u5PojQsoC6RRI5oiwNfyV60GstFY9kFYdlVndOeHsBr/0psJJTpVeB16S3fD8vkpO2Kri8opVxe36YspVrzBXPBm+rw0u+ED1ucMDbhcKboO6M8ErsOqIGLadMrwqvQW9BeGmXI7qR0e5IJq+yMzvbKDvJYq54Lngl70rS6Nehxw3T4E1Wd054pRoFwys7Xw1end6SnvcCqYiaD3j391FTJi97j6OzSQ8tYq54PnjVNP5dhMPbB3jeVHXng1d1vMHwqvSqiSq9RcOGSxJ7kc6cUWsmL3uPNyI2HhLFWMwVzwSv0Sbj34QW9NpKxSFvOXVnhFfUaHCwC+Tk9OrwqvSWj3mLWswVzwWvlia+Ni1usMPbBcGbaLPB26fDy52vAW8XuppOhdedCK6KoT8Blu+XofD2e4BXZjcaXkavCW9X4c2RCC/pog3ZVWK9IHhJR9kO4JVqZBk15iy1wptQm+BEEF5tvLn6paF3Rj+abqSvYfPw9hq84TmZUXr1jyu8GRLZaloavMo73eEortcKb78LeKUKpcGLM0Hw8qJLwvsetAz6Z1F3YiKSMADeznjvgZc+Xiun7jzw6o43BV4kFzDluMI7OREpaMKrRg3GV0biBucp6ROKjcMrd2gJx9tSCy61wpuzqtx6C7zyG8DfyEGvDd5+D/DKFWLwtrp5SwVdr4gbtgfvzZOzFWwUhvUzljFUnAoanapnk+MGO7zd1uE1HC+BV8gEQgzY8ehyvZuD9+PvfxpufvvTRHWnJlL9DHil1+gbA+A9uuFt9gCv8gwXw4sSTUgD8B3pNT7bLrwfvh3/+Zm53pgrzgov/aPCqzleKKMfXr0PI7e6M8PbCHhtOZ387gpeZMj7FtnlLtTYlBRtboq8mpNl0sv4ceta9QmPawiyzcBL4ye7ex1c+AL9FDzo3SK8n16xrZZkr+e94nyeF4lHFyqSe2Rl+UmYB3le7nqhU/Jx6It53g9nZ1//YsrrVwmGlzbXBofjJTlt+EIPlpeEl0x8vf7yzfhPwkSgj884u8YteyZ4GbrqQlsGu1CpPniN53bJ6l4dwHH+nk0Ef/fL8PZbU16/SiKtVzt5CbyOuJbmhPEdgGHsi3rey0f0n6uEaRQ3T56LN9L1ZIDXtuibllNitpdeS8qzj5Lg1RJT1UV+4TJpGhAC2JDXeslmmhY1UHgDckLRA5p3rGcI2eZqMrzm/shEXuR07/74crj47Idoz6uwa3RTTYLXumihklM9ZIxQWSaTXRjeozEvXlgMvD51B/jG5oeXeN70JoUUtZMBZcfg1V0JvspHaCC74wylzCovkhZHDQlhA9lfFOptgJaosSIIJIrZOjq/IqeRSAYvHjGS0sBdxym56wUSmxzwCnWTPO/Nk69YR+R0z0sdbzc4HK9WquZ9weVK5vC81ibFeGfDN7ekmFc2tdqT4JWg1B3woHyuTKMS8V3L84ic8fCa4Vy6utcPoVkqfs9LOnMMeT0S8jQg5HVFvGap2uM3RK92xKLwXn/5N/t9Lca0Sk+AV/O2Cr8iID4aKxYKeIG4A4b3WBheru5w+91LI19AV9m0bnSjr+HoZhcoVcJ3gEZUBuyOWQ7euz/9ldzXssLbpcMLttQ4iIP0Wl87gL2nWsMuWyvWWMiMmrRggzRPM13dYbgwZ2a74f3wzbvpnleqEHW88Zgp8AL0+i6nYD/v5W/IUkWZ4XWK5Eiz9DJIvpQfoK/aYtLmOyXzRBC82k8Bl5Go7tX9Nymed2xTTIx5TXjd34utVHZ/wqMbtO9nUXjZjOy88Lp/4fY0aAiNnCixbSw5RO9g8I3RAu/RD6/kvVPVvYRnZpd+wiaFvDxqSMNMhrfT4fXtS7zWJ2x2daPaBdzAITSWnOZCmxTeiFPa4BVRQzsNXqeVh1eqELvPpMFLVbK63n3B66TXVpsjPIQGzAmsEos/spzXDi/UMyI73nLqLgBvKmYyvBq9e4TX1Z9oqY1tFAKUE1rhGN/BLKe1wXt0w6u4qtzqzgdvQ+D19b874G0leFV69wmv9xG6ZmIUAptR6cgJri0/ZrKd1fp78cB73C68SshLfqiejI5EBd5OhbffH7y+wUu6UXalx1SOnHAigjfmlDZ4UciLX6iJudUtDq9UH3t8H1YquQVxeHXXWxLeGcy8KNewUdMQuzK1ML0cXrDYvree0xpmQ1sFyY63oLozwttheH0ZXYlEJYjeXXpeu+sFaoMe9hJwpbDWunw8HFQMXR/1eyHndcCruarc6s4Kr+NpYlCppIeYz2OT6N0VvDx0DXaDeDijOboOoJd9L5Ziw+CVp7NA8IqoQc2ZW92y8ArxWNTgzehMVOHtZHj7PcHLOg1CWk+IUOuDXANf9r1Yim1bOEUpVd7UEscNJrzy447twivqQ+vpy+iGt+0UeBXXuxt4pe5aP7yUXVtVdXoH8qGt2NaWpMCrrECAgl4TXvTH+LZzqzsnvMzxTsBMhVeid1fwigdl/icGfa+vCKJVVaWXwGvToQ2BF+kvw3vU4WVRQ6vPwcit7kzwkqjBvUZFQKm66+2kB/X9juDt+FPeAHjt4825NL2SaAe0daTxV0h9zfXq8CqP6nYAL65lQEZPogavTO+e4O3Y+BrfKBmTXbOqMr0YXpsObQvsEKaXSlYgkx0IAC8uzbie3OoWhbdX4Q1Y0cmbiMo4DXhpxeBJ1PyVyS5UVYHv4HC8GDc/vKQ0BV71Ggm8wLedW93C8PLq4KjBNR8qqNQOP3ZS4WWDUxeBl0/ORpvjTtsTXrsmQa/zgn1zLKn1Uj+ay/H64UWO13S98pE05G31nBPU5ZtrqzYXvJ3sQybBa3G91vtd1Clj5WWTs9FQ6UkbWZnqAtPQzQuGRp7DVe3ZuFGH4yUBsXtQRMOW85U6fXR41cFp09VF/0CuoejG2Wxab4P3vG59W2WHWatuoc0nExedQ/y+Mey9PDn7Cs1tBSaqTLEjrZp9pvXx6N1+XBiid3DJROdpe3RsBlJKP/Av4ajO8B7hRZ8FX5hf3fHF3//aA+/tuXsjsbCfuEjjP2LqeJ2T+YJKpY+dLHHDlFLZq1h5pcnZ0ESVSeoe2Vqwlgs25v96qorxtavUOjuBaans+cNYlPgWlKCXRA3gDoPJ6t798d/9YcPF4SB2ew2Q125KlwyqpjKi3pHRn6jCGxg3FGuw8anvdy8eudhMUZfRC18wGYkTU1X7SMlOjLy1HMLgZakyvUcV3l7qWOqyqHv5KCjmvT0nWxEGyms1GV7cXGt9M1GDE9tWgzfE9RaDl03Ovj33sZugrs31Dh0fRRZXVYdGfPCiC142aIEcZofX2DuTvEpUd3S+gQ02JDC87FaMSiq82PHmgtfueieVSl5Fy0snZ18/DAt4I9W10Mu8snPIbqQOYfBKiZLr1eGVHW8GdfHursCvXod3PG5se1yAt7cYlQYt5JXZzQ4vXSluEXjJ5OxAdqPVtQQOLB7OCG8rwWstVXK8SuAgBb14mq2+dyZ7lajuENJVhrYpxsdcgc4hRqVBjRrarPCqcUPH4XXQWw5e3ENGfIMb4CR1CaS66+WrhmSEVyQ64FWSEL30emR4NcebQd0hAN7bc/cqnTEqDVrUcMwIbwfDOywDb6glqkvpVZLYCEhn0ypOhzYEXsXxdlLgMCjwav2+5dQt+JBCgld1vNPhbTV4yejtdcObqu7RWN1NaqLG7QXmSJRH3trhNReIIvQKeEnUYDllbnXLwcvuaThq6LLCC7vewRU3bBdeSq9c2yONnuAdaFLUbVV44T4M3fF2nN6BX4PpeDcKL6sOkiYzvJDrdT353DK82uKEeKyvTK1Ob4K62rBxG7zm5zTsFZNF0frJrZGTvcqsbnF4mePNCm+nwtvtG16FXrxGDQGXV7e1tO5DdWiD4AUcL3O9HN7x29Yd77bhNRxvDniNFkxZeGcw1xXzwEH2uNLdXV2AO6yqwoxdWKG4YYAcb0fpHdgDVMDxFlS3GLwi5EXS5Ia3MfqO5DA7tdS1el66xpsAF6fJlZVDh1h1gZ1zIXhBx4uPJfDiQgDHu0XPK6KGVo8aMsBrul6lgyO11BXDS+iVt+ZRKhu0eTOcCGAPwmvRFrnegZUCsLtpeM2oIQe8jRk37BleXEHhAkx4gZt/oA7Q+C/gFmZzvCzsxXEDEDRsGF7seMvAa7jewfWQbevwqovsozSjrnqzK0yHFoIX8AJWdkngwOC1jt/ErzKrWwrensHbmVFDFnhN10u+0UmlrhheRUS4qnJA7K8qzwMlRsHb9fhrbqXFDeBT5la3HLykypDjzQSvTu/O4dXTgKq28ErPjlJtnWyGW1efCulG6D2Cjnez8DZQX0MWeCHX250SvHCEBC3Z6ChVejCmJRrwOuepoMABtSYhx7scvDdPxBaNSfB2BeE1OxwClh1wJ+aWN8JirtjeNrVsOA6XKrFLnvKKJK143KHgKLVHX8cRdLyLwYu2sbr5bcJWVgQi3lwrAq8x1IqceFKpsfLyydloTGT8ztmyxVyxo2PFQ69cqjiyIbNdHPD6Fhbo0Tet977rp0xV9/9ZBpx69mFD+w6nbCLodLzZ4FW0cscNpTwvm5w9feawuJzGe8XO5zFOegfoOLz6GH5Qxk0tX00DS8X0ZoZXmvqO92LTLXT71siNs8n86fFmg2ZFR8zPDjc0/V2dXo1PU2gC/PujYe/lydl0a/IppqDS+eG1J7roVeDlJyRnVUIDFd6AX39jO20AvB51B8vUbC+8n149NeU1hNBNjhrKeF6L6/VuJOJOjJaXTs5GU9OyrZjTT4TXFTqIUuXx4/SP3KUgn6AJgbcvAK9YWADa9N0L78dnnN0IeFnIC0cN2eBVo97BFTcUa7CRydlotkqK97353S+Aunrrybxgz9BlO7281FZzvJ1Gr7LhuedySKI2TtU85YSFBeA1Mby9Dc/FG/tV6YYXDuOO11EdZ13dieSZpJy2CLxiX/KEuPfD2dcQvH0AvJ7a+ALQ1nC8KFGlVzkgx3eWri4U8frgVdiNh9fiePPB22nw2uOGYvK69yV3289f/Qfoeb2uLmDGEzDFQqqqnNRIiRK9EryqRtZTehPT1b0AV7tww/v2DFl8b4MEL7QHeRZ4Ddc7dA7XW66fl+9Lfven+K4yGjbozWF5MTbI+pB2KcHXlmQ5V8Pf9mKlOf+5pplPXVtEVuQJG16mnHXyppPkSaQroEkD+uwLcbhLlYamxMvr3JfcZ3DM623ehy5RYZngpq4tpiYK38vncemlOk/pSkxW17IMXCF48R3I5ngzwysNBUyDt50E7ySzwuvuWA1fX0XHd+iMdfG0nJxeMajVKNV5SntibnWLwdtQeCfU1ZNIVeVfz+BYv8tVqrwqfW55fWaDt8sFrx78EniVE+k5Gb1sYCBYqvOUtsTc6haEt2u15Rpi6+pJlFbK4qOpUhbwKrkvuc/s8LoGE0QuiNmqtyeVXRNeid6OdTqfDrw9hxd2vJnglYQnTZMuCd52lfB2bniDNZIFIomt1fHynJRedBq+HNnpwMs6eWHHmx9e3q8Zv+6nOgI2t7zp6roG0MbDy92v9uy4AeGljysIvM5S4xJzq1sOXrvjLQEvw9fmem2lanMPItTIbfqV2UfQJm6/IU+b5yex5MT09vIC0iXhTbVC8JorQybU1ZeoOaeWTK+NWy68VRNtVZ/f8zrhTRXQYNcGLwkdxDKQJ+N58S5dpLk2ra6+REN6gm8MvO2K4XVM180koOZ4dXUbed+Jk4GXrQw5sa7eRDNiw/jCC75AZsy3zS3vFHXtCyXkglePq3V1G+F4TwjeZil4Gb6BpRorHeSWd4q69iVqst263DmVUWanBG/oiOhJiWBb+QiOSAFLNZfpyC3vJHXD4FWH4dqqCiUaHRquHo/TgBc3URG8VsdbGF6yjmJAqcACSbnlnaQu7Hp7FV62cZm7qmCi0Rnnynkq8HZsDYqSQiCDeylRf4NxehBeMzG3vNPUtcCr9ml1HGBHVSEdzJ7kCi+D1+54s8ELPtxErrc36AVKhdZVzC3vNHUtK+Iq8HIlOL7B8LoSo9L2BG9jTC8rIAQ2EN4Owau7frNUcI2uWHn51Pe7F0lDIj3qAvD2CryyAIzf/cDL1b1+CK4rkH/jbLzkpW0UdGaDx0lj1+u7hLgLtPoGaeo7PFUl2KDvHFxIX+JBu/Mb4a+LJOC4tcHL1EXDeS+Tpr675TUswPGW9rzY9fbq4ySjVHiNLqu8rWHv5cnZt/8wacERm7rgFibSBZv8+fg1Aw4wMS5tMrweddEfSOEi8Lqba3PA2+n06qVKF0g31yGHxcpLJ2dff/mvJcIGwPXK8MKQOvkFAw6bSKFpxeBlCwvM6XmV8d2FhCAGdxHRsWVy4KtlVNiV1w61yWttUtCp7w8f0wUGkg2squF6ewleC6AD5deWSJVzJUamlWuw0anvt+cHKCbLD2+zPLx0bJlMrw6vOJIsS83KiJaX70tum2g1TV3d9ZK3NM2lkQVfS7QMihScVg5equ7nL8E9b3PDy6KGpeFls+BbY/gCMu54j3QfIV5GtLxkcvbtP5aC19gxlad5IgOYXnu0bIgUnlYOXqIuagpD6maHlzbXloWXLoIv0atkZOyyiGFSTySZnH1RJmzQXW8v4LW2yqSw1tqhAGdeH7xE3dk8b0N2rJ8NXtE8UdMwvoJeFV5xCC5hkrx0cvb5xBVOrfB2Krw8zdqjIPeG2R6i+RZmiksrCC9R9wpeWKAAvMd2PngFvWYbm+JL6JUzEseLUmmmSfLmMktVG8X1Cnjt3WFSSWbo4GvqWW0heJ2WGd6e7d85F7zMQIYJvvpa95jdhrGrlppb3gzqyq635/AGdeVah5z5+tEi0/YD79HwdEWEsKRpEB/ZQAcZXvo5NFY1t7wZDLle9lq8Cl6CqQGeQpZfwCnOVgIvc7yLwSuuQ8IXL9rNPkCvlL7dlcBrrU4j5jWxF4PrGbBWkup7yS88LGdw2k48L944eQXwSoZjB0Ev2SPDti9cbnlzqNvwwIHPb3KOX4AatUqiv58iMm0f8PKoYUXwCnzRa4jdAHlnMHt1uOsNYhdu1MqJIU29qLSp8KZaXni5410VvARfQm9rort+eJnr5fDGaqSMVA/qp4hK2w28xmzyQkLEpfWUXrKwgz1nbnnzqMtcL1+3MVojeaR6WD9FTNou4CWOd43wjt87CXw9S67mljePumjppU7ezzleI9ErGNjJFpO2D3iPzPGuDl600PfRv2plbnnzqNsQ18scb5pG7DFkeD9FcNq24NWfa/F+KctAmAJCxGe0L/G1dnip6+WON00jTG9MJ1tw2mrhBRfhtLHLHe8a4cWDJEFbP7xk1Tu6P1iqRvhJeEwnW2jaWuGFN1uiS9oZ1q8aXiu9q4cXu15pofJEjfTRH+E5NwmvZbOltgXxlWacrxJef2JueSPMecXE9Xasnyu5qpE9xIFpK4XXstlSjzEla9rJHixyTm41ydxANHwBw1wkRSZuGV5A3hZYFMw2Zyy/EGVKzS1vhLmvmFKbcY39yMQ1qjsB3m4w+LVOeMwvRJlSc8sbYZ4rxtjm3CAiMnGN6k6DV3e/9qnm2YUoU2pueSPMc8VkTbKMVY1MXKO6U+HtZH4d6yRkF6JMqbnljTDPFSNwsy5THpm4RnUzwCvwda1Qk1uIMqXmljfCfFfcdE2FV7Vcj4dbLfyt8saa74r1UblFdShTam7J8o1tqPBOM+8VZ16mPDJxjeoW2b41U10jE9cob1W3wjvbKXPLW9Wt8M52ytzyVnUrvLOdMre8Vd0K72ynzC1vVbfCO9spc8tb1V0LvDH2K/8huXMucMqlrKqLrcI7KedCVtXFVuGdlHMhq+piKwVvtWrFrcJbbbNW4a22WavwVtusVXirbdZyw3vz5OzsOX719uxMWvPBb+L4j8/OvnkXlY+eM/KUeJy9OFncaRexqq5imeH9+Pufhpvf/oRe/vw8Lis//tOr58Pbb6PyfiC6xJ0Sr6ciTpZw2rmtqqtaZng/oOvDtfz0409ROcXxH//wizz5KMDQlxp9SrKeijhZ/Glnt6quagViXlLZ8TbBbnFhufjxN9+/Y4IFGv1Jx54SiSlOFn/aRayqKyw/vJ9ePUV/0O0t5scqjkd3qah6soOjTznKK04WfdpFrKorWXZ4Pz57Kt4kRWbRP9IPcksg4pQb9LxVXdny9zbI1UuSNzo8+vmp/CZO3k3FvFVd1TLDK9RFP9hPfwm/WnE8ujPGNEz5vSz2lEhMcbLY0y5gVV3VMsNLuwXRhY8vv4pqF+Dj8e81rkuQ3pfiTyn1RCacdgGr6qpWn7BV26xVeKtt1iq81TZrFd5qm7UKb7XNWoW32matwltts1bhrbZZWxO815+/VN5f3Xu9zIXs0naoboX3VGyH6lZ4T8V2qO7K4L3+/IeHh8PjYbg9P3z251HeuxeHw/jn8rOX40ePlr7CLdsO1V0bvA/vvxku771GUt6e33t99+LBMFyOn108QP9VS7cdqrs6eB/jv/ieNsqM/96ePx4/++GLzd/mFrUdqrs2eFFgNv6D3MFw/cXrywO28Y52iW531dJth+quHV70F9vFYYP3tTXZDtVdKbz4hjb+czU2JbBd3fuv8y06h/XYDtVdKby35w9ok2J0DqPGKDDbQd/OkrZDdVcKr9KZM/qHi1Fl3Daulmo7VHdN8FarFmUV3mqbtQpvtc1ahbfaZq3CW22zVuGttlmr8FbbrFV4q23WKrzVNmsV3mqbtQpvtc1ahbfaZq3CW22zVuGttllLg7dTTX8flJSUKXuSSMksbEFNnWnJGcumFZGswstfLT8aV8sAABvDSURBVGzhtanwUqvw8lcLW3htKrzUKrz81cIWXpsKL7UKL3+1sIXXpsJLrcLLXy1s4bWp8FKr8PJXC1t4bWaCtwUtscwiki0LL6jGnPBKp88sbEFN54EXZtf8vk4UXstPucLrqc1c8IJpxhd2ivASco/jfxGZKrzetIzwNpAZ9G4O3slG0T0e8T/LXAO5juXOjezTK76NeiYGS8Nr0Ls5eMM1AZMYucdjR19MKy89aWnP+/ZsxfCCaYjehDKLqLcAvBxdptFRx/dk4L3553/ZIrwKvacEL0d3kDTS8D0VeD/9+J8kbPjVaAuc32Vj1AB+3jTLB1vM5oWXh7oiheJzlPmdDV65uZhZ2BB7+3S9Me8IL5jWNJ3VKzvKLKLfnPDK6OrwKvhOJDS8L3JZeG++f7dReLtTg1chl6X0vdzTy/CdBi/QeWyHt7C8Tnt7huxptKYzwWtJ013vKcCroUtS+h7RKx1O8J0CL/jkY53wDmvuKnPDKyWfBrxah9iA2e1GeHv5Y6PrIe5U9MlHYK4KrzXNA69IPw14jZSR3aZpRnh7Hd8QOcAk7HQ3BG+SpnPAq4S8ELzdScOLQoYOw6vT2znodZ+KBAzB8I5OusILpwXA28aUWUSyxeDF7CJ4R3o7w/cGyGEm0WAXP3QOylXhtaZZ4EUxXcMPiSiziGRLwUtxRT9j9BC9V/BNg5c11PBD56Bc42EVXjgNfIpGejMbld71wvvh7OzrX/Crj8/OvnkXL7Tov1KAHFlFKQ2DV6U3CV7ex1DhzZAGwEua0hK85KDVwnvzu1+Gt9+iV6hZTF7FCS3glT9FpBJ4SVKj4psCr+gfi4FX+sVYRUCbnLLd9rjhXaGyWmhFPWml4GW9QDK8XQZ4p6jrDxsQwKPj/cMv9FWc0CC8GFMJXp3ewU6vFUPRcZAZ3ku8XWT5vXnDKupNywOvGvKiL4T1AUlBL/lWp8E7SV0/vMTf3nz/bvj4+5+G1EEk8lgOFDMQaxqeRvEln8cO8cXsDiLvMWjoyBjKNPDoE8nuXmBhL/g2vaUsE4Ml4MXoittiIx83Dd5p6vrgvXnyFSJ2+PANgzdOaMDzUgc70JCXpUnON9bztnLwhfMGDZjG8IpjbPI+Ei8Ph9FRXH/xb4d7fx1vbPT9cP1wvPVN9swhFQ1Iyw+vgq4Gr9JT7iqziLp+z0uQFZ43TmgTXhYcDMbDGopvNLyt0uyNgbfzwzve0w6PqLoPxtvc/TfXDx/gqIy/x5uiPpxKb0BFQ9JywcteaehqQe945LSwYZK6AV1lP6MnmBNjXtHZIAJbCV6V3j4KXj6UoRC8pE3xYCBbS9+eP8ZKsr3T0fsvsmw57a1oWFpeeCm6cpoOLzSD1iyziLpueEWw8OnV0ym9DayKUpfCYD6sEc7XSq9xKjEMJwHePgjeAal4/w1SebRHbPtp9n64wOpPNV9FA9Nywsu9rgqvEjc46Q3sKktV1+N5356djTEvcrnT+nlpDeXe3IGFvEr9Cb3h8EojyEgSyZkbXiwnbVVweUUr4/Ych2eTzFPR0LQs8OKQVwoYlHwavIOD3tB+3kR1Z3rCRiqoPEYbOu1RDTWMbyi88uhHGV7tAbGlmYc6G8QxVl3pnyvaHcnkvZK7J8cbXJKSKZrOAy9GtzfTDHi7CfBOU3dOeNURDDZ4uzh49SQxr9N3gWHwDhdIRdR8uHsxOoNRUyYve4+js+kPLdwVDU7LCK98l5TMhNdKb2F154EXt9e00TcKvGr1m2YeeLsQeHGLAjeJUefNqDWTl71HLWbzIVFBTeeAV33MqcGr0Ds4wt7C6s4Fr8FuNzTaQ3JhTWMNekPgJQMmvBcYCu9M5q5ocFp5eDsD3s62rllhdWeDV2cXwauIJZkjbvDBi/KZy7pY4O3XBO+aDD2gtD/lHOE1M8DwlrUZ4dVTMsBrzlVh8B7NJN1WBq+zouFpOTwvDXlt+UzP6y+ziGRrgbfVkqbCa5+DJfKi3vYKL5BG4LXmOzrSbGUWkWw5eJtGHeAhZ5oEb1PhnZjmgdeZZimziGSzwIs6GwB4pTeLwNtVeOE0vb1mwgsvSOIos4hksyxxiiJ3PgySmTIaUYvtcdAbWLBiKNdY8Pift7UwHuAfEDnae9ACMkZaGmdxieuDd5K6M3le0/HqnldxlPYWm3Iqs0uBhLzGUoaw5+2DPO9pwquOJDPgDVsV8UTg1Vmzxg1+eBsC79HoRdOswmtLM0JeI9+pw9uUg7czHlMAF0hHold4zbQKr5Tkb69VeLcGb2NNg/MVUXe18FqCXg1e+bndwENeY/1uEN6uwgunGe2104bXG/KqLbZAeLWHzgMPeSu8k9KM9hoA79GaBucrou5S8Gohr3GXt8UNAfCS4pUWGwhvX+GF0zC87nynDq+WKRleedCpDG9XGF4ya/v6yzfXD6dPo4jStDC8Zsi7ALxc3fEfMosNmMy2bXh7FV4e8vrhZdPeJ/iGy0f4HzTK/zLDqg6OirpEiErcDrxMXTSeF7uGK8BDzACvpb1mwKuwZgt6dXg7eUYnD3n1oHcSvL1hRF7kFu7++BL9uf3uZZKOaZquAt6jNQ3Ml6rucPHZD8jl0j+qzQIvGPLqmaLhpeXq8LIT+ODtpsKLpEVRw/7g1dtrQL7i8FJ1h4XDBhheI5PGmiVuiIBXarFB8PZTwwZ0Uxv/w2HD9FlASsXa0IVoIhPD4fXlywavR91hArw3T87oBqNo65qvkxYdKQ4vn+I6M7zXX/5tdA9oPaL/g/5ONPnaWnBbGEiEuMQtwUvVTYcXLThy81u8yNPPz6XPwzUpCi/hVl5bspHg7dzwkiOnyHv3p79+SRpqt/8wvbtBEcdNcFF4gZAXhDdgx8c86qbC+wGtkYOx/fTjT9Ln4ZoMYHutAeFVWAuDF/3li59JjlcLeo0L5GvsTeqJvPzNeF9D8e5l2oo5H6SbmQJvw7ppYIBXAG9THF6i7jAt5iXLPX18dkYDiNglTkdO3GN5xYHqIZ4hvePhtFxpYVRRsHtIb9DqpsQc8pLlBK4Oh7SeMrF0NzKZDPm3DQBcGl69vQblKw8vW6xhArxokTIk9Bg8CO8brslgixogb6iUB7veQT6clpvkebsMnjeDwYsX6p0xGr6F4TXXHVgEXr/54P347Kl4w+PecE1KwttzeMmCv2j9Qhle0WIDztWvA17ieY27WWPeF+baan08T8gslmPsAuCwlYT35oncTssFb2OBV2EtBF76krxQHK/aYlsrvGzpblNTY+yH52k3pFBaWqDn5d/Oaj2vYBctdvrpLyldZSC8YKYJ8KJXKrxK3ADASw9d2vNaF+x2jVwqCS/UXtsmvGRf8ue4ZYEXO4WFdsGL22t6xcPghZ6xyb2RotxYeMWC/kvDa7+b6fQai7labDq8Rnttm/DaLFyTwRbyeuGFXa8Eb2/A25SAt5x59vkw6TVEgCwHvCH58sA7yZaAt8kFL/8Uc6ytNy+32IAHImvwvJ67mXWaX1l4gUUOYXiPEecrou4y8MKZtAX6I+DtyGLqEfD2a4DXp6lKb2sP4UGF0tKC4W0qvIpFwKsVO7peHV45btgovAa9mgigVXgThLZc/hR4gRabBd4OwdtEwMsOXTe8lgXdCsILttdOFV6gs6EJhBd0vQLeHoBXO48NXmn3wJXDq9A7G7xB+Roa9O4aXovjheFVdlTzwSt/vld4ZXr1Tbtgmwte5norvOJoKSkG3g6PytHPc1QLlE6zGXhVevWLBmwqvNCOChVeXukM8JrFGiGv7HoNePvtwCvRW+FVbX54m2B4Oxe8+h4XRtRQGl59cvbteeLISK+m0maLYHWsGRPSxojK+VBeMhr0loFXVxdtn23sxVZ4fV5gMK9rHG2rj+m1DV1C8KqfHM0ButYhvaizwX4Rmll9gzo5G6mdOCadmIMXfavQcvDCIa8F3qYgvJq6aMS/uRmbDO/teeg8wmBNwM4GRyby7YjGim2IiBHyxnheqb0WIm9j2HtgcjaaCeTcQtunLlxRVpNGkmdX8Iape4XcwoXuelXPexE4KSBYE3vImxleIOSVWmxF4FUnZwfMgHerC1eUV6UR8qwE3q4ovMbUd0BdPWwYI7fDI9c34BdaNnvIOwleOOQFBgBZ4O1j4LU2KZTJ2Vf3A5ZvcKkLVlSTrYWq484Ylwa310rCG6bugKJgQzkz5kUC+9beCtYEgteVSftyXPCqn1vg1QtkubPAq0zODlx7xK4uWFFdt/Lwetcpki4Jt9hKwatNfb89N3/1OryXh8MYXlx4godgTUzKfPC2cpLpevPAKyKMKfIqk7O9Ma9PXe3aDXmo67VKZ80YkxYHb1MSXnXq+/VDYN93BV60VzE+5srjekM1cbTXLJkmwDsYO8QWhleZnI3uau7eBo+6mhCmPCJuKAavJeRdBF5FXZBdrbchdKnOUE3w9HStwkXgxR1lUNvwaH7bcnttmrzK5GxfP69PXbkyIBPC9a4E3q4svLK6eG94o6O37EMKCF53piB44fbaYG7OzVpsheDNanJl0NRcU5s1wnssB6/f1gdvKyfZ4VU/JvBCrheCt18jvLIdCb+aoScrZSfAo5A34nD7Q6RgWzW81pDXlkmDV6fXDm+3cXj1Ch2PhhNsjB83YNM8b8A2NtL1NDv2vGZ7rSkD75Huga3HDRZ4pccZa4W3G3oTX7YWRYWX2Ozw+jJNghfoVN4svGNlDHwLw2sLeV3wQsE5kK+IusHr8358dvbNO7vQoDkeUUyB1zKwgcCrn++of9tKey1A3rlM0wG/1/HFP8Z2NfDir2cavJMsdH3eT6+ewysauuqWBq/y5QTDy75u0PVOgXc5z4vrowa/xPWWgxdmtyC8BT2vWJ/34x9+saxo6Kibq73mIr4wvP2G4NXwJfXZCrzynkEl1A1dn/fme7a6S8T6vMaoW2DxQyCTmsPsjTGKlcby9moSMKQXw+u9CmFLw0vm5zF81wcvnAPZcXF46fq8nqWJQHO210I9r+Z6qefVVRLLTqpnBD0vfBVF5I0wTQblPcGXVMiz2crM8IKD0Igd5Tn0RdQNXZ9XeF6f0MJS4W3d8FqiBg6vnEgfEG8dXoovrlFXDF7ErrFkgzOfB95+6d4GuohhSszrbK85H8vJWSLhNVyvBq/aXtsMvCT27YjrLQhvZD7bRqUdZnfZBptYnxdFD7G9DQa8zRLwdjuBt6PrBzWOPa7gjKFpWeHVRhcVUTd4fd6Efl7csFKrGiKIBq8qDwTvUdmJ1YgbdHj7jcJL6UWu1yadJWNgWiK8YB59ZnERdQs+YSMzh9WqhggSAK8ulLJ+1Ezw6pOzr/wTUKZqSgOHVcELB720sZZPXTQm0pB3lfDKX44Bry1qkOCV0gF4LVcRK682ORuPOi009V2q6bEsvHB7LRpe1tGQTV1z5jCyovB2KrxNGLyd+uVEw6u73qPiyuPhPRr2HtqXfAC3CsurKWm0uYPeZHjtjjcWXt5Jlk3dO3B/3HnhDRIkN7xKHKK116bIa07OLu55Cb1u1zsrvHDQy3vcsqmL5q3mWjEnqG6YsgzwKvQO1pC3GLzWJoU2Ofv64aS93zURLPJgelcF72DkEr3F2dRFU4JM77s5eK2OVyrQCHplePts8Or7kodMfZ+oKelycMYNi8MrueKs6vpWzMkpNHm+JiU1ofB2jhZbELydC17bVcTLq+9LbmlWZNQU1+14HErBa2mvRcGrjGgQr0qoOyu8gYJ06peTAq9C71EqLie8yuTsoBVzNBOjpQM1pfU9loI3Ph+GV853VIM8/mq6und/mq+rjDxfS4O3c8KrHc2S5QLngVeZ+n55OETGvGK0dKimrMIl4HVEDW54lf6Go9a85q9KqFsSXuT/UuGVvh0PvMzxqvCKg6TV/c322qJP2MRo6VBNWZVdQe+88OqdZerQnsLqllufVx91GzKWV84tZZSG9IIL8wL5xUHKkF4Mb8RlDPPsPRwxRhpZfywwAz5y2jszHDfwd2gkWZQtAG/ID1P3vPoKpE7P23UW12sPedUCxVGa5+3X43kHPlo6VFOW1qPtrW2JroyONEd7zet52fej9/mu0vMG1I0O5k2HV9DrgxcsUI4bRIyoh7wLw8tGSwdqKtIcccMEeFPyIT3ZV2A8r9guvN0keDsrvNrBNngl17tWeMWI0zBNpTQ7asvBaz5r2y68vTquKBpeTq8TXh416AWCcUMCvOVMYTce3tgRYO40V3vNWSZvsQHPiQurOxu8xqL7PngFcdJjCkfIGwKv0dmwqOelo6XDNZXSEGtx8808aZPhha5nL57XaGB44e0A1+sIeQ142YGrhTdaUymttdKbDm9SPt5ic28HUETdUvCyyZcsyXC8IfBy1yvDqx1rhVd2vQLefifwdnh1m4jlSH1pU+BFXwI4d3Mv8MYIwpIYc4nwCtfLWmxGyLtleKE9FgMyWmwivL4fUhF1y8Hby2PpTccbAm/nh1eEvGaBO4e3hWc/LgWvO18RdeeBF2A3DN6WZqfauEJeAF56LH7GRvPvBl7qel2NJEtG0JztNXeZymMKW74i6s4Eb5wgIonRK+DVDnXB2+nwmu21jcML0ZsMb1I+Aq8/XxF1Z4EXrF4QvN00eDm9+4S3azpzFs3RFoA6C90nvGyZHNQp+XXwijl8pScCb6QgMryYOiu8UsgLFcjhJUGv2dkwQV59cjb7JNXC5WHwtrSbKpze7cCrq3v3ImFI5AdG7M9RT4MUeOHahcFL6LXBaxn5zI26XgGv41FJrLz65Gw05nROeKnrhRO9rX/d1gYvMPX9ytgpzAPvz1/9B/G8n378SfrYWzfessLwxgqiJEnwau017RuCCmTwdhPgbQ17D059v/77X88Pr60XB6Z3hfCGqYv2FzUtNGz4+Iw9yQwaeyoPu40dQGsUhcrAY0bHUqUE9P34MpOrYEN6EbzR57fKq019v/vjv88aNpCRZfYuSAhfa6Eju4ldbGOand4J8KrqXn/5rykzKSi8aLqK8L7eusme11K1UM9LPAz+IhC8/OOjHO9aC2SuFxUCtNcmNSnUqe+Xj+aNeW2ul2cE6F0hvGHqou1bCcqyBTfYkAVPWREr89qrFgxvB8JrsGuBF19GGXj1Xd+XgNc54MnAd0vw6uoC01uLw2utWQS8rQmvya6lQAovarEBIe8keZXJ2WR33Ec+Oe0WLo8Gr+M3rNO7JXgVdW//cQq8aFn/T38J7SoTLashZbqKnkThRX0NNAlg1wYvupAy8CqTs4e5u8po0GvQq2b0t2lpUauDV1X3IjlsQP+/PTv7inc4+Oom4A2pmDeJul4O7xFi11YggbcrAa8yOXt+eFknuHMxF8X5OuBNfDJXEF5F3dtzYAHZMk/YJHhTBAHKk+GF2bXC2+PgpQS8WS1cHg1ez+qbMr22QlFHWTq8dnoLq1sY3qA+wIAkGd7j0Wx3uQpk8ELttRXBm2AtnQHv6QD09ymiqGGCTegMXR+8or3W2BGNg7eliyMOVnbt8PYI3uPa4Q2XR6TxAc/uvT64862e1y80XwKgyQUvKhI/Gx6s7NoL5PA6RxUXkTefpmCagNc5xIPjW+H1Cy2iBke14+DtKLyY3Vh4+wG32PYLr0wvnJHQa4c38IRw2i7hbXLCOxreB9LGrqPAfiA7RybBO5eFyyPDa9Jry4gjX0vacvBOsonwmk+midHeVVe1I+FtyHxZO7unCK+8uAWrnDWjfZgvHpUzAd6Ap6hFJCsDL2mvNc5qx8J7xHO97ey64O0xvFCwvBt4uTKOjDZ8TxRe21Bo5nhzwuth11VgT2bM7BFeg15XRssw9Qqvwi5zvPng7XzsOuHtEbzuaaCZhU3X1FsbOU1ZyNjjLmhHo4kvLuRk4PUZGkY7cRivYU3Txy3xKxvqb8h+RXktkheZO2aNu5XR8eeTGr4Z4IVtlfD66oY8ry8Ci/W8WI3oXDQJuV7PBPzMwmbXFE7Td05yKkTTDHwrvLLhFpKn2inwxudiSfuFt9Uih5CMKr5kCtAUeP1pRSQrAq9wvHnhTcjFknocdbgyZRY2t6a2NNbBw1UKyyjjW+GVTTjejPBOTNorvMhkfl1NWiWjwJfsEVDhJdYLTlYDbw/3VOwCXmQM4IgOGYYvwb7CS2yE11+1meG1fKu7gbcTEUR4VzjB91Th7WHzDRPxVLrCm8yL7Xm92yaccIfwBlStwmvR1FsbZ1o3xAPsfTK3T3htHXwBVavwWjT11sYHr/VbsdqUE+4O3pCqzQ+vO1NmYdM19dbGC28svZNOuF14vde/Hnh9KZmFDTNpVYzw2vjhXV9aEfUqvPzVAvZBrBpb4Y234BVzPj47++ZdvNAVXofxNTjjNK3wUgtdn/fTq+fD22/jha7wOo26hshd36sRC12f9+MffpECtLzYLJm0DnjjNK2el1rwEqffvxs+/h6t91S9REar8E6xmIX2CLxxlsR52o9jxlNlM3kNznBLvujUjHPnC7R4zxtnFV6nVXinWPCy/krMG24VXqdVeKdYKLyfXj2VehvCrcJbwCq8xILX51X6eatVW4GVmT1crdoMVuGttlmr8FbbrFV4q23WSsF784RumKnuuO02cWhE8xBloucKPxXuQxEn2UhrNElU9fComiZJO8ynbiF40fMMtGnmoO247TZ+qDoMyG8fiDjBp8LDjcRJYk+3kKWJqhweX9NYaYcZ1S0E7wd0sbjC6o7bThOHRj4SoY/+gk9FhhuJk6Q+gZnZkkQdhgnCxks7zKluwZiX1FvsuO3PwA+NfBhNf9cRp8K91/wkqc++F7BoUYdhgrAp0g7zqVsOXvRMbtB33HaaODRuGBA7MuZUo7ziJKmjjua3eFHVw2NrmiDtMJ+6xeD9+OypeBMb98b9WD/IzYGwU23U86aKyg+PrWmCtMP2Pe/NE7mmsfDGhUk/P5XfBMO7uZg3XVR+eGxNE6Qd5lO3ELxCZnXHbaeJQ6OGAfHbWcSpkJjiJKmjjma2JFHVwyNrmiLtMJ+6heClPYTGjtveXOOhscOA6M0p6lRST+R2Rh2liUpzJgibJu0wn7r1CVu1zVqFt9pmrcJbbbNW4a22WavwVtusVXirbdYqvNU2axXeapu1lcF7/flL5f3VvdfLXMjebJfCVnhPw3YpbIX3NGyXwq4P3uvPf3h4ODwehtvzw2d/HjW+e3E4jH8uP3s5fvRo6SvcqO1S2BXC+/D+m+Hy3muk5+35vdd3Lx4Mw+X42cUD9F+1JNulsGuE9zH+i29so9b47+354/GzH77Ywb1uGdulsCuEF0Vn4z/IJwzXX7y+PGAbb2uX6J5XLcl2KewG4EV/sV0cNnlzW4XtUtj1wovvauM/V2N7AtvVvf8636aHWIHtUtj1wnt7/oC2K0YPMQqNorNddPAsYrsUdr3wKj06o5O4GKXGDeRqCbZLYVcGb7Vq4VbhrbZZq/BW26xVeKtt1iq81TZrFd5qm7UKb7XN2n8DY9rA8A+QyUIAAAAASUVORK5CYII=" /></p> | + | |
- | <!-- rnb-plot-end --> | + | |
- | <!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuI3Bsb3QgdGhlIHRpbWUgc2VyaWVzIHRoYXQgYXJlIGdyb3VwaW5nIGluIHNhbWUgY2x1c3RlclxuYGBgIn0= --> | + | |
- | <pre class="r"><code>#plot the time series that are grouping in same cluster</code></pre> | + | |
- | <!-- rnb-source-end --> | + | |
- | <!-- rnb-chunk-end --> | + | |
- | <!-- rnb-text-begin --> | + | |
- | <!-- rnb-text-end --> | + | |
- | + | ||
- | <div id="rmd-source-code">LS0tDQp0aXRsZTogIlRpbWUgU2VyaWVzIENsdXN0ZXJpbmcgVXNpbmcgU2VsZi1Pcmdhbml6aW5nIE1hcHMiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KU2ltaWxhcml0eSBEaXN0YW5jZXMNCg0KDQpgYGB7cn0NCmxpYnJhcnkoem9vKQ0KbGlicmFyeShrb2hvbmVuKQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShkdHcpDQpgYGANCg0KYGBge3J9DQoNCiMgVHdvIHRpbWUgc2VyaWVzDQpYIDwtIGMoMSwxLDEsNCw0LDQsNCw0LDEsMSkNClkgPC0gYygxLDEsNCw0LDQsNCw0LDEsMSwxKQ0KDQojIEV1Y2xpZGVhbiBkaXN0YW5jZQ0KVFNkaXN0OjpEVFdEaXN0YW5jZShYLCBZKQ0KDQoNCiMgRXVjbGlkZWFuIGRpc3RhbmNlDQpUU2Rpc3Q6OkV1Y2xpZGVhbkRpc3RhbmNlKFgsIFkpDQoNCiMgRFRXIGRpc3RhbmNlDQphbGlnbm1lbnQ8LWR0dzo6ZHR3KFgsIFksIGtlZXAuaW50ZXJuYWxzID0gVFJVRSwgc3RlcD1zeW1tZXRyaWMxLCBrPVQpDQoNCnBsb3QoYWxpZ25tZW50KQ0KDQpwbG90KGFsaWdubWVudCx0eXBlPSJ0aHJlZXdheSIpDQoNCmFsaWdubWVudCRsb2NhbENvc3RNYXRyaXgNCmFsaWdubWVudCRkaXN0YW5jZQ0KYWxpZ25tZW50JHN0ZXBzVGFrZW4NCg0KcGxvdChhbGlnbm1lbnQkaW5kZXgxLGFsaWdubWVudCRpbmRleDIsbWFpbj0iV2FycGluZyBmdW5jdGlvbiIpOw0KDQpwbG90KGR0dzo6ZHR3KFgsIFksIGtlZXAuaW50ZXJuYWxzID0gVFJVRSwgc3RlcC5wYXR0ZXJuID1yYWJpbmVySnVhbmdTdGVwUGF0dGVybig2LCJjIikpLA0KICAgICB0eXBlPSJ0d293YXkiLG9mZnNldD0tMikNCg0KZHR3UGxvdFR3b1dheShkdHcoWCwgWSwgc3RlcCA9IGFzeW1tZXRyaWNQMSwga2VlcCA9IFQpKQ0KDQpyYWJpbmVySnVhbmdTdGVwUGF0dGVybig2LCJjIikNCnBsb3QocmFiaW5lckp1YW5nU3RlcFBhdHRlcm4oNiwiYyIpKQ0KDQojIFBsb3QNCnpvbzo6cGxvdC56b28oY2JpbmQoWCwgWSksIHBsb3QudHlwZSA9ICJtdWx0aXBsZSIsIGNvbCA9IGMoInJlZCIsICJibHVlIiksIGx3ZCA9IDIpDQoNCg0KI0NyZWF0ZXMgdGltZSBzZXJpZXMNCnRzMV94IDwtIGMoMSwyLDMsNCw1LDYsNyw4LDksMTApDQp0czFfeSA8LSBjKDEsMSwxLDQsNCw0LDQsNCwxLDEpDQp0czEgPC0gem9vOjp6b28odHMxX3ksIHRzMV94KTsNCg0KI0NyZWF0ZXMgdGltZSBzZXJpZXMNCnRzMl94IDwtIGMoMSwyLDMsNCw1LDYsNyw4LDksMTApDQp0czJfeSA8LSBjKDEsMSw0LDQsNCw0LDQsMSwxLDEpDQp0czIgPC0gem9vOjp6b28odHMxX3gsIHRzMV95KTsNCg0KYGBgDQpQbG90IHRpbWUgc2VyaWVzDQpgYGB7cn0NCnpvbzo6cGxvdC56b28oY2JpbmQodHMyX3ksIHRzMV95KSwgcGxvdC50eXBlID0gIm11bHRpcGxlIiwgY29sID0gYygicmVkIiwgImJsdWUiKSwgbHdkID0gMikNCg0KVFNkaXN0OjpFdWNsaWRlYW5EaXN0YW5jZSh0czFfeSwgdHMyX3kpDQoNClRTZGlzdDo6RFRXRGlzdGFuY2UodHMxX3ksIHRzMl95KQ0KYGBgDQoNClJlYWQgdGhlIHRpbWUgc2VyaWVzIGZyb20gY3N2IGZpbGUgYW5kIHBsb3QgYWxsDQoNCmBgYHtyfQ0KI3JlYWQgdGltZSBzZXJpZXMgZnJvbSBmaWxlDQp0aW1lc2VyaWVzLnpvbyA8LSByZWFkLnpvbygidGltZXNlcmllcy5jc3YiLCBoZWFkZXIgPSBUUlVFLCBzZXAgPSAiLCIpDQoNCiN6b286OnBsb3Quem9vKHosIG1haW4gPSAiU2V0IG9mIHRpbWUgc2VyaWVzIikNCg0KI0RlZmluZSBhIGNvbG9yIGZvciBlYWNoIGdyb3VwICg0IGdyb3VwcykNCmNvbG9yczwtYygiI0ZGMDAwMEZGIiwiI0ZGMDAwMEZGIiwiI0ZGMDAwMEZGIiwiI0ZGMDAwMEZGIiwNCiAgICAgICAgICAiIzAwRkY5RkZGIiwiIzAwRkY5RkZGIiwiIzAwRkY5RkZGIiwiIzAwRkY5RkZGIiwNCiAgICAgICAgICAiIzAwOUZGRkZGIiwiIzAwOUZGRkZGIiwiIzAwOUZGRkZGIiwiIzAwOUZGRkZGIiwNCiAgICAgICAgICAiI0RGRkYwMEZGIiwiI0RGRkYwMEZGIiwiI0RGRkYwMEZGIiwiI0RGRkYwMEZGIikNCmBgYA0KDQoNCmBgYHtyfQ0KDQojUGxvdCBhbGwgdGltZSBzZXJpZXMNCnpvbzo6cGxvdC56b28odGltZXNlcmllcy56b28sIHBsb3QudHlwZSA9ICJtdWx0aXBsZSIsIGNvbCA9IGNvbG9ycywgbHdkID0gMiwgbWFpbj0gIlNldCBvZiB0aW1lIHNlcmllcyIpDQoNCmBgYA0KDQpTZWxmLW9yZ2FuaXppbmcgbWFwcyB1c2luZyBLb2hvbmVuIHBhY2thZ2UNCmBgYHtyfQ0KIyBTT00NCnNvbWdyaWQ9a29ob25lbjo6c29tZ3JpZCh4ZGltPTQsIHlkaW09NCwgdG9wbz0icmVjdGFuZ3VsYXIiLCBuZWlnaGJvdXJob29kLmZjdCA9ICJnYXVzc2lhbiIpDQpzb208LWtvaG9uZW46OnN1cGVyc29tKHQoYXMubWF0cml4KHRpbWVzZXJpZXMuem9vKSksc29tZ3JpZCxybGVuID0gMTAwLCAgYWxwaGE9MSkNCg0KDQpgYGANCg0KDQpgYGB7cn0NCnBsb3Qoc29tLCJjb2RlcyIsY29kZVJlbmRlcmluZz0ibGluZXMiKQ0KYGBgDQpUaGUgdGltZSBzZXJpZXMgd2VyZSBhbGxvY2F0ZWQgaW4gdGhlc2UgbmV1cm9ucy4NCkVhY2ggbnVtYmVyIHJlcHJlc2VudHMgdGhlIG51bWJlciBvZiBuZXVyb24uDQoNCkV4YW1wbGU6IHRoZSBwb3NpdGlvbiAxIG9mIHZlY3RvciByZXByZXNlbnRzIHRoZSB0aW1lIHNlcmllcyAxIGluIGEgZGF0YXNldCwgdGhpcyB0aW1lIHNlcmllcw0Kd2FzIGFsbG9jYXRlZCBpbiBuZXVyb24gOS4NCg0KYGBge3J9DQpuZXVyb25fdGltZXNlcmllczwtc29tJHVuaXQuY2xhc3NpZg0KDQppbmZvX3RpbWVTZXJpZXM8LSBkYXRhLmZyYW1lKHRpbWVfc2VyaWVzPShyb3duYW1lcyh0KHRpbWVzZXJpZXMuem9vKSkpLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmV1cm9uPWFzLmludGVnZXIoc29tJHVuaXQuY2xhc3NpZikpDQogICAgICAgICAgICAgICAgICAgICAgICANCmNvZGVzPC16b286Onpvbyh0KHNvbSRjb2Rlc1tbMV1dKSkNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQpgYGANCg0KDQpgYGB7cn0NCg0Kem9vOjpwbG90Lnpvbyhjb2RlcywgcGxvdC50eXBlID0gIm11bHRpcGxlIiwgY29sID0gImJsYWNrIiwgbHdkID0gMiwgbWFpbj0gIldlaWdodCBvZiBuZXVyb25zIikNCiNwbG90IGFsbCB0aW1lIHNlcmllcyAobmV1cm9ucykNCmdncGxvdDI6OmF1dG9wbG90KChjb2RlcyksIGZhY2V0ID0gTlVMTCkgKyB5bGFiKCJ5IikgK3hsYWIoInRpbWUiKSArIGdlb21fbGluZShzaXplID0gMSkgKyBnZ3RpdGxlKCJXZWlnaHQgb2YgbmV1cm9ucyIpDQoNCg0KDQpsaWJyYXJ5KHByb3h5KQ0KbGlicmFyeShzdGF0cykNCg0KIyMgdXNlIGhpZXJhcmNoaWNhbCBjbHVzdGVyaW5nIHRvIGNsdXN0ZXIgdGhlIGNvZGVib29rIHZlY3RvcnMuDQojIEN1dCBkZW5kcm9ncmFtIGluIDQgZ3JvdXBzDQpoYyA8LSBzdGF0czo6aGNsdXN0KGRpc3QodChjb2RlcykpLG1ldGhvZCA9ICJ3YXJkLkQyIikNCg0KI0N1dHMgYSB0cmVlLCBlLmcuLCBhcyByZXN1bHRpbmcgZnJvbSBoY2x1c3QsIGludG8gc2V2ZXJhbCBncm91cHMgZWl0aGVyIA0KI2J5IHNwZWNpZnlpbmcgdGhlIGRlc2lyZWQgbnVtYmVyKHMpIG9mIGdyb3VwcyBvciB0aGUgY3V0IGhlaWdodChzKS4NCnNvbV9jbHVzdGVyIDwtIHN0YXRzOjpjdXRyZWUoaGMsIDQpDQoNCmxpYnJhcnkoZGVuZGV4dGVuZCkNCiNwbG90IGRlbmRyb2dyYW0NCmRlbmQgPC0gaGMlPiUgYXMuZGVuZHJvZ3JhbSAlPiUNCiAgc2V0KCJicmFuY2hlc19rX2NvbG9yIiwgayA9IDQpICU+JSBzZXQoImJyYW5jaGVzX2x3ZCIsIDEuMikgJT4lDQogIHNldCgibGFiZWxzX2NleCIsIDAuOCkgJT4lIHNldCgibGFiZWxzX2NvbG9ycyIsIGsgPSA0KSAlPiUNCiAgc2V0KCJsZWF2ZXNfcGNoIiwgMTkpICU+JSBzZXQoImxlYXZlc19jZXgiLCAwLjUpIA0KZ2dkMSA8LSBhcy5nZ2RlbmQoZGVuZCkNCmdncGxvdChnZ2QxLCBob3JpeiA9IEZBTFNFKSArIGdndGl0bGUoIkRlbmRyb2dyYW0iKQ0KDQojQ2x1c3RlciBpcyBjcmVhdGVkIGJ5IGEgc2V0IG9mIG5ldXJvbnMuIA0KY2x1c3RlcjwtZGF0YS5mcmFtZShjbHVzdGVyPXNvbV9jbHVzdGVyLG5ldXJvbj0gMTpkaW0oY29kZXMpWzJdKQ0KDQojVGltZXNlcmllcywgbmV1cm9uIGFuZCBjbHVzdGVyDQpjbHVzdGVyX2luZm88LW1lcmdlKGNsdXN0ZXIsaW5mb190aW1lU2VyaWVzLCBieT0ibmV1cm9uIikNCmNsdXN0ZXJfaW5mb1tvcmRlcihjbHVzdGVyX2luZm8kdGltZV9zZXJpZXMpLF0NCg0KDQojZ2V0IHRoZSBuZXVyb25zIHRoYXQgY29ycmVzcG9uZHMgZWFjaCBncm91cA0KbmV1cm9uX2dyb3VwMTwtd2hpY2goc29tX2NsdXN0ZXI9PTEpDQpuZXVyb25fZ3JvdXAyPC13aGljaChzb21fY2x1c3Rlcj09MikNCm5ldXJvbl9ncm91cDM8LXdoaWNoKHNvbV9jbHVzdGVyPT0zKQ0KbmV1cm9uX2dyb3VwNDwtd2hpY2goc29tX2NsdXN0ZXI9PTQpDQoNCiNQYWludCBuZXVyb25zIGFuZCBwbG90IHNvbSB3aXRoIGdyb3VwcyBzZXBhcmF0ZWQgYnkgaGllcmFyY2hpY2FsIGNsdXN0ZXJpbmcuDQpwbG90KHNvbSwgdHlwZT0iY29kZXMiLGNvZGVSZW5kZXJpbmc9ImxpbmVzIiwgYmdjb2wgPSB0ZXJyYWluLmNvbG9ycyg0KVtzb21fY2x1c3Rlcl0sIG1haW4gPSAiQ2x1c3RlcnMiKQ0KcGxvdChzb20sIHR5cGU9Im1hcHBpbmciLGNvZGVSZW5kZXJpbmc9ImxpbmVzIiwgYmdjb2wgPSB0ZXJyYWluLmNvbG9ycyg0KVtzb21fY2x1c3Rlcl0sIG1haW4gPSAiQ2x1c3RlcnMiKSANCmtvaG9uZW46OmFkZC5jbHVzdGVyLmJvdW5kYXJpZXMoc29tLCBzb21fY2x1c3RlcikNCg0KI1Bsb3QgdGhlIHdlaWdodCB2ZWN0b3Igb2YgbmV1cm9ucy4gDQojQXJlIHRoZXkgc2ltaWxhciB3aXRoIHRoZSB0aW1lIHNlcmllcyBzZXQ/DQp2MTwtZ2dwbG90Mjo6YXV0b3Bsb3QoY29kZXNbLG5ldXJvbl9ncm91cDFdLCBmYWNldCA9IE5VTEwpICsgeWxhYigieSIpICsgZ2VvbV9saW5lKHNpemUgPSAxKSANCnYyPC1nZ3Bsb3QyOjphdXRvcGxvdChjb2Rlc1ssbmV1cm9uX2dyb3VwMl0sIGZhY2V0ID0gTlVMTCkgKyB5bGFiKCJ5IikgKyBnZW9tX2xpbmUoc2l6ZSA9IDEpIA0KdjM8LWdncGxvdDI6OmF1dG9wbG90KGNvZGVzWyxuZXVyb25fZ3JvdXAzXSwgZmFjZXQgPSBOVUxMKSArIHlsYWIoInkiKSArIGdlb21fbGluZShzaXplID0gMSkgDQp2NDwtZ2dwbG90Mjo6YXV0b3Bsb3QoY29kZXNbLG5ldXJvbl9ncm91cDRdLCBmYWNldCA9IE5VTEwpICsgeWxhYigieSIpICsgZ2VvbV9saW5lKHNpemUgPSAxKSANCmdyaWRFeHRyYTo6Z3JpZC5hcnJhbmdlKHYxLCB2Mix2MywgdjQsIG5jb2w9Mixucm93PTIsIHRvcD0iV2VpZ2h0IG9mIE5ldXJvbnMiKQ0KDQoNCiNwbG90IHRoZSB0aW1lIHNlcmllcyB0aGF0IGFyZSBncm91cGluZyBpbiBzYW1lIGNsdXN0ZXINCg0KDQoNCmBgYA0KDQoNCg==</div> | + | |
- | + | ||
- | + | ||
- | + | ||
- | </div> | + | |
- | + | ||
- | <script> | + | |
- | + | ||
- | // add bootstrap table styles to pandoc tables | + | |
- | function bootstrapStylePandocTables() { | + | |
- | $('tr.header').parent('thead').parent('table').addClass('table table-condensed'); | + | |
- | } | + | |
- | $(document).ready(function () { | + | |
- | bootstrapStylePandocTables(); | + | |
- | }); | + | |
- | + | ||
- | $(document).ready(function () { | + | |
- | $('.knitsql-table').addClass('kable-table'); | + | |
- | var container = $('.kable-table'); | + | |
- | container.each(function() { | + | |
- | + | ||
- | // move the caption out of the table | + | |
- | var table = $(this).children('table'); | + | |
- | var caption = table.children('caption').detach(); | + | |
- | caption.insertBefore($(this)).css('display', 'inherit'); | + | |
- | }); | + | |
- | }); | + | |
- | + | ||
- | </script> | + | |
- | + | ||
- | <!-- dynamically load mathjax for compatibility with self-contained --> | + | |
- | <script> | + | |
- | (function () { | + | |
- | var script = document.createElement("script"); | + | |
- | script.type = "text/javascript"; | + | |
- | script.src = "https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML"; | + | |
- | document.getElementsByTagName("head")[0].appendChild(script); | + | |
- | })(); | + | |
- | </script> | + | |
- | + | ||
- | </body> | + | |
- | </html> | + | |
- | + | ||
- | </html> | + |