File: test.list.R

package info (click to toggle)
r-cran-ksamples 1.2-10-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 456 kB
  • sloc: ansic: 1,321; makefile: 2
file content (6 lines) | stat: -rw-r--r-- 154 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
 
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
}