generate 5 gram

generate5gram.R

require(data.table)

amino = c("A","R","N","D","C","Q","E","G","H","I","L","K","M","F","P","S","T","W","Y","V")

df_total = data.frame()
for(a in amino){
  for(b in amino){
    for(c in amino){
      for(d in amino){
        for(e in amino){
          model <- paste0(a,b,c,d,e, sep="")
          df <- data.frame(model)
          fwrite(df, "fifthgram.csv",sep = ",", append = T, col.names = F, row.names = F)
        }
      }
    }
  }
}