Implement tour methods in pure R code