R/test.list.R

Defines functions test.list

test.list <- function(x){
sel <- unlist(lapply(x,length))
x <- x[sel > 1]
if(length(x) <= 1) stop("need more than one block with at least 2 samples")
x
}

Try the kSamples package in your browser

Any scripts or data that you put into this service are public.

kSamples documentation built on Aug. 27, 2025, 1:08 a.m.