R/altnamesfun.R

In pubmed.mineR: Text Mining of PubMed Abstracts

altnamesfun <- function(m){lapply(m, function(x){local_uniprotfun(x);tempx = readLines("x.txt"); tempy = regexpr("AltName:", tempx, fixed=T);tempz = which(tempy != -1); if (length(tempz != 0)) {tempa = tempx[tempz]; tempb = NULL; for(i in 1:length(tempa)) {a = unlist(strsplit(tempa[i], "=",fixed=T));b= unlist(strsplit(a[2], ";",fixed=T)); tempb = c(tempb,b[1])}; return(tempb)} else return("NONE") })}