sample.r 348 B

1234567891011121314
  1. #' A simple function for data processing
  2. #' @param x The input value
  3. #' @param y The multiplier
  4. my_function <- function(x, y) {
  5. # implementation
  6. }
  7. #' A class definition for S4
  8. setClass("MyClass", representation(x = "numeric", y = "character"))
  9. #' A method definition
  10. setMethod("print", "MyClass", function(x, ...) {
  11. cat("MyClass object\n")
  12. })