-
Notifications
You must be signed in to change notification settings - Fork 2
/
Analysis.html
303 lines (225 loc) · 110 KB
/
Analysis.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
<!DOCTYPE html>
<!-- saved from url=(0014)about:internet -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<meta http-equiv="x-ua-compatible" content="IE=9" >
<title>Analysis.R</title>
<style type="text/css">
body, td {
font-family: sans-serif;
background-color: white;
font-size: 12px;
margin: 8px;
}
tt, code, pre {
font-family: 'DejaVu Sans Mono', 'Droid Sans Mono', 'Lucida Console', Consolas, Monaco, monospace;
}
h1 {
font-size:2.2em;
}
h2 {
font-size:1.8em;
}
h3 {
font-size:1.4em;
}
h4 {
font-size:1.0em;
}
h5 {
font-size:0.9em;
}
h6 {
font-size:0.8em;
}
a:visited {
color: rgb(50%, 0%, 50%);
}
pre {
margin-top: 0;
max-width: 95%;
border: 1px solid #ccc;
white-space: pre-wrap;
}
pre code {
display: block; padding: 0.5em;
}
code.r, code.cpp {
background-color: #F8F8F8;
}
table, td, th {
border: none;
}
blockquote {
color:#666666;
margin:0;
padding-left: 1em;
border-left: 0.5em #EEE solid;
}
hr {
height: 0px;
border-bottom: none;
border-top-width: thin;
border-top-style: dotted;
border-top-color: #999999;
}
@media print {
* {
background: transparent !important;
color: black !important;
filter:none !important;
-ms-filter: none !important;
}
body {
font-size:12pt;
max-width:100%;
}
a, a:visited {
text-decoration: underline;
}
hr {
visibility: hidden;
page-break-before: always;
}
pre, blockquote {
padding-right: 1em;
page-break-inside: avoid;
}
tr, img {
page-break-inside: avoid;
}
img {
max-width: 100% !important;
}
@page :left {
margin: 15mm 20mm 15mm 10mm;
}
@page :right {
margin: 15mm 10mm 15mm 20mm;
}
p, h2, h3 {
orphans: 3; widows: 3;
}
h2, h3 {
page-break-after: avoid;
}
}
</style>
<!-- Styles for R syntax highlighter -->
<style type="text/css">
pre .operator,
pre .paren {
color: rgb(104, 118, 135)
}
pre .literal {
color: rgb(88, 72, 246)
}
pre .number {
color: rgb(0, 0, 205);
}
pre .comment {
color: rgb(76, 136, 107);
}
pre .keyword {
color: rgb(0, 0, 255);
}
pre .identifier {
color: rgb(0, 0, 0);
}
pre .string {
color: rgb(3, 106, 7);
}
</style>
<!-- R syntax highlighter -->
<script type="text/javascript">
var hljs=new function(){function m(p){return p.replace(/&/gm,"&").replace(/</gm,"<")}function f(r,q,p){return RegExp(q,"m"+(r.cI?"i":"")+(p?"g":""))}function b(r){for(var p=0;p<r.childNodes.length;p++){var q=r.childNodes[p];if(q.nodeName=="CODE"){return q}if(!(q.nodeType==3&&q.nodeValue.match(/\s+/))){break}}}function h(t,s){var p="";for(var r=0;r<t.childNodes.length;r++){if(t.childNodes[r].nodeType==3){var q=t.childNodes[r].nodeValue;if(s){q=q.replace(/\n/g,"")}p+=q}else{if(t.childNodes[r].nodeName=="BR"){p+="\n"}else{p+=h(t.childNodes[r])}}}if(/MSIE [678]/.test(navigator.userAgent)){p=p.replace(/\r/g,"\n")}return p}function a(s){var r=s.className.split(/\s+/);r=r.concat(s.parentNode.className.split(/\s+/));for(var q=0;q<r.length;q++){var p=r[q].replace(/^language-/,"");if(e[p]){return p}}}function c(q){var p=[];(function(s,t){for(var r=0;r<s.childNodes.length;r++){if(s.childNodes[r].nodeType==3){t+=s.childNodes[r].nodeValue.length}else{if(s.childNodes[r].nodeName=="BR"){t+=1}else{if(s.childNodes[r].nodeType==1){p.push({event:"start",offset:t,node:s.childNodes[r]});t=arguments.callee(s.childNodes[r],t);p.push({event:"stop",offset:t,node:s.childNodes[r]})}}}}return t})(q,0);return p}function k(y,w,x){var q=0;var z="";var s=[];function u(){if(y.length&&w.length){if(y[0].offset!=w[0].offset){return(y[0].offset<w[0].offset)?y:w}else{return w[0].event=="start"?y:w}}else{return y.length?y:w}}function t(D){var A="<"+D.nodeName.toLowerCase();for(var B=0;B<D.attributes.length;B++){var C=D.attributes[B];A+=" "+C.nodeName.toLowerCase();if(C.value!==undefined&&C.value!==false&&C.value!==null){A+='="'+m(C.value)+'"'}}return A+">"}while(y.length||w.length){var v=u().splice(0,1)[0];z+=m(x.substr(q,v.offset-q));q=v.offset;if(v.event=="start"){z+=t(v.node);s.push(v.node)}else{if(v.event=="stop"){var p,r=s.length;do{r--;p=s[r];z+=("</"+p.nodeName.toLowerCase()+">")}while(p!=v.node);s.splice(r,1);while(r<s.length){z+=t(s[r]);r++}}}}return z+m(x.substr(q))}function j(){function q(x,y,v){if(x.compiled){return}var u;var s=[];if(x.k){x.lR=f(y,x.l||hljs.IR,true);for(var w in x.k){if(!x.k.hasOwnProperty(w)){continue}if(x.k[w] instanceof Object){u=x.k[w]}else{u=x.k;w="keyword"}for(var r in u){if(!u.hasOwnProperty(r)){continue}x.k[r]=[w,u[r]];s.push(r)}}}if(!v){if(x.bWK){x.b="\\b("+s.join("|")+")\\s"}x.bR=f(y,x.b?x.b:"\\B|\\b");if(!x.e&&!x.eW){x.e="\\B|\\b"}if(x.e){x.eR=f(y,x.e)}}if(x.i){x.iR=f(y,x.i)}if(x.r===undefined){x.r=1}if(!x.c){x.c=[]}x.compiled=true;for(var t=0;t<x.c.length;t++){if(x.c[t]=="self"){x.c[t]=x}q(x.c[t],y,false)}if(x.starts){q(x.starts,y,false)}}for(var p in e){if(!e.hasOwnProperty(p)){continue}q(e[p].dM,e[p],true)}}function d(B,C){if(!j.called){j();j.called=true}function q(r,M){for(var L=0;L<M.c.length;L++){if((M.c[L].bR.exec(r)||[null])[0]==r){return M.c[L]}}}function v(L,r){if(D[L].e&&D[L].eR.test(r)){return 1}if(D[L].eW){var M=v(L-1,r);return M?M+1:0}return 0}function w(r,L){return L.i&&L.iR.test(r)}function K(N,O){var M=[];for(var L=0;L<N.c.length;L++){M.push(N.c[L].b)}var r=D.length-1;do{if(D[r].e){M.push(D[r].e)}r--}while(D[r+1].eW);if(N.i){M.push(N.i)}return f(O,M.join("|"),true)}function p(M,L){var N=D[D.length-1];if(!N.t){N.t=K(N,E)}N.t.lastIndex=L;var r=N.t.exec(M);return r?[M.substr(L,r.index-L),r[0],false]:[M.substr(L),"",true]}function z(N,r){var L=E.cI?r[0].toLowerCase():r[0];var M=N.k[L];if(M&&M instanceof Array){return M}return false}function F(L,P){L=m(L);if(!P.k){return L}var r="";var O=0;P.lR.lastIndex=0;var M=P.lR.exec(L);while(M){r+=L.substr(O,M.index-O);var N=z(P,M);if(N){x+=N[1];r+='<span class="'+N[0]+'">'+M[0]+"</span>"}else{r+=M[0]}O=P.lR.lastIndex;M=P.lR.exec(L)}return r+L.substr(O,L.length-O)}function J(L,M){if(M.sL&&e[M.sL]){var r=d(M.sL,L);x+=r.keyword_count;return r.value}else{return F(L,M)}}function I(M,r){var L=M.cN?'<span class="'+M.cN+'">':"";if(M.rB){y+=L;M.buffer=""}else{if(M.eB){y+=m(r)+L;M.buffer=""}else{y+=L;M.buffer=r}}D.push(M);A+=M.r}function G(N,M,Q){var R=D[D.length-1];if(Q){y+=J(R.buffer+N,R);return false}var P=q(M,R);if(P){y+=J(R.buffer+N,R);I(P,M);return P.rB}var L=v(D.length-1,M);if(L){var O=R.cN?"</span>":"";if(R.rE){y+=J(R.buffer+N,R)+O}else{if(R.eE){y+=J(R.buffer+N,R)+O+m(M)}else{y+=J(R.buffer+N+M,R)+O}}while(L>1){O=D[D.length-2].cN?"</span>":"";y+=O;L--;D.length--}var r=D[D.length-1];D.length--;D[D.length-1].buffer="";if(r.starts){I(r.starts,"")}return R.rE}if(w(M,R)){throw"Illegal"}}var E=e[B];var D=[E.dM];var A=0;var x=0;var y="";try{var s,u=0;E.dM.buffer="";do{s=p(C,u);var t=G(s[0],s[1],s[2]);u+=s[0].length;if(!t){u+=s[1].length}}while(!s[2]);if(D.length>1){throw"Illegal"}return{r:A,keyword_count:x,value:y}}catch(H){if(H=="Illegal"){return{r:0,keyword_count:0,value:m(C)}}else{throw H}}}function g(t){var p={keyword_count:0,r:0,value:m(t)};var r=p;for(var q in e){if(!e.hasOwnProperty(q)){continue}var s=d(q,t);s.language=q;if(s.keyword_count+s.r>r.keyword_count+r.r){r=s}if(s.keyword_count+s.r>p.keyword_count+p.r){r=p;p=s}}if(r.language){p.second_best=r}return p}function i(r,q,p){if(q){r=r.replace(/^((<[^>]+>|\t)+)/gm,function(t,w,v,u){return w.replace(/\t/g,q)})}if(p){r=r.replace(/\n/g,"<br>")}return r}function n(t,w,r){var x=h(t,r);var v=a(t);var y,s;if(v){y=d(v,x)}else{return}var q=c(t);if(q.length){s=document.createElement("pre");s.innerHTML=y.value;y.value=k(q,c(s),x)}y.value=i(y.value,w,r);var u=t.className;if(!u.match("(\\s|^)(language-)?"+v+"(\\s|$)")){u=u?(u+" "+v):v}if(/MSIE [678]/.test(navigator.userAgent)&&t.tagName=="CODE"&&t.parentNode.tagName=="PRE"){s=t.parentNode;var p=document.createElement("div");p.innerHTML="<pre><code>"+y.value+"</code></pre>";t=p.firstChild.firstChild;p.firstChild.cN=s.cN;s.parentNode.replaceChild(p.firstChild,s)}else{t.innerHTML=y.value}t.className=u;t.result={language:v,kw:y.keyword_count,re:y.r};if(y.second_best){t.second_best={language:y.second_best.language,kw:y.second_best.keyword_count,re:y.second_best.r}}}function o(){if(o.called){return}o.called=true;var r=document.getElementsByTagName("pre");for(var p=0;p<r.length;p++){var q=b(r[p]);if(q){n(q,hljs.tabReplace)}}}function l(){if(window.addEventListener){window.addEventListener("DOMContentLoaded",o,false);window.addEventListener("load",o,false)}else{if(window.attachEvent){window.attachEvent("onload",o)}else{window.onload=o}}}var e={};this.LANGUAGES=e;this.highlight=d;this.highlightAuto=g;this.fixMarkup=i;this.highlightBlock=n;this.initHighlighting=o;this.initHighlightingOnLoad=l;this.IR="[a-zA-Z][a-zA-Z0-9_]*";this.UIR="[a-zA-Z_][a-zA-Z0-9_]*";this.NR="\\b\\d+(\\.\\d+)?";this.CNR="\\b(0[xX][a-fA-F0-9]+|(\\d+(\\.\\d*)?|\\.\\d+)([eE][-+]?\\d+)?)";this.BNR="\\b(0b[01]+)";this.RSR="!|!=|!==|%|%=|&|&&|&=|\\*|\\*=|\\+|\\+=|,|\\.|-|-=|/|/=|:|;|<|<<|<<=|<=|=|==|===|>|>=|>>|>>=|>>>|>>>=|\\?|\\[|\\{|\\(|\\^|\\^=|\\||\\|=|\\|\\||~";this.ER="(?![\\s\\S])";this.BE={b:"\\\\.",r:0};this.ASM={cN:"string",b:"'",e:"'",i:"\\n",c:[this.BE],r:0};this.QSM={cN:"string",b:'"',e:'"',i:"\\n",c:[this.BE],r:0};this.CLCM={cN:"comment",b:"//",e:"$"};this.CBLCLM={cN:"comment",b:"/\\*",e:"\\*/"};this.HCM={cN:"comment",b:"#",e:"$"};this.NM={cN:"number",b:this.NR,r:0};this.CNM={cN:"number",b:this.CNR,r:0};this.BNM={cN:"number",b:this.BNR,r:0};this.inherit=function(r,s){var p={};for(var q in r){p[q]=r[q]}if(s){for(var q in s){p[q]=s[q]}}return p}}();hljs.LANGUAGES.cpp=function(){var a={keyword:{"false":1,"int":1,"float":1,"while":1,"private":1,"char":1,"catch":1,"export":1,virtual:1,operator:2,sizeof:2,dynamic_cast:2,typedef:2,const_cast:2,"const":1,struct:1,"for":1,static_cast:2,union:1,namespace:1,unsigned:1,"long":1,"throw":1,"volatile":2,"static":1,"protected":1,bool:1,template:1,mutable:1,"if":1,"public":1,friend:2,"do":1,"return":1,"goto":1,auto:1,"void":2,"enum":1,"else":1,"break":1,"new":1,extern:1,using:1,"true":1,"class":1,asm:1,"case":1,typeid:1,"short":1,reinterpret_cast:2,"default":1,"double":1,register:1,explicit:1,signed:1,typename:1,"try":1,"this":1,"switch":1,"continue":1,wchar_t:1,inline:1,"delete":1,alignof:1,char16_t:1,char32_t:1,constexpr:1,decltype:1,noexcept:1,nullptr:1,static_assert:1,thread_local:1,restrict:1,_Bool:1,complex:1},built_in:{std:1,string:1,cin:1,cout:1,cerr:1,clog:1,stringstream:1,istringstream:1,ostringstream:1,auto_ptr:1,deque:1,list:1,queue:1,stack:1,vector:1,map:1,set:1,bitset:1,multiset:1,multimap:1,unordered_set:1,unordered_map:1,unordered_multiset:1,unordered_multimap:1,array:1,shared_ptr:1}};return{dM:{k:a,i:"</",c:[hljs.CLCM,hljs.CBLCLM,hljs.QSM,{cN:"string",b:"'\\\\?.",e:"'",i:"."},{cN:"number",b:"\\b(\\d+(\\.\\d*)?|\\.\\d+)(u|U|l|L|ul|UL|f|F)"},hljs.CNM,{cN:"preprocessor",b:"#",e:"$"},{cN:"stl_container",b:"\\b(deque|list|queue|stack|vector|map|set|bitset|multiset|multimap|unordered_map|unordered_set|unordered_multiset|unordered_multimap|array)\\s*<",e:">",k:a,r:10,c:["self"]}]}}}();hljs.LANGUAGES.r={dM:{c:[hljs.HCM,{cN:"number",b:"\\b0[xX][0-9a-fA-F]+[Li]?\\b",e:hljs.IMMEDIATE_RE,r:0},{cN:"number",b:"\\b\\d+(?:[eE][+\\-]?\\d*)?L\\b",e:hljs.IMMEDIATE_RE,r:0},{cN:"number",b:"\\b\\d+\\.(?!\\d)(?:i\\b)?",e:hljs.IMMEDIATE_RE,r:1},{cN:"number",b:"\\b\\d+(?:\\.\\d*)?(?:[eE][+\\-]?\\d*)?i?\\b",e:hljs.IMMEDIATE_RE,r:0},{cN:"number",b:"\\.\\d+(?:[eE][+\\-]?\\d*)?i?\\b",e:hljs.IMMEDIATE_RE,r:1},{cN:"keyword",b:"(?:tryCatch|library|setGeneric|setGroupGeneric)\\b",e:hljs.IMMEDIATE_RE,r:10},{cN:"keyword",b:"\\.\\.\\.",e:hljs.IMMEDIATE_RE,r:10},{cN:"keyword",b:"\\.\\.\\d+(?![\\w.])",e:hljs.IMMEDIATE_RE,r:10},{cN:"keyword",b:"\\b(?:function)",e:hljs.IMMEDIATE_RE,r:2},{cN:"keyword",b:"(?:if|in|break|next|repeat|else|for|return|switch|while|try|stop|warning|require|attach|detach|source|setMethod|setClass)\\b",e:hljs.IMMEDIATE_RE,r:1},{cN:"literal",b:"(?:NA|NA_integer_|NA_real_|NA_character_|NA_complex_)\\b",e:hljs.IMMEDIATE_RE,r:10},{cN:"literal",b:"(?:NULL|TRUE|FALSE|T|F|Inf|NaN)\\b",e:hljs.IMMEDIATE_RE,r:1},{cN:"identifier",b:"[a-zA-Z.][a-zA-Z0-9._]*\\b",e:hljs.IMMEDIATE_RE,r:0},{cN:"operator",b:"<\\-(?!\\s*\\d)",e:hljs.IMMEDIATE_RE,r:2},{cN:"operator",b:"\\->|<\\-",e:hljs.IMMEDIATE_RE,r:1},{cN:"operator",b:"%%|~",e:hljs.IMMEDIATE_RE},{cN:"operator",b:">=|<=|==|!=|\\|\\||&&|=|\\+|\\-|\\*|/|\\^|>|<|!|&|\\||\\$|:",e:hljs.IMMEDIATE_RE,r:0},{cN:"operator",b:"%",e:"%",i:"\\n",r:1},{cN:"identifier",b:"`",e:"`",r:0},{cN:"string",b:'"',e:'"',c:[hljs.BE],r:0},{cN:"string",b:"'",e:"'",c:[hljs.BE],r:0},{cN:"paren",b:"[[({\\])}]",e:hljs.IMMEDIATE_RE,r:0}]}};
hljs.initHighlightingOnLoad();
</script>
</head>
<body>
<!-- Automatically generated by RStudio [12861c30b10411e1afa60800200c9a66] -->
<h3>Analysis.R</h3>
<p>Jason Green — <em>Mar 31, 2014, 3:53 PM</em></p>
<pre><code class="r">library('quantmod')
</code></pre>
<pre><code>Warning: package 'quantmod' was built under R version 3.0.2
</code></pre>
<pre><code>Loading required package: Defaults
Loading required package: xts
</code></pre>
<pre><code>Warning: package 'xts' was built under R version 3.0.2
</code></pre>
<pre><code>Loading required package: zoo
Attaching package: 'zoo'
The following object is masked from 'package:base':
as.Date, as.Date.numeric
Loading required package: TTR
Version 0.4-0 included new data defaults. See ?getSymbols.
</code></pre>
<pre><code class="r">library('knitr')
#library('zoo')
#library('xts')
#library('PerformanceAnalytics')
######################################################
chartStock <- function(a,b){
mySymbol <- toupper(a)
dayRange <- as.numeric(b)
# If the quote object doesn't exist. Get it from Yahoo.
# If it already exists, this code will be skipped.
if(exists(mySymbol)==F) {
getSymbols(mySymbol,src="yahoo")
print("Got Data")
}
# todayQuote <- getQuote(mySymbol, what=yahooQuote.EOD)
myStock <- eval(parse(text=mySymbol))
chartSeries(last(myStock,dayRange),
type="candlesticks",
name=paste0(mySymbol, " - Past ", dayRange, " Days"),
theme=chartTheme("white"),
up.col="white",
dn.col="black"
)
addBBands()
#addMACD()
##### todayQuote
}
########################################################
### Symbol groups
#techSector <- c("XLK","AAPL","GOOG","MSFT","VZ","IBM","T","ORCL","QCOM","CSCO","INTC","V","FB","MA","EBAY","EMC","TXN","ACN","HPQ","ADP","YHOO","CRM")
# Load a bunch of symbols at once:
#getSymbols(techSector,src="yahoo")
#loadSymbols <- c("XPH","XBI","IHF","IHI","JO","MSFT")
##########################################################
# Run everything above to initialize
##########################################################
chartStock("fb","30")
</code></pre>
<pre><code> As of 0.4-0, 'getSymbols' uses env=parent.frame() and
auto.assign=TRUE by default.
This behavior will be phased out in 0.5-0 when the call will
default to use auto.assign=FALSE. getOption("getSymbols.env") and
getOptions("getSymbols.auto.assign") are now checked for alternate defaults
This message is shown once per session and may be disabled by setting
options("getSymbols.warning4.0"=FALSE). See ?getSymbol for more details
</code></pre>
<pre><code>[1] "Got Data"
</code></pre>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAABlVBMVEUAAAAAADYAADoAAGAAAGYALnMANmAANocAOmYAOpAAYKsAZrYQJjobAAAmEAAmOkQuAFIuc68xREQ2AAA2ADY2AGA2NmA2Noc2YIc2YKs2h846AAA6ADo6AGY6OmY6OpA6kJA6kLY6kNtEOiZERDFERDpERERSUlJSkcxVVVVVVXFVVYxVcadVjMBgAABgADZgAGBgNgBgNjZgNodgYDZgYGBgYKtgq/BmAABmADpmAGZmOgBmOpBmtv9xVVVxcXFxp9hzr8yHNgCHNjaHNmCHYACHYIeHh2CHq4eHzs6HzvCIiIiMVVWMwPCQOgCQOjqQOmaQZgCQkGaQkLaQtpCQ29uQ2/+RUgCRzMyncVWncXGnp3Gn2PCrYACrYDarq2Crzoer8M6r8PCvzMy2ZgC2Zma225C2///AjFXA8PDMkVLMr3PMzK/MzMzOhzbOh2DO8KvO8M7O8PDYp3HYwIzY8PDbkDrb/9vb///wq2DwwIzwzofw2Kfw8Kvw8MDw8M7w8Njw8PD/tmb/25D//7b//9v///9I/49VAAAACXBIWXMAAAsSAAALEgHS3X78AAAZFElEQVR4nO2djZ/cxl2H5TjlsB2gcDaGc4PBhQG3qeMSysZpLqSXBsIRO4QXN4FuKYdL3JY7ypkcPm8ul/X59u9mZjQjjaQZ7Wh3ZqWd3/f5+KyR5lV6dkYjnVaXTQFJsr4bAPoB4okC8USBeKJAPFEgnigQTxSIJwrEE2UB8ac7mWR0ckcuNw6r8WrzyJJ1PCqTXFZFXZ6bayB89ent29+ZTh/fvv3tnxdrnC/eyZc85n41aZFYUUv5+LXPO5X25Yc6kVG02MiXfI2X1oEA4uvm1eYLu42cY+U1L+Gy2JBp87qwre4NWhH58edHWB/pXMNjbePZ7UKVjtSJi61myq8+fbdTaaL+0rzKKbwL56sRf3FPBk7uiED+v8HJHfFJGHOFx8r/ZDPLLu5J3dLyZHPjMP+5uKez58tjnk5lk9Uc81Ly3N3bGZqvPuWGvvzwWz/mBu5/8Y446N/+OQ//VS7ji3cKVTpSJ1bZaym/eOd+p9K+eOe1z8WP3FjmfO1zEeYbVi++0eOV+LwTbxyq5f8U4gXH8oMhen0+NKgPwFgPJBuHB3x84JF6tXtDAyPFyyP/+Fs/fiY7ND/4/5IHRey/alU6UifOs9dTPstdepeWh9/NN+qcuXj5iVzVUH/ZNaZXNgufonPLmHF5ChcDgpSvNyrxB+XaZPOy+IwVuftGihc846OqNJCfhp+pMfr+k1JVESkT6xKqKR/nEV1Ke6y9F+2YPhFD/f1pH+LVOCxGZKko3yy9i6AYzVUiQ7wcN1zi82ynOxu/uqNqGcxQPxXHm/e+uiqxLlSJIfq1/zUjeWK58fNayq8+/U7n0mQbytLEKCDP9e+uSHxlqNfmDPGqi4ot0pkM8E+CFp8P8dnIPtQX2Q4ufLC5NS1y940S/0Qeb2P8fVZMvPjUS6nSkXliU3yR8ssP73crLU8kTuu3866uc371aS/n+Eo/zjcr8QdyZqYSi1Q6ZT6pu7Brn9wV2bhx7bteRx/k4p/ks3Q945rWVMmUReQT82KulvJZ/sHwLy1fqhmDzqmS31+xeHOoLyjEH6vYoguP9eRurOZr1ss5nU2cU3iaInffqFn97fykWlyAqbPydDp9Ur8AKxIrKimfcFGdSsuXxaw+z5kvVzW5q4pvTu70bIx73RInbeFOXdblUWKaIEL2Gzg6Gw+ISJ27b6T4Z7eVqvKWi0WViiwSK8yU8hTfqTS51HaLnOoGzirEr46DAQzwJcWsfpCkJL4YWoZB2SsHyCru3K2Kg4HduYd4kAAQTxSIJwrEEwXiibKA+AwMlcjiZ2CYQDxRIJ4oEE8UiCcKxBMF4okC8USBeKJAPFH6EH/26mfOjecPspcezmYv3swuPZXbi5A1V5+wvhuwFEMT/2h79vzS0/MH27OjK2K9CD3PXob4gPQp/uxGlm0Lpdwp79hC7Iu3ZJRY5Kl06NFL/zSkHs80fTdkYXoU/+LeQxEUanmfzjee3fxYDPVnN5/K6JkZGpR49Ssu1ndDFqbnoZ5bz7Vq8Te2hWs+2ivdZQjig9Kr+EdikBcj/ksPix4vPaPHR6fPof7NbR3k/Vqd0t+WnpvneIgPTI/ixeLsGw/FYF6IF7N63snPH9wqZvU6BPFB6UX8DXHMrsyOsuzXv7+tBvzzB/JyTc/u5dW7cD3M63iIX0T8+sKKAMRD/HoC8b4w86YNxKcinvmnEAGIh/g1BeJzmF4678IzMwDxyYnPXEqZGYB4iF9TID6H6SXEQ7w9BcRDPMSvt3jbnRmIpyDeWEL8IMWzsMXVShVLiId4V91msjgNWgUQH0Y8syYdMBAfVrz7lu/ASEW8O8a/VLFcWrwz/8CA+DniWT0VxEM8xCcqvvrQzcySjDXKgPgUxFdWZpZkrFEGxEcX715ZsFSxhPhhi29cNDFL6q6liiXED1y868AvUyqbLSbe75c8AwPia+KdFitVVcVbIiA+GJXRPZr46oaKeOdz9WZ+iA8v3lz2IL6aAuIhHuIhHuIhfpkGrQKIh3iIb2xwWoR4iId4iG/NMjAgHuIhvrEB4ocsfunnG1ltWUZA/KDFL3usWW1ZRtARfyAbPZqe3Mk2DnsTz9o2ymXv4iu/MTLyr6t4wfHG4enOaHpweW3FW/PPr66Rrd1iozp7YwZKU+bJ67vTk7t708m1vQDi9xeB2cJMtVhuKMQb4YzZ8vtUZ5ZciWiUbG2lmb89y4DQ7SxdiZ4+uX4oPwDLi1/o08hsYWYuh9DjrfnXt8dL33y0H7j41qedrPnnV9dI6is+iUevhPPh9/jKhnji/S8U3Y0ZKA2Z4y3+X7hz/EKNYrYwc26IJt4zf3tjBkpd5ul7op+f7mwNZVbP6oHmBohfgLpMNcAP4zre+hUm1ki1tPi2Ad0jf3tjBsrQ7tzNf7yZzWqBpcW3JuuYv4N4z5IjMTjxZmCF4uc3yC8ZxEN8oJIjkbT4EO8l8czqbIw7v2fJkVhj8UVKt/jVzbScVbqrdsesgtTEuyeHcSlaB/E9iXeuxKVo3YLi3ckikYJ49xUgxDtJQHxl65qIrz7IsfwUtDsQHwZr/WaEI7mZx540EkMRz2pLiI8MxIfBWr8Z4Uhu5rEnjQTEh8FavxnhSG7msSeNRHLie34cpl08qweYmaeSNDapia8W1ireXtCSQPyKxdsLdYqPdgXV+PVApQZWDzCzmcEb0wZV8d0L6wBzhI29q1zHQ3yr+O6ddFDi3WMBxM/axFdiPQtd/VCfl24LNwLlBoivi289YXoUuvrJXaNk5gyUGyC+7fA0VjwKhXgn6yW+I32Lr95UaMQWGyA+tPjWU/kyJc+pVy9tVyUQX4HVlsG0uMsJVYO7ZIifD6stIT4yEB8BXTLEz4fVlgTEl8nrM5F4LSuB+Ajokt3P/7Y3Jl7LSiA+ArrkIT95CfERgfhW2m9zLAvzW4nCAuLbTwgBGYJ4M8AaW5eE+a1EYRHxrTcbAwLxEQki3p1nKSA+IhDfSmUXWWPrkjC/lShAfCuVXWSNrUvC/FaiAPGtVHYx+KyW+a1EocODJEUKquKrgQAwv5VoeFapYyA+FMxvJRqeVeqYRMUz20pzF0Puq7XKFeJZv45JULzzd1DNXQy5r8y5sho869cxHX6vsxwrFO/6KDc2QLwWH/E2Hh3xq7oJ3sb8uiE+OI3qemB+3e3i5+f3pifx7b+QC7h/Rv0xC+/YhpYUqYs39qTYm2YgJKy27IP5dbdP7ubn9wbiV8n8uuO+n9UA4lfJ/LpX9n7Wnq7ji72ZQXw1RXriKzvOjGVzDAuzazVYbdkH8+umJL4aaKyEYk2u4903ONMQ32ohzK6tsuCw9TPbShriGyvuZCGJVnDY+pltBeKXIFrBYetnthWIX4JoBUesX+eB+CWIVnDE+nWetRZv3aMuMUsSreCI9es8EL8E0QqOWL/OA/FLEK3giDC9hPjFiVZwRJheQjwtmF5CPC2YXkI8LZheQjwtmF5CPC2YXkI8LZhe1sUza3JfIH5dgHiipCO+ZR+X2qVEgXiiQDxRIJ4oEE8UiCcKxBOFgnhgAeKJAvFEgXiiQDxRIJ4oEE8UiCcKxBMF4okC8USJLP50J7uwO50e8Aou7kH8gIgsfjyaHm8cioXFIsT3SFzxJ3dlNz99bzeQ+H0QiFK83rBUcbo0JWpy/X0x1J/c4ZsanR49vk/aezyrJ59HTeZkc8TlH06u7lp6PcT3if31xkVs1+Lq4q8fTk9ez403zvMQ3ydxe/zJGxA/UOKKF7Z5rxcT+9Mf4nJuSLjFL/Sy1rpMPq0T1+/8Ov5CY2IP8X3SIr4W4QXu3K0LEE8UiCcKxBMF4okC8USBeKJAPFEgnigQTxSIJ4r7D81CfPIw6wrEJw+zrkB88jDrCsQnD7OuQHzyMOsKxCcPs65AfPIw+1aITx1m3wrxqcPsWyE+dZh9K8SnDrNvhfjUYfatEJ86zL4V4lOH2bdCPE0gnigQTxSIJwrEEwXiiQLxRIF4okA8USCeKBBPFIgnCsQTBeKJAvFEgXiiQDxRIJ4oEE8UiCcKxBMF4okC8USBeKJAPFEgnigQT5R28fatEJ8ADfGsEmvPBPHrD8QTBeKJAvFEgXiiQDxRIJ4oEE8UiCcKxBPFKb7xZ2wMIH79cYvP3HfxIX79gXiiQDxRIJ4oEE8UiCeKKb5yBQfxaVMRX2ycQXzqQDxRIJ4oEE8UiCcKxBMF4okC8UTBDRyi4JYtURrP2egAxKcPs61APDGYXkI8LZheQjwtmF5CPC2YXnYQf7qTXdidTk/uZBuHEL+mML3sIH48mh5vHJ7ujKYHlyF+TWF66S/+5O6eXkyu7QUQvw9WD9PLgmYa/ZlQoibX3xdD/eT64fTk9d0A4lf4OQca5lwpqcmcbI6EdT7aQ/z6wpwrJXXxeVdHj19rmHOlpH6Of0MaD3eOj7+XoAFzrpRYZvW8u5/ubGFWv74w50pJXSa/gL+4h+v49YY5V0pw5y5BmHOlBOIThDlXSiA+QZhzpQTiE4Q5V0ogPkGYc6UE4hOEOVdKID5BmEcaiE8Q5pEG4hOEeaSB+ARhHmkgPkGYRxqITxDmkQbiE4R5pIH4BGEeaSA+QZhHGohPEOaRBuIThHmkgfgEYR5pID5BmEcaiE8Q5pEG4hOEeaSB+ARhHmkgPkGYRxqITxDmkQbiE4R5pIH4BGEeaSA+QZhHGohPEOaRBuIThHmkgfgEYR5pID5BmEcaiE8Q5pEG4okC8USBeKJAPFEgnigQTxSIJwrEEwXiiQLxRIktHgyVyOL7/mADBxBPFIgnCsQTZWjiWeNPI4MoDE58IwCiAPFEgXiiQDxRIJ4oPYg/f7DN/z+7+TRfPXv1MyOSNQKzo1tGPE9d/LPuUFEuaKWPHi9NFjrniW+YbLFelA7m0Yd4ofL8o4ezF29mL3+mPfKf84/+IctuPec/s9mL3xBxgkfbMyOi0uNVATc/zjI+iPB4keXFW62fC5DTh3ghXch/dGv2/NJTQ/yDK7Nv3rgix4BHr8yOrojE3ONMRJzlERXxqoAbciESyiyPtld6BNeUJcXLP0A72cyykf2vU9ond3w05v+EqRf3Hpo9/uHsT8RIcO/hi3u/JePL4eE8jzDFlwWI3DxUlA7mspz4Y/H3SMWfnZ5c3T3dGTX/Hq1d/NnN/xOdngvjOu3i38yy7CVhkvdll/iyAFnW2Y08B8T7sJT48YUPeI8/FrbHI+tfoLaLP//7/+T9uLXHv/U7Kq13jxeJxacE4r0IMdRzGn9zXj/nsT+b7Td/jv70t/nyR7dmv/ja07Ovf/Li3g/2j17+5L8+erivxItzPI/jaV+89cn++Uc/kD883S9f/eyXX/+M5zl79ZP9R7f2f3HpKV+f8Z/nX/uPmfiZ/ejPrHXip/ITRrz4s+PHG6Z4ncX+cTv7hhiTi1n97CjL/vAts8eLWf1L+TlbzuqtPd4oQE71MKvvQBDxJ3e2ptNqj28X74Y1Al3vyGCk9yLMrH4k7Puf41tgjUBHk7hz50cA8bl3Odx7zupbYI0AiEIA8QdyFjfqcB3fAmsEQBTw2zmi9CL+/IGcsqsF5+yGnJDzRbadJ9hmxnY+excX6GoBQtCLeH6FJm61qIUwuj07uvRUXMZ9U17oHWVSvNoufo97dGWmFiAIfYjPb8LrxSyfiXPrz7lVJn7FcvYH35fi1XaRUN2owxX6HLyfUu7n17IfizFeLWaFYBH843viXs0/PzDFVxchD1N6sEbAQS/ib2wLp2oxU0O6/Ayc/+YtceGuzvFquzgfiAHhEsTPhTUCDvp6EKPag/kk7o8+eihMvyKjjckd344e7w9rBBz0co5/Oz91v22KlGfwG8L3kbwv8Eq5Hed4f1gj4KCvWb18AqcY6rn+oyvyFJC3Vw/1+fbzB7eMBWiDNQIOehGf/1bN+OXa80xcoeddXVzIC/HldlzH+8MaAQcDuHP3M8dTtj/DqN4d1gg46F/8+T/aG17dDvxgjYCD/sUv2HBghTUCDiA+LVgj4ADi04I1Ag4gPi1YI+AgxKNX6gkMPIgxAFgj4CDAFyrUNyk6fKEiRMOBFdYIOAjwhQr1lGW0hy1BB1gj4CDEw5b5c9VdvlDh/jEa3v+XDtbwx/v4BRCvvknR5QsVAT6xwAprBBzE6vEQ3w+sEXAQQDzO8T1jPm3Fio1zMgUQr75JgS9U9AVT8yk2w3U8KfoQPzdL553wbTgogHiiQDxRIJ4oEE8UiCcKxBMF4okC8USBeKJAPFEgPmncrzyA+KTReqVfa4yIKCIbqWpA/LoA8UQZoPjJpnjKGr+Pj8vwxIsH7Q42DvFcfVyGJ14+ZXkXz9xFZnjiVY/Hc/Vxf0rxjWNWil/Zc/W5eXlyx3P1cRlej59c3Z0eX9zDc/VxGZ541dVxjo/L8MSrHh/7uXrfl7SmyvDET4+z7MJu9Ot45oogwgDFt2XpvHvOhjNXBBEgvmuR8+tci5MIxHct0rvO8CWHBOK7FuldZ/iSQwLxXYv0rjN8ySGhJL7y0AmrpwhGvJJDQkp8ZtmleXvUnXglhwTiuxbpXWf4kkMC8V2L9K4zfMkhqR4M8woU4hckXskhqR4Ms/dD/ILEKzkkC4hv+yN0SYv3/Ot7C5TcA4uId04LUhffsuOWOjuU3AMQ36EwiId4jzo7lNwDEN+hMIiPKv50Z6kHMaw3ZiG+zgDFj0fiubuFv1BRbauz4aye3KNkiI8pXjxlqRYLPWxZbauz4aye3KNkiI8pfnL9fTHUL/yFCrOt1S8EGN8h2C/1+H8JoZJ//pc4WPsXGgr2jdNT1C9RGFXWvlDBjLD7CxVt+x9C/OZIWF/4CxXVD6nzE8vqyT1KDtnjrS3r0JgFsHbyIfX45f5QQbWtzoazenKPkiE+pviTN5b7QkW1rc6Gs3pyj5JXL97zLrEfAxcvZvW8uy/8hYpqW50NZ/XkHiVX8juN+JVsbVkji+dnzY+hi+cX8Mu8GKHaVmfDWT25R8l++f1KtraskYWU+LYsPrtXaauz4ayevEg593VQEN8sOwXxzt2DeIiH+BoQvyrxC8z3Id6MyffV/L3OmohvBOYC8WZMc18hHuLbDly9ukYDLIfH2UyIh3h3le78fkC8GdPc18GKdz9i4gfEmzHNfR2ueFv9EN84EO0NZ2ZyiIf4sOJb7v/aWpY3xnVtCfHtu1dpq7PhzEweT7y7MFvLWGt+iG/fvUpbnQ1nZvJkxTPP4WNdxbufqHY23Dy8aYnv5npQ4sWj1Z1+H185VjPnChHxnVwPSvxBNpp2eq6+cqxmzpXu4luGykp+cwpXaQzEdxA/+d3vjro9V185VjPnygLi5x54Vq+/D/HVD966ij997293Rt2eqy+O1YLP1Rf7ul/dPSNLe36j/spz9ZX81efqZ0Yes353fmv9lX1uPhfvzl+u1Os38zuPX4Q/VHCwJYb5Ts/VG8eKZo9fdmcq9Ttrce5MqOfqTxs9Pgnx7nvtED8VMzvBVoLn+BZxEC8RPX7ec/XuibTtiEC810ozv/P41Vjddbz7WNmOCMR7rTTzO49fjdXduYN4y24uvDMQD/EQ73fgG/VDfAzxYKjEFd9WQmXl71wrlQi/LEnlr6wskn95axAP8UFKgPjOKxDfmiWp/BDvnyWp/BDvnyWp/BDvnyWp/GmIB2sJxBMF4okC8USBeKJAPFEgnigQTxSIJwrEEwXiiQLxRIF4okA8USCeKBBPFIgnCsQTBeKJAvFEgXiiQDxRIJ4oEE+UOeInm+Jr11t6dTwyovK3YclX5aiU5ktzatGLMtkU714aX6y9eUvXc5xlKmrF9ecV5C8HGwWu31WnqoIvAuzzPPHVd50Z4o9V7Qf5fou34U2u7hYvv61FL8zk6u8dTk/+vP7KNVWPPPiXe6i/rEC+BDJs/Y46VRVicbB8nZ7i1R+XHn9Pfb6n4wsfyCj5yltRqfyQjvSL8erRCzO59hd8777HC8s/3rxA+Veuyxfw5YsV119UoN//GLJ+R52qCvnSybtL77On+HH+vrvxxmExBshA/spbBT8G5aswm9ELMbn2b6Ppf/M9kh/va3uTzXxgLV+5Wb6Hb4X1T4tDY7wGMFT97jpF2WWPX6pOn3P8ZVmu+GCJoV4P97KW/JW3OeJtiOXLbxvRizG59tPfP/3hT1XvurunDndRz2Tzgn7j6irr1xWYL3wNVr+7TlFF5d2Di9fp1+N5XVnGj/BPdqvi1Stvp3maLbMn1qMXZHLt3//6V38pmzEWEzk9vpc9Xh/6ldY/LU4xZd8LVr+zzryKq7vT44t7xoaF6vQUf1eN+KNyyljOauWkPx+PynNvLXpReDE/+Zst/v/JnZEc9soGFaeh0errn+pDM9alB6zfVWdehfFG8WXq9D/HiwrHl8t5fvXaQZ2HypffhrqcurZ3fGFX7T3/sBfFynqMUW619esKTt9TI33I+h116ulN0eOXqtN/Vi/OpXxWX5xSq7XoK9rg19Fy99VH+de+OzIaJOo5yFSDVl2/qqA4xYes31GnruI4yD7jzh1RIJ4oEE8UiCcKxBMF4okC8USBeKJAPFEgnij/D4M1KANWN1eiAAAAAElFTkSuQmCC" alt="plot of chunk unnamed-chunk-1"/> <img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAACWFBMVEUAAAAAADYAADoAAGAAAGYALnMANmAANocAOmYAOpAAYKsAZrYQJjobAAAmEAAmOkQuAFIuc68xREQ2AAA2ADY2AGA2NmA2Noc2YIc2YKs2h846AAA6ADo6AGY6OmY6OpA6kJA6kLY6kNtEMRtEOiZERDFERDpERERSUlJSkcxVVVVVVXFVVYxVcadVjMBgAABgADZgAGBgNgBgNjZgNodgYDZgYGBgYKtgq/BmAABmADpmAGZmOgBmOpBmtv9nJhBnRERxVVVxcXFxp9hzr8yHNgCHNjaHNmCHYACHYIeHh2CHq4eHzs6HzvCIRDGIRESIiIiMVVWMwPCQAACQOgCQOjqQOmaQZgCQkGaQkLaQtpCQ29uQ2/+RUgCRzMyncVWncXGnp3Gn2PCoEBCoOkSrYACrYDarq2Crzoer8M6r8PCvzMy2AAC2ZgC2Zma225C2//++vr7AjFXA8PDFAADFABDFJibFMUTMkVLMr3PMzK/MzMzOhzbOh2DO8KvO8M7O8PDYp3HYwIzY8PDbAADbkDrb/9vb///iABDiECbiJjrwq2DwwIzwzofw2Kfw8Kvw8MDw8M7w8Njw8PDyhzby8PD1YAD18PD3NgD3Njb3YAD3q4f3zvD6AAD6ADb6AGD6Nof6q/D8AAD8ADb8AGD8Nof8h6v8h87/AAD/ABD/ABv/ADb/ADr/AGD/AGb/GzH/Nof/OgD/Ojr/Omb/OpD/YKv/ZgD/Zjr/Zmb/ZpD/Zrb/kDr/kGb/kLb/kNv/tmb/tpD/tv//25D/29v/2////7b//9v////kpv5jAAAACXBIWXMAAAsSAAALEgHS3X78AAAgAElEQVR4nO2djZ8cZ13ANw14NkFFr7GaUKuR8mighCDipoXYCikonkqaii+hVewhng22RQW8Ey6WGPWyPa4jFLS+FEVWW86GlqAJNubs3fxbPq8zzzPP85t9ZnZmZ/Z5ft9PNvP2vM3znedl9mZ3BwkSJYOuC4B0A4qPFBQfKSg+UlB8pKD4SEHxkYLiIwXFR0oN8VunB5zh5nG+XFg3j8vdQ0fU5WEe5IBM6sDEWD3hmUeOHXt7kjx57NjbPpVtUZ6+XyzpkTNm0CywpBDyybufqpTaFz+sAmlJs510SbdoahVoQHzRvNy9b8mKuSy9ihQOsB0DZV4ldrh6gWaEqH9aw6qmhYYnlY3LxzJV6qAKnO3VQz7zyPsqpcbyz83LmMw7cz4b8ftX+MrmcbYi/tfYPM6uhGWqcEP6Hy0OBvtXuG5uebS4sC5e+1dUdLHcoOFkNJ7NBk1FxK5ezqZ55hFq6IsffuvHqIEzT9/PKv1tn6LrvyBkPH1/pkodVIFl9ELIp+8/Uym1p++/+yn24jvzmHc/xdbpjtmLt1q8FC8a8cK6XH4+E8/Y4BcGa/Wia5AXwLLqSBbW12j/QA+qzeoFbRguntf8k2/92GXeoGnl/45YZUd/V6lSB1VgEb0Y8rJw6Z2aWH+f2KliCvH8ipxVV38A6tON3cwna9z8yHI+hLMOgctXO6X4tXxrtHiAXWNZ7K7h4hmXaa/KDYhh+LLso89cyFVlB3lglYIZ8klxoEpqTyrvWTmSC6yrP5N0IV72w6xH5orEbu6drbLeXAbSxPN+AxIvom2dXvjccZlLb7r6hNU3bX1FVWybqWJd9N1/oR+kgfnOpwohn3nk7ZVT42XIU2O9AB/r3zcj8UZXr8xp4mUTZXu4M75CrwQlXnTxg6G7q8+ire370OLhJIvdNVL8BV7fWv97OZt40amXVKUOisC6+CzkFz98plpqIhAb1o+Jpq5iPvNIJ2O80Y7Fbil+jc/MZGAWSoUUk7p9S+7JXRaNGle+i3l0gRB/QczS1YwrKajiIbODF/SbuULIy+LC8E9NLOWMQcWUwc/MWLze1Wdk4jfk0awJL6vJ3bKcrzlv51Q0NqbQMFnsrpGz+mNiUM1uwOSonCTJheINWBZYYoS8QEVVSk0ss1m9iCmWs5rcmeLtyZ2ajVGvh9mgzdzJ2zpxiE0T2Jr7DRwVja6wgyp213Dxl49JVflbLg5V8mAWWKKH5EN8pdT4UtnNYso3cGYhfnas9aCDz8lm9b0kJPFZ19IP8lbZQ2bxzt2sWOvZO/coHgkAFB8pKD5SUHykoPhIqSF+gPSVlsWnyGwYQwqA8Cg+DEDvKD5oYO8oPmTKFABRUHwAlCoA4qD4+aekn0fx4TIu947iA2WCdhQfKBO9o/gwmawAiNiF+J07Hgd37p0d3HIuTXdPDm69xPdna85YXUK6LkDq431exJ8/ld649dLe2VPpxYNsO1u7MXgdii8wuZ/vp/idI4PBKaaUOqUNm4ndvZcfYgsRSq2dv+W3+tTiiaLLQnh576H43XvOsVWmlrZpsXPnzo+wrn7nzkv8cKqv9Uq8/BMX6a4Ik27j+iueQa0LrUr8kVPMNe3tpe58DcXrJJ7a+yn+POvkWY9/y7msxXPP2OJLGPu2dQGQSpdd/clTapW2azmkv5d7tsd4FC+pZj3po3i22HnTOdaZZ+LZrJ428r2zR7NZvVpD8ZWdc4DEOhF/hNXZwfTiYPC97zklO/y9s/x2Tc3u+d07c93P+/gOxNfT3ivx8wvJVmYuvqZ2FN8IJFuZsfjqNZ8BpIjifSH6mzYzFV+3kxcAiaJ4AfEPwVb8xY8ZdUuVVr55swHSRfEC4h+CrfiLVzVR9QLg4atXuA2Qfiezen5SN7PNbfmvjEIcjb0rxt7rr/KwdN/uePxKHvlmuiO2boxfEXkZORK1lLzl9/63UCCir3DxD44fEzuvZ4VThZFFYIvnk2T0tfE3n02Sra8+t/WV8fi1QtG2ebzxi6/JQjUkXAFUaCfi2anuiBNNUw/rdhwNUzy1u0tD0ZBs//VrbJ/cwa4Jyo1raZl49UGTvy6WiegrItjJx7Kd6Q1u8rq4NmWObDH6l+c2/+H55G9f+lIy+vqXvvx8skHFfkUv2nUa8+pNekHSHmGjYetJ/8Tvfes1duFvay1+55Wrqqm+nB99+cq2Hke13jzoFV5pUhOrwWt8ubut3Mod6a7aysTvbl9nLU0uWGr/cXIw+MJj45OD/1TieTHoVUTYtUP17v4x3SY80MnH3qyujl1+Te68LK5CmSNbJF9+ngpPNv/xuWTj25v/9CyrFbYQXfno63xJd3DhX37h7//12eq1XErfxLOO9+qrrCZz8WO+zXfTeqQL2ix2RBtScXhbMoOOuWPZgpStF19jGexmXQRfu3qzKJ72uDf44j66YKn9/JiJp43500q8KOT1VwlrzbTTuPo3NC8iAuUtnme/963/y7sfmTc1rsSzS+Dvxi88l6gdCf+fdgZyP2UUtHh+lb/CLTFD29owz5shb9u7vCmqDlnFkXb1oFdu5n7lOL53RVwX2QG2IxV9vSn+Js9qfJPIHO967OTgC7TVP/iozFgV8pX7vvPdazzQo3Tfr/JAuXiR0fVX83FH5JjufeUbCe/qX3iODvGjrz3PrG+8pMTTY2M2CIj9SejixXTm5o4wXBTP5HEbFH5Z6HFoC2Rd7852Pjeg7XhnLOdGYqTdpf1Bqrd4vsMlXvQDdEHYgl9cD3KnX7hPy5iVZvtXtne2d9m1wor1aEE8z5fmmImXOe6Ov5Hwyd2/fZU1fNnU8xZPZwDJxjef1XYEL16OwiUtXjOuxWEDfLHF58p5ixejQz7Gq+EiEy8HZDFw7H3r0bv+5FE6jX/0rm0xa2NOx8Rs8enVP6Xt/bvXWGtPWTBT/FXeofAL51UtR7qQFUFH8Y1vJ5v/zAWzMV4Ylm1f7k9iEL8rRnFjjJeq8jFeHNXj8DBysa3GeCZdtvXtrNJZXysGfuU9G+PTq9fE8d3xNRrxPrFICU3tJ8dHmFOq1BzjaTavijk7HeNpFFM8m3WKlSs3tRzZIpED+bfpEJ+wF23dW7T/pzuSrMXL/Uno4tVtb3FWL23S3f8tZvViJpfH+TRvVi+LUYJ3wlf4rP6qPqtXd9XiZpmGynZoc3zRNHdf/A7Ng4hFSmiMf3+Qt/gHHyQix2uykOnOX73G5oEpm9XTKFK8nNVrc4mbWo5iwe/gXvoSHeL5kM7u6OXITiXTQy/k+wMX7wFwY08mR3yluOe/srXsPj5DCCPSG0s9u4+3siL6in0fD1G9zhoGKFcPxdNWPHa9U5N6PdEs7Gqp/Y9ay9+5yw5OJz57565YMn2jep01DFBPPRRfApkYYppU2bJSi9dCZWkUH7yuXmcNA5x0KOLhI/6psuXU4ovxq9dZwwAnjeIniCfFUCjeK0ptG05IjSP+qbIlincQnXjzoZvUEYxYaaB4EWUKHw5IjSP+qbKlKd7YSB3BiJUGihdRpvDhgPht1EyVLVG8gx6Jtz6tShyhq6bKlijeQZ/EQxU/TaokrSfe9fhtVrLqddYwwEmj+IJ40KKRlSnecSArWfU6axjgpOdHvNG7tybe3GGIB5+r1+OjeBllCh8F9OrtQrwZAsVPiFLbhoVR+SjeG+CkUTyKnwiKz0Og+AlRatuwMCofxXsDnDSKryI+j4LiJ0Sp6cKBXr0o3h/gpFE8ip8Iis+joPgJUWq6cKBXL4r3BzjpAMRbzzdOlbJxAMVz+ioe1FMnZeNAPOLXeKGHyebxwcJ6MYmZibfquVi93Ys3/mKkxZ9X8YyNhfWt08Nk7UDxwNyId8afnJ0VrfySsrJzFqaOq0YBTtqWufmOpWTzxEoyOrRSOFJH/GodiGs9q16+oapXWx8QV3yf7PSUjQNWys5S6vHLo/QIVc7cFWvpo9vX+QUwvfiylgZCXOt6u+pFi3fGn98Wz33T3r7n4suednLHn5ydFdRXfBCPXjHn/W/xxo72xPvfKIKFqamrOYACWzKXD9P/mhvjJ1d7SS0a6wTc0Zp4z/ilhalnq0GAAhdlbj3A2vnW6cN9mdWT4oq9A8WXARS4KFN28P24j3d+hIlYoaYWX9ahe8QvLUwtWU0CFLhv79xNfrw5MwHWdVXxpcEqxq8gnlSvzjoABe6deH1lhuInF8gvGIqXUWrXMynWInGFcNY1itcBChy0+Kn/bpdOLx7S+8QThL4S69U4QIHnWHwWEhZvHWkNMEtLfCbYfUk0fgEABQ5NPDw5bJesdJD4rFVndVPe1Td2AQAFDk48uNEuWeks8aBAAm7oTC0fKHAI4uE7wD6IB+vGTzxjKvdAgQMQD1d8f8Vn16q14WQa80CBUXwzOPPnO5z1YhzN/sZcVpO1u3ygwH0RTwpLFN8UQIFRfDM48+c7nPViHPUWX6vVAwVG8c3gzJ/vcNaLcbRSi6/sHihwcOI7uo/PylEqPtswjlbr6quaBwoamngzsVLx7oSmpH3xScUuHyhoKOLdiYLiG3gTH8iymHIb4hne7oGCxiq+emIV0FMFxBv38XXEe5sHyjhH4qs30l6JJ4bsRL8KaolPPN0DZZwf8cUa9Ul09l29SF1fV1VBinumF+9lHihjv8VbA6ZvcjL47Cd3Vsqtik883ANl7LX4YiWieAeTzANlnC/xFelavDGsZ9k1LD6Z4B4oY9jiS4fyaVKekK9aDjSlWXbNiy81D5Sx9+KnBU6nqRzglGcmvkw9UEYU3wIq5RmKh80DZUTxLaBSnqV4EKCMKL4FVMrl4jOsJ3BqXgHut/CBMqL4FlApm+JLn7DyfwCvKkAZUXwLqJQN8YwmnrysClBGFN8iHYi3u3ugbD0Qbz47ke2dvt7tdOCNVqghvnxAqANQtj6I11eItXdKiN9GK9QRX4xSA7PRA2VD8S3SiPgaV4BhHigbim+RrsQbAGVD8S3Sofh8kgeUDcW3CLb48urRV8r/oFYD4rfRCvDTVhZtiBetHihb38SbKw1A/DZaw/MGPfoWb640APHbaI2OxT/xBFCu2Yonrg1iHTWCTYkzyxmCLd4avElhieKTgvhG3sYDyjVD8eqMsh2FJYpPiuIbeBsPxbf7KD2IUR2TBaL4xrGymw1GdUwrvs4FAJSrI/Hlf5AjaQuQwnJGGNWB4onamaJ4M0Tp5A7F14AUljPCqA6nuPF4zP6XIcDbubpTfKBcKL5ljOrQnVHfY3qc/5fyFR4CFl9zpgeUq6P7eKJ2prGKH9tB6TUQongGKa6wpf13GZK2ACksZ4RRHbkzKHhM4s0Va6Mp+nMfP3a0doU9kgcmvtSCe28DtJYwjFEdzFmZdgnRo4Ul3tqAgzVJawnDGNVBnGO7BaGvsRZHLFF8fVpLGMaoDgKO7QaE/TdWN3gqLoqvT2sJw+R1QW/fquUvb/BkdBQ/Ba0lDKNqgg/t1fMPRLwBXAvV68eT1hKG4S19ivzHKL4BWksYxpjE18mfgG/m+gEki+L7DopvgNYSbhEi7+xQfGQQOUFE8ZFBUmEexUcGYf8lKD46CPtvjOKjg/D/xyg+Ngj/3yHe8wIAkkXxc8IYxUdKOOJLzrF27QQMio8UFB8pKD5SUHykoPhIQfGREoN4xAGKjxQUHykoPlJy8YVPWkwASA7Fzwvaz2aOUXxE6L+XanzEBsWHjfFDuSg+HsxfSEbx0VD4aewxio+E4m+ij1F8HBTF2z9VOpX4rdODfUtJskYz2L+C4ntEy+KXh8nGwjpbOCyi+A5pV/zmCd7Mtx5Yakj8KtIQuXi1Y6rkVGpS1Oj2D7KufvM43WU1emzxXWK3eP37deDmDyRXkDlaHFL566PblhytHsV3iSEe/Da82uJvX0823yGMW+M8iu8SR4sf5xU9rfjNd6H4nuIQr5mfVjyzTVs9m9hvfQBv5/oELL78+8yB5Ioy6bSO3b/T+/h91sQexXeJS3xqfNX5VOJLLaL4DnGKN74rA8UHiVu8/l0ZKD5IUHykAOLHKD5wUHykAOK1L0lB8UGC4iMFEp9/Ow6KDxJQfIrigwbFR4r183wkO4LiQ4c4N1B88BDnBooPHuLcQPHBQ5wbKD54iHMDxQcPcW6g+OAh7r0oPnSIey+KDx3i3oviQ4e496L40CHuvSg+dIh7L4oPHeLei+JDh7j3ovg4QfGRguIjBcVHCoqPlEz82KUAiITi5x8UHymZ+NRlHoiE4uefXHzqUABEQvHzD4qPFE28wzwQCcXPP7p4e5QHIqH4+QfFRwqKjxRdvG0eiITi5x8UHymGeGteD0RC8fOPKb5oHoiE4ucfFB8pBfGFUR6IhOLnHxQfKQXxBfNAJBQ//6D4SCmKN80DkVD8/GOJNxQAkVD8/GOJN8wDkVD8/GOL180DkVD8/OMQr/8wmTsSip9/LPEExUeBQ7z+i3TuSCh+/kHxkeISn5sn7kgofv5xis8m9sQdCcXPP27xyjxxxkHxAYDiIwUQP0bxgYPiIwUQr35k3B0Jxc8/oHjrZ2w0UPz8A4m3f7hKA8XPPyg+UlB8pKD4SEHxkYLiI0UXb9zBofiwMcRnO1MUHzooPlJQfKSg+EhB8ZGC4iMFxUcKio8UfAMnUvAt20ixnrNRKyg+fIhrA8VHBlFLFB8XRC1RfFwQtUTxcUHUsoL4rdODfUtJsnl8sLCO4ucUopYVxC8Pk42F9a3Tw2TtAIqfU4ha+ovfPLGiFqNDKw2IX0VmD1HLDDuMuiakqNHtH2Rd/ej29WTzHUsNiJ/dZY5kEHAjpyBztDhk1mlvj+LnFwJu5BTFi6aOLX6uIeBGTnGMfxc33twY3/5ZIhYE3MhxzOppc986fRhn9fMLATdyijLpDfz+FbyPn28IuJGD79wFCAE3clB8gBBwIwfFBwgBN3JQfIAQcCMHxQcIATdyUHyAEHAjB8UHCPEIg+IDhHiEQfEBQjzCoPgAIR5hUHyAEI8wKD5AiEcYFB8gxCMMig8Q4hEGxQcI8QiD4gOEeIRB8QFCPMKg+AAhHmFQfIAQjzAoPkCIRxgUHyDEIwyKDxDiEQbFBwjxCIPiA4R4hEHxAUI8wqD4ACEeYVB8gBCPMCg+QIhHGBQfIMQjDIoPEOIRBsUHCPEIg+IDhHiEQfGRguIjBcVHCoqPFBQfKSg+UlB8pKD4SEHxkYLiI6Vt8UhfaVl81xc2AoDiIwXFRwqKj5S+iSfWTyMjrdA78dYK0gooPlJQfKSg+EhB8ZHSgfi9s6fo/zt3XhKbO3c8rh0k1kp68ah2nIbO/jlPKEsXKaWLFs9NZjonibdMlljPUkcm0YV4pnLvoXPp7snB6x5XHulr76HfGAyO3qCvNN39PnaMcf5Uqh0wWrxM4M6PDAa0E6HHWZTde0uvC0TQhXgmnck/fzS9ceslTfzZg+mbjxzkfcD5N6QXD7LA1GPKDuyIA4Z4mcARvmABeZTzp2Zag3PKlOL5D9COFgeDofvXKd2TO9ob03/M1O495/QWfy59C+sJ7jm3e88P8ON597AnDuji8wRYbLqWpY5MZDrxG+z3SNnPTo9uW9o6PbR/j9YtfufOv2SNngqjOt3iTw4Gg1uYSdqWIfF5AjytnSMiBor3YSrxy/s+RFv8BrO9PHT+ArVb/N6v/xFtx6Ut/t4fkmG9WzwLzK4SFO9FE109xfrNefWcx2qartqviz/1g3T50aPpZ15/aeeND+/e8/7Vi697+M8eOrcqxbMxnh6jYXfvfXh176H38xcN99k7Hv/sGx+ncXbueHj1/NHVz9x6iW6n9HXj9X+Yslf60Z925okv49WMePaz4xsLungVxX257byJ9cnZrD69OBj8+L16i2ez+lvEmM1n9c4WryXAp3o4q69AI+I3jx9OErPFl4uHIdZK1XdksKf3oplZ/ZDZ9x/jSyDWSkWT+M6dHw2IF955d+85qy+BWCtIKzQgfo3P4oYV7uNLINYK0gr417lI6UT83lk+ZZcLys4RPiGni8EpEeAU0fbT2Tu7QZcLpAk6EU/v0NhbLXLBjJ5KL956id3GvZnf6F0ccPFyP/s77sWDqVwgjdCFePEmvFqkYiZOrd+gVgn7E8vOj72Hi5f7WUD5Rh3eoU/A+ynlbv4s+xHWx8tFmglmq3fdw96r+e2zunhz0WQ1hQexVgA6EX/kFHMqF6ns0vk1sPf9R9mNuxzj5X42HrAO4VYUPxFirQB09SCG2YLpJO4nHjrHTL+BH9Ymd3Q/tnh/iLUC0MkY/14xdL9XF8lH8CPM90X+vsAb8v04xvtDrBWArmb1/AmcrKun+i8e5EOAKK/q6sX+vbNHtQVSBrFWADoRL/6qpv1x7caA3aGLps5u5Jn4fD/ex/tDrBWAHrxz90ngKdtPYq9eHWKtAHQvfu833QU39yN+EGsFoHvxNQuOOCHWCgCKDwtirQCg+LAg1goAig8LYq0ANPHolXwCAx/E6AHEWgFo4AMV8pMUFT5Q0UTBESfEWgFo4AMV8inL1h62RCpArBWAJh62FM9VV/lABfzSCt79hw7m8OVdfw2Il5+kqPKBigauWMQJsVYA2mrxKL4biLUC0IB4HOM7Rn/aimQ7J0RqQLz8JAV+oKIriJxPkRTv46OiC/ETo1Q+Cd+CIxkoPlJQfKSg+EhB8ZGC4iMFxUcKio8UFB8pKD5SUHykoPiggb/yAMUHjdI7INARdiA7aIUqgOLnBRQfKT0UP1pkT1nj3+PbpX/i2YN2awvr+Fx9u/RPPH/K8gQ+c9cy/RMvWzw+V9/uKxdv1VkufmbP1QvzfHDH5+rbpX8tfnTbUrKxfwWfq2+X/omXTR3H+Hbpn3jZ4tt+rt73S1pDpX/ik43BYN9S6/fxBDoQCT0UXxal8umBBSfQgUhA8VWTnJznXAwiKL5qkt55Np9yk6D4qkl659l8yk2C4qsm6Z1n8yk3SUzijYdOSDFEY7SXcpNEJX7gOKVJZ1Sd9lJuEhRfNUnvPJtPuUlQfNUkvfNsPuUmMStDvwNF8TVpL+UmMStDb/0ovibtpdwkNcSX/Qhd0OI9f32vRsodUEc8OC0IXXzJiTvyrJByB6D4ComheBTvkWeFlDsAxVdIDMW3Kn7r9FQPYjjfmEXxRXoofnnInrur/YEKs6xgwUkxuEfKKL5N8ewpS7mo9bClWVaw4KQY3CNlFN+m+NHtH2Rdfe0PVOhlNT8QoH2GYDXX4/8hBCP+5A9xkPIPNGSsasNTqx+i0LIsfKCCaOvwByrKzr8J8YtDZr32ByrMixS8YkkxuEfKTbZ4Z8kqFKYGzkZubJA07bLFT/dDBWZZwYKTYnCPlFF8m+I33zXdByrMsoIFJ8XgHinPXrznu8R+9Fw8m9XT5l77AxVmWcGCk2Jwj5SN+KARv5SdJbOieF5rfvRdPL2Bn+aLEcyyggUnxeAeKfvF90vZWTIrSlTiy6L4nJ5RVrDgpBg8Cznx66DK46P4eRUPnh6KR/EovgCKn5X4GvN9FK8fEeeq/11nTsRbKxNB8foR+1xRPIovq7hidlYB7CNwMVE8ioezhOP7geL1I/a59lY8/IiJHyheP2Kfa3/Fu/JH8VZFlBec6MFRPIpvVnzJ+7+ukonCQPeWKL789IyyggUnevD2xMOJuUpGSuOj+PLTM8oKFpzowYMVTzy7j3kVDz9RDRacaAfCEl/NtbFB0sKGs5T2yTQlnj1aXenv8UZdpeBGJOIruTY2iBXfVUr7ZJoSvzYYJpWeqzfqKgU3qosv6SqN+PoUzigMiq8gfvTD7xxWe67eqKsU3KghfmLFk2L+XYg3L7x5Fb/1wC+fHlZ7rj6rq5rP1WfnumqenhalPL6Wv/FcvRHffK4+1eLo+cPxnfkb52w/Fw/HzzeK+evxwfpr4YcK1g6zbr7Sc/VaXcXZ4qc9GSN/MBfwZJp6rn7LavFBiIffa0fxCZvZMQ4HOMaXiEPxHNbiJz1XD0+kXTWC4r027PiuUg6yvTmzu4+H68pVIyjea8OO7yrlINubM7t37lC84zRrnwyKR/Eo3q/irfxRfBvikb7SrviyFIyNX4M2jAN+UYKKb2zUiT+9NRSP4htJAcVX3kDxpVGCio/i/aMEFR/F+0cJKj6K948SVPwwxCNzCYqPFBQfKSg+UlB8pKD4SEHxkYLiIwXFRwqKjxQUHykoPlJQfKSg+EhB8ZGC4iMFxUcKio8UFB8pKD5SUHykoPhIQfGRguIjZYL40SL72PVhtbk81A6Jb8PiX5UjQ+pfmlM4XJfRIvvupeX9hW/eUvlsDAby0IzzFxmILwcbNpw/lKfMgi4aOOdJ4s3vOtPEb8jc18R5s2/DG922lH35beFwbUa3/ch6svkzxa9ck/nwyj/QQf55BvxLIJvNH8hTZsEWa9Pn6Sle/rj08rvl9Z0s7/sQP8S/8pZlyi/SofpivOLh2owO/Sw9u3fTxMTlTRPkv3KdfwGfWMw4/ywD9f2PTeYP5Cmz4F86eWLqc/YUvyy+7255YT3rA/iK+MpbCa2D/Ksw7cO1GB36/WHy5/SM+OV9aGW0KDrW/Cs38+/hm2H+SVY12tcANpU/nCdLO2/xU+XpM8Yf4OmyC4t19aq757mIr7wVsG9DzL/81jpcj9GhT/zo1gc+IVvXiRVZ3Vk+o8V96htXZ5m/ykD/wtfG8ofzZFkY3z1YP0+/Fk/zGgxoDX98yRQvv/I2EWEO6y2xeLgmo0N/8Iuf+zlejGU2kVP9e97iVdXPNP8kG2LyttdY/mCeIovblpKN/Svajlp5eoo/IXv8YT5lzGe1fNIv+qN87C0crgtN5uO/dJj+v3l8yLu9vEDZMDScff6JqppllXqD+UN5iiy0bxSfJk//MZ5luHwgn+eb9w5yHMq//Lap26lDKxv7luTZ04s9S5bno/Vys81fZbD1gOzpm8wfyFNNb7IWP1We/rN6Ni4cqvIAAABWSURBVJbSWX02pJq5qDvaxu+j+enLS/l73jnUCsTyWRvIAs06f5lBNsQ3mT+Qp8pio5FzxnfuIgXFRwqKjxQUHykoPlJQfKSg+EhB8ZGC4iMFxUfK/wNefE/jqlbMYAAAAABJRU5ErkJggg==" alt="plot of chunk unnamed-chunk-1"/> </p>
<pre><code class="r">chartStock("fb","60")
</code></pre>
<pre><code>[1] "Got Data"
</code></pre>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAABg1BMVEUAAAAAADYAADoAAGAAAGYANmAANocAOmYAOpAAYKsAZrYuAFIuc682AAA2ADY2AGA2NmA2Noc2YGA2YIc2YKs2h846AAA6ADo6AGY6OmY6OpA6kJA6kLY6kNtERERSAC5SAFJVVVVVVXFVVYxVcadVjMBgAABgADZgAGBgNgBgNjZgNodgYDZgYGBgYKtgq/BmAABmADpmAGZmOgBmOpBmZmZmtv9xVVVxcXFxp9hzc5Fzr8yHNgCHNjaHNmCHYACHYIeHh2CHq4eHzs6HzvCIiIiMVVWMwNiMwPCQOgCQOjqQOmaQZgCQkGaQtpCQ29uQ2/+RzMyncVWncXGnp3Gn2PCrYACrYDarq2Crzoer8M6r8PCvcy6vzMy2ZgC2Zma225C2///AjFXA8PDMr3PMzJHMzK/MzMzOhzbOh2DO8KvO8M7O8PDYp3HYwIzY8PDbkDrb/9vb///wq2DwwIzwzofw2Kfw8Kvw8MDw8M7w8Njw8PD/tmb/25D//7b//9v///+YFhfJAAAACXBIWXMAAAsSAAALEgHS3X78AAAaRElEQVR4nO2djZ/cxlnH5TgY2+XsGDg3GLzFbXpNCGWTNFwIuSSQXoNtClwN3VKuGOw23FHOxPi8uVzW59OfzrxKM5rR6m30+vy+H6+lHUmPZvXVjEbSnBStAEmivjMA+gHiiQLxRIF4okA8USCeKBBPFIgnCsQTpYb4051IMD/ZEsNLR/Z0lTz3LLrQiQu5GA91pXCpgfDNgzt3vr9aPb5z53u/Tr4xvvpADtmUu/as5kQjUUVYPX7jy0rRvv5cz2RE4YlsyL6xaBUIID5rXiVf2HWWXGivCz7DlXSYLhVtVs9QR8jtz7aw3tJSw2Nt4/mdRJU70UjUEb558GGlaHz9aTi1JPfOnXcj/uK+GDnZ4iPyf4OTLb4nLJjCY+V/uRFFF/fFDnNFL8g/yw05TIMds/nUYmI1xyyKXLp6PkPzzQNm6OvPv/tzZuDuVx/wjf69X7Pxv5IyvvogUeVONBJ1BJZwt1K0rz5440v+EYnpkm98ycdZQvfinRKvxMtCfOlIDf8nEX+syvWxKPWyalA7wEJXJJeODln9wCbqr9UzGhghXmz5x9/9+XNRdtnG/2c5yqf+i1blTDQTdYTVc+mydDQ5/qFM1EtK8WKP7Kqqv5JXp1vJsmArbbqqP45+fyNS5VknKvGH6bflxhW+jyVL940Qz3nOalVhQB6Gn6s6+u6TVFVmYiZRRBCH+IrRHmvvST5WT3hVf3fVh3hVD/MaWSiSycI7H+W1uZopFS8XyxMvFzvdufTbLbWWwVT1K769eXHNqOLfn4j6mx1s/zcz0U1kEb558P3K0UQeROKXakl5rP+wI/FWVa/NGeJVEeUpwpkYYXtCKv4K333m/qo+Wezwwmcbm6tk6b5R4p+I7W3Uv8+ThhdreilV1sRVJlFG+Przu9WiyZn4Yf2OLOp6yW8e9HKMT9vqikT8oWiZqZn5XHpOVokrxb7GXbIYM659Z9fRB1L8E3kqpltcq4wqMWdm4spOVBGey32gfDQ5lMf6ZEk1+92OxZtVfUIiXtfoSRFe6HO3RZrgns7pxXilwCIlS/eNatXfkQfV5AQsdfvEPZ0zxOtEHeEJE1Ut2mN55ibS9JJy2FXjzhbvNu50a4x53eQHbe5OndYlzTyh0n8BRy/GRvhEvXTfCPHP7yhV6SUXjyrPxCRRRfi7B+l4yWh8qO0mS6oLOF2I747DAVTwKUmrfpBMSXxStQyDtFQOkC6u3HXF4cCu3EM8mAAQTxSIJwrEEwXiiVJDfASGSsviYzBMIJ4oEE8UiCcKxBMF4okC8USBeKJAPFEgnih9iD97/VFu4vm96JW9OH75TnT5mUhPxrxLTZFZJ2sZmviH2/GLy8/O723HT6/y78nYi+hViA9In+LPbkbRNlfKnLKCzcW+fE9M4gM5lx57+Mo/0ijxM04H6+lR/Mt39/goV8vKtEw8u/VTXtWf3XomJsfmGBHxURRNXDyHWZdatfib29w1q+2V7nQM4oPSq/iHvJLnNf4re0mJF55R4lunz6r+nW09ysq1OqS/Lzy7x3gS4rlwAuL54Ozbe7wyT8TzVj0r5Of3bietej0G8UHpRfxN3vXnavw0in73R9uqwj+/J07XdOtenL1z13TO42V7fsriAcexK8o7xE8e4dk8aYd4GjgHdIinAcQTBeIpMvM04SGeADP5H8RPg/LCIH5ShBQ/qxqyIhAfkODiW7w5D/EBmeV+8c6ZtexJaq/eh/iAQDzEVxGvKnSIHy3W5fcK4qVeiB8t1sW4RuJ9F3jCAvEBqS7e1GuJj2Oz+LcAxAcjU0jLiLf2FXN5iB8RmStvlcWbXyB+REA8xOuva+eF+InQXHwcQ/wIgXiI11/XzgvxE2HU4g/FY07n/HU/7jsbIX4tlviCG6rWrjEE8ZzjS0enO/PV4RWIL2Zmj6bi1ytbI15exonjzsWf/GB3dfLm/mp5fT+A+IOJMzNGuasD4epAD8zp1mJCrP6i5jVCqumZKSFxH2LNS/ryxpHYAZqLb2d3HQ6zdOAt8TnlNb/Ep7E6LvHCN6vtIb4Urnh1c90S78hbJ14kdX93jjtHiS+NI15LrSLe1xC0orSAI3Oxyf4Ld4xvJ9fDQfpJGmSlxduyPXK7Fn/6MS/npzubaNWXwKrXq4jPpFUSH2ZPyMpUFTzO40uh1NYSn43jS+pQ/FqLEJ+hnPhZwdUciB8dXvFyiik+qnGo9tQb5pTGQHwTisSnJ2UQPynWiDc70LUhvql+iG9Cvvi0kg8sXu1Rjf+oDuLrYrTlOhUfh7mWC/F1gXiIzxdfv3EnY9ji01VCfH+UEe89nasgDOIHSJF4Y05TfKVmmZ4Z4geEKz5PqS0+rlbm04XM9jzE94cjPldo/RJvibdWCvG9YYq3a2RnztrHeIgfIIb4gqtpTcVb/S8hvm884vPmLOx1UbAWs8c1xPeNJb7EvP4vpdYC8UMC4iG+1Lz+L6XWkp4tOucGte1DfF26Fp9ZcmYNqgPx9bA71hbObQ4qu4L4AaGunMb9im9wWx7i6zEQ8esvGa4D4usB8bTFl6xqIX4yVGnTNxbvO3eD+A6Z2aNdifc24SG+Q4zt30B8sxVbSQUdAdYB8aWxatxBia9z/RbiS2M/gDKuLL55X3hnaVt8peAQXwLrz2I8fwxfMkq12XMi2AkQ3yrq3M16EFk8IPHrOwD5gfgSDFy8Cl3tUALxJTCv1gxXfLU/24D4EjituVrVK8SPDkt87Q50bbTqjd0P4sOTqded0+kqcZrmw5sE8e0A8RAfx8MSn06A+PBkmmUQD/Hdil8bGOLDA/EQH8cNxLcGxLcDxEN8HEM8xMeDFF8uSxBfgsGL50B8eCAe4n2ThgHEhwfiId43aRhAfHggHuKHC8SHB+IhfrhAfHggHuKHC8SHB+Ihfrg0FH+6E13YXa0OWZCL+xAvoSB+MRcvEmcDj0WC4mf6v4mL5+8PX+l3SocQfzBaZun/YnP2mpkSSPEHOuNFRAolannjU17Vn2yxJKfQ0yrxwna1B1j2SqbEF+U3I3O5MWfyj5bXdj2lnpJ468VhYxJf9q85s+JvHOlXyLvHeVLixWeE4muW+JO3IV4wcvHFf5nradWzUs8b9qef7EP8aMUX9rjNymTNOn7+zs7jLzgN+8mLz/SrIyV+rUUi4pOtN95WPcRXwhE/2gs4EF8B1SDyPMcO4qctXn7sNwRDPGnxjR9b1AEQX5d88SMo73H6OC6Ir8jIxdttU4gvj1f8mID4ekD81MXnbBGIh/iar/voGfOKM8R7KCN+fOUd4gspEF/nsf+DAOILWC9eT4d4iB8JEJ/H+qsxmfod4omKHzUQbwHxKXTFO3sBxE9bfOZ0DeLJiLcv0EA8xMcQD/EjB+ItDPGqS6XVayWGeALixVe7n1oM8RA/ciBeIaRar4GPIZ6MeDkC8QKIh3iIh3ia4kfYzS4PiFfkiTdO5/vNYGAgXpD+AWxGfDy9Sl4C8YLUdSpeF3KIpyXeulY/efGeHwfx8ZTFO3eiEiA+hnha4vW0GOIhfjJAvADi3TkIirev1kztmp0E4gWW+MxmmJZwDcQLiIv3VmgQ30uO2sYW77uMR178NIF4AcRTFW/enYN4AQnx1v14QuKt7qUZIH6SrLtkJYH4SQLxCojPzgHxkwTiFZZ4AkC8gqh4tOqTe3CkxOM8XkHEehzbD/qBeDriNRAvgPiUrMzTHfFu0ZOt6NIRxI+e8uIX89XxpaPTnfnq8MrkxNOjtPiTN/f1YHl9P4D4A9AnM/EfJzslUihRyxuf8qp+eSN9jXwz8Z3v48CkdJ+75Uby/niInwDlxcuijhI/EUqLP3lbGA93jO/0Z4Is5btXL0RVf7qziVb9FCgvnp3AX9yf6nk8PYj/QQVdIJ4oExZP7zJsFSCeKPlbB+InDcQTBeKJMhbxNSxC/DomK55Q/8laTFd84aM7aQPxRBmH+Br1NsSvZ8DijaytsehLnq1fBMRTFL/ur4NAwvDFFxRfV7z8D+LXA/FEGZd4zy0liK/HwMVnDtgQH4yhi5cjEB+cqYif2QkQX8TIxVuveTcmQnwRgxXveyOclGxexrNeCGn8IoivT9/ixccWL5NNpRnxnkoCVGXg4tPmPsSHpW/xuS//zH33L8QHYRiNO/M83ifebtxBfAAGIT42r9x5xGca+qZ49MCpycjFrzthAeuAeKKMTzy91020Qm/iMxfjbKV+8dkmIMQ3oD/xcc6tF33lzhIvp0J8OIYnXhdvV3z2gADxDRiieDlaUjyoB8QTBeKJMi7x9gSIb8BExGMXqMpoxVsdNXDFvjLDEm9OXy8+zpZ3iK/G0MW7ZRnigzBw8b7DgXsL3rprA0oxDfG6XoD40oxQvK8lZ922BSUYn/h1SRBfmimJx1ldBQYvPmdRXxJ6XlZgjOJzokF8FYYrvlK9DfFVGaz4ai01iK8KxBOlD/Elu01BfJtMRLxcAOLLA/FEgXiiQDxRBiy+MrZ47AJr6Vb8LP0f4vslK/OQbbyL+3owXvG4YVOA56XCxmDE4sOHnxYZmacf7xqDAOIPLGb8IzgQZg6CIsTr8fDhp0WkUKJOttj4XA8CiLd3M6Ejyus/2xTzFj664RWQkbm8tsuLuxoEFm89uwzi+8UnM+8431i8NA7xQ6BT8Z2UeOu5GhCfR0bm8aWj1ekn+2oQWHw3x3j7STo4q8vBcx5/YTcZtCI+UyTD4ROPq7g59HHlLhkNLT7v+ZjApT/xbVTC+lAC8YX0Jr61ZhfElwLiiQLxROnxkaYQ3yeTFW8+HxO49P4Q4+BYriE+D4gnCsQTBeKJAvFEmaB481owxOcxPfHt3xGYBBMXj44YeUA8USCeKBBPlMmLB34gnigQTxSIJwrEEwXiiQLxRIF4okA8USCeKBBPFIgnCsQTBeKJAvFEgXiiQDxRIJ4oUxQPSgDxRIF4okA8USCeKBBPFIgnCsQTBeKJAvFEaVs8GCoti+97xwY5QDxRIJ4oEE8UEuLx7CsXGuIjPO0uC8QTBeKJAvFEgXii9CD+/N42+//s1jP59ez1R+uz+PS28YXNnfzzzp3ENYB4l4bil9f3+eB0Zy7ePX/pqIR4aTLRWSTeMbnGehLdBuJdmok/ji4K8YfRXMg/vFJGPFd5fn8vfvlO9Ooj7ZF9zu//QxTdfsE+sZrGebgdGxOsEq8C3PppFLFKhE3ni7x8z9kvIN6lkfjFhc9EiV++9tZ8dfLmvq4ACsRz6Vz+w9vxi8vPDPH3rsZnN6+KOoBNe3qVz8w8xsYES7wKcFMM+IxikYfb2RVCvEuIqv704x+z0r68cbQ6+YF+BbW++XcQxwfO5+ntg1/djr/400fxF9/ZO/vWz85e/9kB+/zX/b0D/vni3T2WLqYfHJzd+veD8/sfic/Ldz/6zeuPfvOtR3KZL957xOdl32P2efmdj2T8X/1edn1SvJsPyp8Q4g83eTXP3zmfiteLePe2s1v/xws9K7Os8JtV/Z48BLy7xyrxKHplj83LynJsTMgWehlAxDq7KZdwD/Io8S4BxLOifuqU+LXiz//+P1lNz+vmRGVW/Hv6KK0bBB7xaQDdQuR7CcSXIoD4Q1Gnb5Y/xjM3f8nlJMd4Zi9++qopXk2L1THeLz4NwMXz2cUiOMaXIdzp3OnOZslWPSvG3+Z1ctKqj59G0R+/Z4ln00S9rVr1fvFpALEboFVfgT7O46vhuyKzDpzHl2IEl2w9JteAK3flGIH45kC8C8QTBeIbBR5vn65exJ/fE012NWCc3RQNcjaItuUM22Y6a73z8zQ1qE574uPRPnGnF/HsDI2fcasBN7odP738jJ/GyRO9p9K/Sue7wdOrsRrUAOJd+hCvLsvZV+eY9Rf6FsvZH/1o20jnM6oLdYU3771AvEsf4vl91Ff29CBOBPNRPji//0/3TPH2oMaPhHiXXsTf3OZO1SBWVbrYB87v3eYn7uoYr9L58YBXCJchPhz9lPhsCWaNuD+5v8dN3xaTjcYdS0eJb4FejvHvy0P3+6ZIcQS/yX0/FTd9bqfpOMa3QIhr9cuNKKp0rf6hrOMfJlU9vzt3VXnn6KpepvP6Px3UAOJdAvS54zfhl9d2y/e50x3q0ptrLyJ+hi6LOlfOxafpOI9vgQB97o657cW8yv14i//Iqb3z0qsD8S5hbsvyUl+hz531Of/rauk1Pq31uRPi++8/11efu5XohFGhz13XoMS7BBF/srW5qtLnrmsg3iVMq37O7dc9xrcPxLuE6GUrvFfqc9cxEO8SrJftvK0+dwGAeBd0xGgUOIZ4iB8eszU9hCC+UeB42OKT/1wgvlHgGOIhfnhAPMQ7QHyjwDHEQ/zwgHiId4D4RoFjiIf44dGieHE7Tl2kx7X6odGeeNHnTnW2q9Dnrmsg3iVAnzt1Ix734wdHy1W96npTt89dBx+qfe6k+Nb63KnOduhzNzj6KPEQ3yvyfmzL4nGMHx7yF7csXnW2Q5+7AdGJeJzHD4/WxRcu0uGPzQfiXYYkvoVnSKlGDsQ7DEp8eD9qA0C8A8Q3Ch9DPMQPCYiHeIhf9+cFdcPHED8C8SIhbPjgEQMB8XTEWxUaxBMSHxmbrxvxyw3xwsnGl2whvgndi+f3Yg8vHTXvegXxTehevLgR/2aA27IQ34TeSnzzrldKfMjuRyLkgb0ZJtr1Soq3f3ecn78Qx3h5cG/e9Qolvgk9VPXXdlfHF/ebd72C+CZ0L14V9VrHeOtiGsQ3obcSX6vrlbXlRi6+51dS9XAefxxFF3brncdPSnzw8NXy0r34dYsU5TbuXHzIgllbfBs3jKiL9zQbbPEBd6/64pP/ggHxZhSIh/gWxad/twLxtMQn8SEe4gsXJCreUz1CfKO8SPHmXxIMU7z4QHwwtPiSJ7AQ32hdcRnxnpP2bsX7fjHEN1pXXEp85KwS4mOID5WX7sWf7tS4Vl8kvvY1TYjvTPxizm/NVuxzVyi+rp8WxHt2QuukhKh4fiN+Vfn1Y2HE+5S0ID52LFnZJyp+eeNTXtVX7HNnbDlvnzv5pVyfOqfv2cye7m4GbyzOmrza/QON7BvxvcsrJda6lPhy6y/4pKfu6W+V42It/r6MIcRvzLn1in3uApV4d67aJT63xHZU4lXI6m2b9Ed2XeLrPO4M4nNC1jgS9ST+5O06fe7oibf+ti12Z/aIL1f8+xLPW/WsuFfsc2duuZnnUTUTFG9MLyu+wkboQTw7ga/+t3OWeE8Ga4jP3X16EJ/909VJil+3SH5u4/Dijd/sSepWvLEWiM/bchBvhIT4cYpXdXx48fkdcyG+svhZtqUdQLwM34J4zyLZHwnxviSf+CizZSEe4p285mYf4jsUb536W8fV/CR3LeMQX/TWAVrizUXs7b8uqaL4WbrN+xRvZt+3LSC+vHjzjpaVI2eTRi2Kt//cK5s9r0XftoD4CuKTcb94a8doT7z1izPZiyE+Z/FWxZvTLWVm7d+beN2EydQLnYvn3a6Kr9X7KrbhibfE5ivrWby5lh7FH0bzEq8Y9f1MV7zn0lfb4nM70LUg3mqij1388rW35iX63JUUb25Mn3J3yzUWv85iE/GelsKaOq6UeOsWZM/iTz/+8c68RJ87lQG3z53MoNV1Lb/PnZhwYP4m3SfO+M0HphJfnztTrN3/L3d6mu94lt/nTuXbyktkTnfEm/3w/Hk1koyMpXk1xHfZ5251uMmr+eI+d4FKfF7xHWKJt8pi7i9WB7dyJb5oLd2VeNH7Jlvi88V7msXUxatFxib+UNTpm2WP8YWbwdqYef3mexBvNy4gnsNLfHGfuzrijbLWu3jP9of4UufxED818fmLBBGvmwXmdSqIpyC+4DdBPMRDPMRDPMRDfOfiwVBpV7w3wk88X37i/G9N98yVP71K4Gms2Fx9fuDaQPxQVwzxlQNPY8UQXznwNFYM8ZUDT2PFEF858DRWDPGVA09jxYMXD0YJxBMF4okC8USBeKJAPFEgnigQTxSIJwrEEwXiiQLxRIF4okA8USCeKBBPFIgnCsQTBeKJAvFEgXiiQDxRIJ4oEE+UEuKdB91x1OOwlhtRNJdzybHkMVlqKfHsrDJ41yKDyofuzeuvhS8VRZv668KYWQRg0y/u1/oVyw3+MLjFRTfvYsn0oWGhAqs49XOsqSlePdaaP/VyeY0/+VKNJY+7PlYZO4waiE/Di4er1l5LJrYhXgTgUQ/rxV9e+4Oj1cmfuXkXS6YP/w4VWMVpkGNNSfFyv1re+FSVPPXIy2OxW/IUNaYfhbm48JnIs3gGdil8a0nDq+eq1lyLFq9emLv4oa6mZADx4NY39+vEX17/c7bhf5jm/bW3xIaXS6YPBg0VWMVpkGNNOfFiv7q+v9zYVEXPeMht+qxb64Xz4gfLZ2CXwreWNLzxeM0aa9HiF/I5nYtLR0kdwEfS8lM5/vL6v85X//2Zkff5Kg1sPwo4UGDxevf6OdaUr+rZTiV+jNyDk8da86eeSvhYmi7mk8/ALoVvLUl440HKddYijvHywMSLBq9DdHWfORRXjb+8/ss/PP3kl1be08DWw79DBRZbpH6ONWXFLyJWS6ZKkj3sZEt7F2P2nqeegV0K31qS8EYFUGcteqfaYv4v7K5+sWuL582I44vGCsvHX17/t7/57V/YeTcCGyU+VGAZp36ONSWr+q25qG8SJfqYYlRtYiw9qvH/1TOwi1eRs5Yk/ELHqLeWtDaR0eZpozdTMKvGZ9N/8bebdt7TwMbDv0MFlnEa5FhTIJ5HP5aHRLaXpUrUY62z3o3HXVc5nctbiw5/+vFuo7UYx3i+yRZX0kOJXeIrx+cN3Au7em+VeU8DG3ECBVZxGuRYU1Tij0XlyPeh33lrbpRFeZBJz7D1WL3z+Jy1JEH1cbLmWoxWPV8Na9Vf2DUnqdXXiC/NqFKm8m4ETuKECqzj1M+xBlfuiALxRIF4okA8USCeKBBPFIgnCsQTBeKJAvFE+X9A0Z+7+6/clwAAAABJRU5ErkJggg==" alt="plot of chunk unnamed-chunk-1"/> <img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAACUlBMVEUAAAAAADYAADoAAGAAAGYANmAANocAOmYAOpAAYKsAZrYuAFIuc682AAA2ADY2AGA2NmA2Noc2YGA2YIc2YKs2h846AAA6ADo6AGY6OmY6OpA6kJA6kLY6kNtEMRtEOiZERDFERDpERERSAC5SAFJVVVVVVXFVVYxVcadVjMBgAABgADZgAGBgNgBgNjZgNodgYDZgYGBgYKtgq/BmAABmADpmAGZmOgBmOpBmZmZmtv9nJhBnRERxVVVxcXFxp9hzc5Fzr8yHNgCHNjaHNmCHYACHYIeHh2CHq4eHzs6HzvCIGwCIRESIiIiMVVWMwNiMwPCQAACQOgCQOjqQOmaQZgCQkGaQtpCQ29uQ2/+RzMyncVWncXGnp3Gn2PCoOkSrYACrYDarq2Crzoer8M6r8PCvcy6vzMy2AAC2ZgC2Zma225C2//++vr7AjFXA8PDFAADFABDFMUTMr3PMzJHMzK/MzMzOhzbOh2DO8KvO8M7O8PDYp3HYwIzY8PDbAADbkDrb/9vb///iABviECbiJjrwq2DwwIzwzofw2Kfw8Kvw8MDw8M7w8Njw8PDyhzby8PD1YAD18PD3NgD3Njb3YAD3q4f3zs73zvD6AAD6ADb6AGD6NgD6Nof6q/D8AAD8ADb8AGD8NmD8Nof8h6v8h87/AAD/ABD/ABv/ADb/ADr/AGD/AGb/ECb/Nof/OgD/Ojr/Omb/OpD/YKv/ZgD/Zjr/Zmb/ZpD/Zrb/kDr/kGb/kJD/kLb/kNv/tmb/tpD/tv//25D/2////7b//9v///+3Ge4nAAAACXBIWXMAAAsSAAALEgHS3X78AAAgAElEQVR4nO2djZ8dV1nHJw3GJpiGqBtqNaIXw0toRbxtwUhFUqplLVhSUUMVFzFItCkIdVfcWmKBze2ynQJFLSBBRK68BAohaIqyZrs7/5fnfc7bzJwzc+btnuf32bsz98ycM8+Z7zznZebcM0kKilJJ3waA+hGAj1QAPlIB+EgF4CMVgI9UAD5SAfhIBeAjVQ3wW6cTounmSbI8sK5uZ8FTS9QVHrhCo+GkDlbGGoiefvjEidem6aMnTrz6Q+Ib0lP30CXa8qC6q7xRCmQppI++5gmv1D79Tr6TlAoOREv0DaXmoQDgdfIseN+yEXOFc13BOxzMl3msZMnfoI5Ezz86w/xMUwyPchqXTghU5kYpkKfw9MNv8UoNHz9PjsXE3DHzbsDvP0dWNk/iFfpf0uZJfCWsIIQbjP/scJLsP0cumIM8Iv7MDtNlntgG2o9FI4fZQKnQ2P52htbTDyNCn37nq96LCDz41D34pL/6Q2j9tyiMp+4RqMyNUiBPAQU86JXaU/e85gn8IYF5zNc8gddRQPfgDY9n4KkTH1hny78X4DeYX28Qr6dFA7sAVnhBcmB9DZUPaCP/6m9oYBHw5Mw/+qr3XiK+i07+n9BVvPVPOSpjoxzIU0gvUZbOqdH1t9BAHpOCJ1dkV0X9waIyXQmmjs2w8aJ+I/npwwnzZx7IwK/l32aHD+JrTMTuWwQ81iVUqhICtBq+xMroBx/PUWkbtUCSAqniPVN7lHMXdqSP46L+wbQP8KwcxiUyQUSDCXe8iktztlMOnkYrAk+jbZ0+8LGT7CiDKepTfL6xu2qo8PfHSfmNKtt/0DaagSiFpx9+rXdqxAYS+ASLSev6t3QEXinqOTkJPHNRHEKYkRV0JeTgD+LLZ2ov6kW0tX33H15KRey+xcA/Ts63VP5eEg0v1PRiqJSNqRZIU/j0Ox/0S43uhKv1E9TVecynH+6ljs/b6kwC/BppmbGd8V58T1SIM8S2xp2Ihohz3vox+hAF/zjtivEWV6qhIntqG1M1kKVwiV4D7qnRJa3rRUy2+4Mdg5eLeiEBnpfowoVXeN9tJQ8wu3M8Gi4UUEoidt9irfoTtFIVHbCc7eNmd04CzwN5Co8jUH6pPUp7biSMx6TLrhp3KnizccdbY4jrEq60MTvWrRPNPILSfgOHR0MreCOP3bcI+EsnGKr8losFlWWjCGQp/P7D+bpjanjJ6YqY7AZOF+C709oACvhcolU/SC0SeFG0DEO5Vw5QXdy560prA7tzD+BBCyAAH6kAfKQC8JEKwEeqGuAT0FDVMvgM1JtyDJaNAH5hJWGwbAXwi6o5gI9SMncAH5EAfJxSuAP4eATg45SGwbIHgA+q+XxO/vdtB4DvVHNRwM5rsZ9j2Sj5Ssdg2aUP8Du3PlIYuHcmuelslu3emdz8JAkXa9ZYw1Ll2TaUXx/5RTNJm5YYcx2DZZ+hgT9/Ktu++cm9M6eyi4fwd7G2nbxk6OAdTremecogzyVWk7RuiZGnOmzwO8eS5BRGipgix8Zgd+8mm/CC7sXXzt/0R0P3eON8V7GT9sxXJ1hFtGoaMjDwu3edxasYLfJpGrhz27txUb9z25NkcyavDRy8ebrLwZv7E02SJJkU4nKxw5KwZbeei3pEnWLl4I+dwqxRac9w52sDB2/jWELehodIAl9ZZJiJGtUNlWXfXsGfx4U8LvFvOis8nnAeocf7gS/CroL3a+UVXktDA7975ym+ivyaVelvIpzNOn7o4O0nvYhbwdnCwBXwPk5fjH1o4PFi5+VncWEuwONWPXLyvTPHRauerw0bvPsZL97ZBh6n4QS/FINl/17AH8NDfw5lF5PkJ994ihX4e2dId4237knvHbMeRz++8ozbOuyaaHveBE86d+49hFIzcsGduyAqOeVzRpou5fs0miYoHTt4pkL8JbU7t8IQgA+h4hNfzISU66LTnjqAT/XWnn4tFcpiMoAPoOozb5FRobuAx6J39J2Ac1lsBvDNVYt7ffA1ZDEawDcXgLdEsZ2oHVJY3RBfr7C/MmlxJO09r4S+8GOyLwrbnc+v5pFvZDv02/b8Kj1W6RH3vvd/5QbhA1N75ukzxLjLKL9bz14m+Z59hXzPF9/+HNr4+ee2np1/87k03fzw/Dtvpk34j9NNKPzPUFqT2SfuXGDw+JTufOvF/GsFdTOOcv5l8IjuLtoL7YnDX7iOw1gAviaQtq9nDuB3rlbblF0jR6Y53fjuZ9D/Zwj+dPOLz6Wzf3uOL75wOX0GbZ597TOfvYx33Hr2I9g0DP6D75rgTTj8OyitX5x/Y9HB733vReyTVySP37l6jbvq9/Ot33/+ihyHe2++KwK8TXZlLLavk+XuFc6WBWS7/JsAv3vlhTm6IthCPuL2dQ6eBOKrCF8721flna7dQDvRjGLG6WT27/9KwG/8AP377GW2QMDJ9o0fbH7pc2TnLz2Aj47Bf/zYBAWScFTUX/vPf158j0cF77Uf4zOZg5+T7yQYnWS0QG6xQ8tTHod4r7rrnDBmzs1pfetFfIBdUUSQNeKhCnhUGWyLhXxEwpReSuRIqLR4AYWjhbKT6ME/gxn/8uf/hRX1KbsUyIKDx5fAP+Gifva1N2ODco8n4WpRz+CHuQaGAp5UiVcJJUzoilTNEzckvr1LXJEXyDwOoyvv+vyNnC+rx/eep9eF2IADMlrWq+BvkEOxRX5E9I0dmBt5Nfvhj65rZiHwrGFHKf/m17cE+K1nv84XpKj/5nOoip995TIu8De+K8AnH5zjSgCHf9IEr/TzG2go4Emx/fyN/Awr4DE8QgPpW/z88zjobOOilu/KTv/OfE4RbxPwu6g8yGSPJwE28LQc4Iv8iDtXM+nA2Joru1d20CeTzbp2gzfoSQ0/++RnBPjNL3yKLjB+1Lj7j89jx2e+L3n8x9812fj2516Bw//mRRN8oCb+kMCzWrjE4yXiUhxcwesenyMnHk9rh7yO59WFAE+vB1ZxMC9WjyiuDu7x2bX/Qf7+o+uZbFYO/rOYL23cE0dHLjyhC7YDqsVRjb/5ZQJequPnqI7/4nO/9OV4wO/SWlyp4xmqvI7fVhyPXSW4lSXvOr+BoTNfvyIw49KdVvycu6jjs2vX6fbd+XXaXrsuWgz0iNduiEY/DUSHobW8bNY1zh2V4ngx4d05DHwiuON6ALUBUMsdf5DXbz37Kd6qxx7/jQcmv/cRe1G/YOB5n1xv1TOaKPi/aauetuSUOC+QdjzfFfWlcav+mtyqf4HtSvvxaC8RILXxUcCP8ZX0Q9Kqp4v8iLz7MEdXBDWStunJ1Zebde3y7Ku0mf5FAf4jk1d84gHWsef9+405qsjJxbH5BdJtR/14ZNorvvpAksxRqw7h/fD82w8sPHgHOXSiCyJe1UP+S6yJfrwQawPkjUM/Xbus5la5GVcKDN+lE7fpWBT5zt2k+BltHVlsHyB45MXzmiQyTldK7X/5Wn7nTmxsBB7Z2Ri8jFcBn2Uh799arB8g+NFIu0evOakLeOVakeMD+AFLfzajPWTxBi9/AfADFoAvi9IliW5lPIwF8HKULlF0qxbApymAH76MvAJ4OUqXKLqVkVcAL0fpEkWnMsdbjRr8GpnmdIpf92O+sxHA57KMs1PAVzxQFeDJlwGAx9o4sL51epquHdQ3APhcHLyERQVfjqwEPL2Nk2Wdg9983XK6efu5dHZEf7tPHfCrC66JtIpZrRJWq3whb1eiEbD8C9tXSpJt17aElDmJNfb02dF1cgE0B9+RA3Yt/YdQpKrOLB5f4K/FHp+n1bHHE96otAfwZRIZNMHTyl0Fb/2dXBF4EtT90znMHDy+QnkGDfDak3Qn8LaGYOfP41eW0L9wdXy3QLpSnkFpTKQXeBW2BW7X4LfuxX6+dXoJWvXFymt4uVz3Aa+FeYGvcSVY8qDDZAU89ONLlPfhGeta4GUNAHyZADyVL/hJxd0cX/AX0vQC+zjKkgkA7y15NsLMAp5ukcEnNapqS7mBhWjLKZELoDoxSy4AvLc8wOedskbgL0xkFzdSqiZvyQWA95WcvRLw8gC6huBVJ7c2GyqKfUs2ALyv5OwVg5efu4Us6vkV5fejOks2ALynRNakezZtgb9gA58V3cstcXpLPgC8n6QWfdo2+AtWj88Kb+IXk7dkBMB7SZtWvhJ8/cYdoaiBNx4F2WOZsuQEwPtIHn7hAt7anXO6BFgD3hd8AXlLVgC8j3zAS3vK4L2aZXxnd/Cplb0lKwDeQ8p4KxN8EVIVfFZweeSS+2ZSuSG350uf3pjkLXkB8B5SsmaALyzE63u8Aj7LCsZnVsuSFwDvISVrMni1RNblV8er/loTvOb0lrwAeHepI2sl8BUP4bzAa8ikvkGWeXi8mowlMwDeWfqvolMDfIGqR12UxE3ltiMU9X2oDHyFLPfarTKbZfXBy2lZcgPgXWX8KjoNDt7SEWvg8VJqluwAeFe1Dt5670UCL1cYYt2tvLdkB8C7Ss9aaPD2e26Ke0+0DcWJabJkB8C7Ss2YOrC2Sgol37v29cGLa8mSHQDvKC1j7M5pFgh86TiKYvBVd4N4spb8AHg3FUx4k4UBXz5+pgR8+S1DIUuGALyb2gVfEbsBeHrf35IhAO+koglvHG+8l4OvGiwJHt+fCsC7um8p+MpBsta+G4DvQnPpZLPVLBh43/jSuhv4CxcsWQLwLpJPttqDrwFekduvYcrBV1c4liwBeBfRUy2XuIHAO/4KqgJ85f1bS5YAvIPYqZbbWDXAN3/BjBFbBV+cuCVPAL5ac+VnMZYfw7vJte9XkoIRAOBb1Nw6k3zWHLz7r115CkaAUscD+LBqC7w3d+lg7KX0rj/GtuQKwFdprt6tCejx3qKx8XvjiWUa+JKfbViyBeCrNFdbcspLRXoAP5dNA/AtKtXA1x5AF6JVP58rtsmXH4APK3LCM6VcN7rTrhI7e8xiosSfG+ZNMp4wgA8qesKzwOBramLaN6FFUgrgw2ouTnjP4EkZbwFPjQTwgcUfzmSW38Ga65WiO9co5lnVXgAeNfJSAB9UbYCvw73KTgAfVmJS+iykx3ur2tDJHMCHVGjw9VrzDoZOMgAfUCIXwcDXUWU5n9G2PYAPJpGLMODrdd5duAP4oMpz0aPHO3HH4OcCvMUkSxQAXyRz5lLxNbWvl6jmrTpH7sRcAB9GyjxHWV8e72EwgA+jEvCynMDXdPcUwHcvdYKrrBH4TrgD+DAKCb623Gv4DMCHkZqLJuDru7sfdwAfRGouGoyd6Yw7gA8hLRfNB03VEYDvXPbfRNdRdw4P4Jur8Kex3mrA3atFj0XBzwF8fYUD30DeVlPwbDhOdWIA3pDBfVTgMwBfV8HANynofWv4HLzNUsvuxrtlTyf7ltN0DSWyP86XClty0T14f+5Nwa9MyYvE0cJUjODJWey8qK/BvSF4/P7wlL9TWlcd8Kuj1ST/T05nr8Y4iIJf5YZXKWFioGZH78NF/eZJFGQ4fQwer71ezG8CS0XdFvSyx8+5+UKW3TWYs8NTBH99dsuyxesjAK+9GZ7dFKkDvssuPBEDb/01p2V3HfzRdf4KebOeX3zw+gvCG4Bvolq25x4vfk5XlqBex78ewBP1Cb6e7Qp47Ze5lt0trXrk9bhhv/W26LpzxjC72uC77cITSeAzfSIsy+46TNSsw/131I/fZzTsFx68PK4uawK+B+4K+Lk/+DItOnhzAsMmrfq6AvCdq3Dmyi7B1+UO4GuLNYgs89h5gm9S0Nds2WUq+AzAu2tufUNw1+Dr2w/ga6oMfONpi5xV334AX098GkMbeL/fRvqfpVy1a3hWUwF4bw0CfAPumZgpBcB7KbWD71YAvnOlQwDfjDuAr5Jl8ihsaxDw/RX0AL5SJnj6BDuTwddsyDcAHzJfAN4mA7wyjaHrm51CK2i+ALxNOnh1Nrsa81KHUNNyPgPwldLAG5Oa0TPWbUEfgDuAr5IKXtjaJ/gQ3AF8oSbKgiq3tWSmm7YVhDuAL5QFfPHcVv7qZsoTt5wCeFkmeMcpjtwE4KUowbPURAp4/F/5UXE/d2mxWsgpgJdFXyQkPcQaBvgwNbyaUwAvi4KXRiilAcH326LXcwrgZWngiYWhwPfbhTdyCuBlqeCphb0X9W1wp5nMW66WPWIFz4ZUKi9uywC8XQsFPpN+MBEA/IC6ciKTAJ6rPfB9Po215pRNhFR8jEjAE6i0I9eOx9dWS/kF8FS8454NDXwrNbxowfKjWPYA8AHAdz35hUN+ATyVDj4NCX543EWflR3GsgeAz8F393sZrra4c/C8krfsETl4qTvvn7nmAvDtijXnyaoCPu21B98ed1HUM/KWPeIAL9pzOXju5D324FvqyuU5BvAm+NQ2C0LHaj3HmTxyXBOAT3vqyHUCnj+CNPcA8GlPLyJosYYH8ExW8EyLds9OzjHpyaQpgMer+rxAfYFvlbsxzMjcIzrw+tx/DcD3+ctYpxwDeAW8erem/j27YXbk5BwDeBm89huZXu7YdZTjfCixuQeA988U0SBv2Gk5ZuD5gHJFAN4/U1jD5q6Az+/myIoefOfqgjuApxoS+E64A3gq+elcGgL8wAt6AC+Un4Q0APjBc5d/PDAB8GQl7beo7yq/xk1qfQ8A760h37gR+QXwVAHBj4E7gOfCT6n6L+o7quAzAC+kgG+gwT6A1/ML4KkmbFryhuDHwh1a9Vz4l6OT3kZRE3XJHfrxQuaLdv011AF2FskT/UQNng029c+ApBFxFwLwxJpIynlJ7uC3TpN3i26eTA6s69aPGDy1JoJ+nCZ38CvTdOPA+tbpabp2UDd/9OCbaMAD7ErkDH7z9nN8MTsS4m3Sq6A+NSH/sPQtCRMDNTt6Hy7qZ0fz18g3A9/9RW6Vv+UB1Z/DW+frptJgzg6L98cD+EDqkbsHeOrq4PEB1We+ncFvvp4QD1fHd5vPQtWmhnShUQe+V+7u4HGrHrn71uklaNWHUb/5dgePOvD7zy1qP74H9VnBZz7gyxQj+GbFPIDvW/6WU42c+yKDt+TJIn/LwwjAt521CvlbnjZ393Qw4C0C8IUKwL3vRj2A97c8jFrOfKUAvLeC+DuAb2xnwyjehofh3ncVv7jgrb/5t8jf8iAC8I3tLIpgG2NgkZ/VYdw9BfAB7CyK0Ab4YNwBvKOVjuW2HKUVjw8mAO9kWglFW/CkPIoiZ4MbPoPV5GBZu1o88GW/DrLI3/IgcrCsXQ0ffIX7muDpv7Dgg3o7loNl7QrAuyg4996r+JGBtzxS6sbjQwvAV5imVdh9gA/bqKPqn/vgwdOVRfN4AF9lmjP4iRoQCnwb7p4C+GrTqsBPlJ975xsH7vH9N+qHC958Ixy/fyffxqMvhMxaAd+St2M52NWf+gZPPip4Giwj1cBbCokqFZjXHnSsOjw608DB5839NsC3y30AVXyJ+gZvKeozGbzYEBx8u9RTAF8hox9vA6827oKAb507gC+XcefOAl5r6MvgBzwCB8CXqhn4sg6LLNWqFlvykgB8qfoA3428OHSu8YFX2oM1wHfj7imAL5B2M05FagevNwHB4xuoP/BZwaMXfudOAU+3jgr8sKv4AYLn7m2C1ysEf/CdFfMpgC9SCXi66gjeTf6WN9XAuUcFvkN3B/CFB+4efKfcB960Gxt4dcOgi3pn03rSgoCvugQ6dvfhcx8veGWgRuUd+665D76KHxh4eXs5+Ez393Lw/pY30+C5Dx686csAPogGDt5WHZiP4JWnNlb5W95Iw+e+IOB5uQDgnTVC8LaWnPLY1iJ/yxupJF9D0fjAlwUBeGctEviSXp2/5Y1Ukq+haPDgC6Lagkqi+FveRCOo4kcJviA1AO+j4YL3mglpUODHwH244H0ewQB4fwH48ALwBeAdh02NFryH3f1pQcDTCMMA72t2PwLwweVrdj8C8KE1ihoewIcXgCdRbMd0BO8tFbySuL/ldTUS7h2Dn+T/AXy/0mGuoZO3/xxfqBoTeO3GX12M/hor+JWpvFA1KvBq8v6W11XYLLUnDebWvcvSQlMd8KuKJvhDtErIrAYVAc/Xwye/WEqYGKjNk2h9yhcBwKuXGcGRFI2fbSr5Eb42DM/f8roKm6X2pMGc3bKM3Z0ttDw1Ba/MXbag4MdSxVtb9UX1fGPwlDiAH4I6Bd+JxyvzanQNfjTcdfAbB9bTrbedYwudov+J6KGOV2fSYb262iQ9NVrwuAO/b1ksVAUCr7lkONnAs9K/JkdvjRd8mUL148VqaPBF82N2Bz5shtpUf+D93y5YLV6VAPhK9QY+uL+LZAG8iwB8SI2nigfwQQXgRZSSQy8e+BFxX1zw8vyYAN5U75MYB5cyHKNT8GPiDuADqvu8NhCAD6fu89pAAD6Yus9qEwH4UBpVDb+Q4OV7wd2BHxn3BQRvfSLgb7mvALwapY88We4P+lvuqbFxB/CBBOC1KH3kqQ/wfeSzkQB8GPWRz0ZaePBUc3/TvdR9JpsqEvDZvFX0o6vh4wHfKvoRco8IfIZr+lboj5F7XOCx5sHZj5J7fOCpAtJvPz+tKFLw4dC3nZm2FC14oqb0Ub3RYj5aVdzgm6EfL/UMwBPVavC1YXmHAvBUfuhHXMRzAXghD+xh7e1FAF6S6faWgiCkpT0KwCuiZfh8zpc8kF8AC+HsRADeXQtQs+cC8JEKwEcqAB+pFhE8yEEAPlIB+EgF4CMVgI9UAD5SAfhIBeAjFYCPVAA+UrUNHjRUtQy+7wsbVCAAH6kAfKQC8JEqCvCtvA1j5IoDfFL4YvloBeAjFYCPVAA+UgH4SNUD+L0zp9D/nduepF93bn2k3MSLx6UvaG/xZ91bpCsJwJtqCH52hLyAduv0lLx7/sC6A3hKUuCsAm+QLKEuUlcF4E01A7+R7Cfg15Ipgb920AU8Rrn30Nls987kJY9wjuiz99AfJsnxbfTJ2Das86cyaYPi8SyB296dJKgQQdtxlN27jesCwJtqBH5l3/3E42cvu2Oabt5+jhcAFeAxdAz//PFs++YnJfBnDmU7xw6RMgBtu3gI74w4ZtIGBTxL4BhZ4B1JlPOn9AMCeFMhivqte9+OvH12dD3dfB1/BTV/+LeaZavG5+Lx1Q8czx77lUeyx155duel79m59T2r6PO3D51dxZ/H7jqLwsn21dWd2/5yde+ht5LP7l1v/eitj3z0pY/QOI/d/QjeF33P0Gf3lW+l6X/gp/TjUfCmHTF/QoBfW8LFPH7nfA6eR7FebTu3/SN2euSzyPnlov4srQLuOosK8SS56SzaF/lyJm3QnZ4mQNLaOUZjmJU8eLypAOCRq28ZHl8Kfu8P/hqV9LhsFih18HfzWpo3CCzg8wR4CxFfJQDeSQHAr5Eyfcm9jkdsfgPDEXU8opddfIkMnm3LWB1vB58ngMHj3UkUqONdFK47t3V6ybFVj9z45bhMFq367GKS/PzdCni0jZTbrFVvB58nQC4DaNV7qI9+vJ9sd2TKBP14J43glq2FZIngzp2bRgC+uQC8KQAfqQB8o4THO6arF/B7Z0iTnS2Qdo6RBjlaJKfoDqfkcNR6x/00tvBXe+Cz0c640wt41EPDPW62wERPZRdvfhJ342hH7yLlz8LxZXDxUMYWNQTgTfUBnt2WU+/OIerb/BHLzs+98ZQUjndkN+oqH95bBeBN9QEeP0e96SxfZAIwXsWLvYf++IwMXl3UyCSAN9UL+GOnMFO2yFiRTq6BvTPHcced1fEsHNcHuEC4GcCHUz8er3swasT9wkNnMenjZLPUuEPh4PEtqJc6/k206n6TDJLU4Mcw74vkoc/xPBzq+BYU4l797HCSeN2rP0/L+POiqMdP5w4x7li8qKfhuPzPFzUE4E0FGHOHH8LPbll2H3PHB9TlD9e2E9xDp66OkWPweTj041tQgDF3G5j2ytTnebyivyoovYvC/QXgTYV5LIu93mPMnfLZ+22/8Bqf1sbcEfD9j5/ra8xdSgZheIy561rg8aaCgN88uZT6jLnrWgDeVJhW/RTTr1vHty8AbyrEKFvC3WvMXccC8KaCjbKdtjXmLoAAvCkYiNEo4QzAA/jhaVIyQgjAN0o4GzZ48c8UgG+UcAbgAfzwBOABvCEA3yjhDMAD+OEJwAN4QwC+UcIZgAfww1OL4MnjOHaTHu7VD03tgSdj7thgO48xd10LwJsKMOaOPYiH5/GDU8tFPRt6U3fMXQefWMfcUfCtjbljg+1gzN3g1IfHA/heRZ/Htgwe6vjhiea4ZfBssB2MuRuQOgEP/fjhqXXwlVG6zG2hALypIYFvYQ4p1sgB8IYGBT48H3YCALwhAN8o+QzAA/ghCcADeABf9vOCuslnAH4E4ElA2OSDpxhIAD4e8EqBBuAjAp9Ip68b8LPD5IWTjW/ZAvgm6h48fha7dmC9+dArAN9E3YMnD+JvD/BYFsA3UW8e33zoFQMfcvgRSXJVPQ0LOvSKglfznRXbF6KOp5V786FX4PFN1ENRf8tyurH/XPOhVwC+iboHz1y9Vh2v3EwD8E3Um8fXGnqlnLmRg+/5lVQ99OM3kmTfcr1+/EKBD568ny3dgy+LUmVt1jn4kI5ZG3wbD4xiB29pNqjgA15e9cGLf8EE4OVUADyAbxF8/rsVAB8XeJE+gAfwlREjBW8pHgF8I1soePmXBMMETz4APpg4eMcOLIBvdKzMBbyl094teFuOAXyjY2VO4BPjkAA+A/ChbOke/NbpGvfqq8DXvqcJ4DsDvzLFj2Y9x9xVgq/LpwXwlotQ6ZRECh4/iE+9Xz8WBrwNSQvgM4OSYn6k4GdH78NFveeYO+nMWcfc0S9uY+qMsWcTdbt5GqxpYZXYqo4PlMyX0rfGZ0iUYzHwbsev+ORd9zyvdJ0cxT6WMQT4w1NM3XPMXSCPN/eq7fGFHtuRx7Mk/ds2eSa79vg6050B+IIka01r0wQAAAVdSURBVNREPYHffH2dMXfxgVd+25aZO1vAu7l/X+Bxqx65u+eYO/nMTSxT1SwgeGm7K3iPk9ADeNSB9//tnALeYmAN8IWXTw/g9Z+uLiT4sijF1mbhwUt5tgR1C146CoAvOnMAXkoSwI8TPCvjw4MvHpgL4L3BT/SWdgDwNPkWwFui6JkE8LYgG/hEO7MAHsAbthaaD+A7BK90/ZV6tTjIPMo4wFe9dSAu8HIU9fyXBXmCn+TnvE/wsvm2cwHg3cHLT7QUi4xTmrQIXv25l26elaLtXAB4D/Bi3Q5euTDaA6/kWDMvA/AF0VsFL29XkMmlf2/geRNGKxc6B4+HXVXfq7cVbMMDr4AtRtYzePkoPYJfS6YOrxi1ZdMEb7n11Tb4wgF0LYBXmuhjBz972R1ThzF3juDlk2lDbp65xuDLKDYBb2kplJRxTuCVR5A9g9+69+2npw5j7pgB5pg7aqAydK14zB3ZsCrniY+Jk/K8KiOxjbmTwarj/wq353Znk+Ixd8xuxZZE3m6Al8fh2W2VgiTDclsl8F2OuUvXlnAxXz3mLpDHF7nvED1e8cXCHLPKzc3jq47SnceT0Te6xxeDtzSLYwfPoowN/Bop05dc6/jK06CczKJx8z2AVxsXAB4Le3z1mLs64CVf6x285fwDeKd+PIBfNPDFUYKA580C+T4VgI8BfEWeADyAB/AAHsADeADfOXjQUNUueGsK77B8eYfxX9lu2at4u0/Ci3Fg+fDFCdcWgB/qgQG8d8KLcWAA753wYhwYwHsnvBgHBvDeCS/GgQG8d8KLceDBgweNUgA+UgH4SAXgIxWAj1QAPlIB+EgF4CMVgI9UAD5SAfhIBeAjFYCPVAA+UgH4SAXgIxWAj1QAPlIB+EgF4CMVgI9UAD5SAfhIBeAjlQN4Y6I7LDYd1uxwkkzpXnRNTJPFYpG5s1xkPQpNlE66N61/FBwrSZb41xVpZ5IA2r7/XK1czA7jyeBW9pu2k5j5pGGhEmbp1LeYqyZ4Nq01nvVydgue+ZKtiemuN5hha0kD8HnyZHLV2kfR0pbAkwRwqmv10p/d8jPr6eavmraTmPnk36ESZuk0sJjLETy9rmZH72Oex6a83CCXJQ5ha3wqzJV99xObyRzYTrIdJU+ezata8ygcPHth7sobeDFFEyATt95+rk76syO/hk78G3LbX3YHOfE0Zj4xaKiEWToNLOZyA0+uqyPnZoeXmOtJk9zmc90qL5wnGaZzYDvJdpQ8eWl6zRpH4eBX6DydKwfWRRmAV3L/8U5/duTPp+nf3S/ZPk3zhNWpgAMlTF7vXt9iLveiHl1UJDP0ChbTWuNZT6nwWh5O9qNzYDvJdhSRvDSRcp2jkDqeVkzYNXAZwot7rSr2TX925P0/u/W29yu25wkrk3+HSpickfoWc7mCX0lQKZkjEVfY5knOnaypVx6bA9tJtqOI5KUCoM5R+EV1EvHft5y+b1kFj5sRG/ulA7qnPzvyF7/zsV9XbZcSljw+VMI0nfoWczkW9SenpLwRSHidIhVtZC2v1fB/Ngd29SEKjiKSX+Fp1DtKXprQ1KZ5o1dzTN/00fb3/e6SanuesDT5d6iEaToNLOaqAI9T36BVIrrKciRsWmuduzTdtU93rugoPPmte5cbHUWq4/EpWzmYVyWqx3unjxu4+5b51UptzxOW0gmUMEungcVcVR6/QQpHfA39xB1TyRdpJZP3sPlavX58wVFEoryerHkUqVWPD4Na9fuW5U3s8DXSp2SYlzHbpYRFOqES5unUt5gL7txFKgAfqQB8pALwkQrARyoAH6kAfKQC8JEKwEcqAB+p/h9rEXTxFynBhgAAAABJRU5ErkJggg==" alt="plot of chunk unnamed-chunk-1"/> </p>
<pre><code class="r">chartStock("fb","90")
</code></pre>
<pre><code>[1] "Got Data"
</code></pre>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAABjFBMVEUAAAAAABAAABsAADYAADoAAGAAAGYALnMANmAANocAOmYAOpAAUpEAYKsAZrY2AAA2ADY2AGA2NmA2Noc2YIc2YKs2h846AAA6ADo6AGY6JhA6OmY6OpA6kJA6kLY6kNtEMRtEOiZERERSkcxVVVVVVXFVVYxVcadVjMBgAABgADZgAGBgNgBgNjZgNodgYDZgYGBgYKtgq/BmAABmADpmAGZmOgBmOpBmZmZmtv9xVVVxcXFxp9hzLgCHNgCHNjaHNmCHYACHYIeHh2CHq4eHzs6HzvCIiIiMVVWMwPCQOgCQOjqQOmaQZgCQkGaQkLaQtpCQ29uQ2/+RUgCncVWncXGnp3Gn2PCrYACrYDarq2Crzoer8M6r8PCvcy6vzMy2ZgC2Zma225C2///AjFXA8PDMkVLMr3PMzJHMzK/MzMzOhzbOh2DO8KvO8M7O8PDYp3HYwIzY8PDbkDrb/9vb///wq2DwwIzwzofw2Kfw8Kvw8MDw8M7w8Njw8PD/tmb/25D//7b//9v///8VdaYCAAAACXBIWXMAAAsSAAALEgHS3X78AAAcnElEQVR4nO2dj3/exl3HBW4KISRuGnA6KAS0tKvbso2n7YpLSTro3CZl/DCFPtvwCDQdzGZ1mInz1HUVx/rHd9/T3elOOuk5/f5xn88rjvRId9873Vv3U9JdEEFeKhg6AtAwAnhPBfCeCuA9FcB7KoD3VADvqQDeUwG8p6oB/uxOwLU43ebby0fmeXF4YfG6XKROrgpTV9f6Gom++fT27dei6OHt269+oX4xffUebb/+WP7WDqbbjEuyED38zq+LrNHZ2/fMgDNBCJ/CGvvFrFVQC+Cz5MXhjd2cz6XgmrjYogOBJC+NbVWPUE9K0p+lsEzpBMNDvqGTGpaHYv9hBtVrCSlO6ZtP3y+yxvTktgIvTppBCJ/SWj/gL+3zndNt2kn+13S6TXfCkiE8EfxXm0FwaZ/fMJzyCduQldXmpX3pPdmeMHfCGw/mhFlJfFePZ9v65lNG6OuPX/mMEbj31XuU6K9+wfb/mmB89d53fk1/wmVyUG6Ng+SKrLCde0XWyJUCL08aQaQ+hbWvP+4ffC7HC/BJJr58JLZfZsBv7NI2WiZFg7gBlrIguXx0yMoHdlL+rB7RlsXB85R/+MpnT3ipzxL/X5Nd0pPb7wuX4qB+Uv1IUDFTTxKWVmssrH+T4OVJIwjpU1nrBXyQlNAFZbpxmHiuNgU2s6gPFidJcb+QDtnmMP212ryaFAsjgE7i4ElPWKnKCSTVsGT7UEKJtINP9Io/+fGICud7SRVfZI3tP0rBq5NGENynsjYAeFEOU4nMESWHOXfapdJcOJLgye3G94rBJ97O7lz+1bYIZTRFfUTpzXKfBTx3QEU0ETDAmwd57fw+c/1aoTX6TeC5x/9LT2aCoFJAWBugqJfkNPAii9IRzozvsDthqTfal0VFvfJ2uPHh5lakfA8tAf4RT2+t/BWoeIP/3nrwT3g77ZXPvv74XpG1pBnHGnICfHIyE0Tqk6wNCF5JgT/kLTPhmFxJl1R60wl74055o3JB8M6GMYQS8I+SrphscUWKLf1OKuIoKivqBdl7T8ix3ZoCz32ljTs9COFTWusZvF7UKynwJ+KsysJL0bhLKoui7pz0Rs6YJeV7aIlW/e2kUlUdML0AT9O+GHxi4dUvHjHHhdaiKHqU7c4ZQUif0toQ4PONO9kaY1y3qNImdqJbl5win1tR0QCO9MZ26KT0PbQ4+Ce3Bap0yEW2w42edEnjLhly4VV8obVIBy9P6kEon3I4qAfw/elwBAV8KtWqH6XmBF4VLeNQmitHqD5G7vrS4chG7gEemoEA3lMBvKcCeE8F8J6qBvgAGqs6Bh9D4xTAeyqA91QA76kA3lMBvKcCeE8F8J4K4D0VwHuqIcCff+vzwoMX94Pn9uL42VvBlcf8uNqz+vJOYVuGxgb+wU789Mrji/s78fE1+q32ngbPW3z5ppCpHUtDgj+/GQQ7hJQxZRmbwD57h5+iTeJK7j147p+Q4xn4IJg++Gdv79EuoWV5Ojl4/vKPqag/f/kxPx3rewA/E/AkRj3BKsHf3CHWrLQXuNM9gI9nA/4BFfJU4j+3p3I854wcb1M4E/DP3tqRuyxfiyr9Xc45X8d7Cl6nTO26WYCnzflLe1SYK/DUqmeZ/OL+LdWql3u+glcN+TCePPib9OrPtfg4CH7vBzuiwL+4z7trsnXPe+/E2u9+vF66Tx885CyA91NUzAP8TFUGklfxAD9PVQcfrvPmIoAfWrXANx+zB/ihFWa2mXMCfJgB37jIB/ih5QKeZ3CAn5dCUW6Xgk94A/ycJJvqheBll06CN/p4tQXwwyqlWAReZXA5Vm+0+GoL4IeV0Xyznk1LdrED8HMQwHuqKuBjgJ+PxgL+kE+WsKBJQ/MzvwN8+1IUrUNx/eb4k8tHZ3cW0eFVgO9QodoI8DaSsiBIwYs+fxfgT1/fjU7f2I9W17NzhNYBfwDZFYqNoHjAwKuDqSN2lm/JhfSmvDRSfiocyumrG0f8BmgOvtltOWOFsczQWo7PPnfL5XjDSyPlYHLerLQH+G6lg0+GZsrA6y2AjkbuiDlyfPcK0wpb9NBt4BXwMOO1ffBLWhSgvTq+WezmK5lty8Gn+6Xg69wDWZhndymfn93ZQqu+U6nnblnwBa9YdA5eFPDox3csE3ycgHesvfUxXHmgsjByN4zy4OWzt7rgK9IH+GGUA68ewVQHHwpVigDAD6CwZfB1OvYAP4AKwdeo4+uO6AD8ACoCb7bXy0Cmr+kB/ISkg8/WzfrzmDU20lfyagzlAfwAMnJphldV8HFc77VbgB9A+hh9Ifg1/TOAn6A0YPlz1uF5mw3xlQXAT0dqnLborLEtcqU+rgD4qaht8LHezHcUwA+gNsEbNQPAj1lp3VxwPnajmOkUhEUP9uwC+N6lquXi8zXBF76mbRHA9y6A91ThmmLZGbzZngP40Up7GlPGxxV8xhXAj1Uyh7qCd7AY58G7NvAAvjfJDLkefJXmueYw835+uQC+F6mXavU3qotdV+iRA/yoJR/G8W234EO3EgPge5F8GFf4UC7nuoJltatPn7DOH8D3IlW562/OFLuuWceragTgxyIJ3n0kvoJl8wfAj0kA76l6Ai+DAvixKG2utQ3eGhTAj0UA76mqgm8YFMCPRQDvqYYAXx4CwPeiHsHHAD8i5TkAvBcCeE8F8J6qyvO2FkID+LEI4D0VwHuq8YM/uxNs7Cbz1l/CzJatafzglws+my3bWCgCfC2tf8mu7QCrg6dJbCM5sWkb4JtNqj59hQdqjvkeAw3k5PfFgWbmq1/d+CEV9afbfIGSFsD3dI+PVGrqwf5z/LpXOjMwV5sLmrN89cKuJdcDfFXx1yv1+Qt6ClZ+ulHy0mYWvDZRfa6eB/iqGhp8yePZbB3/XYBvQ+mjuImAJ9os11PD/uwDdOdqS77uGsdD1fFVwbNmHfXfWT9+I9ewB3hXabD1f70FXwN8KUWAd5TM6QDvmWTdHuoFfo/BA/xAyoHvM7/H6RQMAN+zTPCDhA/wQwjgPQGfTV4FvteqPRMfgO9eReAHyvBq/AjgO5YVfNVphduPD8B3LRt4Wd4OIYDvQbbOWprVAX62Kgc/qAC+S4Xan/5UbrgYKQF8l5IDsgDvIXjxyB3gPQSfW/tx6HjFAN+tJHi96w7w8wev1n3XB+sAfubgxUANwAM8wPsNfqCnchkBfFfKgheTxY8jvwN8VxLjNqHZnbOvFTyIAL4biXGb0BzAGSX4fJQAvr4mAt7+rifA15cJPjkE8AA/vAC+GwG89+D1RdzH0YXnAvhupMCn6Toa5lxlA0oAX18TAp/v0AN8fakBnJHxVgL4riTbcgAP8GNSutgswLerSYCPAb51Abzn4EcqgO9K4xqvyQl1fJcaL/fSdcUBvqlGDD6RG3gxX/3pdnD5COBdNBPwyXz1Z3cW0eFVgJ+FnMCL+epps7rexpSm/U3SDhWIpq5nyhy1z1evT2LdDPwg9ziky+mxrJivniYxBviZyA18ktWR42ckJ/Bivvr26vj+rxPKyO0NnGS++rM7W2jVz0Vu4MV89ejHaxp9T71ceOeurmYAPi+AXy+AB/gpCuDtWo8V4P0EP5JZDmoL4O1aD77kK/MpyC/wzqjy+TnM/AD4eYGXX7vlsOo/+UQXAD8x8OW4hIs14OMY4CcDXrwCuaZRZoDPwDZNAfyEwAflS/HE6iPS/KfEAD9/8HEM8DMDb3+ZPOsq1lcJk6094wfATwv8+m6YXO/ZnHk6zlT6cwBv1/zAp18RlDbu5JftxnSkuUof4CcEXv5Lcm0Rs1yOF3PVAfzMweutehN8dqkJgJ8g+JLiXmsJGODT+yWtMQB+cuCLc6sz+Kk/lrVrzuDjQvBhbJQJOfChEMDPCrxZdusjeNKjeQDg5wLeaPKJkt0Abx4A+PmCj8vAz1JzBS9/AHyBAN4O3nJgXgL4cvCiHTi/vjzA6y5z4NOSf245H+B1l3rGNryGs2MP8IZLvQrQS3fjIf0sBPCGyzDjzvwB8F6Cn1cDD+DLXBqe5vV4dibgM2Pv6Q938GvyM8DPFPy6GhzgJw6+uGMG8NMDb/S/uwG/vhUwLc0EvD7ilu9/550C/PzA509ZnAK8V+DDuAz82kBKVmOfnrIwD4OAJroTm0mAlyjDwj5ZqG1bAD+LkRzLzJbaZkrgw+LxdA18iau14Sjwc8jzGZhnd3e1TQvge5qPnYgKqvnz6iC5FG9T1wmHeVWh8Z0pKzNf/ek221/ITQvgO79zQzkHQmEZbqypLMHXCUnZmUOmz05b/sIuZXexmQz4Uhytglcv288MPFdRPT9K8JkmWxF4fSGuRuCNL+wmrImDD2NX8HobsA3wU+/UZ2DSmiRnH+yLzQzB8wP1cmvSmpgpeOrA07pzYjMp8EVZOQe+Sf08W/ClFEcNPqEJ8I6aAXi5LRy0VY27nLcaAQL8tMCbZxuCn8E8p56CbxCgHLYF+AHBp83zMgitMgL4UYBPe2hlrtocawH4cYFf6661IEOAHxh8hRHzNhE1GwQajwC+erDtGx1AkwWvJqbqWQA/NPiBno0CvO/gJy6Arx7uLATw1cOdhSYOvn8BPMBPWgBfPdxZCOCrhzsLAXz1cGchgK8e7iwE8NXDnYWmCX6oTnwM8AA/cU0SfIPPYZqHPUSgHWia4ON4blPL9q7pgp/6KzADa7Lgkd+bCeA9FcB7qumChxppmuDRsGusSYJHfm8ugPdU0wJvzIEANRHAe6qpgUe7riVNDvzUv1IdiwDeUxVMW366HVw+Ghv4Wcw9MxbZpy0/u7OIDq+ODvwcZpsai+zTlp++sR+trrcxs2WbM21L8G3a9Fb2actXN46i09fHNns1cnyLsk9bTnPZAvysZZ+9Gjl+9rKDb6+ObzOuAN+i7NOWn93ZQqt+3iqYtnxc/fh0FkO8Y9mWJjFyp4HHA5qWBPCeCuA91RTAh8aaXwDfiiYBPghmstjbiNQv+IrcZBFPa8UN+J3kLDV68GGsFglEV65FjRh8unioWh0S3FtTr+CrZdm0OVd/WVCoSP2CrzTeGoqXKwG+C40efAzwnWj04JHju9HYwas6Hi36djUJ8GLkDmpRUwCPr6Y60OjBiz2Ab1mTAA+1r4HAlxI1nsJC3WhA8IVUAb4HAbynGhh8jqx2AuC7FMB7qv7Bc5hiaovccJw4iBduOtdw4Pl+tnsXxgDfj8YGXr5xgTetOtbARX2g09Xrd4DvWIOAV4/aCsGjqO9aw4CXrXsdfJrHtVzfb2L4pN7BS4kD6cx1lmcy4N6dBgGv53KV/QG+Vw3UuFNHZLkfokrvVwDvqUYEHm25PtX/BxVZurmKH+pD/X9CZQWPXnvfGv4zaYAfRADvqcYEHupRAO+p8jBpynI5bT3Az1Z5mIfBQk5bD/DzVQ7m6sU3F3La+hbAr584XYLvfop2SFNmvnqG/EesqBfT1rcAfv2thxw/iHJz2W5RHS+mre8HPIbthlB2oYIbR7xxR8rV8x3Nc4d3LoZQBuYhL/e3+gaPDN+77N05MW09wM9Xxf34jVzDHuBnpOFH7gB+EAG8pwJ4TzUC8FwA37MA3lMBvKcCeE8F8J5qLOChngXwngrgPRXAeyqA91QA76kA3lMBvKcCeE8F8J6qa/DQWNUx+KFvbKhAAO+pAN5TAbynmhd4fIrlrJmBxxsdrgJ4TwXwngrgPRXAe6oBwF/c32H/n7/8OPl5/q3Py6N4fEv7wVyrf3mnjPqfS7tQqYbI8ZykwrkO/HmWZBH1OMnxxn0CFWkI8ITy4pO9+NlbwfOfS47s7+KTfwiCW0/ZXyzOkR7sxNoJI8cLAy//OAhYIcLO//bncfjsncL7Ako1BHiCTvAf3IqfXnmsgb9/LT6/eY2XAezc8TVyzDjG2gkDvDBwk2/I4R9dY5n+wU6/SThNDdK4Y6Ux+0eknr29p+f4vaQkeHuP/ePn0+JBnNDBpwbIN3nhjTuU9S4aBPz5y/9PmZ4BYzjt4N8KguC5PeaW5eUi8KkBbuv8ZvBbewDvqEHAX/z9f7F8XJrjeW4nOed4cvxnVx4DvJuG6ccf/xXBUXU8ldLHz+vgxblY1PF28KkBAk/OOXjU8S4aBvz5S1SKq1Z9fBwEf/KOAZ6d4yW9aNXbwacG+G2AVn0FjX/kLtePLxH68c4aP/gqdTZG7pw1AfAVhLF6ZzUCv9rkk5ufbgeXj9QG4CehJuBPX9+lCc5pDtTDq5HYAPw01AT8CWFeLk7f2I9W1/fFxgX8xX3eZBcbpvObfGSebYKdxMGOfpy13qlrJzYlAnhnNa3jWa5f3TjSNtKt0EEcH+T+Huwc/OLK44N/2Yl/8TuP2e9nb3374PjKf/zP23sH//3SHnNzHHw7To//8v7Owc+vxb/8m534579vs6f+OPiS8/hTfw3Bn93Z4nOcM+Jik/Fiu9nEsJw5Osf66E/pqQwNv5z/8Q92tOPkUAzUremhI8c7qxn40+0tvqpFPseXgafnqM/tyU2sANMubS4++ef7OnhzU3Y1AO+shq16WsSich1/fnOHmIpNTJX3TnzM74GL+7eo4y7qeHGcBmOpQLgC8O2pCfiEe0TFPW/Vbzm26vM5mDXi/vSTPSJ9i5/WGnfsOHJ8B2oCPlnAZlG5H//s3aTqflcHyWvwm8T7mJu9lR5HHd+BBhm5e5CU8Q9UUU9P564J7iRZ1CfHqfxPN2UCeGcNAl68UJc+XHsaUA89yeqEnMCnx9GP70AjGKv/z8+rHS8RwDtrePAX/1jteJkA3lnDg29TAO8sgPdUAO+pAN5TAbynAnhPBfCeCuA9FcB7KoD3VADvqQDeUwG8pwJ4T9UQPH+7kl7BurSPT6gmpWbgTwh4tBTvXOITqgmpEfjlxocsx5/d5S/TV/iEqjMBvLNaKOpZEU/v2lb4hKqzv34/oaLZ8Qf/FGqgT6gI/OqFXcr17p9Qdad+c3wYBNMtX9po3JGWC/dPqLoTwDurPfD+1fG+g6cy/uyDffdPqLoTwDurpX78xq6HU6H4DH6tl36vBuCdBfANQgN4gJ+cAL5BaAAP8JX9Dr0mJsA3CK0J+KGfKgB8g9AAHuAr+wX4NgXwzgL4BqEBPMBX9gvwbQrgnQXwDUIDeICv7Bfg2xTAW0KyDxECfIPQpgHeHhDANwjNY/D8DRxfFyPyGDz/ksbbxYj8BZ98SVN9MaIOLxLg8yF1VdRXX4xoLl/SMPC1/bKY9pUmYUdf0lRejKjLu5u/4dBXXkKOr7YYUZcXGYc9JunYwfM80B34kdXxAJ8GQhHsDnzlxYiaX1BRad4feF6jeA6+/358YarVAF+zSUBp6jP4tV66uSBbqolWXWXw9egB/HjAC+g9g6/Zh/ALfFs9LZlqhr2hwNcD2Cl4mS7jAd/SpycKvJ56AJ8aF9c0bvChUJULk74A3m58GuApCSvCsjEG+NS4D+BVYQHwqfExgs+V6k3B00+9K+doS90vw4Lv5MnCOMFnubQCPnvAxUYt8Pr9otK1Bj1r+9QWWt27Um0BPmujHvjABr56qeEIvl6FAPClNgYHn+uYWF1VNCwjp7YzAG9tx60Hn29V6E8rhwS/9sobgFdPkeYAXrqqCD6LRXgZJ/jcaGRFw3rkyhohUwMvcuuMweu2WgOfj+DkwCfX0j54xwY0wHcPPl83VwdvfV/CDr4Qnln4OoG3Nyv0fYAvAZ9zWQO8vPyc4QrgDRRu4G1RzwRfGTy/X9aWS9wVwJeD18uDMYE3ui+ajTSk4huAItgXeOfFiPoFL7GWgJcGYxfwSRHdFXhjSFAdLARfEtv+wDsvRiQvKlNrdgVev/yc4RrgedCdgdcNTwO8+2JECrxZeM4GvL2Izh7Igc8XJe7gLc+8egPvvhiRCV5+4iOvVLrja/wcJFed++yIXB+sB8/9a5ef/3wpjMMDPS5GnIw/6T8JWthShrmdrA3jerLXIoLXwEvDehrl7UiCepzyn2KFQXhgB9/qJ1Qk98WI3HK8/DGGHK/aCWoANEjbhPkcr/JhtRyfK0qccrzqFmbSuN9WvdNiRP2Bz3Vq6oK38VEH9XQ1RgzUJcjXyhqA1+oPMySVFAODb1rH5ypIRbAO+Ozldw9evy55PUaM1Z1QEXxq1Awpb1i2FXoC774YUTn4bPmW8hH0m4DXRz9y4K3je3XBZ8flTD5GjEvB63YcwKsD/fbj3RYjyueMMHQBLzNlE/AZOyb47M0o81At8FasTuBVIW4rkorBm2V/z0V9kZc14IOwZ/BaWbsOfBAU8ekMvIyxrUgqAW8cmBn4XI1ZF7w1XbViOtQj2yp4dQk1wNtCmih4syWyHrx2gR2Cl0Gr3lub4PUL9Ri8EcsRgc/1lgC+R/BmVdwveNMbwPcL3rh8gAd4gAd4gJ8R+OygCcD7Aj6TJgAP8AAP8AAP8AA/UvDQWNUteIuFjyLxn/wLbAfWu/pIN/iR7iUoO1DBmzUuhZGrG+O1cakYwcIkrS+AL4scwK+xAPAAD/AucQF4gAd46QLgAR7gRwwemqQA3lMBvKcCeE8F8J4K4D0VwHsqgPdUAO+pAN5TAbynAnhPBfCeCuA9FcB7KoD3VADvqQDeUwG8pwJ4TwXwngrgPRXAeyqA91RrwK82aVGi3JT1kTy42qS1qhKXtJZJOt01P30SyNOpQfqOe2EPjLyc3eHTZrtbLDKUvxQRrjxrtZ8swJSP8Zb8udTOuiSBzSBNBL+0XAZ5OAxUAjnaq6e14Cl+toQ84auTvb4bHfJY0d7qhV21bBU/zS/EnO6emzrdtkWde6GEPalk0RZrS3yFORlMgf2IJmxflBnTwLskgc3gC39wFJ3+RT6O0kNZAljs1dM68Nd/ejW5dnbfXdqnpUqSBaqWGx+yg3zpkjcoOif8LlZLWiSnEwv7pkH6yf1t8wthmySHJ14Sa1EFi9ZY74vssrrxQ5F9hLnUToH91Ytv2sGL+C6/LwssxySwGPweI/r9NI4vvsmJqpiJxWBc7dXTWvD7LLF4uFvsRvySQacrlQmS3u4iwukiNjK9bDmeO1nyxS/ofj65nFokUhtqERwXi/ZY8+xyfX+1uaXMRxk7Vvtnd3+ULZmF8yS+0fLykTLgkgQ2gz9dRP/7oRbHhRmUdoEu9uppPfjT79KV0n3Hgj9kV7+lxVJfwYLWMUmXrRJZe3NjN2sw4svakStmVM++SUZdqFvLzaI91rQR5lUQZC7SwVvsH25Z6/irkYgvL+plce+SBBaD13/2h2cf/MyIox5vbfUnJ3v1tB48C4puS7bDcK1ufHl3Nz1FlebJJVkUbkVRPn9mFrFS18ZXttvYVZClRW3dKzeLBbGOltQM1MFzc5odm332K88pIZTEN/rJrgl+TRJYDf773/7qL8046kFpJZSTvXpyAH9290OV49m+JEWntHXpkgIrXbZKXc5ykTXIr01U5tkcz8qXihbtsab2o7hfhT9Voqat+rz9pE29lTEWCXcicJXyDklgN/iTv9sy46gHtZSuHe3VkwP4pGm/TAqdQxWoebuLZE2XrcokimGQt+oTg5SIisT1pFWflAKuFjOisydJPcxil4LP1aRW+5Gl95XW8RT68mp6Bzokgd3gycauvCuTOGpBnaki1dFePbmAjw4v7ctGLe8RpadOAtEUk91Ps9N5GATZOl7140VzXrXq0ypT9lrcLGYlosQc/u6bixR82j+WTSir/WLwIqKsVb9RJQmsBgX1NI56Asj72tVePWHkzlMBvKcCeE8F8J4K4D0VwHsqgPdUAO+pAN5TAbyn+g04+w2HLBzlmgAAAABJRU5ErkJggg==" alt="plot of chunk unnamed-chunk-1"/> <img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAACOlBMVEUAAAAAABAAABsAADYAADoAAGAAAGYALnMANmAANocAOmYAOpAAUpEAYKsAZrY2AAA2ADY2AGA2NmA2Noc2YIc2YKs2h846AAA6ADo6AGY6JhA6OmY6OpA6kJA6kLY6kNtEMRtEOiZERDFERERSkcxVVVVVVXFVVYxVcadVjMBgAABgADZgAGBgNgBgNjZgNodgYDZgYGBgYKtgq/BmAABmADpmAGZmOgBmOpBmZmZmtv9nRERxVVVxcXFxp9hzLgCHNgCHNjaHNmCHYACHYIeHh2CHq4eHzs6HzvCIGwCIRESIiIiMVVWMwPCQAACQOgCQOjqQOmaQZgCQkGaQkLaQtpCQ29uQ2/+RUgCncVWncXGnp3Gn2PCoOkSrYACrYDarq2Crzoer8M6r8PCvcy6vzMy2ZgC2Zma225C2//++vr7AjFXA8PDFAADFABDFABvFECbMkVLMr3PMzJHMzK/MzMzOhzbOh2DO8KvO8M7O8PDYp3HYwIzY8PDbkDrb/9vb///iAADiABDiECbwq2DwwIzwzofw2Kfw8Kvw8MDw8M7w8Njw8PDyhzby8PD1YAD18PD3NgD3YAD3q4f3zvD6AAD6ADb6AGD6q/D8AAD8AGD8Nof8h87/AAD/ABD/ABv/ADb/ADr/AGD/AGb/ECb/Nof/OgD/Ojr/Omb/OpD/YKv/ZgD/Zjr/Zmb/ZpD/Zrb/kDr/kGb/kJD/kLb/kNv/tmb/tpD/tv//25D/29v/2////7b//9v///8jFkE1AAAACXBIWXMAAAsSAAALEgHS3X78AAAgAElEQVR4nO2djZ8fR13HV9OgsSZpqF5Aqy1dwkPaCnhtwRMxLVpOaU3Fh4jiAR5Gm6KIkhNSCVEux/VYSlFQFAeswUIMmiA9c/bu9785zw87s7szu7PP388rl93f7jx8d947j7s7k2SgWSrp2wBQPwLwMxWAn6kA/EwF4GcqAD9TAfiZCsDPVAB+pqoBfudMQrW8fZpuj1wyz/PDyw6va8vKyVEe1NFKXwPRFz946tRbs+zZU6fe/HH5C+sL7ybb558Uv7WDaptzSULInn3LZ4tCI2dPPWVGnIuC++Sh4V84tABFAJ8nzw8fWrV8rnGuzMUSOZAI8iKwpXCDOhJLf5zCIqUZhmfphpzUsDzL95/NoXorI0UpffGD7ykKDevqKQmenzSj4D5FaN2AP7xOd7ZPkx32v6bt0+ROWMMINzn/reNJcnid3jCU8ibekFC2jh9eF97ZdhO7495oNJs4FOY73M7Y+uIHMaHnn3zThzCBp77wbpLob/443v8lAuML737LZ8kfd8kOiq1xkLgioeCdp4pCI64keHHSiEL55KE9/2T34K0cz8GzTHzkEt9+Jgf+0CrZZmusaOA3wJooSI5c2sDlAz4pfoYbGlkUPE35Z9/0oau01MeJ//tsl+jqqfdwl/ygflL+YKhwUFcZS2doOK4/EODFSSMK4VOG1gn4hJXQBWW6cZjw3DrOsZlFfbK8yYr7ZeEQbzbUr63jR1mxMADoRBQ80VVcqlICrBoWbJ8VUDLt4FW94mc/niOF81Osii8KDe8/p8DLk0YU1KcMrQfwvBwmJTJFxA5T7mSXlObckQBP3B56ezF45m3nzJFPn+axDKaoz0h649znAE8dkCKaEDDAmwdp7fwe7PqthaGR3wQ89fg36mQuClIK8NB6KOoFOQ08z6LkCGVGd/CdsKY32teKinrpbePQE8eXMum7b3Hwz9H01spfjoo2+J+qBn+VttPe9KHnn3yqKDTWjMMNOQ6encxFoXyS0HoELyXBb9CWGXdMXAmXpPQmJ9yNO+mNlAucdz6OPsTAP8e6YqLFlUm25DeriLOsrKjnZJ+6Shy7Q5PgqS/VuNOj4D5FaB2D14t6KQl+k5+VWXiNN+5YZVHUnRPeiDMckvTdt3ir/hSrVGUHTC/AVdoXg2chvPnjz2HHhaFlWfZcvjtnRCF8itD6AG837kRrDHNdIpU2Yce7dewU8bmUFQ3gCG94h5wUvvsWBX/1FEelhlxEO9zoSZc07tiQC63iC0PLdPDipB6F9CmGgzoA3502BlDAK8lW/SA1JfCyaBmGVK4coLoYuetKGwMbuQfwoAkIwM9UAH6mAvAzFYCfqWqAT0BDVcvgF6C+RTjYRwH81IUA/CxFuQP4+QnAz1OMO4CfnQD8PCU42GcA/KQF4IcthNoJV3KwTwH4vsVqYVTNHjtBDoIlUhzsc32A33v9M4UHD84md5xbLPYfTu68Qo/LPaev8QuVwOEukOYwzVCNoEcA/vzKYvfOKwdnVxaXj5Hfcm83ec0swWeIFAfCTYrlWy9o3AcGfu9kkqwQpJgpztgE7P6j9BTZMFdi7/wdvzPJHF9OZ5FPzzRJUnIj+IQ8WPD7j5wjuwQtztPs4N49HyBF/d49V+jphb43SfB6YiHrLMqnJwPvJFnq1T7fc1GPqTOsAvzJFcIal/Yct9qbJHgjsVD+rMVdgS+v6i1/tpNewZ8nhTwp8e84J3M85TyXHJ9LLWSezXNPdfAl5T2ybxjbUZ9F/cMrYhfna16lv4tytuv4SYLPA0L0IO228RZdqp3F7TodfAF65MA+MPBks/e6c6Qwl+BJqx5n8oOz98pWvdibHnibkF2ns4Y821/kwDMvSIXnQs5kR94L+JPk1Z9ji8tJ8mPvXOEF/sFZ2l0TrXvaeyesJ9yPL+YkpZfubvB07Ef+XyQ7chi5600e3L3A+8iOHcD3Jp8MTwTgJyaeRGUg08UCwE9NIonCwadV3mzZ0QP4niSTqBZ42dT3lB1/L6162lW9LX9e4//KlPOj6eBl4+itV6hbfGwfoevK8+3FHvu1i66zuEpjPPjO/5YbRCIW9tySxgljuAlqc42G+Sr289Kr1LT/eIEm0NY/o39/Mct2voK++VX6+19e1JJPgU9z4AOLfNv6XsCTVNgjCSB+VlC3/Rjpr4PHdPexK+ySHL91kxzjB8g9gbV7c+EBfu96tU2LG1rMu/S2usXuBR6j2OCDt65T27AP7BDjz770nyR9tv/xq+mX8D3w5a9n95FbYZPeBlICPM3gEwGPb39y41/Tcvze9Rsiq35Xnf3uy9d0PyL3KqcY8C7LUozF7k263b8m2PIDi33xS4Lfv3aL5EC+0WPcvSnA04PkLiL3DqamObpxW94d+/Se3Psuuwt5jHxDihpyfvcmswDHh3jW3vrGC+n2J379/k+8SIv8L//bPzhzPOM9DfAkNW68QlJSgUf0Nz2M0wlvcI7dY3lI+KGZyHSKKGOeuQWtl14Vya2BoTnUAI8rg1250WNUTJmRuLQguRlvDEfymmj0B9/5P1X88Lg1S8gtcIPcYXvoBZLXM57jv30y+fzfFxf1oksnwBt9PE8NBDytEq9TSiRdrmnVPM2GNG/v06woCmThh9PVnb58W/Hl9fjBy+y+kCfIgQUr603wt2lUfKNixL/2RO4U8L73/Zs5s27kKN96RdU7LEa6oUU9rntwmKypsSvBZ/f/Gfr2LybJ3349e8M3SK1vg5cZXIzVGy0+Tw0EPC22X76tUtgAT+BRGlgvifQXfnBqk6JWOOXJv4cQQ8xq2n1cHiz0HE8PuMCzckBsVIx71xdaxMSaa/vX9vDfQjdLgafx7l1XDQ4eI9tg837wHXLvcJv2viHAb/3dq4v7vvVw8vkXsvvZgWLwYmfk4HktXJLjNeKaH5Jn8jleIac5ntUOqo4X1YUEzytkVnHwXGzGKO8OkeMXN/4H5/fv31zoZinwN2iBQkulV7QY92Q/ZP8ajZiB3/+nFznhzW8vFvf/+W8kfzEf8PusFjfqeI5K1fG7RsbjdwlpZelO0W0Cnef1azK1SSHLKn6Z/KKOX9y4KQrhm6y9dlO2GFiMN27LRj87iKNhtbxulgRPWp1s52Ud+J5q42NLbrBWAb7fdr7yr7xVL3L8r3kU9fTAuMGLbm++Vc9p4sP/zVr1rCVn+LlF2/HCKe4YkYb0Db1VL3rVrB+PXckDWhufZc39l75HW/Vso2IU3QeE7whmJGvT07tPmSVbgFpb4rYWo4h4l1hCbw4WGNr+GunHE8j3IfTNP0yS+7+GvkWJ9wV+g06WsEwmDbVnfu9w5M6jE13g8Xr+yH/JPdmPl1It71qR6f34AOlPZyRF51Bctzl+88ilnTPL2cZRi2JIVNxLjXTBuRjVJLEQdLXQfiD21MidPNkIvBq5CxQFz7kp8C6SFHymgydqCfz2A6vZ9oPr2daJ/ByhdcBfBLmV8g2neBGDlweVI3yWbokL4U16aSR7KhyS07fuvkRvgObga2WJaUt8EsMH4PUcn3/uZuV4w0uAbCssmJQ3Lu0BfFuSBCVFNjRTBl5vAbQ0ckeYQ45vUQKfqrB5D90FXgI3XrdtZax+jSwKEK+O7z5hhy4Oj2fbcvBqvxR89T1gm5GHufMYyec7Z5b6a9VPW7wvJ5+75cEXvGJRBv4C3r1wAf8Vc7DtyMPkBXzf/fjJSvThTfAZA+9Ze+tjuAS4vCuK4duGwKtX3aoYvHj25g/+QqoOSPpu8rYhAL5TqQ/d8+DlI5iwHE9/c4nzF2z4tiUAvlMpcjHBV3fsbUsAfJfSyDnBe9bxFzTw7hGdfKa3TQHwHUqSKwBvttdL37umJXsx+LxsWwB8d1IVfO79WV368xhXioqsLKAL2eD1TG8bA+C7kwu8lbErwEuaWm4vGsrTyNvGAPjOpB7D62P0heArxuM8wGuyrQHwnckC70TrHp5n0gtvNtxTBV74sK0B8J1Jh5apRp2lNLeVumC64i/bl+d47se2BsB3JQNaLfA5Vwp8pjfznbLNAfBdyYBWA/yFvCvxqp7ZHXTLNgfAdySthpd1s1tp5qJoD8PmOgVpwYM96tG2B8B3JA08rZZDwTvcWeBd3UNG3rYHwHcj7ZXqOuBdz9x8wRPZBgH4bmSBL57SwgHe+aw1154D8IOUNk2lfOmmQL5Ffc5VGfgLtkEAvhtlKof6gpfU/FyqZr7DpU0ewHciSoZnyGrwRj1Q8iYdc612zffzddkWAfhOJF+q1d+oLlRJy892q+0C+KEJ6Y/fWwFPprJV82ZY5b1tEoDvQEhNZlP0UM6QAl9RzmcsHB6LMX2C6cq2CcB3IKSepehvzhTDFDm2mjsJB/FoZOAAfhhC+lNY30cwvjIWpUrJPQbgh6J2wesxpaTAB/BDUVYPvEc5n9FmoykAPxSRdDBfptW3bqVe3J3RAfiBiE18Eg6+WsgZH4Afhvj8F4HgPbJ70fJj6QLAD0G1wPtwL4oQwA9C2ufwfC8ztzWFCmNMtZEcKdsZgG9V+lfRfC8zt7Z8WvPla8sC+N4l0sEefS8E78UdwA9cIh18wftRr1pMGsD3LZkOnuB9uaPyaAF8z8q9WRtNqCJeAN+v8i9YRhOqiBjA96tQ8JEKegYeAfi+lJ+dvDKxooKnj+mkbDfWBIdnkkOrbN76w+t5ip6G6V5aSNCRyFgzOGpRXxk1Bb8IA7+2TGezxRsHxXAbZwxeJUIaF3x11DXAk0lsMzGxqUUx3MjZz1efXpRzzHcYaSImvy+ONDdf/dbd7yVF/fZpukBJBPDxc9JIRC9fTj3okeM9a3jkEbeaVUlEarvJwdw6vkzmLN+6a9WR6wG8v9RDOWP+guZCHpHzon6hXrO23eTBaxPVW/U8gPdWbo5qD/ARM7wAj9TjWdtNvo5/G4CPIfEozht8tK4cjT0cPKGNcz1p2O88Dt25ukL8zXm18Eisot4relnUB4DHzTrSf8f9+ENWwx7A+4rB1r6IjgXeM/oa4Esphhs6V/DaF1Ne4GPW8AC+NzkWHimeAIMoLncA35ds8E1fsWNCnvHzsgbAdyzkmJQ8hpC3BSn7D8B3KpQFgo/alaMC8B1J/4CNTnNUNBu9U3FetLPsAfDtSwMvv5gqmXysnsLtAfBtywm+cuKLMKFwewB821LgtS+mjK+iixW5K6fbA+DbVLrQwPPLtj+cKZYfeBRs0wLAt6ty8JGE6pkG4FtUqv7km60B4CN8MVVsGoBvUbwhRyceCgfvWcPXNI2+Zu32D+CbKuVj46k1T3E81TUNwLeoNP+OW+SXarO6NTyAb1cCvN519wXfRoteN41+WEGCsM8B+Iai1bsAL+cU9QPfRhfesA3AtyT28LM2eD+h+uYR8DQM+xyAb6Jm4NvO8PyFDBKGfQ7AN1EheJ+ncvEfylnmAfiWlAfPJ4vv66GcZR4Fj5yBAPj64uM2qdmdS+N24VETAwF8K2LjNuKFB/EwzhN86xX8QgdvTXUM4BuoCfj4r1sVGUiHFAF8TJngqWIX9ai5gQA+utoHjyIYSCa3BfBRJcBnweBbfSaXMxDAR5cCry/i7tGF74g7gG9JEry+zmc8oTgG0ums6ac1hgB8fbULHkUyUMxjnjsH4OtLDOAE8u6iB88N5OAXAD6y2JBtGPjuuAP41lQHvKeimEfrIv7CQO4cgG+i9sDHMU8faMidA/BNRBb+aQV8JPMAfEsiDeaQgbpORug18wB8SyKTg/t8CM3VMXeo49sTaqVhhyJZJ6ZEAfCxpX1DUS3f/B6NO5cfeD5f/fbp5Mgli6Kv5ZqXuNcwNIWA9+beD3g2X/3OmeVs46hF0dt05SXuNQxN4QniodhGeoHn89WTzdaJGFOadjdJO6hAZOp6rNxR93z1+iTWzcDHvn0HpYCE6KuCX+Q+4Jdyz1dPJjEG8FVC1dcv1CN3T/Asq08ox5PEJHKcch0LUAB3bzU0ySkv8Hy++nh1fAsXEiSdjoYfIX4A1W9LtQAeVUZaQ17g+Xz1O2eWJtGqR3k49ADKHUb1wvZOBP+OXNyr5/IDz+ern0Y/3peNsyJQoaTO097g/bn3Cb5MYwMfUBajghDYdIWyoDC28VVgRUPZ0ImmDD7IUt0jMmuEJqPxAdkdwEdSqK2iwLeycwPwQdwBfBx5mqhhLSjCW3j+5hZqJR3mBt63Gq7E6jf3uENh2T0D8FHk3fyqBi8/kApTMPd2GvUzA596Z3grP6e5H3XBh6ulpHAenSz4StPE124WVv0nneiiDvjw7J4B+BiqXvlJTEJZDl5OaRSmWtxRS0nhPDpF8GweoqpGmQE+zZ2Q+zXB1xJqLTkcmir4JK2qm1O9INcLiMbgL9TK721xB/A5pfk1g6KBrynUXnI4NE3wiBb13uCNdYPMH8Hga2b3DMA3V4o8umFicW9z5uksV+kHgq8NnarTRJoeeDXTYGnjjk5hooOnU5blK/0w8M24A/hmYhMIy0q7iJmV4yn4fKUfAL4h9Y65zxe83qo3weeXmvAD35h7a3W8WxMHX1Lca/14A7y6XwT4ug9pAoU6Taapgy/Ord7g460WWSrUbTJNGXxWCD7NjDLBAp9yeYKPwR3AN1U1eLPs1kfwxMoS5oFRD9gWaZbgjYd3vGQ3wJsHysFHye5Z14366YFHtcBnZeBLFYs7gG8oZLCKBD4a3WKhjtMJwLvBawcI9QtNBuG9hDpOp8mBz+KC5+1AtrXYx7sXUNfpNDXwWTB43WUe/IXyVYIjlgGo64QC8LpLkcFJ1ja8qhZjSyU+6jqhJgYeNQOfaS05o7dvPKSn8CPfAB2n09TA85W2GoFXQA1Haf5AXHWbTouJgWfftjbN8eqQ+aPVhzWdphPRlMCzbyiagC8pvitf5Wok1GU6UU0EPH2vjEVZF3xFfgbwQeoSPI+yJviqGrxV8KijZNI0O/BpEfgLAL5IwwVPymnxlWQt8Bey6jY7gA/x0s1VGCNudv9blxP8BX6mVC2C7yaVDE0PfE7544VFPYAv1OjB6y/SKfkOwRkryMZVN6lkKA9zI0nIRHd8Y2qg4PkiDCUv1aba1gLvPfQqwUcfyUEdpFJejpkttY2pYYMXb006rNDAl7iqkgJfz3+xUAeplFcO5s5jq9omp4HOV0/mYyfgOXz7vDxIXPK3qevEg73K2OjOmJWbr377NN5fFpsI4Fu/c9kCrzIfO7KiHIXXP5wJvxQtnKKYagq1nkgO5actv2uVZHe+yRk4XPCoDEcx+LAnq+KJ/STBUxXV84METyv4avDyE1oNfOATdRaO8YVdHHWQRrZGDp7NzIxKC2D+UlUapXEnwUfs1LecRm7lYJI1SXYeX+ebnIFTAE8P1Mut7JuqiYInHXiy7hzfmBo4eOPtKE0WeOMNq0C1AB61nEZujXzkjoHXXozyBh+w/h9d0iTjr3kAeD8vLZsvXsAoeyNONe7UoYBLQCIuOrV1fPCo6Nra1VzAl7xNVyojNsTB153n1CnUchIVaALgxQKvAeA9C3prrRoGXgUaQfkoutKowbOuWdXKvg5GXtxdSxTFB99qApVo3OBZkz6rAF+n91a0HCGA9/TSqvEKfLkMRB6fwJQsR2ZOg9hcraZPmcYLPq0JvlLlq9Dxd/siDdmWRtWqxg/ew4ogRKgqWnpjIDRu7uMFLyemiqzKeOVOhFUHUWvJU6nxgvfP8EqV1btXvHInPD1ModZSp1pjBx+U6yq5I694lbJGmd4jtvY0K/BVQn7x6mpS3reRLN4aO3h/Uzx6cZ7xmiK+atGPnCCBGjn4qIu4I894HaqR8WMmRg3NBny1kG+8TgWiLx8s6EAjB+9rh8/gvHe8xfJdWL537HMBH497OfiFX85HDa89huYB3kPIP95KlfTyBpDXmQA8EwqI10O5fC9+DQY7gBdCAfF6iY/oI8ZabIejcYJPA8D7vXQREvUkNHnwni9ZhUQ9CY0SvPgcJl5RHxB3K1fUvcYJnn8VXQne9+X5VqwctsYLnmb68th9uaNWrBy2Rgten8yyoVArRg5cEwbv/ZEUasXIgQvAz5P7iMFThVtkC7Vi49A1TvC0YUcUbpGtVkwcvEYJXnWmi2P2/wy6HROHrqmCB+4VGhf4VPujCrcoLxTXwtFoouChK1elsYFX7TqqgmgD5jmJa+B4NDrwSeIB3lsorn0jEoCfqQqmLd8+nRy5ZFEMT9io4MXcM9ohZ6QBE5nFNG9cck9bvnNmOds4alH0T1DpJaatYrYp7ZArzpAJ7GKaNy65py3ffnA92zoRY2bLmDNtC/Axw5yt3NOWb919Kdt+YGizV3vm+AChmOaNS+5py8lctiMFH1LQo5jWjUzu2avHm+ODZqhFMa0bmdzg49XxMW2NXdSjmMaNTe5py3fOLI2xVR84ITWKadzYVDBt+bD68ancpGVDtqETkUexbawaxcidBj4/CU0DRTFttALwM9V8waMopo1WYwDPlpYrBx+80AiKYdmINQrwpCXvoL5Q4MMXmEExLBuxugUf+MWhKOLJWnHyO0lD4RZxoboJNhUNHnzKwdtdOSIWS40FpZqk2SQ0YPAyjwvwDv80kjoLiTVLtQmoU/COLFsi1ZyT4C2FW8TULNGmoG7Bm+OtFUr5y5UtgEeN0mwSGjz4BYBvRYMHX5Hjay0Uihol2TQ0dPCyjnc3D4B7XY0CPB+5cyjcogzAU40BvPnVlKFwi4A70+DB872I4Gum1MQ0CvDFCrcIwDP1BL6UqPEUtlzhFgF3ph7BF1JtFTyqnVTT0tzAo9opNTH1DN4iq50A8G1qZuBR8xSbiLoHT2HyqS2s4Th+sOiFG0uh9qB4KTdy9Qee7ue7d+miXfARU27kGhp48caF+00rS4HmREy4savnoj7R6er1eyvgI6fdqNULePmorRB8O0U9iplyI1c/4EXrXgev8riW66vMDzIGRU67Uatz8EL8gJq5zvFMpnpgP8gYFDHdRq9ewOu5XGb/1sGjeKk2AfXUuJNHRLmfelXplkJsQY0SamqaEfhmCTU1DQh80Ev3XAGmNEunyan7DyrydK2KP0QBptRPo0mq+0+onOD9eu22/C1BNRNoqur/M+luwKPwsKctAD9TDQl8DQH3upoJ+FqBT1o2TDJluZi2HsBPVjbMjWRZTFs/GfC1wp62LJhbr31oWUxbHwF89cTpAnz7U7SDNOXmq8fI34eLej5tfQTw1bde+zke1Qp64rLmsl0idTyftr4b8LWH7RYAvr7yCxXcfYk27oiser6lee4837lwCrjXVQ7mBi33l7oGXzfDA/jacnfn+LT10wBfL+Spq7gff8hq2I8TfL2AJ6/+R+5aBl8v3Olr6uBRvXCnr4mDR/WCnYEGAJ6qHfCoXqhzEICfqSYNHtULdBaaMvh6Qc5EAH6mGgr4mkLAvaZGDr6EfNsxj1xjB19IHrUe87g1evAF5FH7EY9b4wfvbOChDuIdtyYAHqMXuR4RAXcfTQI8Lu+xOopqIpoIeFCoAPxMBeBnqrbBg4aqlsH3fWODCgTgZyoAP1MB+JlqWuBrf4o1P00MfO03OmYnAD9TAfiZCsDPVAB+puoB/MHZFfz/3j1X2M+91z9TbuLle7Uf2LX8ZzvF1N8gwgWVqo8cT0lKnFXg9/Iki6gvWI437hNQkfoAT1AePH1usf9w8ppnBEf8d/D0byXJvbv4b8HPEZ1fWWgnjBzPA7jnA0mCCxF8/oefWaT7jxbeFyClPsAT6AT++XsXu3de0cCfPbbYO3mMlgH43OVjxDHmuNBOGOB5ACfphjj8qWM4059f6TYJx6leGne4NMb/CKn9R87pOf4cKwkeOYf/0fOqeOAndPAqAOKbeKGNOyjrfdQL+L17PkcyPQaGcbrBP5wkyR3nsFucl4vAqwBoWHsnkx86B+A91Qv4g9/8U5yPS3P8o6KW9s7xxPF9d14B8H7qpx9/+RcIHFnHk1L68mt08PzcgtfxbvAqAAKeOKfgoY73UT/g915HSnHZql9cTpKfedQAj8/Rkp636t3gVQD0NoBWfYCGP3Jn9eNLBP14bw0ffEidDSN33hoB+ADBWL23GoHfOk4nN98+nRy5JDcAfhRqAn77gVUywTmZA3XjaMY3AH4cagJ+k2BeW95+cD3bOrHONz7gD87SJjvfYO2dpCPzeJOsMAcr+nHceiddO74pEYD3VtM6Huf6rbsvaRvhluviYnHR+ju/cvGTd165+Hsri0/+yBX8e//hN168fOcf/9Uj5y7+5evOYTeXkzcu1PFPnV25+LFji0/98sriYz/uCk/+UfAl5+FP/jUEv3Nmic5xjonzTc6L62bjw3Lm6Bzuo++SpzJk+GXvp9+5oh0nDvlAXUUPHXK8t5qB3z69RFe1sHN8GXjyHPWOc2KzkIDJLtkcPP27Z3Xw5qbsagC8txq26skiFsF1/N7JFcKUbxak8l5ZXKb3wMHZe0nHndfx/DgZjCUFwp0APp6agGfcaXFPW/VLnq16OwfjRtzPPn2OkL6XntYad/g45PgW1AQ8W8BmObgfv/8uVnW/SwdJa/CThPdlGuy96jjU8S2ol5G786yMPy+LevJ07hjnTiSKenaclP9qUyYA761ewPMX6tTDtd2E9NBZVifICXh1HPrxLWgAY/V/UlB6Fx0vEYD3Vv/gD3477HiZALy3+gcfUwDeWwB+pgLwMxWAn6kA/EwF4GcqAD9TAfiZCsDPVAB+pgLwMxWAn6kA/EwF4GeqhuDp25XkFazD6/AJ1ajUDPwmAZ6t8Xcu4ROqEakR+LVDT+Acv/MYfZk+4BOq1gTgvRWhqMdFPHnXNuATqtb+uv2EisyO3/unUD19QkXAb921SnK9/ydU7anbHJ8myXjLlxiNO6K1Zf9PqNoTgPdWPPDzq+PnDp6U8TuPr/t/QtWeALy3IvXjD63OcCqUOYOv9NLt1bXg1NsAAAggSURBVAB4bwH4BrEBeAA/OgH4BrEBeAAf7LfvNTEBfIPYmoDv+6kCgG8QG4AH8MF+AXxMAXhvAfgGsQF4AB/sF8DHFID3FoBvEBuAB/DBfgF8TAF4R0zuIUIA3yC2cYB3RwTgG8Q2Y/D0DZy5LkY0Y/D0S5rZLkY0X/DsS5rwxYhavEgAb8fUVlEfvhjRVL6kweBr+8WWdpUmaUtf0gQvRtTm3U3fcOgqL0GOD1uMqM2LXKQdJunQwdM80B74gdXxAF5FQgxsD3zwYkTNL6ioNO8OPK1RZg6++358YarVAF+zSUDSdM7gK720c0GuVOOtumDw9egB+OGA59A7Bl+zDzEv8LF6WiLVjPD6Al8PYKvgRboMB3ykT08keD31ALwKnF/TsMGnXCEXJnwBeHfg4wBPkjAQlosxgFeBzwG8LCwAvAp8iOCtUr0pePJT78p5hiXvl37Bt/JkYZjg81yigM8f8AmjFnj9fpHpWoOes33qiq3uXSm3AD4fRj3wiQt8eKnhCb5ehQDgS8PoHbzVMXG6CgxYGCe3EwDvbMdVg7dbFfrTyj7BV155A/DyKdIUwAtXgeDzWLiXYYK3RiMDA9aNK2uEjA08z60TBq+HFQ28beDowLNriQ/eswEN4NsHb9fN4eCd70u4wRfCMwtfL/DuZoW+D+BLwFsua4AXl28FHADeQOEH3mV6Lvpg8PR+qSyXqCsAXw5eLw+GBN7ovmhhqJiKbwBiYFfgvRcj6ha8wFoCXgS48AHPiui2wBtDgvJgIfgSa7sD770YkbioXK3ZFnj98q2Aa4CnUbcGXg94HOD9FyOS4M3CczLg3UV0/oAF3i5K/ME7nnl1Bt5/MSITvPjER1ypcEfX+LnIrtr67Ii4vlgNnvrXLt/+fCldpBd1WwybjD/hn0XNw5IB03DyYRjXk78WHr0GXgSsp5EdjiCo22R/ipUm6UU3+KifUBH5L0bkl+PFjyHkeNlOkAOgiWoT2jle5sOwHG8VJV45XnYLc2ncbaveazGi7sBbnZq64F185EE9XY0RA3kJ4rWyBuC1+sOMSSZFz+Cb1vFWBSkJ1gGfv/z2wevXJa7HsFjeCYHgVaBmTHbAoq3QEXj/xYjKwefLN8WH028CXh/9sMA7x/fqgs+Py5l8DItLwevheICXB7rtx/stRmTnjDT1AS8yZRPwuXBM8PmbUeShWuCdWL3Ay0LcVSQVgzfL/o6L+iIvFeCTtGPwWllbBT5Jivi0Bl5Y7CqSSsAbByYG3qox64J3pqtWTKe6sVHBy0uoAd4V00jBmy2RavDaBbYIXkQte28xwesXOmPwhpUDAm/1lgB8h+DNqrhb8KY3AN8teOPyATyAB/AAHsBPCHx+0ATAzwV8Lk0APIAH8AAewAN4AD9Q8KChql3wjhDen/H/xF/iOlDt6v16gO/XvSRlBwK8OW0pNK6uxZW2BBpYmKT1BeDLjAPwFSEAeAAP4H1sAfAAHsALFwAewAP4AYMHjVIAfqYC8DMVgJ+pAPxMBeBnKgA/UwH4mQrAz1QAfqYC8DMVgJ+pAPxMBeBnKgA/UwH4mQrAz1QAfqYC8DMVgJ+pAPxMBeBnKgA/UwH4maoC/NZxsiiRNWV9Jg5uHSdrVTGXZC0TNd01Pb2ZiNMqQPId97I7MuJl5wydNts/xKKA7Evh8YqzzvDZAky2xUvi55p21icJXAGSieDXHJdBPGwkMoE8w6unSvDEPldCbtLVyR5YzTaoVWRv665VuWwVPU0vxJzunga1fdplOvVCEnYzKESX1Q57eXAimoLwMzJh+3JZYBp4nyRwBXjXT1zKtn/OtlF4KEsAR3j1VAX+xEeOsmvH993hdbJUCVugau3QE/ggXbrkQWLOJr2L5ZIW7DQLYd0MkPyk/k7TC8EblsOZFxZaFhCi0+p1nl227n4vzz48OBVOQfhbr33IDZ7bu/YOUWB5JoEjwLdjou9QNr72IUpUWsYXg/ENr54qwa/jxKLxLuEb8TMYOrlSkSDqducGq0VsRHq5cjx1skYXvyD38+YRFSIhdUguguMTottqml1OrG8dX5LBZ7lwnOHvPPa+fMnMnTN7s7Ujl2QAPkngCvAjy9lfP6HZuGxGpV2gT3j1VA1++23kSsl9h6PfwFe/pFmpr2BB1jFRy1bxrH380Go+wIwua0dc4UD17Msy6rK8tfxCdFtNNjx4GQUJLtPBO8LfWHLW8Uczbi8t6kVx75MEjgBPfPQndx7/qGGjbre2+pNXePVUDR5HRW5LvINxbd39mcdW1SlSaW4eFkXhUpbZ+TO3iJW8Nrqy3aFVCVmEqK175RdigdXZGmkG6uBpcFo4rvDxL5sTI8TszT68aoKvSAJngH/0K5/+edNGPSqthPIKr548wO889oTM8XhfkCKntHXpWIGllq2Sl7O2nA+QXhuvzPM5HpcvgSG6rSbtR36/cn+yRFWtejt81qZeygWWcXc8cpnyHkngDvDDv7pk2qhHtSZce4ZXTx7gWdN+jRU6GzJS83bnyaqWrcolihEgbdWzAEkiShInWKuelQK+IeZEzm6yehhbp8BbNakz/MzR+1J1PIl97ai6Az2SwB3g5qFVcVcyG7WodmSR6hlePfmAzzYOr4tGLe0RqVObCW+Kie6n2encSJJ8HS/78bw5L1v1qsoUvRa/EPPiJmGHP/rQsgKv+seiCeUMvxg8NxS36g+FJIEzQE5d2agngLivfcOrJxi5m6kA/EwF4GcqAD9TAfiZCsDPVAB+pgLwMxWAn6kA/Ez1/739betlrgu+AAAAAElFTkSuQmCC" alt="plot of chunk unnamed-chunk-1"/> </p>
<pre><code class="r">chartStock("fb","180")
</code></pre>
<pre><code>[1] "Got Data"
</code></pre>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAABnlBMVEUAAAAAADYAADoAAGAAAGYAECYANmAANocAOmYAOpAAYKsAZrYQECYbABAmEBAmOkQuAFIxREQ2AAA2ADY2AGA2NjY2NmA2Noc2YIc2YKs2h4c2h846AAA6ADo6AGY6OmY6OpA6kJA6kLY6kNtEOiZERDpERERSAFJSLgBSkcxVVVVVVXFVVYxVcadVjMBgAABgADZgAGBgNgBgNjZgNodgYDZgYGBgYKtgq/BmAABmADpmAGZmOgBmOpBmZmZmtv9xVVVxcXFxp9hzr8yHNgCHNjaHNmCHYACHYIeHh2CHq4eHzquHzs6HzvCIiIiMVVWMwNiMwPCQOgCQOjqQOmaQZgCQkGaQkLaQtpCQ29uQ2/+ncVWncXGnp3Gn2PCrYACrYDarq2Crzoer8M6r8PCvzMy2ZgC2Zma225C2///AjFXA8PDMkVLMr3PMzJHMzMzOhzbOh2DOzofO8KvO8M7O8PDYp3HYwIzY8PDbkDrb/9vb///wq2DwwIzwzofw2Kfw8Kvw8MDw8M7w8Njw8PD/tmb/25D//7b//9v///+cH3BwAAAACXBIWXMAAAsSAAALEgHS3X78AAAeDElEQVR4nO2dCYPexl3GtdkUE5tyOKEF7KaBwABuU9MAZdNQtgQ7QOgS7FAOB/KWshjs0Hqh2MR4vXU2b9arb83cmhmN7pE00jyPD+md46/jpzk1msm2UJLK5j4BaB4BfKIC+EQF8IkK4BMVwCcqgE9UAJ+oAD5R9QB/eiPj2nt2nW8vPLT9pfOeJ+pGO55cviiD7h4KkxcbY8+szz68du0b2+39a9e+/rH+RfXT77Ltp++r30XQR9e4bilnEVJZ2N5/45MqazzULduafQgVkznSLf1FrXVQAPAueem8c1CKudE8Nxy0CEmjb9j2ohk7u9L9xEaWuP/3GUpxpwWG+3zDPAss0lOA10Du6wjcwmcfvlNljepp8cBIT88hvv4x484OMQ343UO+8+w62xH/G3p2nT0JG4ruWPI/ucwSNn9gLgoL2S+zvZPLFx4+u75zcHJ591CZEdtjGl5G54c7ptaEle7nG0qffUgJffr+1z6iBG799Lvspn/9Y7r/pwzGT7/7xifsHw+pPNn+0699pKKLkMoCDXWryhozocErT+sQRcw3PmH71GF68KUUL8GrBC23/1OAv3lwXIDfPeQ/NiKLkA/ARmUoFx4e0XyCeursYS5x8PzO3//aR095rk9v/j+JXaan195RO8JzywC9o6LLkMrC9qlg6bVGj/XPCrxhrTiEiinA8ydyqqz+YlWebjkzjowv9ymy+i1nvT0SxTlLz8pTgj8qftHqAHvWtJW5xMEzPaW5KicgimEF/r6CsjU878s40l0/IgybIOW1RvcfFeALa/oQ2sojWYuYAXy2e8icWU7M0Qhnzl1U3rgDC1QCvxGleRV4Ef30xoWfXJdHE4eaRwr802ssuZbB8wAsi37jf7Xnp+8zP+74SRGSW/jsw29UWmO/H/HSwLJmHOITGVOU9e9MBH73kO8UuTL7ZYCXSZO5cFZ8hz4JLnj23+mNnQN/Vq+jH+28d/nKVluZSxL8I36/jfxXouIV/lsSlfIUydYBLyx8+v6tKmuiGkcrcpY16xCfGDE/+3CWMt7EKZ0l+CNeI5OBWSg/eIbYV7nT0Slxxds91pQS4B+JpphRf5MlN/stK3LakyMpJMBLC0/Fg+GzpsFb1qxDaCsi+K2JwZtZvZYGfyx9ddLd6Na6AC8MCI9yc05FpwdkWYm2MpdkrV42zXUDTJfKRstNeaqqvdRT4SYsPKKBK61tVWZhWjMPoWKK7VSVu91DvlNZuVO1MMrzCiusGTPZrFNeooyv78BR0ekO81RW5hIH/1T1yRRdLqoebrSkladufW2LkNLC33xY7JetbU3wytM8hI4pO3CmAD+9jqLoyNO1+ii1RvA6i5lXRaqMUFP03E2to0h67gEeWoEAPlEBfKIC+EQF8ImqB/gMilUjg8+hOAXwiQrgExXAJyqAT1QAn6gAPlEBfKIC+EQF8IlqDvBnr96rdDy/nb1wJ8+fv5W99IS76z1vLMgU6RA2NvB39/PPX3pyfns/f3yJ/dZ7n2cvemJBhgjpQH5O8GdXs2yfIaVMacJmYJ+/zb3YRoRSe3df+Aek+AaRbBngn3/7DttlaGmaFo5nr32fZfVnrz3h3rm5B/D1IksBz0SpC6wK/NV9xprm9hJ3sQfwleK8yYLA381Y/k5z/Bfu6BTPOSPFdxJhpTtZTlb/1r7apelaFunf4ZzLZTzAV0uk9eWAZ5uzr9xhmbkGz2r1NJGf335d1+rVHsAXsgEvB/xVNvTnUv44y372j/dlhn9+mzfXVO2et94Za7TjPSK5Cd8AT/9rCR89d0uUBzwB+AREiNlZw8FnAL9+iSRu/hRpPrMfiFoB/AIlE7f+SXKAT0IjgOdzimV7bK6J8oRhAB+J/ODzoSn++MLD0xt726OLJYoAH4GIAq8Jsz0OngwC/+z3DrbPvnm4PXnlMAD4B1BgkQei5UbR033uQjf0p/AipJ2Z8pdULKWffPkhfwCGgx/ruU9XRGTtou0mXIh+Fz8gxXPeNLcH+DglcvMSeLWr2vGN+EswGXOk+Hgl+2eJ21tjgLf79SpUgrlhk7+HK+NHuwGpSnfMe2tyCrzODSrlwjy9ydL56Y0rqNVHKaLAS/autwbfVNi7MGUGj3Z8pPKANwFL8KR5OA567pYl1S2vfuXuWxmiSgGAX5Xsot0HXjTtAH5lIla1rZTV6xIA4Fcmu85G9H+Gk2ro19fuAH5RIiXwbrutaMnXkwf4RakZfF6Az+rIA/yiBPAJShTdeSP43ABfTR7gFyL1cqbcX1MOqsHXpHmAX4iIasGX+mt8gfl/tQNyAH4h6ge+erQ1wC9ERFFsD54A/AqkE7tDshp8XlUH4AL4hYh3y/Mdx90bWG8BfumqAl8fCeAXr97gK8ID/ELUC7z7UscQwC9ExTv4jtEAftkC+ETVZfJCKxrAL1sAn6gAPkGRugZ5Q1SAX646ff7si+vzAPj45XwO3y1u1YsagI9c6qtogE9LxcAbgE9K6qtogE9MBfje8QF+SSq+jpMfx/a2A/CLkgW+Zzav7AD8gmSAH8Id4JclYoDPu76QcywB/IJEcjnpRd/KvG0N4JciOWQK4FOT+si9+h1LJ2sAvxSpeWwAPikRLYBPSnriKoBPSqQA37+r1jbocQT46KSnng+T3iv6AgA+OinwNeOmOhoknnkzAD46SfA5wCcmgE9U8gV8PqiP3jLoqy0AfHSqnciin0GAX4TCg/e82gX4+ATwiQrgE9WwMTd+e43gT29kOwdYmmRmBeWee7uCXJibPSwxOr/Cgs9bgGfrjm1DLj824lqbUHuR0sqjzhKjJ1/+c5bVY8HBlamx5+7k8h6jjiVGV6Zm8CKpI8WvTI3gn/0BJ44lRidW8NpcyX6LWj1N7lhidGKND95VaYnR69nuIdrxI6vEYX7wtRQBPpDK4EcmD/CTy5u4nWkqA/fNtzkLgB9bpWqV9cW6BB+4c953Fq4AflR5FnkvPo/KAX61agYvx9YB/LrkA198LKE8AX51UnOV2U6FMvVN7NjtuZIAflTJj6As8Ob3UQTg1ykF1nQq0KsR7zNwB/hxpcpw47cNvijvJxbAj6oSeLWgkP4UVkxnBvArUyX4ovgfNo9dbwH8qJKfQtWA11OSTwwf4EdVe/BTp3qAH1UV4IWjTOmZCjMpeoAfVbXgZeonusN+yjMD+FHVArxyAfh1SCXj4n/haoK3IwD8KuQFbxXkAL9GERN5K/AT1+sBfhwZ7TaAT0jO21g96qKuzRZwgrMWAvhRpF7AFA65fkNTE8fz4cNYSh38OHdav3srHHIx7qIefOi5MGqUPPhRXo2VGOoBN7XgCcBPJjH6KbTR3Ae+Oat3solRBfAjvBXVYy2Mw6iXsDXHEoEygJ9AZDzwVvVBJ/baQwH8dBoJvFtrdDvmq05G1AOmEMCHr915xlW0e+nKG3QAP4lKg2BD2PSCbxkR4KfRCOC9OUh78KjVT6awt9pfdLQ7xIRj7wC+/NJ8qLX+lgB+UoUG35/dhO/nAF6/HQF4gB9qrXfcMKfQRgBvvDINYw3glwM+5JfKAB8/eDUwzm3ND7r/AL8A8HpMuwl+0NiMYXUFgJ9GBXhRv3Nce5kcVGQAfEDVvQA3U7wOOiP4CQXwRRgSBPzU3zv31NrBWwmw9O0KwK8dfHlohDXOMij4ZSgJ8Gq4G7F9XEoAv07wzqvucqYss4De9TMy7JmZVusGTwrwYhyjNfDVAz4jYhhe36MBfBTg9Wxyelx71gV8V4jTfQ0RQC7MoyzLdg9XsjSJOYMg59wJfFeK43yUM5Y8ixFt2Qqzq1hiVCf2duDlWGuFvzP4Cb91HS4H5ulNvtjcSpYYZfAe0D/kgQD/gCI1/dxlN+Ugex7K4910tLxzlBnlLDFKs/gs21vNEqNEVejVh2lZ0ar3jYik/llRIehYVVt0ij95+YCl+jUsMWrUsYnK2EUmXvkRmwKvagfmN1CtDrhc8FybvTWkeLtjTnbgKfAVJThRXzLrWoH2aUDv6SiIW37wa1hi1GZbAu8HaYMnncGHOPFp5MBkefzpu4drWGK09NVirsC7qdmKVQ2+lurSwbN2/M7BKpYY9aFV4KsREf0du51zN7TudE/RYrTenrt+4HMf+No8QiT1rHMjYGYlCb62V854ladYEt8HsEUEIqsGS0rw6wXvzZsHgq+oFijwYU58Iq0WvJfDSOAJwC8FfA0lUtTQO4FfVEa/ZvA+tQafu+CVky8CWdiLOa7kwDdmyRZ40g58cwdPdFon+JrumUY+xhh71YgzwRMncG19IWKtEnxlztumKHZ76Iv+XU/SBvikwBMz6OJKd6GVgq/K6ltUwpwQRqcdUc+B2aMH8EsAn7fJmJ1SPHPAk2LIJsAnCZ7keqTOApUe+ObY9i8bPG/lZbI/B2X8qsA74TNdnVOv6I3VYAE+KvB13SmdwRfFOCnSeCZf7ZLaY8WsFYKv75zrTKloCWjDBfjlCuAbzRXNdgv8QrN4JYBvNGfuqXZctvQEvxrwRfprSIlBcAF8POD1NzINla1w4EMYmk+rA9/03hXghdYBXg+BmajKBfCxgM/5V29kqrr20sZSe7QC8HKInGpiTQJk6Y25FYDXQ2SmBb/0BL8C8ESBb/jeJexRAT4C8MXIuMkyYICfG7zxNQPAd9HywedzgA/UHzCjVgR+2ro2wM8OvmhVA3x7rQF88cXL4lvX02kd4PV7coBvq1WAL34AfFstGzyxy1qAb6+FgycA31MAn6iWCt4Z9wp11XLBy+9YoX5aGnjnc0WA76tlgidTDrdZpxYMHsX7EAF8oloY+KJPHtSHaXng5Zv3wIaTE8AnqoWBd2YfgnprWeDJGj5liEOLAq8+kgL54SrDZKtMRro0iTXOChqkMsyjbG8b6RKjAB9OJZgnX3pzL9YlRgnxLw0KdZezxOj29Ob3bkS7xKiaZAwartLyY1dYNh/pEqMAH07u2rJffngad4pHAR9GDswjnu9fmW+J0foZqwA9mPzNudmWGFWThvoJA3w4RdaOL+Y38PoCfDBF1nNH5BRyZcRovYdVfOCJb1AVRlaGVlzg1ewWpenqMMAutOIBT4w/ziwHBK9mgisq8Hoio9xeAYCghA+uSMCLvF1PXSa6aSzwUFjFB77om7NW+YLCKhbwvi9jigcB3IMrIvClF+3SAQl+DMUF3nVUFfzAFw1FBb7EVy/wB/DhFTN4jKUeUTGB97kimx9J0YD3EkY+P5riBm9230FBFQ/4Kp9AFwrZAvhEFT14aBwBfKKKAjwabdMrDvBI8JMrEvAjXyVUEsAnqtnBW0NtoMkUAXgMnJ5DAJ+o5gYvx1xNcamQqdnB5wA/i2IAj2b8DIoC/BQXCtkC+EQ1O3hwn0dzg8frmZkE8IkK4BMVwCcqgE9Us4OH5hHAJyqAT1QAn6gAPlEBfKIC+EQF8IkK4BMVwCcqgE9UAJ+oAD5RuTCPs2z3MNYlRqFwcpcfe+WQrUIU6RKjUDh5YFL4kS4xCoWTu8QoFU3qkS44CIVTeVHhyzsHsS4xCoWTByYljhS/evlgbvbmW2IUmkgOTJnHz7bEKDSVSsuIZxkt49GOX73Qc5eoAD5RAXyiAvhEBfCJCuATFcAnKoBPVACfqAA+UQF8ogL4RDU9eExXHYVmAa8nNcTshrNpavDEWioey0/NpsnBmxPUYz7T+TQDeL6RCR/c59Kk4M1MniCfn1WTg9f7wD6rps3qiXcXmkHowElUAJ+oAD5RAXyiAvhEBfCJCuATFcAnKoBPVACfqMYGD8WqkcHP/WBDFQL4RAXwiQrgE9Xc4DH6aibNDh4jMubRIPByquujjG99M2UBfKwaAl5Odb3d7LFf3hmvAT5WDc3qKfzTm3zuU+9smAAfq4aCp2mcZvFZtufMeK36hx7k+YO6fxR8rT/+jfRvGHg+1fXJywdbmuq9M177Uvz57X36/9lrT9gPkv/mq/fqn83Hrxs/zl69p/96Q0u7UIOGpniFerPnnfHam9VzkhJnM/gSyRrq2jrUpMHNOVGzq5rx2gueoTz/4E7+/K3sxV9i4BlH+u/8g7/Lstc/p/9y7nePh767nxseVooXgc5e+36W0UyE+rMoz9+ufS4goSHgZebONqfvHnpnvPaCZ9AZ/Luv559/4YkB/val/OzqJbbL/B5fYoEpx9zwsMAzAy89ObvKNywgj3J3f9I7uFANSvFyquuaGa/9tXqaG9O/jNTzL94xU/wdkRN8+w79y/2L7EF6mOC5Ae7EYrMoyjrUqFl67s5e+z+W6Cmw85+vAP8WbRG8wEjStFwFnhv4QIGneYKIAfBtNAv487/9D5qOa1M8T+1MrVM8C8yeEoBvpXn66h//CYOjy3iWSz9+0QQvi+9clvF+8KqMF+BZcB4FZXwbzQP+7CssT9a1+vxxlv362xZ46veCKLN5rd4PXtbqZYq/m6FW317xv53r2iODnL6V4gffkSR67tppAeChMQTwiSrEQAzZc4OBGEtSgIEYcgRGh4EY57d5lZ1tfoGDP7vKK+R0k+2LAKJJJt1p7Z210+QGCqEAAzHk25kOAzFoC421uNnmC08II7qfP37pCWvGiYbeY8FfurPH4PGlXG6gIAowEEO+j20/EOPHb99j2x//9j05EOPstX978Pzbf/afl6j/3X36+6u/87ssrHRn4X/06j0W/ke/eC+CQQxr+BdgIIbxkq7d+3j2HvWFO2LDs3rWBJPvWNjm/IN/FFm9dLc3E6aKNSvAQAxviq8Ff3WfMeWbn9NZPe+oO7/9Omu4yzJeurNigRKXm0lvz3oVYCBG5zLeTMFfvCMrd7/xwR1G+nXubVTuqDtS/AgKMBBDjsBoPxDj+Xc4Qb4R4HPxMoblAaxmx6S666g793pVbSa5LetXiIEYndvxd/fFCByd1bO3c5ckdyaV1Qt3lv8XGyiIZum5kwPqirdzn2eshS6SOkPOwJ9pd7TjR1AEXbb/fs/vVeUOhdD84H/r7/0+5xXuUBDNDx599bMI4BMVwCcqgE9Ug8CfXGafyWJihCVqCHjWM88+lcXECAvUoC5bhnmzh4kRlqgAb+dWNjECn4crgvOI+n38lr2Z6ToxgqX4Unx8ZzSKhoF/dv2K3OsyMYKp+G5zfGc0igbW6vfUbpeJEUzFd5vDnVHUkzcOGmUruHeeGMHUqsFHd22GhoA/4tW3ve4TIxiK7+YAfCP4NlGajh/fzQF4gI/G0ggCeFcAD/DRWBpBAO8K4AE+GksjCOBdATzAR2NpBIUYiLGuiREAvhG8HIjRfWIEQ/HdHIBvBC8HYnSfGMFQfDcH4BvBM1V9Jr3ggRh5qIEY8V1b2IEYnSdGMBVfqkCKbwGeD8ToPDGCqfhuDsA3gxcv5FHGj25pBAUYiNF5YgRT8d0cgG8ErwZioB0/tqURhJ47VwAP8NFYGkGRgI9oPCrAA3w0lkYQwLsCeICPxtIIAnhXAN8GPO+qCzAxAsBPrWHgjxnwEBMjAPzUGgR+s/MeTfEhJkYg8XxgCPDN4EVWH2JiBAZ+/nfUcbyPZ2kg+vfxDHyIiRGmS/GNx5k9xZNsilsRonLHNHBiBIA3oi0M/ELKeIAXCgA+xMQIAG9EWwr4oRMjMBThwXsNkhbHAfg24BujNF7laOB9t486ArwQwHvOKNQpjAE+1H0CeCcEAfjpwJM2ZW9H9QWfATzADz0FgK+5joHgK6MBfL1WCZ7XGgC+VgBfCrFC8J5IITpwBn5QAfDlU6jxjQI8H4gxdGIEMgQ9wLcyGRi8GIgx9KPJiMBTX4BvAV6+jx84MYIJvvtgB9+gBTaog96+B2x0h+gbUoMssvrjUP8s6ECMPtfETqHav9eAFXYfwg/EGDoxwngpnjM0DWvwVdYEeBViYA3asNQpWugU773ksVL8SOBLYRwHQtT/Q8Bn/cGbUarB150CWQz4Kcv4BYFnx+kDPlsM+KETI7QH7wlTB540g3cM1oPv9mSSnik+q6+BRgQ+VDs+OPgWKV6GMPwDgJcnMQB8TXOgI/jKV5/z9tzJ7LAA39ja6gq+MMw9CvAFHR94w46ZeZsnUoVUHwDga07LTfH1Td824BXloeAtO2YUGa7iRO1L8d1xQgA+CHjLSecbpASe5y49wefEvoHN4PnRuoKXx8uqs4pSLlRcSm3wyMGLu1V3FaVrcEoI/TMrg89L4AmxwOtoIcD3SfHtwJfu0grA1xaMdeALMu3AF/lLNXgp0TpoAd44hdKlmA/mYPDuwevBe24aU4zgc+duOVch9wqnPJc18ZHAt0zxdc+w3ipLFZQ6gnfrHt7gfvTxgSetwGfV4CWuzGfcBK/ozAS+qhSoAK8f+IjA958Ywc9mKvCBUrwF1QveiFgB3qh3VLwuaATvoUusE7IVAnz/iRGawRNCikuycXQHT2yk5uGnBE9IOPCFJX0PDKvmhYQHP2BihBbg3RtYhMotJwtWBfjMB96s6DeDLzKc1uDN+14HXjq3BE+MKDOBHzAxQiV4/a6d/ijea9uhHjxQcbMy1K7gxfFqwcvDy/f2akIH8Y/vN4C3wjjvyFU4Po4g08czxhsQPYGE9M/0WAN5Tuys5FgE+c7eBh/0fTzTgIkRmlK8dQOdFG/U0QKAl9a6pngz6fZP8WY8I8UbqVkf2LzcihRvHG3cFM/VdWIEfbLN4ItS3goVGrwRrR34go1w9YO373sj+CKrty7Ze7kFeOOmWBEnAd+tjK8H71xQBXiLzejgzRvogs+ltZJxR95nwQlhgjeuruk5917KuOB7TYywZPCElMF7G48OVNUHaKNwz6kn+FIFd3zwvSZGWC54Ui6GFZmycW80M1QH8I5D83mPDr4uygrBZxZ4bbpNis/cMMK5dJKrBK+qp03gSzdwjeBdOimA17fHuVsAv0rwhDgElwzeMg3wjeCrb04teCdUmzsB8IblGcETRwCfCngPQYAHeIAH+NobCPAA33AnAN6wPC14KFaNC75k4a/5H7kx/9C/mevgCVP8yfyhfNGyVqEaTXucsnYnYJqtCFUy3O4EWl/bEHgAX3IAeIBvNg3wAA/w9rm1ZwPwHa8N4FsYB3iAb4gG8NCKBfCJCuATFcAnKoBPVACfqAA+UQF8ogL4RAXwiQrgExXAJyqAT1QAn6gAPlEBfKIC+EQF8IkK4BMVwCcqgE9UAJ+oAD5RAXyiagW+mMdY7/Gdk8tsUnv+U+zpGVC59zFf3aSv2OIoe84Z2Pb7HJdFMOwakjb6XpMwfEX93OhDyPhFRK9dsRqIY5HNIrwpHU7Gp5uOBi31BH/MDsomNGcT22/Vnl7JhHuzsKUZkFvriE2Vf13dSHFc236v48qFc8u3RNrofU3OJN8avIxfRPTaZRfsPo4nL/8KvQW/704eLuOzzREH3dqgpbbg+aLyYsMua+c9unN8UV2h3FOznAtvz+1oL2ZKrmh+Pdv5q+vZ7uF2W7Lf/bjCg8/DL21e57M1K9u9r0m5SrObb8mMw5j5XWwq7J586U0X/Ct/SIl+i914nqRpCGZZxueX8M1OBi31A29cp17GgO4V6xoo794p/pg/zPQpZg/y8YX/LnhZ9jsfVwRggTdyofQ9cSxjTYZe16R8hdnt5sLDE+ecjYhlu6c3v1fK6l/5l73tf1GKPEnTe395z4hfpPjWBi0NBM8mtBdie8VKJvKiL+8cuLZa6ljcJPpkC0sisVwog+94XFlm3OQ3jiYSbaiw0e+aeBkvigqW9limITIOFd+I6LF7dKVcxr/yw189ffeHsnZjnKo4Q3NG+XYGLQ0DXxTCfK+cOkrrmrSVAE/Pndm0cmgbfNfj6hTPl1vaORDmTds9r6mofvKZ/n9wIMF7chKPXfrLA/5f/+Inf8TtbljN0LlmWhE53j3sYtDSIPBF5iP2ivJMh9vUHbxGuow37ZXtdz6uzjrEAYwnSNroe00KvDDLwogbb67uIiL67B5lVptAWfzBX16h/7O6qHHvRXxjnai2Bi01gmfG2X1iRcquDd69R9tiJRPm7V3CqrXowfiTzG4fzfRkrd603+u4Ra1+w3NHYf5Q2+h9TUYZzwJtLuqWCI9vZMQ+u1tfc45WNWmWJBPdywf2NRcpvrVBS80p/lgsUkIfoV/7pg1ePFXMutqzm5JyeZOeOpa2ebX79Mbu4bbcVO1+3KIdL6vzqlYvbfS+JqNWzwLQWv2Oyth5fB3Rb9cPXlKnUX7mzT3nmo87G7SEnrtEBfCJCuATFcAnKoBPVACfqAA+UQF8ogL4RAXwier/AZsCCzVcKgc7AAAAAElFTkSuQmCC" alt="plot of chunk unnamed-chunk-1"/> <img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAACLlBMVEUAAAAAADYAADoAAGAAAGYAECYANmAANocAOmYAOpAAYKsAZrYQECYbABAmEBAmOkQuAFIxREQ2AAA2ADY2AGA2NjY2NmA2Noc2YIc2YKs2h4c2h846AAA6ADo6AGY6OmY6OpA6kJA6kLY6kNtEOiZERDpERERSAFJSLgBSkcxVVVVVVXFVVYxVcadVjMBgAABgADZgAGBgNgBgNjZgNodgYDZgYGBgYKtgq/BmAABmADpmAGZmOgBmOpBmZmZmtv9xVVVxcXFxp9hzr8yHNgCHNjaHNmCHYACHYIeHh2CHq4eHzquHzs6HzvCIiIiMVVWMwNiMwPCQOgCQOjqQOmaQZgCQkGaQkLaQtpCQ29uQ2/+ncVWncXGnp3Gn2PCrYACrYDarq2Crzoer8M6r8PCvzMy2ZgC2Zma225C2//++vr7AjFXA8PDMkVLMr3PMzJHMzK/MzMzOhzbOh2DOzofO8KvO8M7O8PDVzMzYp3HYwIzY8PDbkDrb/9vb///dUgDdzMzmLgDmLi7mUgDmcy7mkXPmr8zuAADuAC7uAFLuLgDuLi7ukczwq2DwwIzwzofw2Kfw8Kvw8MDw8M7w8Njw8PD3AAD3AC73AFL3LlL3LnP/AAD/AC7/ADr/AFL/AGb/LlL/LnP/OgD/Ojr/Omb/OpD/UpH/ZgD/Zjr/Zmb/ZpD/Zrb/kDr/kGb/kJD/kLb/kNv/tmb/tpD/tv//25D/29v/2////7b//9v///8LyiopAAAACXBIWXMAAAsSAAALEgHS3X78AAAgAElEQVR4nO2djYPftlnHnWajNGG8pGUD0pVCQUC3LuuAcV2BjJIOGAulKeMlhd0YIdDL2u4ORlcasvI22Ngla1MDm1cCHVkG7VhDjt35v0OP3iVLtvyz/bNsP982Z/9k65Gtjx9JtmUpy1GLVDb2AaDGEYJfqBD8QoXgFyoEv1Ah+IUKwS9UCH6hQvAL1Qrgr57KmDZeOsGWtz9nbxfBG56omyrwyrEjYtfD57jJI42xR9YrT95//3vy/ML997/7k+oX1Zc+CMuXH5O/9a7P38/0uAzme0oL+YUHXghZY3s9bluzk5AxIZAu6S9qrYV6AO+SF8GHTldibiqemww035NG34TlETN2drz9gQ0snv8XACXPaY7hAlvARo1FbOTgFZALKgKz8MqTj4SsUV3WF4zY6Eni3Z8E7pDEesCDk+bACFb4X0MvnYArYZOi2xX8rxwDx2YXzBFuIft+WLty7PbnXjpx6PSVY4fPSTN8uQsFAY/Oktul1riV9sfbl155khJ6+bF3fYwSePxLH4RMf/cn6fovAYwvffCBF+Af21NuhPXL7/qYjM73lBboXo+HrIEJBV5utJLQMR94AdZpwPrBVzxegJcOLZZ/ocE/enpXgz98jv3Y5EWEuAA2ZYFy+3M7tJygG1XxMJYYeJbzF971scus1KeZ//t8FXT5/kfkCt+YA6BHZHSxp7SQX+YsvdZoWn8gwRvWdBIyJgfPrsh1FfVHQmW6FQwcgS/boov6nLHOd3h1Dv4sNwrwO/oXbQ7AtaasjCUGHnSZlqqMAK+GJfgLEkpubLwg4ohwdYkANk7Ka42uP6/Ba2sqCWXledGKGAG8KH+hJGZoeDDjzhtvLAB2qoDf5LV5CDyPfvXU7Z8+IVIbvajPIb/BXavg2Q5QRD/wl2rjy4/BNhb4gt6TWXjlyfcErcHv51ltYFkzknhBxOR1/SNrAm8V9ZKYAV64JoQwVmyFXgkuePhz9dSh0/6iXkXfOfThY8dzZWUsCfDPs/w2yl+BijX4Hxeo5Ebutg54buHlxx4PWePNONqQs6xZSbxgxHzlyVHqeBOnCBbgd1iLTOwMe/nBA2Jf405Fp8QlbzetdYqDf57fihntN1Fzw2/RkFMbGRItDl5YuMwvDJ81Bd6yZiWhrPDdH18zeLOoV1Lgd8VW5bqb6m6dg+cG+Ibq7ZyMDtcGtaisjCXRqhe35uoGTNXKxp2b3Cib9kKXeRi38DzdOWgtl4WFac1MQsbky3U17mzw1cadbIVRnsehsgZm4rZObuJ1fP0DHBmdrsBGaWUsMfCX5TMZ/chFtsONO2m5Ud195XpPYeE3n9TrVWu5CV5uNJNQMcUDnHWAX792kniQp1r1SWqO4FURM660VyaodTy5W7d2Enlyj+BRMxCCX6gQ/EKF4BcqBL9QrQA+Q6WqgcGXqDSF4BeiwvmN4JchlzuCX4aK3A1B8ItQjuAXqRzBL1MIfpkqEPwiBdwR/DxUVG7PavbNUwG/d89TwcCDM9ltZ8ty/6HsjkssXK15Yy1UlGUFfVEUJLTzBMCfP1nevOPSwZmT5cWj8Fut3czeguClHJSAlv4jxEeec08K/N7dWXYSkFKm1LEB7P7DbBMs+F5y7fxtv4seL+WgFGhzkpEK31xudDeMCH7/A2dhFdBSn+aBe/d+FIr6vXsvsc2luYbgpRyWgi0B8Ln9cFaTcG2MXNRT6hyrBH/3SWBNS3uBW68heCnpxLRWZ39zwrkz8CxYwC8KTcI1Mir481DIQ4l/21nl8YwzenyNFE21QpmTnJQCvHVZpAh+/6GTcpX6tajSf4FxrtbxCF6pcDOZ+7oL3pFrZUTwsNh751kozBV4aNVTJz84c59q1cs1BM8F3G3A0wF/N3T9OVpezLLv/PmTosA/OMNu12Trnt29A2u8j3ckwWvIBni6CMB3zeCTu6kp94MnCH7mEqiJAz5D8PNWIUlb4LnPZ/YFgeBnJNakF86twecIfu4aCjwbUyzbgLEmqgOG9daqh2dLxS3185r4v05OHEMHr1mhb7zJ9qVh+0VxXUe+Ve7xXzeL6zyt2hQPvva/9QcECcvjeUMdnDwYcQh6cY3Z/DaN8+q3nUO7xm1BeMNByXt4P/i8q8fv3v7c1VMb+c4Rd0Nv4OHk9viJlmUE9WocK/9N8JTuPt2L7gnhb7wOYSIArgmqm6+XEeD3rjcfU3nDSPkmI/kGvxZEinJBA9+4zo6NxqA72ocGm3g4XJWN4IkErwjDGgNPOoF/6b2n85cePJdfucsdWmIV8NsePfOvL25vf+pvPrf97D8U//Yi/BT/f+Vvi+KL2xD87/+ktn75C/SvjvPMP8M+5q5f+OL20wXsCvos/fF1tnz28y/yWDJgG0LYLx5M/z77+b8rvkpT4gszxae/zncSgZ/6a5rmv3xu++n/+Iyx02e/KHfafvYfPwcmv0wPRqcoFs985TNs+9Nf50ewrQ+Nbfr8iyJ8+7Nf/XtpMCiyze/cKHq6zkLogv7kmwhpiC9U/ZIKPP3KO55jF0B38F5vYt4L1/mbcJ2ron6vYL9ZMPUEuqBuscd9SMZhTmTvWtzapxuFBwmHobtBAvuqiGBrzENNj9+nJe5NtTBTvHFLejw/SFpagDfThbWTOieW/MHX/k8XPyJt40iozes3oEjXhyY8XoSXTUU9ZCl4dina9dy7mccT+aZmVY9nvGlpPyR4ViVeZ5QgX64Z1TzQuMaqQ8iTfVULyDiCrrnra7c0X1GPH7zGrwu1AQJKXtbb4G+xpMRCp0h/iYTlQV4vv/HN153DuuFQfuNNXe/wFNmCFfW07qE2eVPDODRe2++pJkgjeFaaV8HLVXkfX8HfCB6Yr8PjaRbpHLbAQw4wGlSvyvyXcWhuQ3NI7iqyf68QDsNr2n1aHpSmx7MAH3heDsiFTnHvemkkDEdzbf/aHv1XmoelwbN0967rBodIkS/o4X3ra3DtiGPShwZNj5vXjGOtBa/u4RV4o4WnwbPrYCvPt7bagN+Ewd/7q+OD4CGj6z3eIG7EAd9wPV4jZ27Da4f9azqyaH5L8CKPecUhvNhOUV0d0uPLG/9D/f2br5fmYWnwN1iBwkqlN40U99R9CI0GCXPA+tCE7+9Hgee3chx8oCXHwW/lqjSIBn/1UfDzq6eOD92q3+e1uFXHi/zQdfxNy/HEVQJuYu5a3ILsE75+TeU2FLK84lfZL+v48sbrshB+HSKKhZHijVsKAQ+kyfBa3jwsBZ5eNWLlNRP4nm7j0yO5wVsFrFxQh8Y9XoRHgCcSfE58FTrZ4sjVRaGcvgm8KODXcx+/z25iK+Bp8H/TnNxn5bdVx99ibvWfvJZghfBr8IsX/5KtvKsW1ec1HcCdDHL8BnfN/Ve/AWmIhU4RQPIUXxcHqRCZh6VagEZb4paRokz4JhwJuziEMXVosOlVHV4LXjq8C96EL4p6orrjKPJN4Gsp9gQ+QhE30YGI192Q/1Jr6j5eSbe8V0rMvI8fXgZ46em8Pa+ze0s8zTHAS7nWEgRPvbhYkUQp6RrWviXX9JM7tbETeP3kbj3KJXhdwjvgwbvFrZ0Bfmsq4FF+SfDWm/i80h1H9MAzPH4LwU9ZErVdpRvgt2zwTsvPNYfgpyJVxdvgVQGwJYPknby9q2sOwU9E4r1cGLwOlODNN3gIfqpqAG88pPOC33LtIfhpqJCN9dwL3nw4mxvgw+QR/DRUEOIF73sZp8EbPu8aRPDTkLyBd6t0/1tY3tq3OuS4BhH8NFQLfsvNdgLjJtjv71yDCH4akjV89fMpD/ecwOeyhCD4yavQj+ycst1X1MsxUQoEP3EV4rG8D3zV32kpL+Ih+ImrBnyVuxGPFAh+yuI9MHzgfe5uiPXRQvCTVRB8lXvujIKG4KesPDdu2GsGP6hyR/BTVo7glykbvJanoK/wRfDTlXwvtwp3BD9dqeELY/K7EhvBT1YFf90WBb46pjWCn6oKt2etVPOtHEjFdDcg+MRVVD6HD3IPgOeFhbsBwScu+VV0RFHvm7yAxisQ/AQlv4qOqeMR/Iwkv4p2wUfdy5UIfqoqNHg7Y1uALxH8hKS6UsiPY5sVsIPgJyUOvpDj1EZktX9eKrCD4CckA7yHe9w9vLSD4CcjwsHn3u9hEfx8RTh6EvuIPsidW0PwUxF7ZFPmCH5pIqJTfO5t18XeyilrCH4qEg9pewNfIPgpiCj5wftUbw/BT0LyrUwL8LWTS0NzAcGnL6LBVx/VRr+PtQwi+ClIjFXbpoZvBE/vEJxABJ+cJHh3iKuw6rmzqgPBpy8BPveDb9ukLxH8VFQLfgXuCH4iEi/g86aPZqQaCnp5l+AEIvjkpPpOVNW+YccNIvhJKAjexz0KPEHwU1DY41fijuCnohD4FR0ewU9FgU70Xu6x9hrBXz2VHTo98NQkqHrFNucjubMuHY3gNzeGn2IUVa/CC361Fr1QI3iYdyzvc/qxuPkuUQOLVGYedaYYvfKOX4GiftgJB1G1KqJzN9rhZe9NQw7MK8c2gPqwU4wuT0VRKE50WdQRG4J7BHju6ujxvUqyLPgFwNYad7a0coteqBH8Sz/DiA87xejC5M8ZYwd6OUBrrtDXhSsv917BQ6ueuvuwU4wuTKG8KQA5LPMW92+mWhyDi90zxeiJ7PA5vI/vUT4n5pwN/64F7/f3NlV8BPhaii32lVH6y8CJylt4VzjXPZsPcEfwaavKOK8MUxk5ppUjBJ+yiko/WWvsMgG+pnNdyN8RfNIiRQWqnAM019/B1oAPc0fwKYtUoTrgRd+6FYr6VsdRCUHwg8oHXn8sITeGwG/V+DuCT1rEM0mgqUx+E+vpR11LPW8HvioEP6jER1Du7JBCxsfQ7Yv6NlW8Rwh+UEmwRpYQjb4UdX1k/3lbCD5hFbIOl/lhuLj1bWTECMWuEHzCqoIvxZcSAryc9Hng5zceIfghlQfBM+fX4O1ci/B3BJ+0BPI68LkAv6XhR3Hv2KhH8IOqBXj6r/EGzlLHQ0PwA6oIgeeBwtMzuQ8s4+F3PDYEP5yKvB68mDmSqAf2bXK2YxWP4AdUM3jm3kT+RvBzEFEzwobBW2oHvit3BD+UvOCJAX4Lwc9RxETuBV/pf4Xg5yDjvs0HHhrvncB3PkAEP4jkCxgh1euibpaRNgOcIfhEVZkrTva3YOD99+oMfNz0M91L+sWDr35i0otV+e5N5gMfplLMKxR4RkPE3IIx+Yrgu8o3WISjov4jR7/VwmaoOtzUFvUkFnx37ggeHpXzVfntWmGT5l9EtDNa+sDLoj70ULZSTISF4DuLvxUtq18riu3u7zijopOlC54tww/jOfgMwa9BvL8j8X7nZH+92q4Xu+hSpWJL8KGP5Hha0eC7N+qXDr7sOJ9fwCi8kHW61qqvpTwS0XLRDmg+mB5OHMHHdnxqMe4IqYxfpMBXC3qjPcFu6BD8WsSr45hT6QqeycPdihgHvocqHsEX0Z+qxma3t80QSKIs7JhF1LM7BN+DiviH5HEGSRh8xd8rcUs+Kkq9+uC+ePC+l+YhxVkMtxkq3CsE2UywwbFTgtFW0aLAex7BtQEfOYBo7PN2D0DxKKlttFW0JPBqqDEj6yCAtamiCvyYPO8BfOl5oKTVR1YsCryZ5YUZFg8+bpDwyKHqPLaMtwZB9L3kxZLAe7OPrctXpjEnFDURiI9Z9UbOF9f+WR33rvXroqAWA75yaIXyqlZfKkdM/RM3KKk3biXEstUf9sWA97EoCtkxzh6QqGHUuaakvOA9b2a8cT1HXor3hp3zwNYywAd8UDXDnJGoOoD3v1D3cPeCHKJTSECLAB8qezV43r4TPxoGGK1NqluVgeB7VKCRDbI8PjeGG6w9p4Ypu+NGt+i75G6tBYAPH50Bnv3tBXzlmeuqk0cNq7mDtxyw8u3KSuBroZHG2Fxry4CQFgJedGu3js14E98r+Bit7fyDWgR42d3NglLt0RoLvo585DBG68uAkBYE3unA6j5T39oSRYC6QmoHKfA+cPU8pk+zhp87eKLB836MVsdXlxLv8LbFu70J6mH41UcqXvD+uGNkhq1Zgxcd6lSXdqsno/XJMh+hgG+Hv+aIBUG5+KLnAk6AewX8TpbB3CTzmJrEHEGQcfaC39IhCjz/KcKDXm8D9HXb9MdMEfzmBvydyRSj/JPVBvAGGzHYoMDftvOb5yuYwBUzVn6YcmBefZRNNjeTKUYB3jb9j2xz8NsUqbnNnXZTfFbD9vJsbkqtbB1lRDlTjNIiPss2ZjPFqPichcibdlmI56ogt3wSwGdyTGkS8yzGSizuu7c0HL4y0+Sdp8Hr5zDFqNHGJvKLBl6IiwsBtthlsQSf5xXwJFhfF0aCDvh0a3h/q35zYw4ebz+YEw/wJPhADU7kl8zyfkBvyYOfuTL0xAO+h/nihpMf/BymGLXZVsD7fdgGT2zwQUFqRbG+b9v7kAMTyvirHzo3hylG7YcpJnjpzT6PrAEPP4I3duLRoBHUxzyBA8pzH3/o9CymGPU9RZPgw11qCVHgra+Z5FUQHMaEOM/+w0/8xssSU/N9ctcAPjwuRRV8pcZ3ouTyPjAmS8bLEUszBu8BJcDXfjajwetxhrkvizjuJUOIaBpEVfHjZYit2YL3ttsl+K3VwPvJK/BGWPi93mgZ4mi24L3lrgC/taLH+yOJp7xmgv1MCDuoFgk+r3vzph7g1IB3nveR6AFVEPzg8s/bnpGtrRjwuQteBgmZ5OWLIO9GR8lwXx74xgfwFngSAG++qxUXkr84cITgh1XgzmqLgW+QPV+Q7LXFgqpFRaXqb5hTZpzs8GmW4H1dIphiqmJ7SHnZa4v9clwbuunleV1D0dUoueHXgsBvtQUP49F4wcsd2HNfbbF5BqlRcsOvmYL3DCEEVIJFgSG1B9TH6mEs3+K82ZPP97Yipw1Lp4afLfhwC84HXnyFLMYwFTtwU7nxMJZI7JkDPjIzUuK+GPB2G1yhyAGwA4QUPFj8CoInueqpEycEP7CKKnhdEFvcS994A6Q0gx3w7C4vE89zzL48zUqK++zAF2L8snBRb6zHGGQPYyV4osDLlz0IPhBlvWcjBwtywZtdqPVqlEmiJw8g2scz8U6fNPTNMTXwubfUjMDzKtvn79YD1rYk9J2AMqzBt9GwZ99WswGvH9G64J2etGotsujV9/U2+PhGndCw599WcwFvPJp3wLtvz+VK9GDU3Dpt7xEVm/e7aJcVaVXxswGv/a/BE1uDZxLNfNGGKFYAnxj3uYAv9DcytQW9Br8iCH4F1M8j5hWCH0S58VClrqDvDJ6rPfjUuM8EvOoCE9/k6paeDZ4/8K1NDsEPoYJ94Zq5H0Hkg3V6lA/zxASF4iiqYw73lNwQmgF4mMhF+nxTQd8XCEhJjC9r+fJAyQ2gtMFHDN1LBPjcBz6oriVvcC7iYZIbQCmDh5KzcSdetcs5PSPBdwYRnoTaP2ll1/T6V8Lg42bzJaqnROUV6YC922tmH/eQT5B7wuDjcs34msEFP+RXDXXTzlfIp8g9WfBG7jUMGpyHwIfVB4maEcYr84n0kFzvShS8mXex4O27+Lo+cCselJ1wzTY7tSS5TwF846DBRheZKPArHpOTcM22AZLrXWmCtwvLxtGi1RcvUUX9GjzQTG741FZSmuAdK+EdC+sjBw1+5M+YYlsoI2oS4IPknU6zCvzon68Va01tFU0bPLG6UsUU9b1P4xWQ7Ki/ntRW0DTAB/LPfQcrwE/iM+WxNWXwlV5WHPzQN3Lz0DTAe2daL+o70PvUNbdmpOmCd6YFFar/eLFrbs1IEwGvP2UTi5afrTEl3NRav6YJnni729RX79iwszRh8NXqHbnHayrgJbZa8HXqJ7vmo4mBJ4T/DQx1UqO+Mmwumh54EpjnC7m30nzA16q/DJuLJgaezzTjKejr/R0bdhVNBTz3WQbdM6IVNuhba1LgoWm3wofp+ODGoypMmGVy7KlJPJYgmIIviG8mCPT31qrC3Mk2Rp9iNIDP6mBnCJ/Pt1cF5pW3v28j1SlGCfFPDYpqL2eK0fzqox85Nf4UowFrcpAxS7XdrLB6D6ky/dhxKObHnmI0YM0LPix3yEqUIXdu2Xc8dzVtj3cGOglO+4mVe70cmDus3D8+3hSj/KO0OvAxKqK+sF60/Ldzo00xyj99DT2RdYLDvW0Gyap5KbH7eFLWjR24lvFtFqLEntyRUszZWEHsjmKGfai7KT3wxNepyt+z0i/kHqO0wIvRLcrKcHXWtdAwDQiCj1E64InxnzPKgTujX62Qe5SSAs9b9AJ8boFXUzk3TfozXFbNS4mAJ6xvjexeUzoz+bXoVzloZs1J6YEvGXiQNctXHjXFF5bzsUoFvJgBRHwoI4Fbc/pGCLlHKyHw0uFLB3zzx88Ivr3SAi9lg8+Re/9KCHzpBd+mj90wWTRPpQzenMk1xuGHyaGZKiXwWhK8en4Xwx3Bt1Ey4EsP+FblPNbwrZQ2+BYTeCL3dkoHvCnDQmwFj+DbaWrgxfBxyL2rkgfvx1sU8cOeonyaAnjt8LZbm57fU3YsR0mAr8z3EMUdJOf8xIK+rdIAT+rAKwVi4+cyqygR8E6AaUI5fP8nv2QlD15xR7fuVaODB+a1Ho/gB1EC4EkdeHT4gZQ4+LoWPaqLxgYv+lw5oR5LCL5fjQ6+jAQ/0PkvVimAr9zGS/Dmy5mBzn+xSgJ8JRTBD66kwRvCKr5njQ7ex12ANx0ewfesscH752itcEfwfSth8JYQfM9KFrzT3QrB96xUwbvd7Ho/8aUrVfCuej/xpWt08F4h+MGVJvhqf2qs43sWgl+o0gSP3AcXgl+oEPxCNRHw2KrvWwh+oZoI+H5PGjUZ8FjH9y0Ev1BNAzxy710IfqFyYe5m2eFzyU0xiuB7lzv92F3nYBai5KYY7fekUd6insJPdIpRVH9ypxiloq6e2oSD/V7sqNI3qfCxQ6eTm2IU6/je5YFJiafm8Qi+d/lgbm6MN8UoF3IfXA5MUcaPNsWoEIIfXJVpxLOM1vGJ3ccj+P41iSd3/Z4yCoTgFyoEv1BNATxW8QMIwS9UEwCP3IcQgl+oEPxCNQHw2KgfQhMA3+8Jo7gQ/EI1AfBYxw+h9YP3DlftCMEPrlHAq0ENvaMbljZ45D6I1g2eWFPFV6afEkLwg2vt4M0B6v3jmZYIfg0aATxbCMcP1PWmiWHPf7FaK3izkCfBcr5E8GvQ2sGr9TB2C/xgZ75wrbeoJ97VqgwLWMUPo+Qf4CD4YZQ6eOQ+kBD8QoXgF6rUwfd7tiilxMH3e7IoLQS/UKUNHmv4wYTgF6qkwSP34TQ0eFSqGhj82Bc2KiAEv1Ah+IUKwS9UY4MP9r5CDavRwdf3yEANpU7gxVDXOxlb+kbKQvCpqgt4MdR1vrkBv7wjXiP4VNW1qKfwrz7Kxj71joaJ4FNVV/DUx2kRn2UbzojX8vnQdllu1/2j4Gu347+B/nUDz4a6vnLn6Zx6vXfEa5/HH5w5Sf/u3XsJfpDyx+55qv7avHif8WPvnqfU/969hV1Ug7p6vES9ueEd8dpb1DOSAmcz+ArJGurKOqpJnW/neMsuNOK1FzygPHjibLn/UPaW7wPwwJH+O3jit7Psvpv0X8m2cbjnT5bGBsvj+U579340y2ghQrdDlP2Ha68LFFcX8KJwh8XVD53zjnjtBQ/QAf75+8qbb71kgD9ztNy7+yiswraLR2FnyrE0NljgwcAdl/buZgvYkUU5f3KtOThRdfJ4MdR1zYjX/lY9LY3p/0Bq/21nTY8/y0uCD5yl/7PtungQG0zwzAALgtgQRVpHNWqUJ3d79/4VOD0FdvDdAfAP0TuC24Ak9eUQeGbgCQmelgk8BoKP0SjgD37rT6kf13r8w7KWjvZ42BmuEgQfpXGe1V/8RYCj6ngopS++xQQvqu9S1PF+8LKO5+BhdxYF6/gYjQN+751QJqtWfXkxy37kYQs83XYbr7NZq94PXrTqhcefx1Z9C6X/dq7tExks6aOUPviWJPHJXZwmAB41hBD8QtVHRwzx5AY7YkxJPXTEED0wWnTEODjDmuyw+B4Gfu9u1iCni+wk34Hfkolw2nqH+zSxQPWhHjpiiLczLTpi0Ds0uOOGxVsvESB6srx4xyW4jeM3ehc5fxEOl8HFo6VYoHpRDx0xxPvY+I4Yzz78FCyf/YmnREeMvXv/eHv/A7/89FG6/fxJ+vuHf/KnYF8RDvs/c89TsP8z3/tUAp0Y5vCvh44Yxku6uPfx8B71trN8wYp6uAUT71hgcfDE7/GiXoTbi3W6xYzVQ0cMr8fXgr/7JDBli+9SRT17UHdw5j64cRd1vAiHaoESF4u1Zs981UNHjNZ1vOnBbzsrGnc/+sRZIH0f22w07mg4evwA6qEjhuiBEd8RY/8XGEG24OBL/jIGygBo2YHk4zoazjbdIxfryZfZq4+OGK3v48+f5D1wVFEPb+eOCu4gWdTzcCj/9QLVi0Z5cic61Om3czczuEPnrg7IAfyeCsf7+AGUwCPbPwmU3qFwVB8aH/yP/45/y0EgHNWLxgePz+pHEYJfqBD8QoXgF6pO4K8cg89kcWCEKaoLeHgyD5/K4sAIE1SnR7aAeXMDB0aYonp4OzezgRHYOFwJHEfS7+PZm5m2AyNYSs/j0zuiQdQN/Esnjou1NgMjmEovm9M7okHUsVW/IVfbDIxgKr1s7u+Ikh68sVMvW8699cAIpmYNPrlzM9QF/A5rvm20HxjBUHqZg+AbwcdEaUo/vcxB8Ag+GUsDCMG7QvAIPhlLAwjBu0LwCD4ZSwMIwbtC8Ag+GUsDqI+OGPMaGAHBN4IXHTHaD4xgKL3MQfCN4EVHjPYDIxhKL3MQfCN4UOgz6Ql3xCj76oiR3rn12xGj9cAIptLzCvT4CPCsI0brgRFMpZc5CL4ZPH8hj3X84JYGULcafpUAAAh3SURBVA8dMVoPjGAqvcxB8I3gZUcMvI8f2tIAwid3rhA8gk/G0gBKBHxC/VERPIJPxtIAQvCuEDyCT8bSAELwrhB8DHj2qK6HgREQ/LrVDfwum6Gih4EREPy61Qn85qEPU4/vY2AEks4Hhgi+GTwv6vsYGAHAj/+OOo338eADyb+PB/B9DIywPo9vTGd0jyfZOrKij8YdqOPACAjeiDYx8BOp4xE8Vw/g+xgYAcEb0aYCvuvACICif/BegyQiHQQfA74xSuNZDgbel300EMFzIXjPEfV1CEOA7yufELyzB0Hw6wNPYurelloVfIbgEXzXQ0DwNefREXwwGoKv1yzBs1YDgq8Vgq/sMUPwnkh9PMDp+EEFgq8eQs3WJMCzjhhdB0YgXdAj+CiTPYPnHTG6fjSZEHi6FcFHgBfv4zsOjGCCb9/ZwddpATp10Ozbht4d/NmQ7GSR1adDt2e9dsRY5ZzgEMLbV+qwAvnQf0eMrgMjDOfxjKFpWIEPWePg5R4dW9CGpVbR+vZ47ykP5fEDga/s4wQQIv92AZ+tDt6MEgZfdwhkMuDXWcdPCDykswr4bDLguw6MEA/es08deNIM3jFYD77dlUlW9PisvgWaEPi+7uN7Bx/h8WIPY3sP4MVBdABfczvQEnzw1ee4T+5EcajBN95ttQWvDbMNGrym4wNv2DELb/NAQkhVAgi+5rBcj6+/9Y0BLyl3BW/ZMaOI/QIHap+KL8cJQfC9gLeCVLlBKuBZ6bIi+JLYGdgMnqXWFrxILwsXFZVSSJ9K7e6Jg+e5VXcWlXNwagj1M6uCLyvgCbHAq2h9gF/F4+PAV3JpBuBrK8Y68JpMHHhdvoTBC/G7gwjwxiFUTsW8MDuDdxOvB+/JNFCK4Esnt5yzEGs6qCxFS3wg8JEeX3cNq6W0FKDUErzb9vDu7kefHngSBT4Lgxe4Mp9xE7ykMxL4UC0QAK8u+ITArz4wgp/NusD35PEWVC94I2IAvNHuCLwuaATvoUusA7LVB/jVB0ZoBk8I0adk42gPnthIzeTXCZ6Q/sBrSyoPDKvmifQPvsPACBHg3QzUe5VWkAUrAD7zgTcb+s3gdYETDd7M9zrwIjgSPDGijAS+w8AIQfDqXTv9od9r23ttb8u4WRVqW/A8vVrwInnx3l4O6MD/sfUG8NY+zjtyuR/rR5Cp9Iz+BkQNICG2Z6qvgTgmOCrRF0G8s7fB9/o+HtRhYIQmj7cy0PF4o43WA3hhra3Hm667useb8QyPN7xZJWyebsDjjdSG9XimtgMjqINtBq9reWuvvsEb0eLAazY81A/ezvdG8Lqot07Ze7oavJEpVsS1gG9Xx9eDd04oAN5iMzh4MwNd8KWwVjHuyHstOHuY4I2za7rOvacyLPiVBkaYMnhCquC9N48OVPkM0EbhHtOK4CsN3OHBrzQwwnTBk2o1LMlUjXujmXu1AO8ENB/34ODroswQfGaBV6ZjPD5z9+HBlYOcJXjZPG0CX8nAOYJ36SwBvMoeJ7cQ/CzBE+IQnDJ4yzSCbwQfzpxa8M5eMTmB4A3LI4InjhD8UsB7CCJ4BI/gEXxtBiJ4BN+QEwjesLxe8KhUNSz4ioXfYP+Jhfkf/T9zAzz76P8y/16+aFnUXo2mPUFZ3AGYZgN7VQzHHUD0uXWBh+ArAQgewTebRvAIHsHbxxbPBsG3PDcEH2EcwSP4hmgIHjVjIfiFCsEvVAh+oULwCxWCX6gQ/EKF4BcqBL9QIfiFCsEvVAh+oULwCxWCX6gQ/EKF4BcqBL9QIfiFCsEvVAh+oULwCxWCX6gQ/EKF4BeqKPB6HGO1xlauHINB7dlPvqZGQGWbd9nsJqsKJkfZcI7Atr9KuhDBsGtI2Fj1nLjh4/LnpkpCxNcRvXb5bCCORRhFeLOSnIhPFy0NWloR/C6bsOa9p9nA9rlcUzOZsM2wb2UE5GjtwFD5J2RG8nRt+yulKybOrWaJsLHyOTmDfCvwIr6O6LULJ+xejlfu/AGaBT/tDh4u4sNih4GONmgpFjybVJ4v4LQOfZiu7B6RZyjW5CjnfLMnO+IFpsSM5ieyQ79+gp1MxX77dPkGNg6/sHmCjdYsba98TjJUmN18vyg4jJHf+SJg98rb3+eCv+tnKdH3Q8Yzl6Z7gGURn53Cg60MWloNvHGeahoDuqbnNZCbV/b4XXYx06sYLuTd2/9c87Lst06X7wA7b4qJ0jd4WsacDCudk9zKzeabtz93xTlmI2LV7tVHP1Ip6u/6w438zyhF5tI0749tGPG1x0cbtNQRPAxozwVreiYTcdLHDp32GmzWLs8kemXfJV0/r9hfIV1RZzzKMo46iTKkbax2TqyO51UF+B4UGrzgkPGNiB67O8erdfxdn/jBqx/6hGjdGIfKj9AcUT7OoKVu4HUlzNaq3lGZ1yRWHDw9drBpldA2+LbpKo9n0y0dOs3Nm7ZXPCfd/GQj/X/8tADvKUk8dukvD/g/+tVP/xyzuwktQ+ecaUNk9/C5NgYtdQKvCx++pusztd9mXeI1UnW8aa9qv3W6qujgCRhXkLCx6jlJ8A+ek/vwjDdnd+ERfXZ3MuueQFr8+K8dp3+hLWrkPY9vzBMVa9BSI3gwDvkEVcphG7ybR7meyQQ2e6ewitYOm+fyOMs+WuiJVr1pf6V0dat+k5WO3Pw5ZWPlczLqeNhp84i6E2HxjYLYZzf33c7RpiYtkoTT3XnaPmft8dEGLTV7/C6fpIReQj/0oA2eX1VgXa7Zt5JiepMVtStss2b31VOHedVi36q2T1ffx4vmvGzVCxsrn5PRqocdaKv+kCzYWXwV0W/XD15Qp1G+430bzjnvtjZoCZ/cLVQIfqFC8AsVgl+oEPxCheAXKgS/UCH4hQrBL1QIfqH6f0Jkyey84fYkAAAAAElFTkSuQmCC" alt="plot of chunk unnamed-chunk-1"/> </p>
</body>
</html>