```{r}
#variables <- which(grepl("yt", "ab", "bc", "dc", "ma", "mo", "mt", "nb", "nf", "ns", "nt", "on", "pe", "pq", "qc", "sa", "sk", "yk", "ty", ufo_dfus$state))
#variables

variables <- which(grepl("yt", "ab", "bc", ufo_dfus$state))

variables <- which(grepl("dc", "ma", "mo", ufo_dfus$state))

variables <- which(grepl("nb", "nf", "ns", ufo_dfus$state))

variables <- which(grepl("nt", "on", "pe", ufo_dfus$state))

variables <- which(grepl("pq", "qc", "sa", ufo_dfus$state))

variables <- which(grepl("sk", "yk", "ty", ufo_dfus$state))

variables <- which(grepl("mt", ufo_dfus$state))

ufo_dfus[-row_number(variables)]

table(ufo_dfus$state)
#AB, yk, yt, nt,
# AB BC DC MA MO MT NB NF NS NT ON PE PQ QC SA SK YK TY
```