R/sampleset.R

In mcl868/bossgene:

sampleset<-function(x=NULL){
	nameslist<-c("A","J","K","Thomas")
	out<-list()
	out$possible<-if(is.null(x))nameslist else nameslist[!(tolower(nameslist) %in% tolower(x))]
	out$nameslist<-nameslist
	return(out)
}