# تعریف یک کلاس RC
Person <- setRefClass("Person",
                      fields = list(name = "character", age = "numeric"),
                      methods = list(
                        greet = function() {
                          cat("Hello, my name is", name, "and I am", age, "years old.\n")
                        }
                      ))