match.interest <- function(str){
  match <- match(str, V.interest[,1])

    if(is.na(match)){
        return(c(NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA))

   }else{
   return(unlist(PvsNP.vdj[,c(1:15)]))
  }
}