|
| 1 | +% This script generates the plots for the analyses of the paper "Benchmark |
| 2 | +% Problems for Dynamic Modeling of Intracellular Processes". |
| 3 | + |
| 4 | +% Load results for the checks of convexity in linear and log scale. |
| 5 | +load('Benchmark_paper_convex.mat','Convex_analysis'); |
| 6 | + |
| 7 | +% Load fitting results of all models |
| 8 | +loadOptimizationAnalysis |
| 9 | + |
| 10 | +% Load table with all the characteristics of the |
| 11 | +% models including number of data points, observables, parameters, etc. |
| 12 | +load('Benchmark_paper_modelcharacteristics.mat','modelcharacteristics'); |
| 13 | + |
| 14 | +%% Comparison of performance criterion linlog vs. log for different thresholds to consider a start as converged |
| 15 | +chi2_threshold = 1e-1; |
| 16 | +plot_Benchmark('convergence-linloglog',chi2_threshold) |
| 17 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 8 8]) |
| 18 | +% if ~(exist('Manuscript_figures')) |
| 19 | +% mkdir('Manuscript_figures') |
| 20 | +% end |
| 21 | +% print('-depsc',['Manuscript_figures/Fig2A']) |
| 22 | + |
| 23 | +chi2_threshold = 10; |
| 24 | +plot_Benchmark('convergence-linloglog',chi2_threshold) |
| 25 | +title(['threshold = ' num2str(chi2_threshold)],'FontSize',7) |
| 26 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 8 8]) |
| 27 | +%print('-depsc',['Supplement_figures/linlog_threshold10']) |
| 28 | + |
| 29 | +chi2_threshold = 50; |
| 30 | +plot_Benchmark('convergence-linloglog',chi2_threshold) |
| 31 | +title(['threshold = ' num2str(chi2_threshold)],'FontSize',7) |
| 32 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 8 8]) |
| 33 | +% if ~(exist('Supplement_figures')) |
| 34 | +% mkdir('Supplement_figures') |
| 35 | +% end |
| 36 | +%print('-depsc',['Supplement_figures/linlog_threshold50']) |
| 37 | + |
| 38 | +%% Comparison of convexity between different sampling and parameter transformation strategies |
| 39 | +plot_Benchmark('convex') |
| 40 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 5 6.5]) |
| 41 | +%print('-depsc',['Manuscript_figures/Fig2C']) |
| 42 | + |
| 43 | +%% Interior-point vs. trust-region-reflective performance metrics for different thresholds |
| 44 | +chi2_threshold = 1e-1; |
| 45 | +plot_Benchmark('trust-ip',chi2_threshold) |
| 46 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 8 8]) |
| 47 | +%print('-depsc',['Manuscript_figures/Fig3']) |
| 48 | + |
| 49 | +chi2_threshold = 0.5; |
| 50 | +plot_Benchmark('trust-ip',chi2_threshold) |
| 51 | +title(['threshold = ' num2str(chi2_threshold)],'FontSize',7) |
| 52 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 8 8]) |
| 53 | +%print('-depsc',['Supplement_figures/ip_trust_threshold0_5']) |
| 54 | + |
| 55 | +chi2_threshold = 1; |
| 56 | +plot_Benchmark('trust-ip',chi2_threshold) |
| 57 | +title(['threshold = ' num2str(chi2_threshold)],'FontSize',7) |
| 58 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 8 8]) |
| 59 | +%print('-depsc',['Supplement_figures/ip_trust_threshold1']) |
| 60 | + |
| 61 | +chi2_threshold = 10; |
| 62 | +plot_Benchmark('trust-ip',chi2_threshold) |
| 63 | +title(['threshold = ' num2str(chi2_threshold)],'FontSize',7) |
| 64 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 8 8]) |
| 65 | +%print('-depsc',['Supplement_figures/ip_trust_threshold10']) |
| 66 | + |
| 67 | +chi2_threshold = 50; |
| 68 | +plot_Benchmark('trust-ip',chi2_threshold) |
| 69 | +title(['threshold = ' num2str(chi2_threshold)],'FontSize',7) |
| 70 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 8 8]) |
| 71 | +%print('-depsc',['Supplement_figures/ip_trust_threshold50']) |
| 72 | + |
| 73 | +%% Iterations needed in optimization vs. parameter number |
| 74 | +plot_Iterations(0,modelcharacteristics,6) |
| 75 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 8 8]) |
| 76 | +%print('-depsc',['Manuscript_figures/Fig4A']) |
| 77 | + |
| 78 | +%% Time needed for optimization vs. parameter number |
| 79 | +plot_Iterations(1,modelcharacteristics,6) |
| 80 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 8 8]) |
| 81 | +%print('-depsc',['Manuscript_figures/Fig4B']) |
| 82 | + |
| 83 | +%% Waterfall plots for the Supplementary Information |
| 84 | +plot_WaterfallScatter |
| 85 | + |
| 86 | +%% Convexity plots for the Supplementary Information |
| 87 | +plot_Convexity_suppl |
| 88 | +set(gcf, 'PaperUnits','centimeters', 'PaperPosition',[0 0 16 15]) |
| 89 | +%print('-depsc',['Supplement_figures/convexity']) |
0 commit comments