horse <- new_class("horse", properties = list(
name = class_character,
colour = class_character,
height = class_numeric
))
lexington <- horse(colour = "bay", height = 15, name = "Lex")
props(lexington)
props(lexington) <- list(height = 14, name = "Lexington")
lexington
Run the code above in your browser using DataLab