initial commit

src/createReport.m

@@ -0,0 +1,52 @@
+function report=createReport(mdl, pp)
+
+% Produces report from GMPE calculation product (LinearModel)
+
+% (c) Dorota Olszewska 2017.03.10
+
+report = struct();
+report.linRegModel=mdl.Formula.char;
+report.h=pp.h
+report.obsNo=mdl.NumObservations;
+report.dfe=mdl.DFE;
+report.rmse=mdl.RMSE;
+report.r2=mdl.Rsquared.Ordinary;
+a1=anova(mdl,'summary');
+report.p=a1{2,5};
+report.coefficients=mdl.Coefficients;
+report.coeffsStatisticallyInsignificant=mdl.CoefficientNames(mdl.Coefficients.pValue(1:end)>0.05);
+report.coeffsSourceNonPositive={};
+report.coeffsDistNonNegative={};
+if pp.N.eventN~=0
+  if pp.N.eventN==2
+    mm=(strcmp(mdl.PredictorNames,pp.event_set{1}))+(strcmp(mdl.PredictorNames,pp.event_set{2}));
+  elseif pp.N.eventN==1
+    mm=(strcmp(mdl.PredictorNames,pp.event_set{1}));
+  end
+  
+  M.test=sum(mm);
+  M.Names=mdl.PredictorNames(mm==1);
+  M.var=mdl.Coefficients.Estimate(M.Names);
+  M.znak=mdl.Coefficients.Estimate(M.Names)>0;
+  if sum(M.znak)~=M.test
+    report.coeffsSourceNonPositive=M.Names(M.znak==0);
+  end
+end
+
+if pp.N.distN~=0
+  if pp.N.distN==2
+    rr=(strcmp(mdl.PredictorNames,pp.dist_set{1}))+(strcmp(mdl.PredictorNames,pp.dist_set{2}));
+  elseif pp.N.distN==1
+    rr=(strcmp(mdl.PredictorNames,pp.dist_set{1}));
+  end
+    
+  R.test=sum(rr);
+  R.Names=mdl.PredictorNames(rr==1);
+  R.var=mdl.Coefficients.Estimate(R.Names);
+  R.znak=mdl.Coefficients.Estimate(R.Names)<0;
+  R.exc=R.Names(R.znak==0);
+  if sum(R.znak)~=R.test
+    report.coeffsDistNonNegative=R.exc;
+  end
+end
+end