# 塩基を数字で表す base<-1:4 # 塩基名を文字で表す base.name<-c("T","C","A","G") # アミノ酸を数字で表す # stop codonを21番とする aa<-1:21 # アミノ酸を文字で表す # stop codonは"X"とする aa.name<-c("F","L","S","Y","C","W","P","H","Q","R","I",…