Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.