Kubke Lab:Research/ABR/Notebook/2013/10/15: Difference between revisions

From OpenWetWare
Jump to navigationJump to search
mNo edit summary
(One intermediate revision by the same user not shown)
Line 6: Line 6:
| colspan="2"|
| colspan="2"|
<!-- ##### DO NOT edit above this line unless you know what you are doing. ##### -->
<!-- ##### DO NOT edit above this line unless you know what you are doing. ##### -->
__TOC__
=General Entries=
=General Entries=
* Insert content here...
* Insert content here...
Line 15: Line 16:
<!-- saved from url=(0014)about:internet -->
<!-- saved from url=(0014)about:internet -->
<html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>


<title>Test of knitr for openwetware log</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,"&amp;").replace(/</gm,"&lt;")}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>
<body>

Revision as of 04:25, 27 October 2013

Hearing development in barn owls <html><img src="/images/9/94/Report.png" border="0" /></html> Main project page
<html><img src="/images/c/c3/Resultset_previous.png" border="0" /></html>Previous entry<html>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</html>Next entry<html><img src="/images/5/5c/Resultset_next.png" border="0" /></html>

General Entries

  • Insert content here...

Personal Entries

Fabiana

Testing if I can put knitr output into oww


<html>


<body> <h1>Test of knitr for openwetware log</h1>

<p>This is the first script I wrote to try to see if I could open and plot the data files</p>

<pre><code class="r"> getwd() </code></pre>

<pre><code>## [1] &quot;C:/Documents and Settings/mkub003.uoa/My Documents/Dropbox/Oris ABR dev data/Sandbox&quot; </code></pre>

<p>write path to working directory. need to write some kind of call function so that we can set the different directory paths from different computers. this is my directory on the work PC:</p>

<p>#setwd(&ldquo;C:/Documents and Settings/mkub003/My Documents/Dropbox/Oris ABR dev data/Sandbox&rdquo;)</p>

<p>##These are things I tried </p>

<p>list.files() #get list of files</p>

<p>owl233L0B &lt;- read.table(&ldquo;Copy233L0B.ABR.txt&rdquo;) dim(owl233L0B)</p>

<p>[1] 1001 5 class(owl233L0B) [1] &ldquo;data.frame&rdquo; names(owl233L0B) [1] &ldquo;V1&rdquo; &ldquo;V2&rdquo; &ldquo;V3&rdquo; &ldquo;V4&rdquo; &ldquo;V5&rdquo; Really Andy? How f&#39;ing descriptive is this eh? ok, so it seems you have v1-5 (variables), then on row 1: msec; left; right; spont; bin</p>

<p>These are the lines that I wrote to read the files</p>

<pre><code class="r"> owl233L0B &lt;- read.table(&quot;Copy233L0B.ABR.txt&quot;, header = T) #got it dim(owl233L0B) #get 1000 5 PASS </code></pre>

<pre><code>## [1] 1000 5 </code></pre>

<pre><code class="r">class(owl233L0B) #get data.frame PASS </code></pre>

<pre><code>## [1] &quot;data.frame&quot; </code></pre>

<pre><code class="r">names(owl233L0B) #get [1] &#39;msec&#39; &#39;left&#39; &#39;right&#39; &#39;spont&#39; &#39;bin&#39; PASS </code></pre>

<pre><code>## [1] &quot;msec&quot; &quot;left&quot; &quot;right&quot; &quot;spont&quot; &quot;bin&quot; </code></pre>

<pre><code class="r">

  1. fig.width=7, fig.height=6

par(mfrow = c(2, 2)) #puts the 4 graphs in a page plot(owl233L0B[c(1, 2)]) plot(owl233L0B[c(1, 3)]) plot(owl233L0B[c(1, 4)]) plot(owl233L0B[c(1, 5)]) </code></pre>

<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAAACVBMVEX9/v0AAAD9/v3/vTJ9AAAAA3RSTlP//wDXyg1BAAAACXBIWXMAAAsSAAALEgHS3X78AAASOUlEQVR4nO2diZKkOAxEF/7/ozem6zLgQxKyLKTMmJjpLuy0k4cP6Kqe/3Yopf5b3QFojQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qQA+qfrgt38y6ok3Bc/eBb8Vf2dT9OwA31D07ADfUPTsWONbCp4du/qk4o/47XGSnZla1cVBBJKBr65zj5v+ZB2Onh3gu7XiZheC784izqQNPkZ2wRr/ef0p6TXX+D1Mds6u/rdfCBKeYxItu2zEB5nu+tViZ8fmrlsrbnaA79aKmx3gu7XiZheu8U+S9hr/JOns6kdeTqXY4UDZAX6RlY2ka3ztnjVQ+G6t4NkHazzLy6mka7ye1ToBvE61QNmxxi+yshHAu7OyEcC7s7IRwLuzshHAu7OyEcC7s7IRwLuzshHAu7OyEcC7s7IRwLuzshHAu7OyEcC7s7IRwLuzshHAu7OyEd5zJ6gWOzveZdutFTe7Onh/HzMB+Jq0wTv8YBnA16S9xocBn3qNZ3r9HQ0DfrKVjTDiBdUSj3j+Oufxw+NY42vigB/9IqU9MHhCdo8yHfHexgVGfE3Ka7zHYYE1viblXX2cET/bykbyqV4y4p2dHvFUn3fEvwYve1fv7PxIwXOze5Qt+NlDnukP8DWNPh9/rbwc/KsBeitC8OzsHiXe3FXm7T74D5c5Kn7DIL0ZaW+42T3KdFc/D/x2Fq2WYgf0rGxkBX57DUqAV9UnqmBAWYKX9I/Y8lWkaoo90LNiNMq90su6zSPqU/20Nb6CndbSSvAK54I/xZWVm0ceM9Vf81NPxULwtzc81wuddwWYgRdemMM2a+Oc2tY68LdPRn2WY7g+HHwZt7AnNvZc8B3uHsHrT/WttMHBH6/383VAs2ge0Qc/4Q3W7aiUU7AM/N3p713958Anb3s7pz3kezkJPxJaDV7YfrUyl7z1iFcF3035gBEvar9Xl0H+oeAJVzfhBBiDv87Mkob6VR2C15zqKbMa4RTYgn/3ptyMCdohXe9+wL97ozTgSasZ4eSagv+egt+zlhvgh0WGRs0j6uB3tRFP4U4Z8pQ9wO3b4kN3Tn/TvIv6Orn7HZ4BXras1cxo4W6BZ43K8Qg7IN9fP7JinA0i9Z00KXQ77BY8g8doNRhVZ3SK1JUPkt9fRPeNfrUTL5EheJ3pTg08Nf2h3ebRm51hWB0m6m3nnQ3yLH8pLunwf4UHsX/9vmiAZ3K/C16evax4fahKPxvfuYF/wd8CrzXdKYHnch/M9fOm+l+73yFeBX9t4f3i+9ClErk/oxqjEa8CnnWNN2sTbmI7datHR7XJ7TTAX3C/r4J9b4FvXSdM7uO5ejTiOS0ei/2qFdf44ekV0fV7uiQn4AZ4VmOHYi3eR4Y193pNPvb74FsFqr0+NXqY7L5Dtigz6PvRS3YCunWE6w4te6Xf5ZdVHyXopVfzcLOi/GPSpw5XwQ8ux97p46lXTQaemv3a8dq3tc4eyknB70X2isMYfPU5wyn88ey2iZ3AtxpX5N4lT7sHq9ciZy9dft+eJ8Bf7evNm3hH3DtzhKmeAP7k1SR2+qq3jOhQ7zdF2dy1PjQzyL6fee+XAhfwhwvlRuBzU1UzIfj+OveqVmmVBF6J98mvemRUc6/e14yyF+Wa3amAr10yN9U5j5SpntqH08622JAfOlL0qNdb/k17s18tm6H1Vl3nqiWZvbmAV0tbbe1qLtzc1RtpNXt84fVvdVt/6qPqlV+xUzzLd8FP4l5aHxsYgGd1pzmxnb5vxaxfmhpiX/Wvozezt23384U9K/jH+/oQZO6Ib4B/96B9L8NuetSzOvklI748JYepbRL3913BOf9s8OctQv3y+x6aFb9OnrK5ozbAKHkBPxX7t91j/ungW81f72KnXvZH8MPwRSWiP70nTfBkC6Gcgp+bvWjzl97FVF/bdc7SQvDF1V0Bz26Srtouygd4m+F+btwNeKv0rsBP3de0Wt89gD89v2A3KRBpuuO7Mjtw7I0h+PH+Zhb44+O7b2/swicH/2m4eWTqiP9+Wb6YEbxt9LIXzSOG4M2XueFDDL4nq/njplavFww5As9u77ZcgF8kc/D7Ffyq2Q7gq7IGz27uvtaAXzW5H7Ua/KpN7asDLq1sZA+++LENwK/TAvBFhbXcAb4qgF9kZSOAd2dlo6Xgbd6B0GnepZWN1oJfeCv317hLKxutBr/0cQbA12QEfuXjDICvyQr8QgF8TQC/yMpGAO/OykYA787KRjrg196Oi6XS4XDZMeIXWdkI4N1Z2Qjg3VnZCODdWdkI4N1Z2Qjg3VnZCODdWdkI4N1Z2Qjg3VnZCODdWdkI4N1Z2Qjg3VnZCODdWdkI4N1Z2Qjg3VnZCODdWdkI4N1Z2Qjg3VnZCODdWdkI4N1Z2UgKvvYGw0Dh+9ViZ5f/92OPkfAzX7W6gbIDfLdW3OwA360VNzvW+Ga12Nmxq19kZSOMeEG12Nmxxndrxc0O8N1acbMDfLdW3OziNf45HxrWX+MjZJfu6h/0cXH1XX2I7JwRX/5ygBDh+9ViZxev8Y/JPmGNj5Adm7turbjZAb5bK252PLlrVoudHc/qF1nZSBX843TnzIXN3l/j25XJZ5N+2vUt7yCPnn2wxs/vwEzLW2M9eHaA51cOkZ2/xit3YKblpL1YiOwAz1eI7EPwDYMQ4YX1Q2SXgk+hyNmlUz30cAF8UgF8UgF8UgF8UgF8UgF8UsnA937edy5IK7lRXTea66sEuZ8MBckuAr/t1Icb1PP+r5Mk143W9qsUvZ90Rck+Fzz1ov/rJ8X1VZDmuhi88+yTwVMLUsPPKMhTlOyTp3pyQU4mkuu2Lwb/KUwqZZ896ojfeM3TFSX7/F09sSC1MK3g+/1yq3f1xILUwprZcR+fVACfVACfVACfVACfVACfVACfVACfVACfVACfVACfVACfVACfVACfVACfVACfVACfVACfVACfVIvBf3+Z3PttYq/X1vbJSmuzrwb//rOV36i/M9an1mZ3An7fvp8SyUF9X53dC/jvpZ9vxO9LsjsBX37AM80avzQ7dvVJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJBfBJ1Qf/+Y+uMyp49i74rfg7m6JnB/iGomcH+IaiZ8ca31Lw7NjVJxV/xG+Pk+zM1KouDiKQDHx1nXvc9CfrcPTsAN+tFTe7EHx3FnEmbfAxsgvW+M/rT0mvucbvYbJzdvW//UKQ8ByTaNllIz7IdNevFjs7NnfdWnGzA3y3VtzsAN+tFTe7cI1/krTX+CdJZ1c/8nIqxQ4Hyg7wi6xsJF3ja/esgcJ3awXPPljjWV5OJV3j9azWCeB1qgXKjjV+kZWNAN6dlY0A3p2VjQDenZWNAN6dlY0A3p2VjQDenZWNAN6dlY0A3p2VjQDenZWNAN6dlY0A3p2VjQDenZWNAN6dlY3wnjtBNX52f2+4x7tshbVY2ed+xEbkDvDCWn7Ajz7v3qjVPALw3VpuwI9/00G9WvMI1vhmNXZ2E/C8BrCrt7CyAc9qASNeUI2bfebnpzdb8FjjOdm3eR+gPn44n1OxeYQDXraxXC4V8ITsE8/O13kN+JGXU5mN+LngRW1gjRdUE63xc07PrytG4HleTmW1q5+3Epa+vDbkU33aEc/PPgn82dYG/HatnAY8N/uLiPbpudzEsa4ugBfUkoBXH/DXu3cT8Fti8OzsU0Z85akNh7x4c1fZpiYBz8++MddfWh+umE3As7yc6sG7+rojoxmAn2/1N+B1T0/jSgJ4mqzA/z2+0edecaSTB/j5Vpv65q69dAA8RZbgVdf4th3AU/RQ8D07ckMAP9/qzUmLfP8yAniCbDd3uuC7RykuzSMAr2UF8N70YPDiw99izSMAr2X1dyunBn4EVgt85QcSfC+neuKIH3OlkR+AZ92IAHzjmB54Eg8SMtKIp/aKXtSHbMC/7uRUwNOeCOiA53SLXWOxrMBvWj+XJU7AOuAx1d+0+oG/2R75CSClFKb66Vbvn8/cfoP1RgZPGayLwHP2jPNkOeJvz/UM7jrg1ab64qM+GyfFPKkslkMrFfC8E0bZATaPKGzuDq1/b2qu+p2V6rtK2B0Rd5h5nFb0Pcffus6ZA2Ux+O2Hk6Ri+yL8eMjNDnOPk4p+EtxJwp0fVcDT2zuUI8LuXQbnvMMnlcR+1jvc8Lw91X89fqFolsdu8K6bcWnpI9ua83Y4OATLvAr2otb1GmCemFH4frVx9lPp4gt+PwXc54HfapUP0/OI+L7vLPiXoteghxffZ1kY/nW0fvpI2Y89+37FBt8KTK3XLtA80p3qT+GPrbTQlYv+uYuSpaGas/zn9yU3fE+07OXh8qtPWkpD29WO3stBReHmrnvVVwZnr+vv7m3lv6e6bfIbcfv4KvRrcRBeIfv1Ingjp6K89J/Xy0FN6a6+5nnd3JGv7Mv35xPWpzos8eNQ9n3Yufp5I2SvUjtdxOO2b3Af7gym7uqJ9cbGB8CNK4F5I3HpcCOQZFdfaer7MnXI34FOMZDu6sdeqrffnwAfYpVB/ilF2y5UOlwPJMzeBD8C2pgtJPpZDTtcytc7cK69r5IsV/zPtScFzzrznd5dXuvde5IuDroKo5PbGDy9BzPBV9trn6HqCWeC5/Wl0bvLK4P9tir2sx8t+yPeiFHO/9cD5be1kTQVfOUh04DraZZX6liD/MPB82QLvtN8lezgsLhnQvAb/fy4B/9P5T2mMfhyt3UlewSjuTWuXlEE8OR3jjwCfCl78J0hrT3Smy2/X2mWBXh1KxJ4vT6d3I/TCOEBjovbuSlaA76OeC73Sl+aRwJu7s5aBP77TPp8TPeh16AvzSMAr251WGOP4E1H+1+DzSMAr27VBm/OHeAtrQDeiazBl7QPpO25A7yp1Qn8VnndSgBvadUAv2DAA7ytVXV6t72B/zTfPALwc61O4PW6Qmy+eQTgJ1t9ea/gDvDrrD7glwx4gF9oBfCr5AL8Gu4Av9Cq+RNaCwH8QiuAXyQ34PX6QW+7eQTg51sB/Bp5Aa/XDUbTzSMAP99qGXYt8Auv3DtS6fCt7OtOGka8OysbAbw7KxsBvDsrGwG8OysbAbw7KxsBvDsrGwG8OysbAbw7KxsBvDsrGwG8OysbAbw7KxsBvDsrGwG8OysbAbw7KxsBvDsrGwG8OysbAbw7KxsBvDsrGwG8OysbAbw7KxtJwdfeYBgofL9a7Ow3/jOip0j4nuha3UDZAb5bK252gO/Wipsda3yzWuzs2NUvsrIRRrygWuzsWOO7teJmB/hurbjZAb5bK2528Rr/nA9M66/xEbJLd/UP+qi8+q4+RHbOiC9/OUCI8P1qsbOL1/jHZJ+wxkfIjs1dt1bc7ADfrRU3O57cNavFzo5n9YusbKQK/nG6c+bCZu+v8e3K5LNJP+36lneQR88+WOPnd2Cm5a2xHjw7wPMrh8jOX+OVOzDTctJeLER2gOcrRPYh+IZBiPDC+iGyS8GnUOTs0qkeergAPqkAPqkAPqkAPqkAPqkAPqlk4Hs/7zsXpJXcqK4bzXXbyI5MBckuAr/t1Icb1PP+9x8uU8pvtLZfpej9pCtK9rngqRf9Xz8prq+CNNfF4J1nnwyeWpAafkZBnqJknzzVkwtyMpFct30x+E9hUin77FFH/MZrnq4o2efv6okFqYVpBd/vl1u9qycWpBbWzI77+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KQC+KRaDP77y+TebxN7vba2T1Zam301+PefrfxG/Z2xPrU2uxPw+/b9lEgO6vvq7F7Afy/9fCN+X5LdCfjyA55p1vil2bGrTyqATyqATyqATyqATyqATyqATyqATyqATyqATyqATyqATyqATyqATyqAT6r/AS42mlrMKTaDAAAAAElFTkSuQmCC" alt="plot of chunk unnamed-chunk-2"/> </p>

<p>#need to look for parameter to change to line plot</p>

</body>

</html>

Andy

  • Enter content here

Oris

  • Enter content here