evoalgs-r-practise/classes.R
2024-04-30 10:03:37 +02:00

42 lines
1.1 KiB
R

# S3 and S4 are two different object-oriented programming (OOP) systems in R.
# S3 is a simple and informal OOP system, while S4 is a more formal and rigorous OOP system.
# S3 Classes
# ----------
# Creating an S3 class
create_person_s3 <- function(name, age) {
obj <- list(name=name, age=age)
class(obj) <- "PersonS3"
return(obj)
}
# Creating a print method for the S3 class
print.PersonS3 <- function(x) {
cat("PersonS3: Name =", x$name, "- Age =", x$age, "\n")
}
# Example of creating and printing an S3 object
person_s3 <- create_person_s3("Alice", 30)
print(person_s3)
# S4 Classes
# ----------
# Defining an S4 class
setClass("PersonS4",
slots = list(name = "character", age = "numeric"))
# Creating a constructor for the S4 class
create_person_s4 <- function(name, age) {
obj <- new("PersonS4", name=name, age=age)
return(obj)
}
# Creating a show method for the S4 class (similar to print method)
setMethod("show", "PersonS4", function(object) {
cat("PersonS4: Name =", object@name, "- Age =", object@age, "\n")
})
# Example of creating and showing an S4 object
person_s4 <- create_person_s4("Bob", 25)
show(person_s4)