# NOT RUN {
## Create a dummy training matrix with two dimensions. The first
## two dimensions have two possible nominal values, while the
## third and fourth have three possible nominal values.
dummy <- cbind(matrix(sample(1:2, 20, replace=TRUE), ncol = 2),
matrix(sample(1:3, 20, replace=TRUE), ncol = 2))
## Specify the number of nominal spaces for each dimension
dims <- c(2, 2, 3, 3)
## Convert the input representation into a binary padded representation
convertSUSTAIN(dummy, dims)
# }
Run the code above in your browser using DataCamp Workspace