Nothing
effectInfomod8 <-
function(object)
{
mf <- model.frame(object$model)
aux <- summary(object$model)$coefficients
Xlevels <- levels(mf[, 2])
nlevels <- length(Xlevels)
beta <- aux[2:nlevels, ]
Xincrease <- paste("changing X from its reference, '", Xlevels[1], "', to the alternative level", sep = "")
effecttype <- "odds ratio of Y"
effectsize <- "exp(beta)"
furtherinfo <- "\nFurther details can be obtained using effect() and providing the level for the\nconfidence interval, 'level'."
res <- list(beta = beta, Xincrease = Xincrease, effecttype = effecttype, effectsize = effectsize)
res
}
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.