set.seed(108)
n <- 200
p <- 20
mu <- (1:p)/p
cov <- diag(p)
data <- MASS::mvrnorm(n, mu, cov)
## softmin.LOO (SML)
CS.argmax(data)
## argmin.LOO (HML)
CS.argmax(data, method = "HML")
## nonsplit (NS) - requires lambda
CS.argmax(data, method = "NS", lambda = sqrt(n)/2.5)
## Bonferroni (MT) - t test default
CS.argmax(data, method = "MT", test = "t")
## Gupta (GTA)
CS.argmax(data, method = "GTA")
## Futschik (FCHK) with default alpha.1 and alpha.2
CS.argmax(data, method = "FCHK")
## Futschik (FCHK) with user-specified alpha.1 and alpha.2
alpha.1 <- 0.001
alpha.2 <- 1 - (0.95 / (1 - alpha.1))
CS.argmax(data, method = "FCHK", alpha.1 = alpha.1, alpha.2 = alpha.2)
Run the code above in your browser using DataLab