R/create_colnames_AAP.R

In bgafun: BGAfun A method to identify specifity determining residues in protein families

"create_colnames_AAP" <-
function(Alignment){
## Create column names for the Amino Acid Properties Matrix

generic_list<-c("xA","xB","xC","xD","xE")
col_names<-vector()
Aln_length<-length((unlist(strsplit(Alignment$seq[1],split=NULL))))
for(i in 1:Aln_length){
    add<-sub("x",i,generic_list)
    col_names<-c(col_names,add)
}

return(col_names)
}