Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- match.interest <- function(str){
- match(str, V.interest[,1])
- if(is.na(match){
- return(NA)
- }else{
- return(unlist(PvsNP.vdj[,c(1:15)]))
- }
- }
- PvsNP.int <- sapply(PvsNP.vdj[,9], match.interest)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement