R/logspace_sum.R

Defines functions logspace_sum

logspace_sum <-
function(logx) {
  r<-logx[1]
  if(length(logx)>1)
    for(i in 2:length(logx))
      r<-logspace_add(r, logx[i])
  r  
}
lukejharmon/netphy documentation built on May 21, 2017, 3:43 p.m.