powered by
inpboxe2k(vlabel,inp)
vlabel<-c('matrix1','matrix2','option')
inp<-c('M','N','TRUE')
ans<-inpboxe2k(vlabel,inp)