diff options
Diffstat (limited to 'CakeNullPlot.R')
| -rwxr-xr-x[-rw-r--r--] | CakeNullPlot.R | 8 |
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( |