# NOT RUN {
## dataset: 2 continuous variables, 1 discrete variable.
data <- data.frame(X = rnorm(100),Y = rexp(100,1/2), Z = as.factor(rep(c("s","a"), 50)))
disVar <- "Z" ## Discrete variable
class(data[,disVar]) ## factor
data <- discreteVariables_as.character(dataset = data, discreteVariables = disVar)
class(data[,disVar]) ## character
whichDiscrete(dataset = data, discreteVariables = "Z")
standData <- standardizeDataset(dataset = data)
disData <- discretizeVariablesEWdis(dataset = data, numIntervals = 3)
l <- discreteVariablesStates(namevariables = names(data), discreteData = disData)
nstates(DiscreteVariablesStates = l)
## Continuous variables
quantileIntervals(X = data[,1], numIntervals = 4)
quantileIntervals(X = data[,2], numIntervals = 10)
# }
Run the code above in your browser using DataLab