R/kaps.control.R

In kaps: K-Adaptive Partitioning for Survival data

kaps.control <- function(pre.pt = list(), scope = list(), 
	rho = 0, V = 5, ncl = 1, lower.limit = 0, upper.limit = 100,
	shortcut = TRUE, N.perm = 9999, N.boot = 200, alpha = 0.05, 
	splits = c("logrank", "exact"),
	correct = c("Adj.Bf", "Bf", "None"),
	p.adjust.methods = c("none", "holm", "hochberg", "hommel", "bonferroni",  "BH", "BY", "fdr")){
	p.adjust.methods <- match.arg(p.adjust.methods)
	splits <- match.arg(splits)
	correct <- match.arg(correct)
	res <- new("kapsOptions")
	
	#sel = c("mean","median","trim","test"),
	#sel <- match.arg(sel)
	
	#res@method <- method
	res@V <- V
	res@lower.limit <- lower.limit
	res@upper.limit <- upper.limit
	res@N.perm <- N.perm
	res@N.boot <- N.boot
	res@alpha <- alpha
	res@pre.pt <- pre.pt
	res@scope <- scope
	res@rho <- rho
	res@shortcut <- shortcut
	res@splits <- splits
	res@ncl <- as.integer(ncl)
	res@correct <- correct
	res@p.adjust.methods <- p.adjust.methods
	return(res)
}