-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathHW5.html
More file actions
228 lines (179 loc) · 20.7 KB
/
HW5.html
File metadata and controls
228 lines (179 loc) · 20.7 KB
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
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title></title>
<script type="text/javascript">
window.onload = function() {
var imgs = document.getElementsByTagName('img'), i, img;
for (i = 0; i < imgs.length; i++) {
img = imgs[i];
// center an image if it is the only element of its parent
if (img.parentElement.childElementCount === 1)
img.parentElement.style.textAlign = 'center';
}
};
</script>
<!-- Styles for R syntax highlighter -->
<style type="text/css">
pre .operator,
pre .paren {
color: rgb(104, 118, 135)
}
pre .literal {
color: #990073
}
pre .number {
color: #099;
}
pre .comment {
color: #998;
font-style: italic
}
pre .keyword {
color: #900;
font-weight: bold
}
pre .identifier {
color: rgb(0, 0, 0);
}
pre .string {
color: #d14;
}
</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>
<style type="text/css">
body, td {
font-family: sans-serif;
background-color: white;
font-size: 13px;
}
body {
max-width: 800px;
margin: auto;
padding: 1em;
line-height: 20px;
}
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, img {
max-width: 100%;
}
pre {
overflow-x: auto;
}
pre code {
display: block; padding: 0.5em;
}
code {
font-size: 92%;
border: 1px solid #ccc;
}
code[class] {
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>
</head>
<body>
<pre><code class="r">library(maps)
library(mapdata)
library(ggplot2)
library(rmarkdown)
library(dplyr)
#2(a)
states <- map_data('state')
california <- states %>% filter(region == 'california')
#2(b)
load('D:/Users/Jeremy/Desktop/Online_Assignments/Winter 2022/CSC 302/wind_turbines.rda')
wind_ca <- wind_turbines %>% filter(t_state == 'CA')
#2(c) - 2(d)
ggplot(california, aes(long, lat)) +
geom_polygon(aes(group=group, fill=group), show.legend = FALSE) +
geom_point(data=wind_ca, aes(x=xlong, y=ylat))
</code></pre>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAAAw1BMVEUAAAAAAGYAOpAAZrYzMzMzapg6AGY6OpA6ZmY6kNtNTU1NTW5NTY5NbqtNjshmAABmADpmAGZmZgBmtv9uTU1uTY5ubqtujshuq6tuq+SOTU2OTY6ObquOjsiOq+SOyP+QOgCQOjqQkDqQ2/+rbk2rbo6r5P+2ZgC2///Ijk3Ijm7Ijo7IyP/I///bkDrbtmbb25Db/9vb///kq27kq47k/8jk///r6+v/tmb/yI7/25D/5Kv//7b//8j//9v//+T///8K0BsHAAAACXBIWXMAAAsSAAALEgHS3X78AAATcklEQVR4nO3de2Mb1REF8NtilyKaUAqlNQ2YlhBIaOgj1CFxTPb7f6pqVw/L0q72PubMzL17zh/yIxnPvfPzruREWoeOWWSC9QIYmwTrBTA2CdYLYGwSrBfA2CTE/9XXSUn863klKk28riu3CeFxJa6bEB5X4roJ4XElrpsQHlfiugnhcSWumxAeV+K6CeFxJa6bEB5X4roJ4XElrpsQHlfiugnhcSWumxAeV+K6CeFxJa6bEB5X4roJ4XElrpsQHlfiugnhcSWumxAeV+K6CeFxJa6bEB5X4roJ4XElrpvIwl/WEtcmKk0Ij5uw6yaEx03YdRNReGvO+Lg2UWlCeNyEXTeRhLfWTIhrE5UmhMdN2HUTwuMm7LoJ4XETdt2E8LgJu24iCV8RvWsTlSay8NXIuzZRaSIMX4u8axOVJtLwlci7NlFpQnjchF03ITxuwq6bEB43YddNCI+bsOsm4vB10Ls2UWkCgK9B3rWJShN5eGvTqLg2UWlC+KRxgSuqhq9C3rWJShMAfA3yrk1UmhA+aVzgCsKj49pEpQkA3ho1Jq5NVJoQPmlc4ArCo+PaRKUJ4ZPGBa4gPDquTVSayMNbm0bFtYlKE3F4a9K4uDZRaZIMPxtr06gI7rfqhPi/Ovv9ZG0aFdcHo0oTwieNC1xRL7w1aGxcm6g0ITxuwq6bEB43YddNhOFrkXdtotKE8LgJu24iDV+JvGsTlSaEx03YdRPC4ybsugnhcRN23YTwuAm7blITfAhiX8q1iUoTaXgxmtOEICfv2kSlSWXwUvSuTVSaCMPLsIwnCMq7NlFpUhG85CHv2kSliSy8CMqZEF6sSV3wYg/sXZuoNBGFl0HRiGsTlSaEx03YdRNJeGvNhLg2UWlCeNyEXTcRhLfGTIlrE5UmcvDWlklxbaLShPC4CbtuIgZvTZkW1yYqTaTgrSUT49pEpQnhcRN23YTwuAm7biIEbw2ZGtcmKk0Ij5uw6yYy8NaOyXFtotKE8LgJu25CeNyEXTchPG7CrpvIwFcn79pEpYkQfG3yrk1UmhAeN2HXTQiPm7DrJoTHTdh1EyF4a8jUuDZRaUJ43IRdNxGCr43etYlKEzH4uuhdm6g0EYSvSd61iUoTSfiK5F2bqDQRha9H3rWJShNZeGF6wYveHMW1iUoTaXhJesmL3hzFtYlKE8InjQtcQfhNeKrHNZGHr+IRnmsTlSbn4G+/uHn/dPW4f3f3lvDQCh/w758+unlz1T2/Xr+/e8tfIw6t8AH/6q9Pbn5+1pt33fbtxcVFzN2BNet8YnaxhISRz91+8b8nNy+28Lu3UUd8Bce864NRpck0/KvVanV1dMTHwruXd22i0mQavuvunuTdx/exlp2JaxOVJjPww6P53dsUeOfyrk1UmpyDH03sV7emPR/XJipNYPC+6V2bqDQBwnuWd22i0gQJ71jetYlKE8InjQtcQXh0XJuoNCF80rjAFa3A+5V3baLShPBJ4wJXNAPvVt61iUoTwieNC1xBeHRcm6g0IXzSuMAVhEfHtYlKE8InjQtcQXh0XJuoNCF80rjAFc3AW/tOxrWJShPCJ40LXEF4dFybqDSBwlvzTse1iUoTwieNC1xBeHRcm6g0IXzSuMAVhEfHtYlKEyi8X3nXJipNCJ80LnAF4dFxbaLSBAvvVt61iUoTwieNC1zRDrzXq6K4NlFpQvikcYErCI+OaxOVJmh4p/fyrk1UmhA+aVzgipbgfcq7NlFpQvikcYErCI+OaxOVJoRPGhe4gvDouDZRaQKHtyYej2sTlSYLhb+8zBsXuKIl+GbkCZ/Ywxp4MjnjAlc0Bd+KPOGTe1gDTyd5K+mbR5d4hndMn74VaEVz8C3IEz5rWdbA00neSvrmkSXe4R3Tp28FVkF41SRvJX3zuBI1+PwU4eB+zWwfje27TIj/qyXfj/kywF8sPSR5K+mbB5X4P9X3yYZBw0fIE75kWdkwYPfLeXrClywLrVeSxK2kbx5SUgl8ibzxQU/4smVlq8Dv5i/PyxO+bFnZKBrw5+gJX7isbBMN9zPyhC9dlgZfQVK2kr558ZKK4CulJ7zIsqxxzyZtK+mblyypDT5HXudOvk/aVtI3L1hSHXy6vM7D+m2StpK+ebmS+uCT5VXhT+UJL7WsZAtN91N5wkstS1MxK/FbSd+8WEmF8JXJE15wWdayc0nYSvrmZUrqhHcvf0BPeNFlWcPOJn4r6ZuXKKkVflZe96H8SOK3kr55gZJq4Wfk7394N/sOiN9K+ubLSyqF76d6dup7+LCNBvVxMidM+DO53MNPmN4f8MbyhBdd1gHwgenIWSBYyxNedFkPYA/GfDJ6W/hLwgsv61B2P+OTP7s0h8+5UBbhz2RkwhN/Zg2vcZ0swo/8oTm8wnWylgM/O9+Dz1u7K1wnazHwwzAnx3v8B8bsfSQ3L1NSK/zm9nS4JqwREdy8TEmd8PucTNeGNSKAzReVtAR//LGvyG++qKRy+AfUr13DI6+TtUT4A+yHHzkMYPPZJQ3AV0SP2HxmSRPwr7c/4O3fdRvM5hcOf3nw7ljMf5gfgtj8kuEPSkbnbf6vd/tgNw+sqBLe/h/s7wPdPLDCL/x2qmPDNv/P2QdBbB5f4RZ+N9MxXF/wM/KETyvZjnRctyZ5wqeVbCc6gVuRPOETS7bzDOG1v+fenUZ48/gK1/DT/ylv+gT70chuHl/hFv7hOEcmfQDvwl9y8woVbuFnjvg+hy+v0QOejuDm8RVe4Y9HeW7gXuClLpBG+INpnh24E3epC6QR/nCaZphJkdm8B/j3T1ePu1er1epq88HHz9Th3f+//INIbN4D/Jur7kVv/ePL9c3dV2pHfHcyThvH9EhsXqFi/lT//ruXg/86t5+vHt103cXFRfydQn4ezvPkE26jMRvZhLFP3n35uNse8D3/7dfDZzW+H4/m2X/WBDI5EpuHV0Q8uOu5/3LwgRF8TSnfPLxiDv7VdW+95e4/uCZ8RIo3D6+IeFS/vltfi3d3T26Gh/hq8FXTl28eXOH15/ja4UuujGcH/+7TH7Y3hM9P4ebBFSPwv36z+Y+v3/6X8EUp2zy4YvqI56m+OEWbB1eM38f/1B/xv+GpvjQlmwdXjB/xf/z2+89++YBHfHkqg//0h58+sn9wZ40mkqrgf/37t798YA/fhnxN8N0vv/3PN+EjnupFkrl5cIXrf8BZqrwR/LtPNj/H2z+qb0Uef2m81o74hcoTvhl49DUR24N/nWDv5VnWo8HOa9Hwvl5SdRrkvJYM7+y1dCMBzqtJ+Eh6//DAayI2Ch8vD5YrDWxercI38+geNa924fexpisNZl4LgK+eHjKvRcC3L0/48VjLlQYwr2XAV08vP6+FwFvDlUd6XguBb12e8FOxZhOI7LwIX09E50X4iiI5L8LXFMF5LQTeWkwsYvMifGWRmhfha4vQvJYBb40lGpl5tQ9v7SQfkXkRvsYIzKt5eGsjTMrn1Tz8MuQJf5LTmbl/gmVUSue1PPgKnloblcJ5NQ9/It8KfOFVUJcHvznVN4FfMq/24Sd/16w2EyAF8yJ81cmf1wLgJ+S1jTDJntdS4ZtJ7rwIX33y5kX4+pM1r2XDN3JPT/iJTA2slcf2OVdBXQT8lHwz8BlXQVWDt83EvFpxV//VdSH+r+p8P56JNQ06wuOaKqkPHixvf/LQmXCF8FB5Dw8XVCZcIzxS3gM8+FqYFcNj5YFfPDYKE64TvvlHeMhrYRLeddATrhSe8qUTrhWe8oUTrhae8mUTrhee8kUTrhh+AfKQa2HWD0/5ggkT3nlQEya8+2AmXDU85ZcKT/mlwi+EHjDh6uGXIS95SUTCVxXpCdcPv3B5wmvG5NkashNuAF5f3uj5WaITJnxGrJ6YJznhFuA7dXqrJ+YJTrgN+KU8wBO5FmZT8K8XYy814XbgFypP+IXKE34x8KXXwmwPfpHyhO9jLaIVgQkTvs4UT7gt+AXKE/4g1igqKZww4atN2YSbhFeTD6bXUSiaMOELEoK9POEfRGfw1vB5F0ElfHGs3fMugtowvNbY7eFzroXZLrzWzM3P9EMyJ0z4/PiAT5dvFn4pD+p3yZpXk/BLeVC/S8682oTXoffinnX521bhX/fTAI/bjXvO5W+bhR+CnLWf431I6rzahofJh31QHZKTOC/C5ySEmuUJnx2X8GmXvyV8TnzCJ13+lvA58emedPnbafj3T1eP+5uPn+0+IPwuTo/4lMvfTsO/uepePLv7av/B8+v64DHTDcEtfPzlb8+d6t9/9/L289Wjm/W7Pz/r7buLi4v4OwUHgczWs3vq760LY5+8+/Jxr3379fr9Fxv4jkf8/h9uXLrLHPEb6+Hm5yrhIaP1eaTvEzuvafhX12vr/ua64338QZqHXz+Qf3QzPJq/e3LDR/X3KYNHf8vEzuvsqX4sYiZyJecqELMtgYefLGLnRfiMFB3w+HuJqHm1DY8ecUbs3QnfZiLnRfj2EjWvtuEpPzkvwpfE7Y/z8/MifEEc/0PO7LwIXxDH8LO/zYTwJUly1/0mmZsX4bWifHqYm1fb8IqDng3hxUts4Wc47715qpcuMYWfOZDN/g93bl5tww/BDtgr/Bn5pcDD5Wf+2OhHvpl5Eb7ZnJ/XEuAXKn9+XouAHyuxZsHn/LwWC/96ASeCc5tfMvxxrJ3kc2bzhD+MNZR8JjdP+AexdpLP1OYJ/zDWTvKZ2Dzhj2LtJJ/xzRP+ONZO8hndPOHHYk0lm9HNE34s1lSyGd084UdjbSWYic0TfjTWWnKZ2jzhx2PtJZXJzRN+ItZiMpnePOEnYk0mkjObJ/xUSodu/1qLs5sn/LkUTN38VTYzmyf8+WTPnfCp8QWfT+/WnfAJubz/zX6mnNGZ3Tzh00usUSMyvxPC55TI6AAvlTi/E8LnlIjgAK+DHLETwmeVlMpgr4AdsxPC55WUyYTjyIBvE7UTwueVlNGcwIvKR+2E8JklZTZbbcIXlVQIv8vOX+arbRO1E8JnlkgpAR7UR+2E8Jkl4lxyidoJ4fNKrHHPJWonhM8rORyxLfNponaSDM/sc//LvqypjxK/hRD/V0sOE1CJyX38UaytHyRmJ4QXKrHGPkzMTggvVWKtfZ+onRBerMTae5+onRBesMRafJuonRBetMTafEjUTggvW2KN3idqJ4QXLrFW5++dsyqxdie8VYlzdsKjSgifMq2SEmfwpvTROyE8osS1O+GhJX7dCQ8t8etOeGiJX3fCg0vcyhMeXKL+xJyUnRAeV6L++09SdkJ4XEmnfLpP2gnhcSV9hUd5woNL1OH5c7yPkqGC8LgS1/Cq8gnrIjyuZFtBeFQJ4QnvqoTw4BLn8HryKesiPK5kX0F4TIl7eC35lHURHleiDs9n4ABLQshoogYfpU/4jJL+KlXpTXTh+TJpQEkV8LyWLaAk61Tv65AnPLiE8OASwhPeVQnhwSWEJ7yrkrRH9ZIXtY1YF+FxJUnwkhcvj1kX4XElSaf6g8vWF1/CPmZdhMeVHFZEwodLgV9SFLUuwuNKjODj1kV4XMmDU/0c/b12tnvSugiPK1GBz90J4XElxxUx8Efvzh/bhPdX8rDicl7+wUfntAV2QnhcyRH87Nl+5tiWWhbh0SVHFYLaRcsiPLok6T5+w623ecLjSqLgpZvElhAeV3IGHtcktmQa/v3T1ePu7svVH15uPvj4GeEbajIN/+aqe/Hs1XX36mr9wd1XPOLbanLuVP/+u/5gf3O9vrn9fPXopusuLi7i7xQY/wljn7z78nF/+2QN3h/+t18Pn9X5fvTXxOu6IA/u1tx3f3t5/wHh22kyDb++e39zdfvnl/sPrgnfUJNp+PUD+Uc3z1er1dX6bD88xCd8Q03OnurHorMsf028rovw/kpcNyE8rsR1E8LjSlw3ITyuxHUTwuNKXDchPK7EdRPC40pcNyE8rsR1E8LjSlw3ITyuxHUTwuNKXDchPK7EdRPC40pcN0mGh0flyV1sskmQWYRIKhhXO02CzCJEUsG42mkSZBbB1JZgvQDGJsF6AYxNgvUCGJsE6wV0wzO4h1fqnb5cD9Bk96zh+2cPyzYZbl71T1HucDsZbnZfPG8nQXhVGXm+uh6GdXX6cj1AkzdX3fN+cru30k02N133Y/8tjNrJcLP74nk7CbKrysjdP4dv4c3LNg5frodp8vOzzSuDdm+lm2w7bb42aifDze6L5+0kyC4rK8OkhlfqHb9cD9DkxXZML+Th78/C2wMeuJPh1U6bL563kyC9rLQ8779p+50Mr9Q7ebkeoAnqiN83GW5u/7L7PLBJV7KTILis3PSnrf6Veqcv1wM0Qd7H35tsJVA72TyC3H7xWu/jh00Mr9Q7fbkeoMnmch+4Jpub4fwCblK2kyC9LKaOBOsFMDYJ1gtgbBKsF8DYJFgvgLFJsF4AY5NgvQAPefvhf62XoJ5gvQAPIfxCs4b/KYSPure//yR80HW/hN/84zPrNaETrBfgIW8//Pfvfnj3x2/frm8/7d959wnhl5C3H/5rfaB//9n6yP/179/2J/7vCb+EEH6h2Z/qB3ie6heTzYO7z7oNfP/g7k+EX2R6/sYTrBfgL+8+6X+0az3BegGMTYL1AhibBOsFMDYJ1gtgbBKsF8DY5P82P6X9KIi8MwAAAABJRU5ErkJggg==" alt="plot of chunk unnamed-chunk-1"/></p>
</body>
</html>