(unit)

devel/ce3.r

@@ -18,9 +18,10 @@ 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_0004"
+## 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"
 
 doc        <- cdbGetDoc(cdb)$res

uncert/cuco.uncert_stdev.r

@@ -24,15 +24,15 @@ cuco.uncert.stdev <- function(ccc){
     }
 
     ## es gibt sd-Daten aus der Messung
-    SdInd <- getSubList(a$cmv, "ind")$SdValue
-    N     <- getSubList(a$cmv, "ind")$N
-    if(length(SdInd) > 0 & length(N) > 0){
-
-        tu <- abs(unlist(SdInd) / pind)
-        tu[which(tu > 0.9)] <- NA
-        tu <- mean(tu, na.rm = TRUE)
-        u  <- rep(tu, length(pind))
-    }
+    #SdInd <- getSubList(a$cmv, "ind")$SdValue
+    #N     <- getSubList(a$cmv, "ind")$N
+    #if(length(SdInd) > 0 & length(N) > 0){
+    #
+    #    tu <- abs(unlist(SdInd) / pind)
+    #    tu[which(tu > 0.9)] <- NA
+    #    tu <- mean(tu, na.rm = TRUE)
+    #    u  <- rep(tu, length(pind))
+    #}
 
     ccc$Calibration$Analysis$Values$Uncertainty <-
         setCcl(ccc$Calibration$Analysis$Values$Uncertainty,

utils/results.r

@@ -13,7 +13,7 @@ results <- function(ccc){
     ##-------------##
     PCAL <- getSubList(a$cav$Pressure, "cal")
     PCAL$HeadCell <- "{\\(p_{cal}\\)}"
-    PCAL$UnitCell <- PCAL$Unit
+    PCAL$UnitCell <- paste0("(",PCAL$Unit,")")
     pcal <- getConstVal(NA, NA, PCAL)
 
     ##-------------##
@@ -36,13 +36,13 @@ results <- function(ccc){
     ## ind
     PIND <- getSubList(a$cav$Pressure, "ind")
     PIND$HeadCell <- "{\\(p_{ind}\\)}"
-    PIND$UnitCell <- PIND$Unit
+    PIND$UnitCell <- paste0("(",PIND$Unit,")")
     pind <- getConstVal(NA, NA, PIND)
 
     ## ind_corr
     PINDcorr <- getSubList(a$cav$Pressure, "ind_corr")
     PINDcorr$HeadCell <- "{\\(p_{ind} - p_r\\)}"
-    PINDcorr$UnitCell <- PINDcorr$Unit
+    PINDcorr$UnitCell <- paste0("(",PINDcorr$Unit,")")
     pindcorr <- getConstVal(NA, NA, PINDcorr)
 
     ## e