sem 01 2014 R script :)