part.ess: Murray...
In mpoll/scale: The Scaleable Langevin Exact Algorithm -- Reference Implementation

Murray...

1	part.ess(log.p.wei, p.num)

`log.p.wei`
`p.num`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (log.p.wei, p.num) 
{
    normalised <- part.normal(log.p.wei)
    list(log.p.wei = normalised$log.p.wei, p.wei = normalised$p.wei, 
        ess = 1/(p.num * sum(normalised$p.wei^2)))
  }