A implementation of tour algorithms in R