Nothing
## File Name: coef.R
## File Version: 0.06
########################
# coef for din object
coef.din <- function (object, ...)
{
cof <- object$coef
return(cof)
}
########################
# coef for gdina object
coef.gdina <- function (object, ...)
{
cof <- object$coef
return(cof)
}
########################
# coef for gdm object
coef.gdm <- function (object, ...)
{
cof <- object$item
return(cof)
}
########################
# coef for mcdina object
coef.mcdina <- function (object, ...)
{
cof <- object$item
return(cof)
}
########################
# coef for slca object
coef.slca <- function (object, ...)
{
cof <- object$Xlambda
return(cof)
}
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.