work along with the R Markdown demo