example script for subsetting in R