code-example.R

library(ggplot2)

x <- 10
y <- 5
z <- x + y
mean_value <- mean(c(x, y, z))

person <- setRefClass("Person",
  fields = list(name = "character"),
  methods = list(
    greet = function() paste("Hello, my name is", name)
  )
)
john <- person$new(name = "John")
greeting <- john$greet()

add_numbers <- function(a, b) a + b
sum_result <- add_numbers(x, y)