Nothing
coef.cv.BTLLasso <- function(object, ...){
object$coefs.repar[which.min(object$criterion),]
}
coef.BTLLasso <- function(object, ...){
object$coefs.repar
}
logLik.cv.BTLLasso <- function(object, ...){
ll <- object$logLik[which.min(object$criterion)]
class(ll) <- "logLik"
attr(ll, "df") <- object$df[which.min(object$criterion)]
ll
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.