Kubke Lab:Research/ABR/Notebook/2013/10/15

From OpenWetWare

(Difference between revisions)
Jump to: navigation, search
(Autocreate 2013/10/15 Entry for Kubke_Lab:Research/ABR/Notebook)
(Fabiana: added knitr output)
Line 10: Line 10:
=Personal Entries=
=Personal Entries=
==Fabiana==
==Fabiana==
-
*Enter content here
+
Testing if I can put knitr output into oww
 +
 
 +
 
 +
<!DOCTYPE html>
 +
<!-- saved from url=(0014)about:internet -->
 +
<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>
 +
<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">
 +
 
 +
# 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==
==Andy==
*Enter content here
*Enter content here

Revision as of 04:52, 15 October 2013

Hearing development in barn owls Main project page
Previous entry      Next entry

Contents

General Entries

  • Insert content here...

Personal Entries

Fabiana

Testing if I can put knitr output into oww


<!DOCTYPE html> Test of knitr for openwetware log

Test of knitr for openwetware log

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


getwd()
## [1] "C:/Documents and Settings/mkub003.uoa/My Documents/Dropbox/Oris ABR dev data/Sandbox"

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:

#setwd(“C:/Documents and Settings/mkub003/My Documents/Dropbox/Oris ABR dev data/Sandbox”)

##These are things I tried

list.files() #get list of files

owl233L0B <- read.table(“Copy233L0B.ABR.txt”) dim(owl233L0B)

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

These are the lines that I wrote to read the files


owl233L0B <- read.table("Copy233L0B.ABR.txt", header = T)  #got it
dim(owl233L0B)  #get 1000 5 PASS
## [1] 1000    5
class(owl233L0B)  #get data.frame PASS
## [1] "data.frame"
names(owl233L0B)  #get [1] 'msec'  'left'  'right' 'spont' 'bin'  PASS
## [1] "msec"  "left"  "right" "spont" "bin"


# 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)])

plot of chunk unnamed-chunk-2

#need to look for parameter to change to line plot

Andy

  • Enter content here

Oris

  • Enter content here


Personal tools