Create Query.R