s://rdrr.io/r/base/c.html'>c</a></span>(<span class='no'>f</span>, <span class='st'>'J=sum(J[!is.infinite(J)],na.rm=TRUE)'</span>)
<span class='no'>f</span> <span class='kw'>&lt;-</span> <span class='fu'><a href='https://rdrr.io/r/base/c.html'>c</a></span>(<span class='no'>f</span>, <span class='st'>'J=(J/length(y))'</span>)
<span class='no'>f</span> <span class='kw'>&lt;-</span> <span class='fu'><a href='https://rdrr.io/r/base/paste.html'>paste</a></span>(<span class='no'>f</span>, <span class='kw'>collaps