How would you extend the snippet below to create additional sets for `bone`

, `central`

, `skin`

, `soft`

?

```
nb <- c(42,90,53,1,65,68)
```

Given those objects how would you compare a pair of `testset`

and `trueset`

for

- either
- neither
- both
- some number 1..n

Hint: All are booleans, the last is the sum of booleans.

Flow: `mutate`

with `case_when`

```
DF %>% mutate(the_result = case_when{
# integer vectors of name_case
name_case == #logical test
~ #VALUE for in either
...
name_case == #logical test
~ #VALUE for sum(...)
```

See `intersect`

in `help()`

for set operations