sample script for R