r <- 4
n <- 200
mu <- (1:20)/20
cov <- diag(length(mu))
set.seed(108)
data <- MASS::mvrnorm(n, mu, cov)
sample.mean <- colMeans(data)
## softmin.LOO
CS.argmin(data)
## use seed
CS.argmin(data, seed=13)
## argmin.LOO
CS.argmin(data, method='HML')
## nonsplit
CS.argmin(data, method='NS', lambda=sqrt(n)/2.5)
## Bonferroni (choose t test because of normal data)
CS.argmin(data, method='MT', test='t')
## Gupta
CS.argmin(data, method='GTA')
## Futschik two-step method
# default alpha.1, alpha.2
CS.argmin(data, method='FCHK')
alpha.1 <- 0.0005
alpha.2 <- 1 - (0.95/(1 - alpha.1))
CS.argmin(data, method='FCHK', alpha.1=0.0005, alpha.2=alpha.2)
Run the code above in your browser using DataLab