Create xsubCnt20.R

The goal is to create a subset of data that has more than 20 observation for each factor (State).
First we create a table, then we drop levels that have less than 20 observations