some samples of my R programming