From fd9ea462ba438c023e33902449429eae6d2dc28f Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 9 Nov 2022 10:08:37 +0100
Subject: Version 3.5, from a fresh installation

---
 CakeNullPlot.R | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)
 mode change 100644 => 100755 CakeNullPlot.R

(limited to 'CakeNullPlot.R')

diff --git a/CakeNullPlot.R b/CakeNullPlot.R
old mode 100644
new mode 100755
index 52245ce..f6a6955
--- 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(
-- 
cgit v1.2.1