Create example2.R

add examples of query