BiomedEngX/CircosHeatmap-aardio
2
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 3 Wiki Activity
CircosHeatmap-aardio/dist/lib/r-library/dendextend/doc/Quick_Introduction.html
freefire 6c0061699c add 结构调整
2025-01-12 04:36:52 +08:00

430 lines
111 KiB
HTML
Raw Permalink Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<meta name="generator" content="pandoc" />
<meta http-equiv="X-UA-Compatible" content="IE=EDGE" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<meta name="author" content="Tal Galili" />
<meta name="date" content="2024-11-15" />
<title>Quick Introduction</title>
<script>// Pandoc 2.9 adds attributes on both header and div. We remove the former (to
// be compatible with the behavior of Pandoc < 2.8).
document.addEventListener('DOMContentLoaded', function(e) {
var hs = document.querySelectorAll("div.section[class*='level'] > :first-child");
var i, h, a;
for (i = 0; i < hs.length; i++) {
h = hs[i];
if (!/^h[1-6]$/i.test(h.tagName)) continue; // it should be a header h1-h6
a = h.attributes;
while (a.length > 0) h.removeAttribute(a[0].name);
}
});
</script>
<style type="text/css">
code{white-space: pre-wrap;}
span.smallcaps{font-variant: small-caps;}
span.underline{text-decoration: underline;}
div.column{display: inline-block; vertical-align: top; width: 50%;}
div.hanging-indent{margin-left: 1.5em; text-indent: -1.5em;}
ul.task-list{list-style: none;}
</style>
<style type="text/css">
code {
white-space: pre;
}
.sourceCode {
overflow: visible;
}
</style>
<style type="text/css" data-origin="pandoc">
pre > code.sourceCode { white-space: pre; position: relative; }
pre > code.sourceCode > span { line-height: 1.25; }
pre > code.sourceCode > span:empty { height: 1.2em; }
.sourceCode { overflow: visible; }
code.sourceCode > span { color: inherit; text-decoration: inherit; }
div.sourceCode { margin: 1em 0; }
pre.sourceCode { margin: 0; }
@media screen {
div.sourceCode { overflow: auto; }
}
@media print {
pre > code.sourceCode { white-space: pre-wrap; }
pre > code.sourceCode > span { display: inline-block; text-indent: -5em; padding-left: 5em; }
}
pre.numberSource code
{ counter-reset: source-line 0; }
pre.numberSource code > span
{ position: relative; left: -4em; counter-increment: source-line; }
pre.numberSource code > span > a:first-child::before
{ content: counter(source-line);
position: relative; left: -1em; text-align: right; vertical-align: baseline;
border: none; display: inline-block;
-webkit-touch-callout: none; -webkit-user-select: none;
-khtml-user-select: none; -moz-user-select: none;
-ms-user-select: none; user-select: none;
padding: 0 4px; width: 4em;
color: #aaaaaa;
}
pre.numberSource { margin-left: 3em; border-left: 1px solid #aaaaaa; padding-left: 4px; }
div.sourceCode
{ }
@media screen {
pre > code.sourceCode > span > a:first-child::before { text-decoration: underline; }
}
code span.al { color: #ff0000; font-weight: bold; }
code span.an { color: #60a0b0; font-weight: bold; font-style: italic; }
code span.at { color: #7d9029; }
code span.bn { color: #40a070; }
code span.bu { color: #008000; }
code span.cf { color: #007020; font-weight: bold; }
code span.ch { color: #4070a0; }
code span.cn { color: #880000; }
code span.co { color: #60a0b0; font-style: italic; }
code span.cv { color: #60a0b0; font-weight: bold; font-style: italic; }
code span.do { color: #ba2121; font-style: italic; }
code span.dt { color: #902000; }
code span.dv { color: #40a070; }
code span.er { color: #ff0000; font-weight: bold; }
code span.ex { }
code span.fl { color: #40a070; }
code span.fu { color: #06287e; }
code span.im { color: #008000; font-weight: bold; }
code span.in { color: #60a0b0; font-weight: bold; font-style: italic; }
code span.kw { color: #007020; font-weight: bold; }
code span.op { color: #666666; }
code span.ot { color: #007020; }
code span.pp { color: #bc7a00; }
code span.sc { color: #4070a0; }
code span.ss { color: #bb6688; }
code span.st { color: #4070a0; }
code span.va { color: #19177c; }
code span.vs { color: #4070a0; }
code span.wa { color: #60a0b0; font-weight: bold; font-style: italic; }
</style>
<script>
// apply pandoc div.sourceCode style to pre.sourceCode instead
(function() {
var sheets = document.styleSheets;
for (var i = 0; i < sheets.length; i++) {
if (sheets[i].ownerNode.dataset["origin"] !== "pandoc") continue;
try { var rules = sheets[i].cssRules; } catch (e) { continue; }
var j = 0;
while (j < rules.length) {
var rule = rules[j];
// check if there is a div.sourceCode rule
if (rule.type !== rule.STYLE_RULE || rule.selectorText !== "div.sourceCode") {
j++;
continue;
}
var style = rule.style.cssText;
// check if color or background-color is set
if (rule.style.color === '' && rule.style.backgroundColor === '') {
j++;
continue;
}
// replace div.sourceCode by a pre.sourceCode rule
sheets[i].deleteRule(j);
sheets[i].insertRule('pre.sourceCode{' + style + '}', j);
}
}
})();
</script>
<style type="text/css">body {
background-color: #fff;
margin: 1em auto;
max-width: 700px;
overflow: visible;
padding-left: 2em;
padding-right: 2em;
font-family: "Open Sans", "Helvetica Neue", Helvetica, Arial, sans-serif;
font-size: 14px;
line-height: 1.35;
}
#TOC {
clear: both;
margin: 0 0 10px 10px;
padding: 4px;
width: 400px;
border: 1px solid #CCCCCC;
border-radius: 5px;
background-color: #f6f6f6;
font-size: 13px;
line-height: 1.3;
}
#TOC .toctitle {
font-weight: bold;
font-size: 15px;
margin-left: 5px;
}
#TOC ul {
padding-left: 40px;
margin-left: -1.5em;
margin-top: 5px;
margin-bottom: 5px;
}
#TOC ul ul {
margin-left: -2em;
}
#TOC li {
line-height: 16px;
}
table {
margin: 1em auto;
border-width: 1px;
border-color: #DDDDDD;
border-style: outset;
border-collapse: collapse;
}
table th {
border-width: 2px;
padding: 5px;
border-style: inset;
}
table td {
border-width: 1px;
border-style: inset;
line-height: 18px;
padding: 5px 5px;
}
table, table th, table td {
border-left-style: none;
border-right-style: none;
}
table thead, table tr.even {
background-color: #f7f7f7;
}
p {
margin: 0.5em 0;
}
blockquote {
background-color: #f6f6f6;
padding: 0.25em 0.75em;
}
hr {
border-style: solid;
border: none;
border-top: 1px solid #777;
margin: 28px 0;
}
dl {
margin-left: 0;
}
dl dd {
margin-bottom: 13px;
margin-left: 13px;
}
dl dt {
font-weight: bold;
}
ul {
margin-top: 0;
}
ul li {
list-style: circle outside;
}
ul ul {
margin-bottom: 0;
}
pre, code {
background-color: #f7f7f7;
border-radius: 3px;
color: #333;
white-space: pre-wrap;
}
pre {
border-radius: 3px;
margin: 5px 0px 10px 0px;
padding: 10px;
}
pre:not([class]) {
background-color: #f7f7f7;
}
code {
font-family: Consolas, Monaco, 'Courier New', monospace;
font-size: 85%;
}
p > code, li > code {
padding: 2px 0px;
}
div.figure {
text-align: center;
}
img {
background-color: #FFFFFF;
padding: 2px;
border: 1px solid #DDDDDD;
border-radius: 3px;
border: 1px solid #CCCCCC;
margin: 0 5px;
}
h1 {
margin-top: 0;
font-size: 35px;
line-height: 40px;
}
h2 {
border-bottom: 4px solid #f7f7f7;
padding-top: 10px;
padding-bottom: 2px;
font-size: 145%;
}
h3 {
border-bottom: 2px solid #f7f7f7;
padding-top: 10px;
font-size: 120%;
}
h4 {
border-bottom: 1px solid #f7f7f7;
margin-left: 8px;
font-size: 105%;
}
h5, h6 {
border-bottom: 1px solid #ccc;
font-size: 105%;
}
a {
color: #0033dd;
text-decoration: none;
}
a:hover {
color: #6666ff; }
a:visited {
color: #800080; }
a:visited:hover {
color: #BB00BB; }
a[href^="http:"] {
text-decoration: underline; }
a[href^="https:"] {
text-decoration: underline; }
code > span.kw { color: #555; font-weight: bold; }
code > span.dt { color: #902000; }
code > span.dv { color: #40a070; }
code > span.bn { color: #d14; }
code > span.fl { color: #d14; }
code > span.ch { color: #d14; }
code > span.st { color: #d14; }
code > span.co { color: #888888; font-style: italic; }
code > span.ot { color: #007020; }
code > span.al { color: #ff0000; font-weight: bold; }
code > span.fu { color: #900; font-weight: bold; }
code > span.er { color: #a61717; background-color: #e3d2d2; }
</style>
</head>
<body>
<h1 class="title toc-ignore">Quick Introduction</h1>
<h4 class="author">Tal Galili</h4>
<h4 class="date">2024-11-15</h4>
<div id="TOC">
<ul>
<li><a href="#start" id="toc-start">Start</a></li>
</ul>
</div>
<!--
%\VignetteEngine{knitr::rmarkdown}
%\VignetteIndexEntry{A quick introduction to dendextend (start here)}
-->
<div id="start" class="section level2">
<h2>Start</h2>
<p>Load:</p>
<div class="sourceCode" id="cb1"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb1-1"><a href="#cb1-1" tabindex="-1"></a><span class="fu">library</span>(dendextend) <span class="co">#</span></span></code></pre></div>
<p>Create a dendrogram (if you don’t know what <code>%&gt;%</code> is,
read about it <a href="https://CRAN.R-project.org/package=magrittr/vignettes/magrittr.html">here</a>
) :</p>
<div class="sourceCode" id="cb2"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb2-1"><a href="#cb2-1" tabindex="-1"></a>dend <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="dv">5</span>) <span class="sc">%&gt;%</span> dist <span class="sc">%&gt;%</span> <span class="fu">hclust</span>(<span class="st">&quot;ave&quot;</span>) <span class="sc">%&gt;%</span> as.dendrogram</span></code></pre></div>
<p>Plot:</p>
<div class="sourceCode" id="cb3"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb3-1"><a href="#cb3-1" tabindex="-1"></a><span class="fu">plot</span>(dend)</span></code></pre></div>
<p><img role="img" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAcIAAAHCCAYAAAB8GMlFAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAHCoAMABAAAAAEAAAHCAAAAAOQBvRMAACS1SURBVHgB7d17rBT1+T/wh58gF9uEW1oBEQSsTVVarJY7SWu+pAZtSxMxFv4o1QTTxKhQCCGtNWlCYk2gRFLSlERpw61KQqSQANoGxBtUIlQKphX+8AIFUgMVKMjl15lm+Z5z2KOz33Owc+bzmuRkdmY/u2ee1zPwPjs7s9vpwr+nMBEgQIAAgUQF/l+idSubAAECBAjkAoLQjkCAAAECSQsIwqTbr3gCBAgQEIT2AQIECBBIWkAQJt1+xRMgQICAILQPECBAgEDSAoIw6fYrngABAgQEoX2AAAECBJIWEIRJt1/xBAgQICAI7QMECBAgkLSAIEy6/YonQIAAAUFoHyBAgACBpAUEYdLtVzwBAgQICEL7AAECBAgkLSAIk26/4gkQIEBAENoHCBAgQCBpAUGYdPsVT4AAAQKC0D5AgAABAkkLCMKk2694AgQIEBCE9gECBAgQSFpAECbdfsUTIECAgCC0DxAgQIBA0gKCMOn2K54AAQIEBKF9gAABAgSSFhCESbdf8QQIECAgCO0DBAgQIJC0gCBMuv2KJ0CAAAFBaB8gQIAAgaQFBGHS7Vc8AQIECAhC+wABAgQIJC0gCJNuv+IJECBAQBDaBwgQIEAgaQFBmHT7FU+AAAECgtA+QIAAAQJJCwjCpNuveAIECBAQhPYBAgQIEEhaQBAm3X7FEyBAgIAgtA8QIECAQNICgjDp9iueAAECBAShfYAAAQIEkhYQhEm3X/EECBAgIAjtAwQIECCQtIAgTLr9iidAgAABQWgfIECAAIGkBQRh0u1XPAECBAgIQvsAAQIECCQtIAiTbr/iCRAgQEAQ2gcIECBAIGkBQZh0+xVPgAABAoLQPkCAAAECSQsIwqTbr3gCBAgQEIT2AQIECBBIWkAQJt1+xRMgQICAILQPECBAgEDSAoIw6fYrngABAgQEoX2AAAECBJIWEIRJt1/xBAgQICAI7QMECBAgkLSAIEy6/YonQIAAAUFoHyBAgACBpAUEYdLtVzwBAgQICEL7AAECBAgkLSAIk26/4gkQIEBAENoHCBAgQCBpgc5lqf7cuXNx4cKF6Nz5P5t09uzZ2LBhQxw/fjwmTZoUvXr1Ksum2g4CBAgQqJBAaV4Rzp8/P+bMmZPTnjp1KkaPHh1TpkyJBQsWRL9+/WL27NkVYlcKAQIECJRFoDRB2BRk6dKlcfr06Th06FDs3Lkz9u/fH6tWrYpt27Y1HeY2AQIECBBos0Apg/Dw4cMxderU6NmzZ15g//79Y9q0abFr1642F+wJCBAgQIBAU4FSBWEWdJs3b46xY8c2C72TJ0/Gli1bYsKECU233W0CBAgQINBmgU7/PkHlQpufpR2e4OWXX46nnnoq3njjjXjzzTfjX//6Vz4fOHBgDB06NH/P8LnnnmuH3+QpCBAgQIDA/wqUJgj/d5MisjNG9+3bF8OGDYsuXbrEq6++mr9KbDrGbQIECBAg0B4CpQzCeoWtWLEixowZE4MHD653d7N1Bw4ciD/96U/N1jVd+Otf/xrz5s1rusrtggK/+93v4sMPP4zPfvazBR+R5rDscH52steQIUPSBGig6j179sRjjz3WwCMMJdC+AqW5jvCTylq4cGF+LWGRIDxx4kS88847rT5ldlaqIGyV52PvePbZZ+Pqq68u9AfJxz5Rxe/M/lh4//338yMaFS+1zeU9/fTTgrDNip6gLQIdJgh37NhRuM6bbropsp/Wpmeeeaa1u6z/BIFrrrkm7r777vw9208Y6m4ChQSyowwmAv9NgVKdNZpBZNcMvv3225eYbN++PT/UdMkdVhAgQIAAgTYIlCYIP/roo/yj1EaMGBHXX3993HvvvZEd4qxNjz76aLz44ou1RXMCBAgQINAuAqUJwo0bN+afM5q9r5Kd7JJ9zNrkyZPjzJkz7VKoJyFAgAABAvUEShOEzz//fNxzzz1x1VVXxaBBg2LNmjXRvXv3/BNlzp8/X2/brSNAgAABAm0WKE0Qjh8/PtatWxfZt1Bk0xVXXBErV66M9957Lx588MGL69tcsScgQIAAAQJNBEoThHfccUe8++67kX2STC0Me/ToEevXr4/sjNEXXnihyWa7SYAAAQIE2kegNJdPZKGXnQyTfdtE9mqwNmUfvJ19/Fp27V/2UWsmAgQIECDQngKlCcJaUbfcckvt5sV59mW9DzzwwMVlNwgQIECAQHsJlObQaHsV5HkIECBAgEAjAoKwES1jCRAgQKByAoKwci1VEAECBAg0IiAIG9EylgABAgQqJyAIK9dSBREgQIBAIwKCsBEtYwkQIECgcgKCsHItVRABAgQINCIgCBvRMpYAAQIEKicgCCvXUgURIECAQCMCgrARLWMJECBAoHICgrByLVUQAQIECDQiIAgb0TKWAAECBConIAgr11IFESBAgEAjAoKwES1jCRAgQKByAoKwci1VEAECBAg0IiAIG9EylgABAgQqJyAIK9dSBREgQIBAIwKCsBEtYwkQIECgcgKCsHItVRABAgQINCIgCBvRMpYAAQIEKicgCCvXUgURIECAQCMCgrARLWMJECBAoHICgrByLVUQAQIECDQiIAgb0TKWAAECBConIAgr11IFESBAgEAjAoKwES1jCRAgQKByAoKwci1VEAECBAg0IiAIG9EylgABAgQqJyAIK9dSBREgQIBAIwKCsBEtYwkQIECgcgKCsHItVRABAgQINCIgCBvRMpYAAQIEKicgCCvXUgURIECAQCMCgrARLWMJECBAoHICgrByLVUQAQIECDQiIAgb0TKWAAECBConIAgr11IFESBAgEAjAoKwES1jCRAgQKByAoKwci1VEAECBAg0IiAIG9EylgABAgQqJ9C5bBUdO3Ys9u3bFwcPHozu3bvH4MGD85+uXbuWbVNtDwECBAhUQKBUQTh37txYvHhx9O3bN3r37h3nz5+PI0eOxOnTp2PRokUxderUCpArgQABAgTKJFCaIFy2bFmsXbs29u7dGwMHDmxmtHv37hg/fnyMHDkyhg0b1uw+CwQIECBAoC0CpXmPcPv27TFz5sxLQjArbvjw4TF9+vTYtGlTW2r1WAIECBAgcIlAaYJw3LhxsXz58jhx4sQlG3n06NFYvXq1V4OXyFhBgAABAm0VKM2h0cmTJ8fWrVujX79+MWLEiOjTp0/+HmEWgtmh0RkzZsTEiRPbWq/HEyBAgACBZgKlCcJu3brFkiVLYtasWflZowcOHIhOnTrFgAEDYtSoUXlANttyCwQIECBAoB0EShOEtVqyk2HqnRCzYsWKGDNmTH4pRW1sa/PXXnstP5Ta2v3vvvtua3dZT4AAAQKJCZQuCFvzX7hwYfTq1atQEF533XVx9913t/ZU8fzzz7d6nzsIECBAIC2BDhOEO3bsKNyZz33uc5H9tDZdddVVrd1lPQECBAgkJlCas0Zr7vv374+33367tnhxnl1ecejQoYvLbhAgQIAAgfYQKE0QfvTRRzFp0qT8jNHrr78+7r333maXUjz66KPx4osvtkfNnoMAAQIECFwUKE0Qbty4MTp37hzvv/9+ZGeMnjp1KrJLKs6cOXNxY90gQIAAAQLtLVCaIMxOYLnnnnsie/9u0KBBsWbNmvxDt6dNm5ZfT9jehXs+AgQIECCQCZQmCLPPEl23bl2cO3cu78wVV1wRK1eujPfeey8efPDBi+u1jQABAgQItKdAaYLwjjvuiOz6vuwDt2th2KNHj1i/fn1kZ4y+8MIL7Vm35yJAgAABArlAaS6fyEIvOxlm586dkb0arE09e/aMl19+OZYuXRpDhw6trTYnQIAAAQLtIlCaIKxVc8stt9RuXpxnJ9E88MADF5fdIECAAAEC7SVQmkOj7VWQ5yFAgAABAo0ICMJGtIwlQIAAgcoJCMLKtVRBBAgQINCIgCBsRMtYAgQIEKicgCCsXEsVRIAAAQKNCAjCRrSMJUCAAIHKCQjCyrVUQQQIECDQiIAgbETLWAIECBConIAgrFxLFUSAAAECjQgIwka0jCVAgACBygkIwsq1VEEECBAg0IiAIGxEy1gCBAgQqJyAIKxcSxVEgAABAo0ICMJGtIwlQIAAgcoJCMLKtVRBBAgQINCIgCBsRMtYAgQIEKicgCCsXEsVRIAAAQKNCAjCRrSMJUCAAIHKCQjCyrVUQQQIECDQiIAgbETLWAIECBConIAgrFxLFUSAAAECjQgIwka0jCVAgACBygkIwsq1VEEECBAg0IiAIGxEy1gCBAgQqJyAIKxcSxVEgAABAo0ICMJGtIwlQIAAgcoJCMLKtVRBBAgQINCIgCBsRMtYAgQIEKicgCCsXEsVRIAAAQKNCAjCRrSMJUCAAIHKCQjCyrVUQQQIECDQiIAgbETLWAIECBConIAgrFxLFUSAAAECjQgIwka0jCVAgACBygkIwsq1VEEECBAg0IiAIGxEy1gCBAgQqJyAIKxcSxVEgAABAo0ICMJGtIwlQIAAgcoJCMLKtVRBBAgQINCIQOdGBl/OsefOnYsLFy5E587/2aSzZ8/Ghg0b4vjx4zFp0qTo1avX5fz1npsAAQIEEhUozSvC+fPnx5w5c/I2nDp1KkaPHh1TpkyJBQsWRL9+/WL27NmJtkjZBAgQIHA5BUoThE2LXLp0aZw+fToOHToUO3fujP3798eqVati27ZtTYe5TYAAAQIE2ixQyiA8fPhwTJ06NXr27JkX2L9//5g2bVrs2rWrzQV7AgIECBAg0FSgVEGYBd3mzZtj7NixzULv5MmTsWXLlpgwYULTbXebAAECBAi0WaA0QXj77bfHkCFDYt68eTF58uRYuXJl7NmzJz9ZZtCgQdG3b9+4+eab21ywJyBAgAABAk0FSnPW6JgxYyL7yabsjNF9+/bF0KFDo0uXLrF27dr8VWLTDXebAAECBAi0h0BpgrBpMdklFDfddNPFVdmhUhMBAgQIELgcAqUMwnqFrlixIn/FOHjw4Hp3N1u3bt26yC7HaG166623WrvLegIdRuAnP/lJPPPMMx3+GtvXX389v1yqw8DX2dDsPIZhw4bFmjVr6txrVdkFOkwQLly4MP8HXyQI77rrrsh+WpuyaxRNBDq6QPZvIbu+9r777uvopXT47X/llVfyP0o6fCGJFtBhgnDHjh2JtkjZBAgQIHA5BUpz1ujlLNJzEyBAgACB1gQEYWsy1hMgQIBAEgKlOTT65JNPxksvvfSx6A8//HCMGjXqY8e4kwABAgQINCJQmiDMTmB5/PHH44Ybbog777yzbg19+vSpu95KAgQIECDwfxUoTRDeeuutsXHjxvxj1J566qm49tpr/681eRwBAgQIECgsUKr3CG+88cb8VWF2XZGJAAECBAh8GgKleUVYK/b++++v3TQnQIAAAQKXXaBUrwgve7V+AQECBAgQaCEgCFuAWCRAgACBtAQEYVr9Vi0BAgQItBAQhC1ALBIgQIBAWgKCMK1+q5YAAQIEWggIwhYgFgkQIEAgLQFBmFa/VUuAAAECLQQEYQsQiwQIECCQloAgTKvfqiVAgACBFgKCsAWIRQIECBBIS0AQptVv1RIgQIBACwFB2ALEIgECBAikJSAI0+q3agkQIECghYAgbAFikQABAgTSEhCEafVbtQQIECDQQkAQtgCxSIAAAQJpCQjCtPqtWgIECBBoISAIW4BYJECAAIG0BARhWv1WLQECBAi0EBCELUAsEiBAgEBaAoIwrX6rlgABAgRaCAjCFiAWCRAgQCAtAUGYVr9VS4AAAQItBARhCxCLBAgQIJCWgCBMq9+qJUCAAIEWAoKwBYhFAgQIEEhLQBCm1W/VEiBAgEALAUHYAsQiAQIECKQlIAjT6rdqCRAgQKCFgCBsAWKRAAECBNISEIRp9Vu1BAgQINBCQBC2ALFIgAABAmkJCMK0+q1aAgQIEGghIAhbgFgkQIAAgbQEBGFa/VYtAQIECLQQEIQtQCwSIECAQFoCgjCtfquWAAECBFoICMIWIBYJECBAIC0BQZhWv1VLgAABAi0EBGELEIsECBAgkJZA57KVe+zYsdi3b18cPHgwunfvHoMHD85/unbtWrZNtT0ECBAgUAGBUgXh3LlzY/HixdG3b9/o3bt3nD9/Po4cORKnT5+ORYsWxdSpUytArgQCBAgQKJNAaYJw2bJlsXbt2ti7d28MHDiwmdHu3btj/PjxMXLkyBg2bFiz+ywQIECAAIG2CJTmPcLt27fHzJkzLwnBrLjhw4fH9OnTY9OmTW2p1WMJECBAgMAlAqUJwnHjxsXy5cvjxIkTl2zk0aNHY/Xq1V4NXiJjBQECBAi0VaA0h0YnT54cW7dujX79+sWIESOiT58++XuEWQhmh0ZnzJgREydObGu9Hk+AAAECBJoJlCYIu3XrFkuWLIlZs2blZ40eOHAgOnXqFAMGDIhRo0blAdlsyy0QIECAAIF2EChNENZqyU6GcUJMTcOcAAECBC63QOmCsLWCV6xYEWPGjMmvKWxtTG39unXrYv78+bXFS+ZvvfXWJes6worbbrstzpw5Ez169PivbW5mt379+vzylv/WRrzzzjsxe/bseOihh/5bm+D3lkggu7TqiSeeqHui3ae1mf/4xz8iexvnlVde+bR+5SW/5+TJk3HllVfGjh07LrnPio8X6DBBuHDhwujVq1ehILzrrrsi+2ltGj16dGt3lXr9l7/85XjkkUfixhtvLPV2Xu6Ne+yxx+KLX/zi5f41nr+DCGT7wv333x/ZfpHytGfPnsj+nzQ1LtBhgtBfOY031yMIECBA4JMFSnP5xCdvqhEECBAgQKD9BQRh+5t6RgIECBDoQAKlOTT65JNPxksvvfSxdA8//HB+KcXHDnInAQIECBBoQKA0QZidwPL444/HDTfcEHfeeWfdErKL7E0ECBAgQKA9BUoThLfeemts3LgxJkyYEE899VRce+217Vmn5yJAgAABAnUFSvUeYXZZQPaq8PXXX6+7sVYSIECAAIH2FijNK8JaYdn1QCYCBAgQIPBpCZTqFeGnVbTfQ4AAAQIEagKCsCZhToAAAQJJCgjCJNuuaAIECBCoCQjCmoQ5AQIECCQpIAiTbLuiCRAgQKAmIAhrEuYECBAgkKSAIEyy7YomQIAAgZqAIKxJmBMgQIBAkgKCMMm2K5oAAQIEagKCsCZhToAAAQJJCgjCJNuuaAIECBCoCQjCmoQ5AQIECCQpIAiTbLuiCRAgQKAmIAhrEuYECBAgkKSAIEyy7YomQIAAgZqAIKxJmBMgQIBAkgKCMMm2K5oAAQIEagKCsCZhToAAAQJJCgjCJNuuaAIECBCoCQjCmoQ5AQIECCQpIAiTbLuiCRAgQKAmIAhrEuYECBAgkKSAIEyy7YomQIAAgZqAIKxJmBMgQIBAkgKCMMm2K5oAAQIEagKCsCZhToAAAQJJCgjCJNuuaAIECBCoCQjCmoQ5AQIECCQpIAiTbLuiCRAgQKAmIAhrEuYECBAgkKSAIEyy7YomQIAAgZqAIKxJmBMgQIBAkgKCMMm2K5oAAQIEagKCsCZhToAAAQJJCgjCJNuuaAIECBCoCQjCmoQ5AQIECCQpIAiTbLuiCRAgQKAmIAhrEuYECBAgkKSAIEyy7YomQIAAgZqAIKxJmBMgQIBAkgKdy1L1uXPn4sKFC9G583826ezZs7Fhw4Y4fvx4TJo0KXr16lWWTbUdBAgQIFAhgdK8Ipw/f37MmTMnpz116lSMHj06pkyZEgsWLIh+/frF7NmzK8SuFAIECBAoi0BpgrApyNKlS+P06dNx6NCh2LlzZ+zfvz9WrVoV27ZtazrMbQIECBAg0GaBUgbh4cOHY+rUqdGzZ8+8wP79+8e0adNi165dbS7YExAgQIAAgaYCpQrCLOg2b94cY8eObRZ6J0+ejC1btsSECROabrvbBAgQIECgzQKlCcLbb789hgwZEvPmzYvJkyfHypUrY8+ePfnJMoMGDYq+ffvGzTff3OaCPQEBAgQIEGgqUJqzRseMGRPZTzZlZ4zu27cvhg4dGl26dIm1a9fmrxKbbrjbBAgQIECgPQRKE4RNi8kuobjpppsursoOla5YsSIPysGDB19c39qN7D3Gt99+u7W748SJE63e5w4CBAgQSEuglEFYrwULFy7MryUsEoQHDhyIZ555pt7T5Os++OCDVu9zBwECBAikJdBhgnDHjh2FOzNy5MjIflqbXnnlldbusp4AAQIEEhMoXRAeO3Ysf3/w4MGD0b1798heAWY/Xbt2Taw1yiVAgACBT0OgVEE4d+7cWLx4cX6GaO/eveP8+fNx5MiR/OL6RYsW5dcWfhoofgcBAgQIpCNQmiBctmxZfnbo3r17Y+DAgc06sHv37hg/fnx+uHPYsGHN7rNAgAABAgTaIlCa6wi3b98eM2fOvCQEs+KGDx8e06dPj02bNrWlVo8lQIAAAQKXCJQmCMeNGxfLly+ve2nD0aNHY/Xq1eHV4CX9s4IAAQIE2ihQmkOj2afJbN26Nf+miREjRkSfPn3y9wizEMwOjc6YMSMmTpzYxnI9nAABAgQINBcoTRB269YtlixZErNmzcrPGs2uBezUqVMMGDAgRo0alQdk8023RIAAAQIE2i5QmiCslZId/nQItKZhToAAAQKXW6A07xFe7kI9PwECBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQgIwmRarVACBAgQqCcgCOupWEeAAAECyQh0Llulx44di3379sXBgweje/fuMXjw4Pyna9euZdtU20OAAAECFRAoVRDOnTs3Fi9eHH379o3evXvH+fPn48iRI3H69OlYtGhRTJ06tQLkSiBAgACBMgmUJgiXLVsWa9eujb1798bAgQObGe3evTvGjx8fI0eOjGHDhjW7zwIBAgQIEGiLQGneI9y+fXvMnDnzkhDMihs+fHhMnz49Nm3a1JZaPZYAAQIECFwiUJogHDduXCxfvjxOnDhxyUYePXo0Vq9e7dXgJTJWECBAgEBbBUpzaHTy5MmxdevW6NevX4wYMSL69OmTv0eYhWB2aHTGjBkxceLEttbr8QQIECBAoJlAaYKwW7dusWTJkpg1a1Z+1uiBAweiU6dOMWDAgBg1alQekM223AIBAgQIEGgHgdIEYa2W7GSYeifErFixIsaMGZNfSlEb29r8zTff/Nj3E//+97+39lDrCRAgQCAxgdIFYWv+CxcujF69ehUKwquuuqruSTe1577//vtrNzvU/IEHHvjYujpUMW3Y2ClTpuSHztvwFJV46De+8Y1K1NHWIr7yla/4d/FvxOxs++z/CFPjAp0u/Htq/GEeQYAAAQIEqiFQuleEPlmmGjuWKggQINBRBEoVhD5ZpqPsNraTAAEC1REoTRD6ZJnq7FQqIUCAQEcSKM0F9T5ZpiPtNraVAAEC1REoTRD6ZJnq7FQqIUCAQEcSKM2hUZ8s05F2m//Otu7fvz+yk5yHDh3abAOyownXXnttXH311c3WV23h3Llzef2dO//nn+3Zs2djw4YNcfz48Zg0aVJ+eVHVai5az4cffhh//OMf4/Of/3x87WtfK/qwSo77y1/+Etm+kX1Gs6mYQOkun/jb3/7mk2WK9S6ZUR999FF85zvfiW3btsU///nPuOeee2Lp0qWRXS+aTd/85jfjvvvui7vvvrvSJj/72c/igw8+iAULFsSpU6diwoQJ8ec//zm+9KUvRfaf34MPPhhPPPFEpQ1qxT322GPx29/+Nm655Zb4+c9/Hl/96lejR48ecejQofj+97+f7x+1sVWdnzx5Mv/e1pb1/fKXv4zsvh/96Efxmc98Jv/joOUYy80FSvOKsLZZrX2yTO3+lObZ9y9mrwI+blq1atXH3V2J+zZu3BjZq6D3338/ss+efeihhyI7gvD73/8+rrzyykrU2GgR2R8C2fd0Zv/x9+zZM7fJvqbs29/+dmRvM1R5yj6Af926dfGLX/wi/zD+7LOJf/zjH+cfz/jee+/lX9mWvTr8+te/XmWGeP311/M/hrp06RLZT23K/nDMjpz85je/ie9+97v5Hwy1+8zrC5TmPcL6m5f22ltvvTWeffbZ6N+/f/5djNl/dC1/UhB6/vnn81eB2SvAQYMGxZo1a6J79+4xbdq0/IPZUzBoWePhw4fzL6rOQjCbsn0k89i1a1fLoZVbfvHFF/PQu+uuu+LXv/51nDlzJv9Q/uyzia+55pr43ve+l79SrlzhLQrKvqM1+w7XIUOGxNNPP51/c0/27T0//elPY/bs2fly9qrZ9MkCpXtF+MmbnM6IRx55JD8E9oc//CE/HJZO5c0rzf7BZ38QZIdEr7jiivxn5cqV8T//8z/54cBPetXc/Nk69lIWdJs3b46xY8fmf/HXqskOhW3ZsiV+9atf1VZVdp69B5h9N2n2UXvZH0RZ3dmH9mdTdsg4W84OD6YwZUcAsj+Of/CDH8Rzzz0XixcvTqHsdq/RK8J2J23fJ5wzZ0584QtfiOyQT6rTHXfcEe+++27+WYq10MveD1q/fn3s2LEjXnjhhSRobr/99vyv/3nz5uWHhrM/Bvbs2ZOfLJO9Uu7bt2/cfPPNlbfI3i9+55138veGs2Jvu+22/NBg9mH61113Xf6eWEonimQniWUnTWXf0pOF4muvvVb5faC9CyzdyTLtXaDnq47Azp0785MjmlaUnR2XvV+WvUrITpxIZcrq3rdvX/5NLdn7Q6+++mr+KjGV+rM6s7OIs8OCtSl7z/SNN97Iw6C2LrX53r1744c//GF861vfiuyIkqmYgCAs5mQUAQIECFRUwKHRijZWWQQIECBQTEAQFnMyigABAgQqKiAIK9pYZREgQIBAMQFBWMzJKAIECBCoqIAgrGhjlUWAAAECxQQEYTEnowgQIECgogKCsKKNVRYBAgQIFBMQhMWcjCJAgACBigoIwoo2VlkECBAgUExAEBZzMooAAQIEKiogCCvaWGURIECAQDEBQVjMySgCBAgQqKiAIKxoY5VFgAABAsUEBGExJ6MIECBAoKICgrCijVUWAQIECBQTEITFnIwiQIAAgYoKCMKKNlZZBAgQIFBMQBAWczKKAAECBCoqIAgr2lhlESBAgEAxAUFYzMkoAgQIEKiogCCsaGOVRYAAAQLFBARhMSejCBAgQKCiAoKwoo1VFgECBAgUExCExZyMIkCAAIGKCgjCijZWWQQIECBQTEAQFnMyigABAgQqKiAIK9pYZREgQIBAMQFBWMzJKAIECBCoqIAgrGhjlUWAAAECxQQEYTEnowgQIECgogKCsKKNVRYBAgQIFBMQhMWcjCJAgACBigoIwoo2VlkECBAgUExAEBZzMooAAQIEKiogCCvaWGURIECAQDEBQVjMySgCBAgQqKiAIKxoY5VFgAABAsUEBGExJ6MIECBAoKICgrCijVUWAQIECBQTEITFnIwiQIAAgYoKCMKKNlZZBAgQIFBMQBAWczKKAAECBCoqIAgr2lhlESBAgEAxAUFYzMkoAgQIEKiogCCsaGOVRYAAAQLFBARhMSejCBAgQKCiAoKwoo1VFgECBAgUExCExZyMIkCAAIGKCgjCijZWWQQIECBQTEAQFnMyigABAgQqKiAIK9pYZREgQIBAMQFBWMzJKAIECBCoqIAgrGhjlUWAAAECxQQEYTEnowgQIECgogKCsKKNVRYBAgQIFBMQhMWcjCJAgACBigoIwoo2VlkECBAgUExAEBZzMooAAQIEKiogCCvaWGURIECAQDEBQVjMySgCBAgQqKiAIKxoY5VFgAABAsUEBGExJ6MIECBAoKICgrCijVUWAQIECBQTEITFnIwiQIAAgYoKCMKKNlZZBAgQIFBMQBAWczKKAAECBCoqIAgr2lhlESBAgEAxAUFYzMkoAgQIEKiogCCsaGOVRYAAAQLFBARhMSejCBAgQKCiAoKwoo1VFgECBAgUExCExZyMIkCAAIGKCgjCijZWWQQIECBQTOD/AxKrwcCjTmQ0AAAAAElFTkSuQmCC" /><!-- --></p>
<p>Get/set labels</p>
<div class="sourceCode" id="cb4"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb4-1"><a href="#cb4-1" tabindex="-1"></a><span class="fu">labels</span>(dend)</span></code></pre></div>
<pre><code>## [1] 1 2 5 3 4</code></pre>
<div class="sourceCode" id="cb6"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb6-1"><a href="#cb6-1" tabindex="-1"></a><span class="fu">labels</span>(dend) <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="st">&quot;A&quot;</span>, <span class="st">&quot;B&quot;</span>, <span class="st">&quot;extend&quot;</span>, <span class="st">&quot;dend&quot;</span>, <span class="st">&quot;C&quot;</span>)</span>
<span id="cb6-2"><a href="#cb6-2" tabindex="-1"></a><span class="fu">labels</span>(dend)</span></code></pre></div>
<pre><code>## [1] &quot;A&quot; &quot;B&quot; &quot;extend&quot; &quot;dend&quot; &quot;C&quot;</code></pre>
<p>Get/set labels’ colors</p>
<div class="sourceCode" id="cb8"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb8-1"><a href="#cb8-1" tabindex="-1"></a><span class="fu">labels_colors</span>(dend)</span></code></pre></div>
<pre><code>## NULL</code></pre>
<div class="sourceCode" id="cb10"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb10-1"><a href="#cb10-1" tabindex="-1"></a><span class="fu">labels_colors</span>(dend) <span class="ot">&lt;-</span> <span class="fu">rainbow</span>(<span class="dv">5</span>)</span>
<span id="cb10-2"><a href="#cb10-2" tabindex="-1"></a><span class="fu">labels_colors</span>(dend)</span></code></pre></div>
<pre><code>## A B extend dend C
## &quot;#FF0000&quot; &quot;#CCFF00&quot; &quot;#00FF66&quot; &quot;#0066FF&quot; &quot;#CC00FF&quot;</code></pre>
<div class="sourceCode" id="cb12"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb12-1"><a href="#cb12-1" tabindex="-1"></a><span class="fu">plot</span>(dend)</span></code></pre></div>
<p><img role="img" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAcIAAAHCCAYAAAB8GMlFAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAHCoAMABAAAAAEAAAHCAAAAAOQBvRMAACqTSURBVHgB7d0PeFX1nefxTyD8r1NCWNeASIRYnAoo1g4Q/sxWZmgp2t3MjLhucGcYeRb6zPpUYXBYZnXtPDM8yzg1y0qX1qGLTJcARebhkcJTQLsromhQVlAkqJBtQUFg7IAGDJBkf7+DJyQ3NyHHexJ+5/zexyfPvffck3N/39f3yifnnj83r9FMYkIAAQQQQMBTgW6e1k3ZCCCAAAIIBAIEIW8EBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwUIQq/bT/EIIIAAAgQh7wEEEEAAAa8FCEKv20/xCCCAAAIEIe8BBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwUIQq/bT/EIIIAAAgQh7wEEEEAAAa8FCEKv20/xCCCAAAIEIe8BBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwUIQq/bT/EIIIAAAgQh7wEEEEAAAa8FCEKv20/xCCCAAAIEIe8BBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwUIQq/bT/EIIIAAAgQh7wEEEEAAAa8FCEKv20/xCCCAAAIEIe8BBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwUIQq/bT/EIIIAAAgQh7wEEEEAAAa8FCEKv20/xCCCAAAIEIe8BBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwUIQq/bT/EIIIAAAgQh7wEEEEAAAa8FCEKv20/xCCCAAAIEIe8BBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwUIQq/bT/EIIIAAAgQh7wEEEEAAAa8FCEKv20/xCCCAAAIEIe8BBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwUIQq/bT/EIIIAAAgQh7wEEEEAAAa8FCEKv20/xCCCAAAIEIe8BBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwUIQq/bT/EIIIAAAgQh7wEEEEAAAa8FCEKv20/xCCCAAAIEIe8BBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwUIQq/bT/EIIIAAAgQh7wEEEEAAAa8FCEKv20/xCCCAAAIEIe8BBBBAAAGvBQhCr9tP8QgggAACBCHvAQQQQAABrwXyXam+vr5ejY2Nys+/NKSLFy9qy5YtOnPmjKZPn66CggJXhso4EEAAAQRSJODMFuHixYv1yCOPBLTnzp3T+PHjNWPGDD355JMqKirSggULUsROKQgggAACrgg4E4TNQVasWKG6ujodP35ce/bs0eHDh7V27Vrt3Lmz+WLcRwABBBBAIGcBJ4PwxIkTKi8vV//+/YMCBw0apJkzZ2rv3r05F8wKEEAAAQQQaC7gVBDaoNu+fbsmTJjQIvTOnj2rF198UZMnT24+du4jgAACCCCQs0CeOUClMee1xLCCV155RStXrtSbb76pt99+W5999llwO2TIEA0fPjzYZ/jcc8/F8EqsAgEEEEAAgcsCzgTh5SFJ9ojR6upqlZSUqEePHnr11VeDrcTmy3AfAQQQQACBOAScDMJshVVWVqq0tFTFxcXZnm4xr6amRq+//nqLec0fvPfee1q0aFHzWdzvoMDPfvYzffrpp7rmmms6+Bt+LmY/zrcHew0bNsxPgAhV79+/X48//niE32BRBOIVcOY8wiuVVVFREZxL2JEgrK2t1ZEjR9pcpT0qlSBsk6fdJ5599lldd911HfqDpN0VpfxJ+8fChx9+GHyikfJScy7vmWeeIQhzVmQFuQgkJgh3797d4TpHjhwp+9PWtH79+raeYv4VBK6//nrdc889wT7bKyzK0wh0SMB+ysCEwNUUcOqoUQthzxk8dOhQK5Oqqqrgo6ZWTzADAQQQQACBHAScCcILFy4El1IbM2aMbrrpJt13332yH3GG02OPPaaXXnopfMgtAggggAACsQg4E4Rbt24NrjNq96vYg13sZdbKysp0/vz5WAplJQgggAACCGQTcCYIn3/+ed17773q16+fhg4dqg0bNqhPnz7BFWUaGhqyjZ15CCCAAAII5CzgTBBOmjRJmzZtkv0WCjt1795da9as0QcffKAHH3ywaX7OFbMCBBBAAAEEmgk4E4TTpk3T0aNHZa8kE4Zh3759tXnzZtkjRl944YVmw+YuAggggAAC8Qg4c/qEDT17MIz9tgm7NRhO9sLb9vJr9tw/e6k1JgQQQAABBOIUcCYIw6Juv/328G7Trf2y3rlz5zY95g4CCCCAAAJxCTjz0WhcBbEeBBBAAAEEoggQhFG0WBYBBBBAIHUCBGHqWkpBCCCAAAJRBAjCKFosiwACCCCQOgGCMHUtpSAEEEAAgSgCBGEULZZFAAEEEEidAEGYupZSEAIIIIBAFAGCMIoWyyKAAAIIpE6AIExdSykIAQQQQCCKAEEYRYtlEUAAAQRSJ0AQpq6lFIQAAgggEEWAIIyixbIIIIAAAqkTIAhT11IKQgABBBCIIkAQRtFiWQQQQACB1AkQhKlrKQUhgAACCEQRIAijaLEsAggggEDqBAjC1LWUghBAAAEEoggQhFG0WBYBBBBAIHUCBGHqWkpBCCCAAAJRBAjCKFosiwACCCCQOgGCMHUtpSAEEEAAgSgCBGEULZZFAAEEEEidAEGYupZSEAIIIIBAFAGCMIoWyyKAAAIIpE6AIExdSykIAQQQQCCKAEEYRYtlEUAAAQRSJ0AQpq6lFIQAAgggEEWAIIyixbIIIIAAAqkTIAhT11IKQgABBBCIIkAQRtFiWQQQQACB1AkQhKlrKQUhgAACCEQRIAijaLEsAggggEDqBAjC1LWUghBAAAEEoggQhFG0WBYBBBBAIHUCBGHqWkpBCCCAAAJRBAjCKFosiwACCCCQOgGCMHUtpSAEEEAAgSgCBGEULZZFAAEEEEidAEGYupZSEAIIIIBAFAGCMIoWyyKAAAIIpE4g37WKTp8+rerqah07dkx9+vRRcXFx8NOrVy/Xhsp4EEAAAQRSIOBUEC5cuFDLli3TwIEDNWDAADU0NOjkyZOqq6vT0qVLVV5engJySkAAAQQQcEnAmSBctWqVNm7cqAMHDmjIkCEtjPbt26dJkyZp7NixKikpafEcDxBAAAEEEMhFwJl9hFVVVZo3b16rELTFjR49WrNmzdK2bdtyqZXfRQABBBBAoJWAM0E4ceJErV69WrW1ta0GeerUKa1bt46twVYyzEAAAQQQyFXAmY9Gy8rKtGPHDhUVFWnMmDEqLCwM9hHaELQfjc6ZM0dTp07NtV5+HwEEEEAAgRYCzgRh7969tXz5cs2fPz84arSmpkZ5eXkaPHiwxo0bFwRki5HzAAEEEEAAgRgEnAnCsBZ7MEy2A2IqKytVWloanEoRLtvW7WuvvRZ8lNrW80ePHm3rKeYjgAACCHgm4FwQtuVfUVGhgoKCDgXhjTfeqHvuuaetVen5559v8zmeQAABBBDwSyAxQbh79+4Od+baa6+V/Wlr6tevX1tPMR8BBBBAwDMBZ44aDd0PHz6sQ4cOhQ+bbu3pFcePH296zB0EEEAAAQTiEHAmCC9cuKDp06cHR4zedNNNuu+++1qcSvHYY4/ppZdeiqNm1oEAAggggECTgDNBuHXrVuXn5+vDDz+UPWL03LlzsqdUnD9/vmmw3EEAAQQQQCBuAWeC0B7Acu+998ruvxs6dKg2bNgQXHR75syZwfmEcRfO+hBAAAEEELACzgShvZbopk2bVF9fH3Sme/fuWrNmjT744AM9+OCDTfNpGwIIIIAAAnEKOBOE06ZNkz2/z15wOwzDvn37avPmzbJHjL7wwgtx1s26EEAAAQQQCAScOX3Chp49GGbPnj2yW4Ph1L9/f73yyitasWKFhg8fHs7mFgEEEEAAgVgEnAnCsJrbb789vNt0aw+imTt3btNj7iCAAAIIIBCXgDMfjcZVEOtBAAEEEEAgigBBGEWLZRFAAAEEUidAEKaupRSEAAIIIBBFgCCMosWyCCCAAAKpEyAIU9dSCkIAAQQQiCJAEEbRYlkEEEAAgdQJEISpaykFIYAAAghEESAIo2ixLAIIIIBA6gQIwtS1lIIQQAABBKIIEIRRtFgWAQQQQCB1AgRh6lpKQQgggAACUQQIwihaLIsAAgggkDoBgjB1LaUgBBBAAIEoAgRhFC2WRQABBBBInQBBmLqWUhACCCCAQBQBgjCKFssigAACCKROgCBMXUspCAEEEEAgigBBGEWLZRFAAAEEUidAEKaupRSEAAIIIBBFgCCMosWyCCCAAAKpEyAIU9dSCkIAAQQQiCJAEEbRYlkEEEAAgdQJEISpaykFIYAAAghEESAIo2ixLAIIIIBA6gQIwtS1lIIQQAABBKIIEIRRtFgWAQQQQCB1AgRh6lpKQQgggAACUQQIwihaLIsAAgggkDoBgjB1LaUgBBBAAIEoAgRhFC2WRQABBBBInQBBmLqWUhACCCCAQBQBgjCKFssigAACCKROgCBMXUspCAEEEEAgigBBGEWLZRFAAAEEUidAEKaupRSEAAIIIBBFgCCMosWyCCCAAAKpEyAIU9dSCkIAAQQQiCJAEEbRYlkEEEAAgdQJEISpaykFIYAAAghEEciPsnBnLltfX6/Gxkbl518a0sWLF7VlyxadOXNG06dPV0FBQWe+POtGAAEEEPBUwJktwsWLF+uRRx4J2nDu3DmNHz9eM2bM0JNPPqmioiItWLDA0xZRNgIIIIBAZwo4E4TNi1yxYoXq6up0/Phx7dmzR4cPH9batWu1c+fO5otxHwEEEEAAgZwFnAzCEydOqLy8XP379w8KHDRokGbOnKm9e/fmXDArQAABBBBAoLmAU0Fog2779u2aMGFCi9A7e/asXnzxRU2ePLn52LmPAAIIIIBAzgLOBOGUKVM0bNgwLVq0SGVlZVqzZo32798fHCwzdOhQDRw4UKNGjcq5YFaAAAIIIIBAcwFnjhotLS2V/bGTPWK0urpaw4cPV48ePbRx48ZgK7H5wLmPAAIIIIBAHALOBGHzYuwpFCNHjmyaZT8qZUIAAQQQQKAzBJwMwmyFVlZWBluMxcXF2Z5uMW/Tpk2yp2O0NR08eLCtp5iPQGIEHn30Ua1fvz7x59i+8cYbwelSiYHPMlB7HENJSYk2bNiQ5VlmuS6QmCCsqKgI/ofvSBDefffdsj9tTfYcRSYEki5g/1+w59c+8MADSS8l8ePftWtX8EdJ4gvxtIDEBOHu3bs9bRFlI4AAAgh0poAzR412ZpGsGwEEEEAAgbYECMK2ZJiPAAIIIOCFgDMfjT711FN6+eWX20V/6KGHNG7cuHaX4UkEEEAAAQSiCDgThPYAliVLlmjEiBG66667stZQWFiYdT4zEUAAAQQQ+KICzgThHXfcoa1btwaXUVu5cqVuuOGGL1oTv4cAAggggECHBZzaR3jLLbcEW4X2vCImBBBAAAEEukLAmS3CsNjZs2eHd7lFAAEEEECg0wWc2iLs9Gp5AQQQQAABBDIECMIMEB4igAACCPglQBD61W+qRQABBBDIECAIM0B4iAACCCDglwBB6Fe/qRYBBBBAIEOAIMwA4SECCCCAgF8CBKFf/aZaBBBAAIEMAYIwA4SHCCCAAAJ+CRCEfvWbahFAAAEEMgQIwgwQHiKAAAII+CVAEPrVb6pFAAEEEMgQIAgzQHiIAAIIIOCXAEHoV7+pFgEEEEAgQ4AgzADhIQIIIICAXwIEoV/9ploEEEAAgQwBgjADhIcIIIAAAn4JEIR+9ZtqEUAAAQQyBAjCDBAeIoAAAgj4JUAQ+tVvqkUAAQQQyBAgCDNAeIgAAggg4JcAQehXv6kWAQQQQCBDgCDMAOEhAggggIBfAgShX/2mWgQQQACBDAGCMAOEhwgggAACfgkQhH71m2oRQAABBDIECMIMEB4igAACCPglQBD61W+qRQABBBDIECAIM0B4iAACCCDglwBB6Fe/qRYBBBBAIEOAIMwA4SECCCCAgF8CBKFf/aZaBBBAAIEMAYIwA4SHCCCAAAJ+CRCEfvWbahFAAAEEMgQIwgwQHiKAAAII+CVAEPrVb6pFAAEEEMgQIAgzQHiIAAIIIOCXAEHoV7+pFgEEEEAgQ4AgzADhIQIIIICAXwIEoV/9ploEEEAAgQwBgjADhIcIIIAAAn4J5LtW7unTp1VdXa1jx46pT58+Ki4uDn569erl2lAZDwIIIIBACgScCsKFCxdq2bJlGjhwoAYMGKCGhgadPHlSdXV1Wrp0qcrLy1NATgkIIIAAAi4JOBOEq1at0saNG3XgwAENGTKkhdG+ffs0adIkjR07ViUlJS2e4wECCCCAAAK5CDizj7Cqqkrz5s1rFYK2uNGjR2vWrFnatm1bLrXyuwgggAACCLQScCYIJ06cqNWrV6u2trbVIE+dOqV169axNdhKhhkIIIAAArkKOPPRaFlZmXbs2KGioiKNGTNGhYWFwT5CG4L2o9E5c+Zo6tSpudbL7yOAAAIIINBCwJkg7N27t5YvX6758+cHR43W1NQoLy9PgwcP1rhx44KAbDFyHiCAAAIIIBCDgDNBGNZiD4bhgJhQg1sEEEAAgc4WcC4I2yq4srJSpaWlwTmFbS0Tzt+0aZMWL14cPmx1e/DgwVbzkjDj61//us6fP6++ffteteFau82bNwent1ytQRw5ckQLFizQ9773vas1BF7XIQF7atUTTzyR9UC7rhrmxx9/LLsbZ9euXV31kq1e5+zZs+rZs6d2797d6jlmtC+QmCCsqKhQQUFBh4Lw7rvvlv1paxo/fnxbTzk9/9Zbb9XDDz+sW265xelxdvbgHn/8cd18882d/TKsPyEC9r0we/Zs2feFz9P+/ftl/51kii6QmCDkr5zozeU3EEAAAQSuLODM6RNXHipLIIAAAgggEL8AQRi/KWtEAAEEEEiQgDMfjT711FN6+eWX26V76KGHglMp2l2IJxFAAAEEEIgg4EwQ2gNYlixZohEjRuiuu+7KWoI9yZ4JAQQQQACBOAWcCcI77rhDW7du1eTJk7Vy5UrdcMMNcdbJuhBAAAEEEMgq4NQ+QntagN0qfOONN7IOlpkIIIAAAgjELeDMFmFYmD0fiAkBBBBAAIGuEnBqi7CriuZ1EEAAAQQQCAUIwlCCWwQQQAABLwUIQi/bTtEIIIAAAqEAQRhKcIsAAggg4KUAQehl2ykaAQQQQCAUIAhDCW4RQAABBLwUIAi9bDtFI4AAAgiEAgRhKMEtAggggICXAgShl22naAQQQACBUIAgDCW4RQABBBDwUoAg9LLtFI0AAgggEAoQhKEEtwgggAACXgoQhF62naIRQAABBEIBgjCU4BYBBBBAwEsBgtDLtlM0AggggEAoQBCGEtwigAACCHgpQBB62XaKRgABBBAIBQjCUIJbBBBAAAEvBQhCL9tO0QgggAACoQBBGEpwiwACCCDgpQBB6GXbKRoBBBBAIBQgCEMJbhFAAAEEvBQgCL1sO0UjgAACCIQCBGEowS0CCCCAgJcCBKGXbadoBBBAAIFQgCAMJbhFAAEEEPBSgCD0su0UjQACCCAQChCEoQS3CCCAAAJeChCEXradohFAAAEEQgGCMJTgFgEEEEDASwGC0Mu2UzQCCCCAQChAEIYS3CKAAAIIeClAEHrZdopGAAEEEAgFCMJQglsEEEAAAS8FCEIv207RCCCAAAKhAEEYSnCLAAIIIOClAEHoZdspGgEEEEAgFCAIQwluEUAAAQS8FCAIvWw7RSOAAAIIhAIEYSjBLQIIIICAlwL5rlRdX1+vxsZG5edfGtLFixe1ZcsWnTlzRtOnT1dBQYErQ2UcCCCAAAIpEnBmi3Dx4sV65JFHAtpz585p/PjxmjFjhp588kkVFRVpwYIFKWKnFAQQQAABVwScCcLmICtWrFBdXZ2OHz+uPXv26PDhw1q7dq127tzZfDHuI4AAAgggkLOAk0F44sQJlZeXq3///kGBgwYN0syZM7V3796cC2YFCCCAAAIINBdwKght0G3fvl0TJkxoEXpnz57Viy++qMmTJzcfO/cRQAABBBDIWcCZIJwyZYqGDRumRYsWqaysTGvWrNH+/fuDg2WGDh2qgQMHatSoUTkXzAoQQAABBBBoLuDMUaOlpaWyP3ayR4xWV1dr+PDh6tGjhzZu3BhsJTYfOPcRQAABBBCIQ8CZIGxejD2FYuTIkU2z7EellZWVQVAWFxc3zW/rjt3HeOjQobaeVm1tbZvP8QQCCCCAgF8CTgZhthZUVFQE5xJ2JAhramq0fv36bKsJ5v3mN79p8zmeQAABBBDwSyAxQbh79+4Od2bs2LGyP21Nu3btausp5iOAAAIIeCbgXBCePn062D947Ngx9enTR3YL0P706tXLs9ZQLgIIIIBAVwg4FYQLFy7UsmXLgiNEBwwYoIaGBp08eTI4uX7p0qXBuYVdgcJrIIAAAgj4I+BMEK5atSo4OvTAgQMaMmRIiw7s27dPkyZNCj7uLCkpafEcDxBAAAEEEMhFwJnzCKuqqjRv3rxWIWiLGz16tGbNmqVt27blUiu/iwACCCCAQCsBZ4Jw4sSJWr16ddZTG06dOqV169aJrcFW/WMGAggggECOAs58NGqvJrNjx47gmybGjBmjwsLCYB+hDUH70eicOXM0derUHMvl1xFAAAEEEGgp4EwQ9u7dW8uXL9f8+fODo0btuYB5eXkaPHiwxo0bFwRky6HzCAEEEEAAgdwFnAnCsBT78ScfgYYa3CKAAAIIdLaAM/sIO7tQ1o8AAggggEA2AYIwmwrzEEAAAQS8ESAIvWk1hSKAAAIIZBMgCLOpMA8BBBBAwBsBgtCbVlMoAggggEA2AYIwmwrzEEAAAQS8ESAIvWk1hSKAAAIIZBMgCLOpMA8BBBBAwBsBgtCbVlMoAggggEA2AYIwmwrzEEAAAQS8ESAIvWk1hSKAAAIIZBMgCLOpMA8BBBBAwBsBgtCbVlMoAggggEA2AYIwmwrzEEAAAQS8ESAIvWk1hSKAAAIIZBMgCLOpMA8BBBBAwBsBgtCbVlMoAggggEA2AYIwmwrzEEAAAQS8ESAIvWk1hSKAAAIIZBMgCLOpMA8BBBBAwBsBgtCbVlMoAggggEA2AYIwmwrzEEAAAQS8ESAIvWk1hSKAAAIIZBMgCLOpMA8BBBBAwBsBgtCbVlMoAggggEA2AYIwmwrzEEAAAQS8ESAIvWk1hSKAAAIIZBMgCLOpMA8BBBBAwBsBgtCbVlMoAggggEA2AYIwmwrzEEAAAQS8ESAIvWk1hSKAAAIIZBMgCLOpMA8BBBBAwBsBgtCbVlMoAggggEA2AYIwmwrzEEAAAQS8ESAIvWk1hSKAAAIIZBMgCLOpMA8BBBBAwBsBgtCbVlMoAggggEA2AYIwmwrzEEAAAQS8ESAIvWk1hSKAAAIIZBMgCLOpMA8BBBBAwBuBfNcqPX36tKqrq3Xs2DH16dNHxcXFwU+vXr1cGyrjQQABBBBIgYBTQbhw4UItW7ZMAwcO1IABA9TQ0KCTJ0+qrq5OS5cuVXl5eQrIKQEBBBBAwCUBZ4Jw1apV2rhxow4cOKAhQ4a0MNq3b58mTZqksWPHqqSkpMVzPEAAAQQQQCAXAWf2EVZVVWnevHmtQtAWN3r0aM2aNUvbtm3LpVZ+FwEEEEAAgVYCzgThxIkTtXr1atXW1rYa5KlTp7Ru3Tq2BlvJMAMBBBBAIFcBZz4aLSsr044dO1RUVKQxY8aosLAw2EdoQ9B+NDpnzhxNnTo113r5fQQQQAABBFoIOBOEvXv31vLlyzV//vzgqNGamhrl5eVp8ODBGjduXBCQLUbOAwQQQAABBGIQcCYIw1rswTDZDoiprKxUaWlpcCpFuGxbt2+//Xa7+xM/+uijtn6V+QgggAACngk4F4Rt+VdUVKigoKBDQdivX7+sB92E6549e3Z4N1G3c+fObbeuRBWTw2BnzJgRfHSewypS8at33nlnKurItYjbbruN/y8Moj3a3v4bwRRdIK/RTNF/jd9AAAEEEEAgHQLObRFyZZl0vLGoAgEEEEiKgFNByJVlkvK2YZwIIIBAegScCUKuLJOeNxWVIIAAAkkScOaEeq4sk6S3DWNFAAEE0iPgTBByZZnob6rGg+9G/yV+AwEEEECghYAzH41yZZkWfWnzQeOFC2rc+Jwaf/T3avzl/1F+42dtLpu2J87qXfXSEHVXH53RazqpdeqhQhXpu+Z2QNrKbVVPnS7oovmvvamXeirfCKV5qrsgXWifQb17SvnpZmhq8cVPpEZj0uPz/wU++7XUcE7qO6JpEe5cQcC50yfef/99riyTpWmNR46o4emfqHHFSun8eeWV36duD/yJ8m4dnWXpdM2q11m9pWn6VHvMP/H9dJN+rPf1H1Wg39M5E44NOq8xqlKe+S/N01/of+hZ/bJVibbuRvNfN/PfU5qnb2lcq2XSNOM/VEirtreuyFyISvZksG7mc67K/ySVTWi9TNrmfPy8VP2AVPKEdO2MS9Wd3Ci9c590/cPSjX9lPJzZ3HFX37kgdJeq60fWaL6PsXHrdrP197Qaf7FNeVO+ocYjR9VtyWJ1+/a3un5AV+kVj+nvdUJrNFI/V632mf+m6EYt0WAThg1mK+l1/ba+qp/pS7r9Ko2wa172fLBFWC/73/36K92tifp9/Y75g+AavWL+VPhvWqtn9Kj+Zcq3js/bLcJ66aL5+dYi6d7flb4zXhr4ZemXb0rf/6m0+a+lQYVd05er9SqNpv6XB0nDFktFfypzScrLI/nEOLz9R9JXfigVfvPyfO5lFzB/OzG5KlA/6nY1PPq48iZNVPeag+q+5TnljfiKq8PttHGdVbX5x36K2Rrsq98yWzs9dZ0JvTHB63UzH4r21QjV6YNOe31XVtwzqLW3anTMfETcQw+YKLzBxN41RuCbGqsJGm22F99wZbidNo6ePaR+vaX3TMt7m/sP/YEJgyLpt/pK/6ZUmnKbtKWq017emRWf3iX1udEEvtkibB6CdoDXGIPB5iIzp/7RmeE6PRCC0OH25F1/vXTylBrfe9/8X/+++djHz4sANZjtwO7mn/tw6mb+4bf7CS9P3c0Hg2YzwZPJbvG9qyP6xLiE00Wzlfiy2Va2wejLZLf43vm1dPoyQ7CV+ILZGrLBmPapzvwh0NNsEbY19Rslnatp61nmNxfg0+PmGo7d777152o0+0wbVv6D6sv/xLzrzREA5uPSvLJ/7dhIO3849eaf/fNmS8hOjeaAkQv6p2aP6zp/AA69gg3CP9S/Uqnm6OvmY+HeZhvZfjRqtwjH6haHRtq5Q7FBeP8Usx/sfmniSHNwSK9LH43aLcLJJgTSPvWfLB2cY/5JOG/2A5p/GjKnj7dKdhmmKwuwj/DKRk4s0Vhff2l/4f98Ro2bNktjblO3+/+duv3Zd50YX2cO4j3N1Uf6h3Zf4mb9Lw2U+YzMo6lK7+j/mm1Du+9wtEo0Wbel/oChbO196S3ptWrJHk16h9lzMPVrrT8qzPZ7aZj39j3m2Dnz9+HNP7l8lOiFj6Wjy6QjP5Bu3yl9yYM/CnLtJUGYq+BV+P1G82XFjT+tVIMJxfy39lyFEXTtS140W4ONav80ke5m72E3s+fMp+kzs2f008Dl8kfm15ijau3+Q5+mc+YDgU/M6QLN9xz0/5LUywOGBnMaycHZ0kerzVah2UfazewxuGC+Za7vb0sjnzX7Ur/q0zvhi9dKEH5xO34TgasmsEg/MsfJvmD+QLgcgnYw9vSJb5sPTX2ZvvvfpZXmI8DmIWhrt6dP/OEkXxSkevOHwCevmyNpT5sDZcxxZL0G+1N7HJWyjzAORdaBQBcKHNSv9bx2a7N+oOHmJJLuZls4nNJ+LmVYp73d//+kn78qvfFDacQQqftlhlZHUTb/vTTe7262BPt7FPxx95AgjFuU9SHQyQJ1Zq9gia43J43c0Mmv5Pbqz5mDRG42AXhLsdvjZHTuCzT7G8r9wTJCBBCQOU602FxRp06/0Kvmmjvt7ztNs9etw6SzZv/gP5oDQmr9ZUhzi7usNrYIu4yaF0IgHoGT+o05eeS0/kx/Zw6LyTeHx5izyz+flpi5v2dOqvBhOmaOjjz5z9J9i811Ns2/ZNeYjwfD6WlzebG7x4WPuEWgfQEOlmnfh2cRcE7Ani5Row+zjmuQ/kVwpZmsT6Zspr3U2rtHsxd1g7mugL3SDBMCHREgCDuixDIIOChwxJxdac8jvEXDgu+cGOLRVWWat6PmuFRVLd06/NIpEzde1/xZ7iNwZQE+Gr2yEUsg4JzAKm3R35qLCPQzl5r7C80MrjFqT6X4of7cq5Pqf/ic9JcrL30suvhPzTVGX7NXHpLWLPLnpHrn3pwJHBAHyySwaQzZbwG7j/AJrdZW830T9+gbAcYT5ps4Tpj5+82Hpr5Mx80+wv9sQvDNH0l//PuXql4xX/rwn8y8Q74oUGccAgRhHIqsA4EuFDhs9g/aa4xer2ubXrWvOWBmvPmiqj062DQv7Xfe/eDSNUaLm11n3H4rxTdulXa9k/bqqS9OAYIwTk3WhUAXCBSrKAi8j2Q2iT6fPjUnVGw2l94ear6iypepZNClwLNbgOH0yVlp/Q5puHmOCYGOCnCwTEelWA4BhwSe0nrzffUbVKgvm6usfkm/Mt/MUapReloLvdpH+DeV0n9da76dvb+5soq5vughcwHqO80W4Yb/wj5Ch96uzg+FIHS+RQwQgZYC9soyR3UyOJnefgOFPbn+q+Yk+0Hm+zfsRbcHm1MofJr2vCftMN9AYU+utyfZf/t3CEGf+h9HrQRhHIqsA4EuELBXkfln800cR8xhMXaL8G/NyfPhVK8G/aV+rO9okv7o8wNowufSdmu/bumC+daF9qbePaX87u0twXMIXBbg9InLFtxDwGmBWrPtd7cWmK9eOme+mrhed+rBpvHaC2/bg2fGefDFvA+a79pbtb2p9KY7eXmXvoWimznywX77RNmEpqe4g0C7AmwRtsvDkwi4J/ChTukZc2jMIv2xe4PrghHZK8pcqDdfOWR+vmXOF7z3d6XvjJcGfvnSN9R//6fS5r+W7DfYMyHQEQGCsCNKLINAQgTslmK++WImH6bX35UWPC39779rWe2f/9h8K4X5Yo7Z01rO5xECbQlw+kRbMsxHwFGBX+m4KrTWRJ7ZJPp8sgfQfF8/0XZVhbNSf2u3+N75tXS69nKpdivxhTelYUWX53EPgSsJsI/wSkI8j4BjAgPMCROv6C3zJUxvm0B8KDiA5mEtNXsIC/Rd/YFjo+284dggvH+KdOP9l06s79vr0kejU26TJo/qvNdlzekT4KPR9PWUijwQsFuDy8x5hPaao/b+Qv17/VvzBUw+fUN92OaXzKkTr5mLbtujSe/4ijT1a5w+Edpw2zEBtgg75sRSCDglYK8qs1fvmTMG+5uzCM+bD0Tf0TRzzGh/cyahb9Mks/Vnf5gQ+KIC7CP8onL8HgJXScCG4DTNCy6n9pw5m/Dn+kHwNUzf1MPmSqO/ukqj4mURSK4AH40mt3eM3FMB+y0T1SbwJsvsDGs2/cLsNbxGfTVBo5vN5S4CCFxJgCC8khDPI+CoAF/M62hjGFbiBNhHmLiWMWAEzJVV+GJe3gYIxCbAPsLYKFkRAl0jwBfzdo0zr+KPAEHoT6+pNCUCfDFvShpJGc4IEITOtIKBINAxAb6Yt2NOLIVARwU4WKajUiyHgEMCfDGvQ81gKIkXIAgT30IK8FXgLR0KTqQPv5j3G/qal1eW8bX/1B2fAEEYnyVrQgABBBBIoAD7CBPYNIaMAAIIIBCfAEEYnyVrQgABBBBIoABBmMCmMWQEEEAAgfgECML4LFkTAggggEACBQjCBDaNISOAAAIIxCdAEMZnyZoQQAABBBIoQBAmsGkMGQEEEEAgPgGCMD5L1oQAAgggkEABgjCBTWPICCCAAALxCRCE8VmyJgQQQACBBAoQhAlsGkNGAAEEEIhPgCCMz5I1IYAAAggkUIAgTGDTGDICCCCAQHwCBGF8lqwJAQQQQCCBAgRhApvGkBFAAAEE4hMgCOOzZE0IIIAAAgkUIAgT2DSGjAACCCAQnwBBGJ8la0IAAQQQSKAAQZjApjFkBBBAAIH4BAjC+CxZEwIIIIBAAgUIwgQ2jSEjgAACCMQnQBDGZ8maEEAAAQQSKEAQJrBpDBkBBBBAID4BgjA+S9aEAAIIIJBAAYIwgU1jyAgggAAC8QkQhPFZsiYEEEAAgQQKEIQJbBpDRgABBBCIT4AgjM+SNSGAAAIIJFCAIExg0xgyAggggEB8AgRhfJasCQEEEEAggQIEYQKbxpARQAABBOITIAjjs2RNCCCAAAIJFCAIE9g0howAAgggEJ8AQRifJWtCAAEEEEigAEGYwKYxZAQQQACB+AQIwvgsWRMCCCCAQAIFCMIENo0hI4AAAgjEJ0AQxmfJmhBAAAEEEihAECawaQwZAQQQQCA+AYIwPkvWhAACCCCQQAGCMIFNY8gIIIAAAvEJEITxWbImBBBAAIEECvx/iS0ZsYElYcEAAAAASUVORK5CYII=" /><!-- --></p>
<p>Cut-tree, and color branches</p>
<div class="sourceCode" id="cb13"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb13-1"><a href="#cb13-1" tabindex="-1"></a><span class="fu">cutree</span>(dend, <span class="at">k =</span> <span class="dv">2</span>)</span></code></pre></div>
<pre><code>## A B dend C extend
## 1 1 2 2 2</code></pre>
<div class="sourceCode" id="cb15"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb15-1"><a href="#cb15-1" tabindex="-1"></a>dend <span class="ot">&lt;-</span> <span class="fu">color_branches</span>(dend, <span class="at">k =</span> <span class="dv">2</span>)</span>
<span id="cb15-2"><a href="#cb15-2" tabindex="-1"></a><span class="fu">plot</span>(dend)</span></code></pre></div>
<p><img role="img" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAcIAAAHCCAYAAAB8GMlFAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAHCoAMABAAAAAEAAAHCAAAAAOQBvRMAACrASURBVHgB7d0NdBXnfefxn5CwBPhFQopdIQsEyCGNARviLUIguikJCcbOrpoYryvcloazOKfrcxwILku33k1Py1k3DVrWpDguKSFZBKzjHtYETgDbWzB+EzYx+AVhG7QJ2GCE44IjZAGS9pnBV1yNrkBjjeCZeb7jo6M7c0ej5//5X/PT3Hm5WR1mEhMCCCCAAAKOCgxwtG7KRgABBBBAwBcgCHkhIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC1AEDrdfopHAAEEECAIeQ0ggAACCDgtQBA63X6KRwABBBAgCHkNIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC1AEDrdfopHAAEEECAIeQ0ggAACCDgtQBA63X6KRwABBBAgCHkNIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC1AEDrdfopHAAEEECAIeQ0ggAACCDgtQBA63X6KRwABBBAgCHkNIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC1AEDrdfopHAAEEECAIeQ0ggAACCDgtQBA63X6KRwABBBAgCHkNIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC1AEDrdfopHAAEEECAIeQ0ggAACCDgtQBA63X6KRwABBBAgCHkNIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC1AEDrdfopHAAEEECAIeQ0ggAACCDgtQBA63X6KRwABBBAgCHkNIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC1AEDrdfopHAAEEECAIeQ0ggAACCDgtQBA63X6KRwABBBAgCHkNIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC1AEDrdfopHAAEEECAIeQ0ggAACCDgtQBA63X6KRwABBBAgCHkNIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC1AEDrdfopHAAEEECAIeQ0ggAACCDgtQBA63X6KRwABBBAgCHkNIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC1AEDrdfopHAAEEECAIeQ0ggAACCDgtQBA63X6KRwABBBAgCHkNIIAAAgg4LUAQOt1+ikcAAQQQIAh5DSCAAAIIOC2QY0v1bW1t6ujoUE7O+SGdO3dOW7Zs0alTpzRr1iwVFBTYMlTGgQACCCCQIAFr9giXLl2qBx980KdtaWnR5MmTNXv2bC1btkzFxcVatGhRgtgpBQEEEEDAFgFrgjAdZNWqVWptbdWxY8e0Z88eHTp0SOvXr9euXbvSV+MxAggggAACfRawMgiPHz+umpoa5efn+wUOGzZMc+bM0d69e/tcMBtAAAEEEEAgXcCqIPSCbvv27ZoyZUqX0Dt9+rR27NihadOmpY+dxwgggAACCPRZIMucoNLR561EsIHnn39eq1ev1quvvqrXX39dH3/8sf+9tLRUo0eP9o8ZPvnkkxH8JjaBAAIIIIDABQFrgvDCkCTvjNGGhgaVl5dr4MCBevHFF/29xPR1eIwAAggggEAUAlYGYabC6urqVFlZqbKyskxPd1nW2Niol19+ucuy9Jm3335bS5YsSV/E414KHN/2gs6d/lg5Qwb18ifcXO2jc2e0O6dFeTde7yZAiKobThzV4qrbQ/wEqyIQrYA11xFeqqza2lr/WsLeBGFzc7MOHz7c4ya9s1IJwh55LvrE8e0v6aqifOUN+8xF13P9yd+2ndHhwS0afO1VrlNcsv66ffUE4SWVWKE/BWIThLt37+61w9ixY+V99TQ9/vjjPT3F8ksI5N5QqOu/PEnX3fLZS6zp9tPDTfm3uE3Q6+o3Nvyy1+uyIgL9IWDVWaNegd41gwcPHuxWa319vX9dYbcnWIAAAggggEAfBKwJwrNnz/q3UpswYYJuuukm3XPPPfLe4kxNDz30kJ599tnULN8RQAABBBCIRMCaINy6dat/n9H33ntP3sku3m3WqqurdebMmUgKZSMIIIAAAghkErAmCJ966indfffdGjJkiEaMGKEnnnhCgwYN8u8o097enmnsLEMAAQQQQKDPAtYEYVVVlTZt2iTvUyi8KTs7W+vWrdO7776r+++/v3N5nytmAwgggAACCKQJWBOEM2fO1JEjR+TdSSYVhoMHD9bmzZvlnTH69NNPpw2bhwgggAACCEQjYM3lE17oeSfDeJ824e0Npibvxtve7de8a/+8W60xIYAAAgggEKWANUGYKmrixImph53fvQ/rve+++zrneYAAAggggEBUAta8NRpVQWwHAQQQQACBMAIEYRgt1kUAAQQQSJwAQZi4llIQAggggEAYAYIwjBbrIoAAAggkToAgTFxLKQgBBBBAIIwAQRhGi3URQAABBBInQBAmrqUUhAACCCAQRoAgDKPFuggggAACiRMgCBPXUgpCAAEEEAgjQBCG0WJdBBBAAIHECRCEiWspBSGAAAIIhBEgCMNosS4CCCCAQOIECMLEtZSCEEAAAQTCCBCEYbRYFwEEEEAgcQIEYeJaSkEIIIAAAmEECMIwWqyLAAIIIJA4AYIwcS2lIAQQQACBMAIEYRgt1kUAAQQQSJwAQZi4llIQAggggEAYAYIwjBbrIoAAAggkToAgTFxLKQgBBBBAIIwAQRhGi3URQAABBBInQBAmrqUUhAACCCAQRoAgDKPFuggggAACiRMgCBPXUgpCAAEEEAgjQBCG0WJdBBBAAIHECRCEiWspBSGAAAIIhBEgCMNosS4CCCCAQOIECMLEtZSCEEAAAQTCCBCEYbRYFwEEEEAgcQIEYeJaSkEIIIAAAmEECMIwWqyLAAIIIJA4AYIwcS2lIAQQQACBMAIEYRgt1kUAAQQQSJwAQZi4llIQAggggEAYAYIwjBbrIoAAAggkToAgTFxLKQgBBBBAIIwAQRhGi3URQAABBBInQBAmrqUUhAACCCAQRoAgDKPFuggggAACiRPIsa2ikydPqqGhQUePHtWgQYNUVlbmf+Xm5to2VMaDAAIIIJAAAauCcPHixVqxYoWKioo0dOhQtbe3q6mpSa2trVq+fLlqamoSQE4JCCCAAAI2CVgThGvWrNHGjRu1f/9+lZaWdjHat2+fqqqqNGnSJJWXl3d5jhkEEEAAAQT6ImDNMcL6+notWLCgWwh6xY0fP15z587Vtm3b+lIrP4sAAggggEA3AWuCcOrUqVq7dq2am5u7DfLEiRPasGEDe4PdZFiAAAIIINBXAWveGq2urtbOnTtVXFysCRMmqLCw0D9G6IWg99bo/PnzNWPGjL7Wy88jgAACCCDQRcCaIMzLy9PKlSu1cOFC/6zRxsZGZWVlqaSkRBUVFX5Adhk5MwgggAACCEQgYE0QpmrxTobJdEJMXV2dKisr/UspUuv29P2ll17y30rt6fkjR4709BTLEUAAAQQcE7AuCHvyr62tVUFBQa+CcOTIkbrrrrt62pSeeuqpHp/jCQQQQAABtwRiE4S7d+/udWeuv/56eV89TUOGDOnpKZYjgAACCDgmYM1Zoyn3Q4cO6eDBg6nZzu/e5RXHjh3rnOcBAggggAACUQhYE4Rnz57VrFmz/DNGb7rpJt1zzz1dLqV46KGH9Oyzz0ZRM9tAAAEEEECgU8CaINy6datycnL03nvvyTtjtKWlRd4lFWfOnOkcLA8QQAABBBCIWsCaIPROYLn77rvlHb8bMWKEnnjiCf+m23PmzPGvJ4y6cLaHAAIIIICAJ2BNEHr3Et20aZPa2tr8zmRnZ2vdunV69913df/993cup20IIIAAAghEKWBNEM6cOVPe9X3eDbdTYTh48GBt3rxZ3hmjTz/9dJR1sy0EEEAAAQR8AWsun/BCzzsZZs+ePfL2BlNTfn6+nn/+ea1atUqjR49OLeY7AggggAACkQhYE4SpaiZOnJh62PndO4nmvvvu65znAQIIIIAAAlEJWPPWaFQFsR0EEEAAAQTCCBCEYbRYFwEEEEAgcQIEYeJaSkEIIIAAAmEECMIwWqyLAAIIIJA4AYIwcS2lIAQQQACBMAIEYRgt1kUAAQQQSJwAQZi4llIQAggggEAYAYIwjBbrIoAAAggkToAgTFxLKQgBBBBAIIwAQRhGi3URQAABBBInQBAmrqUUhAACCCAQRoAgDKPFuggggAACiRMgCBPXUgpCAAEEEAgjQBCG0WJdBBBAAIHECRCEiWspBSGAAAIIhBEgCMNosS4CCCCAQOIECMLEtZSCEEAAAQTCCBCEYbRYFwEEEEAgcQIEYeJaSkEIIIAAAmEECMIwWqyLAAIIIJA4AYIwcS2lIAQQQACBMAIEYRgt1kUAAQQQSJwAQZi4llIQAggggEAYAYIwjBbrIoAAAggkToAgTFxLKQgBBBBAIIwAQRhGi3URQAABBBInQBAmrqUUhAACCCAQRoAgDKPFuggggAACiRMgCBPXUgpCAAEEEAgjQBCG0WJdBBBAAIHECRCEiWspBSGAAAIIhBEgCMNosS4CCCCAQOIECMLEtZSCEEAAAQTCCBCEYbRYFwEEEEAgcQIEYeJaSkEIIIAAAmEECMIwWqyLAAIIIJA4AYIwcS2lIAQQQACBMAIEYRgt1kUAAQQQSJwAQZi4llIQAggggEAYgZwwK/fnum1tbero6FBOzvkhnTt3Tlu2bNGpU6c0a9YsFRQU9OevZ9sIIIAAAo4KWLNHuHTpUj344IN+G1paWjR58mTNnj1by5YtU3FxsRYtWuRoiygbAQQQQKA/BawJwvQiV61apdbWVh07dkx79uzRoUOHtH79eu3atSt9NR4jgAACCCDQZwErg/D48eOqqalRfn6+X+CwYcM0Z84c7d27t88FswEEEEAAAQTSBawKQi/otm/frilTpnQJvdOnT2vHjh2aNm1a+th5jAACCCCAQJ8FrAnC6dOna9SoUVqyZImqq6u1bt06vfHGG/7JMiNGjFBRUZHGjRvX54LZAAIIIIAAAukC1pw1WllZKe/Lm7wzRhsaGjR69GgNHDhQGzdu9PcS0wfOYwQQQAABBKIQsCYI04vxLqEYO3Zs5yLvrVImBBBAAAEE+kPAyiDMVGhdXZ2/x1hWVpbp6S7LNm3aJO9yjJ6mAwcO9PQUyxGIjcDf7tis/9PwS+XnDY7NmDMNdO+xw5qxZlmmp2KzrOXsGY0s+Ix+8vVvxmbMDPSCQGyCsLa21r+ovjdBeOedd8r76mnyrlFkQiDuAsPzh+r+ium69xZez1e6l/VHGs0fJa9e6WHw+z+lQGyCcPfu3Z+yRH4MAQQQQACBngWsOWu05yHyDAIIIIAAAv0nQBD2ny1bRgABBBCIgYA1b40+8sgjeu655y5K9sADD6iiouKi6/AkAggggAACYQSsCULvBJaHH35YY8aM0R133JGxhsLCwozLWYgAAggggMCnFbAmCG+77TZt3brVv43a6tWrNXz48E9bEz+HAAIIIIBArwWsOkZ48803+3uFr7zySq8LYEUEEEAAAQT6ImDNHmGqiHnz5qUe8h0BBBBAAIF+F7Bqj7Dfq+UXIIAAAgggEBAgCAMgzCKAAAIIuCVAELrVb6pFAAEEEAgIEIQBEGYRQAABBNwSIAjd6jfVIoAAAggEBAjCAAizCCCAAAJuCRCEbvWbahFAAAEEAgIEYQCEWQQQQAABtwQIQrf6TbUIIIAAAgEBgjAAwiwCCCCAgFsCBKFb/aZaBBBAAIGAAEEYAGEWAQQQQMAtAYLQrX5TLQIIIIBAQIAgDIAwiwACCCDglgBB6Fa/qRYBBBBAICBAEAZAmEUAAQQQcEuAIHSr31SLAAIIIBAQIAgDIMwigAACCLglQBC61W+qRQABBBAICBCEARBmEUAAAQTcEiAI3eo31SKAAAIIBAQIwgAIswgggAACbgkQhG71m2oRQAABBAICBGEAhFkEEEAAAbcECEK3+k21CCCAAAIBAYIwAMIsAggggIBbAgShW/2mWgQQQACBgABBGABhFgEEEEDALQGC0K1+Uy0CCCCAQECAIAyAMIsAAggg4JYAQehWv6kWAQQQQCAgQBAGQJhFAAEEEHBLgCB0q99UiwACCCAQECAIAyDMIoAAAgi4JUAQutVvqkUAAQQQCAgQhAEQZhFAAAEE3BIgCN3qN9UigAACCAQECMIACLMIIIAAAm4JEIRu9ZtqEUAAAQQCAgRhAIRZBBBAAAG3BHJsK/fkyZNqaGjQ0aNHNWjQIJWVlflfubm5tg2V8SCAAAIIJEDAqiBcvHixVqxYoaKiIg0dOlTt7e1qampSa2urli9frpqamgSQUwICCCCAgE0C1gThmjVrtHHjRu3fv1+lpaVdjPbt26eqqipNmjRJ5eXlXZ5jBgEEEEAAgb4IWHOMsL6+XgsWLOgWgl5x48eP19y5c7Vt27a+1MrPIoAAAggg0E3AmiCcOnWq1q5dq+bm5m6DPHHihDZs2MDeYDcZFiCAAAII9FXAmrdGq6urtXPnThUXF2vChAkqLCz0jxF6Iei9NTp//nzNmDGjr/Xy8wgggAACCHQRsCYI8/LytHLlSi1cuNA/a7SxsVFZWVkqKSlRRUWFH5BdRs4MAggggAACEQhYE4SpWryTYTghJqXBdwQQQACB/hawLgh7Kriurk6VlZX+NYU9rZNavmnTJi1dujQ12+37gQMHui2Lw4KX/2iJ2s+dU3belbumsvlXR/XBs7/UwOuGXDGyj9//QMP/+A6V1tx+xcbAL7ZH4NH6f9EjLz2jkmvzr9igPmw5rQ9amrX73cYrNoaWs2c0MDtHz8z9zhUbQ1x/cWyCsLa2VgUFBb0KwjvvvFPeV0/T5MmTe3rK6uVXjxmh0jm3a8jorpeXWD3ofhhc46M/0+CRJf2wZTYZR4Gbim7QvbdO1uKqmXEcfmRj3t90VCvNHwVM4QViE4S7d+8OXx0/gQACCCCAwCUErLl84hLj5GkEEEAAAQT6RYAg7BdWNooAAgggEBcBa94afeSRR/Tcc89d1O2BBx7wL6W46Eo8iQACCCCAQAgBa4LQO4Hl4Ycf1pgxY3THHXdkLMG7yJ4JAQQQQACBKAWsCcLbbrtNW7du1bRp07R69WoNHz48yjrZFgIIIIAAAhkFrDpGePPNN/t7ha+88krGwbIQAQQQQACBqAWs2SNMFTZv3rzUQ74jgAACCCDQ7wJW7RH2e7X8AgQQQAABBAICBGEAhFkEEEAAAbcECEK3+k21CCCAAAIBAYIwAMIsAggggIBbAgShW/2mWgQQQACBgABBGABhFgEEEEDALQGC0K1+Uy0CCCCAQECAIAyAMIsAAggg4JYAQehWv6kWAQQQQCAgQBAGQJhFAAEEEHBLgCB0q99UiwACCCAQECAIAyDMIoAAAgi4JUAQutVvqkUAAQQQCAgQhAEQZhFAAAEE3BIgCN3qN9UigAACCAQECMIACLMIIIAAAm4JEIRu9ZtqEUAAAQQCAgRhAIRZBBBAAAG3BAhCt/pNtQgggAACAQGCMADCLAIIIICAWwIEoVv9ploEEEAAgYAAQRgAYRYBBBBAwC0BgtCtflMtAggggEBAgCAMgDCLAAIIIOCWAEHoVr+pFgEEEEAgIEAQBkCYRQABBBBwS4AgdKvfVIsAAgggEBAgCAMgzCKAAAIIuCVAELrVb6pFAAEEEAgIEIQBEGYRQAABBNwSIAjd6jfVIoAAAggEBAjCAAizCCCAAAJuCRCEbvWbahFAAAEEAgIEYQCEWQQQQAABtwQIQrf6TbUIIIAAAgEBgjAAwiwCCCCAgFsCBKFb/aZaBBBAAIGAAEEYAGEWAQQQQMAtAYLQrX5TLQIIIIBAQIAgDIAwiwACCCDglkCOLeW2tbWpo6NDOTnnh3Tu3Dlt2bJFp06d0qxZs1RQUGDLUBkHAggggECCBKzZI1y6dKkefPBBn7alpUWTJ0/W7NmztWzZMhUXF2vRokUJYqcUBBBAAAFbBKwJwnSQVatWqbW1VceOHdOePXt06NAhrV+/Xrt27UpfjccIIIAAAgj0WcDKIDx+/LhqamqUn5/vFzhs2DDNmTNHe/fu7XPBbAABBBBAAIF0AauC0Au67du3a8qUKV1C7/Tp09qxY4emTZuWPnYeI4AAAggg0GcBa4Jw+vTpGjVqlJYsWaLq6mqtW7dOb7zxhn+yzIgRI1RUVKRx48b1uWA2gAACCCCAQLqANWeNVlZWyvvyJu+M0YaGBo0ePVoDBw7Uxo0b/b3E9IHzGAEEEEAAgSgErAnC9GK8SyjGjh3buch7q7Surs4PyrKyss7lPT3wjjEePHiwp6fV3Nzc43M8gQACCCDgloCVQZipBbW1tf61hL0JwsbGRj3++OOZNuMv+/DDD3t8jicQQAABBNwSiE0Q7t69u9edmTRpkryvnqYXXnihp6dYjgACCCDgmIB1QXjy5En/+ODRo0c1aNAgeXuA3ldubq5jraFcBBBAAIHLIWBVEC5evFgrVqzwzxAdOnSo2tvb1dTU5F9cv3z5cv/awsuBwu9AAAEEEHBHwJogXLNmjX926P79+1VaWtqlA/v27VNVVZX/dmd5eXmX55hBAAEEEECgLwLWXEdYX1+vBQsWdAtBr7jx48dr7ty52rZtW19q5WcRQAABBBDoJmBNEE6dOlVr167NeGnDiRMntGHDBrE32K1/LEAAAQQQ6KOANW+NeneT2blzp/9JExMmTFBhYaF/jNALQe+t0fnz52vGjBl9LJcfRwABBBBAoKuANUGYl5enlStXauHChf5Zo961gFlZWSopKVFFRYUfkF2HzhwCCCCAAAJ9F7AmCFOleG9/8hZoSoPvCCCAAAL9LWDNMcL+LpTtI4AAAgggkEmAIMykwjIEEEAAAWcECEJnWk2hCCCAAAKZBAjCTCosQwABBBBwRoAgdKbVFIoAAgggkEmAIMykwjIEEEAAAWcECEJnWk2hCCCAAAKZBAjCTCosQwABBBBwRoAgdKbVFIoAAgggkEmAIMykwjIEEEAAAWcECEJnWk2hCCCAAAKZBAjCTCosQwABBBBwRoAgdKbVFIoAAgggkEmAIMykwjIEEEAAAWcECEJnWk2hCCCAAAKZBAjCTCosQwABBBBwRoAgdKbVFIoAAgggkEmAIMykwjIEEEAAAWcECEJnWk2hCCCAAAKZBAjCTCosQwABBBBwRoAgdKbVFIoAAgggkEmAIMykwjIEEEAAAWcECEJnWk2hCCCAAAKZBAjCTCosQwABBBBwRoAgdKbVFIoAAgggkEmAIMykwjIEEEAAAWcECEJnWk2hCCCAAAKZBAjCTCosQwABBBBwRoAgdKbVFIoAAgggkEmAIMykwjIEEEAAAWcECEJnWk2hCCCAAAKZBAjCTCosQwABBBBwRoAgdKbVFIoAAgggkEmAIMykwjIEEEAAAWcECEJnWk2hCCCAAAKZBAjCTCosQwABBBBwRoAgdKbVFIoAAgggkEmAIMykwjIEEEAAAWcECEJnWk2hCCCAAAKZBAjCTCosQwABBBBwRiDHtkpPnjyphoYGHT16VIMGDVJZWZn/lZuba9tQGQ8CCCCAQAIErArCxYsXa8WKFSoqKtLQoUPV3t6upqYmtba2avny5aqpqUkAOSUggAACCNgkYE0QrlmzRhs3btT+/ftVWlraxWjfvn2qqqrSpEmTVF5e3uU5ZhBAAAEEEOiLgDXHCOvr67VgwYJuIegVN378eM2dO1fbtm3rS638LAIIIIAAAt0ErAnCqVOnau3atWpubu42yBMnTmjDhg3sDXaTYQECCCCAQF8FrHlrtLq6Wjt37lRxcbEmTJigwsJC/xihF4LeW6Pz58/XjBkz+lovP48AAggggEAXAWuCMC8vTytXrtTChQv9s0YbGxuVlZWlkpISVVRU+AHZZeTMIIAAAgggEIGANUGYqsU7GSbTCTF1dXWqrKz0L6VIrdvT99dff/2ixxPff//9nn6U5QgggAACjglYF4Q9+dfW1qqgoKBXQThkyJCMJ92ktj1v3rzUw1h9H/aNLyn3hsJYjbk/Bnv9lys0MP/q/th0rLY5bcRnYzXe/hrsuBtKVHJtQX9tPjbb9QzmTpwSm/HaNNCsDjPZNCDGggACCCCAwOUUsG6PkDvLXM7287sQQAABBKwKQu4swwsSAQQQQOByC1gThNxZ5nK3nt+HAAIIIOAJWHNBPXeW4QWJAAIIIHAlBKwJQu4sE779HQfeCv9D/AQCCCCAQBcBa94a5c4yXfrS40zH2bPq2PikOh79R3U88y/K6fi4x3WT9sRpvaVclSpbg3RKL6lJGzRQhSrWt8z3oUkrt1s9rTqrc+a/i025uko5RijJU+tZ6ezFGZR3lZSTbIbOFp/7SOowJgM/+V/g419L7S3S4DGdq/DgEgLWXT7xzjvvcGeZDE3rOHxY7Y/9SB2rVktnziir5h4N+OafKuuW8RnWTtaiNp3Wa5qp32qP+Sd+iG7SD/WO/pMK9CW1mHBs1xlNUL2yzH9Jnv5C/6Cf6ZluJXp1d5j/Bpj/HtECfVUV3dZJ0oL/WCut2d69InMjKnkXgw0w73PV/Wep2oFL6n7zlNTwTan8e9L1s8+bNG2U3rxHuvHb0si/Nh7W7O5075ktS6wLQltgbBhHh/k8xo6t283e32Pq+MU2ZU3/ojoOH9GAh5dqwO1ftWGIl2UMR/WPOq51Gqufq1n7zH/TNVIPq8SEYbvZS3pZv6vP63/rak28LOO5Ur/kjL9H2Cbvv3v117pTU/Vl/Z75g+AaPW/+VPgfWq8f6690Q8L3js94e4Rt0jnz9dUl0t2/L31tslR0nfTMq9J3fypt/htpWMLvPdFh6n9umDRqqVT8ZzK3pLzwyvzIOLz+DemzP5AKv3JhOY8yC5i/nZhsFWgbN1Htf/XflFU1VdmNB5S95UlljXHvbiKn1WD+sZ9u9gYH61qzt3OVfseE3gS/bQPMm6KDNUatetfWNkY2rqv8WvPUqKPmLeKB+qaJwuEm9q4xAl/RJE3ReLO/+Epkv8/WDV01UBqSJ71tWp5nHj/whyYMiqVrB0v/vlKafqu0pd7W0Uc3rpMvSINGmsA3e4TpIej9hmuMQcl90ol/ju73JXlLBKHF3c268Uap6YQ63n7H/F//jnnbx82bALWb/cBs8899ahpg/uH3jhNemLLNG4NmN8GRydvje0uH9ZFxSU3nzF7ic2Zf2QtGVyZvj+/NX0snLzD4e4lPm70hLxiTPrWaPwSuMnuEPU1DxkktjT09y/J0Ad49Ttew7HH21p+rwxwzbV/9E7XV/Kl51ZszAMzbpVnV/86ykfb/cNrMP/tnzJ6QN3WYE0bO6oO0+db+H4BFv8ELwq/r36pS8/VvzNvCeWYf2Xtr1NsjnKSbLRpp/w7FC8J7p5vjYPdKU8eak0Nyz7816u0RTjMhkPQpf5p0YL75J+GMOQ5o/mkITr/ZKnnrMF1agGOElzayYo2Otrbzxwv/6cfq2LRZmnCrBtz7Rxrw59+yYnz9OYi3dZ/e108u+is+p/+lIpn3yBya6vWmfmn2Db1jh+NVrmm6NfEnDGVq77OvSS81SN7ZpLeZIwczvtD9rcJMP5eEZa/fZc6dM38ffu5HF84SPfsb6cgK6fD3pYm7pKsd+KOgr70kCPsqeAV+vsN8WHHHT+vUbkIx57U9V2AEl/dXnjN7gx26+GUi2ebo4QBz5Myl6WNzZPS3vsuFt8yvMWfVescPXZpazBsCH5nLBdKPHHgfTpLrAEO7uYzkwDzp/bVmr9AcIx1gjhicNZ8yN/h3pbE/M8dSP+/SK+HT10oQfno7fhKBKyawRI+a82SfNn8gXAhBbzDe5RO3mzdNXZm+9T+l1eYtwPQQ9Gr3Lp/4epUrClKb+UPgo5fNmbQnzYky5jyy3BJ3ao+iUo4RRqHINhC4jAIH9Gs9pd3arO9rtLmIJDvtTolJv5YynfmN/yf9/EXplR9IY0ql7LRT/4JnUab/XBIfZ5s9wXyHgj/qHhKEUYuyPQT6WaDVHBUs143mopHh/fyb7N58izlJ5HMmAG8us3ucjM5+gbS/oewfLCNEAAGZ80TLzB11WvULvWjuuXPxY6dJ9rpllHTaHB/8Z3NCSLO7DElu8WWrjT3Cy0bNL0IgGoEmfWguHjmpP9ffm9NicszpMebq8k+mh83SL5mLKlyYjpqzI5v+VbpnqbnPpvmX7Brz9mBqeszcXuzOitQc3xG4uAAny1zch2cRsE7Au1yiUe9lHNcwfca/00zGJxO20LvV2ltHMhc13NxXwLvTDBMCvREgCHujxDoIWChw2Fxd6V1HeLNG+Z85UerQXWXS29F4TKpvkG4Zff6SiZG/k/4sjxG4tABvjV7aiDUQsE5gjbbo78xNBIaYW839heb49xj1LqX4gb7j1EX1P3hS+svV598WXfpn5h6jL3l3HpLWLXHnonrrXpwxHBAny8SwaQzZbQHvGOH3tFZbzedN3KUv+hjfM5/Ecdwsf8O8aerKdMwcI/wvJgRffVT6ky+fr3rVQum9D8yyg64oUGcUAgRhFIpsA4HLKHDIHB/07jF6o67v/K2DzQkzk80HVe3Rgc5lSX/w1rvn7zFalnafce9TKb54i/TCm0mvnvqiFCAIo9RkWwhcBoEyFfuB977MLtEn02/NBRWbza23R5iPqHJlKh92PvC8PcDU9NFp6fGd0mjzHBMCvRXgZJneSrEeAhYJPKLHzefVP6FCXWfusnq1fmU+maNS4/SYFjt1jPBv66T/vt58Onu+ubOKub/oQXMD6j8we4RP/FeOEVr0crV+KASh9S1igAh0FfDuLHNETf7F9N4nUHgX13/eXGQ/zHz+hnfT7RJzCYVL0563pZ3mEyi8i+u9i+xv/z1C0KX+R1ErQRiFIttA4DIIeHeR+VfzSRyHzWkx3h7h35mL51NTm9r1l/qhvqYqfeOTE2hSzyXtu/dxS2fNpy5cbMq7SsrJvtgaPIfABQEun7hgwSMErBZoNvt+d2qR+eilFvPRxG36A93fOV7vxtveyTMVDnww7/3ms/bWbO8svfOBd6Nt71MoBpgzH7xPn6ie0vkUDxC4qAB7hBfl4UkE7BN4Tyf0Y3NqzBL9iX2Duwwj8u4oc7bNfOSQ+fqquV7w7t+XvjZZKrru/CfUf/en0ua/kbxPsGdCoDcCBGFvlFgHgZgIeHuKOeaDmVyYXn5LWvSY9H//vmu13/mh+VQK88Ec82Z2Xc4cAj0JcPlETzIsR8BSgV/pmGq13kSe2SX6ZPJOoPmufqTtqk8tSvx3b4/vzV9LJ5svlOrtJT79qjSq+MIyHiFwKQGOEV5KiOcRsExgqLlg4nm9Zj6E6XUTiA/4J9B8W8vNEcICfUt/aNlo+284XhDeO10aee/5C+sH555/a3T6rdK0cf33e9ly8gR4azR5PaUiBwS8vcEV5jpC756j3uPF+mP9B/MBTC59Qn2qzc+aSydeMjfd9s4mve2z0owvcPlEyobvvRNgj7B3TqyFgFUC3l1l9uptc8VgvrmK8Ix5Q/RNzTTnjOabKwldm6rM3p/3xYTApxXgGOGnlePnELhCAl4IztQC/3ZqT5qrCX+u7/sfw/QVfdvcafRXV2hU/FoE4ivAW6Px7R0jd1TA+5SJBhN402QOhqVNvzBHDa/RYE3R+LSlPEQAgUsJEISXEuJ5BCwV4IN5LW0Mw4qdAMcIY9cyBoyAubMKH8zLywCByAQ4RhgZJRtC4PII8MG8l8eZ3+KOAEHoTq+pNCECfDBvQhpJGdYIEITWtIKBINA7AT6Yt3dOrIVAbwU4Waa3UqyHgEUCfDCvRc1gKLEXIAhj30IKcFXgNR30L6RPfTDvF/UFJ+8s42r/qTs6AYIwOku2hAACCCAQQwGOEcawaQwZAQQQQCA6AYIwOku2hAACCCAQQwGCMIZNY8gIIIAAAtEJEITRWbIlBBBAAIEYChCEMWwaQ0YAAQQQiE6AIIzOki0hgAACCMRQgCCMYdMYMgIIIIBAdAIEYXSWbAkBBBBAIIYCBGEMm8aQEUAAAQSiEyAIo7NkSwgggAACMRQgCGPYNIaMAAIIIBCdAEEYnSVbQgABBBCIoQBBGMOmMWQEEEAAgegECMLoLNkSAggggEAMBQjCGDaNISOAAAIIRCdAEEZnyZYQQAABBGIoQBDGsGkMGQEEEEAgOgGCMDpLtoQAAgggEEMBgjCGTWPICCCAAALRCRCE0VmyJQQQQACBGAoQhDFsGkNGAAEEEIhOgCCMzpItIYAAAgjEUIAgjGHTGDICCCCAQHQCBGF0lmwJAQQQQCCGAgRhDJvGkBFAAAEEohMgCKOzZEsIIIAAAjEUIAhj2DSGjAACCCAQnQBBGJ0lW0IAAQQQiKEAQRjDpjFkBBBAAIHoBAjC6CzZEgIIIIBADAUIwhg2jSEjgAACCEQnQBBGZ8mWEEAAAQRiKEAQxrBpDBkBBBBAIDoBgjA6S7aEAAIIIBBDAYIwhk1jyAgggAAC0QkQhNFZsiUEEEAAgRgKEIQxbBpDRgABBBCIToAgjM6SLSGAAAIIxFCAIIxh0xgyAggggEB0AgRhdJZsCQEEEEAghgIEYQybxpARQAABBKITIAijs2RLCCCAAAIxFPj/KjcV90JXHmYAAAAASUVORK5CYII=" /><!-- --></p>
<p>Sort</p>
<div class="sourceCode" id="cb16"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb16-1"><a href="#cb16-1" tabindex="-1"></a>dend2 <span class="ot">&lt;-</span> <span class="fu">sort</span>(dend)</span>
<span id="cb16-2"><a href="#cb16-2" tabindex="-1"></a><span class="fu">plot</span>(dend2)</span></code></pre></div>
<p><img role="img" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAcIAAAHCCAYAAAB8GMlFAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAHCoAMABAAAAAEAAAHCAAAAAOQBvRMAACq3SURBVHgB7d0PfFXlnefxb0gwgWglJNWGGIiAZWYELNYdQiDMOrRMEeluZkatE5wpO7wGO133ZaFQlplxt/ua5bVOZ8yy0qW1zFKmQ4Cx7ouVwhaQbkH8F5QKigQVUgsKArYFDSGQP/s8lyYkJzfhHm8CT57nc3zllXvOee655/d+bvxy/me0mkEMCCCAAAIIBCowINC6KRsBBBBAAIGEAEHIFwEBBBBAIGgBgjDo7qd4BBBAAAGCkO8AAggggEDQAgRh0N1P8QgggAACBCHfAQQQQACBoAUIwqC7n+IRQAABBAhCvgMIIIAAAkELEIRBdz/FI4AAAggQhHwHEEAAAQSCFiAIg+5+ikcAAQQQIAj5DiCAAAIIBC1AEAbd/RSPAAIIIEAQ8h1AAAEEEAhagCAMuvspHgEEEECAIOQ7gAACCCAQtABBGHT3UzwCCCCAAEHIdwABBBBAIGgBgjDo7qd4BBBAAAGCkO8AAggggEDQAgRh0N1P8QgggAACBCHfAQQQQACBoAUIwqC7n+IRQAABBAhCvgMIIIAAAkELEIRBdz/FI4AAAggQhHwHEEAAAQSCFiAIg+5+ikcAAQQQIAj5DiCAAAIIBC1AEAbd/RSPAAIIIEAQ8h1AAAEEEAhagCAMuvspHgEEEECAIOQ7gAACCCAQtABBGHT3UzwCCCCAAEHIdwABBBBAIGgBgjDo7qd4BBBAAAGCkO8AAggggEDQAgRh0N1P8QgggAACBCHfAQQQQACBoAUIwqC7n+IRQAABBAhCvgMIIIAAAkELEIRBdz/FI4AAAggQhHwHEEAAAQSCFiAIg+5+ikcAAQQQIAj5DiCAAAIIBC1AEAbd/RSPAAIIIEAQ8h1AAAEEEAhagCAMuvspHgEEEECAIOQ7gAACCCAQtABBGHT3UzwCCCCAAEHIdwABBBBAIGgBgjDo7qd4BBBAAAGCkO8AAggggEDQAgRh0N1P8QgggAACBCHfAQQQQACBoAUIwqC7n+IRQAABBAhCvgMIIIAAAkELEIRBdz/FI4AAAggQhHwHEEAAAQSCFiAIg+5+ikcAAQQQIAj5DiCAAAIIBC1AEAbd/RSPAAIIIEAQ8h1AAAEEEAhagCAMuvspHgEEEECAIOQ7gAACCCAQtECWK9U3NzertbVVWVkXV6mpqUmbN2/WmTNnNHPmTOXl5bmyqqwHAggggIBHAs5sES5dulSLFi1K0DY0NGjSpEm699579dhjj6mwsFALFy70iJ1SEEAAAQRcEXAmCDuCrFy5Uo2NjTp+/Lj27Nmjw4cPa926ddq1a1fHZrxGAAEEEEAgbQEng/DEiROqrKzUkCFDEgUOGzZMs2fP1t69e9MumAUggAACCCDQUcCpILRBt23bNk2ePLlT6J09e1Y7duzQ1KlTO647rxFAAAEEEEhbIMOcoNKa9lJ6YQHPP/+8Vq1apVdffVWvv/66zp07l/hdXFysUaNGJY4ZPv30073wSSwCAQQQQACBSwLOBOGlVZLsGaO1tbUaPXq0Bg4cqBdffDGxldixDa8RQAABBBDoDQEngzBZYdXV1SorK1NJSUmy2Z2m1dXV6eWXX+40rePIW2+9pSVLlnScxOsUBU5sfUFNZ88pK3dQiu+g2ccV2PvRKX048kYNuMaZq5w+binOv6/25DF9fcp0ZQ3A2vnO6oMV7De9XlVVlbiWMJUgrK+v15EjR7rlsmelEoTd8vQ448S2l3RNwRDlDPtkj+2Ymb7AiYZT+mXBQBOE16S/MJbQo8C/7H9Z/6H0c8qCukcnX2f2myDcvXt3yn0wduxY2Z/uhieffLK7WUy/jED2jfm64fMTdf1tn75MS2anK1CZ7gJ4f8oC//et15Q5wKlzB1NedxqmL+Bcz9trBg8dOtSlspqamsR1hV1mMAEBBBBAAIE0BJwJwgsXLiRupTZhwgTdcsstuv/++2V3cbYNjzzyiJ599tm2UX4jgAACCCDQKwLOBOGWLVsS9xl97733ZE92sbdZq6io0Pnz53ulUBaCAAIIIIBAMgFngvCZZ57Rfffdp9zcXI0YMUJPPfWUBg0alLijTEtLS7J1ZxoCCCCAAAJpCzgThOXl5dq4caPsUyjskJmZqbVr1+rdd9/VQw891D497YpZAAIIIIAAAh0EnAnCGTNm6OjRo7J3kmkLw8GDB2vTpk2yZ4xu3769w2rzEgEEEEAAgd4RcObyCRt69mQY+7QJuzXYNtgbb9vbr9lr/+yt1hgQQAABBBDoTQFngrCtqNtvv73tZftv+7DeBx98sH2cFwgggAACCPSWgDO7RnurIJaDAAIIIIBAHAGCMI4WbRFAAAEEvBMgCL3rUgpCAAEEEIgjQBDG0aItAggggIB3AgShd11KQQgggAACcQQIwjhatEUAAQQQ8E6AIPSuSykIAQQQQCCOAEEYR4u2CCCAAALeCRCE3nUpBSGAAAIIxBEgCONo0RYBBBBAwDsBgtC7LqUgBBBAAIE4AgRhHC3aIoAAAgh4J0AQetelFIQAAgggEEeAIIyjRVsEEEAAAe8ECELvupSCEEAAAQTiCBCEcbRoiwACCCDgnQBB6F2XUhACCCCAQBwBgjCOFm0RQAABBLwTIAi961IKQgABBBCII0AQxtGiLQIIIICAdwIEoXddSkEIIIAAAnEECMI4WrRFAAEEEPBOgCD0rkspCAEEEEAgjgBBGEeLtggggAAC3gkQhN51KQUhgAACCMQRIAjjaNEWAQQQQMA7AYLQuy6lIAQQQACBOAIEYRwt2iKAAAIIeCdAEHrXpRSEAAIIIBBHgCCMo0VbBBBAAAHvBAhC77qUghBAAAEE4ggQhHG0aIsAAggg4J0AQehdl1IQAggggEAcAYIwjhZtEUAAAQS8EyAIvetSCkIAAQQQiCNAEMbRoi0CCCCAgHcCBKF3XUpBCCCAAAJxBAjCOFq0RQABBBDwToAg9K5LKQgBBBBAII4AQRhHi7YIIIAAAt4JZLlW0enTp1VbW6tjx45p0KBBKikpSfxkZ2e7tqqsDwIIIICABwJOBeHixYu1fPlyFRQUaOjQoWppadHJkyfV2NioZcuWqbKy0gNySkAAAQQQcEnAmSBcvXq1NmzYoAMHDqi4uLiT0b59+1ReXq6JEydq9OjRneYxggACCCCAQDoCzhwjrKmp0fz587uEoC1u/PjxmjNnjrZu3ZpOrbwXAQQQQACBLgLOBOGUKVO0Zs0a1dfXd1nJU6dOaf369WwNdpFhAgIIIIBAugLO7BqtqKjQzp07VVhYqAkTJig/Pz9xjNCGoN01Om/ePE2fPj3denk/AggggAACnQScCcKcnBytWLFCCxYsSJw1WldXp4yMDBUVFam0tDQRkJ3WnBEEEEAAAQR6QcCZIGyrxZ4Mk+yEmOrqapWVlSUupWhr293vl156KbErtbv5R48e7W4W0xFAAAEEAhNwLgi786+qqlJeXl5KQXjzzTfrnnvu6W5ReuaZZ7qdxwwEEEAAgbAE+k0Q7t69O+WeueGGG2R/uhtyc3O7m8V0BBBAAIHABJw5a7TN/fDhwzp06FDbaPtve3nF8ePH28d5gQACCCCAQG8IOBOEFy5c0MyZMxNnjN5yyy26//77O11K8cgjj+jZZ5/tjZpZBgIIIIAAAu0CzgThli1blJWVpffee0/2jNGGhgbZSyrOnz/fvrK8QAABBBBAoLcFnAlCewLLfffdJ3v8bsSIEXrqqacSN92ePXt24nrC3i6c5SGAAAIIIGAFnAlCey/RjRs3qrm5OdEzmZmZWrt2rd5991099NBD7dPpNgQQQAABBHpTwJkgnDFjhuz1ffaG221hOHjwYG3atEn2jNHt27f3Zt0sCwEEEEAAgYSAM5dP2NCzJ8Ps2bNHdmuwbRgyZIief/55rVy5UqNGjWqbzG8EEEAAAQR6RcCZIGyr5vbbb2972f7bnkTz4IMPto/zAgEEEEAAgd4ScGbXaG8VxHIQQAABBBCII0AQxtGiLQIIIICAdwIEoXddSkEIIIAAAnEECMI4WrRFAAEEEPBOgCD0rkspCAEEEEAgjgBBGEeLtggggAAC3gkQhN51KQUhgAACCMQRIAjjaNEWAQQQQMA7AYLQuy6lIAQQQACBOAIEYRwt2iKAAAIIeCdAEHrXpRSEAAIIIBBHgCCMo0VbBBBAAAHvBAhC77qUghBAAAEE4ggQhHG0aIsAAggg4J0AQehdl1IQAggggEAcAYIwjhZtEUAAAQS8EyAIvetSCkIAAQQQiCNAEMbRoi0CCCCAgHcCBKF3XUpBCCCAAAJxBAjCOFq0RQABBBDwToAg9K5LKQgBBBBAII4AQRhHi7YIIIAAAt4JEITedSkFIYAAAgjEESAI42jRFgEEEEDAOwGC0LsupSAEEEAAgTgCBGEcLdoigAACCHgnQBB616UUhAACCCAQR4AgjKNFWwQQQAAB7wQIQu+6lIIQQAABBOIIEIRxtGiLAAIIIOCdAEHoXZdSEAIIIIBAHAGCMI4WbRFAAAEEvBMgCL3rUgpCAAEEEIgjQBDG0aItAggggIB3AgShd11KQQgggAACcQQIwjhatEUAAQQQ8E6AIPSuSykIAQQQQCCOAEEYR4u2CCCAAALeCRCE3nUpBSGAAAIIxBHIitO4L9s2NzertbVVWVkXV6mpqUmbN2/WmTNnNHPmTOXl5fXlx7NsBBBAAIFABZzZIly6dKkWLVqU6IaGhgZNmjRJ9957rx577DEVFhZq4cKFgXYRZSOAAAII9KWAM0HYsciVK1eqsbFRx48f1549e3T48GGtW7dOu3bt6tiM1wgggAACCKQt4GQQnjhxQpWVlRoyZEiiwGHDhmn27Nnau3dv2gWzAAQQQAABBDoKOBWENui2bdumyZMndwq9s2fPaseOHZo6dWrHdec1AggggAACaQs4E4TTpk3TyJEjtWTJElVUVGjt2rXav39/4mSZESNGqKCgQOPGjUu7YBaAAAIIIIBARwFnzhotKyuT/bGDPWO0trZWo0aN0sCBA7Vhw4bEVmLHFec1AggggAACvSHgTBB2LMZeQjF27Nj2SXZXKQMCCCCAAAJ9IeBkECYrtLq6OrHFWFJSkmx2p2kbN26UvRyju+HgwYPdzWI6AgjEEFj+4k/0/Vef09BBuTHe5V7TV48f0V3/vEyZGRnurVyKa9TYdEEFudfpqS/9ZYrvoFmbQL8JwqqqqsRF9akE4axZs2R/uhvsNYoMCCCQvsBN1+dpzoQp+urEO9NfGEtIS+DAyWNaUfPTtJYR6pv7TRDu3r071D6ibgQQQACBPhRw5qzRPqyRRSOAAAIIINCtAEHYLQ0zEEAAAQRCEHBm1+jjjz+u5557rkfzhx9+WKWlpT22YSYCCCCAAAJxBJwJQnsCy6OPPqoxY8bo7rvvTlpDfn5+0ulMRAABBBBA4OMKOBOEd9xxh7Zs2ZK4jdqqVas0fPjwj1sT70MAAQQQQCBlAaeOEd56662JrcJXXnkl5QJoiAACCCCAQDoCzmwRthUxd+7ctpf8RgABBBBAoM8FnNoi7PNq+QAEEEAAAQQiAgRhBIRRBBBAAIGwBAjCsPqbahFAAAEEIgIEYQSEUQQQQACBsAQIwrD6m2oRQAABBCICBGEEhFEEEEAAgbAECMKw+ptqEUAAAQQiAgRhBIRRBBBAAIGwBAjCsPqbahFAAAEEIgIEYQSEUQQQQACBsAQIwrD6m2oRQAABBCICBGEEhFEEEEAAgbAECMKw+ptqEUAAAQQiAgRhBIRRBBBAAIGwBAjCsPqbahFAAAEEIgIEYQSEUQQQQACBsAQIwrD6m2oRQAABBCICBGEEhFEEEEAAgbAECMKw+ptqEUAAAQQiAgRhBIRRBBBAAIGwBAjCsPqbahFAAAEEIgIEYQSEUQQQQACBsAQIwrD6m2oRQAABBCICBGEEhFEEEEAAgbAECMKw+ptqEUAAAQQiAgRhBIRRBBBAAIGwBAjCsPqbahFAAAEEIgIEYQSEUQQQQACBsAQIwrD6m2oRQAABBCICBGEEhFEEEEAAgbAECMKw+ptqEUAAAQQiAgRhBIRRBBBAAIGwBAjCsPqbahFAAAEEIgIEYQSEUQQQQACBsAQIwrD6m2oRQAABBCICBGEEhFEEEEAAgbAECMKw+ptqEUAAAQQiAgRhBIRRBBBAAIGwBAjCsPqbahFAAAEEIgIEYQSEUQQQQACBsASyXCv39OnTqq2t1bFjxzRo0CCVlJQkfrKzs11bVdYHAQQQQMADAaeCcPHixVq+fLkKCgo0dOhQtbS06OTJk2psbNSyZctUWVnpATklIIAAAgi4JOBMEK5evVobNmzQgQMHVFxc3Mlo3759Ki8v18SJEzV69OhO8xhBAAEEEEAgHQFnjhHW1NRo/vz5XULQFjd+/HjNmTNHW7duTadW3osAAggggEAXAWeCcMqUKVqzZo3q6+u7rOSpU6e0fv16tga7yDABAQQQQCBdAWd2jVZUVGjnzp0qLCzUhAkTlJ+fnzhGaEPQ7hqdN2+epk+fnm69vB8BBBBAAIFOAs4EYU5OjlasWKEFCxYkzhqtq6tTRkaGioqKVFpamgjITmvOCAIIIIAAAr0g4EwQttViT4bhhJg2DX4jgAACCPS1gHNB2F3B1dXVKisrS1xT2F2btukbN27U0qVL20a7/D548GCXaf1hwst/skQtTU3KzLl611TWv3NMHzz7Mw28PveqkZ17/wMN/9O7VVx511VbBxc++Btbf6itb+/XJ3Ovu2qrc/yjMzrf3KT/U/uzq7YOp881aNTQT6r6nr+4auvAB/dvgX4ThFVVVcrLy0spCGfNmiX7090wadKk7mY5Pf3aMSNUPPsu5Y7qfHmJ0yvdBytX950favDNRX2w5P61yLE3Fsn+PHBb//w+95b29sMHtPvdn/fW4lhOgAL9Jgh3794dYPdQMgIIIIBAXws4c/lEXxfK8hFAAAEEEEgmQBAmU2EaAggggEAwAs7sGn388cf13HPP9Qj/8MMPJy6l6LERMxFAAAEEEIgh4EwQ2hNYHn30UY0ZM0Z333130hLsRfYMCCCAAAII9KaAM0F4xx13aMuWLZo6dapWrVql4cOH92adLAsBBBBAAIGkAk4dI7z11lsTW4WvvPJK0pVlIgIIIIAAAr0t4MwWYVthc+fObXvJbwQQQAABBPpcwKktwj6vlg9AAAEEEEAgIkAQRkAYRQABBBAIS4AgDKu/qRYBBBBAICJAEEZAGEUAAQQQCEuAIAyrv6kWAQQQQCAiQBBGQBhFAAEEEAhLgCAMq7+pFgEEEEAgIkAQRkAYRQABBBAIS4AgDKu/qRYBBBBAICJAEEZAGEUAAQQQCEuAIAyrv6kWAQQQQCAiQBBGQBhFAAEEEAhLgCAMq7+pFgEEEEAgIkAQRkAYRQABBBAIS4AgDKu/qRYBBBBAICJAEEZAGEUAAQQQCEuAIAyrv6kWAQQQQCAiQBBGQBhFAAEEEAhLgCAMq7+pFgEEEEAgIkAQRkAYRQABBBAIS4AgDKu/qRYBBBBAICJAEEZAGEUAAQQQCEuAIAyrv6kWAQQQQCAiQBBGQBhFAAEEEAhLgCAMq7+pFgEEEEAgIkAQRkAYRQABBBAIS4AgDKu/qRYBBBBAICJAEEZAGEUAAQQQCEuAIAyrv6kWAQQQQCAiQBBGQBhFAAEEEAhLgCAMq7+pFgEEEEAgIkAQRkAYRQABBBAIS4AgDKu/qRYBBBBAICJAEEZAGEUAAQQQCEuAIAyrv6kWAQQQQCAiQBBGQBhFAAEEEAhLgCAMq7+pFgEEEEAgIkAQRkAYRQABBBAIS4AgDKu/qRYBBBBAICJAEEZAGEUAAQQQCEsgy5Vym5ub1draqqysi6vU1NSkzZs368yZM5o5c6by8vJcWVXWAwEEEEDAIwFntgiXLl2qRYsWJWgbGho0adIk3XvvvXrsscdUWFiohQsXesROKQgggAACrgg4E4QdQVauXKnGxkYdP35ce/bs0eHDh7Vu3Trt2rWrYzNeI4AAAgggkLaAk0F44sQJVVZWasiQIYkChw0bptmzZ2vv3r1pF8wCEEAAAQQQ6CjgVBDaoNu2bZsmT57cKfTOnj2rHTt2aOrUqR3XndcIIIAAAgikLeBMEE6bNk0jR47UkiVLVFFRobVr12r//v2Jk2VGjBihgoICjRs3Lu2CWQACCCCAAAIdBZw5a7SsrEz2xw72jNHa2lqNGjVKAwcO1IYNGxJbiR1XnNcIIIAAAgj0hoAzQdixGHsJxdixY9sn2V2l1dXViaAsKSlpn97dC3uM8dChQ93NVn19fbfzmIEAAgggEJaAk0GYrAuqqqoS1xKmEoR1dXV68sknky0mMe1Xv/pVt/OYgQACCCAQlkC/CcLdu3en3DMTJ06U/elueOGFF7qbxXQEEEAAgcAEnAvC06dPJ44PHjt2TIMGDZLdArQ/2dnZgXUN5SKAAAIIXAkBp4Jw8eLFWr58eeIM0aFDh6qlpUUnT55MXFy/bNmyxLWFVwKFz0AAAQQQCEfAmSBcvXp14uzQAwcOqLi4uFMP7Nu3T+Xl5YndnaNHj+40jxEEEEAAAQTSEXDmOsKamhrNnz+/Swja4saPH685c+Zo69at6dTKexFAAAEEEOgi4EwQTpkyRWvWrEl6acOpU6e0fv16sTXYpf+YgAACCCCQpoAzu0bt3WR27tyZeNLEhAkTlJ+fnzhGaEPQ7hqdN2+epk+fnma5vB0BBBBAAIHOAs4EYU5OjlasWKEFCxYkzhq11wJmZGSoqKhIpaWliYDsvOqMIYAAAgggkL6AM0HYVord/cku0DYNfiOAAAII9LWAM8cI+7pQlo8AAggggEAyAYIwmQrTEEAAAQSCESAIg+lqCkUAAQQQSCZAECZTYRoCCCCAQDACBGEwXU2hCCCAAALJBAjCZCpMQwABBBAIRoAgDKarKRQBBBBAIJkAQZhMhWkIIIAAAsEIEITBdDWFIoAAAggkEyAIk6kwDQEEEEAgGAGCMJiuplAEEEAAgWQCBGEyFaYhgAACCAQjQBAG09UUigACCCCQTIAgTKbCNAQQQACBYAQIwmC6mkIRQAABBJIJEITJVJiGAAIIIBCMAEEYTFdTKAIIIIBAMgGCMJkK0xBAAAEEghEgCIPpagpFAAEEEEgmQBAmU2EaAggggEAwAgRhMF1NoQgggAACyQQIwmQqTEMAAQQQCEaAIAymqykUAQQQQCCZAEGYTIVpCCCAAALBCBCEwXQ1hSKAAAIIJBMgCJOpMA0BBBBAIBgBgjCYrqZQBBBAAIFkAgRhMhWmIYAAAggEI0AQBtPVFIoAAgggkEyAIEymwjQEEEAAgWAECMJguppCEUAAAQSSCRCEyVSYhgACCCAQjABBGExXUygCCCCAQDIBgjCZCtMQQAABBIIRIAiD6WoKRQABBBBIJkAQJlNhGgIIIIBAMAIEYTBdTaEIIIAAAskECMJkKkxDAAEEEAhGgCAMpqspFAEEEEAgmQBBmEyFaQgggAACwQhkuVbp6dOnVVtbq2PHjmnQoEEqKSlJ/GRnZ7u2qqwPAggggIAHAk4F4eLFi7V8+XIVFBRo6NChamlp0cmTJ9XY2Khly5apsrLSA3JKQAABBBBwScCZIFy9erU2bNigAwcOqLi4uJPRvn37VF5erokTJ2r06NGd5jGCAAIIIIBAOgLOHCOsqanR/Pnzu4SgLW78+PGaM2eOtm7dmk6tvBcBBBBAAIEuAs4E4ZQpU7RmzRrV19d3WclTp05p/fr1bA12kWECAggggEC6As7sGq2oqNDOnTtVWFioCRMmKD8/P3GM0Iag3TU6b948TZ8+Pd16eT8CCCCAAAKdBJwJwpycHK1YsUILFixInDVaV1enjIwMFRUVqbS0NBGQndacEQQQQAABBHpBwJkgbKvFngyT7ISY6upqlZWVJS6laGvb3e/XX3+9x+OJ77//fndvZToCCCCAQGACzgVhd/5VVVXKy8tLKQhzc3OTnnTTtuy5c+e2vexXv4f98eeUfWN+v1rnvljZGz5fqoFDru2LRferZU4d8el+tb59tbLjbixS0Sfy+mrx/Wa51mDO7ZP7zfq6tKIZrWZwaYVYFwQQQAABBK6kgHNbhNxZ5kp2P5+FAAIIIOBUEHJnGb6QCCCAAAJXWsCZIOTOMle66/k8BBBAAAEr4MwF9dxZhi8kAggggMDVEHAmCLmzTPzubz34Zvw38Q4EEEAAgU4Czuwa5c4ynfql25HWCxfUuuFptX7ne2r9yU+V1Xqu27a+zTirN5WtYmVqkM7oJZ3Ueg1Uvgr1FfN7qG/ldltPw8+lQSWXZp9+Xrr2Nikz99I0n181XpAuNPVcYc41UlZmz236+9xGXVCT+a+nIVvXKMv8xTD0LODc5RNvv/02d5ZJ0metR46o5Yl/VOvKVdL588qovF8D/vzLyrhtfJLWfk1q1lm9phn6SHvMn3SubtF39bb+vfL0OTWYcGzReU1QjTLMfz4Prc3SO0ulX3xLmnzCBF/OxWrfeED69Q7p09+WCmb5LHCxtr+oklZv61qnuRGV7MVgA8x+rur/KFV4fkndN/Q/9UP9pAuE/TtoNf8NMP89rvn6gkq7tGFCZwHngrDz6oU91mqex9i6ZZvZ+ntCrT/eqoxpd6r1yFENeHSpBtz1hWBwjul7OqG1GqsfqV77zH/TdLMeVZEJwxbzr+KX9dv6Hf2LrtXtXpv88hnp4IPS2Cel6yZcKtX+z//4auntr5uAPG6CwJn9PJfWsTdfnbdbhOYfBU3m5wtLpPt+T/riJPOPgOuln7wqffMH0qa/lYZ5fu+J84ktwmbZ/x7Qf9EsTdHn9bvmH4jX6XnzT8f/rnX6vv5GNwa0t+Tjfs+cOUb4cQvw+X3N425Xy9/8Z2WUT1Fm3UFlbn5aGWPCu5vIWdWaP+5pZmtwsD5h/nV7jT5lQu9iEgwwO0UHa4wa9a7PX4VEbR9slIr+snMI2hl2S6jwy2Z36UizZfhTO8Xv4ZqBUq7ZGn7LdHmOef3wH0ojC6VPDJb+bZk07TPS5hq/DWx11yS++zmq0zFzyGCg/txE4XATe9eZv4g/0ERN1nizvfiK/xC9UCFB2AuIfbWIjJtukk6eUutbb5u/+rfNbh/zT/8AhxazHZhp/rzbhgHmD90eJ7w0ZJodQWYzwfOh0fyPP9v8D7+7IXecdK6uu7n+TbdbfG/8Qjrd4cltditxu9kqtMEYymC3+N7UEX1o/k7ahiazlfic2Xdig5Hh8gKe70S5PIDLLTK3/Eit5phpy6p/UnPll80/Ac0ZAGZ3aUbFv3F5tftk3ZrNn/l58y9fO7SaEwQu6IMO44198pmuLfT6qdIHP5ZuvL/rmrWYcyZ+bQ4XjVjUdZ6vU2wQPjBNutkcI50yVhqcfXHXqN0inGr+URDKYIPwj/SvVaZ5+lfmMEGO2Va0u0btFuFE3RoKQ1p1cowwLb4r9+bW5uaLxwv/1/fVunGTNOEzGvDAn2jAV79y5VbiKn3SW3pQ7+ufevz039I/q0BmH5nHw7mj0h6z6++GL0klf23OivzExZNDGswOg4PzpOaPpDsC2CUY7eJnX5NeqpXs2aR3mCMH0z97cXdxtJ3v4zV6Qz8z24b22OF4jdZUfcb7E8h6q08Jwt6SvILLaTUPK279QbVaTChmvbbnCn7y1fmoJrM12KpzPX54pjl6OMAcKfF9aDC7PvfNks7uNzsIhpkTRk6bnQQNF7cSx3zPnEnacY+x7xi/qa/B7BD40Bh0PHJgH06SbY4fhjScM0fKP0r8nVw6hHKdOcvaHj9k6FmAIOzZh7kIOCnQaM4O/XC32So0Tx+61uwKzAr0qVRf+R/Sqi2dQ9B2mL184o/Kney6PlmpJfqOOW96u/kH46UQtB9kL5+4y+w0ZehZgGOEPfswFwEnBbI/ZbZ4zJZhyMP+n0s/elF65dvSmGKzNdzh1D97Jm0ow0H9Qs9otzbpHzTKXFSU2eHOmb5fW9tbfUwQ9pYky0EAgSsq0HBe+i0TgLeWXNGPde7DGs1RwdG6yVxENNy5desvK9Th31D9ZZVZTwQQQEC6baQ5VmqOD/7vXVJ9z4eQveb6bZWYOyw16sd60dyDKWCINHqZLcI08HgrAghcPYFjvzSX2f5aut/cdm6g+T/ZdR1OFHria9Ks0qu3blfyk0/qV+ZiotP6qv7enBaTZU6PMXcb+M3wqJn6OXNRBUPPApws07MPcxFAwFEBe6u1N48mX7nh5jpye6eZEAZ7uUSd3kta6jB9MnGnmaQzmdguQBC2U/ACAQT6o0CdOYO2ptbsKh118ZKJmz/VH6tIf52PmKtt7XWEt2pk4pkTxdxVJmVUdo2mTEVDBBBwTeDbT0t/teribtGl/87cY/QlcymFWcm1S8K6qH61NuvvzE0lcs2tB7+h2Yl7jNpLKb6tr3NRfQpfWk6WSQGJJggg4J7AcXOM8K9NCL76HenPPn9x/VYukN77wEw75N769tUa2WOE39IabTHPm7hHdyY+5lvmySwnzPT9Zqcpw+UFCMLLG9ECAQQcFHjT3ITc3mO0pMN9pe1TKe40Dyl+4Q0HV7iPVumwOT5o7zF6k25o/4TB5oSZSebBZXt0sH0aL7oXIAi7t2EOAgg4LDDa3GLOBp7dAmwbPjwrPblTGmXmhTKUqDAReO/LbCL/ZvjIXFCxydx6e4R5ZBnD5QU4WebyRrRAAAFHBf5rtfTf1pkbkQ+R7P1FD5kHlPy+2SJ86j+FdYzwcT1pnlf/lPJ1vbnr7rV6xzyppUzj9IQWc4wwhe8uQZgCEk0QQMBdgT1vSTvNEyjsxfX2Ivu7fjesELR3ljmqk4mL6e0TKOzF9b9jLrIfZp7HYm+6XWQuoWDoWYAg7NmHuQgg4JiAfdzSBfP8xZ6GnGvMjcgze2rR/+fZu8j82jyZ5Yg5LcZuEf6duXi+bWhWi/5K39UXVa4//s0JNG3z+N1VgMsnupowBQEEHBZ4aLm0elvXFbQ32raPYhpgznywT5+omNy1jU9T6s223ywtNI9eajCPqm7W7+uh9vLsjbftyTOlPJi33aSnF2wR9qTDPAQQcE7A3lHmQrN5FqP5+YK5XvC+35O+OEkquP7iE+q/+QNp099K9gn2IQzv6ZS+b06NWaI/C6HcPqmRIOwTVhaKAAJ9LfDym9LCJ6T/9/edP+nr3zVPpTAPYpg7o/P0EMfslmKWeTATQ88CXD7Rsw9zEUDAUQG7xffGL6TT9ZdW0G4lbn9VGll4aZrvr97RcVVpnYk8U/xvBnsCzTf1j9qmmrZJ/O5BgGOEPeAwCwEE3BWwQfjANOnmBy5eWD84++Ku0WmfkaaOc3e9e3vNhpoLJp7Xa+YhTK+bQHw4cQLN17TMHCHM01f0h739cV4uj12jXnYrRSEQjsCz5tKJl8xNt+3ZpHd8Wpr+2bAun7A9bbcGl5vrCO09R+3rxfpTfck8gIkn1Kf2d8AWYWpOtEIAAUcFys3Wn/0JebB3ldmrt8wVg0PMVYTnzQ7RNzTDnDM6xFxJyHB5AY4RXt6IFggggICzAjYEZ2h+4nZqT5urCX+kf0g8hukP9DVzp9F3nF1vl1aMXaMu9QbrggACCMQUsE+ZqDWBN1Xm4GiH4cfmqOF1GqzJGt9hKi+TCRCEyVSYhgACCPQzAR7M+/E7jGOEH9+OdyKAAAJOCPBg3vS6gWOE6fnxbgQQQOCqCvBg3vT5CcL0DVkCAgggcNUEeDBv+vQEYfqGLAEBBBC4agI8mDd9ek6WSd+QJSCAAAJXVYAH86bHTxCm58e7EUAAAScEXtOhxIX0bQ/mvVOf5c4yKfYMQZgiFM0QQAABBPwU4Bihn/1KVQgggAACKQoQhClC0QwBBBBAwE8BgtDPfqUqBBBAAIEUBQjCFKFohgACCCDgpwBB6Ge/UhUCCCCAQIoCBGGKUDRDAAEEEPBTgCD0s1+pCgEEEEAgRQGCMEUomiGAAAII+ClAEPrZr1SFAAIIIJCiAEGYIhTNEEAAAQT8FCAI/exXqkIAAQQQSFGAIEwRimYIIIAAAn4KEIR+9itVIYAAAgikKEAQpghFMwQQQAABPwUIQj/7laoQQAABBFIUIAhThKIZAggggICfAgShn/1KVQgggAACKQoQhClC0QwBBBBAwE8BgtDPfqUqBBBAAIEUBQjCFKFohgACCCDgpwBB6Ge/UhUCCCCAQIoCBGGKUDRDAAEEEPBTgCD0s1+pCgEEEEAgRQGCMEUomiGAAAII+ClAEPrZr1SFAAIIIJCiAEGYIhTNEEAAAQT8FCAI/exXqkIAAQQQSFGAIEwRimYIIIAAAn4KEIR+9itVIYAAAgikKEAQpghFMwQQQAABPwUIQj/7laoQQAABBFIUIAhThKIZAggggICfAgShn/1KVQgggAACKQoQhClC0QwBBBBAwE8BgtDPfqUqBBBAAIEUBQjCFKFohgACCCDgpwBB6Ge/UhUCCCCAQIoCBGGKUDRDAAEEEPBTgCD0s1+pCgEEEEAgRQGCMEUomiGAAAII+ClAEPrZr1SFAAIIIJCiAEGYIhTNEEAAAQT8FPj/zGwWroOTPYIAAAAASUVORK5CYII=" /><!-- --></p>
<p>Compare</p>
<div class="sourceCode" id="cb17"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb17-1"><a href="#cb17-1" tabindex="-1"></a><span class="fu">tanglegram</span>( dend, dend2 )</span></code></pre></div>
<p><img role="img" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAcIAAAHCCAYAAAB8GMlFAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAHCoAMABAAAAAEAAAHCAAAAAOQBvRMAAEAASURBVHgB7d0FnBz1+cfx71nuLq7EXUiCe3EobsULFE+xFij/Uiy4lkJpqQANFG2B4oS2UCgS3AsJcfeEuMvp/n/PbPZyt5e73N6tzM58Hl5hZ3dnfvL+zc2zMzs7kxNxIQIBBBBAAIGQCuSGtN90GwEEEEAAAU+ARMiKgAACCCAQagESYaiHn84jgAACCJAIWQcQQAABBEItQCIM9fDTeQQQQAABEiHrAAIIIIBAqAVIhKEefjqPAAIIIEAiZB1AAAEEEAi1AIkw1MNP5xFAAAEESISsAwgggAACoRYgEYZ6+Ok8AggggACJkHUAAQQQQCDUAiTCUA8/nUcAAQQQIBGyDiCAAAIIhFqARBjq4afzCCCAAAIkQtYBBBBAAIFQC5AIQz38dB4BBBBAgETIOoAAAgggEGoBEmGoh5/OI4AAAgiQCFkHEEAAAQRCLUAiDPXw03kEEEAAARIh6wACCCCAQKgFSIShHn46jwACCCBAImQdQAABBBAItQCJMNTDT+cRQAABBEiErAMIIIAAAqEWIBGGevjpPAIIIIAAiZB1AAEEEEAg1AIkwlAPP51HAAEEECARsg4ggAACCIRagEQY6uGn8wgggAACJELWAQQQQACBUAuQCEM9/HQeAQQQQIBEyDqAAAIIIBBqARJhqIefziOAAAIIkAhZBxBAAAEEQi1AIgz18NN5BBBAAAESIesAAggggECoBUiEoR5+Oo8AAgggQCJkHUAAgYwIrNG6hOudo0WarvkJL8cCCNQnQCKsT4f3GiVQslBa+IS06FmpbGWjimChgAu8q6/1uj5NuJfjNcMtOTHh5VgAgfoE8ut7k/cQSFRg/VRpyqVSj8ulSLk09nhp57el3GaJlsT82SzwqP6pmVqg/uquYTpOt+kxXagfaYJmaa3WuxQ4Vgu1TEfqB3pJo2rMe7+ec0t10kcao8O0h1tqf1l532maW7LEey2bbWi7/wRIhCkck9LycpVUlCsvN5g73kX5+crNqdm3+Q9Ife+Q2uwVhS3qJVW4I2DJTIRfnnqNhv76MrUc6AonfCOwduocTbj+ARW/eLFWunR3vc7VQ3rFpa95OlNH6EY94rX1YV2rIhW6edZorhbXmneWS5F7aIh+r1+4Eu7QDhrgUuI0/VlX6rd6eov9rYxUaqP7eyOaLlDiHNsVN296QVlUAokwhYN16/v/1LvTJ6pLqzYprCVzRd980HHarVvvGg1YN15qMWTzS6122zydrKnSpSs1/ro/a/dn71JeIbuayXJtSjkVJaXemJQtX6WpLmlN1mz9SS96Ra5x+3E7a6D7RnCj9nFprUCbNzu2lxc/ry20vfp589m8C7TEpcLuXllD1del2A3edPX/fbtwrm5//1/VX2K6kQLjFs3Xh8OuUfc27RpZQvYttnmNzL62+77FQzt107Ydu+jcnffxfVuT1cDigdKG6VKrXaIlLneHRYv6Ss0HJKuGaDnrZ8zT9N8/rUHDhyW3YEprlICNhY1JQdtWOlC76GO3D2eHQkdopNqqpZ7UGzreHeL8XOPcN3yz3P5ggXdo9AQdUGtea0CO+y8Wlvwe0stuv3Kx3tQX2k87xt6qerQPZK/95LKq50w0XuDHz49Qi2aFjS8gC5eseVwrCztAk/0l0P1n0vRrpbVjpOXvSrNukwqjH+aT1tC8FsVeWfNfeFvLPh6dtHIpqHECyz76VjYWFjY2PbSNLtMp+rtLW/trJ/VSZ5f28nSG+3bvJp3vHSrdQ0OV65JdSxXXmLevuuko7e0OnUb39E90ibKdWmm4O0j6ij5wh1gP13Zub5FAIJkCOREXySyQsjYLPD3mc1W47y7CtEdovV87VlrqjlLltZC2OdUlwm6bTZIxtfjtzzX+mj96RTXr0EZ7vHCvmrVvnYyiKSNBgdLlq2Xf2dohUYvt7r1C2xz2gwRLYXY/Cdge4SM/OkdtQ/Q9IXuEfloDA9KWljtIfa6Xel6R/CRoRLah7XzUvp5W6bJVmnTbwwGRy75umH0sCdqYkASzbwxpsTuZDwQEslFg4PDzVdilg9f0ZR9+o3nPv5WN3cjqNpu52VvYWNiYEAhkowCJMBtHjTaroFULDb3T/WAxJ3pSxfQ/PKv1sxYgkyYBszZzL9wY2FjYmBAIZKMAiTAbR402ewJtdxui3sPcL/ZdVG50p+8P/7Mqy/gtmQeSwv+ZsWftzC16//QE2VgQCGSrAIkwW0eOdnsCfS4+Wa2G9PWm106apRkPPIdMigXM2KwtzL7PRSd50/wPgWwVIBFm68jRbk8gtyBfQ+++XLlF0dPt5/79Da34egI6KRIwWzO2MHPP3o0BgUA2C5AIs3n0aLsn0Lx3Vw285ryohvs10MQbH1TZGnddNyKpAmZqttr0iyszN3sCgWwXIBFm+wjSfk+g24kHq+NBu3nTJYuWa/IdjyKTZAEzNVsLszZzAoEgCJAIgzCK9MET2Pbmi2Q/sLdY4n50v/C1971p/td0AbM0UwszNmsCgaAIkAiDMpL0Q83atdbg29013jbF1Huf0ob5i2NPeWykgBmaZSzM2KwJBIIiQCIMykjSD0+gwz47qedZR3vTFes3asINDyhSUYlOIwXMzgzN0sJszZhAIEgCJMIgjSZ98QT6XX66WvTv4U2vHjNVsx55GZlGCpidGVqYqdkSCARNgEQYtBGlP+4mwAXeaf05m07rn/3YSK36Lroxh6fhAmZmdhZm6f1UwtkSCARNgEQYtBGlP56A3b1+wC/P9KZjh/fKNx3eg2jrAmZV/bCyWZopgUAQBUiEQRxV+uQJdD/9CLX7gbsVhouN8xZryt2Pe9P8b+sCZmVmFmZolgQCQRUgEQZ1ZOmXux53joa4MxztrukWi/79kexehkT9AmZkVhZmZ4ZmSSAQVAESYVBHln55AoWd2rnfvF1YpWE/Ct+4aFnVcyZqCphN9YsRmJ0ZEggEWYBEGOTRpW+eQKeD91C3Uw71psvtMmE3/cVdJSyCTpyAmZiNGVmYmdkRCARdgEQY9BGmf57AgCvPVHGvLt70yq/Ga86T/0ImTsBMzMbCrMyMQCAMAiTCMIwyfVRecZGG/voy5eTneRozH3pBaybPQmaTgFmYiYUZmZWZEQiEQYBEGIZRpo+eQOvt+qvvz3/sTUfKKzTB3ci3YtPNZcNMZAZmYSYWZmRWBAJhESARhmWk6acn0OvcY9Vm18He9PqZCzTtd38PvYwZmIWF2ZgRgUCYBEiEYRpt+qqc3FwNvfNS5bUs9jQWvPSOln70TWhlrO9mYGEmZmNGBAJhEmCND9No01dPoKhrR217/U+rNCbd8rBKl6+qeh6WCeuz9T0WZmI2BAJhEyARhm3E6a8n0PmofdX52P296bIVqzXxlhGhk7E+W98tzMJMCATCKEAiDOOo02dPYNC151XtAS3/eLTm/ePN0MhYX63PFrYXaBYEAmEVIBGGdeTpt/JbNteQuy6VcqOXD5v+x2e1bsb8wMtYH62vXri+m4FZEAiEVYBEGNaRp9+eQNtdBqvPBSd605UlZd7PCCrLygOrY32zn0pYXy2s72ZAIBBmARJhmEefvnsCvS88Sa02/W5u7ZTZmvGnfwRWxvpmfbSwPlvfCQTCLkAiDPsaQP+Vu+lKKrlFhZ7G3Kff0IovxwVOxvpkfbOwvtrVY6zvBAJhFyARhn0NoP+eQHN3bc1B151XpTHhxodUtmpt1fNsn7C+WJ9iYX21PhMIICDlhwVhY3mpDn/qD5qxfInaN2+h1oWpv47iig3r1a64uQ7oPUh923UMC3XW9rPr8Qdp6YffaOl7X6l0yQpNvvNRbf/b/8va/lRvuPXF+mTR8Yd7yPpKIIBAVCA0iXD4269q3OLoGYHrV5embfwXrl2lG999Vc+csvmeeGmrnIoSFhh804X6cuw0L2kseecLLXh1lLqdeHDC5fhpAeuD9cWimbu3oPWRQACBzQKhOTS6umTD5l6neSo/l+9h0kze6Opid2SPFTDtt09pw9xFsadZ92httz7Ewu42b30kEEBgs0Bo9giHduqqVyd+W9Xznbr0UGFearu/ZN0atS1qobsOjZ6eX1U5E74WaP+DHdTznGM092+vq2JDiSZc/4B2eeLWrDuxpNLusOHabn2wsD5Z3wgEEKgpkNpMULOujD7LyYn+aDrWiL+f9FP1aNM+9jQlj0+P+VwVkUr1aN0uJeVTaOoE+l16mpZ/Nlbrps7R6nHTNOvhl9Xv0ugtnFJXa3JLtjZb2y1aDOzl2n9aciugNAQCIhCaQ6MBGS+6kSaB3GYF2u5u9/MC92gx+/GRWjV6Sppqb3o11lZrs0V8X5peOiUgECwBEmGwxpPeJFGgRf+e6n/lmdESKyOacMMDKl+7Pok1pKYoa6O1Va7NFtYH6wuBAAJbFiARbtmFVxHwBHqcdoTa77uTN71xwRJN+fXjvpexNlpbLazt1gcCAQTqFiAR1m3DOwh4AkNuu0QF7aJnWi76zyda9NZnvpWxtlkbLazN1nYCAQTqFyAR1u/DuwioWYe2GnzLxVUSU9yP0zd+v6zquV8mrE3WtlhYm63tBAII1C9AIqzfh3cR8AQ6Hribuv/4MG/avoObeOODilRW+kbH2mJtin2HaW21NhMIILB1ARLh1o2YAwFPoP//nanmfbp50yv/N1Fznvinb2RmP/5PWZssrI3WVgIBBBomQCJsmBNzIaC84ugdG3I23bFh5oiXtGbCjIzLWBtmPfyS1w5rm91VwtpKIIBAwwRIhA1zYi4EPIFWQ/qq32XRH6ZH3JVbxle7cksmiOyqMdYGa4uFtc3aSCCAQMMFSIQNt2JOBDyBnmcfo7a7DfGmN8xeqKm//VvGZKxua4OFtcnaRiCAQGICJMLEvJgbAeXk5mrInZcqv1ULT2Phq+9p6ftfp13G6rS6Lawt1iZrG4EAAokJ8FeTmBdzI+AJFHXpoG1v/GmVxqTbH1HJ0pVVz1M9YXVZnbGwtlibCAQQSFwgNBfdTpyGJRCoX2Cbw/fWso9H6/t/faiyFWs06ZYR2vGBaxV/gff6S0n83Ugk4tVldVp0Oe4AWVsIBJoqUF5ZoTWlGzX6+7lqlYablze1vYkuv2jtah05YDvlxh05IREmKsn8CFQTGHjted7PFuySZss/HaN5z/5HPc88utocyZ+0Oqwui6JunWRtIBBoqsDcVct1wrMPaObKZTrpuYeaWpxvl594+R3q3LJ1jfZxaLQGB08QSEwgv0Wx93MF5UZv8zXjT89p7bS5iRWSwNxWttXhhavTfiphbSAQaKrALe+95iXBppaTjcuTCLNx1GizrwTa7DRIfS48yWtTZWmZdzNce0x2xJfd56KTZXUTCCRDYNryxckoJivLIBFm5bDRaL8JWCJsvcMAr1l2M9/pf3w26U20Mq1sC6urzwUnJr0OCgyvwOHuu7OwBt8RhnXk6XdSBXLycr3DlF+ddp0q1m903xW+qQ777aL2e++YlHqWf/adV6YVlte8yKvL6iQQSJbAOTvtrd9/+nZVcd1atVGXlm2qnmfzhJ0kM39N9KzuvLgTZaxfJMJsHl3a7iuB4h6dNei68zXx5r947ZroziLd84V7VNA2egunxja2bOUaWVmxsDqsLgKBZArk5kS/546VOWzX/XTlPofHnmb144NfjNJN7430+lCUX1CrL3ykrEXCCwg0XsB+ytDpsL28AkqXrHC/9ftr4wvbtKSVYWVZWNlWB4EAAskTIBEmz5KSEPAEtr3xAhVu096bXjrqKy14+d1Gy9iyVoaFlWllEwggkFwBEmFyPSkNARW0bqkhd/ysSmLqfX/X+k3XA616sQETtowtGwsr08omEEAguQIkwuR6UhoCnkC7PbdXr/OO86YrN5Zowg0PqHLTHSIaQmTzesu4ZS2sLCuTQACB5AuQCJNvSokIeAJ9f/5jtdy2jze9ZvwMzfzLiw2WsXltGQsrw8oiEEAgNQIkwtS4UioCyi3I937mkFsYPUvN7mi/8ptJW5WxeWxeC1vWrh5jZREIIJAaARJhalwpFQFPoEW/7hrwq7OjGu5i2RNufFDla9bXqWPv2Txy81rYslYGgQACqRMgEabOlpIR8AS6n3qY9+N6e1KycKkm3/1YnTL2ns1jYT/It2UJBBBIrQCJMLW+lI6AJzD4totV0C56xfvF//lU37/+US0Ze83esyho30a2DIEAAqkXIBGm3pgaEFAzl9iG3HZJlcSU3zwhu3VTLGzaXovFkFsv9paJPecRAQRSJ0AiTJ0tJSNQQ6DD/u5Q5+lHeK9VrN3gfRcYqayU/bPvBe01C5vH5iUQQCA9AiTC9DhTCwKeQP8rfqLmm05+WfXtZM1+bKT3z6Yt7D2bJwxx1m8S7+XrX0jPjUp8OZZAoD4BEmF9OrzXJIHGbOjmuqOF1z/epGp9vXBeUbPonSPy87x2zhzxkmaOeNmbznGv2U8lbJ6ghtv51ajR0pjp0sq10V5uLJXe+UayR4uxM6PT/3ZJL3aC7dJV0j8/k75fLq2PXmMgOjP/RyAJAvw4KQmIFLFZwDZ0H3wntXc3XIht6Oy1D8dKO/R1Z0K680VmLZLauSuFfel2gob2cocCO7qN20bpfbdciyJpdd2/LvAq+u7ye91PENZtrjQLpwo7tdfGhS7rV9rPJOyfu5aoe23q3U9409n6v/xWLbTjn6+ps/m3P+366fK8jfcqN4T27+x7pHMPl06/S3p2uHTP81Ifd3ONge5XIxfeLz32K+lMt/c4zB1VfsrdJeg8Ny+BQDIFSITJ1Iwra/yi+Xpz2jg9PebzuHeC8fSuQ07Unj1cdqsW8Rs6e8s2cKceIF3p7iT0q1Pcp/9vpf9NlU7aVzrlDumzP0rn3ycdvafbELo9g7YuSdYXq8dNk92aKGhhidFLjlncsa3dcso+7Iz6rVRW7sZ9gmSHOisq3Icid52BUvfam19HOz/sSKlfV3cY9P3ourLnttJpB0X3FCvcB6v4+HLeTN3w7qvxLwfi+coN63XikF10/YHHBKI/fuwEiTCFo3L34SfL/oUp4jd0E+dIM76XvnaJz2539uKHbm/Q7S1aEjx5/+gn/BUup9l5IrZXsOtA6eHX6xfLbVYg+5fN4Z0kE3ftUTs0mrOFm4ZmUz+3Ni52L2E7BGpdL3P/7EPPIbtKF7ttvK0rHdtIr3wcPWJg/c5160yb5tISd2jUYq3bkyx2e5TxYR/I3j73yviXA/H8qdGfKi/HwREpEyARpow2nAXHb+jatIgeEr35LGmh+35nlfte6IOxm/f6bENnVyBbEz1h0kuIW5Pb560HtzaLr98vcfcW/PLUa1RuGNUir0Wx9nzxXneItF21V4M1aUcEzrxb2ranOzGoUDrMJcGRn0g3uCPCC5dJj19Vu7879ot+iLr0z5J9aDrULUMgkEwBEmEyNSnLO/RZfUPXrYPUe5voCTDzl0q/HlYbyS6jefw+7rsfd8jMvjsMckTcpdPsDvaxJNj1hIO87i4c+b73mr2300PD3d6z+4QQwLDD35b8ql869ZFfuivulEU/EFmXn75uc8dfvys6/ZdfuEOnbp4sPxCwuWNM+UqAROir4cj+xmxpQ3frOTU3Ylf22NzPkbdFp21PIQwburlPv6EVn7tdYhdFPbbRgKvP9aZXfD1BG+ct9t6zeXqdHdzvg6onQa/z7n+brksee7rFR5LgFll4MQkCHHhOAiJF1BTY0oauIRuxhsxTs6bserZ2ymzN+PNzXqNz3DFk+6lEfvMi759N22sWNo/NSyCAQHoESITpcaaWkAtUlJRqwvUPKGKnS7roc/HJarPDwCoVm7bXLGwem9eWIRBAIPUCJMLUG1MDApr+h2e1bvo8T6L1TgPVe9gJtVTsNXvPwua1ZQgEEEi9AIkw9cbUEHKBZZ+M1vzn3vIU7MzQoXdtPgxancY7XOres3ksbBlblkAAgdQKkAhT60vpIRcoXbFak25xVxLYFIOGn6/i7u402jrC3rN5YmHLWhkEAgikToBEmDpbSkZAk257RKXLor8G3+bwH6jLMe4qAlsJm8fmtbBlrQwCAQRSJ0AiTJ0tJYdcYP6Lb2vZB//zFAo7t9egGy9osIjNa8tYWBlWFoEAAqkRIBGmxpVSQy6wftYCTfv901EF9+P4IXdeqgJ3QeqGhs1ry3jXpXMLWVlWJoEAAskXIBEm35QSQy5QuennD5Wb7ivU6/wfqd3uQxNWsWVsWQsry35SYWUTCCCQXAESYXI9KQ0BzXzoBa2ZONOTaDWkr/pe4i6b08iwZa0MCyvTyiYQQCC5AiTC5HpSWsgF7FJpc576t6eQu+kmvLlbutROA51sWbvqjJVlYWVbHQQCCCRPoNa1RteWbtTxzzygwZ26qji/IHk1ZbikMd/PzXALqD7oAmXuZsETb3R3xnAX1rYYeNU5at6nW5O7bWVYWZPvfNQr2+rYw92lIpHvHJvcCApAIMACtRLhutJSfeuShv0LcrwzY6LO28XdFI9AIEkCU1yiKlnk7jXlosOBu6nbyYckqWR5ZS396FvvDFKrw+ra7p4rklY+BSEQZoHQHhr9++hg3jU+zCtzJvv+/b8+1OL/RtepZh3aaPAtFyW9OVamlW1hdVmdBAIINF0gtImwTVH0MlZNJ6SEsAtsmL9YU+55soph8O0/U7N2raueJ2vCyhx82yVVxVmdVjeBAAJNEwhlIrTvPq8/4OimybE0Ak4gUlGpCTe4O0Ws2+B59PjJkeqwz04ps+mw786yOiysTqvb2kAggEDjBWp9R1iYv/ml4wbtpAP7Dmp86T5bcn1Zqf4x9ku98ONL1L11W5+1juZko8Csv76i1WOmek1v0b+H+v3ijJR3w+pY8cU47w4VVvesR19V3023cEp55VSAQAAFNme9TZ3Lz82r6uaePfpq2K77VT3P9omVG9brw1lTSILZPpA+af+qsVM12yUhi5xNP3PIK4z+zCGVTbQ67CcVX591o3fvwtkuGbffZ8ca9zdMZf2UjUDQBEJ5aDRog0h/0i9Qvn5j9Ea7mw5L9r/iDLUc1DttDbG6rE4L7/Csu+qMtYlAAIHEBUiEiZuxBAKa+psntHFe9ESVdj/YwX1vd1TaVaxOq9vC2mJtIhBAIHEBEmHiZiwRcoHF73xR9dOF/DYtNcSdJZrjLqyd7rA6rW5rg4X3Ew7XNgIBBBITIBEm5sXcIRcoWbxck+/4a5WC/bavsFO7qufpnrC6B998YVW11jZrI4EAAg0XIBE23Io5Qy4QcZdOm3jTQypfvc6T6HriD9Xp4D0yrtLph3vK2mJhbbM2WlsJBBBomACJsGFOzIWA5v7NXfD6y/GeRHGvLhp49dm+UbG2WJssrI3WVgIBBBomQCJsmBNzhVxgzeRZmvHA855CTl6uht51mfKKi3yjYm2xNlnbLKyt1mYCAQS2LkAi3LoRc4RcoGLTTXEj5RWeRN+fnarW2/f3nYq1qc8lp3rtsrbajXyt7QQCCNQvQCKs34d3EdD0+5/W+hnzPYk2u2xbddd4P9L0HvYjWRstrM3WdgIBBOoXIBHW78O7IRdY5m59NP+Ftz2FvJbFGnrnpcrJ9e+fjbXN2mhttbC2Wx8IBBCoW8C/f9F1t5l3EEiLQOnyVZp4y4iqurYd/lMVdetU9dyvE9ZGa2ssrA/WFwIBBLYsQCLcsguvIqBJtzysshWrPYnOR+2rzkdnz42cra3WZgvrg/WFQACBLQvUuuj2lmfjVQTCJTDv+be07OPoIcXCrh01aPiwrAOwNq8cPVklC5d6fbE+9TjtiKzrR5gbbHfMeW/GJK3auF5jF81LKcXa0pKUlu/nwkmEfh4d2pYRgXXeSSbPROt2lzGz79zyWzXPSFuaUqm12dr+7QW3uytzR9yJM8+o3R7bq0W/7k0plmXTKHDTuyP1r8ljvBo/nD01jTW7n+CsWJrW+jJZGYdGM6lP3b4TqCwr9352UFlS5rWt909PUNtdB/uunQ1tkLXd+mBhfbKfVFgfiewQmL58ScYausHtjYYlSIRhGWn62SCBGQ88p7Wbfojeart+6hOAG95aH6wvFtY36yORHQJX73eEWjVL/4UbWjYr1G0HH58dSEloJYdGk4BIEcEQWPHlOHdpste9zuQWFXpXasnN33yj6mztpfXBrjrz1enDVbmxxOtjh313Vrs9t8/WLoWm3fv2GqDbD3EJyV069ic77pWWftuNVKrfoD0tlWa4EvYIMzwAVO8PgbLVa93Fqv9S1ZiB15yr5r27Vj3P9gnri/UpFtZX6zORHQJ57vehBXl5afkXtiRoawCJMDv+DmhligUm3/Fo1e2LOro7SnQ78eAU15j+4q1P1jeL6O2kHk1/I6gRAR8KkAh9OCg0Kb0CC197X0s23dC2Wdz9/dLbktTXZvcutD5aWJ+t7wQCYRcgEYZ9DQh5/zfMXaSp9zxZpTDktktU0LZV1fOgTVjfrI+xsL6bAYFAmAVIhGEe/ZD3vdLu0HCDu0PDhugPiXuedbTa771j4FWsj9ZXC+u7GZgFgUBYBUiEYR15+q3Zf31Fq8dO8yRaDOylfpefHhoV66v12cIMzIJAIKwCJMKwjnzI+71q9BTNevRVTyG3WYG2u/sy2WNYIr7PZmEmBAJhFCARhnHUQ97n8nUbvMOBqnQ/znLR//9+ohb9e4ZOxfpsfffCWdghUrMhEAibAIkwbCNOfzXlN09o44Lopava77OTup8e3gtRW9/NwMJMzIZAIGwCJMKwjXjI+7v4v59p0b8/8hQK2rXSYHcGZY5dSiOkYX03A7OwMBszIhAIkwCJMEyjHfK+bvx+meyH87EYfPNFKuzYNvY0tI9mYBaxMCOzIhAIiwCJMCwjHfJ+RiorNfHGB1W+dr0n0e2UQ9XxoN1DrrK5+2ZhJhZmZFZmRiAQBgESYRhGmT5qzlP/1sr/TfQkit11NwdceRYqcQJmYjYWZmVmBAJhECARhmGUQ97HNRNnauZDL3gKOe5ODNv9+jLlFReGXKV2983EbMzIwszMjkAg6AIkwqCPcMj75105xd2MNrLpyil9f/5jtRraL+QqdXffbMzIwszsRr6xK+/UvRTvIJDdAiTC7B4/Wr8VgWm/f1rrZy3w5mq72xD1OvfYrSzB22ZkVhZmZ4YEAkEWIBEGeXRD3relH/xPC156x1PIb9lcQ+68VDnuvm5E/QJmZFZmZmGGZkkgEFQBtgpBHdmQ96t02UpNuu3hKoVBN16goi4dqp4zUb+AWZlZLMzSTAkEgihAIgziqNInTbx5hMpWrPEkOh+7vzofsTcqCQqYmdlZmOXEW0YkWAKzI5AdAiTC7BgnWpmAwLx/vKnln47xlijq1kmDrj0vgaWZtbqA2ZmhxfJPxshsCQSCJkAiDNqIhrw/66bP1fQ/PBtVyM3R0Lsuq/quK+Q0jeq+fU9ohnKWFmZrxgQCQRIgEQZpNEPel8rSMo0f7m4y6x4t+lxwotrsPCjkKk3vvhmapUW8cdNLpwQEMi9AIsz8GNCCJAnM+PNzWjd1jlda6+0HqPeFJyWpZIoxSzO1MGOzJhAIigCJMCgjGfJ+LP98rOY+/YanYFdIGequkJK76QopIadJSvfN0kxjV+QxazMnEAiCAIkwCKMY8j6UrXRnNN78lyqFge4Ej+KenaueM5EcATM121iYudkTCGS7AIkw20eQ9mvSHX9V6ZIVnkSnQ/dS1+MPQiVFAmZrxhZmbvYEAtkuQCLM9hEMefsXvDpKS9/7ylNo1qmdtq32I/CQ06Ss+2Zs1hZmb2NAIJDNAiTCbB69kLd9/ZzvNfXep6oUht75cxW0aVn1nInUCJixWcfCxsDGgkAgWwVIhNk6ciFvd+WmOyNUbizxJHqec4za7bl9yFXS132zNnMLGwO7S4WNCYFANgqQCLNx1GizZo14SWvGT/ckWg7qrX6XnY5KmgXM3OwtbCxmPfxymltAdQgkR4BEmBxHSkmjwKqxUzX7ide8GnMLCzT07suVW5CfxhZQlQmYuWfvxsBi9uMjZWOT7Pje3QVq7AnSuFOladcku3TKQ8CtyyAgkG6Bf+jtRlV5he73lpvy68fd8biIN93/l2eqRb/ujSqPhZouYPY2Bl64MfHGpunFVpWw+kt3Qs6/pB1GStu/KBV0lFZ+WPU2EwgkRYBEmBRGCqkuMEeL9J2meS8t1UpN13xveormaKJm6jmXCGdqofda9XkrVKGpmuveW6CvNKGqyHGaoU81Vqu01nut5Ptl3mOH/XZRj9OOqJqPicwI2BjYWFjExiZZLVnubifZ5ezNpfV2e4RtD9j8nCkEkiEQquNJG8vLNHXZIt3yXvSwWjIAw1zGWTv9QAM71Pzh+vN6R/O0WF3UQW/pc12uU92/32u4ztEf9bxu0rBNZBH3rOa8l+gk9+5dulJnaJT+p/Uq0UaVurT5pXbVtu6VyVXcBe1aa/BtF1c9ZyKzAjYWX57islQkuqeetNbEnX8TqZS7uXLt0u3v+ukxn9d+IwCvjFs8X7t2jX4XG4Du+LILoUqEbYuLdc3+R6lP2w6+HIxsa1Sn5q1qNfk1faSh6qvZ+l4fa4x+pZ94SfBM3eoS4/3qpk5qp1Zujm66QQ/XmPcinaA+6qoTdaBaqNjtGy5yyW+SV0YPbaNX9L5XX05ergbfeomatW9Tq35eyIyAjcWQ23+mSbcm956FbQ+UFrpfyHQ8NtqvOfdJhV3cXuI5Nftp6+KRA4N51vCe3fuqb3t3TJhImUCoEmFRfjOdscOeKcOkYLn9wDa6UD9yqa65dtcQ9yV0rj7UaO2jHdxe3jc6U5sPZW5p3tYuBVrkKkcR95+Vs1yrZYlwvds/tNj9H3ercNMPur0X+J8vBDrst7M3NslsjB0GXflR9EQZO6Mh33326nVV7RraFjfX3j37136DVxBogECoEmEDPJiliQJnuUT3Wz3j9ucKveRl3xXa934jdI0u0K+1t7Z36U3e3l38vPZefJyvY3Wz/ure6ecOkpZ7b5ME45X88zwVY9PnhugR10ip+4BU6J++0pLgCOREXFTvztrSEvX6nTvW7+KOH56gS/c6uPrbTCPQIIFSlamZoqfVb2mBcndiTL7yvLe2Nq/tGVaosmr+LZXHawgggEBdAg9+MUo3vedOPXYx51f3qmWzmp+otvC1c11F8ToCDReoLwlaKbEkaNNbmzfHHSatPr8tQyCAAALJEiARJkuSchBAAAEEslKARJiVw0ajEUAAAQSSJUAiTJYk5SCAAAII+F6gosSddRUXJMI4EJ4igAACCARXIFLhrsoQFyTCOBCeIoAAAggES6C9+51pfUEirE+H9xBAAAEEsl7g+CG7qFdp9OdaW+oMP6jfkgqvIYAAAggERqB5QTM9NK+NXlsxW4V5tdMee4SBGWo6ggACCCBQl0BxJEdHTt+ggrzae4YkwrrUeB0BBBBAIBQCJMJQDDOdRAABBBCoS4BEWJcMryOAAAIIhEKARBiKYaaTCCCAAAJ1CZAI65LhdQQQQACBUAiQCEMxzHQSAQQQQKAuARJhXTK8jgACCCAQCgESYSiGmU4igAACCNQlQCKsS4bXEUAAAQRCIUAiDMUw00kEEEAAgboESIR1yfA6AggggEAoBEiEoRhmOokAAgggUJdArURYWV5R17y8jgACCCCAQOAEaifC0rLAdZIOIYAAAgggUJdArURYfcbC/Nr3bar+PtMIIIAAAghku0CdibBZpXRovyHZ3j/ajwACCCCAQL0CtXb58nJzteP3pRpW0VF92nWsd2HeRAABBBBAINsFau0RFucX6JYPV2qHjQXZ3jfajwACCCCAwFYFaiXCrS7BDAgggAACCARIgEQYoMGkKwgggAACiQuQCBM3YwkEEEAAgQAJkAgDNJh0BQEEEEAgcQESYeJmLIEAAgggECABEmGABpOuIIAAAggkLkAiTNyMJRBAAAEEAiRAIgzQYNIVBBBAAIHEBUiEiZuxBAIIIIBAgARIhAEaTLqCAAIIIJC4AIkwcTOWQAABBBAIkACJMECDSVcQQAABBBIXIBEmbsYSCCCAAAIBEiARBmgw6QoCCCCAQOICJMLEzVgCAQQQQCBAAiTCAA0mXUEAAQQQSFyARJi4GUsggAACCARIgEQYoMGkKwgggAACiQuQCBM3YwkEEEAAgQAJkAgDNJh0BQEEEEAgcQESYeJmLIEAAgggECABEmGABpOuIIAAAggkLkAiTNyMJRBAAAEEAiRAIgzQYNIVBBBAAIHEBUiEiZuxBAIIIIBAgARIhAEaTLqCAAIIIJC4AIkwcTOWQAABBBAIkACJMECDSVcQQAABBBIXIBEmbsYSCCCAAAIBEiARBmgw6QoCCCCAQOICJMLEzVgCAQQQQCBAAiTCAA0mXUEAAQQQSFyARJi4GUsggAACCARIgEQYoMGkKwgggAACiQuQCBM3YwkEEEAAgQAJkAgDNJh0BQEEEEAgcQESYeJmLIEAAgggECABEmGABpOuIIAAAggkLpCf+CIsgQACCKRPYKlGqkxLlatCtdLuaq4h6aucmkIhwB5hKIY5fZ1cpU+0UI/qez2h1fosfRVTU2AF5un3LgX2UJ5LgzN0ldZpfGD7SscyI8AeYWbcA1vrEj3nPrEPVTN1dsnwcW3UHG2j05La35X/m6jKsvKklklhyRHILchX292SvceWo/Y60mvgGn2pci1PTmMpBYFNAiTCFK4Kq8ZN0/oZC9SsXasU1pK5oltt11/N2reu1YDW2lcttaMqVaJSLaj1flNfGHfV/SpbuaapxbB8CgQK2rbSfqMeSXLJlZqgU1ShtS4JrlJ3/V+t8kuXr9aa8dNrvR6EF0pXrFHzft3UZvsBQeiOL/tAIkzhsCz/+FutmTRLrYf2T2EtmSu6eZ9u0hYSoR2+ylWRNmiK2zd8MXMNpOaACOS69eglry8r9Z7m6Xfqp3tq9K1i3QatmTizxmtBebJ6wnS1WtCHRJjCASURphC3qEtHFW7TXt1OOiSFtfiv6H66z9sjtBMcJulM7aC3ktrIPhedpIqNpUktk8KSI5BX1Cw5BcWVslbfKuKOMSx361Kh2yeMj+KenWXrRRBjwSvvKieX0zlSObYkwlTqhrTsDZrsel7uDmSNdt8Vdk26Qo8zot8XJb1gCvSlQBed6xLgG65teWqtvdRBJ/iynTQqewVIhNk7dr5seXsd5RLgt+6w6FSXBLtrgB7wZTtpVPYIdNGw7GksLc1KARJhVg6bfxvdXke7M/yO9m8DaRkCCCAQJ8CB5zgQniKAAAIIhEuARBiu8aa3CCCAAAJxAiTCOBCeIoAAAgiES4BEGK7xprcIIIAAAnECJMI4EJ4igAACCIRLgEQYrvGmtwgggAACcQIkwjgQniKAAAIIhEuARBiu8aa3CCCAAAJxAiTCOBCeIoAAAgiES4BEGK7xprcIIIAAAnECJMI4EJ4igAACCIRLgEQYrvGmtwgggAACcQIkwjgQniKAAAIIhEuARBiu8aa3CCCAAAJxAiTCOBCeIoAAAgiES4BEGK7xprcIIIAAAnECJMI4EJ4igAACCIRLgEQYrvGmtwgggAACcQIkwjgQniKAAAIIhEuARBiu8aa3CCCAAAJxAiTCOBCeIoAAAgiES4BEGK7xprcIIIAAAnECJMI4EJ4igAACCIRLgEQYrvGmtwgggAACcQIkwjgQniKAAAIIhEuARBiu8aa3CCCAAAJxAiTCOBCeIoAAAgiES4BEGK7xprcIIIAAAnECJMI4EJ4igAACCIRLIL+u7laWV6hs1dq63ub1BgiUbyhRbkGdxA0ogVkQQCDsApHKiCpKStgeN3FFsJxWV9TaSle4jbfF6jFT9PFBF9a1HK83UCCnsEBF3Tqpwz47NXAJZkMAAQSiAss+HaOp9/1NkZIyTbv3KViSIGA5Lr95UY2Sah8ajURqzMCTpgnYCjzniX82rRCWRgCBUArYtsO2IUQSBbaQ42onwiTWR1FRgZYDe0GBAAIIJCzQYkDPhJdhgcQFah0azW/ZXB3221kt3MY7Jzcn8RJZokpg7eTZymvdQv1/eWbVa0wggAACDRUYcOVZKlu9VhWr16nltr0buhjzbUHAvmtdN3WOLMfFR07ERfyLPE+OwMKRoxSprFS3kw5JToGUggACoRNY8Mq7bqckV11PODh0fU9Xhzk0mi5p6kEAAQQQ8KUAidCXw0KjEEAAAQTSJUAiTJc09SCAAAII+FKAROjLYaFRCCCAAALpEiARpkuaehBAAAEEfClAIvTlsNAoBBBAAIF0CZAI0yVNPQgggAACvhQgEfpyWGgUAggggEC6BEiE6ZKmHgQQQAABXwqQCH05LDQKAQQQQCBdAiTCdElTDwIIIICALwVIhL4cFhqFAAIIIJAuARJhuqSpBwEEEEDAlwIkQl8OC41CAAEEEEiXAIkwXdLUgwACCCDgSwESoS+HhUYhgAACCKRLgESYLmnqQQABBBDwpQCJ0JfDQqMQQAABBNIlQCJMlzT1IIAAAgj4UoBE6MthoVEIIIAAAukSIBGmS5p6EEAAAQR8KUAi9OWw0CgEEEAAgXQJkAjTJU09CCCAAAK+FCAR+nJYaBQCCCCAQLoESITpkqYeBBBAAAFfCpAIfTksNAoBBBBAIF0CJMJ0SVMPAggggIAvBUiEvhwWGoUAAgggkC4BEmG6pKkHAQQQQMCXAiRCXw4LjUIAgeoCkUWLVPnqa9VfYhqBpAmQCJNGSUExgUhFhSofe0KRSCT2Eo8INEkg8shjqrznPllCJBBItkB+sgukPAQib72tygdHKLd3L+UcekjSQSIVlSTZpKsmp8CcnBzl5CX387V9oIqM+kC5Nw5X5LEnlXP9tclpLKUgsEmARJjCVSFSWanKsnJVbChJYS2ZKzq3sEA5ubU3epGn/q68R0eo8je/lVKQCD859BKVrVyTuY5Tc50CBW1bab9Rj9T5fmPeiIx6X9p/X+Ucebgq7rxbOdddXWu98/7WSsoaU7zvl7FtSG4Bm+pUDhS6KdQtXbZKi9/+Qkve/SqFtWSu6P6/OF2ttx9QowGRJUuk0lLl7LqLtH69IgsWKKdbtxrz8ASBRAQijz/lrVOVwy7yHiP/eUs5xxxVo4g1E2Zo+p+eq/FaUJ7Yh75tDtsrKN3xZT9y3GEHvsjx5dBkZ6Mq7/+TIq//R+rWVVqwUDkH7Kfcm29IamfGX/tHla/dkNQyKSw5Avkti7XdPVckpzBXSmTlSlWedJry3nvLKzMycZIqr75Oef8embQ6KAgBEiHrQFIFyvc9SHnv/Ec5xcWKlJSoYo99lPftl+57o7yk1kNh4RCITJqsyMKFyj34oKoOVz7wkHIuuUg5+RzQqkJhokkCJMIm8bFwdYHI6tWK/PsN5f7k9KqXK194STn77q2c7t2rXmMCAQQQ8JMAidBPo0FbEEAAAQTSLlD7lL+0N4EKEUAAAQQQyJwAiTBz9tSMAAIIIOADARKhDwaBJiCAAAIIZE6ARJg5e2pGAAEEEPCBAInQB4NAExBAAAEEMidAIsycPTUjgAACCPhAgETog0GgCQgggAACmRMgEWbOnpoRQAABBHwgQCL0wSDQBAQQQACBzAmQCDNnT80IIIAAAj4QIBH6YBBoAgIIIIBA5gRIhJmzp2YEEEAAAR8IkAh9MAg0AQEEEEAgcwIkwszZUzMCCCCAgA8ESIQ+GASagAACCCCQOQESYebsqRkBBBBAwAcCJEIfDAJNQAABBBDInACJMHP21IwAAggg4AMBEqEPBoEmIIAAAghkToBEmDl7akYAAQQQ8IEAidAHg0ATEEAAAQQyJ0AizJw9NSOAAAII+ECAROiDQaAJCCCAAAKZEyARZs6emhFAAAEEfCBAIvTBINAEBBBAAIHMCZAIM2dPzQgggAACPhAgEfpgEGgCAggggEDmBEiEmbOnZgQQQAABHwiQCH0wCDQBAQQQQCBzAiTCzNlTMwIIIICADwRIhD4YBJqAAAIIIJA5ARJh5uypGQEEEEDABwIkQh8MAk1AAAEEEMicAIkwc/bUjAACCCDgAwESoQ8GgSYggAACCGROgESYOXtqRgABBBDwgQCJ0AeDQBMQQAABBDInQCLMnD01I4AAAgj4QIBE6INBoAkIIIAAApkTIBFmzp6aEUAAAQR8IEAi9MEg0AQEEEAAgcwJkAgzZ0/NCCCAAAI+ECAR+mAQaAICCCCAQOYESISZs6dmBBBAAAEfCJAIfTAINAEBBBBAIHMCJMLM2VMzAggggIAPBEiEPhgEmoAAAgggkDkBEmHm7KkZAQQQQMAHAiRCHwwCTUAAAQQQyJwAiTBz9tSMAAIIIOADARKhDwaBJiCAAAIIZE6ARJg5e2pGAAEEEPCBAInQB4NAExBAAAEEMidAIsycPTUjgAACCPhAgETog0GgCQgggAACmRMgEWbOnpoRQAABBHwgQCL0wSDQBAQQQACBzAmQCDNnT80IIIAAAj4QIBH6YBBoAgIIIIBA5gRIhJmzp2YEEEAAAR8IkAh9MAg0AQEEEEAgcwIkwszZUzMCCCCAgA8ESIQ+GASagAACCCCQOQESYebsqRkBBBBAwAcCJEIfDAJNQAABBBDInACJMHP21IwAAggg4AMBEqEPBoEmIIAAAghkToBEmDl7akYAAQQQ8IEAidAHg0ATEEAAAQQyJ0AizJw9NSOAAAII+ECAROiDQaAJCCCAAAKZEyARZs6emhFAAAEEfCBAIvTBINAEBBBAAIHMCZAIM2dPzQgggAACPhAgEfpgEGgCAggggEDmBEiEmbOnZgQQQAABHwiQCH0wCDQBAQQQQCBzAiTCzNlTMwIIIICADwRIhD4YBJqAAAIIIJA5ARJh5uypGQEEEEDABwIkQh8MAk1AAAEEEMicAIkwc/bUjAACCCDgA4H8+DbMmTNHq1atUvPmzePfSsnzRYsWqXPnzikpO77QyspKLVu2TJ06dYp/KyXP165d65XbsmXLlJQfX+iSJUvUoUMH5eam5/ONrSe77rprfDN4jkDaBb755hu1adMmLfWyHUkuczpzwPr16731pFevXjU6kRNxUf2VSy65ROPHj1efPn2qv5yy6f/+97865JBDlJeXl7I6YgWXlJTok08+0Q9/+MPYSyl9nDZtmox34MCBKa0nVvioUaO09957q6ioKPZSyh5tY/Dxxx9r9uzZKauDghFoqEDv3r213377peVD4MaNG/XZZ5/p4IMPbmjzmjTf1KlTlZOTowEDBjSpnIYu/N5772nfffdVYWFhQxdp9HwVFRV69913dfjhhze6jEQWnDVrlrbbbjuNGDGi5mKWCKvH/fffH3nuueeqv5TS6QMOOCDiElRK64gVvnz58shRRx0Ve5ryx8ceeyzyyCOPpLyeWAXHHXdcZPHixbGnKX0sLy+PuD+WlNZB4Qg0VMDWRVsn0xH2N2Z/a+kK24bYtiRdYdtI21amI2zbbzkgXWG5zXJcfKTnGFrN3MszBBBAAAEEfCNAIvTNUNAQBBBAAIFMCJAIM6FOnQgggAACvhGoddbojjvumLazr0zh+OOPT8uJMlaXffl7zDHH2GRaYvDgwd7JMmmpzFXiju2ruLg4LdXZmaknnHBCWuqiEgS2JmDrYrrOlra/MftbS1cMHTrUO1kmXfXZNjIdJ8pYf+wkScsB6Qo74WhLvxqoddZouhpEPQgggAACCPhBgEOjfhgF2oAAAgggkDEBEmHG6KkYAQQQQMAPAiRCP4wCbUAAAQQQyJgAiTBj9FSMAAIIIOAHARKhH0aBNiCAAAIIZEwg78ILL7z1jTfeUMeOHRV/cehXX31VEyZM0OTJkzVkyJAmN9Jd1kaffvqpdy3Tvn371jjdubS0VK+//roWLFggey9Z4S4V5NXXrVu3GkWOHj3au+7oxIkT1aJFC7Vt27bG+419MmnSJMUu7Fq9jHHjxuntt9/2ruGarFOTP/zwQ3399dfadttta1jaxbDN0vrmLgeVlOvG1jc+Vt/IkSO9n4qk6wLq1W2ZDp9AXet+fetpY5XqW7+DsB0xF7vmc//+/WsQpWI7Ytd7fuutt2Tb5R49etSqL9nbkfnz56sh+S33ggsu8H5XcfbZZ3t3Zoi1bN68eXr44Ye1bt0671/s9aY83nfffV4iXLNmjaze6nH11Vd7OC+++KKef/756m81etousGq/UbEEFB+33XZbVd/cNQrj327U888//1xHH320LBlWj2+//VZ33nmn8vPzdf7551d/q9HTTz75pN58803ZQF9//fU1yrGLb1ufbew2bNhQ473GPqlrfOzDjfXJkru1wz44EQikUqC+db+u9bSx7dna+p3t2xHb9tm26ec//3ktolRsR9yOlywZ2oW23TU/q+rcmnPVjAlM2F0tGprfch988EHv7g+77babbIMdC5vea6+91KpVK5188smxl5v0aHdGuOqqq3TSSSd5eyvVC7M7NZx33nm699575S6MWv2tRk/bJ4/4hBsrzPba2rdvr3322afWJ6HYPIk+2opjHyji4+WXX9Z1112n0047zbszhN0uqalhn5xuv/12/eIXv5DdgqZ62KdU69c222yjI444ovpbjZ6ua3zmzp2rLl266MQTT/TG1o4iEAikUqC+db+u9bSx7dna+p3t25ExY8Z4R/vi9wbNKxXbEUuEtv0/44wzvJ2i2LhszTk2XyKPluQbmt9y+/XrJzvMMHbs2Bq3FbG9CbtFht1yxDamlrGbGnabFIsrrrhCdrunWNgnBLvNiIUdnrU9xmTExRdfLLs9S3xY3+xwqPXpmmuu8T6dxM/TmOfDhw9X69atay1qe9exqxnYIehkJELrg+1hWmxpbOz9GTNmbDEx12rgVl6ob3xS0betNIe3Qy5Q17pf33raWLL61u8gbEdsB6i+HZ1kbkdsDPbff3/vSNXll18u23uPRX3OsXkSfezevbsamt/y7djwQw895B2OrH5PwGOPPVannnqqdwmc999/39uDs0v9NCUssVoCtD3N6ocI7bBa7PCkHeNP1vd1dbXV7tf3t7/9zUu69t2hTds9EVMV1p9Ycl+9enVSbkRcfazib6L8y1/+suoyebZ3bfcObMrlp+obn+p9sz7aXiiBQCoF6lr361tPG9ue+tbvIGxH6nNJ9nbE6lq5cqXOPPNM7wjZnnvuWVV9fc5VMzVioqH5LfeGG27wGjVlyhStWLFCdhNIu9mqbUB/97vfeXsVdrKMnZDR1LC9L9tQ2l3Nbbfb4p133vEeDeKLL77wkvKhhx7qvZbs/y1dulR2KMA+5di1Ce3EnGeffTZlN+qNWR522GHe9612w2Nrg91Fvqlhhz7tuxI7HNu1a1evuJil7ZnaCvDVV195J0E1JQnG2hk/PvbBxT4gDRo0yDuaYOuIu2daSj9QxNrCY7gF6lv349fTpkptaf0O0nZkSz6p3I6ccsop3g6WHZGz7WMqtyPfffedGprfvLNG7bi6bcjsLB7L2LbnZncMthMxLDndc889it/r2BLg1l6zw69WttVlh+1sN9m+x9tjjz28i9jamY5Wj32vFztUurUyG/J+u3bt1KtXL+8MypkzZ2r77bfXTjvtpGeeecY7LJDMO9Zbu3v27Ol9/2gfLqy/1k+7UK+dvWRJyv5Ymxp2mNlWJDsz1L5/tE+nMUt774MPPvBOfrrjjjuSclFzu8hw9fGxflki3H333b11xT5QHHjggSn7UNFUL5YPjkB96378etrU7Yh9iLRtYfX1287EDsp2JLZWmJPdcMEiVdsRO2JkOcVyjOUAe27b4lRtR+zEvWbNmqkh+Y2LbsfWBB4RQAABBEIpwA/qQznsdBoBBBBAICZAIoxJ8IhRYysfAAAANElEQVQAAgggEEoBEmEoh51OI4AAAgjEBEiEMQkeEUAAAQRCKUAiDOWw02kEEEAAgZjA/wOFAEPp6VJuggAAAABJRU5ErkJggg==" /><!-- --></p>
<p>Cor</p>
<div class="sourceCode" id="cb18"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb18-1"><a href="#cb18-1" tabindex="-1"></a><span class="fu">cor_cophenetic</span>( dend, dend2 )</span></code></pre></div>
<pre><code>## [1] 1</code></pre>
<p>ggplot2</p>
<div class="sourceCode" id="cb20"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb20-1"><a href="#cb20-1" tabindex="-1"></a><span class="fu">library</span>(ggplot2)</span>
<span id="cb20-2"><a href="#cb20-2" tabindex="-1"></a><span class="fu">ggplot</span>(dend) </span></code></pre></div>
<p><img role="img" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAcIAAAHCCAYAAAB8GMlFAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAHCoAMABAAAAAEAAAHCAAAAAOQBvRMAAB84SURBVHgB7d0LlF1VeQfwbyYJ5E1IDC8JIPKQqiBqi1qXVbtKARWxaq31hVatq7psUUurVUu71KqlrlZtdaH4qFbxUYuPpQWXdrUoVB7yVOThsrwNJIQkkBfJTPdMMGwD8UCYfe+es3+HFdiZObPP9/2+cf733rn3OjKejnAQIECAAIFGBUYb7VvbBAgQIEBgUkAQ+kYgQIAAgaYFBGHT49c8AQIECAhC3wMECBAg0LSAIGx6/JonQIAAAUHoe4AAAQIEmhYQhE2PX/MECBAgIAh9DxAgQIBA0wKCsOnxa54AAQIEBKHvAQIECBBoWkAQNj1+zRMgQICAIPQ9QIAAAQJNCwjCpseveQIECBAQhL4HCBAgQKBpAUHY9Pg1T4AAAQKC0PcAAQIECDQtIAibHr/mCRAgQEAQ+h4gQIAAgaYFBGHT49c8AQIECAhC3wMECBAg0LSAIGx6/JonQIAAAUHoe4AAAQIEmhaY2XT3O9H8xhV3xO3nXjr5lfMO3HcndvAlwxS4eu3KWL95c+yydFHMWjhvmKW49oMUWLV+XSy/a03sNntOPOuQwx/kVzudwI4FBOGObe73Myv+68K4+j2n3+/nfLB+gZOOXhzXL/JtX/+kdlzh7Jmz4uY/P3XHJ/gMgQcp4KHRBwnmdAIECBDol4Cbxg9ynvMP3m/bVzz9wn/btraYHgIXjY/F+HiqdXQkRkZGpkfRqpwU+OTF34+Tz/5yHLR4KRECUyogCB8C58gMd6gfAt9QvnRGmNlQ4KfgoqPbbri4ATMFnLbIBPxUyDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPQFB2N7MdUyAAAECmYAgzDAsCRAgQKA9AUHY3sx1TIAAAQKZgCDMMCwJECBAoD0BQdjezHVMgAABApmAIMwwLAkQIECgPYGZ7bWsYwJ1Cbz4S6fFFctvir0X7BbLdltcV3EVVXPpz2+crObqlcvjj878VEWV1VXKhs13x2X3WJ318pNin4WL6iqwwmoEYYVDUVJbApfcckMsv2tN3LT2jrjw5uvaan4nut20ZXP8x5UX78RXtvcld27a2F7TO9GxINwJNF9CYCoF9pi/YDIIj9hrWTxp3wOncute7fWjW2+KK2+7Jebtsmsce/Bje9XbVDazesP6OOOK8ye3nD3Tj/gHYkvpgSg5h0BBgWULF8fl6aHR39r/kDjlmccXvJKtWxD42aoV24JwbrrR4OgW8GSZbiNnECBAgECPBQRhj4erNQIECBDoFhCE3UbOIECAAIEeCwjCHg9XawQIECDQLSAIu42cQYAAAQI9FhCEPR6u1ggQIECgW0AQdhs5gwABAgR6LCAIezxcrREgQIBAt4Ag7DZyBgECBAj0WEAQ9ni4WiNAgACBbgFB2G3kDAIECBDosYAg7PFwtUaAAAEC3QKCsNvIGQQIECDQYwFB2OPhao0AAQIEugUEYbeRMwgQIECgxwKCsMfD1RoBAgQIdAsIwm4jZxAgQIBAjwUEYY+HqzUCBAgQ6BYQhN1GziBAgACBHgsIwh4PV2sECBAg0C0gCLuNnEGAAAECPRYQhD0ertYIECBAoFtAEHYbOYMAAQIEeiwgCHs8XK0RIECAQLeAIOw2cgYBAgQI9FhAEPZ4uFojQIAAgW4BQdht5AwCBAgQ6LGAIOzxcLVGgAABAt0CgrDbyBkECBAg0GMBQdjj4WqNAAECBLoFBGG3kTMIECBAoMcCgrDHw9UaAQIECHQLCMJuI2cQIECAQI8FBGGPh6s1AgQIEOgWEITdRs4gQIAAgR4LCMIeD1drBAgQINAtIAi7jZxBgAABAj0WEIQ9Hq7WCBAgQKBbQBB2GzmDAAECBHosIAh7PFytESBAgEC3gCDsNnIGAQIECPRYQBD2eLhaI0CAAIFuAUHYbeQMAgQIEOixgCDs8XC1RoAAAQLdAoKw28gZBAgQINBjAUHY4+FqjQABAgS6BQRht5EzCBAgQKDHAoKwx8PVGgECBAh0CwjCbiNnECBAgECPBQRhj4erNQIECBDoFhCE3UbOIECAAIEeCwjCHg9XawQIECDQLSAIu42cQYAAAQI9FhCEPR6u1ggQIECgW0AQdhs5gwABAgR6LCAIezxcrREgQIBAt4Ag7DZyBgECBAj0WEAQ9ni4WiNAgACBbgFB2G3kDAIECBDosYAg7PFwtUaAAAEC3QKCsNvIGQQIECDQYwFB2OPhao0AAQIEugUEYbeRMwgQIECgxwKCsMfD1RoBAgQIdAsIwm4jZxAgQIBAjwUEYY+HqzUCBAgQ6BYQhN1GziBAgACBHgsIwh4PV2sECBAg0C0gCLuNnEGAAAECPRYQhD0ertYIECBAoFtAEHYbOYMAAQIEeiwgCHs8XK0RIECAQLeAIOw2cgYBAgQI9Fhg5iB7O/eYN8TG21bFzHmzY8bc2YO89JRda8v6jdv2OveY129bT7fF3avvjLFNm2PJU4+Iw//p5OlWvnoJFBH4zY+9N65e+fOYO2uXWLjrnCLXKL3pxs2bt13iqR9/b8wanbHt79NpsXrD+li/eVMcuff+cfYrTipa+kCDcMu69RFjY7F57brJP0U7G8DmG5ffPoCrlL3ExCwcBAhsFVi7aUNsGR+PtZs2Tv6Z7i633rV2urcQazam3Ch8DDQIZ++zNO686rrY43efHEuf+euFWyuz/cbb7ojbz7s0YmQk9n7O08pcZAC7XveJr07OYt4j9x3A1VyCwPQQeOTipXHjmlXx2wceFn94+FHTo+jtqpy4J/XNay6b/OgJhx4Zc3bZZbszpsdfT7/onDj3hp/GIUv2LF7wQINw5oJ5kw3NO2i/2OPoJxdvrtQFlr3k2FJbD2zfW7723xHpRsms3RcO7JouRKB2gSVz5k+WOBGIzzvsyNrL3WF9Jx75lB1+brp84ts//fFkEC6Zu3UmJev2ZJmSuvYmQIAAgeoFBGH1I1IgAQIECJQUEIQlde1NgAABAtULCMLqR6RAAgQIECgpIAhL6tqbAAECBKoXEITVj0iBBAgQIFBSQBCW1LU3AQIECFQvIAirH5ECCRAgQKCkgCAsqWtvAgQIEKheQBBWPyIFEiBAgEBJAUFYUtfeBAgQIFC9gCCsfkQKJECAAIGSAoKwpK69CRAgQKB6AUFY/YgUSIAAAQIlBQRhSV17EyBAgED1AoKw+hEpkAABAgRKCgjCkrr2JkCAAIHqBQRh9SNSIAECBAiUFBCEJXXtTYAAAQLVCwjC6kekQAIECBAoKSAIS+ramwABAgSqFxCE1Y9IgQQIECBQUkAQltS1NwECBAhULyAIqx+RAgkQIECgpIAgLKlrbwIECBCoXkAQVj8iBRIgQIBASQFBWFLX3gQIECBQvYAgrH5ECiRAgACBkgKCsKSuvQkQIECgegFBWP2IFEiAAAECJQUEYUldexMgQIBA9QKCsPoRKZAAAQIESgoIwpK69iZAgACB6gUEYfUjUiABAgQIlBQQhCV17U2AAAEC1QsIwupHpEACBAgQKCkgCEvq2psAAQIEqhcQhNWPSIEECBAgUFJAEJbUtTcBAgQIVC8gCKsfkQIJECBAoKSAICypa28CBAgQqF5AEFY/IgUSIECAQEkBQVhS194ECBAgUL2AIKx+RAokQIAAgZICgrCkrr0JECBAoHoBQVj9iBRIgAABAiUFBGFJXXsTIECAQPUCgrD6ESmQAAECBEoKCMKSuvYmQIAAgeoFBGH1I1IgAQIECJQUEIQlde1NgAABAtULCMLqR6RAAgQIECgpIAhL6tqbAAECBKoXEITVj0iBBAgQIFBSQBCW1LU3AQIECFQvIAirH5ECCRAgQKCkgCAsqWtvAgQIEKheQBBWPyIFEiBAgEBJAUFYUtfeBAgQIFC9gCCsfkQKJECAAIGSAoKwpK69CRAgQKB6AUFY/YgUSIAAAQIlBQRhSV17EyBAgED1AoKw+hEpkAABAgRKCgjCkrr2JkCAAIHqBQRh9SNSIAECBAiUFBCEJXXtTYAAAQLVCwjC6kekQAIECBAoKSAIS+ramwABAgSqFxCE1Y9IgQQIECBQUkAQltS1NwECBAhULyAIqx+RAgkQIECgpIAgLKlrbwIECBCoXkAQVj8iBRIgQIBASQFBWFLX3gQIECBQvYAgrH5ECiRAgACBkgKCsKSuvQkQIECgegFBWP2IFEiAAAECJQUEYUldexMgQIBA9QKCsPoRKZAAAQIESgoIwpK69iZAgACB6gUEYfUjUiABAgQIlBQQhCV17U2AAAEC1QsIwupHpEACBAgQKCkgCEvq2psAAQIEqhcQhNWPSIEECBAgUFJAEJbUtTcBAgQIVC8gCKsfkQIJECBAoKSAICypa28CBAgQqF5AEFY/IgUSIECAQEkBQVhS194ECBAgUL2AIKx+RAokQIAAgZICgrCkrr0JECBAoHoBQVj9iBRIgAABAiUFBGFJXXsTIECAQPUCgrD6ESmQAAECBEoKCMKSuvYmQIAAgeoFBGH1I1IgAQIECJQUEIQlde1NgAABAtULCMLqR6RAAgQIECgpIAhL6tqbAAECBKoXEITVj0iBBAgQIFBSQBCW1LU3AQIECFQvIAirH5ECCRAgQKCkgCAsqWtvAgQIEKheQBBWPyIFEiBAgEBJAUFYUtfeBAgQIFC9gCCsfkQKJECAAIGSAoKwpK69CRAgQKB6AUFY/YgUSIAAAQIlBQRhSV17EyBAgED1AoKw+hEpkAABAgRKCgjCkrr2JkCAAIHqBQRh9SNSIAECBAiUFBCEJXXtTYAAAQLVCwjC6kekQAIECBAoKSAIS+ramwABAgSqFxCE1Y9IgQQIECBQUkAQltS1NwECBAhULyAIqx+RAgkQIECgpIAgLKlrbwIECBCoXkAQVj8iBRIgQIBASQFBWFLX3gQIECBQvYAgrH5ECiRAgACBkgKCsKSuvQkQIECgegFBWP2IFEiAAAECJQUEYUldexMgQIBA9QKCsPoRKZAAAQIESgoIwpK69iZAgACB6gUEYfUjUiABAgQIlBQQhCV17U2AAAEC1QsIwupHpEACBAgQKCkgCEvq2psAAQIEqhcQhNWPSIEECBAgUFJAEJbUtTcBAgQIVC8gCKsfkQIJECBAoKSAICypa28CBAgQqF5AEFY/IgUSIECAQEkBQVhS194ECBAgUL2AIKx+RAokQIAAgZICgrCkrr0JECBAoHoBQVj9iBRIgAABAiUFBGFJXXsTIECAQPUCgrD6ESmQAAECBEoKCMKSuvYmQIAAgeoFBGH1I1IgAQIECJQUEIQlde1NgAABAtULCMLqR6RAAgQIECgpIAhL6tqbAAECBKoXEITVj0iBBAgQIFBSQBCW1LU3AQIECFQvMNAgnLX7wth1j8Uxc/6cSZjx1atj7EP/HFvecUr1UH0rcNaiBffMYm6MxYa+tTet+lkyd17ss2C3WDh79rSqu4/FLpozd3IWu+269WdUH3ucLj3tPnvrLCb+O7a5bNUj4+koe4n77j5+0Q9j7COnxfjnvxCxbn2MvPlPY8ap77vviT4ypQJ3xY9iZXw9do19Y2m8IDbFbXFNvCZWx/dil9g79o9TYs94yZRe02b3Fbg2bkw3Psbu+4ntPjI/0g+CeNh2H/XXqRS48vqIB/ITcMHciGVLp/LK9ro/gbvviLj2pIiDTo2YteTeM84/ImLB49PHP5A+vvu9H5+q1cCCcHz9+hg/44uTARgXXBSx154xcuLLYvRVJ8bIwQdNVT/22YHAmjgvLo9jY0YsjPHYGLvH78TmWJv+3BF7xO/HxOdXxFficXFuzE//dpQTeFy8PMmv67zAsfHk+HC8ufM8J+y8wNIXRKzpHkU8/6kRn3vbzl/HV3YLrLkg4vIT0nkjEY//n4g5B279mokbKlf/ScQtH08fS1HxxAsjZszr3u/BnFE8CMd/clWMfTTd+/v0Z9O9v3UxcvyzY/yqq2P05S+N0bek6HcMROBH8Xvp+2tWHBZnTAbhxfGUFIfXx2+k+4QzUyxOHJfE02JRPCMOiL8ZSE2tXuTmdJNjPP0zcXw8vhYXx9Xx9jgxDon94pZ0n/2cNIlPxjdSCL4ljkwfdZQTuOG2iLF77pz/41cifvCTiL9/bcSj94+4aUXE2ek2+4fOjPj8X0Uc9ahyddg54ofpxsZouuf9mC9HzFx4X5G70mwufGLEAWkW+7/1vp9/KB+Z+VC+uOtrtxx3fIyf9e2IJx0Vo+86JUZe/KIYWbw4tpyQboY5BiqwLq6MZXFyCsOJf2bH4jg6bo+zt4XgRDHz4rHp4dKbB1pXixf7xcOdG9JNkc/Ht+PL8Z54TGy9+bswTeHQFIh3xfo4Lc6Mj6SZOcoJ/OLhzvUbIz72rYhz0kNvR97zANWi+SkQD4i4c33EP3wp4ovvKFdH6zuPbYpYfV4KwX+//xCc8JmXbog87NkRq7479UE4WnIA4+f9IOIJj4/RV7w0Rp733MkQLHk9e+9YYHOsSqG3eNsJM9J9v5npT35M3GMcSz+AHYMRWJ3ibuJYut0cJj42L+bEnWYxQTGQY9WdWy+z5/38/mniuX0P5OHTgRTa04uM3fN8vbkdD4AsfErElq3/s5lSiaJBOOOS82PkuGNi7D3vjy37HRRbjj0+xr6QblptSDe/HAMXGIl7xz1xv9AxXIE90w2TR6QnKf1d/Ou23xlOhN/ZcX66N/jV9CD1E4ZbYENX3yc9MePgh0f8Rfo91C9Cb2363eFXz434QLqXctxRDWEModWJh0LnH57u7X3nV1989fcjdksPoU71Ufx3hBMFTzwxdfw7343x0z8V42d+bTIIR57xWzHyjrfGyNPTf0f8UJ7qwW6/33mxV/qxe0y6n3Ho5KdWp99EbYhr07NEX7nt1NvjW+lB0/3iUZF+n+sYiMA1cUO8Lt6X/n3r5D3DFek5vJtjS7w0zeqdaTYz0j+OwQj8+PqIF/5txM9+np7Ll+4ZLr8jYvOWiNelh+M+8MfpCRpGUXQQ16bnha38z4gjvhkxO/2OdvtjZfr4FS9MD5+m+1JLjtv+sw/t7wMJwrzE8VWrYvxzZ8RYCsW4+NL0nOR9Y/Sdb4vRV78qP816igUujEdPPku0a9sl8aw4OP1myjE4gfXpd4WXpRslP4nr0oOk89Nvah+ZfmOY7p44Bi6wLj1Ed+E16dmLP4tYvCA9e/HgiEP3HXgZTV5w4iHPy58bsTY9QWnZm9KvB9I9xImXUKy7Kn3s/Iib0731fV6b7rl/KD2pZoqf3TLwIMwnPH7JpTH2iU9HbNoUMz764fxT1gSaEViVHhi9Kb2m8+50UyU/FsWCyYdO849ZlxVYuSbi+lvTj6RfHsVkKE48dOooK7Al3RC59s8ibj8rPXD4f/dcK90Tn3dYxL5vTEH4mjLXH2oQlmnJrgSmj8An0ssk3hefmXw4dPuqvY5we5Gyf/9gepnEW0/f+nDo9lfyOsLtRcr/fdPyiI03Rsz9tfSwdHrCUslDEJbUtTeBXyGwMb1Y5fB4Wbw6jo8XxjPTWx3M+6Wzd0nP4p2ffqvrKC+wIT19f8nzI96U/rzi6IhFvzyK2HVWemeTueXrcIXhCEzxI63DacJVCUxHgeXpJS1j6YX1b0zv7LNrCj3H8ARuXpleWD8e8faXxGToDa8SVx6GwL3Ppx/G1V2TQMMCy9Kb2y1I7yd6WXp3H8dwBR6xV3pafrrHd0F6YoajPQEPjbY3cx1XJPCZ9JKVT6c/r0zP1p14x5n85RITL7Q/LA6oqNp+l/KRr0f8S3p11xtO2PoG2zOzl0tMvJzi8AP73X/L3QnClqev96EKTLxe8NB40Q5r8GSZHdJM+ScmXi847zk73taTZXZs04fPCMI+TFEP01Zg+5dM5I2Mpnf/ye8h5p+znnqBu7d7yUR+hdH0nh9eUJ+L9Gvtd4T9mqduppnArPSOr2vSe45+Ns6Kd8Wn0tNn1qY3WPvxZBdCcLDDnJWeOnhHelH3R78R8ZbTIlak1xSec8XWGoTgYGcx6Ku5RzhocdcjkAlckELv9XFqehfY0RSHG9L/KdP7490pEG9NkXha/GV6Y7wl2dmWJQW+l0LvD96d7vmluwdr03vP/+8HI07+WPr/wbs94it/HfHwh5W8ur2HKSAIh6nv2gQIECAwdAEPjQ59BAogQIAAgWEKCMJh6rs2AQIECAxdQBAOfQQKIECAAIFhCgjCYeq7NgECBAgMXUAQDn0ECiBAgACBYQoIwmHquzYBAgQIDF1AEA59BAogQIAAgWEKCMJh6rs2AQIECAxdQBAOfQQKIECAAIFhCgjCYeq7NgECBAgMXUAQDn0ECiBAgACBYQoIwmHquzYBAgQIDF1AEA59BAogQIAAgWEKCMJh6rs2AQIECAxdQBAOfQQKIECAAIFhCgjCYeq7NgECBAgMXUAQDn0ECiBAgACBYQoIwmHquzYBAgQIDF1AEA59BAogQIAAgWEKCMJh6rs2AQIECAxdQBAOfQQKIECAAIFhCvw/PSLTokqlO3gAAAAASUVORK5CYII=" /><!-- --></p>
<p>Send to plot.ly</p>
<div class="sourceCode" id="cb21"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb21-1"><a href="#cb21-1" tabindex="-1"></a><span class="co"># library(plotly)</span></span>
<span id="cb21-2"><a href="#cb21-2" tabindex="-1"></a><span class="co"># set_credentials_file(...) </span></span>
<span id="cb21-3"><a href="#cb21-3" tabindex="-1"></a><span class="co"># you&#39;ll need to get it from here: https://plot.ly/ggplot2/getting-started/</span></span>
<span id="cb21-4"><a href="#cb21-4" tabindex="-1"></a></span>
<span id="cb21-5"><a href="#cb21-5" tabindex="-1"></a><span class="co"># ggplot(dend)</span></span>
<span id="cb21-6"><a href="#cb21-6" tabindex="-1"></a><span class="co"># py &lt;- plotly()</span></span>
<span id="cb21-7"><a href="#cb21-7" tabindex="-1"></a><span class="co"># py$ggplotly()</span></span></code></pre></div>
</div>
<!-- code folding -->
<!-- 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>
Reference in New Issue View Git Blame Copy Permalink