rel. sens uncert

devel/ce3.r

@@ -25,9 +25,9 @@ cdb        <- cdbIni()
 ## 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$id     <- "cal-2018-ce3-ik-4813_0002"
+cdb$id     <- "cal-2019-ce3-kk-75037_0001"
 #cdb$DBName <- "vl_db"
-cdb$DBName <- "vl_db_work"
+cdb$DBName <- "vl_db"
 
 
 doc        <- cdbGetDoc(cdb)$res
@@ -66,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
@@ -97,8 +97,8 @@ if(length(a$ct) > 0){
 ##  ##  ## #
 ##  ##  doc <- ce3.compareCDGs(doc)
 
-if(FALSE){
-    cdb$DBName <- "vl_db_work"
+if(!FALSE){
+   # 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_work" ## DBName
+cdb$DBName  <- "vl_db" ## DBName
 
 source("load.r")
 
@@ -18,10 +18,12 @@ 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-2018-ce3-kk-75007_0002" ##
-cdb$id <- "cal-2018-ce3-kk-75021_0002" ## 
+## cdb$id <- "cal-2018-ce3-kk-75007_0002" ##
+## cdb$id <- "cal-2018-ce3-kk-75021_0002" ##
+cdb$id <- "cal-2019-ce3-kk-75036_0002" ##
+## cdb$id <- "cal-2019-ce3-kk-75037_0002" ## 
 
-sigma.F13 <- 1.08
+sigma.F13 <- 1.11
 
 doc    <- cdbGetDoc(cdb)$res
 doc    <- refreshAnalysis(doc)

utils/resSens.r

@@ -16,7 +16,7 @@ resSens <- function(ccc){
     ##-------------##
     k  <- 2
     UT <- getSubList(a$cav$Uncertainty, "uncertTotal_rel")
-    UT$HeadCell <- paste0("{\\(U(k=", k, ")\\)}")
+    UT$HeadCell <- paste0("{\\(U(S, k=", k, ")/S\\)}")
     if(UT$Unit == "1"){
         UT$UnitCell <- ""
     }