the project of advanced topic,finished in R