Obtaining the cutpoints and / or regroupments of a discretization.

This defines the generic method "cutpoints" which will provide the cutpoints of a discretization scheme of S4 class glmdisc.

This defines the method to provide the cutpoints of a trained glmdisc.

cutpoints(object)

# S4 method for glmdisc
cutpoints(object)

Arguments

object	generic glmdisc object
glmdisc	The trained glmdisc S4 object.

Author

Adrien Ehrhardt.

Examples

# Simulation of a discretized logit model
set.seed(1)
x <- matrix(runif(300), nrow = 100, ncol = 3)
cuts <- seq(0, 1, length.out = 4)
xd <- apply(x, 2, function(col) as.numeric(cut(col, cuts)))
theta <- t(matrix(c(0, 0, 0, 2, 2, 2, -2, -2, -2), ncol = 3, nrow = 3))
log_odd <- rowSums(t(sapply(seq_along(xd[, 1]), function(row_id) {
  sapply(
    seq_along(xd[row_id, ]),
    function(element) theta[xd[row_id, element], element]
  )
})))
y <- rbinom(100, 1, 1 / (1 + exp(-log_odd)))

sem_disc <- glmdisc(x, y,
  iter = 50, m_start = 4, test = FALSE,
  validation = FALSE, criterion = "aic"
)
cutpoints(sem_disc)
#> $V1
#> [1] 0.4229670 0.5629448 0.7680760
#> 
#> $V2
#> [1] 0.3686104
#> 
#> $V3
#> [1] 0.1356591
#>