Nothing
summary.FMmodel <-
function(object, ...){
cat(c(paste("factorization machine model"),
paste("\nnumber of training examples: ",object$traincases),
paste("\nnumber of variables: ",object$variables),
paste("\nminimum of target vector: ",object$min.target),
paste("\nmaximum of target vector: ",object$max.target),
paste("\nnumber of factors: ",paste(object$factors,collapse=" "),
"\n"
)))
}
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.