From 747e4b5625a448d8ead6ff687f54af9403b13196 Mon Sep 17 00:00:00 2001
From: Marvin Wright <github@wrig.de>
Date: Fri, 5 Jan 2018 14:31:45 +0100
Subject: [PATCH] print prettier version number

---
 R/prints.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/prints.R b/R/prints.R
index 756753a..6a7b0a6 100644
--- a/R/prints.R
+++ b/R/prints.R
@@ -25,7 +25,7 @@ print.survivalsvm <- function(x, ...) {
     result <- printHybrid(object = x)
   }
   cat("survivalsvm version                :", 
-     x$package.version, "\n")
+      paste(x$package.version, collapse = "."), "\n")
 }
 
 #' Print of object of class \code{RegFitObj}. \code{RegFitObj} is the class of models fitted using the regression approach of survival support vector machines.
@@ -146,5 +146,5 @@ print.survivalsvmprediction <- function(x, ...) {
   cat("predicted risk ranks                     :", round(x$predicted[1:min(5, 
                                             length(x$predicted))], 2), "...\n")
   cat("survivalsvm version                      :", 
-      x$package.version, "\n")
+      paste(x$package.version, collapse = "."), "\n")
 }