# Creació d'un objecte S3
persona <- list(nom = "Joan", edat = 30)
class(persona) <- "Persona"

# Definició d'un mètode S3 per a la classe Persona
print.Persona <- function(x) {
  cat("Nom:", x$nom, "\n")
  cat("Edat:", x$edat, "\n")
}

# Ús del mètode
print(persona)

# Creació d'una classe S3 per a un cotxe
cotxe <- list(marca = "Toyota", model = "Corolla", any = 2020)
class(cotxe) <- "Cotxe"

# Definició d'un mètode S3 per a la classe Cotxe
print.Cotxe <- function(x) {
  cat("Marca:", x$marca, "\n")
  cat("Model:", x$model, "\n")
  cat("Any:", x$any, "\n")
}

# Ús del mètode
print(cotxe)

# Definició d'una classe S4
setClass("Persona",
         slots = list(nom = "character", edat = "numeric"))

# Creació d'un objecte S4
joan <- new("Persona", nom = "Joan", edat = 30)

# Definició d'un mètode S4 per a la classe Persona
setMethod("show", "Persona",
          function(object) {
            cat("Nom:", object@nom, "\n")
            cat("Edat:", object@edat, "\n")
          })

# Ús del mètode
show(joan)

# Definició d'una classe S4 per a un cotxe
setClass("Cotxe",
         slots = list(marca = "character", model = "character", any = "numeric"))

# Creació d'un objecte S4
cotxe <- new("Cotxe", marca = "Toyota", model = "Corolla", any = 2020)

# Definició d'un mètode S4 per a la classe Cotxe
setMethod("show", "Cotxe",
          function(object) {
            cat("Marca:", object@marca, "\n")
            cat("Model:", object@model, "\n")
            cat("Any:", object@any, "\n")
          })

# Ús del mètode
show(cotxe)

# Solució
animal <- list(nom = "Lleó", edat = 5)
class(animal) <- "Animal"

print.Animal <- function(x) {
  cat("Nom:", x$nom, "\n")
  cat("Edat:", x$edat, "\n")
}

print(animal)

# Solució
setClass("Animal",
         slots = list(nom = "character", edat = "numeric"))

animal <- new("Animal", nom = "Lleó", edat = 5)

setMethod("show", "Animal",
          function(object) {
            cat("Nom:", object@nom, "\n")
            cat("Edat:", object@edat, "\n")
          })

show(animal)