chore: restore original directory structure (project under code-review-graph-main/)

2026-08-31 13:08:20 +08:00
parent ecc55158c1
commit ecfd03a21c
404 changed files with 0 additions and 0 deletions
@@ -0,0 +1,30 @@
+library(dplyr)
+require(ggplot2)
+source("utils.R")
+
+add <- function(x, y) {
+  x + y
+}
+
+multiply = function(a, b) {
+  a * b
+}
+
+MyClass <- setRefClass("MyClass",
+  fields = list(name = "character", age = "numeric"),
+  methods = list(
+    greet = function() {
+      cat(paste("Hello", name))
+    },
+    get_age = function() {
+      return(age)
+    }
+  )
+)
+
+process_data <- function(data) {
+  result <- dplyr::filter(data, x > 5)
+  summary <- dplyr::summarize(result, mean_x = mean(x))
+  add(1, 2)
+  summary
+}