## Not run:
# bawl.corp <- read.BAWL("~/mydata/valence/BAWL-R.csv")
#
# # you can now use query() now to create subsets of the word list,
# # e.g., only nound with 5 letters and an valence rating of >= 1
# bawl.stimulus <- query(bawl.corp,
# query=list(
# list(wclass="noun"),
# list(lttr=5),
# list("EMO_MEAN"=1, rel="ge")
# )
# )
# ## End(Not run)
Run the code above in your browser using DataLab