# NOT RUN {
n <- 500
deltaseq <- seq(0.1, 1, 0.1)
a <- 0.2
b <- -0.1
p <- 0.5
### True MCID is 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)
delsel <- sel$'Selected delta'
result <- pmcid(x = x, y = y, n = n, delta = delsel,
maxit = 100, tol = 1e-02, alpha = 0.05)
result$'Point estimate'
result$'Standard error'
result$'Confidence interval'
# }
Run the code above in your browser using DataLab