# 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")
)
)
# }
Run the code above in your browser using DataLab