R/yesorno.R

Defines functions yesorno

yesorno<-function(x){
	ynx<-tolower(unlist(strsplit(x,"")))[1]
	qui<-ynx %in% c("y","j","n")
	quiy<-ynx %in% c("y","j")
	quin<-ynx=="n"
list(qui=qui,quiy=quiy,quin=quin)
}
mcl868/bossgene documentation built on March 29, 2020, 3:33 p.m.