Nothing
#' @include modelObj.R methodObjSolverXY.R methodObjPredict.R
#' @rdname modelObj
setClass("modelObjXY",
contains = c("modelObj"))
.newModelObjXY <- function(model,
solver.method,
solver.args,
predict.method,
predict.args) {
solver <- .newMethodObjSolverXY(method = solver.method,
args = solver.args)
predictor <- .newMethodObjPredict(method = predict.method,
args = predict.args)
return( new("modelObjXY",
model = model,
solver = solver,
predictor = predictor) )
}
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.