Chapter 76 Verification of important words for “Out of Business”

OOBList = c("comments reflected",    
            "license 34",     
            "licensee inspection",        
            "license 38")

FoodInspectionWordsFiltered = FoodInspectionWordsBiGram %>%
  filter(bigram %in% OOBList)

table(FoodInspectionWordsFiltered$Results)

## 
##            Fail Out of Business 
##               1              18

We show that if we look for the following bigrams

• “comments reflected”,
  
• “license 34”,
  
• “licensee inspection”,
  
• “license 38”

then most commonly occuring Result is Out of Business.