# NOT RUN {
n <- 500
deltaseq <- seq(0.1, 1, 0.1)
a <- 0.2
b <- -0.1
p <- 0.5
set.seed(115)
y <- 2 * rbinom(n, 1, p) - 1
y_1 <- which(y == 1)
y_0 <- which(y == -1)
x <- c()
x[y_1] <- rnorm(length(y_1), a, 0.1)
x[y_0] <- rnorm(length(y_0), b, 0.1)
sel <- cv.pmcid(x = x, y = y, delseq = deltaseq, k = 5,
maxit = 100, tol = 1e-02)
sel$'Selected delta'
sel$'Function value'
# }
Run the code above in your browser using DataLab