Feature Request: logLik method

[billdenney]

I was wanting to compare two models using AIC, so I needed a logLik function. Here it is in case you think it would help:

logLik.xpose_data <- function(object, ...) {
  structure(
    -0.5*as.numeric(rev(object$summary$value[object$summary$label == "ofv"])[1]),
    df=sum(!get_prm(object)$fixed),
    class="logLik"
  )
}

[bguiastr]

Hi @billdenney, happy new year! Thanks a lot for the snippet, I have a lot on my plate at the moment but I would definitively consider to include this function into future versions of xpose.
Best