Gaussian log likelihood in sufficient statistics (eq. 24.5-24.6, p. 319)

Usage

morie_gllsuff(xbar, s, n, mu, sigma)

Arguments

xbar: sample mean
s: sum of squared deviations from xbar
n: sample size
mu: candidate mean
sigma: candidate noise level

Value

list(loglik, n, s, sigman)

Examples

morie_gllsuff(xbar = c(1, 2, 3, 4, 5, 6, 7, 8), s = c(1, 2, 3, 4, 5, 6, 7, 8), n = 5L,
  mu = c(1, 2, 3, 4, 5, 6, 7, 8), sigma = 0.5)
#> $loglik
#> [1]  -3.128957  -5.128957  -7.128957  -9.128957 -11.128957 -13.128957 -15.128957
#> [8] -17.128957
#> 
#> $n
#> [1] 5
#> 
#> $s
#> [1] 1 2 3 4 5 6 7 8
#> 
#> $sigman
#> [1] 0.4472136 0.6324555 0.7745967 0.8944272 1.0000000 1.0954451 1.1832160
#> [8] 1.2649111
#>