add R code and the tide dataset