## Usage

as.discrete(x, ...)
# S3 method for default
as.discrete(x, ...)
discrete(x, levels = sort(unique.default(x), na.last = TRUE), exclude = NA)
# S3 method for discrete
[(x, ...) <- value
# S3 method for discrete
[(x, ..., drop = FALSE)
# S3 method for discrete
[[(x, i)
is.discrete(x)
# S3 method for discrete
is.na(x) <- value
# S3 method for discrete
length(x) <- value