Nothing
"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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.