..

devel/ce3.r

@@ -19,8 +19,9 @@ cdb        <- cdbIni()
 #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$DBName <- "vl_db"
+## cdb$id     <- "cal-2018-ce3-ik-0089_0002"
+cdb$id     <- "cal-2018-ce3-kk-75085_0001"
+cdb$DBName <- "vl_db_work"
 
 doc        <- cdbGetDoc(cdb)$res
 
@@ -89,7 +90,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,9 @@ 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" ## 
 
-sigma.F13 <- 1.094
+sigma.F13 <- 1.098
 
 doc    <- cdbGetDoc(cdb)$res
 doc    <- refreshAnalysis(doc)