Changed representation to slots in setClass

* R/ContactTrace.r (setClass): Changed representation to slots

* R/Contacts.r (setClass): Changed representation to slots