类

setClass(Class = 'person',
    slots = list(
        name = 'character',
        age = 'numeric'
    ),
    prototype = list(
        name = 'nobody',
        age = 0
   )
)

person1 <- new(Class = 'person', name = 'John', age = 25)

print(person1@name)
print(person1@age)

[1] "John"
[1] 25