A generic function for getting the model slot in a class. The function is implemented for the SplitTypeRdata class.

model(x)

Arguments

x

an object.

Value

an object.

Author

Astrid Deschênes

Examples


# 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)