A generic function for getting the model slot in a
class. The function is implemented for the SplitTypeRdata class.
model(x)an object.
# 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)