Function to assign multiple slots to a S4 object
slots(x, exceptions = c("Dim", "Dimnames", "i", "p", "x", "factors")) <- value
an S4 object
slots to ignore
a list of attributes extracted by attributes()