Commit 27e14937 authored by Yong Liu's avatar Yong Liu

Refs #6197

parent 55483ef7
......@@ -409,7 +409,7 @@ sdcGUI <- function() {
lsup <- ActiveSdcObject()@localSuppression
keyvariablerecodetable[] = data.frame(keyVars, c(do.call("cbind", lsup)), round(100 * c(do.call("cbind", lsup))/n,3),stringsAsFactors=FALSE)
visible(keyvariablerecodegraph) <- TRUE
barplot(c(do.call("cbind", lsup)), beside = TRUE, main="Supressions") #in categorical key variables
barplot(c(do.call("cbind", lsup)), beside = TRUE, main="Supressions", names.arg=keyVars, xlab="categorical key variables")
recode_summary[,] <- returnRecode(ActiveSdcObject())
svalue(nbMain) <- 1
#Measure Risk Funktion
......
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