Commit 6c6297cf authored by Yong Liu's avatar Yong Liu

Refs #6262

parent 27e14937
......@@ -2254,12 +2254,17 @@ sdcGUI <- function() {
risk <- ActiveSdcVars("risk")
originalRisk <- ActiveSdcVars("originalRisk")
utility <- ActiveSdcVars("utility")
origrisknum = 100
if(!is.null(obj@originalRisk$numeric)) {
origrisknum = round(100*originalRisk$numeric,2)
}
svalue(nm_util_print) <- paste("Information Loss: Criteria IL1: ",
round(utility$il1,2), " (Original: 0)\nDifference in Eigenvalues: current data: ",round(utility$eigen*100,2)," %",
" (orig: Information Loss: 0) \n",sep="")
svalue(continuousvariablerisklabel) <- paste("Disclosure risk for continuous key variables is:", round(100*risk$numeric,2),
"% (orig.", origrisknum, "%)", SEP="")
visible(continuousvariableriskgraph) <- TRUE
barplot(matrix(c(round(100*risk$numeric,2), round(100*originalRisk$numeric,2)
barplot(matrix(c(round(100*risk$numeric,2), origrisknum
), nrow = 1, ncol = 2), beside = TRUE, main="Disclosure risk", legend=c("curr risk", "orig risk"))
visible(continuousvariablelossgraph) <- TRUE
namelist <- names(obj@manipNumVars)
......@@ -5520,6 +5525,7 @@ compareDataExport <- function(comparedScript, len, ...){
addSpring(tmp1)
svalue(nbMain) <- 2
continuousvariablerisklabel = glabel(text = "", container=tmpR)
continuousvariableriskgraph = ggraphics(container=tmpR, width=280, height=200)
nm_util_print = gtext(text="", width=280, height=60, expand=TRUE, container=tmpU)
tooltip(nm_util_print) <- tt_nmr
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment