library('seqinr') library('ds4psy')
seq<-as.character(read.csv('test_seq.csv')[,1])
load('AA_table.rda')
codon frequency downloaded from https://www.kazusa.or.jp/codon/cgi-bin/showcodon.cgi?species=3702
source('mocaas.r')
out<-mocaas(seq,method='best')
out2<-mocaas(seq,method='best',replace = c(2:100))
seq_new<-out[,2]
seq_new<-paste(out[,2],collapse = '')