Nothing
###
### R routines for the R package mixmeta (c)
#
coef.mixmeta <-
function(object, format=c("vector","matrix"), ...) {
#
################################################################################
#
coef <- object$coefficients
format <- match.arg(format,c("vector","matrix"))
if(format=="matrix" && object$dim$k>1L) coef <- matrix(coef,ncol=object$dim$k,
byrow=TRUE,dimnames=list(object$lab$p,object$lab$k))
#
coef
}
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.