Commit 1e85304d authored by Yong Liu's avatar Yong Liu

Refs #6263

parent 6c6297cf
......@@ -2264,8 +2264,11 @@ sdcGUI <- function() {
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), origrisknum
), nrow = 1, ncol = 2), beside = TRUE, main="Disclosure risk", legend=c("curr risk", "orig risk"))
counts <- c(round(100*risk$numeric,2), origrisknum)
bplt <- barplot(counts, beside = TRUE, main="Disclosure risk",
#legend=c("curr risk", "orig risk"),
col=c("blue","grey"),
space=4, names.arg=counts)
visible(continuousvariablelossgraph) <- TRUE
namelist <- names(obj@manipNumVars)
lossgraphcombo[] <- namelist
......
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