Fix summary for cases where performance metrics contains NAs

jmaspons · Apr 28, 2022 · f7373f2 · f7373f2
1 parent 233e6b3
commit f7373f2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/results-methods.R b/R/results-methods.R
@@ -13,7 +13,7 @@ summary.pipe_result.keras<- function(object, ...){
 
   ## performance
   perf.summary<- lapply(object$performance, function(x){
-    x<- summary(coda::mcmc(x))
+    x<- summary(coda::mcmc(na.omit(x)))
     data.frame(t(c(x$statistics[c("Mean", "SD", "Naive SE")], x$quantiles)), check.names=FALSE)
   })