20 lines
627 B
R
20 lines
627 B
R
|
#' @title Calculate log marginal likelihood
|
||
|
|
#' @description Calculates fuzzy (log) marginal likelihood for a population of
|
||
|
|
#' real values using estimate "fii" for the dispersion value, and Jeffreys prior
|
||
|
|
#' for the mean parameter.
|
||
|
|
#' @param points points
|
||
|
|
#' @param fii fii
|
||
|
|
calculatePopLogml <- function(points, fii) {
|
||
|
|
n <- length(points)
|
||
|
|
fuzzy_ones <- sum(points)
|
||
|
|
fuzzy_zeros <- n - fuzzy_ones
|
||
|
|
val = log(gamma(1)) -
|
||
|
|
log(gamma(1 + n / fii)) +
|
||
|
|
log(gamma(0.5 + fuzzy_ones / fii)) +
|
||
|
|
log(gamma(0.5 + fuzzy_zeros / fii)) -
|
||
|
|
log(gamma(0.5)) -
|
||
|
|
log(gamma(0.5))
|
||
|
|
return(val)
|
||
|
|
}
|
||
|
|
|