Create example2.R

add examples of query
Merge pull request #2 from rcordova/patch-2

Create example2.R