Added sample of R qgis script