R/harm_mean.R

In alexanderrobitzsch/immer: Item Response Models for Multiple Ratings

## File Name: harm_mean.R
## File Version: 0.01


#***********************************************
# compute harmonic mean
harm_mean <- function(x)
{
    exp( mean( log(x) ) )
}
#***********************************************