powered by
inpboxe3(vlabel,inp)
vlabel<-c('matrix 1','matrix 2','matrix 3')
inp<-c('M','N','S')
ans<-inpboxe3(vlabel,inp)