..

devel/calYampCe3.R

@@ -46,25 +46,25 @@ if(TRUE){
     ##  
     doc <- dispatchResCal(doc)
   
-## uncertainty ...
-     ## ... fm3 related
-     doc <- fm3.uncertPfill(doc)
-     doc <- fm3.uncertDPfill(doc)
-     doc <- fm3.uncertDeltaV(doc)
-     doc <- fm3.uncertDeltaVDeltat(doc)
-     doc <- fm3.uncertDeltat(doc)
-     
-     doc <- fm3.uncertPres(doc)
-     doc <- fm3.uncertConstC(doc)
+    ## uncertainty ...
+    ## ... fm3 related
+    doc <- fm3.uncertPfill(doc)
+    doc <- fm3.uncertDPfill(doc)
+    doc <- fm3.uncertDeltaV(doc)
+    doc <- fm3.uncertDeltaVDeltat(doc)
+    doc <- fm3.uncertDeltat(doc)
+    
+    doc <- fm3.uncertPres(doc)
+    doc <- fm3.uncertConstC(doc)
          
-     doc <- fm3.uncertqpV(doc)
-     ##  ... ce3 related
-     doc <- ce3.uncertCx(doc)
-     doc <- ce3.uncertQsplit(doc)
-     doc <- ce3.uncertTfm(doc)
-     doc <- ce3.uncertTch(doc)
-     doc <- ce3.uncertF(doc)
-     doc <- ce3.uncertPcal(doc)
+    doc <- fm3.uncertqpV(doc)
+    ##  ... ce3 related
+    doc <- ce3.uncertCx(doc)
+    doc <- ce3.uncertQsplit(doc)
+    doc <- ce3.uncertTfm(doc)
+    doc <- ce3.uncertTch(doc)
+    doc <- ce3.uncertF(doc)
+    doc <- ce3.uncertPcal(doc)
   
     ## ... customer calibration object (cuco) related
     doc <- cuco.uncertDigit(doc)
@@ -79,8 +79,8 @@ if(TRUE){
     doc <- ce3.uncertTotal(doc)
     
     ## misc
-#    doc <- ce3.compareCDGs(doc)
-#    doc <- writeRes(doc)
+    doc <- ce3.compareCDGs(doc)
+    doc <- writeRes(doc)
 
 }
 #cdb$dataList <- doc

scripts/analyse_CE3_YAMP.R

 if(length(doc$Calibration) > 0){
-    
+
     doc <- refreshAnalysis(cdb,doc)
     doc <- refreshResult(cdb,doc)
-    
+
     doc <- ce3.newCalT(doc)
     doc <- ce3.newCalPfill(doc)
     doc <- ce3.calDeltaVDeltat(doc)
@@ -12,29 +12,29 @@ if(length(doc$Calibration) > 0){
     doc <- ce3.calPcal(doc)
     ##
     doc <- ce3.writePind(doc)
-    ##  
+    ##
     doc <- dispatchResCal(doc)
-  
-## uncertainty ...
-     ## ... fm3 related
-     doc <- fm3.uncertPfill(doc)
-     doc <- fm3.uncertDPfill(doc)
-     doc <- fm3.uncertDeltaV(doc)
-     doc <- fm3.uncertDeltaVDeltat(doc)
-     doc <- fm3.uncertDeltat(doc)
-     
-     doc <- fm3.uncertPres(doc)
-     doc <- fm3.uncertConstC(doc)
-         
-     doc <- fm3.uncertqpV(doc)
-     ##  ... ce3 related
-     doc <- ce3.uncertCx(doc)
-     doc <- ce3.uncertQsplit(doc)
-     doc <- ce3.uncertTfm(doc)
-     doc <- ce3.uncertTch(doc)
-     doc <- ce3.uncertF(doc)
-     doc <- ce3.uncertPcal(doc)
-  
+
+    ## uncertainty ...
+    ## ... fm3 related
+    doc <- fm3.uncertPfill(doc)
+    doc <- fm3.uncertDPfill(doc)
+    doc <- fm3.uncertDeltaV(doc)
+    doc <- fm3.uncertDeltaVDeltat(doc)
+    doc <- fm3.uncertDeltat(doc)
+
+    doc <- fm3.uncertPres(doc)
+    doc <- fm3.uncertConstC(doc)
+
+    doc <- fm3.uncertqpV(doc)
+    ##  ... ce3 related
+    doc <- ce3.uncertCx(doc)
+    doc <- ce3.uncertQsplit(doc)
+    doc <- ce3.uncertTfm(doc)
+    doc <- ce3.uncertTch(doc)
+    doc <- ce3.uncertF(doc)
+    doc <- ce3.uncertPcal(doc)
+
     ## ... customer calibration object (cuco) related
     doc <- cuco.uncertDigit(doc)
     doc <- cuco.uncertPOffset(doc)
@@ -42,11 +42,11 @@ if(length(doc$Calibration) > 0){
     doc <- cuco.uncertSync(doc)
     doc <- cuco.uncertExpSd(doc)
     doc <- cuco.uncertGasPurity(doc)
+    doc <- cuco.uncertEmis(doc)
     doc <- cuco.uncertPind(doc)
-  
-    ## all 
+    ## all
     doc <- ce3.uncertTotal(doc)
-    
+
     ## misc
     doc <- ce3.compareCDGs(doc)
     doc <- writeRes(doc)

utils/writeRes.R

@@ -170,7 +170,7 @@ writeRes <- function( ccc ){
                 }
                 if(reType == "sens"){
                     PIND$Value      <- formatC(td.pind,     digits=2, format="E")
-                    PINDoffs$Value  <- formatC(td.pindoffs, digits=2, format="E")
+                    PINDoffs$Value  <- formatC(td.pindoffs, digits=1, format="E")
                     PINDcorr$Value  <- formatC(td.pindcorr, digits=2, format="E")
                     RES$Value       <- formatC(td.result, digits=1, width=3, format="f")
                 }