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

comb --> Total

parent b1c7d132
No related branches found
No related tags found
No related merge requests found
...@@ -41,7 +41,7 @@ doc <- se1.uncertValve(doc) ...@@ -41,7 +41,7 @@ doc <- se1.uncertValve(doc)
doc <- se1.uncertInh(doc) doc <- se1.uncertInh(doc)
doc <- se1.uncertPres(doc) doc <- se1.uncertPres(doc)
doc <- se1.uncertRep(doc) doc <- se1.uncertRep(doc)
doc <- se1.uncertComb(doc) doc <- se1.uncertTotal(doc)
doc <- dispatchResCal( doc ) doc <- dispatchResCal( doc )
......
...@@ -35,7 +35,7 @@ if(length(doc$Calibration) > 0){ ...@@ -35,7 +35,7 @@ if(length(doc$Calibration) > 0){
doc <- ce3.uncertF(doc) doc <- ce3.uncertF(doc)
doc <- ce3.uncertPcal(doc) doc <- ce3.uncertPcal(doc)
## ... customer calibration object (cuco) related ## ... customer calibration object (cuco) related
doc <- cuco.uncertDigit(doc) doc <- cuco.uncertDigit(doc)
doc <- cuco.uncertPOffset(doc) doc <- cuco.uncertPOffset(doc)
doc <- cuco.uncertOffsetDrift(doc) doc <- cuco.uncertOffsetDrift(doc)
...@@ -44,9 +44,10 @@ if(length(doc$Calibration) > 0){ ...@@ -44,9 +44,10 @@ if(length(doc$Calibration) > 0){
doc <- cuco.uncertGasPurity(doc) doc <- cuco.uncertGasPurity(doc)
doc <- cuco.uncertPind(doc) doc <- cuco.uncertPind(doc)
## all ## all
doc <- ce3.uncertTotal(doc) doc <- ce3.uncertTotal(doc)
## misc
## misc
doc <- ce3.compareCDGs(doc) doc <- ce3.compareCDGs(doc)
doc <- writeRes(doc) doc <- writeRes(doc)
} }
if(length(doc$Calibration) > 0){ if(length(doc$Calibration) > 0){
doc <- refreshAnalysis(cdb,doc) doc <- se1.calTime(doc)
doc <- refreshResult(cdb,doc) doc <- se1.calT(doc)
doc <- se1.calPfill(doc)
doc <- se1.calTime(doc) doc <- se1.calf(doc)
doc <- se1.yamp.calT(doc) doc <- se1.calRGC(doc)
doc <- se1.calPcal(doc)
doc <- se1.uncertPfill(doc)
doc <- se1.uncertf(doc)
doc <- se1.uncertdT(doc)
doc <- se1.uncertT1(doc)
doc <- se1.uncertRg(doc)
doc <- se1.uncertAds(doc)
doc <- se1.uncertVz(doc)
doc <- se1.uncertGas(doc)
doc <- se1.uncertAtm(doc)
doc <- se1.uncertValve(doc)
doc <- se1.uncertInh(doc)
doc <- se1.uncertPres(doc)
doc <- se1.uncertRep(doc)
doc <- se1.calPfill(doc) ## ... customer calibration object (cuco) related
doc <- se1.calf(doc) doc <- se1.uncertTotal(doc)
doc <- se1.calRGC(doc)
doc <- se1.calPcal(doc)
doc <- dispatchResCal( doc )
doc <- se1.uncertPfill(doc)
doc <- se1.uncertf(doc)
} }
se1.uncertComb <- function(ccc){ se1.uncertTotal <- function(ccc){
msg <- "calculated by se1.uncertComb()" msg <- "calculated by se1.uncertComb()"
a <- abbrevList(ccc) a <- abbrevList(ccc)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment