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