Improve test coverage

Ideal case: Ensuring that each line of code is covered in the unit testing. (To be decided: What to do with the summary() function? Should mainly ensure that the correct values are picked; not the filler text itself.)

```
library(covr)
psm_coverage <- package_coverage()
zero_coverage(psm_coverage)
```