message take long

Oncostat · Jun 9, 2017 · bd69bc5 · bd69bc5
1 parent 594f707
commit bd69bc5
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,8 +2,8 @@ Package: surrosurv
 Type: Package
 Title: Evaluation of Failure Time Surrogate Endpoints in Individual Patient Data
     Meta-Analyses
-Version: 1.1.16
-Date: 2017-05-06
+Version: 1.1.17
+Date: 2017-06-09
 Authors@R: c(
   person("Federico", "Rotolo", email="[email protected]", 
           role=c("aut", "cre")),

diff --git a/R/surrosurv.R b/R/surrosurv.R
@@ -113,8 +113,8 @@ surrosurv <- function(data,
   models <- c(models[!grepl('poisson', models)],
               if (any(grepl('poisson', models)))
                 'poisson')
-  if (verbose)
-    message('Computation may take very long. Please wait...')
+  # if (verbose)
+  #   message('Computation may take very long. Please wait...')
   fitRES <- lapply(models, function(x) {
     eval(call(paste(x)))
   })