Nothing
# Author: Babak Naimi, naimi.b@gmail.com
# Date (last update): July 2017
# Version 1.1
# Licence GPL v3
#-------------
methodInfo <- list(name=c('mars','MARS','earth'),
packages='earth',
modelTypes = c('pa','pb','ab','n'),
fitParams = list(formula='standard.formula',data='sdmDataFrame'),
fitSettings = list(weights=NULL,pmethod='none',trace=0,glm=list(family=binomial)),
fitFunction = 'earth',
settingRules = function(x='sdmVariables',f='fitSettings') {
if (x@distribution == 'poisson') f[['glm']] <- list(family=poisson)
list(fitSettings=f)
},
tuneParams = list(glm=c(NULL,'default')),
predictParams=list(object='model',newdata='sdmDataFrame'),
predictSettings=list(type='response'),
predictFunction='predict',
#------ metadata (optional):
title='Multivariate Adaptive Regression Splines',
creator='Babak Naimi',
authors=c('Stephen Milborrow'), # authors of the main method
email='naimi.b@gmail.com',
url='http://r-gis.net',
citation=list(bibentry('Article',title = "Multivariate Adaptive Regression Splines",
author = as.person("Friedman [aut]"),
year='1991',
journal = "Annals of Statistics",
number="19/1",
pages="1-141"
)
),
description="Build a regression model using the techniques in Friedman's papers 'Multivariate Adaptive Regression Splines' and 'Fast MARS'."
)
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.