summaryrefslogtreecommitdiff
path: root/CakeNullPlot.R
diff options
context:
space:
mode:
Diffstat (limited to 'CakeNullPlot.R')
-rwxr-xr-x[-rw-r--r--]CakeNullPlot.R8
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(

Contact - Imprint