distance2GAMlogit <- function(formula, data, ...) {
require(mgcv)
res <- gam(formula, data, family=binomial(logit), ...)
return(list(model = res, distance = fitted(res)))
}
distance2GAMprobit <- function(formula, data, ...) {
require(mgcv)
res <- gam(formula, data, family=binomial(probit), ...)
return(list(model = res, distance = fitted(res)))
}
distance2GAMcloglog <- function(formula, data, ...) {
require(mgcv)
res <- gam(formula, data, family=binomial(cloglog), ...)
return(list(model = res, distance = fitted(res)))
}
distance2GAMlog <- function(formula, data, ...) {
require(mgcv)
res <- gam(formula, data, family=binomial(log), ...)
return(list(model = res, distance = fitted(res)))
}
distance2GAMcauchit <- function(formula, data, ...) {
require(mgcv)
res <- gam(formula, data, family=binomial(cauchit), ...)
return(list(model = res, distance = fitted(res)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.