Lab 4 Part III

[lecy]

Question from email:

I am stuck on part 3, question 1. I have selected words to identify organizations however, I am not able to see the results on my screen.

Here is what I have so far:

criteria.01 <- grep( "...", dat$mission, ignore.case = TRUE )
criteria.02 <- grepl( "...", dat$mission, ignore.case = TRUE )
criteria.03 <- grepl( "...", dat$mission, ignore.case = TRUE ) 
these.nonprofits <- ( criteria.01 | criteria.02 | criteria.03 )
sum( these.nonprofits )  # count of missions identified

[lecy]

Recall that these.nonprofits will be a logical vector or a "selector vector".

These are useful for counting things (sum), determining proportions (mean), and subsetting data:

np.black <- dat$mission[  these.nonprofits ]
np.black