#' A simple function for data processing
#' @param x The input value
#' @param y The multiplier
my_function <- function(x, y) {
  # implementation
}

#' A class definition for S4
setClass("MyClass", representation(x = "numeric", y = "character"))

#' A method definition
setMethod("print", "MyClass", function(x, ...) {
  cat("MyClass object\n")
})