From 381266b57b48e8005099b4ea5762d08455c2e5ba Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Fri, 9 Feb 2018 16:34:57 +0000
Subject: initial commit

---
 R/print.gensvm.R | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 R/print.gensvm.R

(limited to 'R/print.gensvm.R')

diff --git a/R/print.gensvm.R b/R/print.gensvm.R
new file mode 100644
index 0000000..8d17b0c
--- /dev/null
+++ b/R/print.gensvm.R
@@ -0,0 +1,34 @@
+#' @title Print the fitted GenSVM model
+#'
+#' @description Prints a short description of the fitted GenSVM model
+#'
+#' @param object A \code{gensvm} object to print
+#' @param \dots further arguments are ignored
+#'
+#' @return returns the object passed as input
+#'
+#' @author
+#' Gerrit J.J. van den Burg, Patrick J.F. Groenen
+#' Maintainer: Gerrit J.J. van den Burg <gertjanvandenburg@gmail.com>
+#'
+#' @references
+#' Van den Burg, G.J.J. and Groenen, P.J.F. (2016). \emph{GenSVM: A Generalized 
+#' Multiclass Support Vector Machine}, Journal of Machine Learning Research, 
+#' 17(225):1--42. URL \url{http://jmlr.org/papers/v17/14-526.html}.
+#'
+#' @method print gensvm
+#' @export
+#'
+#' @examples
+#'
+#'
+print.gensvm <- function(object, ...)
+{
+    cat("\nCall:\n")
+    dput(object$call)
+
+    # TODO: fill this out
+    #
+    #
+    invisible(object)
+}
-- 
cgit v1.2.3