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 Oct. 8, 2023, 1:07 a.m.