# NOT RUN {
data<-as.matrix(data.frame(dog=c('dog','perro'),cat=c('cat','gato'),rat=c('rat','rata')))
M<-generate.training(raw.data=data,search.size=100,table=FALSE)
alignment<-rbind(M[[2]][4,],M[[2]][5,])
optimization.GA(Al=alignment,data=data,num=5,step=3,plot=FALSE)
# }
Run the code above in your browser using DataLab