Version 3.5, from a fresh installationv3.5

1 files changed, 7 insertions, 1 deletions

diff --git a/CakeNullPlot.R b/CakeNullPlot.R
index 52245ce..f6a6955 100644..100755
--- a/CakeNullPlot.R
+++ b/CakeNullPlot.R
@@ -2,7 +2,8 @@
 # Generates model curves so the GUI can plot them. Used when all params are fixed so there was no fit
 # Some of the CAKE R modules are based on mkin
 # Based on code in IRLSkinfit
-# Modifications developed by Tessella for Syngenta: Copyright (C) 2011-2020 Syngenta
+# Modifications developed by Hybrid Intelligence (formerly Tessella), part of
+# Capgemini Engineering, for Syngenta, Copyright (C) 2011-2022 Syngenta
 # Tessella Project Reference: 6245, 7247, 8361, 7414, 10091
 
 #    The CAKE R modules are free software: you can redistribute it and/or modify
@@ -118,6 +119,11 @@ CakeNullPlot <- function(model, parms.ini, state.ini, observed, xlim = range(obs
   data<-data[order(data$variable,data$time),]
   cat("\nData:\n")
   print(format(data, digits = digits, scientific = FALSE,...), row.names = FALSE)
+
+  additionalStats <- CakeAdditionalStats(data)
+
+  cat("\nAdditional Stats:\n");
+  print(additionalStats, digits = digits, ...)
   
   # Solve at output times
   out <- ode(