Fixed externalMetric for model list input

philips-software · Jan 6, 2021 · 7548543 · 7548543
1 parent 6f45030
commit 7548543
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/R/models.R b/R/models.R
@@ -192,10 +192,9 @@ setMethod('externalMetric', signature('lcModels', 'lcModel'), .externalMetric.lc
 #' @return For `externalMetric(list, lcModel)`: A named `numeric` vector or `data.frame`
 #' containing the computed model metrics.
 setMethod('externalMetric', signature('list', 'lcModel'),
-  function(object, object2, name, drop = TRUE)
-  {
-  assert_that(is.lcModels(object))
-  .externalMetric.lcModels(object, object2, name, drop = drop)
+  function(object, object2, name, drop = TRUE) {
+    models = as.lcModels(object)
+    .externalMetric.lcModels(models, object2, name, drop = drop)
 })