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