Moved predict ellipsis to back. Resolves #13

philips-software · Jan 5, 2021 · 6f45030 · 6f45030
1 parent 00caafc
commit 6f45030
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/R/model.R b/R/model.R
@@ -710,9 +710,7 @@ nobs.lcModel = function(object, ...) {
 #' # Prediction matrix for id S1 for all clusters
 #' predIdAll <- predict(model, newdata = data.frame(Id = "S1", Time = time(model)))
 #' @family model-specific methods
-predict.lcModel = function(object, ...,
-                           newdata = NULL,
-                           what = 'mu') {
+predict.lcModel = function(object, newdata = NULL, what = 'mu', ...) {
   # special case for when no newdata is provided
   if (is.null(newdata)) {
     newdata = model.data(object)

diff --git a/man/predict.lcModel.Rd b/man/predict.lcModel.Rd