Tidy up error message

DistanceDevelopment · Jun 11, 2023 · e130c69 · e130c69
1 parent 4e53f67
commit e130c69
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ds.R b/R/ds.R
@@ -697,7 +697,7 @@ ds <- function(data, truncation=ifelse(is.null(cutpoints),
   } # end for() over adjustments
 
   if(is.null(model)){
-    stop("No models could be fitted.")
+    stop("No models could be fitted.", call. = FALSE)
   }
 
   # check that hazard models have a reasonable scale parameter