# NOT RUN {
# This simplified example illustrates the supervised learning workflow
# some cognate data
data<-data.frame(dog=c('dog','perro'),cat=c('cat','gato'),rat=c('rat','rata'))
# generate training data for linguist (not written)
M1<-generate.training(raw.data=data, search.size=100)
# optimize features using expert determinations: 1,1,1
optimize.features(set=M1, ranking=c(1,1,1),
num=20, step=5, replication=2, list=FALSE)
# }
Run the code above in your browser using DataLab