Nothing
# Author: Babak Naimi, naimi.b@gmail.com
# Date (last update): July 2017
# Version 1.1
# Licence GPL v3
#-------------
methodInfo <- list(name=c('fda','FDA'),
packages='mda',
modelTypes = c('pa','pb','n'),
fitParams = list(formula='standard.formula',data='sdmDataFrame'),
fitSettings = list(method = substitute(polyreg),keep.fitted=FALSE),
fitFunction = 'fda',
settingRules = NULL,
tuneParams = list(method=substitute(c(polyreg,mars,gen.ridge,bruto))),
predictParams=list(object='model',newdata='sdmDataFrame'),
predictSettings=list(type='posterior'),
predictFunction=function(object,newdata,type) {
predict(object,newdata,type=type)[,'1']
},
#------ metadata (optional):
title='Flexible Discriminant Analysis',
creator='Babak Naimi',
authors=c('Trevor Hastie; Robert Tibshirani'), # authors of the main method
email='naimi.b@gmail.com',
url='http://r-gis.net',
citation=list(bibentry('Article',title = "Flexible Disriminant Analysis by Optimal Scoring",
author = as.person("T. Hastie [aut], R. Tibshirani [aut], Buja [aut]"),
year='1994',
journal = "JASA",
pages="1255-1270"
)
),
description='Flexible discriminant analysis.'
)
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.