View source: R/mixture_methods.R
loglkd | R Documentation |
Given a fitted mixture model f(x) and observations x_1, …, x_n \in \mathcal{M}, compute the log-likelihood
L = \log ∏_{i=1}^n f(x_i) = ∑_{i=1}^n \log f(x_i)
.
loglkd(object, newdata)
object |
a fitted mixture model of |
newdata |
data of n objects (vectors, matrices) that can be wrapped by one of |
the log-likelihood.
# ---------------------------------------------------- # # FIT A MODEL & APPLY THE METHOD # ---------------------------------------------------- # # Load the 'city' data and wrap as 'riemobj' data(cities) locations = cities$cartesian embed2 = array(0,c(60,2)) for (i in 1:60){ embed2[i,] = sphere.xyz2geo(locations[i,]) } # Fit a model k3 = moSN(locations, k=3) # Evaluate newloglkd = round(loglkd(k3, locations), 3) print(paste0("Log-likelihood for K=3 model fit : ", newloglkd))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.