Nothing
## -----------------------------------------------------------------------------
glmmPQL_modelfun <- function(formula = NULL, data = NULL, random = NULL,
family = NULL) {
fit <- glmmPQL(fixed = formula, data = data, random = random, family = family)
return(fit)
}
## ---- eval = FALSE------------------------------------------------------------
# rf_predfun <- function(object = NULL, newdata = NULL, type = NULL) {
# pred <- predict(object = object, newdata = newdata, type = type)
# pred <- pred[, 2]
# }
## -----------------------------------------------------------------------------
svm_predfun <- function(object = NULL, newdata = NULL, probability = NULL) {
pred <- predict(object, newdata = newdata, probability = TRUE)
pred <- attr(pred, "probabilities")[, 2]
}
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.