bug in `getConditionallyIndependentSets` when nodes is provided and givenNodes is not

```
if(!missing(nodes)) {
    if(missing(givenNodes))
      givenNodesIDs <- setdiff(givenNodeIDs, nodeIDs)
  }
```

`givenNodesID` on LHS should be `givenNodeIDs`.