-<span class="st"> </span><span class="kw">as.numeric</span>(<span class="kw">unlist</span>(<span class="kw">strsplit</span>(x[m,n], <span class="st">"|"</span>))[<span class="dv">3</span>])
      gdat[m,n] &lt;-<span class="st"> </span>a<span class="op">+</span>b
    }
}
<span class="kw">rownames</span>(gdat) &lt;-<span class="st"> </span><span class="kw">rownames</span>(x)
<span class="kw">colnames</span>(gdat) &lt;-<span class="st"> </span><span class="kw">colnames</span>(x)
      <span class="kw">return