R/splitTypeRdata_class.R
model-set.RdA generic function for replacement of model slot in a S4 object.
model(x) <- valuethe modified S4 object when the new value is valid.
# Define a dummy class to show usage
setClass("MyClass", slots = list(model="character"))
# Create an instance
obj <- new("MyClass", model="123")
# Call the generic (assuming a method is implemented)
# model(obj) <- "333"