Nothing
gamObj <- function(object,
...) {
UseMethod("gamObj")
}
gamObj.gampsth <- function(object,...) {
evalq(PoissonF, envir=environment(object$lambdaFct))
}
gamObj.gamlockedTrain <- function(object, ...) {
object$gamFit
}
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.