Added first four examples in R