demo codes in R