Skip to content
Snippets Groups Projects
Commit 1bb1a399 authored by wactbprot's avatar wactbprot
Browse files

(unit)

parent ca12746a
No related branches found
No related tags found
No related merge requests found
...@@ -18,9 +18,10 @@ cdb <- cdbIni() ...@@ -18,9 +18,10 @@ cdb <- cdbIni()
#cdb$id <- "cal-2017-ce3-kk-75043_0001" #cdb$id <- "cal-2017-ce3-kk-75043_0001"
#cdb$id <- "cal-2017-ce3-kk-75113_0002" #cdb$id <- "cal-2017-ce3-kk-75113_0002"
## cdb$id <- "cal-2017-ce3-pn-4814_0003" ## 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-ik-0089_0004" # F <- 4043
#cdb$id <- "cal-2018-ce3-kk-75003_0004" #cdb$id <- "cal-2018-ce3-kk-75003_0004"
cdb$id <- "cal-2018-ce3-kk-75085_0001"
cdb$DBName <- "vl_db" cdb$DBName <- "vl_db"
doc <- cdbGetDoc(cdb)$res doc <- cdbGetDoc(cdb)$res
......
...@@ -24,15 +24,15 @@ cuco.uncert.stdev <- function(ccc){ ...@@ -24,15 +24,15 @@ cuco.uncert.stdev <- function(ccc){
} }
## es gibt sd-Daten aus der Messung ## es gibt sd-Daten aus der Messung
SdInd <- getSubList(a$cmv, "ind")$SdValue #SdInd <- getSubList(a$cmv, "ind")$SdValue
N <- getSubList(a$cmv, "ind")$N #N <- getSubList(a$cmv, "ind")$N
if(length(SdInd) > 0 & length(N) > 0){ #if(length(SdInd) > 0 & length(N) > 0){
#
tu <- abs(unlist(SdInd) / pind) # tu <- abs(unlist(SdInd) / pind)
tu[which(tu > 0.9)] <- NA # tu[which(tu > 0.9)] <- NA
tu <- mean(tu, na.rm = TRUE) # tu <- mean(tu, na.rm = TRUE)
u <- rep(tu, length(pind)) # u <- rep(tu, length(pind))
} #}
ccc$Calibration$Analysis$Values$Uncertainty <- ccc$Calibration$Analysis$Values$Uncertainty <-
setCcl(ccc$Calibration$Analysis$Values$Uncertainty, setCcl(ccc$Calibration$Analysis$Values$Uncertainty,
......
...@@ -13,7 +13,7 @@ results <- function(ccc){ ...@@ -13,7 +13,7 @@ results <- function(ccc){
##-------------## ##-------------##
PCAL <- getSubList(a$cav$Pressure, "cal") PCAL <- getSubList(a$cav$Pressure, "cal")
PCAL$HeadCell <- "{\\(p_{cal}\\)}" PCAL$HeadCell <- "{\\(p_{cal}\\)}"
PCAL$UnitCell <- PCAL$Unit PCAL$UnitCell <- paste0("(",PCAL$Unit,")")
pcal <- getConstVal(NA, NA, PCAL) pcal <- getConstVal(NA, NA, PCAL)
##-------------## ##-------------##
...@@ -36,13 +36,13 @@ results <- function(ccc){ ...@@ -36,13 +36,13 @@ results <- function(ccc){
## ind ## ind
PIND <- getSubList(a$cav$Pressure, "ind") PIND <- getSubList(a$cav$Pressure, "ind")
PIND$HeadCell <- "{\\(p_{ind}\\)}" PIND$HeadCell <- "{\\(p_{ind}\\)}"
PIND$UnitCell <- PIND$Unit PIND$UnitCell <- paste0("(",PIND$Unit,")")
pind <- getConstVal(NA, NA, PIND) pind <- getConstVal(NA, NA, PIND)
## ind_corr ## ind_corr
PINDcorr <- getSubList(a$cav$Pressure, "ind_corr") PINDcorr <- getSubList(a$cav$Pressure, "ind_corr")
PINDcorr$HeadCell <- "{\\(p_{ind} - p_r\\)}" PINDcorr$HeadCell <- "{\\(p_{ind} - p_r\\)}"
PINDcorr$UnitCell <- PINDcorr$Unit PINDcorr$UnitCell <- paste0("(",PINDcorr$Unit,")")
pindcorr <- getConstVal(NA, NA, PINDcorr) pindcorr <- getConstVal(NA, NA, PINDcorr)
## e ## e
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment