powered by
inpboxk7k7(vlabel,inp)
vlabel<-as.character(1:14)
inp<-c(rep('FALSE',7),rep('TRUE',7))
ans<-inpboxk7k7(vlabel,inp)