..

scripts/ce3.calibration_pressure.r

@@ -52,36 +52,36 @@ for(i in 1:length(ids)){
         doc <- fm3.uncert.pressure.res(doc)
         doc <- fm3.uncertqpV(doc)
         ##  ... ce3 related
-#        doc <- ce3.uncert.conductance(doc)
-#        doc <- ce3.uncert.flow.split(doc)
-#        doc <- ce3.uncert.temperature.fm(doc)
-#        doc <- ce3.uncert.temperature.ch(doc)
-#        doc <- ce3.uncert.F(doc)
-#        doc <- ce3.uncert.pressure.cal(doc)
-#        #
-#        #     ## ... customer calibration object (cuco) related
-#        doc <- cuco.uncert.digit(doc)
-#        doc <- cuco.uncert.pressure.offset(doc)
-#        doc <- cuco.uncert.drift.offset(doc)
-#        doc <- cuco.uncert.sync(doc)
-#        doc <- cuco.uncert.stdev(doc)
-#        doc <- cuco.uncert.purity(doc)
-#        doc <- cuco.uncert.emis(doc)
-#        doc <- cuco.uncert.pressure.ind(doc)
-#
+        doc <- ce3.uncert.conductance(doc)
+        doc <- ce3.uncert.flow.split(doc)
+        doc <- ce3.uncert.temperature.fm(doc)
+        doc <- ce3.uncert.temperature.ch(doc)
+        doc <- ce3.uncert.F(doc)
+        doc <- ce3.uncert.pressure.cal(doc)
+        #
+        #     ## ... customer calibration object (cuco) related
+        doc <- cuco.uncert.digit(doc)
+        doc <- cuco.uncert.pressure.offset(doc)
+        doc <- cuco.uncert.drift.offset(doc)
+        doc <- cuco.uncert.sync(doc)
+        doc <- cuco.uncert.stdev(doc)
+        doc <- cuco.uncert.purity(doc)
+        doc <- cuco.uncert.emis(doc)
+        doc <- cuco.uncert.pressure.ind(doc)
 
-        if(length(a$ct) > 0){
-            resType <- a$ct$Type
-            if(resType == "error"){
-                doc <- calError(doc)
- #               doc <- ce3.uncert.total.error(doc)
- #               doc <- results(doc)
-            }
 
-            if(resType == "sens"){
-                doc <- calSens(doc)
-#                doc <- ce3.uncert.total.sens(doc)
-#                doc <- resSens(doc)
+       if(length(a$ct) > 0){
+           resType <- a$ct$Type
+           if(resType == "error"){
+               doc <- calError(doc)
+               doc <- ce3.uncert.total.error(doc)
+               doc <- results(doc)
+           }
+
+           if(resType == "sens"){
+               doc <- calSens(doc)
+                doc <- ce3.uncert.total.sens(doc)
+                doc <- resSens(doc)
 
             }
         }