merge

devel/ce3.r

@@ -18,11 +18,17 @@ cdb        <- cdbIni()
 #cdb$id     <- "cal-2017-ce3-kk-75043_0001"
 #cdb$id     <- "cal-2017-ce3-kk-75113_0002"
 ## cdb$id     <- "cal-2017-ce3-pn-4814_0003"
+
+## cdb$id     <- "cal-2018-ce3-kk-75003_0001"
+## cdb$id     <- "cal-2018-ce3-ik-0089_0002"
+## cdb$id     <- "cal-2018-ce3-kk-75003_0004"
+## cdb$id     <- "cal-2018-ce3-ik-0089_0004" #  F <- 4043
 ## cdb$id     <- "cal-2018-ce3-kk-75003_0004"
-#cdb$id     <- "cal-2018-ce3-ik-0089_0004" #  F <- 4043
-#cdb$id     <- "cal-2018-ce3-kk-75003_0004"
-cdb$id     <- "cal-2018-ce3-kk-75085_0001"
-cdb$DBName <- "vl_db"
+##cdb$id     <- "cal-2018-ce3-kk-75085_0001"
+cdb$id     <- "cal-2018-ce3-ik-4813_0002"
+#cdb$DBName <- "vl_db"
+cdb$DBName <- "vl_db_work"
+
 
 doc        <- cdbGetDoc(cdb)$res
 
@@ -60,14 +66,14 @@ 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 <- 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)
 ##     ## all
 ##  ##
 ##  ##     ## misc
@@ -92,7 +98,7 @@ if(length(a$ct) > 0){
 ##  ##  doc <- ce3.compareCDGs(doc)
 
 if(FALSE){
-    cdb$DBName <- "vl_db"
+    cdb$DBName <- "vl_db_work"
     cdb$dataList <- doc
     cdbUpdateDoc(cdb)$res
 }

devel/srg_vg.r

@@ -4,7 +4,7 @@ library(R4CouchDB,quietly =TRUE)
 library(vacLabTools,quietly =TRUE)
 
 cdb         <- cdbIni()
-cdb$DBName  <- "vl_db" ## DBName
+cdb$DBName  <- "vl_db_work" ## DBName
 
 source("load.r")
 
@@ -18,9 +18,10 @@ pUnit  <- "mbar"
 ## cdb$id <- "cal-2016-ce3-kk-75081_0002"
 ## cdb$id <- "cal-2017-ce3-kk-75043_0002"
 ## cdb$id <- "cal-2017-ce3-kk-75106_0002" ## 
-cdb$id <- "cal-2017-ce3-kk-75117_0002" ## 
+##cdb$id <- "cal-2018-ce3-kk-75007_0002" ##
+cdb$id <- "cal-2018-ce3-kk-75021_0002" ## 
 
-sigma.F13 <- 1.094
+sigma.F13 <- 1.08
 
 doc    <- cdbGetDoc(cdb)$res
 doc    <- refreshAnalysis(doc)

scripts/ce3.calibration_pressure.r

@@ -58,8 +58,8 @@ for(i in 1:length(ids)){
         doc <- ce3.uncert.temperature.ch(doc)
         doc <- ce3.uncert.F(doc)
         doc <- ce3.uncert.pressure.cal(doc)
-        ##
-        ##     ## ... customer calibration object (cuco) related
+        #
+        #     ## ... customer calibration object (cuco) related
         doc <- cuco.uncert.digit(doc)
         doc <- cuco.uncert.pressure.offset(doc)
         doc <- cuco.uncert.drift.offset(doc)